|
Last change
on this file since 914 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
572 bytes
|
| Line | |
|---|
| 1 | SROAMEAS ;BIR/MAM - INPUT TRANSFORMS, HEIGHT & WEIGHT ;03/20/06
|
|---|
| 2 | ;;3.0; Surgery ;**38,125,153,166**;24 Jun 93;Build 6
|
|---|
| 3 | H 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
|
|---|
| 8 | W 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
|
|---|
| 13 | HWC ; reject NS entry if the case is cardiac one
|
|---|
| 14 | S X=$S(X="ns":"NS",1:X)
|
|---|
| 15 | I $P($G(^SRF($S($G(SRTN):SRTN,1:DA),"RA")),"^",2)="C",X="NS" S X=""
|
|---|
| 16 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
