Released DVBA*2.7*218 SEQ #185 Extracted from mail message **KIDS**:DVBA*2.7*218^ **INSTALL NAME** DVBA*2.7*218 "BLD",11703,0) DVBA*2.7*218^AUTOMATED MED INFO EXCHANGE^0^3200305^y "BLD",11703,1,0) ^^3^3^3200121^ "BLD",11703,1,1,0) This patch addresses a request to add the option Reset Copay Status List "BLD",11703,1,2,0) Manager [PSOCP RESET COPAY STATUS LM] to the HRC Pharmacy Menu [DVBA "BLD",11703,1,3,0) HRC MENU PHARMACY]. "BLD",11703,4,0) ^9.64PA^^ "BLD",11703,6.3) 4 "BLD",11703,"INID") n^n^n "BLD",11703,"INIT") POST^DVBAP218 "BLD",11703,"KRN",0) ^9.67PA^1.5^25 "BLD",11703,"KRN",.4,0) .4 "BLD",11703,"KRN",.401,0) .401 "BLD",11703,"KRN",.402,0) .402 "BLD",11703,"KRN",.403,0) .403 "BLD",11703,"KRN",.5,0) .5 "BLD",11703,"KRN",.84,0) .84 "BLD",11703,"KRN",1.5,0) 1.5 "BLD",11703,"KRN",1.6,0) 1.6 "BLD",11703,"KRN",1.61,0) 1.61 "BLD",11703,"KRN",1.62,0) 1.62 "BLD",11703,"KRN",3.6,0) 3.6 "BLD",11703,"KRN",3.8,0) 3.8 "BLD",11703,"KRN",9.2,0) 9.2 "BLD",11703,"KRN",9.8,0) 9.8 "BLD",11703,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",11703,"KRN",9.8,"NM",1,0) DVBAP218^^0^B1437256 "BLD",11703,"KRN",9.8,"NM","B","DVBAP218",1) "BLD",11703,"KRN",19,0) 19 "BLD",11703,"KRN",19.1,0) 19.1 "BLD",11703,"KRN",101,0) 101 "BLD",11703,"KRN",409.61,0) 409.61 "BLD",11703,"KRN",771,0) 771 "BLD",11703,"KRN",779.2,0) 779.2 "BLD",11703,"KRN",870,0) 870 "BLD",11703,"KRN",8989.51,0) 8989.51 "BLD",11703,"KRN",8989.52,0) 8989.52 "BLD",11703,"KRN",8993,0) 8993 "BLD",11703,"KRN",8994,0) 8994 "BLD",11703,"KRN","B",.4,.4) "BLD",11703,"KRN","B",.401,.401) "BLD",11703,"KRN","B",.402,.402) "BLD",11703,"KRN","B",.403,.403) "BLD",11703,"KRN","B",.5,.5) "BLD",11703,"KRN","B",.84,.84) "BLD",11703,"KRN","B",1.5,1.5) "BLD",11703,"KRN","B",1.6,1.6) "BLD",11703,"KRN","B",1.61,1.61) "BLD",11703,"KRN","B",1.62,1.62) "BLD",11703,"KRN","B",3.6,3.6) "BLD",11703,"KRN","B",3.8,3.8) "BLD",11703,"KRN","B",9.2,9.2) "BLD",11703,"KRN","B",9.8,9.8) "BLD",11703,"KRN","B",19,19) "BLD",11703,"KRN","B",19.1,19.1) "BLD",11703,"KRN","B",101,101) "BLD",11703,"KRN","B",409.61,409.61) "BLD",11703,"KRN","B",771,771) "BLD",11703,"KRN","B",779.2,779.2) "BLD",11703,"KRN","B",870,870) "BLD",11703,"KRN","B",8989.51,8989.51) "BLD",11703,"KRN","B",8989.52,8989.52) "BLD",11703,"KRN","B",8993,8993) "BLD",11703,"KRN","B",8994,8994) "BLD",11703,"QDEF") ^^^^^^^^^^YES "BLD",11703,"QUES",0) ^9.62^^ "BLD",11703,"REQB",0) ^9.611^1^1 "BLD",11703,"REQB",1,0) DVBA*2.7*148^1 "BLD",11703,"REQB","B","DVBA*2.7*148",1) "INIT") POST^DVBAP218 "MBREQ") 0 "PKG",223,-1) 1^1 "PKG",223,0) AUTOMATED MED INFO EXCHANGE^DVBA^The entire AMIE package 7131/2507. "PKG",223,22,0) ^9.49I^1^1 "PKG",223,22,1,0) 2.7^2950410^2950508 "PKG",223,22,1,"PAH",1,0) 218^3200305 "PKG",223,22,1,"PAH",1,1,0) ^^3^3^3200305 "PKG",223,22,1,"PAH",1,1,1,0) This patch addresses a request to add the option Reset Copay Status List "PKG",223,22,1,"PAH",1,1,2,0) Manager [PSOCP RESET COPAY STATUS LM] to the HRC Pharmacy Menu [DVBA "PKG",223,22,1,"PAH",1,1,3,0) HRC MENU PHARMACY]. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") YES "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","DVBAP218") 0^1^B1437256^n/a "RTN","DVBAP218",1,0) DVBAP218 ;ALB/JSR - Post init for DVBA*2.7*218 ; Jan 15,2020@12:51 "RTN","DVBAP218",2,0) ;;2.7;AMIE;**218**;Apr 10, 1995;Build 4 "RTN","DVBAP218",3,0) ;;Per VA Directive 6402, this routine should not be modified. "RTN","DVBAP218",4,0) ; "RTN","DVBAP218",5,0) ; This routine adds menu items to the menus distributed in DVBA*2.7*84. "RTN","DVBAP218",6,0) ; The menu changes were requested by HRC. "RTN","DVBAP218",7,0) ; "RTN","DVBAP218",8,0) ; Reference to HRC Pharmacy Menu [DVBA HRC MENU PHARMACY] supported by ICR #4595. "RTN","DVBAP218",9,0) ; "RTN","DVBAP218",10,0) Q "RTN","DVBAP218",11,0) POST ; "RTN","DVBAP218",12,0) ; "RTN","DVBAP218",13,0) ;See ADDMNU for documentation on input parameters. "RTN","DVBAP218",14,0) ;Last parameter is the Display Order. Must be a number from 1 - 99. "RTN","DVBAP218",15,0) ; "RTN","DVBAP218",16,0) ;Pharmacy menu "RTN","DVBAP218",17,0) ; "RTN","DVBAP218",18,0) D BMES^XPDUTL("-> Adding options to HRC Pharmacy Menu <-") "RTN","DVBAP218",19,0) D ADDMNU("DVBA HRC MENU PHARMACY","PSOCP RESET COPAY STATUS LM","RCL",6) "RTN","DVBAP218",20,0) ; "RTN","DVBAP218",21,0) Q "RTN","DVBAP218",22,0) ADDMNU(DVBA1,DVBA2,DVBA3,DVBA4) ; "RTN","DVBAP218",23,0) ; "RTN","DVBAP218",24,0) ;Adds Items to Menu (#19.01) subfile in Option (#19) file "RTN","DVBAP218",25,0) ;Input: "RTN","DVBAP218",26,0) ; DVBA1 = Name of the menu(Required) "RTN","DVBAP218",27,0) ; DVBA2 = Item (#.01)- Name of Option being added to the menu. (Required) "RTN","DVBAP218",28,0) ; DVBA3 = Synonym (#2) field (optional) "RTN","DVBAP218",29,0) ; DVBA4 = Display Order (#3) field (optional) (Number from 1 - 99) "RTN","DVBAP218",30,0) ; "RTN","DVBAP218",31,0) ;Output: 1 = Success - Option added to menu. "RTN","DVBAP218",32,0) ; 0 = Failure - Option not added to menu. "RTN","DVBAP218",33,0) ; "RTN","DVBAP218",34,0) N DVBAOK "RTN","DVBAP218",35,0) S DVBAOK=$$ADD^XPDMENU(DVBA1,DVBA2,DVBA3,DVBA4) "RTN","DVBAP218",36,0) I 'DVBAOK D Q "RTN","DVBAP218",37,0) .D MES^XPDUTL(" Could not add "_DVBA2_" to "_DVBA1) "RTN","DVBAP218",38,0) D MES^XPDUTL(" "_DVBA2_" added to "_DVBA1) "RTN","DVBAP218",39,0) Q "VER") 8.0^22.2 "BLD",11703,6) ^185 **END** **END**