|
Last change
on this file since 1001 was 642, checked in by Sam Habiel, 15 years ago |
|
Modified directory structure; moved routines.
|
|
File size:
319 bytes
|
| Line | |
|---|
| 1 | XBKTMP ; 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.
