Routine: %ZIS1

Information

%ZIS1 ;SFISC/AC,RWF -- DEVICE HANDLER (DEVICE INPUT) ;08/30/2011

Source file <ZIS1.m>

Name	Comments	DBIA/ICR reference
MAIN	;Called from %ZIS with a GOTO
L1	;Main Device Lookup Loop
G
EXIT	;
EX2	;
IOP	;Request with IOP set
R
RD
SETQ	;User wants to queue output
LKUP	;Lookup device name
SBR	;Read Sub-routine, Output %X
LOW(%)
UP(%)
YN
RYN
MSG1
MSG2
SETVAR	;Come here to setup the variables for the selected device
KILVAR	;Come here to restore the calling variables
KIL	;Final exit cleanup
K2	;Called from %ZIS

Name	Line Occurrences
Function Call: WRITE	Prompt: %X Line Location: IOP+2
Function Call: WRITE	Prompt: !,$C(7),"at this time, Output MUST be QUEUED" Line Location: R+0
Function Call: WRITE	Prompt: !,$S($D(%ZIS("A")):%ZIS("A"),1:"DEVICE: ") Line Location: RD+0
Function Call: WRITE	Prompt: %A,"// " Condition for execution: %A]"" Line Location: RD+0
Function Call: WRITE	Prompt: "UEUE TO PRINT ON" Line Location: SETQ+4
Function Call: READ	Variable: %X Timeout: %ZISDTIM Line Location: SBR+1
Function Call: WRITE	Prompt: $C(7) Line Location: SBR+1
Function Call: WRITE	Prompt: "? ",$P("Yes// ^No// ",U,%) Line Location: YN+0
Function Call: READ	Variable: %X Timeout: %ZISDTIM Line Location: RYN+0
Function Call: WRITE	Prompt: $C(7) Line Location: RYN+0
Function Call: WRITE	Prompt: $C(7),"??",!?4,"ANSWER 'Yes' OR 'No': " Line Location: RYN+2
Function Call: WRITE	Prompt: ! Condition for execution: $X>73 Line Location: RYN+3
Function Call: WRITE	Prompt: $P(" (Yes)^ (No)",U,%) Line Location: RYN+3
Function Call: WRITE	Prompt: ?20,$C(7)," [DEVICE DOES NOT EXIST]" Line Location: MSG1+0
Function Call: WRITE	Prompt: ?20,$C(7)," [DEVICE FILE ERROR]" Line Location: MSG2+0