VistA-WorldVistAEHR/r/VICTORY_PROGRAMMING_ENVIRON.../ZVEMSLD.m

61 lines
2.0 KiB
Mathematica

ZVEMSLD ;DJB,VSHL**VA KERNEL Library Functions - Measurement [04/17/94]
;;12;VPE;;COPYRIGHT David Bolduc @1993
;
MEAS ;;;
;;; MEASUREMENT FUNCTIONS - XLFMSMT
;;;
;;; WEIGHT(val,from,to).......Weight Measurement
;;; Converts metric to U.S. and visa versa.
;;;
;;; val = must contain a positive numeric value
;;; from = units of measure of val
;;; to = units of measure to convert val to
;;;
;;; Ex: W $$WEIGHT(12,"LB","G") --> 5448 G
;;;
;;; Valid units:
;;; t = metric tons tn = tons
;;; kg = kilograms lb = pounds
;;; g = grams oz = ounces
;;; mg = milligrams gr = grain
;;;
;;; LENGTH(val,from,to).......Length Measurement
;;;
;;; Ex: W $$LENGTH(12,"IN","CM") --> 30.480 CM
;;;
;;; Valid units:
;;; km = kilometers mi = miles
;;; m = meters yd = yards
;;; cm = centimeters ft = feet
;;; mm = millmeters in = inches
;;;
;;; VOLUME(val,from,to).......Weight Measurement
;;;
;;; Ex: W $$VOLUME(12,"CF","ML") --> 339800.832 ML
;;;
;;; Valid units:
;;; kl = kiloliter cf = cubic feet
;;; hl = hectoliter ci = cubic inch
;;; dal = dekaliter gal = gallon
;;; l = liters qt = quart
;;; dl = deciliter pt = pint
;;; cl = centiliter c = cup
;;; ml = milliliter oz = ounze
;;;
;;; BSA(ht,wt).......Body Surface Area Measurement
;;;
;;; ht = height in centimeters
;;; wt = weight in kilograms
;;;
;;; Ex: W $$BSA^XLFMSMT(175,86) --> 1.63
;;; Ex: W $$BSA($$LENGTH^XLFMSMT(69,"IN","CM"),$$WEIGHT^XLFMSMT(180,"LB",...
;;; "KG")) --> 1.57
;;;
;;; TEMP(val,from,to).......Temperature Measurement
;;;
;;; Ex: W $$TEMP^XLFMSMT(72,"F","C") --> 22.222 C
;;;
;;; Valid units:
;;; f = Fahrenheit c = Celsius
;;;***