Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: %ZIS1

Package: Kernel

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

Caller Graph Total: 16

Package Total Caller Graph
Kernel 16 %ZIS  %ZIS3  %ZIS6  %ZIS7  %ZISUTL  ZIS4  ZIS4DTM  ZIS4GTM  
ZIS4MSM  ZIS4MSQ  ZIS4ONT  ZIS4VXD  ZISFGTM  ZISFMSM  ZISFONT  ZISFVXD  

Entry Points

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

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
  • Timeout: %ZISDTIM
  • Variable: %X
  • 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
  • Timeout: %ZISDTIM
  • Variable: %X
  • 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All