source: WorldVistAEHR/trunk/r/VICTORY_PROGRAMMING_ENVIRONMENT-ZVEM/ZVEMSLD.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1ZVEMSLD ;DJB,VSHL**VA KERNEL Library Functions - Measurement [04/17/94]
2 ;;12;VPE;;COPYRIGHT David Bolduc @1993
3 ;
4MEAS ;;;
5 ;;; MEASUREMENT FUNCTIONS - XLFMSMT
6 ;;;
7 ;;; WEIGHT(val,from,to).......Weight Measurement
8 ;;; Converts metric to U.S. and visa versa.
9 ;;;
10 ;;; val = must contain a positive numeric value
11 ;;; from = units of measure of val
12 ;;; to = units of measure to convert val to
13 ;;;
14 ;;; Ex: W $$WEIGHT(12,"LB","G") --> 5448 G
15 ;;;
16 ;;; Valid units:
17 ;;; t = metric tons tn = tons
18 ;;; kg = kilograms lb = pounds
19 ;;; g = grams oz = ounces
20 ;;; mg = milligrams gr = grain
21 ;;;
22 ;;; LENGTH(val,from,to).......Length Measurement
23 ;;;
24 ;;; Ex: W $$LENGTH(12,"IN","CM") --> 30.480 CM
25 ;;;
26 ;;; Valid units:
27 ;;; km = kilometers mi = miles
28 ;;; m = meters yd = yards
29 ;;; cm = centimeters ft = feet
30 ;;; mm = millmeters in = inches
31 ;;;
32 ;;; VOLUME(val,from,to).......Weight Measurement
33 ;;;
34 ;;; Ex: W $$VOLUME(12,"CF","ML") --> 339800.832 ML
35 ;;;
36 ;;; Valid units:
37 ;;; kl = kiloliter cf = cubic feet
38 ;;; hl = hectoliter ci = cubic inch
39 ;;; dal = dekaliter gal = gallon
40 ;;; l = liters qt = quart
41 ;;; dl = deciliter pt = pint
42 ;;; cl = centiliter c = cup
43 ;;; ml = milliliter oz = ounze
44 ;;;
45 ;;; BSA(ht,wt).......Body Surface Area Measurement
46 ;;;
47 ;;; ht = height in centimeters
48 ;;; wt = weight in kilograms
49 ;;;
50 ;;; Ex: W $$BSA^XLFMSMT(175,86) --> 1.63
51 ;;; Ex: W $$BSA($$LENGTH^XLFMSMT(69,"IN","CM"),$$WEIGHT^XLFMSMT(180,"LB",...
52 ;;; "KG")) --> 1.57
53 ;;;
54 ;;; TEMP(val,from,to).......Temperature Measurement
55 ;;;
56 ;;; Ex: W $$TEMP^XLFMSMT(72,"F","C") --> 22.222 C
57 ;;;
58 ;;; Valid units:
59 ;;; f = Fahrenheit c = Celsius
60 ;;;***
Note: See TracBrowser for help on using the repository browser.