source: FOIAVistA/tag/r/SURGERY-SR/SROAMEAS.m@ 1397

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

WorldVistAEHR overlayed on FOIAVistA

File size: 423 bytes
Line 
1SROAMEAS ;BIR/MAM - INPUT TRANSFORMS, HEIGHT & WEIGHT ;03/20/06
2 ;;3.0; Surgery ;**38,125,153**;24 Jun 93;Build 11
3H Q:'$D(X) I X'?.N1"C"&(X'?.N1"c"),(+X'=X) K X Q
4 I +X=X S X=X+.5\1 I X'>47.9!(X'<86.1) K X Q
5 S:X["c" X=+X_"C"
6 I X?.N1"C",(X'>121.9!(X'<218.1)) K X
7 Q
8W Q:'$D(X) I +X'=X,(X'?.N1"K")&(X'?.N1"k") K X Q
9 I +X=X S X=X+.5\1 I X'>49.9!(X'<700.1) K X Q
10 S:X["k" X=+X_"K"
11 I X?.N1"K",(X'>22.9!(X'<318.1)) K X
12 Q
Note: See TracBrowser for help on using the repository browser.