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

SD53726E.m

Go to the documentation of this file.
  1. SD53726E ;MNT/BJR - ENVIRONMENT CHECK WITH PRE-INIT CODE ;04/5/19 5:52pm
  1. ;;5.3;Scheduling;**726**;Aug 13, 1993;Build 36
  1. ;
  1. Q
  1. ;
  1. ;Calls to %ZIS supported by ICR #10086
  1. ;Call to BMES^XPDUTL supported by ICR #10141
  1. ;
  1. POS1 ; Ask device to print the Remap Clinic Report
  1. K DIR
  1. S %ZIS="QNM0" D ^%ZIS I POP D BMES^XPDUTL("This is a required response. Select a printer.") G POS1
  1. S XPDQUES("POS1")=ION
  1. D HOME^%ZIS
  1. Q