PSB399P.m

PSB399P ;ALBANY/BJR-Remove and Mark Menu OOO ;February 24, 2017

 ;;3.0;BAR CODE MED ADMIN;**99**;Mar 2004;Build 9

 ;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

 ;

 ;

RMVMNU ;Add option to main menu

 N PSBOM,PSBMN,PSBOPT,PSBCHK,PSBOOO

 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=$$DELETE^XPDMENU(PSBMN,PSBOPT)

 .D OUT^XPDMENU(PSBOPT,"OUT OF ORDER - NOT SUPPORTED IN BCMA V3")

 I PSBCHK D BMES^XPDUTL("The PSB PRN DOCUMENTING option has been removed from the PSB MGR menu.")

 I 'PSBCHK D BMES^XPDUTL("The PSB PRN DOCUMENTING option could not be removed from the PSB MGR menu.")

 D BMES^XPDUTL("The PSB PRN DOCUMENTING option has been marked Out of Order.")

 Q

 ;

OPTLIST ;Options list

 ;;PSB PRN DOCUMENTING

 ;;$$END

 ;

MENULST ;Menu List

 ;;PSB MGR

 ;;$$END

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSB399P   1016     printed  Apr 09, 2024@20:46:34                                                                                                                                                                                                     Page 2

PSB399P   ;ALBANY/BJR-Remove and Mark Menu OOO ;February 24, 2017

 +1       ;;3.0;BAR CODE MED ADMIN;**99**;Mar 2004;Build 9

 +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       ;

RMVMNU    ;Add option to main menu

 +1        NEW PSBOM,PSBMN,PSBOPT,PSBCHK,PSBOOO

 +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=$$DELETE^XPDMENU(PSBMN,PSBOPT)

 +4                DO OUT^XPDMENU(PSBOPT,"OUT OF ORDER - NOT SUPPORTED IN BCMA V3")

               End DoDot:1

 +5        IF PSBCHK

               DO BMES^XPDUTL("The PSB PRN DOCUMENTING option has been removed from the PSB MGR menu.")

 +6        IF 'PSBCHK

               DO BMES^XPDUTL("The PSB PRN DOCUMENTING option could not be removed from the PSB MGR menu.")

 +7        DO BMES^XPDUTL("The PSB PRN DOCUMENTING option has been marked Out of Order.")

 +8        QUIT 

 +9       ;

OPTLIST   ;Options list

 +1       ;;PSB PRN DOCUMENTING

 +2       ;;$$END

 +3       ;

MENULST   ;Menu List

 +1       ;;PSB MGR

 +2       ;;$$END

 +3       ;