PRSXP38.m

PRSXP38 ;WCIOFO/SAB-INIT ROUTINE FOR PATCH PRS*4*38 ;3/4/98

 ;;4.0;PAID;**38**;Sep 21, 1995

 ; This routine can be deleted after patch PRS*4*38 is installed.

 Q

PST ; Post-Init

 N DA,DIK

 D MES^XPDUTL("   Rebuilding the T&L UNIT (#455.5) file 'ASX' x-ref.")

 K ^PRST(455.5,"ASX")

 ; loop thru t&l units

 S DA(1)=0 F  S DA(1)=$O(^PRST(455.5,DA(1))) Q:'DA(1)  D

 . S DIK="^PRST(455.5,"_DA(1)_",""S"","

 . S DIK(1)="1^ASX"

 . D ENALL^DIK ; rebuild xref for all entries in subfile

 D MES^XPDUTL("   Post-Init completed.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSXP38   536     printed  Dec 13, 2024@02:28:57                                                                                                                                                                                                      Page 2

PRSXP38   ;WCIOFO/SAB-INIT ROUTINE FOR PATCH PRS*4*38 ;3/4/98

 +1       ;;4.0;PAID;**38**;Sep 21, 1995

 +2       ; This routine can be deleted after patch PRS*4*38 is installed.

 +3        QUIT 

PST       ; Post-Init

 +1        NEW DA,DIK

 +2        DO MES^XPDUTL("   Rebuilding the T&L UNIT (#455.5) file 'ASX' x-ref.")

 +3        KILL ^PRST(455.5,"ASX")

 +4       ; loop thru t&l units

 +5        SET DA(1)=0

           FOR 

               SET DA(1)=$ORDER(^PRST(455.5,DA(1)))

               if 'DA(1)

                   QUIT 

               Begin DoDot:1

 +6                SET DIK="^PRST(455.5,"_DA(1)_",""S"","

 +7                SET DIK(1)="1^ASX"

 +8       ; rebuild xref for all entries in subfile

                   DO ENALL^DIK

               End DoDot:1

 +9        DO MES^XPDUTL("   Post-Init completed.")

 +10       QUIT