XBKTMP.m

XBKTMP ; IHS/ADC/GTH - CLEAN ^TMP NODES FOR CURRENT JOB ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

 ; Called from the top, this routine KILLs entries in the

 ; ^TMP global that have $J as the first or second subscript.

 ;

 KILL ^TMP($J)

 NEW X

 S X=""

 F  S X=$O(^TMP(X)) Q:X=""  KILL ^TMP(X,$J)

 Q

 ;

XBKTMP    ; IHS/ADC/GTH - CLEAN ^TMP NODES FOR CURRENT JOB ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

 +3       ; Called from the top, this routine KILLs entries in the

 +4       ; ^TMP global that have $J as the first or second subscript.

 +5       ;

 +6        KILL ^TMP($JOB)

 +7        NEW X

 +8        SET X=""

 +9        FOR 

               SET X=$ORDER(^TMP(X))

               IF X=""

                   QUIT 

               KILL ^TMP(X,$JOB)

 +10       QUIT 

 +11      ;