- XTLKPST ;SFISC/JC;FIX DD OF 8984.1, 8984.2 ;02/10/95 12:17
- ;;7.3;TOOLKIT;;Apr 25, 1995
- ;Removes garbage variable pointer nodes from DD if files 52, 80, and 80.1 aren't configured for MTLU.
- W !,"One moment while I check/clean up MTLU variable pointers."
- N ZX,L
- F ZX=52,80,80.1 D
- .Q:$D(^XT(8984.4,ZX))
- .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
- W !,"Done..."
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTLKPST 443 printed Jan 18, 2025@03:42:34 Page 2
- XTLKPST ;SFISC/JC;FIX DD OF 8984.1, 8984.2 ;02/10/95 12:17
- +1 ;;7.3;TOOLKIT;;Apr 25, 1995
- +2 ;Removes garbage variable pointer nodes from DD if files 52, 80, and 80.1 aren't configured for MTLU.
- +3 WRITE !,"One moment while I check/clean up MTLU variable pointers."
- +4 NEW ZX,L
- +5 FOR ZX=52,80,80.1
- Begin DoDot:1
- +6 if $DATA(^XT(8984.4,ZX))
- QUIT
- +7 FOR L=8984.1,8984.2
- SET DIK="^DD("_L_",.02,""V"","
- SET DA(1)=.02
- SET DA(2)=L
- SET DA=$ORDER(^DD(L,.02,"V","B",ZX,0))
- if DA'=""
- DO ^DIK
- End DoDot:1
- +8 WRITE !,"Done..."