SROAMEAS ;BIR/MAM - INPUT TRANSFORMS, HEIGHT & WEIGHT ;06/28/10
;;3.0; Surgery ;**38,125,153,166,170,174**;24 Jun 93;Build 8
H Q:'$D(X) I X'?.N1"C"&(X'?.N1"c"),(+X'=X) K X Q
I +X=X S X=X+.5\1 I X'>24.9!(X'<86.1) K X Q
S:X["c" X=+X_"C"
I X?.N1"C",(X'>62.9!(X'<218.1)) K X
Q
W Q:'$D(X) I +X'=X,(X'?.N1"K")&(X'?.N1"k") K X Q
I +X=X S X=X+.5\1 I X'>49.9!(X'<999.1) K X Q
S:X["k" X=+X_"K"
I X?.N1"K",(X'>22.9!(X'<453.1)) K X
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROAMEAS 445 printed Dec 13, 2024@02:41:04 Page 2
SROAMEAS ;BIR/MAM - INPUT TRANSFORMS, HEIGHT & WEIGHT ;06/28/10
+1 ;;3.0; Surgery ;**38,125,153,166,170,174**;24 Jun 93;Build 8
H if '$DATA(X)
QUIT
IF X'?.N1"C"&(X'?.N1"c")
IF (+X'=X)
KILL X
QUIT
+1 IF +X=X
SET X=X+.5\1
IF X'>24.9!(X'<86.1)
KILL X
QUIT
+2 if X["c"
SET X=+X_"C"
+3 IF X?.N1"C"
IF (X'>62.9!(X'<218.1))
KILL X
+4 QUIT
W if '$DATA(X)
QUIT
IF +X'=X
IF (X'?.N1"K")&(X'?.N1"k")
KILL X
QUIT
+1 IF +X=X
SET X=X+.5\1
IF X'>49.9!(X'<999.1)
KILL X
QUIT
+2 if X["k"
SET X=+X_"K"
+3 IF X?.N1"K"
IF (X'>22.9!(X'<453.1))
KILL X
+4 QUIT
