Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBY706PO

IBY706PO.m

Go to the documentation of this file.
  1. IBY706PO ;EDE/YMG - POST-INSTALL FOR IB*2.0*706 ;02-JUL-2021
  1. ;;2.0;INTEGRATED BILLING;**706**;21-MAR-94;Build 1
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. EN ; entry point
  1. D CANCEL
  1. Q
  1. ;
  1. CANCEL ; cancel copays with service dates between 04/06/2020 and 09/30/2021 (COVID relief)
  1. D MES^XPDUTL("Searching for medical copays to cancel...")
  1. D CANCEL^IBAMTC(3200301,3210930,2) ; start with entries added on 03/01/20 in order to catch all inpatient charges
  1. D MES^XPDUTL("Done.")
  1. Q