IBY763PO.m

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 ---IBY763PO   2601     printed  Mar 13, 2025@21:40:35                                                                                                                                                                                                    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       ;