Routine: ZIBCLU0

Information

%ZIBCLU0 ; IHS/ADC/GTH - GENERAL PURPOSE CLEAN UP UTILITY GLOBALS ; [ 02/07/97 3:02 PM ]

Source file <ZIBCLU0.m>

Name	Comments	DBIA/ICR reference
XUT	; Clenaup ^XUTL in MGR separate from other UCIs.
EN	;
RM	; Remove dangling ^UTILITY node. ; If not in active JOB table '$D(ZIBJT(ZIBJ)) ; Or if an active JOB and not this UCI $D(ZIBJT(ZIBJ) & ZIBJT(ZIBJ)'=$Z(0) ; Or if an active JOB and this UCI, but the same $J as this JOB.
RMQ	;
MSM	; MSM specific look up of active JOBs.
DSM	; DSM specific look up of active JOBs.
N1Q	;
MER	;EP - MSM error trap.
GO	; $O down ^ZUT or ^UTILITY looking for (jobnbr OR (namespace,jobnbr
N1	; Check first subscript value and remove if its a dangling node.
N2	; Process second node if first is non-numeric or ^UTILITY("%ER" for MSM
GOQ	;
OUT	;

Name	Line Occurrences (* Changed, ! Killed)
^XUTL(	XUT+8
^XUTL("XQ"	XUT+3

Name	Field # of Occurrence
^(	XUT+3!, XUT+8!

Name	Field # of Occurrence
ZIBA	GO+2, N2+1, N2+4, RM+5, OUT+1!
ZIBA1	N2+1*, N2+4, OUT+1!
ZIBGR	EN+5*, GO+2, N2+2, RM+5, OUT+1!
>> ZIBI	DSM+3, N2+2
ZIBJ	MSM+5, DSM+3, XUT+2, XUT+3, XUT+5, XUT+7, GO+2, N2+4, RM+4, OUT+1!
ZIBJI	OUT+1!
ZIBJM	OUT+1!
ZIBJT	OUT+1!
ZIBJT(	MSM+5, DSM+3, DSM+4*, XUT+3, XUT+7, RM+4
ZIBK	XUT+6, XUT+7, XUT+8, OUT+1!
ZIBMXJ	MSM+3*, MSM+5, OUT+1!
ZIBOS	EN+2*, EN+3, N1+1, N2+3, OUT+1!
ZIBPT	MSM+3*, MSM+5, OUT+1!
ZIBQ	OUT+1!
ZIBRM	N2+2, N2+3, N2+5!
ZIBSJT	DSM+1*, DSM+3, DSM+5!
ZIBST	MSM+3, DSM+1, OUT+1!
ZIBSTA	MSM+3*, OUT+1!
>> ZIBX	XUT+8*
ZIBX1	GO+1, GO+2, N1+1, N2+2, N2+3, OUT+1!
ZIBX2	N2+1, N2+2, N2+3, N2+4, OUT+1!