source: WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTLKPST.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 434 bytes
RevLine 
[613]1XTLKPST ;SFISC/JC;FIX DD OF 8984.1, 8984.2 ;02/10/95 12:17
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3 ;Removes garbage variable pointer nodes from DD if files 52, 80, and 80.1 aren't configured for MTLU.
4 W !,"One moment while I check/clean up MTLU variable pointers."
5 N ZX,L
6 F ZX=52,80,80.1 D
7 .Q:$D(^XT(8984.4,ZX))
8 .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
9 W !,"Done..."
Note: See TracBrowser for help on using the repository browser.