| XECUTABLE CODE |
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 |
| DESCRIPTION |
Could be used to prompt for values to display a Calculated CREATININE
CLEARANCE. It WILL NOT stuff any result.
If no result is entered then URINE CREATININE, BLOOD CREATININE, DILUTION,
URINE VOLUME, and TIME are prompted. The CLEARANCE is then displayed.
You must then manually enter this result.
The calculation is ((URINE CREAT * DILUTION * VOLUME) / BLOOD CREAT) / TIME
The ABS VALUE delta check is also done.
|
