- 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 Apr 23, 2025@17:54:07 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
