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

Can mulitple items such as check boxes document like a narrative?

Trading Post

Last Post by Anonymous 1 second ago

15 Posts

3 Users

0 Reactions

90 Views

RSS

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Topic starter

I'm making a questionnaire form and instead of these multiple checkboxes with sentence like statements documenting top to bottom I believe there is an easier way to make them document left to right with commons than going to one translations area of a checkbox and doing something like document.whatever + "," + document.whatever2 + "," + and so on. I'm thinking theres a functions that can be built in the fn pane to accomplish this quicker, i'm just not sure how.

Any help would be great, thanks in advanced.

Posted : December 3, 2013 4:05 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

These will probably be useful for you -

/*Count the number of arguments present and creates a comma list*/
{fn fnCommaCombine(){

local rslt = ""

for i = 1, i <= getnargs(), i = i + 1 do
rslt = fncombineutility(rslt,getarg(i))
endfor

return rslt
}}

/*used by fnCommaCombine*/
{fn fnCombineutility(one,two){

local combinestr

if (one <> "") and (two <> "") then
  combinestr = one + ", " + two
  return combinestr
else
  combinestr = one + two
  return combinestr
endif
}}

{fn ListToAnd(list){

if (list <> "") then

  local andarray = ""
  andarray = getfield(list,",","")

  if size(andarray)>2 then
   set(andarray,size(andarray)," and" + andarray[size(andarray)])
  else if size(list)>1 then
   return replacestr(str(andarray),","," and")
  else return str(list) endif endif

else return "" endif

return str(andarray)
}}

You can create your text like this -

{ListToAnd(fnCommaCombine(document.var1,document.var2))}}

for as many variables as you want

Posted : December 3, 2013 4:36 am

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Topic starter

Thank! Very useful

Posted : December 3, 2013 6:19 am

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Topic starter

Can this be used with single answer radio buttons?

Also where do I place {ListToAnd(fnCommaCombine(document.var1,document.var2))}} when theres multiple check boxes and edit fields.

Posted : December 3, 2013 11:10 pm

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

Yes it works for any combination of form fields. Basically, the first part (fncommacombine() part) will create a comma list (eg. item1, item2, item3) and the second one adds the word "and" if and where it is needed to make it grammatically correct (eg. item1, item2, and item3)

Posted : December 4, 2013 12:48 am

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Topic starter

Do I call the fn form the text translation of the form field?

Posted : December 4, 2013 1:27 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

The functions go in the code panel, the part you quoted in post 4 would go in the text translation box

Posted : December 4, 2013 1:49 am

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Topic starter

Thanks once again!

Posted : December 4, 2013 3:31 am

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Topic starter

Is it possible to change the document font size to 11?

Posted : December 4, 2013 4:51 am

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

I think you need to change it in eacxh variable, I dont know if there is a way to do it for a document or form.

Posted : December 4, 2013 5:53 am

hyousef

(@hyousef)

Posts: 9

Active Member

Hello All,

I do not know if this has been done before, but I am facing a challenge
where instead of doing the test translation directly into the office note
chart, the doctors wanted it (translation) to appear first in a multi-edit field
on the same form. Then they want to assign that the translation to an obs term,
so they can bring it in next time.

I can see that the code above will help me assigning multiple values from
different controls on the form.

Any ideas will help.

Thanks

Husam Y.

Posted : January 31, 2014 3:58 am

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Topic starter

{OBSNOW("WhateverYourObsIs", ListBoxResult(DOCUMENT.LISTBOX,DOCUMENT.LISTBOX2,DOCUMENT.LISTBOX3,DOCUMENT.LISTBOX4))}

{fn ListBoxResult(stra,strb,strc,strd){
   local whlstr=""
   if (size(stra) > 0) then
    whlstr = stra
   endif

   if (size(strb) > 0) and whlstr <> ""
   then whlstr = whlstr + ", " + strb
    else if (size(strb) > 0) and whlstr == ""
    then whlstr = strb
   endif
    endif

   if (size(strc) > 0) and whlstr <> ""
   then whlstr = whlstr + ", " + strc
    else if (size(strc) > 0) and whlstr == ""
    then whlstr = strc
   endif
    endif

   if (size(strd) > 0) and whlstr <> ""
   then whlstr = whlstr + ", " + strd
    else if (size(strd) > 0) and whlstr == ""
    then whlstr = strd
   endif
    endif

return whlstr

}}

//**use this in the translation of the first item**//

{fn ListBoxTranslation8(stra,strb,strc,strd){
local whlstr = ListBoxResult8(stra,strb,strc,strd)
return cfmt(whlstr, ",1", + "
", ",1", "
", ",1")
}}

Then tie your Edit field to "WhateverYourObsIs"

Posted : January 31, 2014 4:19 am

hyousef

(@hyousef)

Posts: 9

Active Member

Thank you very much, I will try this code.

Posted : January 31, 2014 4:50 am

Adam Daniel

(@adaniel)

Posts: 524

Prominent Member

Topic starter

If it doesnt work check to see if listboxtranslation has the 8 behind it. I took it off in some places but missed a few so here is the exact code i use:

{OBSNOW("Plan", ListBoxResult8(DOCUMENT.LISTBOX,DOCUMENT.LISTBOX2,DOCUMENT.LISTBOX3,DOCUMENT.LISTBOX4))}

{fn ListBoxResult8(stra,strb,strc,strd){
   local whlstr=""
   if (size(stra) > 0) then
    whlstr = stra
   endif

   if (size(strb) > 0) and whlstr <> ""
   then whlstr = whlstr + ", " + strb
    else if (size(strb) > 0) and whlstr == ""
    then whlstr = strb
   endif
    endif

   if (size(strc) > 0) and whlstr <> ""
   then whlstr = whlstr + ", " + strc
    else if (size(strc) > 0) and whlstr == ""
    then whlstr = strc
   endif
    endif

   if (size(strd) > 0) and whlstr <> ""
   then whlstr = whlstr + ", " + strd
    else if (size(strd) > 0) and whlstr == ""
    then whlstr = strd
   endif
    endif

return whlstr

}}

{fn ListBoxTranslation8(stra,strb,strc,strd){
local whlstr = ListBoxResult8(stra,strb,strc,strd)
return cfmt(whlstr, ",1", + "
", ",1", "
", ",1")
}}

Posted : January 31, 2014 5:04 am

hyousef

(@hyousef)

Posts: 9

Active Member

Thank you very much Adam

Posted : January 31, 2014 5:14 am

24 Forums
9,940 Topics
39.9 K Posts
4 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