GMRVBMI ;HIOFO/YH,FT-EXTRACT HEIGHT TO CALCULATE BMI FOR WEIGHT; 5/8/07
;;5.0;GEN. MED. REC. - VITALS;**23**;Oct 31, 2002;Build 25
;
; This routine uses the following IAs:
; <None>
;
HT ;OBTAIN ALL HEIGHTS FOR THE PATIENT
D HT^GMVBMI
Q
CALBMI(GBMI,GMRVDEC) ;OBTAIN HEIGHT TO CALCULATE BMI
; GBMI(1)=DATE/TIME WEIGHT WAS TAKEN (Required)
; GBMI(2)=WEIGHT (Required)
; GMRVDEC = # of decimal places to return (optional)
; Value can be 0, 1, 2, or 3
; Default is 0
S GMRVDEC=$G(GMRVDEC,0)
S GMRVDEC=$S(GMRVDEC=3:3,GMRVDEC=2:2,GMRVDEC=1:1,1:0)
D CALBMI^GMVBMI(.GBMI,GMRVDEC)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVBMI 626 printed Sep 02, 2024@18:41:16 Page 2
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
+2 ;
+3 ; This routine uses the following IAs:
+4 ; <None>
+5 ;
HT ;OBTAIN ALL HEIGHTS FOR THE PATIENT
+1 DO HT^GMVBMI
+2 QUIT
CALBMI(GBMI,GMRVDEC) ;OBTAIN HEIGHT TO CALCULATE BMI
+1 ; GBMI(1)=DATE/TIME WEIGHT WAS TAKEN (Required)
+2 ; GBMI(2)=WEIGHT (Required)
+3 ; GMRVDEC = # of decimal places to return (optional)
+4 ; Value can be 0, 1, 2, or 3
+5 ; Default is 0
+6 SET GMRVDEC=$GET(GMRVDEC,0)
+7 SET GMRVDEC=$SELECT(GMRVDEC=3:3,GMRVDEC=2:2,GMRVDEC=1:1,1:0)
+8 DO CALBMI^GMVBMI(.GBMI,GMRVDEC)
+9 QUIT