Welcome to the NEW CHUG— your ultimate destination for cutting-edge insights and discussions at the intersection of healthcare and technology.

Our platform is dedicated to exploring the dynamic landscape of healthcare technology, empowering professionals, enthusiasts, and innovators alike with the knowledge and resources to navigate the rapidly evolving field.

From telemedicine revolutionizing patient care to the transformative potential of artificial intelligence in diagnostics, we delve into a myriad of topics shaping the future of healthcare delivery. Whether you’re a seasoned healthcare IT professional, an aspiring entrepreneur in the digital health space, or simply curious about the latest innovations, our curated content, expert interviews, and thought-provoking articles provide a comprehensive exploration of healthcare technology’s most pressing issues.

Join us as we navigate the forefront of innovation, driving forward the transformation of healthcare for a healthier, more connected world.

Have questions or suggestions? Please use the contact button below.

Notifications

Clear all

Last 3 months lab results

MEL, SQL, Oracle

Last Post by Anonymous 1 second ago

12 Posts

4 Users

0 Reactions

106 Views

RSS

Beth Ann

(@beth-ann)

Posts: 135

Estimable Member

Topic starter

I am working on brining in the last 3 months of lab results into an office visit I just need to have it so it will have comma's after each result, right now it is coming up in individual rows. This is what I have. Thanks in advanced for your help.

{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 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}

Posted : December 12, 2014 7:01 am

mikeseale

(@mikeseale)

Posts: 344

Reputable Member

Should just have to change this piece of the code:

list = list + lablist[i] + "\n\r"
to
list = list + lablist[i] + ", "

Posted : December 12, 2014 7:21 am

Beth Ann

(@beth-ann)

Posts: 135

Estimable Member

Topic starter

Perfect, thanks so much

Posted : December 12, 2014 8:43 am

joeg1962

(@joeg1962)

Posts: 843

Noble Member

I tried to just copy this into a text component, and changed the flowsheet to one we use.

However, I get an error when I add the text component to an Update.

endif <-COMPILER ERROR NEARBY: Expect EXPRESSION. Instead had NON-TERMINATED STRING after LEFT PAREN

Posted : December 12, 2014 9:15 am

Beth Ann

(@beth-ann)

Posts: 135

Estimable Member

Topic starter

Try this and let me know if that does the trick. Good Luck...

{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 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] + ", "
endif
endif
endfor
if list "" then list else "No lab results." endif
else
"No lab results."
endif}

Posted : December 12, 2014 9:34 am

joeg1962

(@joeg1962)

Posts: 843

Noble Member

Get the same cryptic error in MEL.

How are you using this? Does it exist as a text component that you add into an encounter?

Posted : December 12, 2014 9:40 am

Beth Ann

(@beth-ann)

Posts: 135

Estimable Member

Topic starter

I have it set up as a text component for them to bring in from their favorites.

Posted : December 12, 2014 9:45 am

joeg1962

(@joeg1962)

Posts: 843

Noble Member

I wonder if something got lost as you cut/pasted?

Line 3 looks odd:

if labs “” then

Shouldn't there be an = in there?

Line 7, your for statement seems missing something

for i = 1, i 0 then

Posted : December 12, 2014 9:59 am

joeg1962

(@joeg1962)

Posts: 843

Noble Member

There were some issues with the copy/past, so I will re-post what worked for me to grab labs from the past 14 days. I pasted this into a text component, as it was way more than the 500 character QuickText limit. Although you could do a quicktet to automatically import this. Proabably a better application might be within a screen form to remind a physician of recent lab results during an office visit. Notes on areas that may need to be adjusted:

1) The 14 is near the bottom of the script.

2) Adjust the first variable to point to a flowsheet view you want to use. You will only see results that are included in this view of OBS Names.

{Thanks to Beth for the code.}

{labs = GET_FLOWSHEET_VALUES("Enterprise\NEMC\GM Flowsheet\ENDO DM 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 < 14) and (dtloop = 1) then
list = list + lablist[i] + ", "
endif
endif
endfor
if list <> "" then list else "No lab results." endif
else
"No lab results."
endif}

Last14daysLabs

Posted : December 15, 2014 6:40 am

Beth Ann

(@beth-ann)

Posts: 135

Estimable Member

Topic starter

This seemed to work for one day but now it is not pulling in the last 3 months of lab results if anyone is able to assist, I appreciate it.

{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 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] + ", "
endif
endif
endfor
if list "" then list else "No lab results." endif
else
"No lab results."
endif}

Posted : December 18, 2014 5:16 am

Beth Ann

(@beth-ann)

Posts: 135

Estimable Member

Topic starter

Below is lab results the patient had in the past 3 months Thanks so much to Joeg1962

{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 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 < 91) and (dtloop = 1) then
list = list + lablist[i] + ", "
endif
endif
endfor
if list "" then list else "No lab results." endif
else
"No lab results."
endif}

Posted : December 19, 2014 8:53 am

cmahon

(@cmahon)

Posts: 111

Estimable Member

Hello,

I am working on populating the last 7 days of lab results within a handout. Very similiar idea, but for some reason the code doesn't seem to work in handouts when I add it in. I also tried adding the code as a text component and adding the component into the handout but I get the following errors

"{INSERT_TEXT_COMP(Enterprise\TestMU2 <- COMPILER ERROR NEARBY: Expect COMMA OR RIGHT PARETHESIS. Instead had INDENTIFIER after INDENTIFIER

This was how I inserted the code into the handout:
{INSERT_TEXT_COMP(Enterprise\TestMU2)}

Thanks in advance!

Posted : May 20, 2015 6:35 am

24 Forums
9,940 Topics
39.9 K Posts
1 Online
6,470 Members

Forum Icons: Forum contains no unread posts Forum contains unread posts

Topic Icons: Not Replied Replied Active Hot Sticky Unapproved Solved Private Closed