21 lines
808 B
Mathematica
21 lines
808 B
Mathematica
XUDHRES ;ISCSF/RWF - Resource device utility. ;4/30/98 11:17
|
|
;;8.0;KERNEL;**49,69**;Dec 30, 1996
|
|
W !,"No entry from the top.",! Q
|
|
;
|
|
RELALL ;Release all resource devices. Used at startup.
|
|
N ZISJ,ZISD0,ZISD1
|
|
F ZISD0=0:0 S ZISD0=$O(^%ZISL(3.54,ZISD0)) Q:ZISD0'>0 D
|
|
. F ZISD1=0:0 S ZISD1=$O(^%ZISL(3.54,ZISD0,1,ZISD1)) Q:ZISD1'>0 D
|
|
. . D KILLRES^%ZISC(ZISD0,ZISD1)
|
|
. . S X1=$P(^%ZISL(3.54,ZISD0,0),U),X2=$O(^%ZIS(1,"C",X1,0))
|
|
. . S X1=$P($G(^%ZIS(1,+X2,1)),U,10) S:X1 $P(^%ZISL(3.54,ZISD0,0),U,2)=X1
|
|
. Q
|
|
Q
|
|
RELONE ;Option to release one
|
|
N ZISD0,ZISD1,DIC,X,Y
|
|
S DIC="^%ZISL(3.54,",DIC(0)="AEMQ" D ^DIC Q:$D(DUOUT)!(Y'>0) S ZISD0=+Y
|
|
I $O(^%ZISL(3.54,ZISD0,1,0))'>0 W !!,"No slots in use to release." Q
|
|
S DIC=DIC_ZISD0_",1," D ^DIC Q:$D(DUOUT)!(Y'>0) S ZISD1=+Y
|
|
D KILLRES^%ZISC(ZISD0,ZISD1)
|
|
Q
|