- IB20P530 ;ALB/TJB - IB*2.0*530 FY-14 Updates to FILE 361.1 ;04/02/2015
- ;;2.0;INTEGRATED BILLING;**530**;21-MAR-94;Build 71
- ;;Per VA Directive 6402, this routine should not be modified.
- Q
- ;
- POST ; Post-install of patch installation
- D MES^XPDUTL("IB*2.0*530 Post-Install starts...")
- D RIDX
- D MES^XPDUTL("IB*2.0*530 Post-Install is complete.")
- Q
- ;
- RIDX ; Index ^IBM(361.1) for the new index on field .03 (PAYER ID),
- ; field .06 (EOB PAID DATE) and the fixed "ATRID" index on .03, .04 and .07 fields
- N DIK
- ;
- D MES^XPDUTL(" >> Removing old ""D"", ""E"", ""ATRID"" and ""AD"" xref for file 361.1 ...")
- K ^IBM(361.1,"D") ; Remove PAYER ID index
- K ^IBM(361.1,"E") ; Remove EOB PAID DATE index
- K ^IBM(361.1,"ATRID") ; Remove ATRID compound index
- K ^IBM(361.1,"AD") ; Remove AD index
- D MES^XPDUTL(" >> Rebuilding ""D"" xref for file 361.1 ...")
- ; Now index EOB PAID DATE, PAYER ID, ATRID and AD (.05) index
- S DIK(1)=".03^D",DIK="^IBM(361.1," D ENALL^DIK
- D MES^XPDUTL(" >> Completed Rebuilding ""D"" xref for file 361.1 ...")
- D MES^XPDUTL(" >> Rebuilding ""E"" xref for file 361.1 ...")
- S DIK(1)=".06^E",DIK="^IBM(361.1," D ENALL^DIK
- D MES^XPDUTL(" >> Completed Rebuilding ""E"" xref for file 361.1 ...")
- D MES^XPDUTL(" >> Rebuilding ""ATRID"" xref for file 361.1 ...")
- S DIK(1)=".03^ATRID",DIK="^IBM(361.1," D ENALL^DIK
- D MES^XPDUTL(" >> Completed Rebuilding ""ATRID"" xref for file 361.1 ...")
- S DIK(1)=".05^AD",DIK="^IBM(361.1," D ENALL^DIK
- D MES^XPDUTL(" >> Completed Rebuilding ""AD"" xref for file 361.1 ...")
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P530 1616 printed Feb 18, 2025@23:29:51 Page 2
- IB20P530 ;ALB/TJB - IB*2.0*530 FY-14 Updates to FILE 361.1 ;04/02/2015
- +1 ;;2.0;INTEGRATED BILLING;**530**;21-MAR-94;Build 71
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 QUIT
- +4 ;
- POST ; Post-install of patch installation
- +1 DO MES^XPDUTL("IB*2.0*530 Post-Install starts...")
- +2 DO RIDX
- +3 DO MES^XPDUTL("IB*2.0*530 Post-Install is complete.")
- +4 QUIT
- +5 ;
- RIDX ; Index ^IBM(361.1) for the new index on field .03 (PAYER ID),
- +1 ; field .06 (EOB PAID DATE) and the fixed "ATRID" index on .03, .04 and .07 fields
- +2 NEW DIK
- +3 ;
- +4 DO MES^XPDUTL(" >> Removing old ""D"", ""E"", ""ATRID"" and ""AD"" xref for file 361.1 ...")
- +5 ; Remove PAYER ID index
- KILL ^IBM(361.1,"D")
- +6 ; Remove EOB PAID DATE index
- KILL ^IBM(361.1,"E")
- +7 ; Remove ATRID compound index
- KILL ^IBM(361.1,"ATRID")
- +8 ; Remove AD index
- KILL ^IBM(361.1,"AD")
- +9 DO MES^XPDUTL(" >> Rebuilding ""D"" xref for file 361.1 ...")
- +10 ; Now index EOB PAID DATE, PAYER ID, ATRID and AD (.05) index
- +11 SET DIK(1)=".03^D"
- SET DIK="^IBM(361.1,"
- DO ENALL^DIK
- +12 DO MES^XPDUTL(" >> Completed Rebuilding ""D"" xref for file 361.1 ...")
- +13 DO MES^XPDUTL(" >> Rebuilding ""E"" xref for file 361.1 ...")
- +14 SET DIK(1)=".06^E"
- SET DIK="^IBM(361.1,"
- DO ENALL^DIK
- +15 DO MES^XPDUTL(" >> Completed Rebuilding ""E"" xref for file 361.1 ...")
- +16 DO MES^XPDUTL(" >> Rebuilding ""ATRID"" xref for file 361.1 ...")
- +17 SET DIK(1)=".03^ATRID"
- SET DIK="^IBM(361.1,"
- DO ENALL^DIK
- +18 DO MES^XPDUTL(" >> Completed Rebuilding ""ATRID"" xref for file 361.1 ...")
- +19 SET DIK(1)=".05^AD"
- SET DIK="^IBM(361.1,"
- DO ENALL^DIK
- +20 DO MES^XPDUTL(" >> Completed Rebuilding ""AD"" xref for file 361.1 ...")
- +21 QUIT
- +22 ;