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

Clinical Visit Summary Bad Index error

General Discussion

Last Post by jjordet 12 years ago

3 Posts

2 Users

0 Reactions

69 Views

RSS

dhuffman

(@dhuffman)

Posts: 18

Eminent Member

Topic starter

Anyone seeing a BAD INDEX error in the Lab result section of their CVS?

Posted : June 25, 2012 10:32 pm

dhuffman

(@dhuffman)

Posts: 18

Eminent Member

Topic starter

this is what is formatted in this section this was from the original CVS

Labs and Tests received in the past 3 days:

{fn fnCVS_LabTestResults()

{local list = ""

local sz, i, dt, tody, lab, dtbegin, dur

local lablist

local labs = GET_FLOWSHEET_VALUES('Enterprise\Interfaces\CCD\Diagnostic Results')

if labs <> "" then

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

sz = 0+size(lablist)

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 +"\r\n"

else

list = list

endif

else

list = list

endif

endfor

if list == "" then list ="No lab results." endif

else

list="No lab results."

endif

return list

}}{fnCVS_LabTestResults()}

Posted : July 10, 2012 10:48 pm

jjordet

(@jjordet)

Posts: 545

Honorable Member

Try this:

{fn fnCVS_LabTestResults()
   {
   local list = ""
   local sz, i, dt, tody, lab, dtbegin, dur
   local lablist
   local labs = GET_FLOWSHEET_VALUES('Enterprise\Interfaces\CCD\Diagnostic Results')

   if labs <> "" then
      lablist = GETFIELD(labs, "\n", "")
      sz = 0 + SIZE(lablist)
      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
            if dtbegin > 0 then                     // skip if '/' in obs value
               dt = SUB(lab, dtbegin, 10)
               dur = DURATIONDAYS(dt, tody)
               if dur < 4 then
                  list = list + lab + "\r\n"
               endif
            endif
         endif
      endfor
      if list == "" then
         list = "No lab results."
      endif
   else
      list = "No lab results."
   endif
   return list
   }
}{fnCVS_LabTestResults()}

This will skip an obs value if there is a '/' in it. You could do a second match at the point where I've commented to skip around the first '/' to get to the date.

Posted : July 10, 2012 11:13 pm

Share:

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