source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRAFUNC5.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.4 KB
Line 
1LRAFUNC5 ;SLC/MRH/FHS - FUNCTION CALLS CONVERSION IN MEASURMENTS A5AFUNC5
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3 ;
4 N I,X
5 W !!,"Routine: "_$T(+0),! F I=8:1 S X=$T(LRAFUNC5+I) Q:'$L(X) I X[";;" W !,X
6 W !!
7 Q
8 ;;
9WEIGHT(X,Y,Z) ;; convert metric mass to approx. U.S. weights and visa versa
10 ;; Call by value
11 ;; returns equivilent value with out 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=$$WEIGHT(12,"LB","GM") will return a value of X (12)
16 ;; pounds in grams
17 ;; Valid units in either lowercase or uppercase
18 ;; are t = metric tons
19 ;; kg = kilograms
20 ;; g = grams
21 ;; mg = milligram
22 ;; tn = tons
23 ;; lb = pounds
24 ;; oz = ounces
25 ;; gr = grain
26 N CKY,CKZ
27 I '$G(X) Q 0
28 I X[".",$L(X)>19 Q 0_" ILLEGAL NUMBER"
29 I $L(X)>18 Q 0_" ILLEGAL NUMBER"
30 S Y=$$UPCASE(Y),Z=$$UPCASE(Z)
31 Q:'$L(Y)!('$L(Z)) 0
32 S CKY=U_Y_U
33 I "^T^KG^G^MG^TN^LB^OZ^GR^"'[CKY Q "ERROR"
34 S CKZ=U_Z_U
35 I "^T^KG^G^MG^TN^LB^OZ^GR^"'[CKZ Q "ERROR"
36 ; quit with no conversion
37 I Y=Z Q X_" "_Z
38 ; common metric unit is kilograms KG
39 I $P("^T^1^KG^1^G^1^MG^1",CKY,2) S X=X*$P("^T^1000^KG^1^G^.001^MG^.000001",CKY,2) S X=X_"M"
40 ; common english unit is pound LB
41 I $P("^TN^1^LB^1^OZ^1^GR^1",CKY,2) S X=X*$P("^TN^2000^LB^1^OZ^.0625^GR^.0001302083",CKY,2) S X=X_"U"
42 ; the result of the above 2 IF statments will result in X being
43 ; converted to kilograms or pounds depending on the value of Y
44 ;
45 ; X in metric and will convert to metric X in KG
46 I X["M",$P("^T^1^KG^1^G^1^MG^1",CKZ,2) S X=X*$P("^T^.00001^KG^1^G^1000^MG^10000",CKZ,2) Q $$FORMAT(X)_" "_Z
47 ;
48 ; X in U.S. and will convert to U.S. X in LB
49 I X["U",$P("^TN^1^LB^1^OZ^1^GR^1",CKZ,2) S X=X*$P("^TN^.0005^LB^1^OZ^16^GR^7680",CKZ,2) Q $$FORMAT(X)_" "_Z
50 ;
51 ; X in U.S. and will convert to metric X in LB
52 I X["U",$P("^T^1^KG^1^G^1^MG^1",CKZ,2) S X=X*$P("^T^.000454^KG^.454^G^454^MG^454000",CKZ,2) Q $$FORMAT(X)_" "_Z
53 ;
54 ; X in metric and will convert to U.S. X in KG
55 I X["M",$P("^TN^1^LB^1^OZ^1^GR^1",CKZ,2) S X=X*$P("^TN^.00062^LB^2.2046^OZ^35.2736^GR^154300",CKZ,2) Q $$FORMAT(X)_" "_Z
56 ;
57 ;;
58FORMAT(X) ;
59 S X=$S(X>.9:$FN(X,"",3),1:$FN(X,"",4))
60 Q $S($P(X,".",2):X,1:$FN(X,"",0))
61 ;
62UPCASE(X) ;
63 Q $TR(X,"zxcvbnmlkjhgfdsaqwertyuiop","ZXCVBNMLKJHGFDSAQWERTYUIOP")
Note: See TracBrowser for help on using the repository browser.