Routine: ZISETONT

Information

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

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

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