Released DVBA*2.7*210 SEQ #178 Extracted from mail message **KIDS**:DVBA*2.7*210^ **INSTALL NAME** DVBA*2.7*210 "BLD",11324,0) DVBA*2.7*210^AUTOMATED MED INFO EXCHANGE^0^3181217^y "BLD",11324,1,0) ^^4^4^3181213^ "BLD",11324,1,1,0) This patch will address 1 issue: "BLD",11324,1,2,0) "BLD",11324,1,3,0) 1. This patch will update the AMIE EXAM (#396.6) file by changing "BLD",11324,1,4,0) 17 exam names and inactivating 1 exam. "BLD",11324,4,0) ^9.64PA^^ "BLD",11324,6.3) 2 "BLD",11324,"INI") "BLD",11324,"INIT") POST^DVBAP210 "BLD",11324,"KRN",0) ^9.67PA^1.61^23 "BLD",11324,"KRN",.4,0) .4 "BLD",11324,"KRN",.401,0) .401 "BLD",11324,"KRN",.402,0) .402 "BLD",11324,"KRN",.403,0) .403 "BLD",11324,"KRN",.5,0) .5 "BLD",11324,"KRN",.84,0) .84 "BLD",11324,"KRN",1.6,0) 1.6 "BLD",11324,"KRN",1.61,0) 1.61 "BLD",11324,"KRN",1.62,0) 1.62 "BLD",11324,"KRN",3.6,0) 3.6 "BLD",11324,"KRN",3.8,0) 3.8 "BLD",11324,"KRN",9.2,0) 9.2 "BLD",11324,"KRN",9.8,0) 9.8 "BLD",11324,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",11324,"KRN",9.8,"NM",1,0) DVBAP210^^0^B21000162 "BLD",11324,"KRN",9.8,"NM","B","DVBAP210",1) "BLD",11324,"KRN",19,0) 19 "BLD",11324,"KRN",19.1,0) 19.1 "BLD",11324,"KRN",101,0) 101 "BLD",11324,"KRN",409.61,0) 409.61 "BLD",11324,"KRN",771,0) 771 "BLD",11324,"KRN",779.2,0) 779.2 "BLD",11324,"KRN",870,0) 870 "BLD",11324,"KRN",8989.51,0) 8989.51 "BLD",11324,"KRN",8989.52,0) 8989.52 "BLD",11324,"KRN",8994,0) 8994 "BLD",11324,"KRN","B",.4,.4) "BLD",11324,"KRN","B",.401,.401) "BLD",11324,"KRN","B",.402,.402) "BLD",11324,"KRN","B",.403,.403) "BLD",11324,"KRN","B",.5,.5) "BLD",11324,"KRN","B",.84,.84) "BLD",11324,"KRN","B",1.6,1.6) "BLD",11324,"KRN","B",1.61,1.61) "BLD",11324,"KRN","B",1.62,1.62) "BLD",11324,"KRN","B",3.6,3.6) "BLD",11324,"KRN","B",3.8,3.8) "BLD",11324,"KRN","B",9.2,9.2) "BLD",11324,"KRN","B",9.8,9.8) "BLD",11324,"KRN","B",19,19) "BLD",11324,"KRN","B",19.1,19.1) "BLD",11324,"KRN","B",101,101) "BLD",11324,"KRN","B",409.61,409.61) "BLD",11324,"KRN","B",771,771) "BLD",11324,"KRN","B",779.2,779.2) "BLD",11324,"KRN","B",870,870) "BLD",11324,"KRN","B",8989.51,8989.51) "BLD",11324,"KRN","B",8989.52,8989.52) "BLD",11324,"KRN","B",8994,8994) "BLD",11324,"QDEF") ^^^^NO^^^^NO^^NO "BLD",11324,"QUES",0) ^9.62^^ "BLD",11324,"REQB",0) ^9.611^^ "INIT") POST^DVBAP210 "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) 210^3181217 "PKG",223,22,1,"PAH",1,1,0) ^^4^4^3181217 "PKG",223,22,1,"PAH",1,1,1,0) This patch will address 1 issue: "PKG",223,22,1,"PAH",1,1,2,0) "PKG",223,22,1,"PAH",1,1,3,0) 1. This patch will update the AMIE EXAM (#396.6) file by changing "PKG",223,22,1,"PAH",1,1,4,0) 17 exam names and inactivating 1 exam. "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") NO "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","DVBAP210") 0^1^B21000162^n/a "RTN","DVBAP210",1,0) DVBAP210 ;ALB/JR - AMIE EXAM (#396.6) FILE UPDATE ;12/6/2018 1:47PM "RTN","DVBAP210",2,0) ;;2.7;AMIE;**210**;Apr 10, 1995;Build 2 "RTN","DVBAP210",3,0) ; "RTN","DVBAP210",4,0) ;this routine is used as a post-init in a KIDS build "RTN","DVBAP210",5,0) ;to modify the AMIE EXAM file (#396.6) "RTN","DVBAP210",6,0) ; "RTN","DVBAP210",7,0) Q "RTN","DVBAP210",8,0) ; "RTN","DVBAP210",9,0) POST ; entry point "RTN","DVBAP210",10,0) D MES^XPDUTL(" ") "RTN","DVBAP210",11,0) D BMES^XPDUTL("Updating the AMIE EXAM file (#396.6)...") "RTN","DVBAP210",12,0) D MES^XPDUTL(" ") "RTN","DVBAP210",13,0) ; "RTN","DVBAP210",14,0) D NAMECHG ;change exam names "RTN","DVBAP210",15,0) D INACT ;inactivate exams "RTN","DVBAP210",16,0) ; "RTN","DVBAP210",17,0) D MES^XPDUTL(" ") "RTN","DVBAP210",18,0) D BMES^XPDUTL("Update of AMIE EXAM file (#396.6) completed.") "RTN","DVBAP210",19,0) D MES^XPDUTL(" ") "RTN","DVBAP210",20,0) Q "RTN","DVBAP210",21,0) NAMECHG ;* change exam names "RTN","DVBAP210",22,0) ; "RTN","DVBAP210",23,0) ; DVBAXX is in format: "RTN","DVBAP210",24,0) ; OLD EXAM NAME^NEW EXAM NAME "RTN","DVBAP210",25,0) ; "RTN","DVBAP210",26,0) N DVBAX,DVBAXX,DVBADA,DA,DR,DIC,DIE,X,Y,DVBASTR "RTN","DVBAP210",27,0) D MES^XPDUTL(" ") "RTN","DVBAP210",28,0) D BMES^XPDUTL("Changing names in AMIE EXAM file (#396.6)...") "RTN","DVBAP210",29,0) D MES^XPDUTL(" ") "RTN","DVBAP210",30,0) F DVBAX=1:1 S DVBAXX=$P($T(CHNG+DVBAX),";;",2) Q:DVBAXX="QUIT" D "RTN","DVBAP210",31,0) .F DVBADA=0:0 S DVBADA=+$O(^DVB(396.6,"B",$E($P(DVBAXX,U,1),1,30),DVBADA)) Q:DVBADA=0 D "RTN","DVBAP210",32,0) ..I $D(^DVB(396.6,DVBADA,0)),$P(^DVB(396.6,DVBADA,0),U,5)="A" D "RTN","DVBAP210",33,0) ...S DA=DVBADA,DR=".01///^S X=$P(DVBAXX,U,2)",DIE="^DVB(396.6," D ^DIE "RTN","DVBAP210",34,0) ...D MES^XPDUTL(" ") "RTN","DVBAP210",35,0) ...D MES^XPDUTL(" Entry #"_DVBADA_" for "_$P(DVBAXX,U,1)) "RTN","DVBAP210",36,0) ...D BMES^XPDUTL(" ... field (#.01) updated to "_$P(DVBAXX,U,2)_".") "RTN","DVBAP210",37,0) ...D MES^XPDUTL(" ") "RTN","DVBAP210",38,0) ..I '$D(^DVB(396.6,DVBADA,0)) D "RTN","DVBAP210",39,0) ...D MES^XPDUTL(" ") "RTN","DVBAP210",40,0) ...S DVBASTR="Can't find entry for "_$P(DVBAXX,U,1) "RTN","DVBAP210",41,0) ...D BMES^XPDUTL(DVBASTR_" ...field (#.01) not updated.") "RTN","DVBAP210",42,0) Q "RTN","DVBAP210",43,0) ; "RTN","DVBAP210",44,0) CHNG ;name changes - old exam name^new exam name "RTN","DVBAP210",45,0) ;;DBQ Medical Opinion^DBQ MEDICAL OPINION "RTN","DVBAP210",46,0) ;;DBQ General Medical Compensation^DBQ GENERAL MEDICAL Compensation "RTN","DVBAP210",47,0) ;;DBQ General Medical Gulf War (including Burn Pits)^DBQ GENERAL MEDICAL Gulf War (including burn pits) "RTN","DVBAP210",48,0) ;;DBQ General Medical Pension^DBQ GENERAL MEDICAL Pension "RTN","DVBAP210",49,0) ;;DBQ HEM Hemic & lymphatic, including leukemia^DBQ HEM Hemic & lymphatic conditions, including leukemia "RTN","DVBAP210",50,0) ;;DBQ Prisoner of War (POW)^DBQ PRISONER OF WAR (POW) "RTN","DVBAP210",51,0) ;;DBQ GI Liver Hepatitis, cirrhosis & other liver conditions^DBQ GI Liver hepatitis, cirrhosis & other liver conditions "RTN","DVBAP210",52,0) ;;Bones (Fractures and Bone Diseases)^Bones (fractures and bone diseases) "RTN","DVBAP210",53,0) ;;Aid and Attendance or Housebound Examination^Aid and attendance or housebound examination "RTN","DVBAP210",54,0) ;;DBQ INFECT South West Asia Infectious diseases^DBQ INFECT Southwest Asia infectious diseases "RTN","DVBAP210",55,0) ;;DBQ MUSC Foot conditions, including Flatfoot (Pes Planus)^DBQ MUSC Foot conditions, including flatfoot (pes planus) "RTN","DVBAP210",56,0) ;;DBQ NEURO Seizure disorders (Epilepsy)^DBQ NEURO Seizure disorders (epilepsy) "RTN","DVBAP210",57,0) ;;DBQ NEURO TBI Initial^DBQ NEURO Traumatic brain injury (TBI) initial "RTN","DVBAP210",58,0) ;;DBQ NEURO TBI Review^DBQ NEURO Traumatic brain injury (TBI) review "RTN","DVBAP210",59,0) ;;DBQ PSYCH PTSD Initial^DBQ PSYCH Posttraumatic stress disorder (PTSD) initial "RTN","DVBAP210",60,0) ;;DBQ PSYCH PTSD Review^DBQ PSYCH Posttraumatic stress disorder (PTSD) review "RTN","DVBAP210",61,0) ;;DBQ Separation Health Assessment^DBQ Separation health assessment (SHA) "RTN","DVBAP210",62,0) ;;QUIT "RTN","DVBAP210",63,0) ; "RTN","DVBAP210",64,0) INACT ;* inactivate exams "RTN","DVBAP210",65,0) ; "RTN","DVBAP210",66,0) ; DVBAXX is in format: "RTN","DVBAP210",67,0) ; EXAM NAME "RTN","DVBAP210",68,0) ; "RTN","DVBAP210",69,0) N DVBAX,DVBAXX,DVBADA,DA,DR,DIC,DIE,X,Y,DVBASTR "RTN","DVBAP210",70,0) D MES^XPDUTL(" ") "RTN","DVBAP210",71,0) D BMES^XPDUTL("Inactivating procedures AMIE EXAM file (#396.6)...") "RTN","DVBAP210",72,0) D MES^XPDUTL(" ") "RTN","DVBAP210",73,0) F DVBAX=1:1 S DVBAXX=$P($T(OLD+DVBAX),";;",2) Q:DVBAXX="QUIT" D "RTN","DVBAP210",74,0) .F DVBADA=0:0 S DVBADA=+$O(^DVB(396.6,"B",$E(DVBAXX,1,30),DVBADA)) Q:DVBADA=0 D "RTN","DVBAP210",75,0) ..I $D(^DVB(396.6,DVBADA,0)),$P(^DVB(396.6,DVBADA,0),U,5)="A" D "RTN","DVBAP210",76,0) ...S DA=DVBADA,DR=".5///INACTIVE",DIE="^DVB(396.6," D ^DIE "RTN","DVBAP210",77,0) ...D MES^XPDUTL(" ") "RTN","DVBAP210",78,0) ...D MES^XPDUTL(" Entry #"_DVBADA_" for "_DVBAXX) "RTN","DVBAP210",79,0) ...D BMES^XPDUTL(" ... inactivated") "RTN","DVBAP210",80,0) ...D MES^XPDUTL(" ") "RTN","DVBAP210",81,0) ..I '$D(^DVB(396.6,DVBADA,0)) D "RTN","DVBAP210",82,0) ...D MES^XPDUTL(" ") "RTN","DVBAP210",83,0) ...S DVBASTR="Can't find entry for "_DVBAXX "RTN","DVBAP210",84,0) ...D BMES^XPDUTL(DVBASTR_" ...exam cannot be inactivated.") "RTN","DVBAP210",85,0) Q "RTN","DVBAP210",86,0) ; "RTN","DVBAP210",87,0) OLD ;national procedures to be inactivated - exam name "RTN","DVBAP210",88,0) ;;DBQ HEM Hairy Cell & other B-cell leukemias "RTN","DVBAP210",89,0) ;;QUIT "RTN","DVBAP210",90,0) ; "VER") 8.0^22.2 "BLD",11324,6) ^178 **END** **END**