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

GMRVBMI.m

Go to the documentation of this file.
  1. GMRVBMI ;HIOFO/YH,FT-EXTRACT HEIGHT TO CALCULATE BMI FOR WEIGHT; 5/8/07
  1. ;;5.0;GEN. MED. REC. - VITALS;**23**;Oct 31, 2002;Build 25
  1. ;
  1. ; This routine uses the following IAs:
  1. ; <None>
  1. ;
  1. HT ;OBTAIN ALL HEIGHTS FOR THE PATIENT
  1. D HT^GMVBMI
  1. Q
  1. CALBMI(GBMI,GMRVDEC) ;OBTAIN HEIGHT TO CALCULATE BMI
  1. ; GBMI(1)=DATE/TIME WEIGHT WAS TAKEN (Required)
  1. ; GBMI(2)=WEIGHT (Required)
  1. ; GMRVDEC = # of decimal places to return (optional)
  1. ; Value can be 0, 1, 2, or 3
  1. ; Default is 0
  1. S GMRVDEC=$G(GMRVDEC,0)
  1. S GMRVDEC=$S(GMRVDEC=3:3,GMRVDEC=2:2,GMRVDEC=1:1,1:0)
  1. D CALBMI^GMVBMI(.GBMI,GMRVDEC)
  1. Q