$TXT Created by ROWE,KIMBALL at LEXNXT.FO-BAYPINES.MED.VA.GOV (KIDS) on Monday, 06/11/07 at 17:41 ============================================================================= Run Date: JUL 06, 2007 Designation: LEX*2*50 Package : LEX - LEXICON UTILITY Priority: Mandatory Version : 2 SEQ #48 Status: Released Compliance Date: JUL 13, 2007 ============================================================================= Associated patches: (v)LEX*2*48 <<= must be installed BEFORE `LEX*2*50' (v)ICD*18*28 <<= must be installed BEFORE `LEX*2*50' (v)ICPT*6*34 <<= must be installed BEFORE `LEX*2*50' (v)LEX*2*49 <<= must be installed BEFORE `LEX*2*50' (v)PXRM*2*9 <<= must be installed BEFORE `LEX*2*50' Subject: Code Set FY07 4th Qtr Update Category: - Routine - Enhancement (Mandatory) - Data Dictionary - Other Description: ============ This patch contains the FY07 4th Quarter Code Set distribution with 67 changes effective Jul 01, 2007. It also fixes a problem discovered in internal testing with the post-install routines LEXXGI, LEXXGI2 and LEXXII. This patch installs the data for the following Informational patch: ICPT*6.0*36 This patch writes to the following files: File Name or Group File Numbers Global DBIA ------------------------ ------------ ---------- ---------- CPT/HCPCS Procedure #81 ^ICPT( DBIA 4489 CPT Category #81.1 ^DIC(81.1, DBIA 4490 CPT Modifier #81.3 ^DIC(81.3, DBIA 4492 Lexicon Files #757-757.41 ^LEX( DBIA N/A ENHANCEMENTS ============ FY07 4th Quarter Update CPT Procedures Additions ------------------------ Effective Jul 01, 2007 (18 Codes) 0178T 0179T 0180T 0181T 0182T 3150F 3155F 3160F 3170F 3200F 3210F 4090F 4095F 4100F 4110F 4115F 4120F 4124F CPT Procedures Inactivations ---------------------------- Effective Jul 01, 2007 (5 Codes) 0024T 0133T 3101F 3102F 3143F CPT Procedures Revisions ------------------------ Effective Jul 01, 2007 (17 Codes) 1065F 1066F 1100F 1101F 1111F 3100F 3112F 3140F 3141F 3142F 4007F 4041F 4045F 4047F 4048F 4049F 6015F HCPCS Procedures Additions -------------------------- Effective Jul 01, 2007 (26 Codes) C2638 C2639 C2640 C2641 C2642 C2643 C2698 C2699 C9728 K0553 K0554 K0555 Q4087 Q4088 Q4089 Q4090 Q4091 Q4092 Q4093 Q4094 Q4095 S2066 S2067 S3800 S3905 S9152 HCPCS Procedures Inactivations ------------------------------ Effective Jul 01, 2007 (5 Codes) C1718 C1720 C2633 J7319 S2078 HCPCS Procedures Revisions -------------------------- Effective Jul 01, 2007 (9 Codes) C1716 C1717 C1719 C2616 C2634 C2635 C2636 C2637 S2068 CPT Modifiers Additions ----------------------- Effective Jul 01, 2007 (2 Codes) KT KU CPT Modifiers Re-Used --------------------- Effective Jul 01, 2007 (3 Codes) KG KK KL CPT Modifiers Revisions ----------------------- Effective Jul 01, 2007 (2 Codes) GY KX Routine Fixes Global Import LEXXGI and LEXXGI2 The LEXXGI and LEXXGI2 routines are responsible for reading and installing the data in the Import Global ^LEXM during the Post-install process. Missing code in both LEXXGI and LEXXGI2 was added. This missing code was not discovered in patch LEX*2.0*49 since LEX*2.0*49 had no Import global. Additionally, a line of test code found in LEXXGI2 has been removed. Installation Information LEXXII Routine LEXXII was modified to report the calling of the protocol LEXICAL SERVICES UPDATE after the install of the ^LEXM global. This was not discovered in patch LEX*2.0*49 since LEX*2.0*49 did not install data from import global ^LEXM. FTP SOFTWARE RETRIEVAL: ======================= Global Host File: LEX_2_50.GBL (ASCII) The preferred method is to FTP the files from download.vista.med.va.gov, which will transmit the files from the first available FTP server. The files may also be downloaded directly from a particular FTP location at the following locations. Hines ftp.fo-hines.med.va.gov Albany ftp.fo-albany.med.va.gov Salt Lake ftp.fo-slc.med.va.gov Files are available in the ANONYMOUS.SOFTWARE directory. INSTALLATION INSTRUCTIONS ========================= 1) Users may be on the system during the install of LEX*2.0*50. It is recommended that this patch be installed during non-peak hours. This patch should take less than 15 minutes to install. 2) Create a backup of the following globals files before continuing: Global Content File # Global ---------------- ---------- ---------- CPT Procedures #81 ^ICPT CPT Categories #81.1 ^DIC(81.1) CPT Modifiers #81.3 ^DIC(81.3) Lexicon Files #757-757.41 ^LEX 3) Make sure that the remnants of a previous import global do not exist on your system. If the global ^LEXM does exist, you will need to kill this global before proceeding. On a Cache system, the prevention of unsubscripted global kills is a system wide setting, but it can be allowed for a particular process using the $ZU command. The command for enabling unsubscripted global kills is: VAH>S X=$ZU(68,28,0) VAH>K ^LEXM The command for disabling unsubscripted kills for a process is S X=$ZU(68,28,1); however, halting out of the process and creating a new process will achieve the same effect. 4) Install the data from the global host file LEX_2_50.GBL. This file contains the Lexicon Utility's import global ^LEXM. Thin Client Global Restore Using the Cache Thin Client, right-click on the Cache cube, then select "Explorer." Open the "Namespaces" folder, then open the "VAH" folder, and right click on the "Globals" folder. Select the "Import from disk" option. Click on the "Options..." button. Select the "Globals" tab, make sure the format is VAX DSM, then click "OK." Find the file in the directory, double click on LEX_2_50.GBL. Next, select "Import All." At the prompt "Do you wish to restore '^LEXM'," select "Yes." Programmer Mode From the Programmer prompt, execute the following routine: >D ^%GI Global input Device: VA5$:[ANONYMOUS.SOFTWARE]LEX_2_50.GBL Parameter: RS=> Globals were saved on 30 May 2007 16:47 PM Cache with description: LEX*2.0*50/ICPT*6.0*36 Data Input option: A ^LEXM The loading of the global should take less than 3 minutes. 5) Set up user and IO variables (D ^XUP) for programmer access. 6) Distribution Load: Load the KIDS Distribution from the Packman Message using the Packman function "Install/Check Message." 7) KIDS Installation: Install the patch using the KIDS Installation Menu action "Install Package(s)" and the install name LEX*2.0*50. The KIDS installation should take less than fifteen minutes depending on the number of users/jobs on the system. Respond "NO" at the "Want KIDS to INHIBIT LOGONs during the install?" prompt. Respond "NO" at the "Want to DISABLE Schedule Options, Menu Options, and Protocols?" prompt. 8) Cleanup a) Check that the export global ^LEXM has been killed automatically. If it has not been automatically killed, you will need to kill the "unsubscripted" import global ^LEXM to prevent import global checksum errors on future installations. On a Cache system, the prevention of unsubscripted global kills is a system wide setting, but it can be allowed for a particular process using the $ZU command. The command for enabling unsubscripted global kills is: VAH>S X=$ZU(68,28,0) VAH>K ^LEXM The command for disabling unsubscripted kills for a process is S X=$ZU(68,28,1); however, halting out of the process and creating a new process will achieve the same effect. b) The Environment Check routine LEX2050 and the Post-Install routine LEX2050P should be deleted using the KERNEL option 'Delete Routines' [XTRDEL] upon completion of the installation. ROUTINE SUMMARY: =============== The second line of each of these routines will look like: ;;2.0;LEXICON UTILITY;**[PATCH LIST]**;Sep 23, 1996 The following checksums were created using CHECK^XTSUMBLD Checksums Checksums Routine Before Patch After Patch Patch List (2nd Line) -------- ------------- ------------- --------------------- LEX2050 17483315 50 LEX2050P 1582264 50 LEXXGI 16911660 17355113 4,25,26,27,28,29,46,49,50 LEXXGI2 15702587 21417626 25,26,28,29,46,49,50 LEXXII 9880101 9833834 32,46,49,50 The following checksums were created using CHECK1^XTSUMBLD Checksums Checksums Routine Before Patch After Patch Patch List (2nd Line) -------- ------------- ------------- --------------------- LEX2050 81370775 50 LEX2050P 3259336 50 LEXXGI 60750552 64603303 4,25,26,27,28,29,46,49,50 LEXXGI2 40689022 63740225 25,26,28,29,46,49,50 LEXXII 33731148 35261547 32,46,49,50 Routine Information: ==================== The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: LEX2050 Before: n/a After: B81370775 **50** Routine Name: LEX2050P Before: n/a After: B3259336 **50** Routine Name: LEXXGI Before: B60750552 After: B64603303 **4,25,26,27,28,29,46,49,50** Routine Name: LEXXGI2 Before: B40689022 After: B63740225 **25,26,28,29,46,49,50** Routine Name: LEXXII Before: B33731148 After: B35261547 **32,46,49,50** Routine list of preceding patches: 49 ============================================================================= User Information: Entered By : ROWE,KIMBALL Date Entered : APR 03, 2007 Completed By: LEE,ROBERT Date Completed: JUN 28, 2007 Released By : MONTGOMERY,ALAN Date Released : JUL 06, 2007 ============================================================================= Packman Mail Message: ===================== $END TXT