We use something similar: But on a few patients we are receiving an error message under "Labs and Tests receved in the past 3 days": With basically MEL vomit and at the end "no Lab results" endif <Bad index. This only apprears with a few patients. Any idea? Thank you
Name: {PATIENT.FIRSTNAME} {PATIENT.LASTNAME}
Reason for your visit:
{obsany("Chief Cmplnt")}
Based on this visit, your provider recommended the following:
{ccc_add_num_with_carriage_ret(obsany("INSTRUCTIONS"))}
Problems associated with your visit include:
{PROB_NEW()}
Complete Problems list (
The Problem List maintained in this visit summary is comprehensive and arises from diagnoses deemed appropriate by your physicians. Please direct questions about this list to your primary care physician.)
{PROB_AFTER()}
Most recent Vitals observed
:
{/* vits = GET_FLOWSHEET_VALUES('Enterprise\Printing\Chart_Summary\Current-Vitals')
if vits <> "" then
vitlist = getfield(vits , "\n", "")
sz = size(vitlist)
list = ""
for i = 1, i <= sz, i = i + 1 do
dt = ""
tody = str(._todaysdate)
vit = vitlist[i]
if size(vit) > 0 then
dtbegin = match( vit,"/") -2
dt = sub(vit, dtbegin, 10)
dur = durationdays(dt, tody)
if dur < 4 then
list = list + vit + "\n\r"
else
list = list
endif
else
list = list
endif
endfor
if list <> "" then list else "No results." endif
else
"No results."
endif */}
{if obsany("height") <> "" then "Height: "+obsany("height")+" inches \n\r" else "" endif}{
if obsany("weight") <> "" then "Weight: "+obsany("weight")+" pounds \n\r" else "" endif}{
if obsany("temperature") <> "" then "Temperature: "+obsany("temperature")+" degrees F \n\r" else "" endif}{
if obsany("temp site") <> "" then "Site for temperature: "+obsany("temp site")+ "\n\r" else "" endif}{
if obsany("pulse rate") <> "" then "Pulse Rate: "+obsany("pulse rate")+" beats/minute \n\r" else "" endif}{
if obsany("pulse rhythm") <> "" then "Pulse Rhythm: "+obsany("pulse rhythm")+" \n\r" else "" endif}{
if obsany("resp rate") <> "" then "Respiration Rate: "+obsany("resp rate")+" breaths/minute \n\r" else "" endif}{
if obsany("bp systolic") <> "" and obsany("bp diastolic") <> ""then "Blood Pressure: "+obsany("bp systolic")+" / "+obsany("bp diastolic")+" inches Hg" else "" endif}
?
Immunizations:
{GET_FLOWSHEET_VALUES('Enterprise\Printing\Chart_Summary\Immunizations')}
Procedures and Services:
{ORDERS_AFTER("List","S")}
Labs and Tests ordered:
?
{ORDERS_NEW("List","T")}
{ORDERS_NEW("Liat","L")}
?
Labs and Tests received in the past 3 days:
{labs = GET_FLOWSHEET_VALUES('Enterprise\Printing\Chart_Summary\Current-Labs')
tody = str(._todaysdate)
if labs <> "" then
lablist = getfield(labs, "\n", "")
sz = size(lablist)
list = ""
for i = 1, i <= sz, i = i + 1 do
dt = ""
lab = lablist[i]
labsize = size(lab)
if labsize > 0 then
dtloop = 0
dtptr = 1
while (dtloop = 0) and (dtptr + 11 <= labsize)
do
dtbegin = match( lab, dtptr,"/") -2
dt = sub(lab, dtbegin, 10)
if sub(lab, dtbegin + 10, 1) = ")" then dtloop = 1 endif
dtptr = dtbegin + 3
endwhile
dur = durationdays(dt, tody)
if (dur < 4) and (dtloop = 1) then
list = list + lablist[i] + "\n\r"
endif
endif
endfor
if list <> "" then list else "No lab results." endif
else
"No lab results."
endif}
Your current medications include:
{ccc_add_num_with_carriage_ret(MEDS_AFTER("List"))}
Your new medications include:
{ccc_add_num_with_carriage_ret(MEDS_NEW("list"))}
Allergy List:
{IF OBSANY("NKA")= "T" THEN "PATIENT HAS NO KNOWN ALLERGIES." ELSE "" ENDIF}{ALL_AFTER()}
?
?
Please contact us at_________________________ if you have any questions or concerns.
?
?
?
?
?