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

XTLKPST.m

Go to the documentation of this file.
  1. XTLKPST ;SFISC/JC;FIX DD OF 8984.1, 8984.2 ;02/10/95 12:17
  1. ;;7.3;TOOLKIT;;Apr 25, 1995
  1. ;Removes garbage variable pointer nodes from DD if files 52, 80, and 80.1 aren't configured for MTLU.
  1. W !,"One moment while I check/clean up MTLU variable pointers."
  1. N ZX,L
  1. F ZX=52,80,80.1 D
  1. .Q:$D(^XT(8984.4,ZX))
  1. .F L=8984.1,8984.2 S DIK="^DD("_L_",.02,""V"",",DA(1)=.02,DA(2)=L,DA=$O(^DD(L,.02,"V","B",ZX,0)) D:DA'="" ^DIK
  1. W !,"Done..."