SD53726E.m

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 ---SD53726E   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