Notifications
Clear all
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
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
Topic starter
Thank! Very useful
Posted : December 3, 2013 6:19 am
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
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
Topic starter
Do I call the fn form the text translation of the form field?
Posted : December 4, 2013 1:27 am
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
Topic starter
Thanks once again!
Posted : December 4, 2013 3:31 am
Topic starter
Is it possible to change the document font size to 11?
Posted : December 4, 2013 4:51 am
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
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
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
Thank you very much, I will try this code.
Posted : January 31, 2014 4:50 am
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
Thank you very much Adam
Posted : January 31, 2014 5:14 am
