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

Labs and Test in past 3 days

Page 1 / 2 Next

Trading Post

Last Post by Anonymous 1 second ago

27 Posts

4 Users

0 Reactions

209 Views

RSS

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Topic starter

I am having trouble with the following code. It does not pull just the past 3 days. I cannot figure out what I am doing wrong. Please help!!!

Labs and Tests received in the past 3 days:

{labs = GET_FLOWSHEET_VALUES('Enterprise\Printing\Chart_Summary\Current-Labs')

if labs <> "" then

lablist = getfield(labs, "\n", "")

sz = size(lablist)

list = ""

for i = 1, i <= sz, i = i + 1 do

dt = ""

tody = str(._todaysdate)

lab = lablist[i]

if size(lab) > 0 then

dtbegin = match( lab,"/") -2

dt = sub(lab, dtbegin, 10)

dur = durationdays(dt, tody)

if dur < 4 then

list = list + lab + "\n\r"

else

list = list

endif

else

list = list

endif

endfor

if list <> "" then list else "No lab results." endif

else

"No lab results."

endif}

Posted : July 5, 2013 3:56 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

Is this wrapped up as a function with a RETURN? Have you run a MEL trace?

Posted : July 5, 2013 6:13 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Topic starter

What I posted is all there is. How would I do a trace?

Posted : July 5, 2013 6:21 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

This probably needs to be a function. You need to have your code read:

{fn fnLast3DaysLabs(){labs = GET_FLOWSHEET_VALUES('Enterprise\Printing\Chart_Summary\Current-Labs')

if labs <> "" then

lablist = getfield(labs, "\n", "")

etc. etc.

then after your last endif line you need a line that reads:

return list

and you need one more } at the end to offset the one before the fn

Also, where you have "No lab results." you need to set the variable list to that value too so when you return the value of list it would have that text in it if appropriate.

Then in your letter or whatever you follow all that code with the line:

{fnLast3DaysLabs()} to run the function.

The easiest way to run a trace is CTRL-ALT-M but if you have never looked at one before, they are tough to read. You can also turn it on by using Options, Tracing and that will show you were it is being saved.

Hope that helps. Others feel free to chime in if I've messed it up somewhere! Laugh

Posted : July 5, 2013 7:02 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Topic starter

Thank you Thank you Thank you. Its working but not totally. It doesnt seem to be picking up on the 3 day rule!

Posted : July 5, 2013 7:24 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

Without looking that a trace I'm not sure why the date matching is failing but you could try this - change

dur = durationdays(dt, tody)

dur = durationdays(str(dt), tody)

Might be that dt isn't being seen as a string. But it could be something in

dtbegin = match( lab,"/") -2

dt = sub(lab, dtbegin, 10)

Posted : July 8, 2013 12:33 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Topic starter

It looks like the date field is getting non date info in it. For example: If the results are "142 MEQ/L" It gets "14EQL" in it instead of the date. So , if there is anything else entered besides a number the function, as written, will not work. Can this be editted to account for that occurence?

Posted : July 8, 2013 5:37 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

You might need to pull the current year from your tody variable and set a backslash + the current year as a variable and then use it to match "/2013" in the obs term line and backtrack to the beginning of the date from there.

Posted : July 8, 2013 5:47 am

cdpaxson

(@cdpaxson)

Posts: 27

Eminent Member

Hello,

I have entered the following:

{fn fnLast3DaysLabs(){labs = GET_FLOWSHEET_VALUES(

"Enterprise\Printing\Chart_Summary\Current-Labs")

if labs <>

"" then

lablist = getfield(labs,

"\n", "")

sz = size(lablist)

list =

for i = 1, i <= sz, i = i + 1 do

dt =

tody = str(._todaysdate)

lab = lablist[i]

if size(lab) > 0 then

dtbegin = match( lab,

"/") -2

dt = sub(lab, dtbegin, 10)

dur = durationdays(dt, tody)

if dur < 4 then

list = list + lab +

"\n\r"

else

list = list

endif

else

list = list

endif

endfor

if list <>

"" then list else "No lab results." endif

else

"No lab results."

endif

return list}{fnLast3DaysLabs()}

and I don't receive any results. Do you see anything I need to change or add?

Thank you!!

Posted : July 9, 2013 12:05 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

This:

if list <>"" then list else "No lab results." endif

else

"No lab results."

Needs to be:

if list <>"" then list else list = "No lab results." endif

else

list = "No lab results."

But that will only help when there is actually nothing to report. I don't have time to try it out here to see what is going on but if you post or send a MEL trace I can take a look at it. David-Shower at OUHSC dot EDU

Posted : July 9, 2013 12:19 am

cdpaxson

(@cdpaxson)

Posts: 27

Eminent Member

Here is my mel trace.

>{/*START OF FORM TRANSLATION BODY*/\par }
execute>end
results>NULL
execute>Attach Symbols Begin
execute>Attach Symbols End
execute>Attach Symbols Begin
execute>Attach Symbols End
>{/*VARIABLES FOR MEL BUILT-IN SYMBOLS USED IN FORM*/\par }
execute>end
results>NULL
>{\par /*FUNCTION DEFINITIONS*/\par\par }
execute>end
results>NULL
>{/*START OF FORM TRANSLATION BODY*/\par }
execute>end
results>NULL
>{/*VARIABLES FOR MEL BUILT-IN SYMBOLS USED IN FORM*/\par }
execute>end
results>NULL
>{\par /*FUNCTION DEFINITIONS*/\par\par }
execute>end
results>NULL
>{/*START OF FORM TRANSLATION BODY*/\par }
execute>end
results>NULL
>{/*VARIABLES FOR MEL BUILT-IN SYMBOLS USED IN FORM*/\par }
execute>end
results>NULL
>{/*START OF FORM TRANSLATION BODY*/\par }
execute>end
results>NULL
execute>Attach Symbols Begin
{!fn fnLast3DaysLabs(){labs = GET_FLOWSHEET_VALUES( "Enterprise\Printing\Chart_Summary\Current-Labs") if labs <> "" then lablist = getfield(labs, "\n", "") sz = size(lablist) list = "" for i = 1, i <= sz, i = i + 1 do dt = "" tody = str(._todaysdate) lab = lablist [ i
COMPILER ERROR NEARBY: Expect RIGHT SQUARE BRACKET. Instead had EOF after IDENTIFIER

execute>Attach Symbols End
execute>Attach Symbols Begin
execute>Attach Symbols End

Thank you!

Posted : July 9, 2013 12:48 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Topic starter

yOU NEED ANOTHER } BEFORE YOU CALL THE FUNCTION, AFTER RETURN LIST}}

Posted : July 9, 2013 12:59 am

cdpaxson

(@cdpaxson)

Posts: 27

Eminent Member

I am still getting:

{!fn fnLast14DaysLabs(){labs = GET_FLOWSHEET_VALUES("Enterprise\Printing\Chart_Summary\Current-Labs") if labs <> "" then lablist = getfield(labs,"\n", "") sz = size(lablist) list ="" for i = 1, i <= sz, i = i + 1 do dt ="" tody = str(._todaysdate) lab = lablist[i
COMPILER ERROR NEARBY: Expect RIGHT SQUARE BRACKET. Instead had EOF after IDENTIFIER

execute>Attach Symbols End
execute>Attach Symbols Begin
execute>Attach Symbols End

Posted : July 9, 2013 1:37 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Topic starter

{fn fnLast3DaysLabs(){labs = GET_FLOWSHEET_VALUES(

"Enterprise\Printing\Chart_Summary\Current-Labs")

if labs <>

"" then

lablist = getfield(labs,

"\n", "")

sz = size(lablist)

list =

for i = 1, i <= sz, i = i + 1 do

dt =

tody = str(._todaysdate)

lab = lablist[i]

if size(lab) > 0 then

dtbegin = match( lab,

"/") -2

dt = sub(lab, dtbegin, 10)

dur = durationdays(dt, tody)

if dur < 4 then

list = list + lab +

"\n\r"

else

list = list

endif

else

list = list

endif

endfor

if list <>

"" then list else "No lab results." endif

else

list = "No lab results."

endif

return list}}{fnLast3DaysLabs()}

Try this. It worked for me. Let me know.

Posted : July 9, 2013 1:45 am

cdpaxson

(@cdpaxson)

Posts: 27

Eminent Member

I copied the text you entered above, placed it in a data display and I get the a box with a flashing cursor. I do not even get "No lab results."

Posted : July 9, 2013 1:56 am

Page 1 / 2 Next

24 Forums
9,940 Topics
39.9 K Posts
2 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