DVBA2784 ;SPH - PATCH DRIVER ; 12/01/05
 ;;2.7;AMIE;**84**;Apr 10, 1995
 ;
 ; This routine adds menu items to 3 menus distributed in the patch
 ; The menus are primarily for HRC
 ;
POST ;
 ; Pharmacy menu
 ;
 W !!,"-> SETTING UP PHARMACY MENU <-",!
 D ADDMNU^DVBA2784("DVBA HRC MENU PHARMACY","PSOCP RESET COPAY STATUS","RC",5)
 D ADDMNU^DVBA2784("DVBA HRC MENU PHARMACY","PSO P","MP",10)
 D ADDMNU^DVBA2784("DVBA HRC MENU PHARMACY","PSO VIEW","VW",15)
 D ADDMNU^DVBA2784("DVBA HRC MENU PHARMACY","DVBA HRC MENU","HRC",1)
 ;
 ; ISO menu
 ;
 W !!,"-> SETTING UP ISO MENU <-",!
 D ADDMNU^DVBA2784("DVBA HRC MENU ISO","XUSESIG CLEAR","CS",5)
 D ADDMNU^DVBA2784("DVBA HRC MENU ISO","XQDISPLAY OPTIONS","DM",10)
 D ADDMNU^DVBA2784("DVBA HRC MENU ISO","XQSHOKEY","LU",15)
 D ADDMNU^DVBA2784("DVBA HRC MENU ISO","XUINQUIRE","OI",20)
 D ADDMNU^DVBA2784("DVBA HRC MENU ISO","XUSERINQ","UI",25)
 D ADDMNU^DVBA2784("DVBA HRC MENU ISO","DVBA HRC MENU","HRC",1)
 ;
 ; Main menu
 ;
 W !!,"-> SETTING UP MAIN MENU <-",!
 D ADDMNU^DVBA2784("DVBA HRC MENU","PRCA VEN BIL","AD",5)
 D ADDMNU^DVBA2784("DVBA HRC MENU","RCDP BILL PROFILE","BP",10)
 D ADDMNU^DVBA2784("DVBA HRC MENU","PRCA ACCOUNT CHECK","CP",12)
 D ADDMNU^DVBA2784("DVBA HRC MENU","RCDP CLAIMS MATCH","CM",17)
 D ADDMNU^DVBA2784("DVBA HRC MENU","RCDP EXTENDED CHECK/CC SEARCH","EC",22)
 D ADDMNU^DVBA2784("DVBA HRC MENU","PRCAY FULL ACCOUNT PROFILE","FA",27)
 D ADDMNU^DVBA2784("DVBA HRC MENU","EAS GMT THRESHOLDS LOOKUP","GT",30)
 D ADDMNU^DVBA2784("DVBA HRC MENU","IB RX INQUIRE","IM",32)
 D ADDMNU^DVBA2784("DVBA HRC MENU","IB LIST ALL BILLS FOR PAT.","LA",37)
 D ADDMNU^DVBA2784("DVBA HRC MENU","IB OUTPUT FULL INQ BY BILL NO","PB",40)
 D ADDMNU^DVBA2784("DVBA HRC MENU","DG PATIENT INQUIRY","PI",42)
 D ADDMNU^DVBA2784("DVBA HRC MENU","PRCA PAYMENT TRANS HISTORY","HI",47)
 D ADDMNU^DVBA2784("DVBA HRC MENU","PXCE ENCOUNTER VIEWER","PC",50)
 D ADDMNU^DVBA2784("DVBA HRC MENU","DVBA DGPRE PRE-REGISTER OPTION","PR",52)
 D ADDMNU^DVBA2784("DVBA HRC MENU","PRCAC PROFILE","PA",57)
 D ADDMNU^DVBA2784("DVBA HRC MENU","IB MT PROFILE","SP",60)
 D ADDMNU^DVBA2784("DVBA HRC MENU","IBJ THIRD PARTY JOINT INQUIRY","TP",62)
 D ADDMNU^DVBA2784("DVBA HRC MENU","PRCA TRANS HISTORY","TH",67)
 D ADDMNU^DVBA2784("DVBA HRC MENU","DG CO-PAY TEST VIEW TEST","VC",70)
 D ADDMNU^DVBA2784("DVBA HRC MENU","DG MEANS TEST VIEW TEST","VM",72)
 D ADDMNU^DVBA2784("DVBA HRC MENU","IBCN VIEW PATIENT INSURANCE","VP",77)
 D ADDMNU^DVBA2784("DVBA HRC MENU","DG REGISTRATION VIEW","VR",80)
 D ADDMNU^DVBA2784("DVBA HRC MENU","IBT OUTPUT CLAIM INQUIRY","CT",85)
 ;
 Q
ADDMNU(DVB1,DVB2,DVB3,DVB4) ;
 N DVOK
 S DVOK=$$ADD^XPDMENU(DVB1,DVB2,DVB3,DVB4)
 I 'DVOK D
 .W !,"Could not add "_DVB2_" to "_DVB1,!
 Q