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

ORAMP559.m

Go to the documentation of this file. 
  1. ORAMP559 ;SLC/PKR - Post Installation. ;05/26/2021
  1.  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**559**;Dec 17, 1997;Build 9
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;
  1.  ; This routine uses the following ICR:
  1.  ; #2058 - Add Additional Prefix to Package file.
  1.  ;
  1.  Q
  1.  ;
  1. ADDPREFIX ;Add ORAM as an additional prefix.
  1.  N FDA,IEN,IENS,MSG
  1.  S IEN=+$$FIND1^DIC(9.4,"","M","ORDER ENTRY/RESULTS REPORTING","","","MSG")
  1.  I IEN=0 D  Q
  1.  . D MES^XPDUTL("Could not find ORDER ENTRY/RESULTS REPORTING Package file entry, please enter a SNOW ticket")
  1.  ;Check to see if ORAM has already been added as an Additional Prefix.
  1.  S IENS=","_IEN_","
  1.  I +$$FIND1^DIC(9.4014,IENS,"M","ORAM","","","MSG")>0 D  Q
  1.  . D MES^XPDUTL("ORAM has already been added as an Additional Prefix.")
  1.  S IENS="+1,"_IEN_","
  1.  S FDA(9.4014,IENS,.01)="ORAM"
  1.  D UPDATE^DIE("E","FDA","","MSG")
  1.  I $D(DIERR) D
  1.  . D MES^XPDUTL("There was a problem adding ORAM as an Additional Prefix, the error was:")
  1.  . D MES^XPDUTL(MSG("DIERR",1,"TEXT",1))
  1.  E  D MES^XPDUTL("ORAM was added as an Additional Prefix.")
  1.  Q
  1.  ;