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

Associate an Order Number to an Obs term

MEL, SQL, Oracle

Last Post by Anonymous 1 second ago

4 Posts

2 Users

0 Reactions

74 Views

RSS

cprice7

(@cprice7)

Posts: 71

Estimable Member

Topic starter

I'm looking for a way to associate an order number to an obs term in VFE. Currently I have a function that will give me the Order Description, Order Start date and Order Number of all active orders in a drop down. I am limiting the drop down to allow one selection on the VFE form. I need to extract out that Order Number (position 25) and add it as a value to an obs term called ORDERNUMBER.

I have reviewed the substring symbols but I'm not sure how to get them to work for my needs since the order number will not always start in the same position, nor will it always be the same length.

Any help is appreciated.

Here is my function I'm using in the function view:

{
fn ordList(strList)
{
local lCounter
local lOrdArray
local lStart
local lBuffer
local lFormattedList = ""
lOrdArray = getfield(strList, "|", "")
for lCounter = 1, lCounter <= size(lOrdArray), lCounter = lCounter + 1 do
lOrdArray[lCounter] = getfield(lOrdArray [lCounter], "^", "")
lBuffer = ReplaceStr(lOrdArray [lCounter][1], ",", ";")
lFormattedList = lFormattedList + lBuffer + if lOrdArray [lCounter][4] == "" then "" else " Start: " + lOrdArray [lCounter][4] endif + if lOrdArray [lCounter][25] == "" then "" else " Order ID: " + lOrdArray [lCounter][25] endif + ","
endfor
if (lCounter > 1) then
lFormattedList = remove(lFormattedList, size(lFormattedList))
endif
return (lFormattedList)
}
}

Here is what I'm calling in the drop down list:

{ordList(ORDERS_PRIOR("Delimited"))}

Posted : January 14, 2020 6:05 am

Lee

(@lee-cooper)

Posts: 348

Reputable Member

You have almost answered your question. Using the same ORDERS_PRIOR, write another function where you match the selected order name and date, then grab index 25 and store it in the obsterm using obsnow(obsname,varassignedtoindex25).

fn fnStoreOrderNumber(strList,strSelectedOrder)

{
local retStr = ""
local strTemp = ""
local strBuf = ""
local i

strTemp = getfield(strList,"|","")
for i = 1, i <= size(strTemp), i = i + 1 do
strTemp[i] = getfield(strTemp[i],"^","")
strBuf = replacestr(strTemp[i][1],",",";")
if strTemp[i][4] <> "" then
strBuf = strBuf + " Start: " + strTemp[i][4]
else ""
endif
if strTemp[i][25] <> "" then
strBuf = strBuf + " OrderID: " + strTemp[i][25]
else ""
endif
if strSelectedOrder == strBuf then
OBSNOW(obstermName,strTemp[i][25])
break
else ""
endif
endfor
return ""
}
}

Call the function with:

fnStoreOrderNumber(ORDERS_PRIOR("delimited"),variableNameOfTheDropdown)

Hope that helps!

Posted : January 14, 2020 9:41 am

cprice7

(@cprice7)

Posts: 71

Estimable Member

Topic starter

Lee,

Thanks so much for the assist. I think I'm doing something wrong though.

I placed the second function (your code) in the function view as follows:

{
fn fnStoreOrderNumber(strList,strSelectedOrder)
{
local retStr = ""
local strTemp = ""
local strBuf = ""
local i

strTemp = getfield(strList,"|","")
for i = 1, i <= size(strTemp), i = i + 1 do
strTemp[i] = getfield(strTemp[i],"^","")
strBuf = replacestr(strTemp[i][1],",",";")
if strTemp[i][4] <> "" then
strBuf = strBuf + " Start: " + strTemp[i][4]
else ""
endif
if strTemp[i][25] <> "" then
strBuf = strBuf + " OrderID: " + strTemp[i][25]
else ""
endif
if strSelectedOrder == strBuf then
OBSNOW("ORDERNUMBER",strTemp[i][25])
break
else ""
endif
endfor
return ""
}
}

Then I added a data dispay with MEL expression connection type with:

{fnStoreOrderNumber(ORDERS_PRIOR("delimited"),DOCUMENT.SELECT_ASSOC)}

When I select the order from the drop-down (first function) nothing happens in the data display, and the obs term ORDERNUMBER is not added. Any suggestions what I may be doing wrong?

Posted : January 21, 2020 11:40 am

Lee

(@lee-cooper)

Posts: 348

Reputable Member

Check the MEL trace and see if the order names are matching. If not, you might need to adjust the code a bit to make it do so.

Posted : January 22, 2020 8:51 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