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

Dynamic Medication List

Trading Post

Last Post by Anonymous 12 years ago

2 Posts

2 Users

0 Reactions

83 Views

RSS

cliffstark

(@cliffstark)

Posts: 194

Reputable Member

Topic starter

Can someone tell me how to create a dynamic medication list? I have a form that uses a dynamic problem list and I tried to sort of copy that language but it doesn't work correctly. I just want the medication name.

I was able to get one function to work but it sort of brought in way too much like instructions, last refill date, person that refilled, etc.

Thanks for any help.

Posted : March 18, 2013 3:41 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Here's the code I use. I'm certain I didn't write this, so my apologies if it looks familiar to anyone who isn't being credited:

/*
Function to populate dynamic choice list of medications.
*/

!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], "^", "")

      /* Need to remove commas from medication name */
      lBuffer = tolower(MedArray[lCounter][1])
      lBuffer = set(lBuffer, 1, toupper(get(lBuffer, 1))) + " " + MedArray[lCounter][7]
      lBuffer = ReplaceStr(lBuffer, ",", ";")
      strFormattedList = strFormattedList + lBuffer + ","
   endfor

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

return (strFormattedList)
}

this is called as:

{fnMedList(MEDS_AFTER("delimited"))}

Posted : March 19, 2013 1:33 am

Share:

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