IBY736PO ;SAB/EDE - IB*2.0*736 POST INSTALL;03/10/20 2:10pm
;;2.0;Integrated Billing;**736**;21-Nov-22;Build 7
;Per VA Directive 6402, this routine should not be modified.
Q
;
EN ;Post Install for IB*2.0*709
D BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*709")
D SETPARAM
D BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*709")
Q
;
SETPARAM ; set default value for IB site parameter 350.9/71.02
N DA,DIE,DR,X,Y
D MES^XPDUTL("Setting default start date for COMPACT ACT Benefit in IB SITE PARAMETER file...")
S DA=1,DIE=350.9,DR="71.02///^S X=3230117" D ^DIE
D MES^XPDUTL("Done.")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY736PO 661 printed Nov 22, 2024@17:45:17 Page 2
IBY736PO ;SAB/EDE - IB*2.0*736 POST INSTALL;03/10/20 2:10pm
+1 ;;2.0;Integrated Billing;**736**;21-Nov-22;Build 7
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
EN ;Post Install for IB*2.0*709
+1 DO BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*709")
+2 DO SETPARAM
+3 DO BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*709")
+4 QUIT
+5 ;
SETPARAM ; set default value for IB site parameter 350.9/71.02
+1 NEW DA,DIE,DR,X,Y
+2 DO MES^XPDUTL("Setting default start date for COMPACT ACT Benefit in IB SITE PARAMETER file...")
+3 SET DA=1
SET DIE=350.9
SET DR="71.02///^S X=3230117"
DO ^DIE
+4 DO MES^XPDUTL("Done.")
+5 QUIT
+6 ;
