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