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

How to display last 3 obsterms?

CPS, C-EMR, PM

Last Post by Anonymous 1 second ago

9 Posts

5 Users

0 Reactions

67 Views

RSS

lkeith

(@lkeith)

Posts: 457

Honorable Member

Topic starter

Good morning CHUG, I have a nephrologist who would like to be able to bring in the last 3 obsterms for various labs. He has created various quicktext that pulls in the last obsterm but he recently said he would really like to be able to pull in the last 3 results so he can see trending. Any suggestions?

Thanks.

Posted : March 20, 2013 1:03 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

I have the following in my notes:

This tip came through the CHUG listserv on 3/26/2010 from David Shower:

I use this code (which I probably got from a fellow CHUGger) in an action button to show the last 3 results:

{local obsarray6

obsarray6 = getfield(LIST_OBS("WEIGHT","signed","list","valuedate"),")","(,")

userok(str(sub(obsarray6,1,3), HRET))

}

I know David is active on CHUG, so a belated thanks to him for posting this way back when!

Posted : March 20, 2013 2:34 am

lkeith

(@lkeith)

Posts: 457

Honorable Member

Topic starter

Thanks so much. I'll give it a try.

Posted : March 20, 2013 3:12 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Sorry to revive an old thread but just wanted a little guidance on creating a quick text similar to this.

Want to make a quick text that displays the last 3 blood pressure readings recordedfor the patient. This is difficult since the values are recorded separately.. "BP SYSTOLIC" and BP DIASTOLIC"

Ideally , i would want the quick text to display like this

114 (systolic) / 77 (diastolic) (08/18/2014 8:39:02 AM)

123 (systolic) / 67 (diastolic) (08/15/2014 8:39:02 AM)

112 (systolic) / 87 (diastolic) (08/13/2014 8:39:02 AM)

I've tried using

{LIST_OBS('BP SYSTOLIC','Signed','list',"valuedate")}

{LIST_OBS('BP DIASTOLIC','Signed','list',"valuedate")}

but it lists all recorded readings and the BP values are separated. Not ideal for a quick text.

Any advice? Thanks in advance!

Posted : September 3, 2014 6:33 am

blackmanb

(@blackmanb)

Posts: 268

Reputable Member

This was a fun "project", and I got it working.

Define a quicktext, I named it ".prevbp"

Here is the body of the quicktext

{local sA1, sA2, a1, a2, s1="", i=0, imax=0
sA1 = getfield(LIST_OBS("BP SYSTOLIC","signed","list","valuedate"),")",HRET)
sA2 = getfield(LIST_OBS("BP DIASTOLIC","signed","list","valuedate"),")",HRET)
imax = (if size(sA1)<=3, size(sA1), 3)
for i=1,i<=imax,i=i+1 do
a1 = getfield(str(sA1[i]),"(","")
a2 = getfield(str(sA2[i]),"(","")
s1 = s1 + (if s1<>"",HRET,"") + a1[1] + "(systolic) / " + a2[1] + " (diastolic) (" + a1[2] + ")"
endfor
sA1 = getfield(s1,HRET,HRET)
userok(str(sub(sA1,1,3), HRET)) ""}

or if you need it printed in the chart note, replace the last 2 lines with this:

s1}

Let me know how it goes 🙂

- Beverly

Posted : September 3, 2014 10:14 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Thanks Beverly!

So i used:

since I needed it displayed in the chart note. It works! But there is a bit of a kink.

First time you use the quicktext..it displays this:

125(systolic) / 63  (diastolic) (04/05/2013 1:08:03 PM)
120 (systolic) / 95  (diastolic) (08/29/2012 1:21:22 PM)
150 (systolic) / 80  (diastolic) (12/07/2011 1:48:19 PM)

But let's say we delete the filled text to place it somewhere else, and type the quicktext again.. it will display twice.

125(systolic) / 63  (diastolic) (04/05/2013 1:08:03 PM)
120 (systolic) / 95  (diastolic) (08/29/2012 1:21:22 PM)
150 (systolic) / 80  (diastolic) (12/07/2011 1:48:19 PM)
125 (systolic) / 63  (diastolic) (04/05/2013 1:08:03 PM)
120 (systolic) / 95  (diastolic) (08/29/2012 1:21:22 PM)
150 (systolic) / 80  (diastolic) (12/07/2011 1:48:19 PM)

And each time the list gets longer, which is interesting.

125(systolic) / 63  (diastolic) (04/05/2013 1:08:03 PM)
120 (systolic) / 95  (diastolic) (08/29/2012 1:21:22 PM)
150 (systolic) / 80  (diastolic) (12/07/2011 1:48:19 PM)
125 (systolic) / 63  (diastolic) (04/05/2013 1:08:03 PM)
120 (systolic) / 95  (diastolic) (08/29/2012 1:21:22 PM)
150 (systolic) / 80  (diastolic) (12/07/2011 1:48:19 PM)
125 (systolic) / 63  (diastolic) (04/05/2013 1:08:03 PM)
120 (systolic) / 95  (diastolic) (08/29/2012 1:21:22 PM)
150 (systolic) / 80  (diastolic) (12/07/2011 1:48:19 PM)

Any thoughts? Thanks again for all your help.

Posted : September 3, 2014 11:54 pm

blackmanb

(@blackmanb)

Posts: 268

Reputable Member

It appears the Quicktext does not re-initialize the local parameters when run within the same encounter instance. The results you are getting is because s1 is not being reset to "" between calls.

To fix this, I have added an explicit s1="" above the for loop.

(Also, since Quicktext is limited to 512 characters, I needed to delete extra spaces from line 9 to free up space to put in this new line. So this kind of thing is really limited by how much code can be fit into 512 spaces. No long variable names!)

This fixes the problem...

{local sA1, sA2, a1, a2, s1="", i=0, imax=0
sA1 = getfield(LIST_OBS("BP SYSTOLIC","signed","list","valuedate"),")",HRET)
sA2 = getfield(LIST_OBS("BP DIASTOLIC","signed","list","valuedate"),")",HRET)
imax = (if size(sA1)<=3, size(sA1), 3)
s1=""
for i=1,i<=imax,i=i+1 do
a1 = getfield(str(sA1[i]),"(","")
a2 = getfield(str(sA2[i]),"(","")
s1=s1+(if s1<>"",HRET,"")+a1[1]+"(systolic) / "+a2[1]+" (diastolic) ("+a1[2]+")"
endfor
sA1 = getfield(s1,HRET,HRET)
userok(str(sub(sA1,1,3), HRET)) s1}

If you do not need the userok Popup, just use this...

{local sA1, sA2, a1, a2, s1="", i=0, imax=0
sA1 = getfield(LIST_OBS("BP SYSTOLIC","signed","list","valuedate"),")",HRET)
sA2 = getfield(LIST_OBS("BP DIASTOLIC","signed","list","valuedate"),")",HRET)
imax = (if size(sA1)<=3, size(sA1), 3)
s1=""
for i=1,i<=imax,i=i+1 do
a1 = getfield(str(sA1[i]),"(","")
a2 = getfield(str(sA2[i]),"(","")
s1=s1+(if s1<>"",HRET,"")+a1[1]+"(systolic) / "+a2[1]+" (diastolic) ("+a1[2]+")"
endfor
s1}

- Beverly

Posted : September 4, 2014 1:32 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Works like a charm. Thanks Beverly!!

Posted : September 4, 2014 1:39 am

joeg1962

(@joeg1962)

Posts: 843

Noble Member

Thanks Beverly. Looks to be a very useful set of script commands.

🙂

Posted : September 4, 2014 3:00 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