Released DVBA*2.7*230 SEQ #194 Extracted from mail message **KIDS**:DVBA*2.7*230^ **INSTALL NAME** DVBA*2.7*230 "BLD",12117,0) DVBA*2.7*230^AUTOMATED MED INFO EXCHANGE^0^3210223^y "BLD",12117,1,0) ^^2^2^3210219^ "BLD",12117,1,1,0) This patch will update the AMIE EXAM (#396.6) file by updating the NAME "BLD",12117,1,2,0) (#.01) field of 1 exam. "BLD",12117,4,0) ^9.64PA^^ "BLD",12117,6) 2 "BLD",12117,6.3) 2 "BLD",12117,"ABPKG") n "BLD",12117,"INIT") POST^DVBAP230 "BLD",12117,"KRN",0) ^9.67PA^1.5^25 "BLD",12117,"KRN",.4,0) .4 "BLD",12117,"KRN",.401,0) .401 "BLD",12117,"KRN",.402,0) .402 "BLD",12117,"KRN",.403,0) .403 "BLD",12117,"KRN",.5,0) .5 "BLD",12117,"KRN",.84,0) .84 "BLD",12117,"KRN",1.5,0) 1.5 "BLD",12117,"KRN",1.6,0) 1.6 "BLD",12117,"KRN",1.61,0) 1.61 "BLD",12117,"KRN",1.62,0) 1.62 "BLD",12117,"KRN",3.6,0) 3.6 "BLD",12117,"KRN",3.8,0) 3.8 "BLD",12117,"KRN",9.2,0) 9.2 "BLD",12117,"KRN",9.8,0) 9.8 "BLD",12117,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",12117,"KRN",9.8,"NM",1,0) DVBAP230^^0^B3816845 "BLD",12117,"KRN",9.8,"NM","B","DVBAP230",1) "BLD",12117,"KRN",19,0) 19 "BLD",12117,"KRN",19.1,0) 19.1 "BLD",12117,"KRN",101,0) 101 "BLD",12117,"KRN",409.61,0) 409.61 "BLD",12117,"KRN",771,0) 771 "BLD",12117,"KRN",779.2,0) 779.2 "BLD",12117,"KRN",870,0) 870 "BLD",12117,"KRN",8989.51,0) 8989.51 "BLD",12117,"KRN",8989.52,0) 8989.52 "BLD",12117,"KRN",8993,0) 8993 "BLD",12117,"KRN",8994,0) 8994 "BLD",12117,"KRN","B",.4,.4) "BLD",12117,"KRN","B",.401,.401) "BLD",12117,"KRN","B",.402,.402) "BLD",12117,"KRN","B",.403,.403) "BLD",12117,"KRN","B",.5,.5) "BLD",12117,"KRN","B",.84,.84) "BLD",12117,"KRN","B",1.5,1.5) "BLD",12117,"KRN","B",1.6,1.6) "BLD",12117,"KRN","B",1.61,1.61) "BLD",12117,"KRN","B",1.62,1.62) "BLD",12117,"KRN","B",3.6,3.6) "BLD",12117,"KRN","B",3.8,3.8) "BLD",12117,"KRN","B",9.2,9.2) "BLD",12117,"KRN","B",9.8,9.8) "BLD",12117,"KRN","B",19,19) "BLD",12117,"KRN","B",19.1,19.1) "BLD",12117,"KRN","B",101,101) "BLD",12117,"KRN","B",409.61,409.61) "BLD",12117,"KRN","B",771,771) "BLD",12117,"KRN","B",779.2,779.2) "BLD",12117,"KRN","B",870,870) "BLD",12117,"KRN","B",8989.51,8989.51) "BLD",12117,"KRN","B",8989.52,8989.52) "BLD",12117,"KRN","B",8993,8993) "BLD",12117,"KRN","B",8994,8994) "BLD",12117,"QDEF") ^^^^NO^^^^NO^^NO "BLD",12117,"QUES",0) ^9.62^^ "BLD",12117,"REQB",0) ^9.611^^ "INIT") POST^DVBAP230 "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) 230^3210223 "PKG",223,22,1,"PAH",1,1,0) ^^2^2^3210223 "PKG",223,22,1,"PAH",1,1,1,0) This patch will update the AMIE EXAM (#396.6) file by updating the NAME "PKG",223,22,1,"PAH",1,1,2,0) (#.01) field of 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","DVBAP230") 0^1^B3816845^n/a "RTN","DVBAP230",1,0) DVBAP230 ;ALB/MF - AMIE EXAM (#396.6) FILE UPDATE ; Feb 18, 2021@09:39:25 "RTN","DVBAP230",2,0) ;;2.7;AMIE;**230**;Apr 10, 1995;Build 2 "RTN","DVBAP230",3,0) ; "RTN","DVBAP230",4,0) ;this routine is used as a post-init in a KIDS build "RTN","DVBAP230",5,0) ;to modify the AMIE EXAM file (#396.6) "RTN","DVBAP230",6,0) ; "RTN","DVBAP230",7,0) Q "RTN","DVBAP230",8,0) ; "RTN","DVBAP230",9,0) POST ; entry point "RTN","DVBAP230",10,0) D BMES^XPDUTL("Updating the AMIE EXAM file (#396.6)...") "RTN","DVBAP230",11,0) ; "RTN","DVBAP230",12,0) D NAMECHG ;change exam names "RTN","DVBAP230",13,0) ; "RTN","DVBAP230",14,0) D BMES^XPDUTL("Update of AMIE EXAM file (#396.6) completed.") "RTN","DVBAP230",15,0) D MES^XPDUTL(" ") "RTN","DVBAP230",16,0) Q "RTN","DVBAP230",17,0) NAMECHG ;* change exam names "RTN","DVBAP230",18,0) ; "RTN","DVBAP230",19,0) ; DVBAXX is in format: "RTN","DVBAP230",20,0) ; OLD EXAM NAME^NEW EXAM NAME "RTN","DVBAP230",21,0) ; "RTN","DVBAP230",22,0) N DVBAX,DVBAXX,DVBADA,DA,DR,DIC,DIE,X,Y,DVBASTR "RTN","DVBAP230",23,0) D BMES^XPDUTL("Changing names in AMIE EXAM file (#396.6)...") "RTN","DVBAP230",24,0) D MES^XPDUTL(" ") "RTN","DVBAP230",25,0) F DVBAX=1:1 S DVBAXX=$P($T(CHNG+DVBAX),";;",2) Q:DVBAXX="QUIT" D "RTN","DVBAP230",26,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","DVBAP230",27,0) ..I $D(^DVB(396.6,DVBADA,0)),$P(^DVB(396.6,DVBADA,0),U,5)="A" D "RTN","DVBAP230",28,0) ...S DA=DVBADA,DR=".01///^S X=$P(DVBAXX,U,2)",DIE="^DVB(396.6," D ^DIE "RTN","DVBAP230",29,0) ...D MES^XPDUTL(" ") "RTN","DVBAP230",30,0) ...D MES^XPDUTL(" Entry #"_DVBADA_" for "_$P(DVBAXX,U,1)) "RTN","DVBAP230",31,0) ...D BMES^XPDUTL(" ... field (#.01) updated to "_$P(DVBAXX,U,2)_".") "RTN","DVBAP230",32,0) ..I '$D(^DVB(396.6,DVBADA,0)) D "RTN","DVBAP230",33,0) ...S DVBASTR="Can't find entry for "_$P(DVBAXX,U,1) "RTN","DVBAP230",34,0) ...D BMES^XPDUTL(DVBASTR_" ...field (#.01) not updated.") "RTN","DVBAP230",35,0) Q "RTN","DVBAP230",36,0) ; "RTN","DVBAP230",37,0) CHNG ;name changes - old exam name^new exam name "RTN","DVBAP230",38,0) ;;Bones (fractures and bone diseases)^DBQ MUSC Bones and other skeletal conditions "RTN","DVBAP230",39,0) ;;QUIT "RTN","DVBAP230",40,0) ; "VER") 8.0^22.2 "BLD",12117,6) ^194 **END** **END**