- 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 ---[H[J[2J[HPRSXP57 432 printed Feb 18, 2025@23:55:32 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