IBY763PO ;AITC/CKB - Post-Installation for IB patch 763; JUN 12, 2023
;;2.0;INTEGRATED BILLING;**763**;MAR 21,1994;Build 29
;;Per VA Directive 6402, this routine should not be modified.
;
; Reference to ^XPDUTL in ICR #10141
Q
;
POST ; POST-INSTALL
N IBINSTLD,IBXPD,SITE,SITENAME,SITENUM,XPDIDTOT
; total number of work items
S XPDIDTOT=2
;
S SITE=$$SITE^VASITE,SITENAME=$P(SITE,U,2),SITENUM=$P(SITE,U,3)
;
S IBINSTLD=$$INSTALDT^XPDUTL("IB*2.0*763","")
D MES^XPDUTL("")
;
; Populate new index 'LAST' to PLAN COVERAGE LIMITATIONS file (#355.32) field 1.04
D NEWINDX(1)
;
; Initialize the Insurance Import Enabled (#350.9,54.01) field.
D INIT3509(2)
;
D MES^XPDUTL("") ; Displays the 'Done' message and finishes the progress bar
D BMES^XPDUTL("POST-Install for IB*2.0*763 Completed.")
Q
;============================
;
NEWINDX(IBXPD) ; populate 1.04 field new LAST index in file #355.32
;
S IBXPD=$G(IBXPD),XPDIDTOT=$G(XPDIDTOT)
D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
D MES^XPDUTL("-------------")
; Only Initialize and Populate the 'LAST' index if the index doesn't exist
I $D(^IBA(355.32,"LAST")) D G NEWEXIT
. D MES^XPDUTL("The 'LAST' index in the PLAN COVERAGE LIMITATIONS file (#355.32) has already been populated.")
;
N DIK,X,Y
S DIK(1)="1.04^LAST",DIK="^IBA(355.32,"
D BMES^XPDUTL("Initializing the 'LAST' index for PLAN COVERAGE LIMITATIONS file (#355.32) 1.04 field.")
D ENALL2^DIK
D MES^XPDUTL("The 'LAST' index for PLAN COVERAGE LIMITATIONS file (#355.32) 1.04 field has been initialized.")
D BMES^XPDUTL("Populating the 'LAST' index for the PLAN COVERAGE LIMITATIONS file (#355.32) 1.04 field.")
S DIK(1)="1.04^LAST",DIK="^IBA(355.32,"
D ENALL^DIK
D MES^XPDUTL("The 'LAST' index in the PLAN COVERAGE LIMITATIONS file (#355.32) 1.04 field has been populated.")
;
NEWEXIT ;
D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT_" Complete")
D MES^XPDUTL("-------------")
Q
;
INIT3509(IBXPD) ;Initialize the Insurance Import Enabled (#350.9,54.01) field.
S IBXPD=$G(IBXPD),XPDIDTOT=$G(XPDIDTOT)
D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
D MES^XPDUTL("-------------")
N DA,DIE,DR
;
I $$GET1^DIQ(350.9,"1,",54.01)'="" D G INIT3509X
. D BMES^XPDUTL("Insurance Import Enabled (#350.9,54.01) field was previously initialized.")
;
D BMES^XPDUTL("Initializing the Insurance Import Enabled (#350.9,54.01) field.")
S DR="54.01///1",DA=1,DIE=350.9
D ^DIE
;
INIT3509X ;
D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT_" Complete")
D MES^XPDUTL("-------------")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY763PO 2601 printed Dec 13, 2024@02:35:25 Page 2
IBY763PO ;AITC/CKB - Post-Installation for IB patch 763; JUN 12, 2023
+1 ;;2.0;INTEGRATED BILLING;**763**;MAR 21,1994;Build 29
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; Reference to ^XPDUTL in ICR #10141
+5 QUIT
+6 ;
POST ; POST-INSTALL
+1 NEW IBINSTLD,IBXPD,SITE,SITENAME,SITENUM,XPDIDTOT
+2 ; total number of work items
+3 SET XPDIDTOT=2
+4 ;
+5 SET SITE=$$SITE^VASITE
SET SITENAME=$PIECE(SITE,U,2)
SET SITENUM=$PIECE(SITE,U,3)
+6 ;
+7 SET IBINSTLD=$$INSTALDT^XPDUTL("IB*2.0*763","")
+8 DO MES^XPDUTL("")
+9 ;
+10 ; Populate new index 'LAST' to PLAN COVERAGE LIMITATIONS file (#355.32) field 1.04
+11 DO NEWINDX(1)
+12 ;
+13 ; Initialize the Insurance Import Enabled (#350.9,54.01) field.
+14 DO INIT3509(2)
+15 ;
+16 ; Displays the 'Done' message and finishes the progress bar
DO MES^XPDUTL("")
+17 DO BMES^XPDUTL("POST-Install for IB*2.0*763 Completed.")
+18 QUIT
+19 ;============================
+20 ;
NEWINDX(IBXPD) ; populate 1.04 field new LAST index in file #355.32
+1 ;
+2 SET IBXPD=$GET(IBXPD)
SET XPDIDTOT=$GET(XPDIDTOT)
+3 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
+4 DO MES^XPDUTL("-------------")
+5 ; Only Initialize and Populate the 'LAST' index if the index doesn't exist
+6 IF $DATA(^IBA(355.32,"LAST"))
Begin DoDot:1
+7 DO MES^XPDUTL("The 'LAST' index in the PLAN COVERAGE LIMITATIONS file (#355.32) has already been populated.")
End DoDot:1
GOTO NEWEXIT
+8 ;
+9 NEW DIK,X,Y
+10 SET DIK(1)="1.04^LAST"
SET DIK="^IBA(355.32,"
+11 DO BMES^XPDUTL("Initializing the 'LAST' index for PLAN COVERAGE LIMITATIONS file (#355.32) 1.04 field.")
+12 DO ENALL2^DIK
+13 DO MES^XPDUTL("The 'LAST' index for PLAN COVERAGE LIMITATIONS file (#355.32) 1.04 field has been initialized.")
+14 DO BMES^XPDUTL("Populating the 'LAST' index for the PLAN COVERAGE LIMITATIONS file (#355.32) 1.04 field.")
+15 SET DIK(1)="1.04^LAST"
SET DIK="^IBA(355.32,"
+16 DO ENALL^DIK
+17 DO MES^XPDUTL("The 'LAST' index in the PLAN COVERAGE LIMITATIONS file (#355.32) 1.04 field has been populated.")
+18 ;
NEWEXIT ;
+1 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT_" Complete")
+2 DO MES^XPDUTL("-------------")
+3 QUIT
+4 ;
INIT3509(IBXPD) ;Initialize the Insurance Import Enabled (#350.9,54.01) field.
+1 SET IBXPD=$GET(IBXPD)
SET XPDIDTOT=$GET(XPDIDTOT)
+2 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
+3 DO MES^XPDUTL("-------------")
+4 NEW DA,DIE,DR
+5 ;
+6 IF $$GET1^DIQ(350.9,"1,",54.01)'=""
Begin DoDot:1
+7 DO BMES^XPDUTL("Insurance Import Enabled (#350.9,54.01) field was previously initialized.")
End DoDot:1
GOTO INIT3509X
+8 ;
+9 DO BMES^XPDUTL("Initializing the Insurance Import Enabled (#350.9,54.01) field.")
+10 SET DR="54.01///1"
SET DA=1
SET DIE=350.9
+11 DO ^DIE
+12 ;
INIT3509X ;
+1 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT_" Complete")
+2 DO MES^XPDUTL("-------------")
+3 QUIT
+4 ;
