Changeset 636 for FOIAVistA/tag/r/SURGERY-SR/SROAMEAS.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• SURGERY-SR/SROAMEAS.m (modified) (2 diffs)

FOIAVistA/tag/r/SURGERY-SR/SROAMEAS.m

@@ -1 +1 @@
 SROAMEAS ;BIR/MAM - INPUT TRANSFORMS, HEIGHT & WEIGHT ;03/20/06
- ;;3.0; Surgery ;**38,125,153,166**;24 Jun 93;Build 6
+ ;;3.0; Surgery ;**38,125,153**;24 Jun 93;Build 11
 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'>47.9!(X'<86.1) K X Q
@@ -11 +11 @@
  I X?.N1"K",(X'>22.9!(X'<318.1)) K X
  Q
-HWC ; reject NS entry if the case is cardiac one
- S X=$S(X="ns":"NS",1:X)
- I $P($G(^SRF($S($G(SRTN):SRTN,1:DA),"RA")),"^",2)="C",X="NS" S X=""
- Q