IBY836PO ;AITC/CKB - Post-Installation for IB patch 836 ; 13-NOV-2025
;;2.0;INTEGRATED BILLING;**836**;21-MAR-94;Build 12
;;Per VA Directive 6402, this routine should not be modified.
;
; Reference to ^XPDUTL in ICR #10141
; Reference to ^XUPROD in ICR #4440
;
Q
;
POST ; POST-INSTALL
N IBXPD,SITE,SITENUM,XPDIDTOT
; total number of work items
S XPDIDTOT=2
;
S SITE=$$SITE^VASITE,SITENUM=$P(SITE,U,3)
D MES^XPDUTL("")
;
D SETDEF(1) ; Set default for field FUTURE EFFECT DATE PROCESSING (#350.9,54.06) to '0' for 'NO'
;
D SITEREG(2,SITENUM) ; Send site registration message to FSC
;
D MES^XPDUTL("") ; Displays the 'Done' message and finishes the progress bar
D MES^XPDUTL("POST-Install for IB*2.0*836 Completed.")
Q
;================================
;
SETDEF(IBXPD) ;Set default for FUTURE EFFECT DATE PROCESSING field #350.9,54.06 to '0' for 'NO'.
;
D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
D MES^XPDUTL("-------------")
D MES^XPDUTL("Set default for field FUTURE EFFECT DATE PROCESSING (#350.9,54.06) ... ")
;
N IBDFDA,DATA,ENABLED,MSG
S ENABLED=$$GET1^DIQ(350.9,"1,",54.06)
I ENABLED'="" S MSG="FUTURE EFFECT DATE PROCESSING is already set." G SETDEFQ
S IBDFDA=1
S DATA(54.06)=0
D UPD^IBDFDBS(350.9,.IBDFDA,.DATA)
S MSG="FUTURE EFFECT DATE PROCESSING default set to 0 for 'NO'."
SETDEFQ ;
D MES^XPDUTL(MSG)
Q
;================================
;
SITEREG(IBXPD,SITENUM) ; send site registration message to FSC
D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
D MES^XPDUTL("-------------")
D MES^XPDUTL("Send eIV site registration message to FSC ... ")
;
I '$$PROD^XUPROD(1) D MES^XPDUTL("N/A - Not a production account - No site registration message sent") G SITEREGQ
I SITENUM=358 D MES^XPDUTL("Current Site is MANILA - NO eIV site registration message sent") G SITEREGQ
D ^IBCNEHLM
D MES^XPDUTL("eIV site registration message was successfully sent")
;
SITEREGQ ;
Q
;================================
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY836PO 2017 printed Sep 17, 2026@21:22:24 Page 2
IBY836PO ;AITC/CKB - Post-Installation for IB patch 836 ; 13-NOV-2025
+1 ;;2.0;INTEGRATED BILLING;**836**;21-MAR-94;Build 12
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; Reference to ^XPDUTL in ICR #10141
+5 ; Reference to ^XUPROD in ICR #4440
+6 ;
+7 QUIT
+8 ;
POST ; POST-INSTALL
+1 NEW IBXPD,SITE,SITENUM,XPDIDTOT
+2 ; total number of work items
+3 SET XPDIDTOT=2
+4 ;
+5 SET SITE=$$SITE^VASITE
SET SITENUM=$PIECE(SITE,U,3)
+6 DO MES^XPDUTL("")
+7 ;
+8 ; Set default for field FUTURE EFFECT DATE PROCESSING (#350.9,54.06) to '0' for 'NO'
DO SETDEF(1)
+9 ;
+10 ; Send site registration message to FSC
DO SITEREG(2,SITENUM)
+11 ;
+12 ; Displays the 'Done' message and finishes the progress bar
DO MES^XPDUTL("")
+13 DO MES^XPDUTL("POST-Install for IB*2.0*836 Completed.")
+14 QUIT
+15 ;================================
+16 ;
SETDEF(IBXPD) ;Set default for FUTURE EFFECT DATE PROCESSING field #350.9,54.06 to '0' for 'NO'.
+1 ;
+2 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
+3 DO MES^XPDUTL("-------------")
+4 DO MES^XPDUTL("Set default for field FUTURE EFFECT DATE PROCESSING (#350.9,54.06) ... ")
+5 ;
+6 NEW IBDFDA,DATA,ENABLED,MSG
+7 SET ENABLED=$$GET1^DIQ(350.9,"1,",54.06)
+8 IF ENABLED'=""
SET MSG="FUTURE EFFECT DATE PROCESSING is already set."
GOTO SETDEFQ
+9 SET IBDFDA=1
+10 SET DATA(54.06)=0
+11 DO UPD^IBDFDBS(350.9,.IBDFDA,.DATA)
+12 SET MSG="FUTURE EFFECT DATE PROCESSING default set to 0 for 'NO'."
SETDEFQ ;
+1 DO MES^XPDUTL(MSG)
+2 QUIT
+3 ;================================
+4 ;
SITEREG(IBXPD,SITENUM) ; send site registration message to FSC
+1 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
+2 DO MES^XPDUTL("-------------")
+3 DO MES^XPDUTL("Send eIV 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 SITEREGQ
+6 IF SITENUM=358
DO MES^XPDUTL("Current Site is MANILA - NO eIV site registration message sent")
GOTO SITEREGQ
+7 DO ^IBCNEHLM
+8 DO MES^XPDUTL("eIV site registration message was successfully sent")
+9 ;
SITEREGQ ;
+1 QUIT
+2 ;================================
