| 1 | ZISETVXD ;SF/AC,ALB/PKE - INITIALIZE DEVICE FILE ;4/9/92 14:18
|
|---|
| 2 | ;;7.1;KERNEL;;Jun 08, 1993
|
|---|
| 3 | W !,"THIS ROUTINE INITIALIZES THE DEVICE FILE WITH CURRENT PORT NUMBERS",!
|
|---|
| 4 | EN ;
|
|---|
| 5 | R "OK? ",X:$S($D(DTIME):DTIME,1:9999),!! G EXIT:X'?1"Y".E
|
|---|
| 6 | L +^%ZIS:2 W:'$T !,"FILE IS IN USE. TRY AGAIN LATER!!!",*7 Q:'$T
|
|---|
| 7 | I '$D(^%ZIS(1,0)) S ^%ZIS(1,0)="DEVICE^3.5"
|
|---|
| 8 | S T=$P(^(0),"^",4),M=^%ZOSF("MGR"),%ZISV=$S($D(^%ZOSF("VOL")):^("VOL"),1:"") D FLST
|
|---|
| 9 | 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
|
|---|
| 10 | S IO="ZISETVXD.COM"
|
|---|
| 11 | O IO:NEWVERSION U IO W "$ SHO DEV",! C IO
|
|---|
| 12 | ;
|
|---|
| 13 | S %SPAWN="@ZISETVXD.COM/OUTPUT=ZISETVXD.DAT" D ^%SPAWN
|
|---|
| 14 | ;
|
|---|
| 15 | S IO="ZISETVXD.DAT"
|
|---|
| 16 | S $ZT="END^ZISETVXD" O IO U IO F Z=1:1 R X(Z):$S($D(DTIME):DTIME,1:60)
|
|---|
| 17 | Q
|
|---|
| 18 | END C IO F Z=1:1 Q:'$D(X(Z)) S X=$E(X(Z),1,2) I X="MU"!(X="OP"!(X="TT"!(X="TX"!(X="LP")))) S I=$E(X(Z),1,$F(X(Z),":")-1) W !,I S I="_"_I D CHK
|
|---|
| 19 | L -^%ZIS
|
|---|
| 20 | C K ^%ZIS("C") S ^%ZIS("C")="G ^%ZISC"
|
|---|
| 21 | W !!,"ALL SETUP"
|
|---|
| 22 | EXIT K %SPAWN,%ZISV,%ZISV1,A,I,L,LST,M,NM,T,X,Z Q
|
|---|
| 23 | ;
|
|---|
| 24 | CHK Q:$S(%ZISV]"":$S($O(^%ZIS(1,"G","SYS."_%ZISV_"."_I,0))>0:1,$O(^%ZIS(1,"CPU",%ZISV_"."_I,0))>0:1,1:0),$O(^%ZIS(1,"C",I,0))>0:1,1:0) S NM=$S("_MU"[$E(I,1,3):"MT",1:$E(I,2,99))
|
|---|
| 25 | ADD I %ZISV]"" S LST=LST+1 G:$D(^%ZIS(1,+LST,0))#2 ADD S T=T+1,^%ZIS(1,"C",I,+LST)="",^%ZIS(1,+LST,0)=%ZISV1_NM_"^"_I_"^1^1^^^^^"_%ZISV_"^^1",^("TYPE")=$S("_MU"[$E(I,1,3):"MT",1:"TRM"),^%ZIS(1,"B",%ZISV1_NM,+LST)="" D SETCNTR Q
|
|---|
| 26 | ADD1 S LST=LST+1 G:$D(^%ZIS(1,+LST,0))#2 ADD1 S T=T+1,^%ZIS(1,"C",I,+LST)="",^%ZIS(1,+LST,0)=NM_"^"_I_"^1^1",^("TYPE")=$S("_MU"[$E(I,1,3):"MT",1:"TRM"),^%ZIS(1,"B",NM,+LST)="",$P(^%ZIS(1,0),"^",3)=+LST,$P(^(0),"^",4)=T Q
|
|---|
| 27 | Q
|
|---|
| 28 | SETCNTR S ^%ZIS(1,"CPU",%ZISV_"."_I,+LST)="",^%ZIS(1,"G","SYS."_%ZISV_"."_I,+LST)="",$P(^%ZIS(1,0),"^",3)=+LST,$P(^(0),"^",4)=T Q
|
|---|
| 29 | FLST S X=$S($D(^%ZIS(1,0)):$P(^(0),"^",3),1:0),A=+X
|
|---|
| 30 | F I=+X:0 S I=+$O(^%ZIS(1,I)) Q:I'>0 S A=I
|
|---|
| 31 | S LST=A
|
|---|
| 32 | HLP ;HELP FOR PREFIX QUESTION
|
|---|
| 33 | W !,"There must be a prefix for a new device"
|
|---|
| 34 | W !,"because the Device Name and the $I cannot"
|
|---|
| 35 | W !,"be the same. This is being for the Single"
|
|---|
| 36 | W !,"Device File.",! Q
|
|---|
