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

Adding numbers to a returned list

Trading Post

Last Post by Anonymous 1 second ago

3 Posts

2 Users

0 Reactions

94 Views

RSS

gsanchez

(@gsanchez)

Posts: 20

Eminent Member

Topic starter

I am using the following functions to return a list of problems.

{fn fnCommaCombine(){

local rslt = ""

for i = 1, i <= getnargs(), i = i + 1 do

rslt = fncombineutility(rslt,getarg(i))

endfor

return rslt

}}

{fn fnCombineutility(one,two){

if (one <> "") and (two <> "") then

return (one + "," + two)

else

return (one + two)

endif

}}

{document.assesslist=fncommacombine(DOCUMENT.cervical1,DOCUMENT.cervical2,DOCUMENT.thoracic1,document.thoracic2,

document.lumbar1,document.lumbar2,document.head1,document.head2,

document.postop1,document.misc1)}

In my translation, I am using the following to remove commas and add a return.

{CFMT(ReplaceStr(DOCUMENT.assesslist, ",",HRET), "I", "

", "", "

")}

This is working okay for us, but we would like to number the results on separate lines depending on how many problems are selected.

Any help would be appreciated.

Posted : September 30, 2014 5:20 am

blackmanb

(@blackmanb)

Posts: 268

Reputable Member

I am assuming that you only need the numbering to appear in the chart note.

Here is a function that you can call in your text translation to list the problems as numbered, one per line:
Define in MEL code area:

{fn fnNumberList(sPlist) {
// Insert "1.) 2.) 3.) ... etc" in front of each problem in sPlist
// Also, might as well insert HRET instead of commas
// Use this function when printing to chart note
local sAry = getfield( sPlist, ",","")
local i=0, imax=size(sAry)
local sNumList = ""
for i=1, i<=imax, i=i+1 do
sNumList = sNumList + (if sNumList<>"",HRET,"") + i + ".) " + sAry[i]
endfor
return sNumList
}}

DOCUMENT.assesslist TRANSLATION
{CFMT( fnNumberList(DOCUMENT.assesslist), "I", "

", "", "

")}

Does this do what you wanted ?

- Beverly

Posted : September 30, 2014 7:56 am

gsanchez

(@gsanchez)

Posts: 20

Eminent Member

Topic starter

Works perfectly. Thanks Beverly!

Posted : October 1, 2014 2:10 am

Share:

24 Forums
9,942 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