Routine: XT73P34

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

 ;;KIDs Post-Init

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",!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXT73P34   368     printed  Dec 13, 2024@02:40:38                                                                                                                                                                                                      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

XT73P34.m