Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XBKTMP

XBKTMP.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; Called from the top, this routine KILLs entries in the
  1. ; ^TMP global that have $J as the first or second subscript.
  1. ;
  1. KILL ^TMP($J)
  1. NEW X
  1. S X=""
  1. F S X=$O(^TMP(X)) Q:X="" KILL ^TMP(X,$J)
  1. Q
  1. ;