source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUDHRES.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 808 bytes
Line 
1XUDHRES ;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 ;
5RELALL ;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
14RELONE ;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
Note: See TracBrowser for help on using the repository browser.