- DVBA2848 ;BP/MM - Pre/Post init for DVBA*2.7*148 ; 09/09/2009
- ;;2.7;AMIE;**148**;Apr 10, 1995;Build 11
- ;
- ; This routine adds menu items to the menus distributed in DVBA*2.7*84.
- ; The menu changes were requested by HRC.
- ;
- PRE ;
- ;
- ;Delete TEST VERSION options from menus.
- ;
- N DVBE,DVBF
- S DVBE=$$LKOPT^XPDMENU("DVBA HRC MENU EXTENDED SVCS")
- S DVBF=$$LKOPT^XPDMENU("PRCA BILL STATUS LISTING")
- I ($G(DVBE)]"")&($G(DVBF)]"") D
- . I $D(^DIC(19,DVBE,10,"B",DVBF)) D DELMENU("DVBA HRC MENU EXTENDED SVCS","PRCA BILL STATUS LISTING")
- ;
- N DVBG,DVBH
- S DVBG=$$LKOPT^XPDMENU("DVBA HRC MENU PHARMACY CC")
- S DVBH=$$LKOPT^XPDMENU("PSO LM BACKDOOR ORDERS")
- I ($G(DVBG)]"")&($G(DVBH)]"") D
- . I $D(^DIC(19,DVBG,10,"B",DVBH)) D DELMENU("DVBA HRC MENU PHARMACY CC","PSO LM BACKDOOR ORDERS")
- ;
- Q
- POST ;
- ;
- ;See ADDMNU for documentation on input parameters.
- ;Last parameter is the Display Order. Must be a number from 1 - 99.
- ;
- ;Pharmacy menu
- ;
- D BMES^XPDUTL("-> Adding options to HRC Pharmacy Customer Care Menu <-")
- D ADDMNU("DVBA HRC MENU PHARMACY CC","DVBA HRC MENU","HRC",5)
- D ADDMNU("DVBA HRC MENU PHARMACY CC","PSO P","MP",15)
- D ADDMNU("DVBA HRC MENU PHARMACY CC","PSO VIEW","VW",20)
- D ADDMNU("DVBA HRC MENU PHARMACY CC","OR MAIN MENU WARD CLERK","WC",25)
- ;
- D BMES^XPDUTL("-> Adding options to HRC Pharmacy Menu <-")
- D ADDMNU("DVBA HRC MENU PHARMACY","PSO LM BACKDOOR ORDERS","PP",7)
- D ADDMNU("DVBA HRC MENU PHARMACY","OR MAIN MENU WARD CLERK","WC",20)
- ;
- ; Main menu
- ;
- D BMES^XPDUTL("-> Adding options to HRC First Party CC Menu <-")
- D ADDMNU("DVBA HRC MENU","PSO P","MP",48)
- D ADDMNU("DVBA HRC MENU","PSO VIEW","VW",49)
- D ADDMNU("DVBA HRC MENU","IB ECME BILLING EVENTS","ECME",25)
- ;
- ;Extended Services menu
- ;
- D BMES^XPDUTL("-> Adding options to HRC First Party Extended Services Menu <-")
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","DVBA HRC MENU","HRC",5)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","DGFFP FUGITIVE FELON PROGRAM","FUG",10)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","IB RX HARDSHIP","MAN",20)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCA BIL AGENCY","GP",22)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCA NOTIFICATION PARAMETERS","ST",25)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCA RCDMC LESSER WITHHOLDING","ENT",30)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCAC COWC REFER","CO",35)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCAC TR RE-ESTABLISH BILL","RE",40)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCAF ADJ ADMIN","ADM",45)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCAF U ADMIN.RATE","INT",48)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","RCBD TRANSACTION STMT HISTORY","TSH",50)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","RCDP RECEIPT PROCESSING","RP",55)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","RCDP SUMMARY 215 REPORT","SUM",60)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","RCDPE EDI LOCKBOX MENU","EDI",65)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCAC TR SUSPENDED","SUS",70)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCA DEBTOR COMMENT","DB",75)
- D ADDMNU("DVBA HRC MENU EXTENDED SVCS","RCDP LIST OF RECEIPTS REPORT","LIST",85)
- ;
- Q
- ADDMNU(DVB1,DVB2,DVB3,DVB4) ;
- ;
- ;Adds Items to Menu (#19.01) subfile in Option (#19) file
- ;Input:
- ; DVB1 = Name of the menu(Required)
- ; DVB2 = Item (#.01)- Name of Option being added to the menu. (Required)
- ; DVB3 = Synonym (#2) field (optional)
- ; DVB4 = Display Order (#3) field (optional) (Number from 1 - 99)
- ;
- ;Output: 1 = Success - Option added to menu.
- ; 0 = Failure - Option not added to menu.
- ;
- N DVOK
- S DVOK=$$ADD^XPDMENU(DVB1,DVB2,DVB3,DVB4)
- I 'DVOK D Q
- .D MES^XPDUTL(" Could not add "_DVB2_" to "_DVB1)
- D MES^XPDUTL(" "_DVB2_" added to "_DVB1)
- Q
- ;
- ;
- ;Use: Remove PRCA BILL STATUS LISTING for Test sites with an earlier verion of this patch
- ;
- ;Deletes Items from Menu (#19.01) in Option (#19) file
- ;Input:
- ; DVBD1 = Name of the menu (Required)
- ; DVBD2 = Item (#.01) - Name of the Option being deleted from the menu. (Required)
- ;
- ;Output: 1 = Success - option deleted from menu
- ; 0 = Option not deleted from menu
- ;
- N DVOK
- D BMES^XPDUTL("-> Removing "_DVBD2_" option <-")
- D BMES^XPDUTL(" from "_DVBD1_" Menu")
- S DVOK=$$DELETE^XPDMENU(DVBD1,DVBD2)
- I DVOK D Q
- . D MES^XPDUTL(" Removed "_DVBD2_" from "_DVBD1_" Menu")
- I 'DVOK D Q
- . D MES^XPDUTL(" Could not remove "_DVBD2_" from "_DVBD1_" Menu")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBA2848 4512 printed Dec 13, 2024@01:40:02 Page 2
- DVBA2848 ;BP/MM - Pre/Post init for DVBA*2.7*148 ; 09/09/2009
- +1 ;;2.7;AMIE;**148**;Apr 10, 1995;Build 11
- +2 ;
- +3 ; This routine adds menu items to the menus distributed in DVBA*2.7*84.
- +4 ; The menu changes were requested by HRC.
- +5 ;
- PRE ;
- +1 ;
- +2 ;Delete TEST VERSION options from menus.
- +3 ;
- +4 NEW DVBE,DVBF
- +5 SET DVBE=$$LKOPT^XPDMENU("DVBA HRC MENU EXTENDED SVCS")
- +6 SET DVBF=$$LKOPT^XPDMENU("PRCA BILL STATUS LISTING")
- +7 IF ($GET(DVBE)]"")&($GET(DVBF)]"")
- Begin DoDot:1
- +8 IF $DATA(^DIC(19,DVBE,10,"B",DVBF))
- DO DELMENU("DVBA HRC MENU EXTENDED SVCS","PRCA BILL STATUS LISTING")
- End DoDot:1
- +9 ;
- +10 NEW DVBG,DVBH
- +11 SET DVBG=$$LKOPT^XPDMENU("DVBA HRC MENU PHARMACY CC")
- +12 SET DVBH=$$LKOPT^XPDMENU("PSO LM BACKDOOR ORDERS")
- +13 IF ($GET(DVBG)]"")&($GET(DVBH)]"")
- Begin DoDot:1
- +14 IF $DATA(^DIC(19,DVBG,10,"B",DVBH))
- DO DELMENU("DVBA HRC MENU PHARMACY CC","PSO LM BACKDOOR ORDERS")
- End DoDot:1
- +15 ;
- +16 QUIT
- POST ;
- +1 ;
- +2 ;See ADDMNU for documentation on input parameters.
- +3 ;Last parameter is the Display Order. Must be a number from 1 - 99.
- +4 ;
- +5 ;Pharmacy menu
- +6 ;
- +7 DO BMES^XPDUTL("-> Adding options to HRC Pharmacy Customer Care Menu <-")
- +8 DO ADDMNU("DVBA HRC MENU PHARMACY CC","DVBA HRC MENU","HRC",5)
- +9 DO ADDMNU("DVBA HRC MENU PHARMACY CC","PSO P","MP",15)
- +10 DO ADDMNU("DVBA HRC MENU PHARMACY CC","PSO VIEW","VW",20)
- +11 DO ADDMNU("DVBA HRC MENU PHARMACY CC","OR MAIN MENU WARD CLERK","WC",25)
- +12 ;
- +13 DO BMES^XPDUTL("-> Adding options to HRC Pharmacy Menu <-")
- +14 DO ADDMNU("DVBA HRC MENU PHARMACY","PSO LM BACKDOOR ORDERS","PP",7)
- +15 DO ADDMNU("DVBA HRC MENU PHARMACY","OR MAIN MENU WARD CLERK","WC",20)
- +16 ;
- +17 ; Main menu
- +18 ;
- +19 DO BMES^XPDUTL("-> Adding options to HRC First Party CC Menu <-")
- +20 DO ADDMNU("DVBA HRC MENU","PSO P","MP",48)
- +21 DO ADDMNU("DVBA HRC MENU","PSO VIEW","VW",49)
- +22 DO ADDMNU("DVBA HRC MENU","IB ECME BILLING EVENTS","ECME",25)
- +23 ;
- +24 ;Extended Services menu
- +25 ;
- +26 DO BMES^XPDUTL("-> Adding options to HRC First Party Extended Services Menu <-")
- +27 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","DVBA HRC MENU","HRC",5)
- +28 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","DGFFP FUGITIVE FELON PROGRAM","FUG",10)
- +29 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","IB RX HARDSHIP","MAN",20)
- +30 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCA BIL AGENCY","GP",22)
- +31 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCA NOTIFICATION PARAMETERS","ST",25)
- +32 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCA RCDMC LESSER WITHHOLDING","ENT",30)
- +33 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCAC COWC REFER","CO",35)
- +34 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCAC TR RE-ESTABLISH BILL","RE",40)
- +35 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCAF ADJ ADMIN","ADM",45)
- +36 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCAF U ADMIN.RATE","INT",48)
- +37 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","RCBD TRANSACTION STMT HISTORY","TSH",50)
- +38 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","RCDP RECEIPT PROCESSING","RP",55)
- +39 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","RCDP SUMMARY 215 REPORT","SUM",60)
- +40 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","RCDPE EDI LOCKBOX MENU","EDI",65)
- +41 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCAC TR SUSPENDED","SUS",70)
- +42 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","PRCA DEBTOR COMMENT","DB",75)
- +43 DO ADDMNU("DVBA HRC MENU EXTENDED SVCS","RCDP LIST OF RECEIPTS REPORT","LIST",85)
- +44 ;
- +45 QUIT
- ADDMNU(DVB1,DVB2,DVB3,DVB4) ;
- +1 ;
- +2 ;Adds Items to Menu (#19.01) subfile in Option (#19) file
- +3 ;Input:
- +4 ; DVB1 = Name of the menu(Required)
- +5 ; DVB2 = Item (#.01)- Name of Option being added to the menu. (Required)
- +6 ; DVB3 = Synonym (#2) field (optional)
- +7 ; DVB4 = Display Order (#3) field (optional) (Number from 1 - 99)
- +8 ;
- +9 ;Output: 1 = Success - Option added to menu.
- +10 ; 0 = Failure - Option not added to menu.
- +11 ;
- +12 NEW DVOK
- +13 SET DVOK=$$ADD^XPDMENU(DVB1,DVB2,DVB3,DVB4)
- +14 IF 'DVOK
- Begin DoDot:1
- +15 DO MES^XPDUTL(" Could not add "_DVB2_" to "_DVB1)
- End DoDot:1
- QUIT
- +16 DO MES^XPDUTL(" "_DVB2_" added to "_DVB1)
- +17 QUIT
- +18 ;
- +1 ;
- +2 ;Use: Remove PRCA BILL STATUS LISTING for Test sites with an earlier verion of this patch
- +3 ;
- +4 ;Deletes Items from Menu (#19.01) in Option (#19) file
- +5 ;Input:
- +6 ; DVBD1 = Name of the menu (Required)
- +7 ; DVBD2 = Item (#.01) - Name of the Option being deleted from the menu. (Required)
- +8 ;
- +9 ;Output: 1 = Success - option deleted from menu
- +10 ; 0 = Option not deleted from menu
- +11 ;
- +12 NEW DVOK
- +13 DO BMES^XPDUTL("-> Removing "_DVBD2_" option <-")
- +14 DO BMES^XPDUTL(" from "_DVBD1_" Menu")
- +15 SET DVOK=$$DELETE^XPDMENU(DVBD1,DVBD2)
- +16 IF DVOK
- Begin DoDot:1
- +17 DO MES^XPDUTL(" Removed "_DVBD2_" from "_DVBD1_" Menu")
- End DoDot:1
- QUIT
- +18 IF 'DVOK
- Begin DoDot:1
- +19 DO MES^XPDUTL(" Could not remove "_DVBD2_" from "_DVBD1_" Menu")
- End DoDot:1
- QUIT
- +20 QUIT