Routine: %ZIS1

Information

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

Source Information

Source file <ZIS1.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	7	VTLKUP^%ZIS L2^%ZIS2 AQUE^%ZIS3 1^%ZIS5 (EN1,EN2)^%ZIS7 SYMBOL^%ZISUTL XS^ZISX

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 20

Package	Total	Caller Graph
Kernel	20	%ZIS %ZIS3 %ZIS6 %ZIS7 %ZISUTL ZIS4DTM ZIS4GTM ZIS4IS2 ZIS4MSM ZIS4MSQ ZIS4ONT ZIS4VXD ZISFDTM ZISFGTM ZISFIS2 ZISFMSM ZISFMSQ ZISFMVX ZISFONT ZISFVXD

Entry Points

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

External References

Name	Field # of Occurrence
VTLKUP^%ZIS	LKUP+15, LKUP+16
L2^%ZIS2	MAIN+2, L1+12
AQUE^%ZIS3	L1+1
1^%ZIS5	LKUP+17
EN1^%ZIS7	RD+2
EN2^%ZIS7	RD+1
SYMBOL^%ZISUTL	KILVAR+1
XS^ZISX	L1+10

Interaction Calls

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
Routine Call	%ZIS Line Location: LKUP+15 LKUP+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	MAIN+2, L1+7, L1+9, EXIT+6, R+2, LKUP+4, LKUP+5, LKUP+13, LKUP+14
^DISV(	LKUP+9, LKUP+10, SETVAR+5*
^XUTL("XQ"	EXIT+8*

Label References

Name	Line Occurrences
$$UP	IOP+1, RD+4
EX2	EXIT+1
EXIT	MAIN+2, L1+1, L1+3, L1+5, L1+8
G	L1+10
IOP	L1+4
KIL	SETVAR+13
KILVAR	EX2+2, SETVAR+1, SETVAR+2
L1	L1+5, L1+8, G
LKUP	L1+6
MSG1	L1+6
MSG2	L1+7
R	L1+4, RD+1, RD+2, RD+4
RYN	RYN+2
SBR	RD
SETQ	IOP+1, IOP+2, RD+4
SETVAR	EX2+2

Naked Globals

Name	Field # of Occurrence
^("^%ZIS(1,"	LKUP+9, LKUP+10
^(0	MAIN+2, L1+9, R+2
^(5	EXIT+6*
^(99	R+2, LKUP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	L1+1, LOW~, UP~, YN, RYN+1*, RYN+2, RYN+3
>> %A	MAIN+2, L1+6, L1+7, L1+9, R+1, R+2, RD, LKUP+3, LKUP+4, LKUP+5 , LKUP+9, LKUP+10, LKUP+13, LKUP+14, LKUP+15, LKUP+16, LKUP+17*
>> %E	MAIN+2, L1+2, L1+9, L1+10, R+2, LKUP+5, LKUP+15, LKUP+16, SETVAR+5
>> %H	MAIN+2, L1+2, LKUP+3
>> %I	KILVAR+4*
%IS	L1+2, IOP+2, KIL+3!
>> %X	IOP+1, IOP+2, RD, RD+1, RD+2, RD+3, RD+4, SETQ+1, SETQ+2, SETQ+3* , LKUP+2, LKUP+3, LKUP+5, LKUP+9, LKUP+10, LKUP+14, LKUP+16, LKUP+17, SBR+1, SBR+2* , RYN, RYN+1, RYN+2
%XX	LKUP+17~*
>> %Y	SETQ+1, SETQ+3
%YY	LKUP+17~
>> %Z	MAIN+2, L1+9, L1+11, SETVAR+2, SETVAR+7
>> %Z1	L1+9*, L1+11, EXIT+9
>> %Z91	SETVAR+7
%ZIS	L1+1, L1+2, L1+3, EXIT+7, EX2+1, EX2+2, IOP+2*, R, R+2, RD+3 , SETQ+2, SETQ+3, SETVAR+1, KIL+1, KIL+2, KIL+3!
%ZIS("A"	RD, SETQ+3*
%ZIS("B"	R+1
%ZIS("S"	L1+10
%ZIS("afn"	SETVAR+11
%ZISB	L1+1, SETQ+3, K2+1!
%ZISCHK	K2+1!
%ZISCPU	SETVAR+12, KILVAR+5, K2+1!
>> %ZISDTIM	SBR+1, RYN
%ZISHP	K2+1!
%ZISI	K2+1!
%ZISIO	K2+1!
%ZISIOBS	K2+2!
%ZISIOF	K2+2!
%ZISIOM	K2+1!
%ZISIOS	L1+7!, EXIT+5, EXIT+6, EXIT+7, EXIT+8, KIL+1!, K2+1!
%ZISIOSL	K2+2!
%ZISIOST	SETVAR+9, K2+2!
%ZISIOST(0	SETVAR+9, K2+2!
%ZISLOCK	EXIT+8, K2+3!
%ZISMY	LKUP+1*, K2+3!
%ZISOPAR	SETVAR+9, K2+2!
%ZISOPEN	K2+2!
%ZISOS	KIL+3!
%ZISQUIT	K2+3!
%ZISR	K2+1!
%ZISSIO	K2+2!
%ZISTO	K2+2!
%ZISTP	K2+2!
%ZISUPAR	SETVAR+9, K2+2!
%ZISV	KIL+3!
%ZISVT	IOP+1, RD, SETQ+3, LKUP+1, LKUP+4, LKUP+13, LKUP+14, LKUP+16*, K2+1!
%ZISX	K2+1!
>> %ZTYPE	EXIT+3, SETVAR+9
DTOUT	L1+5, G, RD+3, SBR+1!, RYN
DUOUT	L1+5, L1+6!, G, RD+3, SBR+1!, SBR+2*
DUZ	LKUP+9, LKUP+10, SETVAR+5
IO	EXIT+3, EXIT+5, EXIT+7, EXIT+9, RD+3, SETVAR+1, SETVAR+5
IO("HFSIO"	SETVAR+11!, KILVAR+5!
IO("HOME"	EXIT+7*
IO("OPEN"	KILVAR+5!
IO("P"	SETQ+1*
IO("Q"	L1+1!, EXIT+8, SETQ+3*, SETVAR+11
IO("S"	EXIT+3
IO("T"	KIL+2*
IO(0	EXIT+3, EXIT+7*, EX2+1, SETVAR+5
IO(1	EXIT+3, EXIT+5, EXIT+9*
>> IOBS	SETVAR+7*
IOCPU	SETVAR+12!, KILVAR+5
IOF	SETVAR+7, SETVAR+10, KILVAR+2*
>> IOHG	SETVAR+9*
IOM	SETVAR+7*
ION	SETVAR+2, SETVAR+7
IOP	MAIN+2, L1+1, L1+3, L1+4, L1+5, L1+8, L1+11, G, IOP+1, IOP+2! , SETQ+2, SETQ+3, SETQ+4, LKUP+2, LKUP+4, LKUP+5, MSG1, MSG2, SETVAR+5, KIL+3!
>> IOPAR	SETVAR+9*
IOS	KIL+1*!
IOSL	SETVAR+7, SETVAR+8
IOST	SETVAR+9*
IOST(0	SETVAR+9, KILVAR+2
>> IOT	SETVAR+9*
>> IOUPAR	SETVAR+9*
>> IOXY	SETVAR+7*
>> POP	L1+1, L1+2, L1+3, L1+5, L1+6, L1+7, L1+8, L1+10, G, EXIT+1 , EX2+2, RD+3, SETVAR+2, KIL+1
U	YN, RYN, RYN+3
>> XQNOGO	L1+3, R
Y	L1+10~*
ZISI	K2+1!
>> ZTQUEUED	EXIT+3

Customize PDF page

Package: Kernel