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

PRSXP57.m

Go to the documentation of this file.
  1. PRSXP57 ;WCIOFO/SAB-INSTALL ROUTINE FOR PATCH PRS*4*57 ;2/29/2000
  1. ;;4.0;PAID;**57**;Sep 21, 1995
  1. ; This routine can be deleted after patch PRS*4*57 is installed.
  1. Q
  1. PS ; Post Install
  1. N DIE,DR,DA
  1. I '$D(^PRST(457.4,9,0)) D Q
  1. . D BMES^XPDUTL("ERROR: Entry #9 in TIME REMAKRS file is missing")
  1. S DIE="^PRST(457.4,",DR="5///OT CT RG",DA=9 D ^DIE
  1. D BMES^XPDUTL(" Updated entry #9 in TIME REMAKRS (#457.4) file.")
  1. Q