Routine: DVBA2784

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)

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,!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA2784   2785     printed  Apr 09, 2024@20:55:43                                                                                                                                                                                                    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

DVBA2784.m