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