| 1 | PXRMBMI ; SLC/PKR - National BMI computed finding. ;08/31/2004
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | ;=========================================================
|
|---|
| 5 | BMI(DFN,TEST,DATE,VALUE,TEXT) ;Computed finding to return the BMI.
|
|---|
| 6 | N HDAS,HDATE,HT,HTEMP,WDAS,WDATE,WT,WTEMP
|
|---|
| 7 | ;Get the most recent height measurement
|
|---|
| 8 | S HDATE="",HT=0
|
|---|
| 9 | F Q:HT>0 S HDATE=$O(^PXRMINDX(120.5,"PI",DFN,8,HDATE),-1) Q:HDATE="" D
|
|---|
| 10 | . S HDAS=$O(^PXRMINDX(120.5,"PI",DFN,8,HDATE,""))
|
|---|
| 11 | . K HTEMP
|
|---|
| 12 | . D GETDATA^PXRMVITL(HDAS,.HTEMP)
|
|---|
| 13 | . S HT=(HTEMP("RATE")*2.54)/100
|
|---|
| 14 | I HT=0 S TEST=0,(VALUE,TEXT)="" Q
|
|---|
| 15 | ;Get the most recent weight measurement.
|
|---|
| 16 | S WDATE="",WT=0
|
|---|
| 17 | F Q:WT>0 S WDATE=$O(^PXRMINDX(120.5,"PI",DFN,9,WDATE),-1) Q:WDATE="" D
|
|---|
| 18 | . S WDAS=$O(^PXRMINDX(120.5,"PI",DFN,9,WDATE,""))
|
|---|
| 19 | . K WTEMP
|
|---|
| 20 | . D GETDATA^PXRMVITL(WDAS,.WTEMP)
|
|---|
| 21 | . S WT=WTEMP("RATE")/2.203
|
|---|
| 22 | I WT=0 S TEST=0,(VALUE,TEXT)="" Q
|
|---|
| 23 | S VALUE=WT/(HT*HT)
|
|---|
| 24 | S VALUE=$FN(VALUE,"",1)
|
|---|
| 25 | ;Use date of the weight measurement.
|
|---|
| 26 | S DATE=WDATE,TEST=1,TEXT=""
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
