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

VFE Function Help

MEL, SQL, Oracle

Last Post by Anonymous 1 second ago

8 Posts

3 Users

0 Reactions

73 Views

RSS

kkopp

(@kkopp)

Posts: 333

Honorable Member

Topic starter

!fn fnProbDropdown(strList) { local lCounter local strProblemList local lBuffer local strFormattedList = "" strProblemList = getfield(strList, "|", "") for lCounter = 1, lCounter <= size(strProblemList), lCounter = lCounter + 1 do strProblemList[lCounter] = getfield(strProblemList[lCounter], "^", "") strFormattedList = strFormattedList + str(lCounter) + ". " + fnConvertProblemTypeToString(strProblemList[lCounter][1], FALSE) /* Number and prefix */ /* Need to remove commas from problem name */ lBuffer = strProblemList[lCounter][2] lBuffer = ReplaceStr(lBuffer, ",", "\,") strFormattedList = strFormattedList + lBuffer + "," endfor if (lCounter > 1) then strFormattedList = remove(strFormattedList, size(strFormattedList)) endif return strFormattedList }

Posted : September 28, 2015 3:58 am

kkopp

(@kkopp)

Posts: 333

Honorable Member

Topic starter

CPOE, dx do not appear in the dropdown. Please help!!!

Posted : September 28, 2015 3:59 am

Lee

(@lee-cooper)

Posts: 348

Reputable Member

What does the MEL trace tell you? Is a function reference missing? Are you assigning it to the variable for the drop down list? Are you feeding the argument 'strlist' with a valid value?

Posted : September 28, 2015 5:36 am

kkopp

(@kkopp)

Posts: 333

Honorable Member

Topic starter

I have the drop down list assigned to a variable with the fn:

{fnProbDropdown(PROB_AFTER("delimited"))}

I don't have answers to the other questions? I still a beginner in VFE.

/* ASSESSMENT */

!fn fnProbDropdown(strList)

{

local lCounter

local strProblemList

local lBuffer

local strFormattedList = ""

strProblemList = getfield(strList, "|", "")

for lCounter = 1, lCounter <= size(strProblemList), lCounter = lCounter + 1 do

strProblemList[lCounter] = getfield(strProblemList[lCounter], "^", "")

strFormattedList = strFormattedList + str(lCounter) + ". " + fnConvertProblemTypeToString(strProblemList[lCounter][1], FALSE)

lBuffer = strProblemList[lCounter][2]

lBuffer = ReplaceStr(lBuffer, ",", "\,")

strFormattedList = strFormattedList + lBuffer + ","

endfor

if (lCounter > 1) then

strFormattedList = remove(strFormattedList, size(strFormattedList))

endif

return strFormattedList

}

!fn fnMedList(strList)

{

local lCounter

local MedArray

local lBuffer

local strFormattedList = ""

MedArray = getfield(strList, "|", "")

for lCounter = 1, lCounter <= size(MedArray), lCounter = lCounter + 1 do

MedArray[lCounter] = getfield(MedArray[lCounter], "^", "")

Posted : September 28, 2015 7:11 am

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Here's the piece I use it's not mine originally but seems to be working fine:

!fn fnFormatFormList(strList)
{
strList = getfield(strList, ",", "")
strList = str(strList, "\,")
strList = getfield(strList, "^", "")
strList = str(strList, "")
strList = getfield(strList, "|", "")
strList = str(strList, ",")
}

/* To convert problem abbrevation to logic statement*/
!fn fnConvertProblemTypeToString(strType, bIncludeDx)
{
strType = tolower(strType)

cond
case (strType == "dx of")
if (bIncludeDx) then
return ("Diagnosis of ")
else
return ("")
endif
case (strType == "mdxof")
return ("Minor diagnosis of ")
case (strType == "h/f")
return ("Hospitalized for ")
case (strType == "hx of")
return ("History of ")
case (strType == "s/p")
return ("Status post ")
case (strType == "r/o")
return ("Rule out ")
case (strType == "? of")
return ("Question of ")
case (strType == "sx of")
return ("Symptom of ")
case (strType == "rs of")
return ("Risk of ")
case (strType == "note:")
return ("Take note of ")
case (strType == "fh of")
return ("Family history of ")
endcond

return ("")
}

/*To get the Active Problem list*/
!fn fnProbDropdown(strList)
{
local strProblemList
local nStart
local strBuf
local strFormattedList = ""
strProblemList = getfield(strList, "|", "")

for i = 1, i <= size(strProblemList), i = i + 1 do
strProblemList[i] = getfield(strProblemList[i], "^", "")
strFormattedList = strFormattedList + str(i) + ". " + fnConvertProblemTypeToString(strProblemList[i][1], FALSE) /* Number and prefix */

/* Need to remove commas from problem name */
strBuf = strProblemList[i][2]
strBuf = ReplaceStr(strBuf, ",", "\,")
strFormattedList = strFormattedList + strBuf + ","
endfor

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

return strFormattedList
}

in drop down:

{fnProbDropdown(PROB_AFTER("delimited"))}

Posted : September 28, 2015 8:01 am

kkopp

(@kkopp)

Posts: 333

Honorable Member

Topic starter

Added it my form...still doesn't work. I'll have to start over I guess. Thank for your help though.

Posted : September 29, 2015 2:48 am

kkopp

(@kkopp)

Posts: 333

Honorable Member

Topic starter

Okay so the code worked. Thank you very much for your help. I noticed that when choosing a dx from the dropdown list, it does not include the icd9 or 10 code with it. Do you happen to have to function or MEL code for this?

Posted : September 29, 2015 3:06 am

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Whipped up this piece but can't guarantee it'll work properly and I'm not currently utilizing it live, I do know it needs to be run through a ReplaceStr buffer for commas.

{!fn fnGetProdICD() {
local temp = getfield(PROB_PRIOR("delimited"), "|", "")
local hold
local rslt =""

for i=1, i<=size(temp),i=i+1 do
hold = getfield(temp[i],"^","")
if hold[3] <> "" then
if rslt <> "" then
rslt = rslt
endif
rslt = rslt + hold[2] + hold[3] + " " + " " + hold[8] + ","
endif
endfor
return rslt
}}

Posted : September 29, 2015 6:09 am

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