source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRAFUNC7.m@ 811

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

initial load of FOIAVistA 6/30/08 version

File size: 2.9 KB
Line 
1LRAFUNC7 ;SLC/MRH/FHS - FUNCTION CALL CONVERSION IN MEASUREMENT A5AFUNC7
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3 N I,X
4 W !!,"Routine: "_$T(+0),! F I=8:1 S X=$T(LRAFUNC7+I) Q:'$L(X) I X[";;" W !,X
5 W !!
6 Q
7 ;
8CAP(X,Y,Z) ;; convert metric capacity to U.S. capacity and visa versa
9 ;; Call by value
10 ;; Mililiters to cubic inches or quarts or ounces
11 ;; returns equivilent value with units
12 ;; X must contain a positive numeric value
13 ;; Y must contain the units of measure of X
14 ;; Z must contain the units of measure to convert X to
15 ;; eg. S X=$$CAP(12,"CF","ML") will return a value of X (12)
16 ;; in mililiters
17 ;; Valid units in either uppercase or lowercase are:
18 ;; kl = kiloliter
19 ;; hl = hectoliter
20 ;; dal = dekaliter
21 ;; l = liters
22 ;; dl = deciliter
23 ;; cl = centiliter
24 ;; ml = mililiter
25 ;;
26 ;; cf = feet
27 ;; ci = inch
28 ;; gal = gallon
29 ;; qt = quart
30 ;; pt = pint
31 ;; c = cup
32 ;; oz = ounce
33 ;
34 N CKY,CKZ
35 I '$G(X) Q 0
36 I X[".",$L(X)>19 Q 0_" ILLEGAL NUMBER"
37 I $L(X)>18 Q 0_" ILLEGAL NUMBER"
38 S Y=$$UPCASE(Y),Z=$$UPCASE(Z)
39 Q:'$L(Y)!('$L(Z)) 0
40 S CKY=U_Y_U
41 I "^KL^HL^DAL^L^DL^CL^ML^CF^CI^GAL^QT^PT^C^OZ^"'[CKY Q "ERROR"
42 S CKZ=U_Z_U
43 I "^KL^HL^DAL^L^DL^CL^ML^CF^CI^GAL^QT^PT^C^OZ^"'[CKZ Q "ERROR"
44 ; quit with no conversion
45 I Y=Z Q X_" "_Z
46 ;
47 ; common metric unit = mililiter ML
48 I $P("^KL^1^HL^1^DAL^1^L^1^DL^1^CL^1^ML^1^",CKY,2) S X=X*+$P("^KL^1000000^HL^100000^DAL^10000^L^1000^DL^100^CL^10^ML^1",CKY,2)_"M"
49 ; common U.S. unit = cubic inches CI
50 I $P("^CF^1^CI^1^GAL^1^QT^1^PT^1^C^1^OZ^1",CKY,2) S X=X*+$P("^CF^1728^CI^1^GAL^231^QT^57.75^PT^28.875^C^14.4375^OZ^1.805",CKY,2)_"U"
51 ;
52 ; X in U.S. (cubic inches) and will convert to metric
53 I X["U",$P("^KL^1^HL^1^DAL^1^L^1^DL^1^CL^1^ML^1^",CKZ,2) S X=X*+$P("^KL^.000016387^HL^.00016387^DAL^.0016387^L^.016387^DL^.16387^CL^1.6387^ML^16.387^",CKZ,2) Q $$FORMAT(X)_" "_Z
54 ;
55 ; X in metric (mililiter) and will convert to U.S.
56 I X["M",$P("^CF^1^CI^1^GAL^1^QT^1^PT^1^C^1^OZ^1",CKZ,2) S X=X*+$P("^CF^.00003531^CI^.0610^GAL^.0002642^QT^.0010568^PT^.0021136^C^.0042272^OZ^.033818^",CKZ,2) Q $$FORMAT(X)_" "_Z
57 ;
58 ; X in metric (mililiter) and will convert to metric
59 I X["M",$P("^KL^1^HL^1^DAL^1^L^1^CL^1^DL^1^ML^1",CKZ,2) S X=X*+$P("^KL^1000000^HL^100000^DAL^10000^L^1000^CL^100^CL^10^ML^1",CKZ,2) Q $$FORMAT(X)_" "_Z
60 ;
61 ; X in U.S. (cubic inches) and will convert to U.S.
62 I X["U",$P("^CF^1^CI^1^GAL^1^QT^1^PT^1^C^1^OZ^1",CKZ,2) S X=X*+$P("^CF^.0005787^CI^1^GAL^.004329^QT^.017316^PT^.034632^C^.069264^OZ^.554017",CKZ,2) Q $$FORMAT(X)_" "_Z
63 Q "ERROR"
64 ;
65FORMAT(X) ;
66 S X=$S(X>.9:$FN(X,"",3),1:$FN(X,"",4))
67 Q $S($P(X,".",2):X,1:$FN(X,"",0))
68 ;
69UPCASE(X) ;
70 Q $TR(X,"zxcvbnmlkjhgfdsaqwertyuiop","ZXCVBNMLKJHGFDSAQWERTYUIOP")
Note: See TracBrowser for help on using the repository browser.