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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUDHRES 828 printed Nov 22, 2024@17:19:24 Page 2
XUDHRES ;ISCSF/RWF - Resource device utility. ;4/30/98 11:17
+1 ;;8.0;KERNEL;**49,69**;Dec 30, 1996
+2 WRITE !,"No entry from the top.",!
QUIT
+3 ;
RELALL ;Release all resource devices. Used at startup.
+1 NEW ZISJ,ZISD0,ZISD1
+2 FOR ZISD0=0:0
SET ZISD0=$ORDER(^%ZISL(3.54,ZISD0))
if ZISD0'>0
QUIT
Begin DoDot:1
+3 FOR ZISD1=0:0
SET ZISD1=$ORDER(^%ZISL(3.54,ZISD0,1,ZISD1))
if ZISD1'>0
QUIT
Begin DoDot:2
+4 DO KILLRES^%ZISC(ZISD0,ZISD1)
+5 SET X1=$PIECE(^%ZISL(3.54,ZISD0,0),U)
SET X2=$ORDER(^%ZIS(1,"C",X1,0))
+6 SET X1=$PIECE($GET(^%ZIS(1,+X2,1)),U,10)
if X1
SET $PIECE(^%ZISL(3.54,ZISD0,0),U,2)=X1
End DoDot:2
+7 QUIT
End DoDot:1
+8 QUIT
RELONE ;Option to release one
+1 NEW ZISD0,ZISD1,DIC,X,Y
+2 SET DIC="^%ZISL(3.54,"
SET DIC(0)="AEMQ"
DO ^DIC
if $DATA(DUOUT)!(Y'>0)
QUIT
SET ZISD0=+Y
+3 IF $ORDER(^%ZISL(3.54,ZISD0,1,0))'>0
WRITE !!,"No slots in use to release."
QUIT
+4 SET DIC=DIC_ZISD0_",1,"
DO ^DIC
if $DATA(DUOUT)!(Y'>0)
QUIT
SET ZISD1=+Y
+5 DO KILLRES^%ZISC(ZISD0,ZISD1)
+6 QUIT
