IBY703PO ;EDE/YMG - POST-INSTALL FOR IB*2.0*703 ;12-MAY-2021
;;2.0;INTEGRATED BILLING;**703**;21-MAR-94;Build 5
;;Per VA Directive 6402, this routine should not be modified.
;
Q
;
EN ; entry point
D SETPARAM
D CANCEL
Q
;
SETPARAM ; set default value for IB site parameter 350.9/71.01
N DA,DIE,DR,X,Y
D MES^XPDUTL("Setting default end date for COVID-19 relief in IB SITE PARAMETER file...")
S DA=1,DIE=350.9,DR="71.01///^S X=3210930" D ^DIE
D MES^XPDUTL("Done.")
Q
;
CANCEL ; cancel copays with service dates between 04/06/2020 and 09/30/2021 (COVID relief)
D MES^XPDUTL("Searching for medical copays to cancel...")
D CANCEL^IBAMTC(3200301,3210930,2) ; start with entries added on 03/01/20 in order to catch all inpatient charges
D MES^XPDUTL("Done.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY703PO 796 printed Dec 13, 2024@02:35:06 Page 2
IBY703PO ;EDE/YMG - POST-INSTALL FOR IB*2.0*703 ;12-MAY-2021
+1 ;;2.0;INTEGRATED BILLING;**703**;21-MAR-94;Build 5
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
EN ; entry point
+1 DO SETPARAM
+2 DO CANCEL
+3 QUIT
+4 ;
SETPARAM ; set default value for IB site parameter 350.9/71.01
+1 NEW DA,DIE,DR,X,Y
+2 DO MES^XPDUTL("Setting default end date for COVID-19 relief in IB SITE PARAMETER file...")
+3 SET DA=1
SET DIE=350.9
SET DR="71.01///^S X=3210930"
DO ^DIE
+4 DO MES^XPDUTL("Done.")
+5 QUIT
+6 ;
CANCEL ; cancel copays with service dates between 04/06/2020 and 09/30/2021 (COVID relief)
+1 DO MES^XPDUTL("Searching for medical copays to cancel...")
+2 ; start with entries added on 03/01/20 in order to catch all inpatient charges
DO CANCEL^IBAMTC(3200301,3210930,2)
+3 DO MES^XPDUTL("Done.")
+4 QUIT
