source: IHS-VA_UTILITIES-XB/trunk/XBKTMP.m@ 1423

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

Modified directory structure; moved routines.

File size: 319 bytes
Line 
1XBKTMP ; IHS/ADC/GTH - CLEAN ^TMP NODES FOR CURRENT JOB ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 ; Called from the top, this routine KILLs entries in the
5 ; ^TMP global that have $J as the first or second subscript.
6 ;
7 KILL ^TMP($J)
8 NEW X
9 S X=""
10 F S X=$O(^TMP(X)) Q:X="" KILL ^TMP(X,$J)
11 Q
12 ;
Note: See TracBrowser for help on using the repository browser.