IBY736PO.m

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 ---IBY736PO   661     printed  Apr 09, 2024@21:17:14                                                                                                                                                                                                     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       ;