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

Package: Kernel

Routine: ZISETMSQ


Information

ZISETUPM ;BB,SF/GFT,AC - INITIALIZES DEVICE AND TERMINAL TYPES FOR INTERSYSTEMS;1/12/88 12:45 PM ;4/9/92 14:19

Source Information

Source file <ZISETMSQ.m>

Entry Points

Name Comments DBIA/ICR reference
QUES
SUB
A
X
DEVICE
C
EXIT
CHK
ADD
HLP ;HELP FOR PREFIX QUESTION

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS ROUTINE WILL TAKE INTERSYSTEMS TERMINAL AND SUBTYPE FILES",!,"(IN ^%IS) AND MOVE THEM TO THE ^%ZIS FILES.",!!
  • Line Location: ZISETMSQ+2
Function Call: READ
  • Prompt: "OK? "
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:60),!!
  • Line Location: ZISETMSQ+3
Function Call: READ
  • Variable: %ZISV1
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: "TERMINAL TYPES:",!
  • Line Location: SUB+1
Function Call: WRITE
  • Prompt: C,!
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !,C
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !!,"DEVICES:",!
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !!,"ALL SETUP"
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,"There must be a prefix for a new device"
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !,"becuase the Device Name and the $I cannot"
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !,"be the same."
  • Line Location: HLP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%IS( DEVICE+2, DEVICE+3, ADD+5
^%IS(0 A
^%ZIS ZISETUPM+4, EXIT
^%ZIS("C" C!*
^%ZIS(1 - [#3.5] ZISETUPM+5*, DEVICEDEVICE+3*, DEVICE+4, CHKCHK+1, ADDADD+1*, ADD+2*, ADD+3
ADD+4*, ADD+5*
^%ZIS(2 - [#3.2] SUBA+1, A+2, A+3*, A+4*, X+1, ADD+4
^%ZOSF("VOL" ZISETUPM+6
^DISV( QUES+1!

Label References

Name Line Occurrences
A A+2, A+5
ADD CHKCHK+1
CHK DEVICE+2
DEVICE A+1
EXIT ZISETUPM+3, QUES
HLP QUES
QUES QUES
X A+4

Naked Globals

Name Field # of Occurrence
^( A+2, DEVICE+2, DEVICE+3, ADD+3*, ADD+5
^("IOPAR" ADD+1*
^("SYS." ADD+2*
^("TYPE" ADD+1*
^("VOL" ZISETUPM+6
^(0 SUBA+1*, A+3*, DEVICEDEVICE+2, DEVICE+3, DEVICE+4*
^(1 A+2, A+3*, DEVICE+2, ADD+1*
^(5 X+1*
^(99 DEVICE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZISV ZISETUPM+6*, QUES, EXIT!, CHK+1, ADD+2, ADD+3
%ZISV1 QUES*, EXIT!, CHK+1
C SUB*, A*, A+1, A+2, A+3, A+5, DEVICE+2*, DEVICE+3*, DEVICE+4*, EXIT!
CHKCHK+1, ADD+1, ADD+2, ADD+3, ADD+4*
DTIME ZISETUPM+3, QUES
I DEVICE+2*, DEVICE+3*, EXIT!, CHKCHK+1, ADD+5
I1 EXIT!, CHK*, CHK+1*, ADDADD+1
L QUES+1*, SUB*, A+1, A+3*, A+4, DEVICE*, DEVICE+4, EXIT!, ADD*, ADD+1
ADD+2, ADD+3, ADD+4, ADD+5
N SUB*, A+1, A+3*, X+1, DEVICE*, DEVICE+4, EXIT!, ADD+1*
R A+1*, A+2*, A+3, EXIT!
U ZISETUPM+6*, SUBA+1, A+4, X+1, DEVICE*, DEVICE+3, DEVICE+4, CHKCHK+1
ADD+1, ADD+2, ADD+3, ADD+4
X ZISETUPM+3*, A+4*, XX+1*, DEVICE+2*, EXIT!, ADD+1, ADD+5*
Y DEVICE+2*, EXIT!
>> Z A+2*, A+4
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All