Routine: ZISETONT

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

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

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, DEVICE, DEVICE+3, DEVICE+4, CHK, CHK+1, ADDDEV+1, ADDDEV+3, ADDDEV+4 , ADDDEV+5, ADDDEV+6*
^%ZIS(2 - [#3.2]	ZISETONT+4, ZISETONT+8, SUB, A+1, A+2, A+3, A+4*, X+1, ADDDEV+6
^%ZOSF("VOL"	ZISETONT+9
^DISV(	QUES+1!

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

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! , CHK, CHK+1, ADDDEV+6
>> DEV	BASIC+3
>> DEV(	BASIC+2*
DTIME	ZISETONT+6
I	DEVICE+2, DEVICE+3, EXIT!, CHK, CHK+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, SUB, A+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, X, X+1, DEVICE+2* , EXIT!
Y	DEVICE+2*, EXIT!
>> Z	A+2*, A+4

Name	Field # of Occurrence
$T(BX+IX	BASIC+1