source: IHS-VA_UTILITIES-XB/trunk/ZIBCLU.m@ 1545

Last change on this file since 1545 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 1.0 KB
Line 
1ZIBCLU ; IHS/ADC/GTH - GENERAL PURPOSE CLEAN UP UTILITY GLOBALS - DRIVER TO GET UCI ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 ;THIS ROUTINE WILL INITIATE A JOB RUNNING ^%ZIBCLU0 IN EACH UCI
5 ;AND THEN WAIT 5 SECONDS TO ELAPSE BEFORE GETTING THE NEXT UCI
6 ;SKIP THE UCI THIS TASK IS IN AND THEN RUN ^%ZIBCLU0 HERE
7 ; - %ZIBCLU0 WILL REMOVE ALL DANGLING ^UTILITY,^XUTL,^ZUT ENTRIES
8 ;THIS ROUTINE IS USUALLY STARTED VIA TASKMAN BY SCHEDULING
9 ;THE -ZIBCLU- OPTION WHICH RUNS THIS ROUTINE
10 ;
11 ;DSM ONLY - $ZU(ZIBI) RETURNS <NOUCI> ERROR AT END OF UCI LIST
12 ;MSM ONLY - $ZU(ZIBI) RETURNS -NULL- VALUE AT END OF UCI LIST
13 ;
14 W !,*7,"Entry not permitted here!"
15 Q
16 ;
17EN ;
18 S X="%ZIBCLU0"
19 D RCHK^XB
20 I $G(XBFAIL) W:'$D(ZTQUEUED) !,"Cannot proceed because ^%ZIBCLU0 is not in MGR" Q
21 S $ZT="ZT^ZIBCLU"
22 F ZIBI=1:1 S ZIBUCI=$ZU(ZIBI) Q:ZIBUCI="" I ZIBUCI'=$ZU(0) J ^%ZIBCLU0[ZIBUCI] H 5
23 D ^%ZIBCLU0 ; CLEAN UP THIS UCI
24ZT ;END OF UCI LIST
25 I $ZV?1"DSM".E&($ZE'?1"<NOUCI>".E) D ^%ET
26 S $ZT=""
27 KILL XBFAIL,ZIBI,ZIBUCI
28 Q
29 ;
Note: See TracBrowser for help on using the repository browser.