- 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 Feb 19, 2025@00:01:35 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