Last change
on this file since 1710 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
434 bytes
|
Rev | Line | |
---|
[613] | 1 | XTLKPST ;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.