- IBY737PO ;AITC/TAZ - Post-Installation for IB patch 737; JUL 25, 2022
- ;;2.0;INTEGRATED BILLING;**737**;MAR 21,1994;Build 19
- ;;Per VA Directive 6402, this routine should not be modified.
- ;
- ; Reference to ^XPDUTL in ICR #10141
- ; Reference to ^%ZTLOAD in ICR #10063
- ; Reference to ^XLFDT in ICR #10103
- Q
- ;
- POST ; POST-INSTALL
- N IBINSTLD,IBXPD,SITE,SITENAME,SITENUM,XPDIDTOT
- ; total number of work items
- S XPDIDTOT=1
- ;
- S SITE=$$SITE^VASITE,SITENAME=$P(SITE,U,2),SITENUM=$P(SITE,U,3)
- ;
- S IBINSTLD=$$INSTALDT^XPDUTL("IB*2.0*737","")
- D MES^XPDUTL("")
- ;
- D NEWINDX(1) ; populate new index 'BB' to PAYER file (#365.12) field .01 for full payer name.
- ;
- ;
- D MES^XPDUTL("") ; Displays the 'Done' message and finishes the progress bar
- D BMES^XPDUTL("POST-Install for IB*2.0*737 Completed.")
- Q
- ;============================
- ;
- NEWINDX(IBXPD) ; populate .01 field new BB index in file #365.12
- ;
- S IBXPD=$G(IBXPD),XPDIDTOT=$G(XPDIDTOT)
- D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
- D MES^XPDUTL("-------------")
- N DIK,X,Y
- S DIK(1)=".01^BB",DIK="^IBE(365.12,"
- D BMES^XPDUTL("Initializing the PAYER file (#365.12) .01 field 'BB' index")
- D ENALL2^DIK
- D MES^XPDUTL("The 'BB' index for PAYER file (#365.12) .01 field has been initialized")
- D BMES^XPDUTL("Populating the 'BB' index for the .01 field in the PAYER file (#365.12).")
- S DIK(1)=".01^BB",DIK="^IBE(365.12,"
- D ENALL^DIK
- D MES^XPDUTL("The .01 field 'BB' index in the PAYER file (#365.12) has been populated.")
- D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT_" Complete")
- D MES^XPDUTL("-------------")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY737PO 1625 printed Apr 23, 2025@18:49:54 Page 2
- IBY737PO ;AITC/TAZ - Post-Installation for IB patch 737; JUL 25, 2022
- +1 ;;2.0;INTEGRATED BILLING;**737**;MAR 21,1994;Build 19
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 ; Reference to ^XPDUTL in ICR #10141
- +5 ; Reference to ^%ZTLOAD in ICR #10063
- +6 ; Reference to ^XLFDT in ICR #10103
- +7 QUIT
- +8 ;
- POST ; POST-INSTALL
- +1 NEW IBINSTLD,IBXPD,SITE,SITENAME,SITENUM,XPDIDTOT
- +2 ; total number of work items
- +3 SET XPDIDTOT=1
- +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*737","")
- +8 DO MES^XPDUTL("")
- +9 ;
- +10 ; populate new index 'BB' to PAYER file (#365.12) field .01 for full payer name.
- DO NEWINDX(1)
- +11 ;
- +12 ;
- +13 ; Displays the 'Done' message and finishes the progress bar
- DO MES^XPDUTL("")
- +14 DO BMES^XPDUTL("POST-Install for IB*2.0*737 Completed.")
- +15 QUIT
- +16 ;============================
- +17 ;
- NEWINDX(IBXPD) ; populate .01 field new BB index in file #365.12
- +1 ;
- +2 SET IBXPD=$GET(IBXPD)
- SET XPDIDTOT=$GET(XPDIDTOT)
- +3 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
- +4 DO MES^XPDUTL("-------------")
- +5 NEW DIK,X,Y
- +6 SET DIK(1)=".01^BB"
- SET DIK="^IBE(365.12,"
- +7 DO BMES^XPDUTL("Initializing the PAYER file (#365.12) .01 field 'BB' index")
- +8 DO ENALL2^DIK
- +9 DO MES^XPDUTL("The 'BB' index for PAYER file (#365.12) .01 field has been initialized")
- +10 DO BMES^XPDUTL("Populating the 'BB' index for the .01 field in the PAYER file (#365.12).")
- +11 SET DIK(1)=".01^BB"
- SET DIK="^IBE(365.12,"
- +12 DO ENALL^DIK
- +13 DO MES^XPDUTL("The .01 field 'BB' index in the PAYER file (#365.12) has been populated.")
- +14 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT_" Complete")
- +15 DO MES^XPDUTL("-------------")
- +16 QUIT
