Here is some mel to get you a CVS
{PATIENT.LABELNAME}
{PATIENT.LABELADDRESS}
{if DURATIONDAYS(str(LASTOBSDATE("CHIEF CMPLNT")),str(._TODAYSDATE))<=3 then "This Clinical Visit Summary was produced by your provider: "+ DOCUMENT.PROVIDER +" during your latest office visit on " + LASTOBSDATE("CHIEF CMPLNT") + " at The "+ DOCUMENT.LOCOFCARENAME +". It contains important information about your visit as well as your overall medical condition. This information is intended for you only. Please keep it in safe place and remember to bring it back to the center for every visit." else "" endif }
Reason for your visit today:
{obsnow("CHIEF CMPLNT") }
Based on this visit, your provider recommended the following:
{If obsnow("INSTRGIVENTO")<>"" then ccc_add_num_with_carriage_ret(obsnow("INSTRGIVENTO")) else ccc_add_num_with_carriage_ret(obsnow("INSTRUCTIONS"))
endif}
New Problems associated with your visit today include:
{ if PROB_NEW("comma")=="","No new problems were added today",ccc_add_num_with_carriage_ret(Prob_NEW("List"))}
New medications started today include:
{if MEDS_NEW("Comma") == "", "No new medications were started today
",ccc_add_num_with_carriage_ret(MEDS_NEW("List"))}
Your Current Problems list includes:
{if OBSANY("NKMED") = "T" then "None" else "" endif}
{ccc_add_num_with_carriage_ret(PROB_AFTER("LIST"))}
Your current medications include:
{if MEDS_AFTER("Comma") == "", "No active medications." , ccc_add_num_with_carriage_ret(MEDS_AFTER("List"))}
Most recent Vitals observed:
{if obsnow("Height") <> "" then "Height: "+obsnow("height")+" inches \n\r" else "" endif}{
if obsnow("Height (cm)") <> "" then "Height (metric): "+obsnow("height (cm)")+" cm \n\r" else ""
endif}{
if obsnow("head circumf") <>"" then "Head Circumference: "+obsnow("head circumf")+ " inches
\n\r" else"" endif }{
if obsnow("Headcirc(cm)")<>"" then "Head Circumference(metric): "+obsnow("headcirc(cm)")+ " cm
\n\r" else"" endif}{
if obsnow("weight") <> "" then "Weight: "+obsnow("weight")+" pounds \n\r" else "" endif}{
if obsnow("weight (kg)")<>"" then "Weight (metric); "+obsnow("weight (kg)") +" kg \n\r" else ""
endif}{
if obsnow("bmi") <>"" then "BMI: "+obsnow("BMI")+" kg/m2 \n\r" else "" endif}{
if obsnow("temperature") <> "" then "Temperature: "+obsnow("temperature")+" degrees F \n\r" else
"" endif}{
if obsnow("temp site") <> "" then "Site for temperature: "+obsnow("temp site")+ "\n\r" else ""
endif}{
if obsnow("pulse rate") <> "" then "Pulse Rate: "+obsnow("pulse rate")+" beats/minute \n\r" else
"" endif}{
if obsnow("pulse rhythm") <> "" then "Pulse Rhythm: "+obsnow("pulse rhythm")+" \n\r" else ""
endif}{
if obsnow("resp rate") <> "" then "Respiration Rate: "+obsnow("resp rate")+" breaths/minute
\n\r" else "" endif}{
if obsnow("bp systolic") <> "" and obsnow("bp diastolic") <> ""then "Blood Pressure: "+obsnow("bp systolic")+" / "+obsnow("bp diastolic")+" mm Hg \n\r" else "" endif}{
if obsnow("bp dia #2")<>"" and obsnow("bp sys #2") <>"" then "Repeat Blood Pressure: "+obsnow("bp sys #2") +"/" +obsnow("bp dia #2")+ "mm Hg \n\r" else "" endif}
Procedures and Services Completed Today:
{ORDERS_NEW("List","S")}
Labs and Tests Ordered Today:
{ORDERS_NEW("List","T")}
Most Recent Labs and Tests:
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}
Please contact us if you have any questions.
Prescriptions Handwritten/Faxed/Electronically Sent today:
{if LISTRXNEWFULL() == "", "No Prescriptions Sent.
",LISTRXNEWFULL()}
Posted : April 18, 2013 3:59 am