Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRAFUNC7

LRAFUNC7.m

Go to the documentation of this file. 
  1. LRAFUNC7 ; IHS/DIR/FJE - FUNCTION CALL CONVERSION IN MEASUREMENT A5AFUNC7 ;
  1.  ;;5.2;LR;**1013**;JUL 15, 2002
  1.  ;
  1.  ;;5.2;LAB SERVICE;;Sep 27, 1994
  1.  N I,X
  1.  W !!,"Routine: "_$T(+0),! F I=8:1  S X=$T(LRAFUNC7+I) Q:'$L(X)  I X[";;" W !,X
  1.  W !!
  1.  Q
  1.  ;
  1. CAP(X,Y,Z) ;; convert metric capacity to U.S. capacity and visa versa
  1.  ;; Call by value 
  1.  ;; Mililiters to cubic inches or quarts or ounces
  1.  ;; returns equivilent value with units
  1.  ;; X must contain a positive numeric value
  1.  ;; Y must contain the units of measure of X
  1.  ;; Z must contain the units of measure to convert X to
  1.  ;; eg. S X=$$CAP(12,"CF","ML") will return a value of X (12)
  1.  ;; in mililiters
  1.  ;; Valid units in either uppercase or lowercase are:
  1.  ;;                     kl  = kiloliter
  1.  ;;                     hl  = hectoliter
  1.  ;;                     dal = dekaliter
  1.  ;;                     l   = liters
  1.  ;;                     dl  = deciliter
  1.  ;;                     cl  = centiliter
  1.  ;;                     ml  = mililiter
  1.  ;;                     
  1.  ;;                     cf   = feet
  1.  ;;                     ci  = inch
  1.  ;;                     gal  = gallon
  1.  ;;                     qt   = quart
  1.  ;;                     pt   = pint
  1.  ;;                     c  = cup
  1.  ;;                     oz = ounce
  1.  ;
  1.  N CKY,CKZ
  1.  I '$G(X) Q 0
  1.  I X[".",$L(X)>19 Q 0_" ILLEGAL NUMBER"
  1.  I $L(X)>18 Q 0_" ILLEGAL NUMBER"
  1.  S Y=$$UPCASE(Y),Z=$$UPCASE(Z)
  1.  Q:'$L(Y)!('$L(Z)) 0
  1.  S CKY=U_Y_U
  1.  I "^KL^HL^DAL^L^DL^CL^ML^CF^CI^GAL^QT^PT^C^OZ^"'[CKY Q "ERROR"
  1.  S CKZ=U_Z_U
  1.  I "^KL^HL^DAL^L^DL^CL^ML^CF^CI^GAL^QT^PT^C^OZ^"'[CKZ Q "ERROR"
  1.  ; quit with no conversion
  1.  I Y=Z Q X_" "_Z
  1.  ;
  1.  ; common metric unit = mililiter ML
  1.  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"
  1.  ; common U.S. unit = cubic inches CI
  1.  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"
  1.  ;
  1.  ; X in U.S. (cubic inches) and will convert to metric
  1.  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
  1.  ;
  1.  ; X in metric (mililiter) and will convert to U.S.
  1.  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
  1.  ;
  1.  ; X in metric (mililiter) and will convert to metric
  1.  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
  1.  ;
  1.  ; X in U.S. (cubic inches) and will convert to U.S.
  1.  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
  1.  Q "ERROR"
  1.  ;
  1. FORMAT(X) ;
  1.  S X=$S(X>.9:$FN(X,"",3),1:$FN(X,"",4))
  1.  Q $S($P(X,".",2):X,1:$FN(X,"",0))
  1.  ;
  1. UPCASE(X) ;
  1.  Q $TR(X,"zxcvbnmlkjhgfdsaqwertyuiop","ZXCVBNMLKJHGFDSAQWERTYUIOP")