Released LR*5.2*410 SEQ #324 Extracted from mail message **KIDS**:LR*5.2*410^ **INSTALL NAME** LR*5.2*410 "BLD",8714,0) LR*5.2*410^LAB SERVICE^0^3110315^y "BLD",8714,1,0) ^^17^17^3110314^^ "BLD",8714,1,1,0) This patch is a VM lab patch that addresses a minor DD change, a change "BLD",8714,1,2,0) to 2 menu options, and a modification to the DSS extract for LAB. "BLD",8714,1,3,0) "BLD",8714,1,4,0) 1. The DELETE cross-reference code for field #10 (Cancelled By) of "BLD",8714,1,5,0) the TEST multiple of the SPECIMEN subfile (#69.03) of the LAB "BLD",8714,1,6,0) ORDERS file (#69) has faulty syntax which leads to a "BLD",8714,1,7,0) error when a deletion of an entry in the CANCELLED BY field "BLD",8714,1,8,0) occurs. "BLD",8714,1,9,0) "BLD",8714,1,10,0) 2. The option descriptions for option LR WKLD REQUEST and option LR "BLD",8714,1,11,0) WKLD SERVICE are reversed. "BLD",8714,1,12,0) "BLD",8714,1,13,0) 3. During extraction of lab data for the Decision Support Software "BLD",8714,1,14,0) (DSS) it was discovered that some lab test names included a tilde "BLD",8714,1,15,0) character (~) or an exclamation point (!) which caused the record "BLD",8714,1,16,0) parser to incorrectly identify the end of the record and thus "BLD",8714,1,17,0) skip pertinent data. "BLD",8714,4,0) ^9.64PA^64.03^2 "BLD",8714,4,64.03,0) 64.03 "BLD",8714,4,64.03,2,0) ^9.641^64.03^1 "BLD",8714,4,64.03,2,64.03,0) WKLD LOG FILE (File-top level) "BLD",8714,4,64.03,2,64.03,1,0) ^9.6411^20^1 "BLD",8714,4,64.03,2,64.03,1,20,0) DATA NAME "BLD",8714,4,64.03,222) y^y^p^^^^n^^n "BLD",8714,4,64.03,224) "BLD",8714,4,69,0) 69 "BLD",8714,4,69,2,0) ^9.641^69.03^1 "BLD",8714,4,69,2,69.03,0) TEST (sub-file) "BLD",8714,4,69,2,69.03,1,0) ^9.6411^10^1 "BLD",8714,4,69,2,69.03,1,10,0) CANCELED BY "BLD",8714,4,69,222) y^y^p^^^^n^^n "BLD",8714,4,69,224) "BLD",8714,4,"APDD",64.03,64.03) "BLD",8714,4,"APDD",64.03,64.03,20) "BLD",8714,4,"APDD",69,69.03) "BLD",8714,4,"APDD",69,69.03,10) "BLD",8714,4,"B",64.03,64.03) "BLD",8714,4,"B",69,69) "BLD",8714,6.3) 1 "BLD",8714,"ABPKG") n "BLD",8714,"KRN",0) ^9.67PA^779.2^20 "BLD",8714,"KRN",.4,0) .4 "BLD",8714,"KRN",.4,"NM",0) ^9.68A^^ "BLD",8714,"KRN",.401,0) .401 "BLD",8714,"KRN",.402,0) .402 "BLD",8714,"KRN",.403,0) .403 "BLD",8714,"KRN",.5,0) .5 "BLD",8714,"KRN",.84,0) .84 "BLD",8714,"KRN",3.6,0) 3.6 "BLD",8714,"KRN",3.8,0) 3.8 "BLD",8714,"KRN",9.2,0) 9.2 "BLD",8714,"KRN",9.8,0) 9.8 "BLD",8714,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",8714,"KRN",9.8,"NM",1,0) LRCAPDSS^^0^B14257746 "BLD",8714,"KRN",9.8,"NM","B","LRCAPDSS",1) "BLD",8714,"KRN",19,0) 19 "BLD",8714,"KRN",19,"NM",0) ^9.68A^2^2 "BLD",8714,"KRN",19,"NM",1,0) LR WKLD SERVICE^^0 "BLD",8714,"KRN",19,"NM",2,0) LR WKLD REQUEST^^0 "BLD",8714,"KRN",19,"NM","B","LR WKLD REQUEST",2) "BLD",8714,"KRN",19,"NM","B","LR WKLD SERVICE",1) "BLD",8714,"KRN",19.1,0) 19.1 "BLD",8714,"KRN",19.1,"NM",0) ^9.68A^^ "BLD",8714,"KRN",101,0) 101 "BLD",8714,"KRN",409.61,0) 409.61 "BLD",8714,"KRN",771,0) 771 "BLD",8714,"KRN",779.2,0) 779.2 "BLD",8714,"KRN",870,0) 870 "BLD",8714,"KRN",8989.51,0) 8989.51 "BLD",8714,"KRN",8989.52,0) 8989.52 "BLD",8714,"KRN",8994,0) 8994 "BLD",8714,"KRN","B",.4,.4) "BLD",8714,"KRN","B",.401,.401) "BLD",8714,"KRN","B",.402,.402) "BLD",8714,"KRN","B",.403,.403) "BLD",8714,"KRN","B",.5,.5) "BLD",8714,"KRN","B",.84,.84) "BLD",8714,"KRN","B",3.6,3.6) "BLD",8714,"KRN","B",3.8,3.8) "BLD",8714,"KRN","B",9.2,9.2) "BLD",8714,"KRN","B",9.8,9.8) "BLD",8714,"KRN","B",19,19) "BLD",8714,"KRN","B",19.1,19.1) "BLD",8714,"KRN","B",101,101) "BLD",8714,"KRN","B",409.61,409.61) "BLD",8714,"KRN","B",771,771) "BLD",8714,"KRN","B",779.2,779.2) "BLD",8714,"KRN","B",870,870) "BLD",8714,"KRN","B",8989.51,8989.51) "BLD",8714,"KRN","B",8989.52,8989.52) "BLD",8714,"KRN","B",8994,8994) "BLD",8714,"QUES",0) ^9.62^^ "BLD",8714,"REQB",0) ^9.611^1^1 "BLD",8714,"REQB",1,0) LR*5.2*403^2 "BLD",8714,"REQB","B","LR*5.2*403",1) "FIA",64.03) WKLD LOG FILE "FIA",64.03,0) ^LRO(64.03, "FIA",64.03,0,0) 64.03 "FIA",64.03,0,1) y^y^p^^^^n^^n "FIA",64.03,0,10) "FIA",64.03,0,11) "FIA",64.03,0,"RLRO") "FIA",64.03,0,"VR") 5.2^LR "FIA",64.03,64.03) 1 "FIA",64.03,64.03,20) "FIA",69) LAB ORDER ENTRY "FIA",69,0) ^LRO(69, "FIA",69,0,0) 69D "FIA",69,0,1) y^y^p^^^^n^^n "FIA",69,0,10) "FIA",69,0,11) "FIA",69,0,"RLRO") "FIA",69,0,"VR") 5.2^LR "FIA",69,69) 1 "FIA",69,69.03) 1 "FIA",69,69.03,10) "KRN",19,10551,-1) 0^1 "KRN",19,10551,0) LR WKLD SERVICE^Service dictionary^^P^^^^^^^^LAB SERVICE "KRN",19,10551,1,0) ^19.06^4^4^2940902^^^^ "KRN",19,10551,1,1,0) This option lists all requesting locations by treating specialties for your "KRN",19,10551,1,2,0) site. This option is useful in determining which locations do not have "KRN",19,10551,1,3,0) abbreviations entered in the file. The option [LR WKLD REQUEST] 'Requesting "KRN",19,10551,1,4,0) Center Dictionary' only lists treating specialties with abbreviations. "KRN",19,10551,60) DIC(45.7, "KRN",19,10551,62) 0 "KRN",19,10551,63) .01,99 "KRN",19,10551,64) .01 "KRN",19,10551,65) AA@z "KRN",19,10551,66) "KRN",19,10551,"U") SERVICE DICTIONARY "KRN",19,10552,-1) 0^2 "KRN",19,10552,0) LR WKLD REQUEST^Requesting center dictionary^^P^^^^^^^^LAB SERVICE "KRN",19,10552,1,0) ^^5^5^2940902^^^^ "KRN",19,10552,1,1,0) This option lists by abbreviation every requesting center (or treating "KRN",19,10552,1,2,0) specialty) on file for your site. "KRN",19,10552,1,3,0) NOTE: Only those treating specialties with abbreviations will be "KRN",19,10552,1,4,0) listed by this option. Use [LR WKLD SERVICE] 'Service Dictionary' for "KRN",19,10552,1,5,0) a complete listing. "KRN",19,10552,60) DIC(45.7, "KRN",19,10552,62) 0 "KRN",19,10552,63) 99,.01 "KRN",19,10552,64) 99 "KRN",19,10552,65) AA@z "KRN",19,10552,66) ZZZ "KRN",19,10552,"U") REQUESTING CENTER DICTIONARY "MBREQ") 0 "ORD",18,19) 19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA "ORD",18,19,0) OPTION "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^2950304 "PKG",26,22,1,"PAH",1,0) 410^3110315 "PKG",26,22,1,"PAH",1,1,0) ^^17^17^3110315 "PKG",26,22,1,"PAH",1,1,1,0) This patch is a VM lab patch that addresses a minor DD change, a change "PKG",26,22,1,"PAH",1,1,2,0) to 2 menu options, and a modification to the DSS extract for LAB. "PKG",26,22,1,"PAH",1,1,3,0) "PKG",26,22,1,"PAH",1,1,4,0) 1. The DELETE cross-reference code for field #10 (Cancelled By) of "PKG",26,22,1,"PAH",1,1,5,0) the TEST multiple of the SPECIMEN subfile (#69.03) of the LAB "PKG",26,22,1,"PAH",1,1,6,0) ORDERS file (#69) has faulty syntax which leads to a "PKG",26,22,1,"PAH",1,1,7,0) error when a deletion of an entry in the CANCELLED BY field "PKG",26,22,1,"PAH",1,1,8,0) occurs. "PKG",26,22,1,"PAH",1,1,9,0) "PKG",26,22,1,"PAH",1,1,10,0) 2. The option descriptions for option LR WKLD REQUEST and option LR "PKG",26,22,1,"PAH",1,1,11,0) WKLD SERVICE are reversed. "PKG",26,22,1,"PAH",1,1,12,0) "PKG",26,22,1,"PAH",1,1,13,0) 3. During extraction of lab data for the Decision Support Software "PKG",26,22,1,"PAH",1,1,14,0) (DSS) it was discovered that some lab test names included a tilde "PKG",26,22,1,"PAH",1,1,15,0) character (~) or an exclamation point (!) which caused the record "PKG",26,22,1,"PAH",1,1,16,0) parser to incorrectly identify the end of the record and thus "PKG",26,22,1,"PAH",1,1,17,0) skip pertinent data. "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","LRCAPDSS") 0^1^B14257746^B14056855 "RTN","LRCAPDSS",1,0) LRCAPDSS ;DALISC/FHS-LAB WORKLOAD DSS EXTRACT (LMIP) ;1/26/11 16:38 "RTN","LRCAPDSS",2,0) ;;5.2;LAB SERVICE;**127,143,201,221,403,410**;Sep 27, 1994;Build 1 "RTN","LRCAPDSS",3,0) ;ECX*3 compatible "RTN","LRCAPDSS",4,0) EN ; "RTN","LRCAPDSS",5,0) ; Call with Start Date (LRSDT) End Date (LREDT) FileMan format "RTN","LRCAPDSS",6,0) ; Calling routine should have already purged ^LRO(64.03) "RTN","LRCAPDSS",7,0) S:$D(ZTQUEUED) ZTREQ="@" "RTN","LRCAPDSS",8,0) I $S($G(LRSDT)'?7N:1,$G(LREDT)'?7N:1,1:0) Q "RTN","LRCAPDSS",9,0) N X,I "RTN","LRCAPDSS",10,0) L +^LRO(64.03):10 G:'$T END "RTN","LRCAPDSS",11,0) I LRSDT>LREDT S X=LRSDT,LRSDT=LREDT,LREDT=X "RTN","LRCAPDSS",12,0) S LRX1=(9999999-LRSDT),LRX2=(9999999-LREDT)-1 "RTN","LRCAPDSS",13,0) S LREDT0=LREDT,X1=LREDT,X2="+35" D C^%DTC S LREDT=X "RTN","LRCAPDSS",14,0) S LRSDT0=LRSDT,LRSDT=LRSDT-".9999" "RTN","LRCAPDSS",15,0) ;Q "RTN","LRCAPDSS",16,0) S LRDPROV=$P($G(^LAB(69.9,1,12)),U) G END:'LRDPROV S $P(^("NITE"),U,6)="" "RTN","LRCAPDSS",17,0) S:'$D(^LRO(64.03,0))#2 ^LRO(64.03,0)="WKLD LOG FILE^64.03^" "RTN","LRCAPDSS",18,0) S LRNOW=$$NOW^XLFDT "RTN","LRCAPDSS",19,0) S LRDSS0=^LRO(64.03,0),LRSNODE=$S($P(LRDSS0,U,3):$P(LRDSS0,U,3),1:1) F LRSNODE=LRSNODE:1 Q:'$D(^LRO(64.03,LRSNODE,0)) "RTN","LRCAPDSS",20,0) S ^LRO(64.03,LRSNODE,0)=LRSNODE,^(1,0)="^64.317DA^1^1",^(1,0)=LRNOW_U_LRSDT0_U_LREDT0_U_U_$G(DUZ) "RTN","LRCAPDSS",21,0) S ^LRO(64.03,"B",LRNOW,LRSNODE,1)="" "RTN","LRCAPDSS",22,0) INST S LRSDTX=LRSDT,LRIN=0 F S LRIN=$O(^LRO(64.1,LRIN)) Q:LRIN<1 D "RTN","LRCAPDSS",23,0) . S LRSDT=LRSDTX-.0001 F S LRSDT=$O(^LRO(64.1,LRIN,1,LRSDT)) Q:LRSDT<1!(LRSDT>LREDT) D "RTN","LRCAPDSS",24,0) . . S LRCC=0 F S LRCC=$O(^LRO(64.1,LRIN,1,LRSDT,1,LRCC)) Q:LRCC<1 S LRCCX=$G(^LAM(LRCC,0)) D "RTN","LRCAPDSS",25,0) . . . Q:$P($G(LRCCX),U,2)'?5N1"."4N.5N Q:$S($P(LRCCX,U,5):0,$P(LRCCX,U,16):0,+$P(LRCCX,".",2)=9999:0,$E($P(LRCCX,".",2))=8:0,1:1) "RTN","LRCAPDSS",26,0) . . . S LRTM=0 F S LRTM=$O(^LRO(64.1,LRIN,1,LRSDT,1,LRCC,1,LRTM)) Q:LRTM'>0 I $D(^(LRTM,0)) D SET "RTN","LRCAPDSS",27,0) S $P(^LRO(64.03,LRSNODE,1,1,0),U,4)=$$NOW^XLFDT "RTN","LRCAPDSS",28,0) END ; "RTN","LRCAPDSS",29,0) L -^LRO(64.03) Q:$G(LRDBUG) "RTN","LRCAPDSS",30,0) K DFN,LRAA,LRACCDT,LRACCN,LRCC,LRCCX,LRDSS,LRDSS0,LREDT,LRIDT,LRIN "RTN","LRCAPDSS",31,0) K LRLOC,LRLOCN,LRLOCTY,LRODT,LRPROV,LRSDT,LRSDTX,LRSNODE,LRSPEC,LRSTR,LRTEST "RTN","LRCAPDSS",32,0) K LRTIM,LRTM,LRTS,LRURG,LRX,LRN0,LRNX,X,LRMULT,LREDT0,LRSDT0,LRNOW,LRX1 "RTN","LRCAPDSS",33,0) K LRX2,X1,X2,LRPFILE,LR64PTR,LRBILL,LRDSSFK,LRTNM,LRDTNM,LRDPROV,LROCTY "RTN","LRCAPDSS",34,0) Q "RTN","LRCAPDSS",35,0) SET ; "RTN","LRCAPDSS",36,0) S LRSTR=$G(^LRO(64.1,LRIN,1,LRSDT,1,LRCC,1,LRTM,0)) "RTN","LRCAPDSS",37,0) S LR64PTR=+$G(^LRO(64.1,LRIN,1,LRSDT,1,LRCC,0)),LRBILL="",LRDSSFK="" "RTN","LRCAPDSS",38,0) I LR64PTR>0,$D(^LAM(LR64PTR,0)) S LRBILL=$P(^(0),U,5),LRDSSFK=$P(^(0),U,16) "RTN","LRCAPDSS",39,0) S LRPFILE=$P($P(LRSTR,U,10),";",2) Q:$S(LRPFILE="LRT(67,":0,LRPFILE="DPT(":0,LRPFILE="LRT(67.1,":0,1:1) "RTN","LRCAPDSS",40,0) S LRIDT=$P(LRSTR,U,22) "RTN","LRCAPDSS",41,0) I '$G(LRDBUG),$S(LRIDT>LRX1:1,LRIDT0 F I=1:1:LRMULT D NEXT "RTN","LRCAPDSS",58,0) Q "RTN","LRCAPDSS",59,0) NEXT S LRN0=^LRO(64.03,0),LRNX=$S($P(LRN0,U,3):$P(LRN0,U,3),1:1) F LRNX=LRNX:1 Q:'$D(^LRO(64.03,LRNX,0)) "RTN","LRCAPDSS",60,0) S $P(LRN0,U,3)=LRNX,$P(LRN0,U,4)=$P(LRN0,U,4)+1,^LRO(64.03,0)=LRN0 "RTN","LRCAPDSS",61,0) S ^LRO(64.03,LRNX,0)=LRNX_U_LRX "RTN","LRCAPDSS",62,0) S ^LRO(64.03,LRNX,2)=LRBILL_"^"_LRDSSFK_"^"_LRTNM_"^"_LRDTNM "RTN","LRCAPDSS",63,0) Q "RTN","LRCAPDSS",64,0) LOOP S LRDPROV=$P(^LAB(69.9,1,12),U),LRDBUG=1 "RTN","LRCAPDSS",65,0) S LRTM=0 F S LRTM=$O(^LRO(64.1,LRIN,1,LRSDT,1,LRCC,1,LRTM)) Q:LRTM<1 D SET "RTN","LRCAPDSS",66,0) K LRDBUG "RTN","LRCAPDSS",67,0) Q "UP",69,69.03,-2) 69^1 "UP",69,69.03,-1) 69.01^2 "UP",69,69.03,0) 69.03 "VER") 8.0^22.0 "^DD",64.03,64.03,20,0) DATA NAME^F^^2;3^K:$L(X)>40!($L(X)<3) X "^DD",64.03,64.03,20,3) Answer must be 3-40 characters in length. "^DD",64.03,64.03,20,21,0) ^.001^1^1^3110126^^^ "^DD",64.03,64.03,20,21,1,0) This field is the lab Data Name. "^DD",64.03,64.03,20,23,0) ^^10^10^3110126^ "^DD",64.03,64.03,20,23,1,0) This field will allow lab management and DSS staff to know whether the "^DD",64.03,64.03,20,23,2,0) entry is a panel test and if it has been designated as a separately "^DD",64.03,64.03,20,23,3,0) billable test. If this field has a value then it is not a panel test and "^DD",64.03,64.03,20,23,4,0) is individually billable. If this field does not have a value then it's a "^DD",64.03,64.03,20,23,5,0) panel test and is billable as a unit. "^DD",64.03,64.03,20,23,6,0) "^DD",64.03,64.03,20,23,7,0) This field indicates the data name for the lab test expressed in the "^DD",64.03,64.03,20,23,8,0) DATA NAME (#400) field of the LABORATORY TEST File (#60) and is only "^DD",64.03,64.03,20,23,9,0) populated if a test is a non-panel test and is part of the CHEM, HEM, TOX, "^DD",64.03,64.03,20,23,10,0) SER, RIA, etc. area. "^DD",64.03,64.03,20,"DT") 3100308 "^DD",69,69.03,10,0) CANCELED BY^P200'^VA(200,^0;11^Q "^DD",69,69.03,10,1,0) ^.1 "^DD",69,69.03,10,1,1,0) 69^AE^MUMPS "^DD",69,69.03,10,1,1,1) S:'$D(^LRO(69,DA(2),1,DA(1),"PCE")) ^LRO(69,"AE",$E(X,1,30),DA(2),DA(1),DA)="" "^DD",69,69.03,10,1,1,2) K ^LRO(69,"AE",$E(X,1,30),DA(2),DA(1),DA) "^DD",69,69.03,10,1,1,3) This cross reference is used to update PCE of canceled test "^DD",69,69.03,10,1,1,"%D",0) ^.101^6^6^3100728^^^ "^DD",69,69.03,10,1,1,"%D",1,0) This cross reference is set when a test is canceled. The Lab PCE API uses "^DD",69,69.03,10,1,1,"%D",2,0) these entries to notify PCE that this test was not performed. After "^DD",69,69.03,10,1,1,"%D",3,0) notification of PCE the X-ref is removed. "^DD",69,69.03,10,1,1,"%D",4,0) "^DD",69,69.03,10,1,1,"%D",5,0) This X-ref should not be set if no initial notification to PCE that this "^DD",69,69.03,10,1,1,"%D",6,0) test was done. "^DD",69,69.03,10,1,1,"DT") 2981026 "^DD",69,69.03,10,3) Enter the person who canceled the order. "^DD",69,69.03,10,21,0) ^^1^1^2960409^ "^DD",69,69.03,10,21,1,0) This is the person who canceled this test. "^DD",69,69.03,10,"DT") 2981026 "BLD",8714,6) ^324 **END** **END**