{"aaData": [["ABS VALUE", "
Q:X=\"\"!(X1=\"\")!(+X2=0)!(X?.A) S Y=0,X3=X-X1 S:X3<0 X3=-X3 I X3>X2 S Y=1 W \" << DELTA CHECK >> \",*7,X3
\n", "", "
\nCompares the entered value with the last reported value for the test and if\n+ or - the difference is greater than the DELTA VALUE, a warning will be\ndisplayed.  No check is performed if the entry is 'null', the previous\nvalue was not entered, there is no numeric DELTA VALUE entered, the entry\nis text, or the previous value was older than the DAYS BACK FOR DELTA\nCHECKS.\n
\n
\n", "", "", "", "", ""], ["CREATININE CLEARANCE", "
X:$L(X) ^LAB(62.1,1,1) Q:$L(X) R !,\"URINE CREATININE: \",X,\" BLOOD CREATININE: \",X1,\" DILUTION: \",X2,\" URINE VOLUME: \",X3,\" TIME: \",X4 S X=X*X2*X3/X1/X4 W \" CLEARANCE IS: \",X
\n", "", "
\nCould be used to prompt for values to display a Calculated CREATININE\nCLEARANCE.  It WILL NOT stuff any result.\nIf no result is entered then URINE CREATININE, BLOOD CREATININE, DILUTION,\nURINE VOLUME, and TIME are prompted.  The CLEARANCE is then displayed.\nYou must then manually enter this result.\nThe calculation is ((URINE CREAT * DILUTION * VOLUME) / BLOOD CREAT) / TIME\nThe ABS VALUE delta check is also done.\n
\n
\n", "", "", "", "", ""], ["PERCENT", "
Q:(+X=0)!(+X1=0)!(+X2=0)!(X?.A) S Y=0,X3=(X-X1)/X1*100 S:X3<0 X3=-X3 I X3>X2 S Y=1 W \" << DELTA CHECK >> \",$J(X3,2,0)
\n", "", "
\nSimilar to ABS VALUE delta check except the % change will be displayed.\nIf you use this the DELTA VALUE should also be a percentage.\n
\n
\n", "", "", "", "", ""], ["NORM1", "
S:X[\"Y\" LRSKIP=\"^MICROCYTOSIS\" S:X[\"N\" X=\"\"
\n", "", "
\nCould be used on the test, NORMOCYTIC.  If the entry contains a 'Y'\nthe next prompt will be MICROCYTOSIS; otherwise, it will be the next\ntest in the sequence of the panel.\n
\n
\n", "", "", "", "", ""], ["NORM2", "
S:X[\"Y\" LRSKIP=\"^\" S:X[\"N\" X=\"\"
\n", "", "
\nCould be use on the test, NORMOCHROMIC.  If the entry contains a 'Y'\nthe other tests in the panel would be skipped and prompt with COMMENT;\notherwise, it will prompt the next test in the panel.\n
\n
\n", "", "", "", "", ""], ["URIC ACID", "
Q:X=\"\"!(X[\"c\") R \" Enter mls urine/24 hr: \",X3 W:X3'>0 \"VALUE MUST BE GREATER THAN ZERO\" S:X3>0 X=$J(X*X3/100,0,2)_\"c\"
\n", "", "
\nCould be used on the test, URIC ACID, under the Site/Specimen of URINE.\nAfter accepting the value for the URIC ACID, the urine volume will be  \nprompted.  Upon receiving a positive numeric result the URIC ACID result\nwill be converted to units/24 hrs.\nThe calculation is (URIC ACID * VOL/24 HRS) / 100\nThe result is displayed to 2 decimal places and has a 'c' after it.\n
\n
\n", "", "", "", "", ""], ["DIFFINIT", "
K %X S %X=X,LREXEC=\"ABS VALUE\" D DELTA^LREXEC
\n", "", "", "", "", "", "", ""], ["DIFFSUM", "
S:'$D(%X) %X=0 S %X=%X+X,LREXEC=\"ABS VALUE\" D DELTA^LREXEC
\n", "", "", "", "", "", "", ""], ["DIFFANS", "
Q:'$D(%X) S %X=%X+X,LREXEC=\"ABS VALUE\" D DELTA^LREXEC W:%X'=100&(%X'=0) !,*7,\" DIFFS DO NOT ADD TO 100\",! K %X
\n", "", "", "", "", "", "", ""], ["PLT. EST", "
X ^LAB(62.1,27,2) I $D(X),LRIDTX]\"\" S LRPL=$P(^(392),\"^\",1) S:X=\"A\"&(LRPL>$P(^LAB(60,9,1,70,0),\"^\",2))&(LRPL<420.1) R=1 S:X=\"R\"&(LRPL<140.1) R=1 S:X=\"I\"&(LRPL>419.9) R=1 W \" PLT COUNT: \",LRPL W:'$D(R) *7,\" **CHECK PLT. EST**\" K R
\n", "
S LRIDTX=$S($D(^LRO(68,10,1,LRAD,1,LRAN,3)):9999999-^(3),1:\"\") S:'$D(^LR(LRDFN,\"CH\",+LRIDTX,392)) LRIDTX=\"\" Q
\n", "
\nCould be used on the test, PLT. EST.  Checks if a platelet count was\nverified on this accession and if so, displays that value.\nIf PLT. EST is 'R' and PLT > 140\nor PLT. EST is 'I' and PLT < 420\nor PLT. EST is 'A' and PLT > 420 or PLT < Ref Low\nthen a warning will be displayed.\n
\n
\n", "", "", "", "", ""], ["LYMPH %", "
X ^LAB(62.1,25,1) S LRIDTX=$S($D(^LRO(68,10,1,LRAD,1,LRAN,3)):9999999-^(3),1:\"\") Q:LRIDTX=\"\" Q:'$D(^LR(LRDFN,\"CH\",LRIDTX,502)) I $D(X) S X3=$P(^(502),\"^\",1) I X3>0 S X2=X-X3 S:X2<0 X2=-X2 I $S(X<20:3,X>50:20,1:5)\n", "", "
\nCould be used on the test LYMPHS.  Checks to see if a LYMPH % test has been\nverified (LYMPH % is an estimated differential count from a Coulter +2)\nand if so, checks:\nif LYMPHS < 20 and difference between LYMPHS and LYMPH % is > 3\nor LYMPHS > 50 and difference between LYMPHS and LYMPH % is > 20\nor difference between LYMPHS and LYMPH % is > 5\nthen a warning will be displayed.\nThe DIFFSUM delta check is also done.\n
\n
\n", "", "", "", "", ""], ["A1C", "
S G6=0 F G=1:1:5 S G6=$O(^LR(LRDFN,\"CH\",G6)) Q:G6=\"\" Q:'$D(^LR(LRDFN,\"CH\",G6,2)) W !,?40,\" GLUCOSE: \",$P(^(2),\"^\",1),?55,\" DATE: \" S G6=9999999-G6,G7=$E(G6,5)_\"-\"_$E(G6,6,7)_\"-\"_$E(G6,2,3)_\" \"_$E(G6,9,12) W G7 S G6=9999999-G6
\n", "", "
\nLooks at patient's last 5 lab results to see if there is a result for\nGlucose, and if so, dislays the glucose value and time it was collected.\n
\n
\n", "", "", "", "", ""], ["HGB", "
S:'$D(LRHGB)&$D(X) LRHGB=X X ^LAB(62.1,1,1)
\n", "", "
\nMust be used in conjunction with the HCT delta check.\nABS VALUE delta check is also done.\n
\n
\n", "", "", "", "", ""], ["URINE CASTS", "
S X=$S(X=\"Y\":\"\",1:X) S:X[\"N\" LRSKIP=\"^URINE CRYSTALS\"
\n", "", "
\nCould be used on the test, URINE CASTS.  If the entry is 'N' then\nthe next prompt will be on the test, URINE CRYSTALS; otherwise\nit will be the next test in the urinalysis panel.\n
\n
\n", "", "", "", "", ""], ["URINE CRYSTALS", "
S X=$S(X=\"Y\":\"\",1:X) S:X[\"N\" LRSKIP=\"^URINE EPITH CELLS\"
\n", "", "
\nCould be used on the test, URINE CRYSTALS.  If the entry is 'N' then\nthe next prompt will be on the test, URINE EPITH CELLS; otherwise,\nit will be the next test in the urinalysis panel.\n
\n
\n", "", "", "", "", ""], ["ANION CALC & PERCENT", "
X ^LAB(62.1,2,1) K %X S %X=\"\" X:$D(LRDEL(1)) LRDEL(1) W:%X \" Calculated ANION GAP: \",%X S:LRVRM>10 LRSB(790)=%X K %,%X,%Y,%Z
\n", "
X:LRVRM>10 \"F %=5,7,8 S %X(%)=$S(%=LRSB:X,$D(LRSB(%)):+LRSB(%),1:0)\" X:LRVRM<10 \"F %=5,7,8 S %X(%)=$S($D(LRSB(%)):LRSB(%),1:0)\" I %X(5)>0,%X(7)>0,%X(8)>0 S %X=%X(5)-%X(7)-%X(8)
\n", "
\nCould be used on the tests: SODIUM, CHLORIDE, and CO2.  If values are\npresent on these tests it will display the Calculated ANION GAP.\nThe test, ANION GAP, will be stuffed with this value.\nThe calculation is Na - Cl - CO2\nThe PERCENT delta check will also be done.\n
\n
\n", "", "", "", "", ""], ["POIKILO", "
S:X=\"N\" LRSKIP=\"^MICROCYTOSIS\",X=\"\"
\n", "", "
\nEntering a 'N' would skip to MICROCYTOSIS.\n
\n
\n", "", "", "", "", ""], ["EPITHELIAL CELLS", "
S:'(\"YN\"[X) X=\"?\" Q:X=\"?\" S X=$S(X=\"Y\":\"\",1:X) S:X=\"N\" LRSKIP=\"^URINE YEAST\"
\n", "", "
\nCould be used on the test, URINE EPITH CELLS.  If the entry is 'N' then\nthe next test promted would be URINE YEAST; otherwise, it would be the\nnext test in the sequence of urinalysis panel.\n
\n
\n", "", "", "", "", ""], ["UREA NITROGEN & OSMOLALITY", "
X:$D(LRDEL(1)) LRDEL(1) I $D(LRLL),$L(LRLL),$D(LRISEQ),$L(LRISEQ),$D(^LR(LRDFN,\"CH\",LRIDT,0)),$D(^LAH(LRLL,1,LRISEQ,2)),$D(^(3)),$D(^(5)),^(2)>0,^(3)>0,^(5)>0 S ^(791)=1.86*^(5)+(^(2)/18)+(^(3)/2.8)\\1
\n", "
X ^LAB(62.1,1,1) I $D(^LR(LRDFN,\"CH\",LRIDT,0)),$D(^(2)),$D(^(3)),$D(^(5)),^(2)>0,^(3)>0,^(5)>0 S ^(791)=1.86*^(5)+(^(2)/18)+(^(3)/2.8)\\1
\n", "
\nCould be used the tests, GLUCOSE, UREA NITROGEN, and, SODIUM to calulate\nand store the results of CALCULATED OSMOLALITY.\nThe calculation is (1.86 * SODIUM)+(GLUCOSE / 18)+(UREA NITROGEN / 2.8)\nrounded off to a whole number.\nThe ABS VALUE delta check is also done.\n
\n
\n", "", "", "", "", ""], ["HCT", "
X ^LAB(62.1,1,1) Q:'$D(LRHGB)!'$D(X) S X1=3*LRHGB K LRHGB IF (X<(X1-2))!(X>(X1+2)) W !,*7,\"==> CHECK HCT AND HGB VALUES <==\",!
\n", "", "
\nChecks if the hematocrit value is 3 times the hemoglobin + or - 2.\nCould be used on the test HCT (must also have the HGB delta check setup\non the test HGB).  Will not be checked if HGB delta check was not done\nfirst (ie. HGB should be before HCT in the CBC panel) or if no value\nis entered for HCT.  ABS VALUE delta check is also done.\n
\n
\n", "", "", "", "", ""], ["URINE EPITH CELLS", "
S X=$S(X=\"Y\":\"\",1:X) S:X[\"N\" LRSKIP=\"^URINE YEAST\"
\n", "", "
\nCould be used on the test, URINE EPITH CELLS.  If the entry is 'N' then\nthe next prompt will be on the test, URINE YEAST; otherwise it will\nbe the next test in the urinalysis panel.\n
\n
\n", "", "", "", "", ""], ["MCV", "
I $L(X),'$D(^LR(LRDFN,\"CH\",LRIDT,388)) S LRBULL=1
\n", "", "
\nNeeds to be used on the test, MCV, in order to use the Bull algorithm.\n
\n
\n", "", "", "", "", ""], ["MCHC", "
X ^LAB(62.1,1,1) Q:'$D(X) W:X>36 !,*7,\"==> CHECK MCHC VALUE <==\",!
\n", "", "
\nCould be used on the test, MCHC.  Displays a warning if the MCHC is > 36.\nThe ABS VALUE delta check is also done.\n
\n
\n", "", "", "", "", ""]]}