I just wanted to do a quick sanity check, since I haven't done too
much production work with the new Report Writer.
I created a ReportListener that would highlight certain fields, and
then I subclassed it for the particular report I'm working with at the
moment. I tagged the blood pressure fields with BP in the User field,
and LDL in User for those values. Then I ran the report with this RL.
It seems to work fine, but I just wanted to make sure I wasn't missing
something.
DEFINE CLASS ReportHighlight2 as ReportHighlight OF ReportHighlight.prg
PROCEDURE EvaluateContents
LPARAMETERS tnFRXRecno, toObjProperties
DODEFAULT(tnFRXRecno, toObjProperties)
IF This.InGroupFooter
This.HighlightBPLDL(tnFRXRecno, toObjProperties)
ENDIF
ENDPROC
PROCEDURE HighlightBPLDL
LPARAMETERS tnFRXRecNo, toObjProperties
LOCAL lnLowPercent, lnHighPercent, lnOldDataSession
lnOldDataSession = SET("Datasession")
SET DATASESSION TO (This.FRXDataSession)
SELECT FRX
GO (tnFRXRecno)
IF "BP"$user
WITH toObjProperties
.Reload = .T.
DO CASE
CASE VAL(pcBPSysVal) < _BPSYSLO
AND VAL(pcBPDiaVal) < _BPDIALO
.FillRed = 0
.FillGreen = 255
.FillBlue = 0
.PenRed = 0
.PenGreen = 0
.PenBlue = 0
CASE VAL(pcBPSysVal) < _BPSYSHI
AND VAL(pcBPDiaVal) < _BPSYSHI
.FillRed = 255
.FillGreen = 255
.FillBlue = 0
.PenRed = 0
.PenGreen = 0
.PenBlue = 0
OTHERWISE
.FillRed = 255
.FillGreen = 0
.FillBlue = 0
.PenRed = 255
.PenGreen = 255
.PenBlue = 255
ENDCASE
ENDWITH
ENDIF
IF "LDL"$user
WITH toObjProperties
.Reload = .T.
DO CASE
CASE VAL(pcBPLDLVal) < _LDLLO
.FillRed = 0
.FillGreen = 255
.FillBlue = 0
.PenRed = 0
.PenGreen = 0
.PenBlue = 0
CASE VAL(pcBPLDLVal) < _LDLHI
.FillRed = 255
.FillGreen = 255
.FillBlue = 0
.PenRed = 0
.PenGreen = 0
.PenBlue = 0
OTHERWISE
.FillRed = 255
.FillGreen = 0
.FillBlue = 0
.PenRed = 255
.PenGreen = 255
.PenBlue = 255
ENDCASE
ENDWITH
ENDIF
SET DATASESSION TO (lnOldDataSession)
ENDPROC
ENDDEFINE
On an unrelated note, any thoughts on querying an EMR record which
could have multiple tables with multiple values, hence creating a
whole lot of records per patient observation? I'm currently handling
it as one really big join, and doing a UDF in the Detail Footer to
pull out the values I actually want, and one in the Patient Group
Footer to check values on the patient level. The counting is (mostly)
done by using report variables, that store a 0 or 1 to the variable
(depending on whether it's the right value and whether it's been set
before) and summing at the end.
_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
