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

MEL error with getfield and array

CPS, C-EMR, PM

Last Post by Anonymous 1 second ago

4 Posts

2 Users

0 Reactions

60 Views

RSS

joeg1962

(@joeg1962)

Posts: 843

Noble Member

Topic starter

I would like to see if I can figure a way to graph data, even if a simple bar graph for results. But first, I need to figure out the error in the following:

{local sA1, a1, s1="", i=0, imax=0
sA1 = getfield(LIST_OBS("LDL","signed","list","valuedate"),")",HRET)
imax = (if size(sA1)<=10, size(sA1), 10)
s1=""
for i=1,i<=imax,i=i+1 do
a1 = getfield(str(sA1[i]),"(","")
s1=s1+(if s1<>"",HRET,"")+a1[2]+" "+a1[1]
endfor
s1}

Once this works, my plan is to

reverse the printing order (printing oldest first)

then make some kind of bar graph for results

Thoughts?

Has anyone been able to embed graph results into a letter?

Thanks.

Posted : September 8, 2014 12:19 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

joeg1962 said:

I would like to see if I can figure a way to graph data, even if a simple bar graph for results. But first, I need to figure out the error in the following:

{local sA1, a1, s1="", i=0, imax=0
sA1 = getfield(LIST_OBS("LDL","signed","list","valuedate"),")",HRET)
imax = (if size(sA1)<=10, size(sA1), 10)
s1=""
for i=1,i<=imax,i=i+1 do
a1 = getfield(str(sA1[i]),"(","")
s1=s1+(if s1<>"",HRET,"")+a1[2]+" "+a1[1]
endfor
s1}

Once this works, my plan is to

reverse the printing order (printing oldest first)

then make some kind of bar graph for results

Thoughts?

Has anyone been able to embed graph results into a letter?

Thanks.

It looks like you are trying to get the date and then the result, why not use the delimited version of LIST_OBS()? It is much more straight forward. The big problem I see is the if-then syntax

imax = (if size(sA1)<=10, size(sA1), 10)

should be more like

(if size(sA1)<=10 then imax = size(sA1) else imax = 10 endif)

Same with the other if statement in the for loop. The sA1[i] is already a string, not sure you need to remove the function but you shouldnt need it there either. You could reverse it when saving to s1 by adding s1 back to the end instead of first. I have no experience with graphs and letters, someone else will have to give you some input there

Posted : September 8, 2014 1:03 am

joeg1962

(@joeg1962)

Posts: 843

Noble Member

Topic starter

Thanks Mike.

Have the following quicktext:

{local sA1, a1, a2=0, a3="", s1="", i=0, imax=0, j=1
local HTb=numtoascii(009)
sA1 = getfield(LIST_OBS("LDL","signed","list","valuedate"),")",HRET)
if size(sA1)<=10 then imax = size(sA1) else imax = 10 endif
s1=""
for i=1,i<imax,i=i+1 do
a1 = getfield(str(sA1[i])," ","")
a1[2] = sub(a1[2],2)
a2=div(val(a1[1])+2.5,5)
a3=""
for j=1,j<=a2,j=j+1 do
a3 = a3 +"*"
if j=20 then a3 = a3 + "|" else "" endif
endfor
s1 = s1 + a1[2] + HTb + a1[1] + HTb + a3 + HRET
endfor
s1}

Which produces the following:

08/01/2014   190   *****************|************
06/01/2014   169   **************|********
04/02/2014   176   **************|*********
03/20/2014   125   **************|**
10/13/2013   99   *****************|
06/15/2013   112   *****************|**
01/13/2013   79   ****************

[Note, the tab when actually run gets things to line up nicer.]

Now, to figure out reversing the order, and also how to make 'prettier'. Hmmmm.

Any suggestions?

Posted : September 8, 2014 4:43 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

I use this sometimes

{fn ReverseList(var){

local temp = getfield(var,"\n","\r")
local hold = ""

for i = size(temp), i>0, i = i - 1 do
  if hold <> "" then
   hold = hold + hret
  endif
  hold = hold + temp[i]
endfor

return hold

}}

For prettiness, only thing I can think is to check the ascii characters, try numtoascii(8), its kind of a box... (I think, if I have the correct list)

Posted : September 8, 2014 4:57 am

Share:

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

Powered by wpForo Powered by wpForo version 2.4.0