IBY631PO.m

IBY631PO ;AITC/TAZ - Post-Installation for IB patch 631; 22-MAY-2018

 ;;2.0;INTEGRATED BILLING;**631**;21-MAR-94;Build 23

 ;;Per VA Directive 6402, this routine should not be modified.

 ;

POST ; POST ROUTINE(S)

 N IBXPD,XPDIDTOT

 S XPDIDTOT=2

 ;

 ; Send site registration message to FSC

 D REGMSG(1)

 ; Change the description & acronym for PURCHASED CARE CHOICE in SOI file [#355.12]

 D CHGSOI(2)

 ;

 ; Displays the 'Done' message and finishes the progress bar

 D MES^XPDUTL("")

 D MES^XPDUTL("POST-Install Completed.")

 Q

 ;

REGMSG(IBXPD) ; send site registration message to FSC

 D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)

 D MES^XPDUTL("-------------")

 D MES^XPDUTL("Sending site registration message to FSC ... ")

 ;

 I '$$PROD^XUPROD(1) D MES^XPDUTL(" N/A - Not a production account - No site registration message sent") G REGMSGQ

 D MES^XPDUTL("Sending site registration message to FSC ... ")

 D ^IBCNEHLM

 ;

REGMSGQ ;

 Q

 ;

CHGSOI(IBXPD) ; change the PURCHASED CARE CHOICE description & acronym in SOI file.

 N IBDATA,IBDFDA,IBERROR,IBFILE

 D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)

 D MES^XPDUTL("-------------")

 D MES^XPDUTL("Changing Description & Acronym for PURCHASED CARE CHOICE (PCC)")

 D MES^XPDUTL("to COMMUNITY CARE NETWORK (CCN) in the SOI File [#355.12] ... ")

 ;

 ; Get the internal EIN for the SOI record to be changed in the #355.12 file.

 S IBDFDA=$$FIND1^DIC(355.12,"","X","PURCHASED CARE CHOICE","C")

 I 'IBDFDA D  G CHGSOIQ

 . D MES^XPDUTL(" The 'PURCHASED CARE CHOICE' does not exist in the SOI file [#355.12],")

 . D MES^XPDUTL(" ...Description and Acronym NOT CHANGED.")

 ; Change the description & acronym for the SOI record in the #355.12 file.

 S IBFILE=355.12,IBDATA(.02)="COMMUNITY CARE NETWORK",IBDATA(.03)="CCN"

 I $$UPD^IBDFDBS(IBFILE,IBDFDA,.IBDATA,.IBERROR) D  G CHGSOIQ

 . D MES^XPDUTL(" CHANGED the Description & Acronym for PURCHASED CARE CHOICE (PCC)")

 . D MES^XPDUTL("   in the SOI File to COMMUNITY CARE NETWORK (CCN).")

 ;

CHGSOIQ ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY631PO   2045     printed  Apr 09, 2024@21:35:46                                                                                                                                                                                                    Page 2

IBY631PO  ;AITC/TAZ - Post-Installation for IB patch 631; 22-MAY-2018

 +1       ;;2.0;INTEGRATED BILLING;**631**;21-MAR-94;Build 23

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;

POST      ; POST ROUTINE(S)

 +1        NEW IBXPD,XPDIDTOT

 +2        SET XPDIDTOT=2

 +3       ;

 +4       ; Send site registration message to FSC

 +5        DO REGMSG(1)

 +6       ; Change the description & acronym for PURCHASED CARE CHOICE in SOI file [#355.12]

 +7        DO CHGSOI(2)

 +8       ;

 +9       ; Displays the 'Done' message and finishes the progress bar

 +10       DO MES^XPDUTL("")

 +11       DO MES^XPDUTL("POST-Install Completed.")

 +12       QUIT 

 +13      ;

REGMSG(IBXPD) ; send site registration message to FSC

 +1        DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)

 +2        DO MES^XPDUTL("-------------")

 +3        DO MES^XPDUTL("Sending site registration message to FSC ... ")

 +4       ;

 +5        IF '$$PROD^XUPROD(1)

               DO MES^XPDUTL(" N/A - Not a production account - No site registration message sent")

               GOTO REGMSGQ

 +6        DO MES^XPDUTL("Sending site registration message to FSC ... ")

 +7        DO ^IBCNEHLM

 +8       ;

REGMSGQ   ;

 +1        QUIT 

 +2       ;

CHGSOI(IBXPD) ; change the PURCHASED CARE CHOICE description & acronym in SOI file.

 +1        NEW IBDATA,IBDFDA,IBERROR,IBFILE

 +2        DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)

 +3        DO MES^XPDUTL("-------------")

 +4        DO MES^XPDUTL("Changing Description & Acronym for PURCHASED CARE CHOICE (PCC)")

 +5        DO MES^XPDUTL("to COMMUNITY CARE NETWORK (CCN) in the SOI File [#355.12] ... ")

 +6       ;

 +7       ; Get the internal EIN for the SOI record to be changed in the #355.12 file.

 +8        SET IBDFDA=$$FIND1^DIC(355.12,"","X","PURCHASED CARE CHOICE","C")

 +9        IF 'IBDFDA

               Begin DoDot:1

 +10               DO MES^XPDUTL(" The 'PURCHASED CARE CHOICE' does not exist in the SOI file [#355.12],")

 +11               DO MES^XPDUTL(" ...Description and Acronym NOT CHANGED.")

               End DoDot:1

               GOTO CHGSOIQ

 +12      ; Change the description & acronym for the SOI record in the #355.12 file.

 +13       SET IBFILE=355.12

           SET IBDATA(.02)="COMMUNITY CARE NETWORK"

           SET IBDATA(.03)="CCN"

 +14       IF $$UPD^IBDFDBS(IBFILE,IBDFDA,.IBDATA,.IBERROR)

               Begin DoDot:1

 +15               DO MES^XPDUTL(" CHANGED the Description & Acronym for PURCHASED CARE CHOICE (PCC)")

 +16               DO MES^XPDUTL("   in the SOI File to COMMUNITY CARE NETWORK (CCN).")

               End DoDot:1

               GOTO CHGSOIQ

 +17      ;

CHGSOIQ   ;

 +1        QUIT 

 +2       ;