Routine: %ZIS5

Information

%ZIS5 ;SFISC/STAFF --DEVICE LOOK-UP ;08/30/2011

Source file <ZIS5.m>

Name	Comments	DBIA/ICR reference
A
B
G
X	;**P572 START CJM
F
TRY
T1
LSYN	;
S
S1
S2
T2
LST
L1
GOT
R	;
Q
ADD	;can't add to files
NO
NUM
1	;Entry point for Device lookup
2	;Entry point for Terminal type lookup
LD1	;Called from %ZIS7
L
LCPU
LC1
LC2
RESTART

Name	Line Occurrences
Function Call: READ	Variable: %XX Timeout: %ZISDTIM Line Location: B+0
Function Call: WRITE	Prompt: %DD,%DIY,"// " Line Location: B+0
Function Call: WRITE	Prompt: !,%DD Line Location: B+1
Function Call: WRITE	Prompt: ! Line Location: LST+1
Function Call: WRITE	Prompt: !,$J(%DZ,2)," ",$P(^%ZIS(%ZISDFN,%DS(%DZ),0),U,1) Line Location: LST+2
Function Call: WRITE	Prompt: " " Line Location: LST+2
Function Call: WRITE	Prompt: !?75-$L(X) Condition for execution: $X+$L($P(%,U))>74 Line Location: LST+4
Function Call: WRITE	Prompt: " "_$P(%,U) Line Location: LST+4
Function Call: WRITE	Prompt: !,"Type '^' to Stop, or" Condition for execution: %DIY Line Location: L1+0
Function Call: WRITE	Prompt: !,"Choose 1" Line Location: L1+0
Function Call: WRITE	Prompt: "-",%DS Condition for execution: %DS>1 Line Location: L1+0
Function Call: READ	Prompt: "> " Variable: %YY Timeout: %ZISDTIM Line Location: L1+1
Function Call: WRITE	Prompt: ! Line Location: L1+1
Function Call: WRITE	Prompt: ! Line Location: LD1+1
Function Call: WRITE	Prompt: $P(^%ZIS(1,%A,0),"^",1) Line Location: L+4
Function Call: WRITE	Prompt: " ",$P(^(1),"^",1) Condition for execution: $D(^(1)) Line Location: L+4
Function Call: WRITE	Prompt: " ** OUT OF SERVICE" Line Location: L+4
Function Call: READ	Prompt: "'^' TO STOP: " Variable: %Y Timeout: %ZISDTIM,! Line Location: L+5
Function Call: WRITE	Prompt: ?39 Line Location: L+5
Function Call: WRITE	Prompt: ! Line Location: L+5