source: FOIAVistA/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBA2784.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.7 KB
Line 
1DVBA2784 ;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 ;
7POST ;
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
54ADDMNU(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
Note: See TracBrowser for help on using the repository browser.