PRSXP57.m

PRSXP57 ;WCIOFO/SAB-INSTALL ROUTINE FOR PATCH PRS*4*57 ;2/29/2000

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

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

 Q

PS ; Post Install

 N DIE,DR,DA

 I '$D(^PRST(457.4,9,0)) D  Q

 . D BMES^XPDUTL("ERROR: Entry #9 in TIME REMAKRS file is missing")

 S DIE="^PRST(457.4,",DR="5///OT CT RG",DA=9 D ^DIE

 D BMES^XPDUTL("    Updated entry #9 in TIME REMAKRS (#457.4) file.")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSXP57   432     printed  Dec 13, 2024@02:29:01                                                                                                                                                                                                      Page 2

PRSXP57   ;WCIOFO/SAB-INSTALL ROUTINE FOR PATCH PRS*4*57 ;2/29/2000

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

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

 +3        QUIT 

PS        ; Post Install

 +1        NEW DIE,DR,DA

 +2        IF '$DATA(^PRST(457.4,9,0))

               Begin DoDot:1

 +3                DO BMES^XPDUTL("ERROR: Entry #9 in TIME REMAKRS file is missing")

               End DoDot:1

               QUIT 

 +4        SET DIE="^PRST(457.4,"

           SET DR="5///OT CT RG"

           SET DA=9

           DO ^DIE

 +5        DO BMES^XPDUTL("    Updated entry #9 in TIME REMAKRS (#457.4) file.")

 +6        QUIT