- 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 Feb 18, 2025@23:22:23 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