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

Multiple Check Boxes into single multi line edit - translation

Trading Post

Last Post by Anonymous 1 second ago

6 Posts

4 Users

0 Reactions

114 Views

RSS

jhuckaby45

(@jhuckaby45)

Posts: 65

Estimable Member

Topic starter

I have multiple check boxes that I want to translate into one multi line edit. If the box is checked then it will translate a statement into the edit box. For instance if the exercise check box is checked then the edit box will say :"Counseled patient to exercise for 30 - 60 mins twice a week".

Is there a way to avoid having to write IF THEN ELSE for every possible combination of check boxes selected? This can be quite a lot since it needs to accumulate all check boxes selected.

Justin

Posted : October 15, 2014 1:25 pm

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Does this new forum allow us to post .dlg files? If not I can email you a form we use that does this.

Posted : October 16, 2014 2:24 am

jhuckaby45

(@jhuckaby45)

Posts: 65

Estimable Member

Topic starter

yes you can just put it in a zip file or if you just want to email it, [email protected]

Thank you

Justin

Posted : October 16, 2014 5:22 am

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Here's a zip file of it. HPI

Also here's a common bare bones code I use to string different variables together;

{ListBoxResult711(DOCUMENT.LISTBOX2,DOCUMENT.LISTBOX3,DOCUMENT.LISTBOX4,DOCUMENT.LISTBOX5,DOCUMENT.LISTBOX6,DOCUMENT.LISTBOX7))}

{fn ListBoxResult711(straa,strbb,strcc,strdd,stree,strff){
local strCPT=""
if (size(straa) > 0) then
strCPT = straa
endif

if (size(strbb) > 0) and strCPT <> ""
then strCPT = strCPT + ", " + strbb
else if (size(strbb) > 0) and strCPT == ""
then strCPT = strbb
endif
endif

if (size(strcc) > 0) and strCPT <> ""
then strCPT = strCPT + ", " + strcc
else if (size(strcc) > 0) and strCPT == ""
then strCPT = strcc
endif
endif

if (size(strdd) > 0) and strCPT <> ""
then strCPT = strCPT + ", " + strdd
else if (size(strdd) > 0) and strCPT == ""
then strCPT = strdd
endif
endif

if (size(stree) > 0) and strCPT <> ""
then strCPT = strCPT + ", " + stree
else if (size(stree) > 0) and strCPT == ""
then strCPT = stree
endif
endif

if (size(strff) > 0) and strCPT <> ""
then strCPT = strCPT + ", " + strff
else if (size(strff) > 0) and strCPT == ""
then strCPT = strff
endif
endif
return strCPT

}}

/* TEXT TRANSLATION FORMATTING*/
{fn ListBoxTranslation711(straa,strbb,strcc,strdd,stree,strff){
local strCPT = ListBoxResult711(straa,strbb,strcc,strdd,stree,strff)
return cfmt(strCPT, ",1", + "
", ",1", "
", ",1")}}

Then put this in your item variable I typically put it in the first item variable that you want to begin your string:

{ListBoxResult711(DOCUMENT.LISTBOX2,DOCUMENT.LISTBOX3,DOCUMENT.LISTBOX4,DOCUMENT.LISTBOX5,DOCUMENT.LISTBOX6,DOCUMENT.LISTBOX7)}

Posted : October 16, 2014 5:35 am

cbergman

(@cbergman)

Posts: 4

New Member

VFE files zipped up: StringBuilder Example

I cringe whenever I see an endif followed by an endif followed by an endif followed by an endif endif endif endif......

I have a couple of utility functions (housed in Function Libraries) to help with situations like these: StringBuilder() & NotNullOrEmpty()

StringBuilder() takes an array of strings (I'll usually take advantage of MEL's built-in CFMT() function for formatting purposes) and stacks them together side-by-side. While looping through the string array, if the current string is empty, it'll skip over it and go onto the next one, eventually returning a final string.

{fn StringBuilder(stringArray) { local finishedString = "" local stringArrayLength = size(stringArray) local currentIndex

for i = 1, i <= stringArrayLength, i = i + 1 do
currentIndex = stringArray[i]
if (NotNullOrEmpty(currentIndex)) then
if (NotNullOrEmpty(finishedString)) then
finishedString = finishedString + currentIndex
else
finishedString = currentIndex
endif
endif
endfor

return finishedString
}}

NotNullOrEmpty() simply returns a boolean of whether the object passed to it (in this case, a string) is null or an empty string.

{fn NotNullOrEmpty(obj) { return (obj <> Null AND obj <> "") }

Using these two utility functions we can concatenate any number of check/list boxes. I've thrown together a simple form with 10 separate check boxes and a couple of list boxes, along with a Multi-line Edit Box. Within a Watcher Expression we can house our logic to update the Multi-line Edit Box whenever one of our options is de/selected. We do this by assigning our Multi-line Edit Box to the result returned from passing our check/list boxes to our StringBuilder() function. And assuming we would like some consistent punctuation to separate our options, we assign a variable to a simple string for this purpose as well.

{ global punctuation = "," + HRET

DOCUMENT.EDITBOX = StringBuilder(array(
CFMT(DOCUMENT.CHECKBOX01,"","","B", punctuation),
CFMT(DOCUMENT.CHECKBOX02,"","","B", punctuation),
CFMT(DOCUMENT.CHECKBOX03,"","","B", punctuation),
CFMT(DOCUMENT.CHECKBOX04,"","","B", punctuation),
CFMT(DOCUMENT.CHECKBOX05,"","","B", punctuation),
CFMT(DOCUMENT.CHECKBOX06,"","","B", punctuation),
CFMT(DOCUMENT.CHECKBOX07,"","","B", punctuation),
CFMT(DOCUMENT.CHECKBOX08,"","","B", punctuation),
CFMT(DOCUMENT.CHECKBOX09,"","","B", punctuation),
CFMT(DOCUMENT.CHECKBOX10,"","","B", punctuation),
CFMT(DOCUMENT.LISTBOX01,"","","B", punctuation),
CFMT(DOCUMENT.LISTBOX02,"","","B", punctuation)
))
}

You'll notice inside of our StringBuilder function we've passed an array full of CFMT() functions. As noted earlier, since CFMT() returns a string, this allows us some further control as to how we would like our end result to be, for instance, adding punctuation at the end of each selected option.

At this point we have a working form; as we check and uncheck boxes our final string residing in our Multi-line Edit Box updates accordingly. The only problem is that we have some trailing punctuation left over at the end of our string >.<

To remedy this we can add some additional logic to the end of our Watcher Expression to find the trailing punctuation and remove it, utilizing a bit of math and MEL's remove() function.

global endOfString = size(DOCUMENT.EDITBOX) global PUNCTUATION_OFFSET = endOfString - size(punctuation) global punctuationFirstChar = punctuation[1] global startOfMatch = match(DOCUMENT.EDITBOX, PUNCTUATION_OFFSET, punctuationFirstChar) global length = endOfString - startOfMatch

/* Remove trailing punctuation */
DOCUMENT.EDITBOX = remove(DOCUMENT.EDITBOX, startOfMatch, length)

With that in place within our Watcher Expression, we can now check and uncheck boxes, have our Multi-line Edit Box update accordingly, and not have any trailing punctuation.

Here it is all put together (again, I would recommend placing utility functions inside Function Libraries so as not to clutter up your form's Function View - and for re-use purposes):

/* Watcher Expression to update Multi-line Edit Box */ { global punctuation = "," + HRET

global endOfString = size(DOCUMENT.EDITBOX)
global PUNCTUATION_OFFSET = endOfString - size(punctuation)
global punctuationFirstChar = punctuation[1]
global startOfMatch = match(DOCUMENT.EDITBOX, PUNCTUATION_OFFSET, punctuationFirstChar)
global length = endOfString - startOfMatch

/* Remove trailing punctuation */
DOCUMENT.EDITBOX = remove(DOCUMENT.EDITBOX, startOfMatch, length)
}

{fn StringBuilder(stringArray)
{
local finishedString = ""
local stringArrayLength = size(stringArray)
local currentIndex

return finishedString
}}

{fn NotNullOrEmpty(obj)
{
return (obj <> Null AND obj <> "")
}

Caleb Bergman
Systems Analyst
Valley Medical Center, PLLC

Posted : October 16, 2014 7:02 am

jjordet

(@jjordet)

Posts: 545

Honorable Member

I would call this function:
{fn Combine()
{
local nargs = GETNARGS()
local delim
local result = ""
local index
local arg

if nargs>0 then
delim = GETARG(1)
for index = 2, index <= nargs, index = index + 1 do
arg = GETARG(index)
if arg"" then
if result"" then
result = result + STR(delim) + STR(arg)
else
result = STR(arg)
endif
endif
endfor
endif
return STR(result)
}
}

MLEF = Combine(". ", CHECK1, CHECK2, etc.)

Posted : October 17, 2014 3:15 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