XT73P34.m

XT73P34 ;SF-CIOFO/JDS KIDs Post-Init for Patch XT*7.3*34 ;02/04/99  13:22

 ;;KIDs Post-Init

 Q

POST ;post init entry

 W !!,"Removing 'Affects Records Merge X-ref' entries in Package File for Toolkit..."

 N DIC

 S DIC="^DIC(9.4,",DIC(0)="XS",X="TOOLKIT" D ^DIC

 Q:+Y<0

 ;dbia 2656, direct kill of "AMRG" x-ref

 K ^DIC(9.4,"AMRG",2,+Y)

 W !!,"Finished",!

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XT73P34   368     printed  Apr 09, 2024@21:43:46                                                                                                                                                                                                      Page 2

XT73P34   ;SF-CIOFO/JDS KIDs Post-Init for Patch XT*7.3*34 ;02/04/99  13:22

 +1       ;;KIDs Post-Init

 +2        QUIT 

POST      ;post init entry

 +1        WRITE !!,"Removing 'Affects Records Merge X-ref' entries in Package File for Toolkit..."

 +2        NEW DIC

 +3        SET DIC="^DIC(9.4,"

           SET DIC(0)="XS"

           SET X="TOOLKIT"

           DO ^DIC

 +4        if +Y<0

               QUIT 

 +5       ;dbia 2656, direct kill of "AMRG" x-ref

 +6        KILL ^DIC(9.4,"AMRG",2,+Y)

 +7        WRITE !!,"Finished",!

 +8        QUIT