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 Function Help Please

General Discussion

Last Post by kellyblake 9 years ago

3 Posts

2 Users

0 Reactions

70 Views

RSS

kellyblake

(@kellyblake)

Posts: 34

Trusted Member

Topic starter

I am struggling with this one and other functions. Basically, when I add an If statement and the Return is blank I get <Bad Index. What is wrong with this?? If I remove "if IOrderArray[ICounter][2]=="S" then " and the else "" endif that goes with it, it works fine and returns all orders, or blank if there are none, but adding that exclusions causes errors if the return is blank.

{fn fnMedHTMLOrders2(strList)
{
local ICounter
local IOrderArray
local IStart
local IBuffer
local IFormattedList = ""

/* Create Array of orders */
IOrderArray = getfield(strList,"|","")

/* Loop through all problems in Array */
for ICounter = 1, ICounter <= size(IOrderArray), ICounter = ICounter + 1 do

/* Create Array for each order */
IOrderArray[ICounter] = getfield(IOrderArray[ICounter],"^","")

if IOrderArray[ICounter][2]=="S" then

IFormattedList = IFormattedList + IOrderArray[ICounter][1] + if IOrderArray[ICounter][10]"" then " (units " + IOrderArray[ICounter][10] + ")" else "" endif + " " + IOrderArray[ICounter][4] + HRET

else ""
endif
endfor

/* Remove trailing comma */
if (ICounter > 1) then
IFormattedList = remove(IFormattedList, size(IFormattedList))
endif

return (IFormattedList)
}}{fnMedHTMLOrders2(ORDERS_ALL("delimited"))}

Posted : October 14, 2015 6:09 am

slamond

(@slamond)

Posts: 39

Trusted Member

Hello,

From first glance, it looks like you're missing a "<>" in the statement after IOrderArray[ICounter][10]. Try this:

if IOrderArray[ICounter][2]=="S" then

IFormattedList = IFormattedList + IOrderArray[ICounter][1] + if IOrderArray[ICounter][10]<>"" then " (units " + IOrderArray[ICounter][10] + ")" else "" endif + " " + IOrderArray[ICounter][4] + HRET
else ""
endif

Hope this helps!

SL

Posted : October 14, 2015 8:59 am

kellyblake

(@kellyblake)

Posts: 34

Trusted Member

Topic starter

Here is the original function, I copied it and cut out some info because I'm getting the same <Bad Index result no matter how simple I write it. I must have lost that in the copy/paste.

{fn fnMedHTMLOrders(strList)
{
local ICounter
local IOrderArray
local IStart
local IBuffer
local IFormattedList = ""
local arrAUAMeds = array("CPT-J0270","CPT-J9031","CPT-J0585","CPT-J9155","CPT-J1040","CPT-J3490.21","CPT-J1580","CPT-J9225","CPT-J0897","CPT-J9357","CPT-J3301","CPT-J2001","CPT-J9217","CPT-S0020","CPT-J0275","CPT-J0696","CPT-J1720","CPT-S0189","CPT-J1071.1","CPT-J1071.2","CPT-J9357","CPT-J3490.4","CPT-J0775","CPT-J9202")
local IMedCounter

/* Create Array of orders */
IOrderArray = getfield(strList,"|","")

/* Loop through all problems in Array */
for ICounter = 1, ICounter <= size(IOrderArray), ICounter = ICounter + 1 do

/* Create Array for each order */
IOrderArray[ICounter] = getfield(IOrderArray[ICounter],"^","")

for IMedCounter = 1, IMedCounter <=size(arrAUAMeds), IMedCounter = IMedCounter + 1 do

if IOrderArray[ICounter][2]=="S" and (IOrderArray[ICounter][3]==arrAUAMeds[IMedCounter]) then

IFormattedList = IFormattedList + IOrderArray[ICounter][1] + if IOrderArray[ICounter][11]"" then " (units " + IOrderArray[ICounter][11] + ")" else "" endif + " " + IOrderArray[ICounter][4] + HRET + " Comments: " + IOrderArray[ICounter][8] + HRET + HRET

else ""
endif
endfor
endfor

/* Remove trailing comma */
if (ICounter > 1) then
IFormattedList = remove(IFormattedList, size(IFormattedList))
endif

return (IFormattedList)
}}{fnMedHTMLOrders(ORDERS_ALL("delimited"))}

Posted : October 16, 2015 12:51 pm

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