Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DVBA2848

DVBA2848.m

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