$TXT Created by HARTLEY,PETER at DEVEVC.FO-ALBANY.MED.VA.GOV (KIDS) on Friday, 06/12/09 at 13:14 ============================================================================= Run Date: FEB 25, 2010 Designation: IVM*2*139 Package : IVM - INCOME VERIFICATION MATCH Priority: Mandatory Version : 2 SEQ #119 Status: Released Compliance Date: MAR 28, 2010 ============================================================================= Associated patches: (v)IVM*2*115 <<= must be installed BEFORE `IVM*2*139' Subject: XINDEX reporting Lock Missing Timeout errors Category: - Routine Description: ============ When XINDEX is run on the three patches in the Enrollment VistA Changes Release 2 (EVC R2) build, Lock Missing Timeout is being reported in several routines. Patches DG*5.3*805, EAS*1.0*93, and IVM*2.0*139 add timeouts to the reported Lock commands so that they are no longer reported by XINDEX. This patch addresses the following New Service Request (NSR): ------------------------------------------------------------- There is no NSR associated with this patch. This patch addresses the following Remedy Ticket(s): ---------------------------------------------------- HD0000000305037 - XINDEX reporting Lock Missing Timeout errors Test Sites: ----------- Alexandria VAMC Hudson Valley Healthcare Louisville VAMC ================INSTALLATION INSTRUCTIONS ================= You may wish to stop the HL7 filers prior to the install to prevent possible 'No Source Errors' from occurring. No transmissions will be lost if the filers are not stopped first, they will be picked up once the filers are restarted. This patch may be installed during normal working hours Install Time - less than 5 minutes 1. LOAD TRANSPORT GLOBAL --------------------- Choose the PackMan message containing this patch and invoke the INSTALL/CHECK MESSAGE PackMan option. 2. START UP KIDS ------------- Start up the Kernel Installation and Distribution System Menu [XPD MAIN]: Edits and Distribution ... Utilities ... Installation ... Select Kernel Installation & Distribution System Option: INStallation --- Load a Distribution Print Transport Global Compare Transport Global to Current System Verify Checksums in Transport Global Install Package(s) Restart Install of Package(s) Unload a Distribution Backup a Transport Global 3. Select Installation Option: --------------------------- NOTE: The following are OPTIONAL - (When prompted for the INSTALL NAME, enter IVM*2*139): a. Backup a Transport Global - This option will create a backup message of any routines exported with this patch. It will not backup any other changes such as DD's or templates. b. Compare Transport Global to Current System - This option will allow you to view all changes that will be made when this patch is installed. It compares all components of this patch (routines, DD's, templates, etc.). c. Verify Checksums in Transport Global - This option will allow you to ensure the integrity of the routines that are in the transport global. 4.Select Installation Option: Install Package(s) ------------------ **This is the step to start the installation of this KIDS patch: a. Choose the Install Package(s) option to start the patch install. b. When prompted 'Want KIDS to INHIBIT LOGONs during the install? YES//' answer NO c. When prompted 'Want to DISABLE Scheduled Options, Menu Options, and Protocols? YES//' answer YES d. When prompted 'Enter options you wish to mark as 'Out Of Order':' enter the following options: e. When prompted 'Enter protocols you wish to mark as 'Out Of Order':' press . 5. When the installation is complete, be sure to re-start the filers if you chose to stop them. Routine Information: ==================== The second line of each of these routines now looks like: ;;2.0;INCOME VERIFICATION MATCH;**[Patch List]**;21-OCT-94;Build 3 The checksums below are new checksums, and can be checked with CHECK1^XTSUMBLD. Routine Name: IVMCM2 Before: B19385978 After: B20142565 **17,105,115,139** Description of Changes: Before: IVMCM2 ;ALB/SEK,CKN,TDM - ADD NEW DCD DEPENDENT TO INCOME PERSON FILE ; 7/31 /08 2:26pm 2 ;;2.0;INCOME VERIFICATION MATCH;**17,105,115**;21-OCT-94;Build 28 After: IVMCM2 ;ALB/SEK,CKN,TDM - ADD NEW DCD DEPENDENT TO INCOME PERSON FILE ; 6/12 /09 12:16pm 2 ;;2.0;INCOME VERIFICATION MATCH;**17,105,115,139**;21-OCT-94;Build 28 Before: 79 N X,Y 80 S DGRP0ND=IVMSTR 81 S DGRP1ND=IVMSTR1 82 K DINUM 83 S (DIK,DIC)="^DGPR(408.13,",DIC(0)="L",DLAYGO=408.13,X=$P(DGRP0ND,"^" ) K DD,DO D FILE^DICN S (DGIPI,DA)=+Y K DLAYGO 84 ; 85 ; if can't create stub notify site & IVM Center 86 I DGIPI'>0 D Q 87 .S (IVMTEXT(6))="Can't create stub for file 408.13" 88 .D PROB^IVMCMC(IVMTEXT(6)) 89 .D ERRBULL^IVMPREC7,MAIL^IVMUFNC("DGMT MT/CT UPLOAD ALERTS") 90 .S IVMFERR="" 91 L +^DGPR(408.13,+DGIPI) S ^DGPR(408.13,+DGIPI,0)=DGRP0ND,^DGPR(408.13 ,+DGIPI,1)=DGRP1ND D IX1^DIK L -^DGPR(408.13,+DGIPI) 92 S IVMFLG2=1 ; added dep to 408.13 must add to 408.12 93 K DIK,DIC 94 Q After: 79 N X,Y 80 S DGRP0ND=IVMSTR 81 S DGRP1ND=IVMSTR1 82 K DINUM 83 N CNT,I S CNT=0 84 F I=2,3,9 D 85 .S CNT=CNT+1,$P(DIC("DR"),";",CNT)=".0"_I_"////"_$P(DGRP0ND,U,I) 86 F I=10,11 D 87 .S CNT=CNT+1,$P(DIC("DR"),";",CNT)="."_I_"////"_$P(DGRP0ND,U,I) 88 F I=1:1:8 S DIC("DR")=DIC("DR")_";1."_I_"////"_$P(DGRP1ND,U,I) 89 S (DIK,DIC)="^DGPR(408.13,",DIC(0)="L",DLAYGO=408.13,X=$P(DGRP0ND,"^" ) K DD,DO D FILE^DICN S (DGIPI,DA)=+Y K DLAYGO 90 ; 91 ; if can't create stub notify site & IVM Center 92 I DGIPI'>0 D Q 93 .S (IVMTEXT(6))="Can't create stub for file 408.13" 94 .D PROB^IVMCMC(IVMTEXT(6)) 95 .D ERRBULL^IVMPREC7,MAIL^IVMUFNC("DGMT MT/CT UPLOAD ALERTS") 96 .S IVMFERR="" 97 S IVMFLG2=1 ; added dep to 408.13 must add to 408.12 98 K DIK,DIC 99 Q Routine Name: IVMCM4 Before: B4317028 After: B5050426 **17,115,139** Description of Changes: Before: IVMCM4 ;ALB/SEK,ERC - ADD DCD NEW INDIVIDUAL ANNUAL INCOME FILE ENTRIES ; 5/ 6/08 2:01pm 2 ;;2.0;INCOME VERIFICATION MATCH;**17,115**;21-OCT-94;Build 25 After: IVMCM4 ;ALB/SEK,ERC - ADD DCD NEW INDIVIDUAL ANNUAL INCOME FILE ENTRIES ; 6/ 12/09 12:36pm 2 ;;2.0;INCOME VERIFICATION MATCH;**17,115,139**;21-OCT-94;Build 28 Before: 21 ; if can't create stub notify site & IVM Center 22 I DGINI'>0 D Q 23 .S (IVMTEXT(6),HLERR)="Can't create stub for file 408.21" 24 .D ERRBULL^IVMPREC7,MAIL^IVMUFNC("DGMT MT/CT UPLOAD ALERTS") 25 .S IVMFERR="" 26 ; EN1 ; add 1 node for vet & child After: 21 ; if can't create stub notify site & IVM Center 22 I DGINI'>0 D Q 23 .S (IVMTEXT(6),HLERR)="Can't create stub for file 408.21" 24 .D ERRBULL^IVMPREC7,MAIL^IVMUFNC("DGMT MT/CT UPLOAD ALERTS") 25 .S IVMFERR="" 26 ; 27 ; if can't lock stub notify site & IVM Center 28 L +^DGMT(408.21,DGINI):10 E D Q 29 .S (IVMTEXT(6),HLERR)="Can't update stub for file 408.21" 30 .D ERRBULL^IVMPREC7,MAIL^IVMUFNC("DGMT MT/CT UPLOAD ALERTS") 31 .S IVMFERR="" 32 ; EN1 ; add 1 node for vet & child Before: 36 ;IVM*2.0*115 37 L +^DGMT(408.21,DGINI) S $P(^DGMT(408.21,DGINI,0),"^",8,20)=IVM0,DA=D GINI S:IVMSPCHV'="S" ^(1)=IVM1 After: 42 ;IVM*2.0*115 43 S $P(^DGMT(408.21,DGINI,0),"^",8,20)=IVM0,DA=DGINI S:IVMSPCHV'="S" ^( 1)=IVM1 Routine Name: IVMUM4 Before: B4479688 After: B5278918 **1,8,17,115,139** Description of Changes: Before: IVMUM4 ;ALB/SEK - ADD NEW INDIVIDUAL ANNUAL INCOME FILE ENTRIES ; 19 MAY 94 2 ;;2.0;INCOME VERIFICATION MATCH;**1,8,17,115**;21-OCT-94;Build 25 After: IVMUM4 ;ALB/SEK - ADD NEW INDIVIDUAL ANNUAL INCOME FILE ENTRIES ; 6/12/09 12 :36pm 2 ;;2.0;INCOME VERIFICATION MATCH;**1,8,17,115,139**;21-OCT-94;Build 28 Before: 27 ; if can't create stub notify site & IVM Center 28 I DGINI'>0 D Q 29 . S (IVMTEXT(6),HLERR)="Can't create stub for file 408.21" 30 . D ERRBULL^IVMPREC7,MAIL^IVMUFNC() 31 . S IVMFERR="" 32 ; EN1 ; add 1 node for vet & child After: 27 ; if can't create stub notify site & IVM Center 28 I DGINI'>0 D Q 29 . S (IVMTEXT(6),HLERR)="Can't create stub for file 408.21" 30 . D ERRBULL^IVMPREC7,MAIL^IVMUFNC() 31 . S IVMFERR="" 32 ; 33 ; if can't lock stub notify site & IVM Center 34 L +^DGMT(408.21,DGINI):10 E D Q 35 .S (IVMTEXT(6),HLERR)="Can't update stub for file 408.21" 36 .D ERRBULL^IVMPREC7,MAIL^IVMUFNC("DGMT MT/CT UPLOAD ALERTS") 37 .S IVMFERR="" 38 ; EN1 ; add 1 node for vet & child Before: 39 ;IVM*2.0*115 40 L +^DGMT(408.21,DGINI) S $P(^DGMT(408.21,DGINI,0),"^",8,17)=IVM0,DA=D GINI S:IVMSPCHV'="S" ^(1)=IVM1 After: 45 ;IVM*2.0*115 46 S $P(^DGMT(408.21,DGINI,0),"^",8,17)=IVM0,DA=DGINI S:IVMSPCHV'="S" ^( 1)=IVM1 Routine list of preceding patches: 115 ============================================================================= User Information: Entered By : HARTLEY,PETER Date Entered : FEB 26, 2009 Completed By: SBERRO,SANDRA Date Completed: FEB 25, 2010 Released By : FITCH,DONNA Date Released : FEB 25, 2010 ============================================================================= Packman Mail Message: ===================== $END TXT