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