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

Dynamic Lists

Trading Post

Last Post by Anonymous 1 second ago

2 Posts

2 Users

0 Reactions

90 Views

RSS

serious215

(@serious215)

Posts: 28

Trusted Member

Topic starter

I am creating a form to pull in orders in list format (see screenshot below). However, whenever I pull it into Centricity, it only pulls in as a string, with commas instead of a list? Can anyone help me?

Posted : February 26, 2013 11:47 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Here's what I use in a dynamic single selection Listbox. I have one for Tests and another for Referrals. Enjoy!

(I started with someone else's function and changed it to meet my needs, so there may be some superfluous coding here. I was just happy it worked!)

/*
Creates list of Referrals and displays Details.
*/
{! fn ordList(strList)
{
local orderdate
local lCounter
local strOrdList
local lBuffer
local lBuffer2
local lBuffer3
local lBuffer4
local lBuffer5
local lBuffer6
local lBuffer7
local lBuffer8
local lBuffer9
local lBuffer10
local status = ""
local strFormattedList = ""
strOrdList = getfield(strList, "|", "")

for lCounter = 1, lCounter <= size(strOrdList), lCounter = lCounter + 1 do
strOrdList[lCounter] = getfield(strOrdList[lCounter], "^", "")

/* Only look at referrals entered in the past 180 days. */
orderdate = strOrdList[lCounter][4]

if (DURATIONDAYS(orderdate,str(._TODAYSDATE)) < 180) then

/* Need to remove commas */
lBuffer = strOrdList[lCounter][1]
lBuffer = ReplaceStr(lBuffer, ",", ";")
lBuffer2 = strOrdList[lCounter][8]
lBuffer2 = ReplaceStr(lBuffer2,",",";")
lBuffer3 = strOrdList[lCounter][6]
lBuffer3 = ReplaceStr(lBuffer3,",",";")
lBuffer4 = strOrdList[lCounter][21]
lBuffer4 = ReplaceStr(lBuffer4,",",";")
lBuffer5 = strOrdList[lCounter][19]
lBuffer5 = ReplaceStr(lBuffer5,",",";")
lBuffer6 = strOrdList[lCounter][18]
lBuffer6 = ReplaceStr(lBuffer6,",",";")
lBuffer7 = strOrdList[lCounter][4]
lBuffer7 = ReplaceStr(lBuffer7,",",";")
lBuffer8 = strOrdList[lCounter][5]
lBuffer8 = ReplaceStr(lBuffer8,",",";")
lBuffer9 = strOrdList[lCounter][20]
lBuffer9 = ReplaceStr(lBuffer9,",",";")
ordering_user = (find("_MasterOrders","USRID","OrderNum",strOrdList[lCounter][25]))
ordering_user_name = (find("_UserSearch","RealName","PVID",ordering_user))
lBuffer10 = ReplaceStr(ordering_user_name,",",";")

cond
   case lBuffer9 == "U" status = "UNSIGNED (Referral has not yet been signed)"
   case lBuffer9 == "H" status = "ADMIN HOLD (not yet scheduled)"
   case lBuffer9 == "S" status = "IN PROCESS (scheduling currently in process)"
   case lBuffer9 == "C" status = "COMPLETE (Referral has been scheduled)"
   case lBuffer9 == "X" status = "CANCELED"
endcond

strFormattedList = strFormattedList + lBuffer + " [" + strOrdList[lCounter][3] + "] " + HRET + "Problem: " + numtoascii(9) + lBuffer3 + HRET + "Start Date: " + numtoascii(9) + lBuffer7 + numtoascii(9) + "End Date: " + lBuffer8 + HRET + "Status:" + numtoascii(9) + numtoascii(9) + status + HRET + "Entered by: " + numtoascii(9) + lBuffer10 + HRET + "Authorized by: " + numtoascii(9) + lBuffer4 + HRET + HRET + "Comments: " + HRET + lBuffer2 + HRET + HRET + "Administrative Comments: " + numtoascii(9) + lBuffer5 + HRET + HRET + "Authorization Number: " + lBuffer6 + ","

else ""
endif
endfor

if (lCounter > 1) then
strFormattedList = remove(strFormattedList, size(strFormattedList))
endif

return (strFormattedList)
}
}
/*
Creates list of Tests and displays Details.
*/
{! fn testList(strList)
{
local orderdate
local lCounter
local strOrdList
local lBuffer
local lBuffer2
local lBuffer3
local lBuffer4
local lBuffer5
local lBuffer6
local lBuffer7
local lBuffer8
local lBuffer9
local lBuffer10
local service_fax = ""
local status = ""
local strFormattedList = ""
strOrdList = getfield(strList, "|", "")

for lCounter = 1, lCounter <= size(strOrdList), lCounter = lCounter + 1 do
strOrdList[lCounter] = getfield(strOrdList[lCounter], "^", "")

/* Only look at TESTS that are not yet completed. */
if (strOrdList[lCounter][20] <> "C")then

cond
   case lBuffer9 == "U" status = "UNSIGNED"
   case lBuffer9 == "H" status = "ADMIN HOLD"
   case lBuffer9 == "S" status = "IN PROCESS"
   case lBuffer9 == "C" status = "COMPLETE"
   case lBuffer9 == "X" status = "CANCELED"
endcond

strFormattedList = strFormattedList + lBuffer + " [" + strOrdList[lCounter][3] + "] " + HRET + "Problem: " + numtoascii(9) + lBuffer3 + HRET + "Start Date: " + numtoascii(9) + lBuffer7 + numtoascii(9) + "End Date: " + lBuffer8 + HRET + "Status:" + numtoascii(9) + numtoascii(9) + status + HRET + "Entered by: " + numtoascii(9) + lBuffer10 + HRET + "Authorized by: " + numtoascii(9) + lBuffer4 + HRET + HRET + "Comments: " + HRET + lBuffer2 + HRET + HRET + "Service Provider:" + numtoascii(9) + lBuffer12 + HRET + numtoascii(9) + numtoascii(9) + lBuffer13 + " (phone)" + HRET + numtoascii(9) + numtoascii(9) + lBuffer11 + " (fax)" + ","

else ""
endif
endfor

if (lCounter > 1) then
strFormattedList = remove(strFormattedList, size(strFormattedList))
endif

return (strFormattedList)
}
}

Posted : February 26, 2013 10:59 pm

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