Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DVBAP218

DVBAP218.m

Go to the documentation of this file.
  1. DVBAP218 ;ALB/JSR - Post init for DVBA*2.7*218 ; Jan 15,2020@12:51
  1. ;;2.7;AMIE;**218**;Apr 10, 1995;Build 4
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; This routine adds menu items to the menus distributed in DVBA*2.7*84.
  1. ; The menu changes were requested by HRC.
  1. ;
  1. ; Reference to HRC Pharmacy Menu [DVBA HRC MENU PHARMACY] supported by ICR #4595.
  1. ;
  1. Q
  1. POST ;
  1. ;
  1. ;See ADDMNU for documentation on input parameters.
  1. ;Last parameter is the Display Order. Must be a number from 1 - 99.
  1. ;
  1. ;Pharmacy menu
  1. ;
  1. D BMES^XPDUTL("-> Adding options to HRC Pharmacy Menu <-")
  1. D ADDMNU("DVBA HRC MENU PHARMACY","PSOCP RESET COPAY STATUS LM","RCL",6)
  1. ;
  1. Q
  1. ADDMNU(DVBA1,DVBA2,DVBA3,DVBA4) ;
  1. ;
  1. ;Adds Items to Menu (#19.01) subfile in Option (#19) file
  1. ;Input:
  1. ; DVBA1 = Name of the menu(Required)
  1. ; DVBA2 = Item (#.01)- Name of Option being added to the menu. (Required)
  1. ; DVBA3 = Synonym (#2) field (optional)
  1. ; DVBA4 = Display Order (#3) field (optional) (Number from 1 - 99)
  1. ;
  1. ;Output: 1 = Success - Option added to menu.
  1. ; 0 = Failure - Option not added to menu.
  1. ;
  1. N DVBAOK
  1. S DVBAOK=$$ADD^XPDMENU(DVBA1,DVBA2,DVBA3,DVBA4)
  1. I 'DVBAOK D Q
  1. .D MES^XPDUTL(" Could not add "_DVBA2_" to "_DVBA1)
  1. D MES^XPDUTL(" "_DVBA2_" added to "_DVBA1)
  1. Q