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 |  Marked Items  | All
Print Page as PDF
Routine: ZISETONT

Package: Kernel

Routine: ZISETONT


Information

ZISETONT ;SF/AC - INITIALIZES DEVICE AND TERMINAL TYPES FOR INTERSYSTEMS ;03/05/97 16:51

Source Information

Source file <ZISETONT.m>

Entry Points

Name Comments DBIA/ICR reference
QUES ;I %ZISV]"" W !,"Please Enter a Prefix for New Devices: "_%ZISV_"//" R %ZISV1:$S($D(DTIME):DTIME,1:300) G EXIT:%ZISV1="^"!'$T S:%ZISV1="" %ZISV1=%ZISV I %ZISV1?1"?"."?" D HLP G QUES
BASIC ;Load some basic devices
BX ;;Principal device;|TNT|;1;TRM;C-VT102
SUB
A
X
DEVICE
C
EXIT
CHK
ADDDEV(IS) ;Add an entry to the device file
HLP ;HELP FOR PREFIX QUESTION

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This routine will setup some defaults for intersystems OpenM for NT.",!,"in the ^%ZIS files.",!!
  • Line Location: ZISETONT+2
Function Call: WRITE
  • Prompt: !!,"The device file is missing, Please install Kernel frist"
  • Line Location: ZISETONT+3
Function Call: WRITE
  • Prompt: !!,"The Subtype file is missing, Please install Kernel frist"
  • Line Location: ZISETONT+4
Function Call: WRITE
  • Prompt: !,"Then run this routine again."
  • Line Location: ZISETONT+5
Function Call: READ
  • Prompt: "OK? "
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:60),!!
  • Line Location: ZISETONT+6
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
^%IS(0 A
^%ZIS( ZISETONT+7, EXIT
^%ZIS("C" C!*
^%ZIS(1 - [#3.5] ZISETONT+3, ZISETONT+8*, DEVICEDEVICE+3*, DEVICE+4, CHKCHK+1, ADDDEV+1, ADDDEV+3*, ADDDEV+4*
, ADDDEV+5, ADDDEV+6*
^%ZIS(2 - [#3.2] ZISETONT+4, ZISETONT+8*, SUBA+1, A+2, A+3*, A+4*, X+1, ADDDEV+6
^%ZOSF("VOL" ZISETONT+9
^DISV( QUES+1!

Label References

Name Line Occurrences
A A+2, A+5
ADD CHKCHK+1
ADDDEV BASIC+3
CHK DEVICE+2
DEVICE A+1
EXIT ZISETONT+6
X A+4

Naked Globals

Name Field # of Occurrence
^( A+2, DEVICE+2, DEVICE+3, ADDDEV+5*
^("SYS." ADDDEV+4*
^("TYPE" ADDDEV+3*
^("VOL" ZISETONT+9
^(0 SUBA+1*, A+3*, DEVICEDEVICE+2, DEVICE+3, DEVICE+4*
^(1 A+2, A+3*, DEVICE+2
^(5 X+1*
^(99 DEVICE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZISV ZISETONT+9*, EXIT!, CHK+1, ADDDEV+4, ADDDEV+5
%ZISV1 EXIT!, CHK+1
C SUB*, A*, A+1, A+2, A+3, A+5, DEVICE+2*, DEVICE+3*, DEVICE+4*, EXIT!
CHKCHK+1, ADDDEV+6*
>> DEV BASIC+3
>> DEV( BASIC+2*
DTIME ZISETONT+6
I DEVICE+2*, DEVICE+3*, EXIT!, CHKCHK+1
I1 EXIT!, CHK*, CHK+1*, ADDDEV+1
IO("SUB" ADDDEV+6
IS ADDDEV~
IS("$I" ADDDEV+3, ADDDEV+4, ADDDEV+5
IS("ASKD" ADDDEV+3
IS("NAME" ADDDEV+3
IS("TYPE" ADDDEV+3
>> IX BASIC+1*
>> J BASIC+2*
L QUES+1*, SUB*, A+1, A+3*, A+4, DEVICE*, DEVICE+4, EXIT!, ADDDEV+1*, ADDDEV+3
, ADDDEV+4, ADDDEV+5, ADDDEV+6
N SUB*, A+1, A+3*, X+1, DEVICE*, DEVICE+4, EXIT!
R A+1*, A+2*, A+3, EXIT!
U ZISETONT+8, ZISETONT+9*, SUBA+1, A+4, X+1, DEVICE*, DEVICE+3, DEVICE+4, CHK
CHK+1, ADDDEV+1, ADDDEV+3, ADDDEV+4
X ZISETONT+3*, ZISETONT+4*, ZISETONT+5, ZISETONT+6*, BASIC+1*, BASIC+2, A+4*, XX+1*, DEVICE+2*
, EXIT!
Y DEVICE+2*, EXIT!
>> Z A+2*, A+4

Marked Items

Name Field # of Occurrence
$T(BX+IX BASIC+1
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All