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

IBY714PO.m

Go to the documentation of this file.
  1. IBY714PO ;YMG/EDE - IB*2.0*714 POST INSTALL;;DEC 17 2021
  1. ;;2.0;Integrated Billing;**714**;21-MAR-94;Build 8
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. EN ; entry point
  1. D BMES^XPDUTL(" >> Starting the Post-Initialization routine for IB*2.0*714")
  1. D UPDCANC
  1. D BMES^XPDUTL(" >> End of the Post-Initialization routine for IB*2.0*714")
  1. Q
  1. ;
  1. UPDCANC ; update cancellation reason in file 350.3
  1. N FDA,IEN
  1. D MES^XPDUTL(" -> Updating Cancellation Reason in file 350.3...")
  1. S IEN=+$$FIND1^DIC(350.3,,"X","COMPACT","B")
  1. I IEN D
  1. .S FDA(350.3,IEN_",",.05)=2 ; UC visit processing
  1. .D FILE^DIE("","FDA")
  1. .Q
  1. D MES^XPDUTL(" Done.")
  1. Q