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

Check Med List for Meds in multiple med classes

MEL, SQL, Oracle

Last Post by Anonymous 1 second ago

2 Posts

2 Users

0 Reactions

93 Views

RSS

rhigdon

(@rhigdon)

Posts: 25

Trusted Member

Topic starter

I am building a form and need to pull medications from the med list into a data display that are only in certain med classes. I can get it to work for one class, but need it to look for multiple classes. I found the follow code on here and am using it. What do I need to do to make it look for more than one class? I am fairly new to MEL and programming.

{fn GetMedsByClass(med_class, num, update) { local rets = "" local meds_array = getfield(MEDS_AFTER("delimited"), "|", "") for i = 1, i <= size(meds_array), i = i + 1 do local med_array = getfield(meds_array[i], "^", "") if (ok(med_array[4])) then if (med_array[4] <> "") then if (sub(med_array[4], 1, num) == med_class) then rets = rets + med_array[1] + HRET else continue endif else continue endif else continue endif endfor if (rets == "") then rets = "None" endif return rets }}{FMT("Antihypertensive Medications", "B,U,2") + HRET +FMT(GetMedsByClass("36", 2), "")}

Any help will be greatly appreciated!

Rebecca

[email protected]

Posted : August 16, 2016 11:13 am

DavidShower

(@davidshower)

Posts: 1255

Noble Member

I wrote this function to look for certain narcotics for an Oklahoma law - it looks for multiple GPI codes. It might help you get started:

fn ListPMPSubstances(strWhichMedList) { /* Parameters are 1 for MEDS_AFTER and 2 for MEDS_NEW MEDS_AFTER is used for OUT-Prob Med Allergy Review MEDS_NEW is used for CPOE A&P-CCC */ local i = 0 local curMedTotal = 0 local curMeds = "" local medType = "" local SchedDrugs = "" local strPMPMedList COND CASE strWhichMedList = "1" strPMPMedList = MEDS_AFTER("delimited") CASE strWhichMedList = "2" strPMPMedList = MEDS_NEW("delimited") ELSE return "" ENDCOND curMeds = getfield(strPMPMedList, "|","") if str(curMeds) <> "" then curMedTotal = size(curMeds) endif for i = 1, i <= curMedTotal, i = i+1 do curMeds[i] = getfield(curMeds[i],"^","") medType = curMeds[i][4] if (medType <> "") then if sub(medType,1,2) = "65" or sub(medType,1,6) = "571000" or sub(medType,1,6) = "721000" or sub(medType,1,7) = "7510002" or sub(medType,1,8) = "75990002" or sub(medType,1,8) = "75990003" or sub(medType,1,10) = "7599800230" then SchedDrugs = SchedDrugs + curMeds[i][1] + HRET else "" endif else "" endif endfor return SchedDrugs } }

Posted : August 17, 2016 3:21 pm

Share:

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