PSB388P ;ALBANY/BJR-Add Menu ;May 2016
;;3.0;BAR CODE MED ADMIN;**88**;Mar 2004;Build 11
;Per VA Directive 6402, this routine should not be modified.
;
;References to ^XPDMENU supported by DBIA #1157
Q
;
;Post-init routine to add new option to primary menu
;
;
N PSBOM,PSBMN,PSBOPT,PSBCHK
S PSBOM="" F PSBOM=1:1 S PSBMN=$P($TEXT(MENULST+PSBOM),";;",2),PSBOPT=$P($TEXT(OPTLIST+PSBOM),";;",2) Q:PSBMN="$$END"!(PSBOM="") D
.S PSBCHK=$$ADD^XPDMENU(PSBMN,PSBOPT,11)
I PSBCHK D BMES^XPDUTL("The PSB DRUG IEN CHECK option has been added to the PSB PHARMACY menu.")
I 'PSBCHK D BMES^XPDUTL("The PSB DRUG IEN CHECK option could not be added to the PSB PHARMACY menu.")
Q
;
OPTLIST ;Options list
;;PSB DRUG IEN CHECK
;;$$END
;
;;PSB PHARMACY
;;$$END
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSB388P 843 printed Sep 15, 2024@21:03:59 Page 2
PSB388P ;ALBANY/BJR-Add Menu ;May 2016
+1 ;;3.0;BAR CODE MED ADMIN;**88**;Mar 2004;Build 11
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;References to ^XPDMENU supported by DBIA #1157
+5 QUIT
+6 ;
+7 ;Post-init routine to add new option to primary menu
+8 ;
+9 ;
+1 NEW PSBOM,PSBMN,PSBOPT,PSBCHK
+2 SET PSBOM=""
FOR PSBOM=1:1
SET PSBMN=$PIECE($TEXT(MENULST+PSBOM),";;",2)
SET PSBOPT=$PIECE($TEXT(OPTLIST+PSBOM),";;",2)
if PSBMN="$$END"!(PSBOM="")
QUIT
Begin DoDot:1
+3 SET PSBCHK=$$ADD^XPDMENU(PSBMN,PSBOPT,11)
End DoDot:1
+4 IF PSBCHK
DO BMES^XPDUTL("The PSB DRUG IEN CHECK option has been added to the PSB PHARMACY menu.")
+5 IF 'PSBCHK
DO BMES^XPDUTL("The PSB DRUG IEN CHECK option could not be added to the PSB PHARMACY menu.")
+6 QUIT
+7 ;
OPTLIST ;Options list
+1 ;;PSB DRUG IEN CHECK
+2 ;;$$END
+3 ;
+1 ;;PSB PHARMACY
+2 ;;$$END
+3 ;
