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: ZISETDTM

Package: Kernel

Routine: ZISETDTM


Information

ZISETDTM ;HGL::B-FmSys.Rsave;10:46 AM 21 Mar 1990;INITIALIZE DEVICE FILE FOR DATATREE ;4/9/92 14:17

Source Information

Source file <ZISETDTM.m>

Entry Points

Name Comments DBIA/ICR reference
QUES
EXIT ;
CHKDEV
NODEV
C ; Close Logic
SETCNTR
CHK
ADD
FLST
TT ; Define general terminal types
HLP ;HELP FOR PREFIX QUESTION

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS ROUTINE INITIALIZES THE DEVICE FILE WITH CURRENT PORT NUMBERS"
  • Line Location: ZISETDTM+3
Function Call: WRITE
  • Prompt: !,"OR UPDATES THE DEVICE FILE IF NEW HARDWARE HAS BEEN ADDED TO THE SYSTEM",!
  • Line Location: ZISETDTM+4
Function Call: READ
  • Prompt: "OK? "
  • Variable: X
  • Timeout: $S($D(DTIME):DTIME,1:9999),!!
  • Line Location: ZISETDTM+5
Function Call: WRITE
  • Prompt: !,"Please Enter a Prefix for New Devices: "
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: %ZISV_"// "
  • Condition for execution: %ZISV]""
  • Line Location: QUES+0
Function Call: READ
  • Variable: %ZISV1
  • Timeout: 300
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !!,"Device File setup completed"
  • Line Location: QUES+10
Function Call: WRITE
  • Prompt: !,"Device ",NM," added. TYPE=",^%ZIS(1,+LST,"TYPE")
  • Line Location: ADD+7
Function Call: WRITE
  • Prompt: !,"There must be a prefix for a new devices"
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !,"because 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)
^%ZIS( ZISETDTM+6, EXIT+1
^%ZIS("C" C+1!*
^%ZIS(1 - [#3.5] ZISETDTM+7*, SETCNTR*, CHK, CHK+1, CHK+2, ADD, ADD+1*, ADD+2*, ADD+3*, ADD+4*
, ADD+5*, ADD+6*, ADD+7, FLST+1
^%ZIS(2 - [#3.2] ZISETDTM+8*, TT+1*, TT+2*, TT+3*
^%ZOSF("VOL" ZISETDTM+9

Label References

Name Line Occurrences
ADD QUES+4, QUES+5, QUES+6, QUES+7, QUES+8, ADD
C QUES+9
CHK QUES+4, QUES+5, QUES+6, QUES+7, QUES+8
CHKDEV QUES+8
EXIT ZISETDTM+5
FLST ZISETDTM+10
HLP QUES+2
QUES QUES+2
SETCNTR QUES+9
TT ZISETDTM+8

Naked Globals

Name Field # of Occurrence
^("VOL" ZISETDTM+9
^(0 SETCNTR*, ADD+2
^(1 TT+1*, TT+2*
^(9 TT+1*, TT+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZISV ZISETDTM+9*, QUES, QUES+1, EXIT+1!, CHK, CHK+1, ADD+1, ADD+6
%ZISV1 QUES+1*, QUES+2, EXIT+1!, CHK+3
A EXIT+1!, FLST*, FLST+1*, FLST+2
DEV QUES+4*, QUES+5*, QUES+6*, QUES+7*, QUES+8*, EXIT+1!, CHKDEV, CHK, CHK+1, CHK+2
, CHK+3, ADD+1, ADD+5, ADD+6
DTIME ZISETDTM+5
ERR QUES+8, EXIT+1!, CHKDEV!, NODEV*
I EXIT+1!, FLST+1*
LST EXIT+1!, SETCNTR, ADD*, ADD+1, ADD+2, ADD+3, ADD+4, ADD+5, ADD+6, ADD+7
, FLST+2*
NM EXIT+1!, CHK+3*, ADD+1, ADD+5, ADD+7
T EXIT+1!, SETCNTR, ADD*, FLST*, FLST+1*
TYPE QUES+4*, QUES+5*, QUES+6*, QUES+7*, QUES+8*, EXIT+1!, ADD+2, ADD+3, ADD+4
X ZISETDTM+5*, EXIT+1!
ZISADD QUES+4*, QUES+5*, QUES+6*, QUES+7*, QUES+8*, EXIT+1!, CHK+3*
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All