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

SROAMEAS.m

Go to the documentation of this file.
  1. 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
  1. H Q:'$D(X) I X'?.N1"C"&(X'?.N1"c"),(+X'=X) K X Q
  1. I +X=X S X=X+.5\1 I X'>24.9!(X'<86.1) K X Q
  1. S:X["c" X=+X_"C"
  1. I X?.N1"C",(X'>62.9!(X'<218.1)) K X
  1. Q
  1. W Q:'$D(X) I +X'=X,(X'?.N1"K")&(X'?.N1"k") K X Q
  1. I +X=X S X=X+.5\1 I X'>49.9!(X'<999.1) K X Q
  1. S:X["k" X=+X_"K"
  1. I X?.N1"K",(X'>22.9!(X'<453.1)) K X
  1. Q