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 List

CPS, C-EMR, PM

Last Post by Anonymous 1 second ago

3 Posts

2 Users

0 Reactions

105 Views

RSS

gtr9675

(@gtr9675)

Posts: 34

Trusted Member

Topic starter

I've been working on a form to help chart prep. In one of the sections i am pulling immunizations and recently it has stopped working. Below is the code I'm using. If anyone has been more successful in pulling a list of immunizations into a letter please let me know and thank you.

{ procs = ""
immunList = IMMUN_GETLIST()
immunListArray = getfield(immunList,"|","|")
if size(immunListArray) > 0 then
for i=1, i<=size(immunListArray), i=i+1 do
immunComponents = getfield(immunListArray[i],"^","")
global pos = match(immunComponents[30], 5, " ")
global tmpstr = ", Not Given - "
if immunComponents[8] == "" then
tmpstr = ", Not Given"
endif
if immunComponents[6] > 0 then
if immunComponents[7] == "N" then
if pos > 0 then
procs = procs + toupper(immunComponents[3]) + ", Series " + immunComponents[6] + tmpstr + immunComponents[8] + ", " + sub(immunComponents[30], 1, pos-1) + "\r\n"
else
procs = procs + toupper(immunComponents[3]) + ", Series " + immunComponents[6] + tmpstr + immunComponents[8] + ", " + immunComponents[30] + "\r\n"
endif
else
if pos > 0 then
procs = procs + toupper(immunComponents[3]) + ", Series " + immunComponents[6] + ", " + sub(immunComponents[30], 1, pos-1) + "\r\n"
else
procs = procs + toupper(immunComponents[3]) + ", Series " + immunComponents[6] + ", " + immunComponents[30] + "\r\n"
endif
endif
else
if immunComponents[7] == "N" then
if pos > 0 then
procs = procs + toupper(immunComponents[3]) + tmpstr + immunComponents[8] + ", " + sub(immunComponents[30], 1, pos-1) + "\r\n"
else
procs = procs + toupper(immunComponents[3]) + tmpstr + immunComponents[8] + ", " + immunComponents[30] + "\r\n"
endif
else
if pos > 0 then
procs = procs + toupper(immunComponents[3]) + ", " + sub(immunComponents[30], 1, pos-1) + "\r\n"
else
procs = procs + toupper(immunComponents[3]) + ", " + immunComponents[30] + "\r\n"
endif
endif
endif
endfor

immunListArray2 = getfield(procs,"\r\n","\r\n")
sort(immunListArray2, TRUE)
procs = ""
for i=1, i<=size(immunListArray2), i=i+1 do
procs = procs + immunListArray2[i] + "\r\n"
endfor
procs
else
procs = ""
global obsstr =
GET_FLOWSHEET_VALUES_PRIOR('Enterprise\Printing\Chart_Summary\Immunizations')
if size(obsstr) > 0 then
procs = "(Immunizations from observation terms) \r\n"
procs = procs + obsstr
endif
procs
endif }

Posted : October 6, 2020 3:15 am

joeg1962

(@joeg1962)

Posts: 843

Noble Member

I have something built into one of my VFE form to display all immunizations. The area calls a function. It is only displaying fields 3, 4 and 30 that are returned from the function. Perhaps this will help you see a different approach.

(Sorry, do not have time to digest the sample coding you provided.)

{!fn fnTextTransImmunHx() {

local hold = getfield(IMMUN_GETLIST("", "all"), "|", "")
local 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] + if temp[4] <> "" then " - " else "" endif + temp[4] + " on " + temp[30] + HRET

endfor

return rslt
}}

Posted : October 7, 2020 5:54 am

joeg1962

(@joeg1962)

Posts: 843

Noble Member

Actually, played with it a bit so that the following I made into a quicktext .immlist and have the following programming:

{local imma, temp
global rslt = ""
imma = getfield(IMMUN_GETLIST("", "all"), "|", "")
rslt = rslt + "Immunization Listing " + size(imma) + " entries" + HRET
for i = 1, i <= size(imma), i = i + 1 do
temp = getfield(imma[i], "^", "")
rslt = rslt + temp[3] + if temp[4] <> "" then " - " else "" endif + temp[4] + " on " + temp[30] + HRET

endfor

rslt
}

creating:

Immunization Listing 19 entries
Pneumococcal PPSV23 - PNEUMOVAX on 6/19/2014 11:25 AM
Pneumococcal PPSV23 - PNEUMOVAX on 9/29/2014 9:44 AM
Human Papillomavirus - HPV #3 on 6/19/2014 11:25 AM
Influenza - FLU VAX on 6/19/2014 1:08 PM
Influenza - FLU VAX on 8/20/2014 12:25 PM
Influenza - FLU VAX on 9/29/2014 9:44 AM
DTaP - Diphtheria-Tetanus Toxoids DT Intramuscular Suspension 25-5 LFU/0.5ML on 6/16/2015 12:14 PM
BCG - BCG Vaccine Injection Injectable on 6/9/2005 12:00 AM
Human Papillomavirus - Gardasil Intramuscular Suspension on 6/16/2015 1:45 PM
Influenza - Flu Vax on 12/25/2015 12:00 AM
Influenza - Flu Vax on 12/25/2015 12:00 AM
Influenza - Fluzone High-Dose Intramuscular Suspension on 1/26/2016 4:04 PM
DTaP on 2/9/2016 10:33 AM
MMR - Unspecified Formulation on 1/2/2014 12:00 AM
Influenza - Unspecified Formulation on 12/31/2015 12:00 AM
Influenza - Flu Vax on 2/1/2016 12:00 AM
PneumoPCV on 9/2/2019 12:00 AM
Influenza - Flu Vax on 10/13/2019 12:00 AM
Influenza - Afluria Intramuscular Suspension on 11/15/2019 8:49 AM

Posted : October 7, 2020 6:25 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