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

Immunization Patient Letter

MEL, SQL, Oracle

Last Post by Anonymous 1 second ago

4 Posts

2 Users

0 Reactions

62 Views

RSS

mgunst

(@mgunst)

Posts: 5

Active Member

Topic starter

Needs help creating a letter for patients who have received the flu shot, with (last) date lot#, etc. We are finding employers are requiring this information ( why, I don't know), proof that their employee had the flu shot.

I have this, but it just pulls a list and date...

{global hold = getfield(IMMUN_GETLIST("Influenza", "all"), "|", "") global temp global rslt = "" for i = 1, i <= size(hold), i = i + 1 do temp = getfield(hold[i], "^", "") if (rslt <> "") then rslt = rslt + rtntype endif rslt = rslt + temp[3] + " Vaccine" + " - " + temp[30] + if temp[18] <> "" then " - " else "" endif + temp[18] + " " + temp [19] + " - " + if temp[7] == "Y" then "was given" else if temp[7] == "N" then "declined" else if temp[7] == "U" then "Undetermined" else "" endif endif endif + if temp[8] <> "" then " - " else "" endif + temp[8] + hret endfor rslt}

Posted : December 5, 2019 2:22 am

heggea

(@heggea)

Posts: 52

Trusted Member

If you look on the help desk you will see where the above numbers come in: [3] = immunization group name, [30] = date given, etc. Since you want the lot number and I assume the manufacturer you will also want to add in [24], lot #[26] exp date [27] and maybe even administered by [29]

Try this code. You might need to clean it up a bit since the return looks a little sloppy but it will at least give you the results. (I would change the - to : personally).
{global hold = getfield(IMMUN_GETLIST("Influenza", "all"), "|", "") global temp global rslt = "" for i = 1, i <= size(hold), i = i + 1 do temp = getfield(hold[i], "^", "") if (rslt <> "") then rslt = rslt + rtntype endif rslt = rslt + temp[3] + " Vaccine" + " - " + temp[30] + if temp[18] <> "" then " - " else "" endif + temp[18] + " " + temp [19] + if temp[24] <> "" then " Manufacturer- " else "" endif + temp[24] + " " + if temp[26] <> "" then " exp date- " else "" endif + temp[26] + " " + if temp[29] <> "" then " given by- " else "" endif + temp[26] + " " + " - " + if temp[7] == "Y" then "was given" else if temp[7] == "N" then "declined" else if temp[7] == "U" then "Undetermined" else "" endif endif endif + if temp[8] <> "" then " - " else "" endif + temp[8] + hret endfor rslt}

-Andria

Posted : December 5, 2019 4:44 am

heggea

(@heggea)

Posts: 52

Trusted Member

Sorry I messed up the first code a bit. This might work better. Check for errors of course:

{global hold = getfield(IMMUN_GETLIST("Influenza", "all"), "|", "") global temp global rslt = "" for i = 1, i <= size(hold), i = i + 1 do temp = getfield(hold[i], "^", "") if (rslt <> "") then rslt = rslt + rtntype endif rslt = rslt + temp[3] + " Vaccine" + " - " + temp[30] + if temp[18] <> "" then " - " else "" endif + temp[18] + " " + temp [19] + if temp[24] <> "" then " Manufacturer: " else "" endif + temp[24] + " " + if temp[26] <> "" then " Lot #: " else "" endif + temp[26] + " " + if temp[27] <> "" then " Exp Date: " else "" endif + temp[27] + " " + if temp[29] <> "" then " Given by: " else "" endif + temp[29] + " " + if temp[7] == "Y" then "" else if temp[7] == "N" then "declined" else if temp[7] == "U" then "Undetermined" else "" endif endif endif + if temp[8] <> "" then " - " else "" endif + temp[8] + hret endfor rslt}

-Andria

Posted : December 5, 2019 4:54 am

mgunst

(@mgunst)

Posts: 5

Active Member

Topic starter

Thanks Andria!
Still learning

Mary

Posted : December 5, 2019 5:02 am

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