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 ---[H[J[2J[HIBY631PO 2045 printed Sep 15, 2024@21:58:52 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 ;