Routine: ZISETDTM

Information

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

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

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