BMI Percentile Computed Finding
This commit is contained in:
sam
parent
0dcadb23ba
commit
1b26c7be55
|
|
@ -0,0 +1,166 @@
|
|||
<?xml version="1.0" standalone="yes"?>
|
||||
<REMINDER_EXCHANGE_FILE_ENTRY>
|
||||
<PACKAGE_VERSION>2.0P17</PACKAGE_VERSION>
|
||||
<INDEX_AT>151</INDEX_AT>
|
||||
<SOURCE>
|
||||
<NAME>VW-BMI-PERCENTILE</NAME>
|
||||
<USER>HABIEL,SAM</USER>
|
||||
<SITE>VOE OFFICE INSTITUTION</SITE>
|
||||
<DATE_PACKED>07/20/2012@16:15:11</DATE_PACKED>
|
||||
</SOURCE>
|
||||
<DESCRIPTION><![CDATA[
|
||||
The VW-BMI-PERCENTILE computed finding calculates the patient's body mass
|
||||
index percentile. The value returned, which can be used in the CONDITION
|
||||
field of the findings, is the body mass index percentile. It only works
|
||||
for patients who are 18 years of age or less. Patients over 18 get a
|
||||
result of "Not Found", even if a BMI can be calculated.
|
||||
|
||||
An example of using the VW-BMI-PERCENTILE computed finding:
|
||||
1) Create a finding in a reminder that is the VW-BMI-PERCENTILE computed
|
||||
finding;
|
||||
2) Add logic in the CONDITION field to check for a particular BMI
|
||||
Percentile value: "I V>25";
|
||||
3) This finding will be evaluated to true for patients with a BMI
|
||||
percentile that is greater than 25.
|
||||
|
||||
This is a multi-occurrence computed finding.
|
||||
]]></DESCRIPTION>
|
||||
<KEYWORDS>
|
||||
<KEYWORD>BMI</KEYWORD>
|
||||
<KEYWORD>PERCENTILE</KEYWORD>
|
||||
<KEYWORD>COMPUTED</KEYWORD>
|
||||
<KEYWORD>FINDING</KEYWORD>
|
||||
</KEYWORDS>
|
||||
<M_ROUTINE>
|
||||
<ROUTINE_NAME>C0QRMBMI</ROUTINE_NAME>
|
||||
<CHECKSUM>961533736</CHECKSUM>
|
||||
<CODE>
|
||||
<![CDATA[
|
||||
C0QRMBMI ; VEN/SMH - BMI Percentile and BSA computed finding; 7/20/12 4:00pm
|
||||
;;1.0;QUALITY MEASURES;**1**;
|
||||
;
|
||||
; VEN/SMH - on July 16 2012
|
||||
; Added PBMI as a new Computed Finding -- essentially the same as BMI
|
||||
; PBMI = Percentile BMI;
|
||||
;
|
||||
; PEPs: PBMI
|
||||
;
|
||||
PBMI(DFN,NGET,BDT,EDT,NFOUND,TEST,DATE,DATA,TEXT) ; Multi-occurrence computed
|
||||
; finding for BMI percentile; PEP
|
||||
; Input Variables: Follows Reminders API.
|
||||
; Additional Input Variables from ST: PXRMDOB, PXRMSEX
|
||||
; Output Variables: Follows Reminders API.
|
||||
;
|
||||
; Get BMIs from Standard Reminders Call (added in Patch 12)
|
||||
D BMI^PXRMBMI(DFN,NGET,BDT,EDT,.NFOUND,.TEST,.DATE,.DATA,.TEXT) ; BMI call
|
||||
;
|
||||
; Walk through BMI results
|
||||
N IND ; Index
|
||||
F IND=1:1:NFOUND D Q:'NFOUND ; If NFOUND is zero'ed, quit.
|
||||
. ;
|
||||
. ; S TEST(IND)=1,DATE(IND)=TDATE ; The same; won't set here.
|
||||
. ; S TEXT(IND)="height measured "_$$EDATE^PXRMDATE(HDATE) ; the same
|
||||
. N BMI S BMI=DATA(IND,"VALUE") ; Get BMI
|
||||
. N PBMI ; BMI Percentile
|
||||
. ; We use PXRMDATE API to grab the Reminders Date Due, not today's date.
|
||||
. N AGE S AGE=$$FMDIFF^XLFDT($$NOW^PXRMDATE(),PXRMDOB,1)/365.24 ; Age in yrs
|
||||
. ;
|
||||
. ; If the ep exists, call it, otherwise, mark as not found.
|
||||
. I $T(BMIPCTL^TMGGRC1)]"" S PBMI=$$BMIPCTL^TMGGRC1(AGE,PXRMSEX,BMI,1)
|
||||
. E S NFOUND=0 QUIT
|
||||
. ;
|
||||
. ; Also, if N/A (patient above 18 yo) - mark as not found.
|
||||
. I PBMI["N/A" S NFOUND=0 QUIT ; Not available for anybody above 18 yo.
|
||||
. ;
|
||||
. ; We get a textish result (e.g. 78th percentile); convert to number
|
||||
. S PBMI=+PBMI
|
||||
. ;
|
||||
. ; Set return values (NB: BMI subscript is still there)
|
||||
. S (DATA(IND,"VALUE"),DATA(IND,"BMI%ILE"))=PBMI
|
||||
QUIT
|
||||
;
|
||||
TPBMI(DFN) ; Test PBMI; Pass DFN by Value; Private, for testing only
|
||||
N NFOUND,TEST,DATE,DATA,TEXT
|
||||
N PXRMSEX S PXRMSEX=$P(^DPT(DFN,0),U,2)
|
||||
N PXRMDOB S PXRMDOB=$P(^DPT(DFN,0),U,3)
|
||||
N PXRMAGE S PXRMAGE=$$GET1^DIQ(2,DFN,"AGE")
|
||||
D PBMI^C0QRMBMI(DFN,99,3000000,$$DT^XLFDT(),.NFOUND,.TEST,.DATE,.DATA,.TEXT)
|
||||
I 'NFOUND W "No results found! for DFN "_DFN,!! QUIT
|
||||
;
|
||||
W "Patient: DFN: "_DFN_"; "_PXRMAGE_" yo; "_PXRMSEX,!
|
||||
;
|
||||
N I F I=1:1:NFOUND D
|
||||
. W "NFOUND: "_NFOUND,!
|
||||
. W "TEST: "_TEST(I),!
|
||||
. W "DATE: "_DATE(I),!
|
||||
. W "TEXT: "_TEXT(I),!
|
||||
. W "DATA VALUE: "_DATA(I,"VALUE"),!
|
||||
. W "DATA BMI%ILE: "_DATA(I,"BMI%ILE"),!
|
||||
. W "DATA BMI: "_DATA(I,"BMI"),!
|
||||
. W !
|
||||
QUIT
|
||||
;
|
||||
; Private below as well.
|
||||
TEST N DFN S DFN=0 F S DFN=$O(^DPT(DFN)) Q:'DFN D TPBMI(DFN) ; One liner test
|
||||
QUIT
|
||||
]]>
|
||||
</CODE>
|
||||
</M_ROUTINE>
|
||||
<FILEMAN_FILE>
|
||||
<FILE_NAME>REMINDER COMPUTED FINDINGS</FILE_NAME>
|
||||
<FILE_NUMBER>811.4</FILE_NUMBER>
|
||||
<POINT_01>VW-BMI-PERCENTILE</POINT_01>
|
||||
<INTERNAL_ENTRY_NUMBER>93</INTERNAL_ENTRY_NUMBER>
|
||||
<CHECKSUM>1440960318</CHECKSUM>
|
||||
<SELECTED>YES</SELECTED>
|
||||
<FILEMAN_FDA>
|
||||
<![CDATA[
|
||||
811.4;+93,;.01~VW-BMI-PERCENTILE
|
||||
811.4;+93,;.02~C0QRMBMI
|
||||
811.4;+93,;.03~PBMI
|
||||
811.4;+93,;.04~Body Mass Index Percentile
|
||||
811.4;+93,;1~WP-start~15
|
||||
The VW-BMI-PERCENTILE computed finding calculates the patient's body mass
|
||||
index percentile. The value returned, which can be used in the CONDITION
|
||||
field of the findings, is the body mass index percentile. It only works
|
||||
for patients who are 18 years of age or less. Patients over 18 get a
|
||||
result of "Not Found", even if a BMI can be calculated.
|
||||
|
||||
An example of using the VW-BMI-PERCENTILE computed finding:
|
||||
1) Create a finding in a reminder that is the VW-BMI-PERCENTILE computed
|
||||
finding;
|
||||
2) Add logic in the CONDITION field to check for a particular BMI
|
||||
Percentile value: "I V>25";
|
||||
3) This finding will be evaluated to true for patients with a BMI
|
||||
percentile that is greater than 25.
|
||||
|
||||
This is a multi-occurrence computed finding.
|
||||
811.4;+93,;5~MULTIPLE
|
||||
811.4;+93,;100~LOCAL
|
||||
811.42;+94,+93,;.01~07/20/2012@16:15:32
|
||||
811.42;+94,+93,;2~WP-start~1
|
||||
Exchange Stub
|
||||
]]>
|
||||
</FILEMAN_FDA>
|
||||
<IEN_ROOT>
|
||||
<![CDATA[
|
||||
94^1
|
||||
]]>
|
||||
</IEN_ROOT>
|
||||
</FILEMAN_FILE>
|
||||
<INDEX>
|
||||
<NUMBER_OF_COMPONENTS>2</NUMBER_OF_COMPONENTS>
|
||||
<COMPONENT>
|
||||
<M_ROUTINE_START>34</M_ROUTINE_START>
|
||||
<ROUTINE_CODE_END>105</ROUTINE_CODE_END>
|
||||
<ROUTINE_CODE_START>39</ROUTINE_CODE_START>
|
||||
</COMPONENT>
|
||||
<COMPONENT>
|
||||
<FDA_END>142</FDA_END>
|
||||
<FDA_START>118</FDA_START>
|
||||
<FILE_START>109</FILE_START>
|
||||
<IEN_ROOT_END>147</IEN_ROOT_END>
|
||||
<IEN_ROOT_START>147</IEN_ROOT_START>
|
||||
</COMPONENT>
|
||||
</INDEX>
|
||||
</REMINDER_EXCHANGE_FILE_ENTRY>
|
||||
Loading…
Reference in New Issue