XTLKPST.m

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 ---XTLKPST   443     printed  Apr 09, 2024@21:44:07                                                                                                                                                                                                      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..."