Released LR*5.2*463 SEQ #378 Extracted from mail message **KIDS**:LR*5.2*463^ **INSTALL NAME** LR*5.2*463 "BLD",9384,0) LR*5.2*463^LAB SERVICE^0^3161229^y "BLD",9384,1,0) ^^1^1^3160413^^^ "BLD",9384,1,1,0) Upload new Etiology entries into file (61.2) "BLD",9384,4,0) ^9.64PA^^ "BLD",9384,6) 18^ "BLD",9384,6.3) 77 "BLD",9384,"INI") "BLD",9384,"INID") n^n^n "BLD",9384,"INIT") EN^LR463ETI "BLD",9384,"KRN",0) ^9.67PA^779.2^20 "BLD",9384,"KRN",.4,0) .4 "BLD",9384,"KRN",.4,"NM",0) ^9.68A^^0 "BLD",9384,"KRN",.401,0) .401 "BLD",9384,"KRN",.401,"NM",0) ^9.68A^^0 "BLD",9384,"KRN",.402,0) .402 "BLD",9384,"KRN",.402,"NM",0) ^9.68A^^0 "BLD",9384,"KRN",.403,0) .403 "BLD",9384,"KRN",.403,"NM",0) ^9.68A^^0 "BLD",9384,"KRN",.5,0) .5 "BLD",9384,"KRN",.84,0) .84 "BLD",9384,"KRN",3.6,0) 3.6 "BLD",9384,"KRN",3.8,0) 3.8 "BLD",9384,"KRN",3.8,"NM",0) ^9.68A^^0 "BLD",9384,"KRN",9.2,0) 9.2 "BLD",9384,"KRN",9.2,"NM",0) ^9.68A^^0 "BLD",9384,"KRN",9.8,0) 9.8 "BLD",9384,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",9384,"KRN",9.8,"NM",1,0) LR463ETI^^0^B5368868 "BLD",9384,"KRN",9.8,"NM","B","LR463ETI",1) "BLD",9384,"KRN",19,0) 19 "BLD",9384,"KRN",19,"NM",0) ^9.68A^^ "BLD",9384,"KRN",19.1,0) 19.1 "BLD",9384,"KRN",101,0) 101 "BLD",9384,"KRN",409.61,0) 409.61 "BLD",9384,"KRN",771,0) 771 "BLD",9384,"KRN",779.2,0) 779.2 "BLD",9384,"KRN",870,0) 870 "BLD",9384,"KRN",8989.51,0) 8989.51 "BLD",9384,"KRN",8989.52,0) 8989.52 "BLD",9384,"KRN",8994,0) 8994 "BLD",9384,"KRN","B",.4,.4) "BLD",9384,"KRN","B",.401,.401) "BLD",9384,"KRN","B",.402,.402) "BLD",9384,"KRN","B",.403,.403) "BLD",9384,"KRN","B",.5,.5) "BLD",9384,"KRN","B",.84,.84) "BLD",9384,"KRN","B",3.6,3.6) "BLD",9384,"KRN","B",3.8,3.8) "BLD",9384,"KRN","B",9.2,9.2) "BLD",9384,"KRN","B",9.8,9.8) "BLD",9384,"KRN","B",19,19) "BLD",9384,"KRN","B",19.1,19.1) "BLD",9384,"KRN","B",101,101) "BLD",9384,"KRN","B",409.61,409.61) "BLD",9384,"KRN","B",771,771) "BLD",9384,"KRN","B",779.2,779.2) "BLD",9384,"KRN","B",870,870) "BLD",9384,"KRN","B",8989.51,8989.51) "BLD",9384,"KRN","B",8989.52,8989.52) "BLD",9384,"KRN","B",8994,8994) "BLD",9384,"PRE") "BLD",9384,"QDEF") ^^^^NO^^^^NO^^NO "BLD",9384,"QUES",0) ^9.62^^ "BLD",9384,"REQB",0) ^9.611^^ "INIT") EN^LR463ETI "MBREQ") 0 "PKG",26,-1) 1^1 "PKG",26,0) LAB SERVICE^LR^CORE LAB SYSTEM "PKG",26,20,0) ^9.402P^1^1 "PKG",26,20,1,0) 2^^LRXDRPT "PKG",26,20,1,1) "PKG",26,20,"B",2,1) "PKG",26,22,0) ^9.49I^1^1 "PKG",26,22,1,0) 5.2^2940927^2950611 "PKG",26,22,1,"PAH",1,0) 463^3161229^520736433 "PKG",26,22,1,"PAH",1,1,0) ^^1^1^3161229 "PKG",26,22,1,"PAH",1,1,1,0) Upload new Etiology entries into file (61.2) "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","LR463ETI") 0^1^B5368868^n/a "RTN","LR463ETI",1,0) LR463ETI ;LEIDOS/TCK - PRE INSTALL ROUTINE FOR LR*5.2*463 ; 4/25/16 10:48am "RTN","LR463ETI",2,0) ;;5.2;LAB SERVICE;**463**;NOV 7, 2015;Build 77 "RTN","LR463ETI",3,0) ; "RTN","LR463ETI",4,0) EN ; "RTN","LR463ETI",5,0) ;ADD NEW ENTRIES TO THE ETIOLGY FILE, (#61.2) "RTN","LR463ETI",6,0) N XX,LRFDA,NME,SNMD,ID,GRP,WKLD,ARRAY,IEN,STOP "RTN","LR463ETI",7,0) S (LRFDA,NME,SNMD,ID,GRP,WKLD,XX,IEN)="",STOP=0 "RTN","LR463ETI",8,0) ;Build array of new Etiolgy names "RTN","LR463ETI",9,0) S ARRAY("CRE",1)="KLEBSIELLA PNEUMONIAE, CARBAPENEM RESISTANT (CRE)" "RTN","LR463ETI",10,0) S ARRAY("CRE",2)="KLEBSIELLA OXYTOCA, CARBAPENEM RESISTANT (CRE)" "RTN","LR463ETI",11,0) S ARRAY("CRE",3)="ESCHERICHIA COLI, CARBAPENEM RESISTANT (CRE)" "RTN","LR463ETI",12,0) S ARRAY("CRE",4)="ENTEROBACTER CLOACAE, CARBAPENEM RESISTANT (CRE)" "RTN","LR463ETI",13,0) S ARRAY("CRE",5)="ENTEROBACTER SPP, CARBAPENEM RESISTANT (CRE)" "RTN","LR463ETI",14,0) ;Check if new Etilogy already exists in file 61.2 "RTN","LR463ETI",15,0) F S XX=$O(ARRAY("CRE",XX)) Q:XX="" D "RTN","LR463ETI",16,0) .S NME=ARRAY("CRE",XX) "RTN","LR463ETI",17,0) .S NAME=$E(NME,1,30) "RTN","LR463ETI",18,0) .I $D(^LAB(61.2,"B",NAME)) D Q "RTN","LR463ETI",19,0) ..S IEN="",IEN=$O(^LAB(61.2,"B",NAME,IEN)) "RTN","LR463ETI",20,0) ..S ^TMP($J,"ETI","OLD",IEN)=NME "RTN","LR463ETI",21,0) .I '$D(^LAB(61.2,"B",NAME)) D "RTN","LR463ETI",22,0) ..D ADD(NME,.IEN) "RTN","LR463ETI",23,0) D DISPLAY "RTN","LR463ETI",24,0) Q "RTN","LR463ETI",25,0) ; "RTN","LR463ETI",26,0) ADD(NME,IEN) ; "RTN","LR463ETI",27,0) N LRFIL,LRFDA "RTN","LR463ETI",28,0) S LRFIL=61.2 "RTN","LR463ETI",29,0) ;Stub new record in 61.2 -- name only "RTN","LR463ETI",30,0) S X=NME,DIC(0)="L",DIC="^LAB(61.2,",LRFMERTS=1 "RTN","LR463ETI",31,0) D FILE^DICN S IEN=+Y "RTN","LR463ETI",32,0) ;Update NODE 0 FIELDS "RTN","LR463ETI",33,0) K DLAYGO "RTN","LR463ETI",34,0) S LRFIL=61.2,LRIEN=IEN_"," "RTN","LR463ETI",35,0) S TMPFDA(1,LRFIL,LRIEN,2)="" "RTN","LR463ETI",36,0) S TMPFDA(1,LRFIL,LRIEN,4)="B" "RTN","LR463ETI",37,0) S TMPFDA(1,LRFIL,LRIEN,1.6)="ENTEROBACTERIACEAE" "RTN","LR463ETI",38,0) D UPDATE^DIE("","TMPFDA(1)","LRIENS","LRMSG") "RTN","LR463ETI",39,0) K LRFIL,LRIEN,TMPFDA "RTN","LR463ETI",40,0) S ^TMP($J,"ETI","NEW",IEN)=NME "RTN","LR463ETI",41,0) Q "RTN","LR463ETI",42,0) ; "RTN","LR463ETI",43,0) DISPLAY ; "RTN","LR463ETI",44,0) W !! "RTN","LR463ETI",45,0) I $D(^TMP($J,"ETI")) M ETIARY=^TMP($J,"ETI") "RTN","LR463ETI",46,0) I $D(ETIARY("NEW")) D "RTN","LR463ETI",47,0) .W !,"The following Etiology entries were added to the Etiology file: " "RTN","LR463ETI",48,0) .W ! "RTN","LR463ETI",49,0) .S I="" F S I=$O(ETIARY("NEW",I)) Q:I="" D "RTN","LR463ETI",50,0) ..S NAME=ETIARY("NEW",I) "RTN","LR463ETI",51,0) ..W !,I_" "_NAME "RTN","LR463ETI",52,0) I $D(ETIARY("OLD")) D "RTN","LR463ETI",53,0) .W !,"The following Etiology items were found in the Etiology file: " "RTN","LR463ETI",54,0) .S I="" F S I=$O(ETIARY("OLD",I)) Q:I="" D "RTN","LR463ETI",55,0) ..S NAME=ETIARY("OLD",I) "RTN","LR463ETI",56,0) ..W !,I_" "_NAME "RTN","LR463ETI",57,0) END ; "RTN","LR463ETI",58,0) K DIC,I,LRFMERTS,LRMULT,N,NAME,WKLIEN,X,Y,ETIARY,^TMP("ETI") "RTN","LR463ETI",59,0) Q "RTN","LR463ETI",60,0) ; "VER") 8.0^22.0 "BLD",9384,6) ^378 **END** **END**