- SD53726E ;MNT/BJR - ENVIRONMENT CHECK WITH PRE-INIT CODE ;04/5/19 5:52pm
- ;;5.3;Scheduling;**726**;Aug 13, 1993;Build 36
- ;
- Q
- ;
- ;Calls to %ZIS supported by ICR #10086
- ;Call to BMES^XPDUTL supported by ICR #10141
- ;
- POS1 ; Ask device to print the Remap Clinic Report
- K DIR
- S %ZIS="QNM0" D ^%ZIS I POP D BMES^XPDUTL("This is a required response. Select a printer.") G POS1
- S XPDQUES("POS1")=ION
- D HOME^%ZIS
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53726E 431 printed Feb 19, 2025@00:11:52 Page 2
- SD53726E ;MNT/BJR - ENVIRONMENT CHECK WITH PRE-INIT CODE ;04/5/19 5:52pm
- +1 ;;5.3;Scheduling;**726**;Aug 13, 1993;Build 36
- +2 ;
- +3 QUIT
- +4 ;
- +5 ;Calls to %ZIS supported by ICR #10086
- +6 ;Call to BMES^XPDUTL supported by ICR #10141
- +7 ;
- POS1 ; Ask device to print the Remap Clinic Report
- +1 KILL DIR
- +2 SET %ZIS="QNM0"
- DO ^%ZIS
- IF POP
- DO BMES^XPDUTL("This is a required response. Select a printer.")
- GOTO POS1
- +3 SET XPDQUES("POS1")=ION
- +4 DO HOME^%ZIS
- +5 QUIT