IBY706PO ;EDE/YMG - POST-INSTALL FOR IB*2.0*706 ;02-JUL-2021
;;2.0;INTEGRATED BILLING;**706**;21-MAR-94;Build 1
;;Per VA Directive 6402, this routine should not be modified.
;
Q
;
EN ; entry point
D CANCEL
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[HIBY706PO 525 printed Dec 13, 2024@02:35:06 Page 2
IBY706PO ;EDE/YMG - POST-INSTALL FOR IB*2.0*706 ;02-JUL-2021
+1 ;;2.0;INTEGRATED BILLING;**706**;21-MAR-94;Build 1
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
EN ; entry point
+1 DO CANCEL
+2 QUIT
+3 ;
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
