ORAMP559 ;SLC/PKR - Post Installation. ;05/26/2021
;;3.0;ORDER ENTRY/RESULTS REPORTING;**559**;Dec 17, 1997;Build 9
;;Per VA Directive 6402, this routine should not be modified.
;
; This routine uses the following ICR:
; #2058 - Add Additional Prefix to Package file.
;
Q
;
ADDPREFIX ;Add ORAM as an additional prefix.
N FDA,IEN,IENS,MSG
S IEN=+$$FIND1^DIC(9.4,"","M","ORDER ENTRY/RESULTS REPORTING","","","MSG")
I IEN=0 D Q
. D MES^XPDUTL("Could not find ORDER ENTRY/RESULTS REPORTING Package file entry, please enter a SNOW ticket")
;Check to see if ORAM has already been added as an Additional Prefix.
S IENS=","_IEN_","
I +$$FIND1^DIC(9.4014,IENS,"M","ORAM","","","MSG")>0 D Q
. D MES^XPDUTL("ORAM has already been added as an Additional Prefix.")
S IENS="+1,"_IEN_","
S FDA(9.4014,IENS,.01)="ORAM"
D UPDATE^DIE("E","FDA","","MSG")
I $D(DIERR) D
. D MES^XPDUTL("There was a problem adding ORAM as an Additional Prefix, the error was:")
. D MES^XPDUTL(MSG("DIERR",1,"TEXT",1))
E D MES^XPDUTL("ORAM was added as an Additional Prefix.")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORAMP559 1097 printed Nov 22, 2024@17:37:04 Page 2
ORAMP559 ;SLC/PKR - Post Installation. ;05/26/2021
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**559**;Dec 17, 1997;Build 9
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; This routine uses the following ICR:
+5 ; #2058 - Add Additional Prefix to Package file.
+6 ;
+7 QUIT
+8 ;
ADDPREFIX ;Add ORAM as an additional prefix.
+1 NEW FDA,IEN,IENS,MSG
+2 SET IEN=+$$FIND1^DIC(9.4,"","M","ORDER ENTRY/RESULTS REPORTING","","","MSG")
+3 IF IEN=0
Begin DoDot:1
+4 DO MES^XPDUTL("Could not find ORDER ENTRY/RESULTS REPORTING Package file entry, please enter a SNOW ticket")
End DoDot:1
QUIT
+5 ;Check to see if ORAM has already been added as an Additional Prefix.
+6 SET IENS=","_IEN_","
+7 IF +$$FIND1^DIC(9.4014,IENS,"M","ORAM","","","MSG")>0
Begin DoDot:1
+8 DO MES^XPDUTL("ORAM has already been added as an Additional Prefix.")
End DoDot:1
QUIT
+9 SET IENS="+1,"_IEN_","
+10 SET FDA(9.4014,IENS,.01)="ORAM"
+11 DO UPDATE^DIE("E","FDA","","MSG")
+12 IF $DATA(DIERR)
Begin DoDot:1
+13 DO MES^XPDUTL("There was a problem adding ORAM as an Additional Prefix, the error was:")
+14 DO MES^XPDUTL(MSG("DIERR",1,"TEXT",1))
End DoDot:1
+15 IF '$TEST
DO MES^XPDUTL("ORAM was added as an Additional Prefix.")
+16 QUIT
+17 ;
