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

IB20E583.m

Go to the documentation of this file.
  1. IB20E583 ;ALB/RRA - ENVIRONMENT CHECK WITH PRE-INIT CODE ; 10/27/2015 12:50pm
  1. ;;2.0;INTEGRATED BILLING;**583**;21-MAR-94;Build 5
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. ;
  1. POS1 ; Ask if user wants to print or update and print if "APRIOR" X-ref is
  1. ; set for 12/1/2015.
  1. I '$D(^IBA(354.1,"APRIOR",3151201)) K DIR Q
  1. D MES^XPDUTL("There are exemptions that were based on the threshold values")
  1. D MES^XPDUTL("over a year old. You can Print a list of patients with old ")
  1. D MES^XPDUTL("exemptions, or automatically Update while printing the same")
  1. D MES^XPDUTL("list. This will take place in the post initialization process.")
  1. Q
  1. ;
  1. ;
  1. POS2 ; Ask device to print the report to, if "APRIOR" X-ref is set for 12/1/15.
  1. I '$D(^IBA(354.1,"APRIOR",3151201)) K DIR Q
  1. K DIR
  1. S %ZIS="QNM0" D ^%ZIS I POP D BMES^XPDUTL("This is a required response. Select a printer.") G POS2
  1. S XPDQUES("POS2")=ION
  1. D HOME^%ZIS
  1. Q