Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XT73P33

XT73P33.m

Go to the documentation of this file.

XT73P33 ;SF-CIOFO/JDS KIDs Post-Init for Patch XT*7.3*33 ;11/25/98  10:23

 ;;KIDs Post-Init

POST ;post init entry

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

 N DIC

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

 Q:+Y<0

 K ^DIC(9.4,+Y,20)

 W !!,"Finished",!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXT73P33   314     printed  Nov 22, 2024@17:50:33                                                                                                                                                                                                      Page 2

XT73P33   ;SF-CIOFO/JDS KIDs Post-Init for Patch XT*7.3*33 ;11/25/98  10:23

 +1       ;;KIDs Post-Init

 +2        QUIT

POST      ;post init entry

 +1        WRITE !!,"Removing 'Affects Records Merge' 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        KILL ^DIC(9.4,+Y,20)

 +6        WRITE !!,"Finished",!

 +7        QUIT