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

Allergies & Adverse Reactions

CPS, C-EMR, PM

Last Post by Anonymous 1 second ago

2 Posts

2 Users

0 Reactions

67 Views

RSS

relliott

(@relliott)

Posts: 145

Estimable Member

Topic starter

I am trying to add the following to a letter for patient Allergy List. I also want it to include the Reaction. Can anyone tell me what I am missing?

{ allList = all_active()
x = obsprev("nka")
if allList == "" and x == "T" then
nka_text()
else
all_active()
endif }

Thanks

Posted : June 17, 2015 11:52 am

kdevin

(@kdevin)

Posts: 75

Estimable Member

We have this function in our utllib.txt
{! fn dispAllergy(strList)
{
local lCounter
local strAllergyList
local nStart
local strBuf
local cr = numtoascii(13)
local strFormattedList = ""
strAllergyList = getfield(strList, "|", "")

for lCounter = 1, lCounter <= size(strAllergyList), lCounter = lCounter + 1 do
strAllergyList[lCounter] = getfield(strAllergyList[lCounter], "^",
"")
strFormattedList = strFormattedList

strBuf = strAllergyList[lCounter][1] + if strAllergyList[lCounter][5] "" then " - " + strAllergyList[lCounter][5] + HRET else "" endif

strFormattedList = strFormattedList + strBuf + cr
endfor

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

return "Allergies reviewed at this visit:" + HRET + strFormattedList
}
}

We call it like this (we use a quicktext)
{dispAllergy(ALL_AFTER("delimited"))}

Posted : June 17, 2015 12:01 pm

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