Routine: BLRREFLP

BLRREFLP ;IHS/OIT/MKK - BLR REFERENCE LAB Post Install Routine ;JUL 20, 2010 10:55 AM

 ;;5.2;IHS LABORATORY;**1027**;NOV 01, 1997

EP ; EP

 D ADDTMENU("BLRREFLABMENU","BLR REFLAB PURGE SHIP MANIFEST","PSM")

ADDTMENU(MENU,OPTION,SYN)    ; EP

 NEW ADDOPT,CHKIT,HEREYAGO,STR1,STR2,STR3

 ; Determine if MENU is in File 19

 D FIND^DIC(19,,,,MENU,,,,,"HEREYAGO")

 I +$G(HEREYAGO("DILIST",2,1))<1 D  Q

 . D MES^XPDUTL($J("",5)_MENU_" Menu not in File 19.  No Option Added.")

 K HEREYAGO

 ; Determine if OPTION is in File 19

 D FIND^DIC(19,,,,OPTION,,,,,"HEREYAGO")

 I +$G(HEREYAGO("DILIST",2,1))<1 D  Q

 . D MES^XPDUTL($J("",5)_OPTION_" option not in File 19.  Option "_OPTION_" NOT Added to "_MENU_" menu.")

 D BMES^XPDUTL("Adding "_OPTION_" to "_MENU_".")

 S CHKIT=$$ADD^XPDMENU(MENU,OPTION,SYN)

 I CHKIT=1 D  Q

 . D MES^XPDUTL($J("",5)_OPTION_" added to "_MENU_"."_" OK.")

 . D MES^XPDUTL(" ")

 S STR1="Error in adding "_OPTION_" to "_MENU_"."

 D SORRY^BLRPRE27(STR1,"NONFATAL")

BLRREFLP  ;IHS/OIT/MKK - BLR REFERENCE LAB Post Install Routine ;JUL 20, 2010 10:55 AM

 +1       ;;5.2;IHS LABORATORY;**1027**;NOV 01, 1997

 +2       ;

EP        ; EP

 +1        DO ADDTMENU("BLRREFLABMENU","BLR REFLAB PURGE SHIP MANIFEST","PSM")

 +2        QUIT

 +3       ;

ADDTMENU(MENU,OPTION,SYN) ; EP

 +1        NEW ADDOPT,CHKIT,HEREYAGO,STR1,STR2,STR3

 +2       ;

 +3       ; Determine if MENU is in File 19

 +4        DO FIND^DIC(19,,,,MENU,,,,,"HEREYAGO")

 +5        IF +$GET(HEREYAGO("DILIST",2,1))<1

               Begin DoDot:1

 +6                DO MES^XPDUTL($JUSTIFY("",5)_MENU_" Menu not in File 19.  No Option Added.")

               End DoDot:1

               QUIT

 +7       ;

 +8        KILL HEREYAGO

 +9       ; Determine if OPTION is in File 19

 +10       DO FIND^DIC(19,,,,OPTION,,,,,"HEREYAGO")

 +11       IF +$GET(HEREYAGO("DILIST",2,1))<1

               Begin DoDot:1

 +12               DO MES^XPDUTL($JUSTIFY("",5)_OPTION_" option not in File 19.  Option "_OPTION_" NOT Added to "_MENU_" menu.")

               End DoDot:1

               QUIT

 +13      ;

 +14       DO BMES^XPDUTL("Adding "_OPTION_" to "_MENU_".")

 +15      ;

 +16       SET CHKIT=$$ADD^XPDMENU(MENU,OPTION,SYN)

 +17      ;

 +18       IF CHKIT=1

               Begin DoDot:1

 +19               DO MES^XPDUTL($JUSTIFY("",5)_OPTION_" added to "_MENU_"."_" OK.")

 +20               DO MES^XPDUTL(" ")

               End DoDot:1

               QUIT

 +21      ;

 +22       SET STR1="Error in adding "_OPTION_" to "_MENU_"."

 +23       DO SORRY^BLRPRE27(STR1,"NONFATAL")

 +24      ;

 +25       QUIT

BLRREFLP.m