ORAMP559.m

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 ---ORAMP559   1097     printed  Apr 09, 2024@21:24:23                                                                                                                                                                                                    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      ;