Changeset 636 for FOIAVistA/tag/r/GEN_MED_REC_VITALS-GMRV/GMRVED2.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 )
• GEN_MED_REC_VITALS-GMRV/GMRVED2.m (modified) (2 diffs)

FOIAVistA/tag/r/GEN_MED_REC_VITALS-GMRV/GMRVED2.m

@@ -1 @@
-GMRVED2 ;HIOFO/RM,YH,FT-VITAL SIGNS EDIT SHORT FORM ;11/15/04  10:30
- ;;5.0;GEN. MED. REC. - VITALS;**2**;Oct 31, 2002
+GMRVED2 ;HIOFO/RM,YH,FT-VITAL SIGNS EDIT SHORT FORM ;7/20/07  13:43
+ ;;5.0;GEN. MED. REC. - VITALS;**2**;Oct 31, 2002;Build 11
  ;
  ; This routine uses the following IAs:
@@ -75 +75 @@
  I GMREDB="P1" S GMRVIEN(GMRVITY)=DA_"^"_GMRDAT(GMRVITY)_"^"_$G(GMRSITE(GMRVITY))
  S:GMRENTY>4 GLAST=GMRVIDT,GLAST(1)=$G(GLAST(1))+1
+ ; for VOE Pediatric Growth Charts
+ I "8920"[(+GMRVIT(1)) D EN^GMRVPGC(DFN) ; 8=Height 9=Weight 20=Circumference
  Q
 XREF(DA) ; Set cross-references for FILE 120.5 entry