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

Prior Appointment List by Doctor

MEL, SQL, Oracle

Last Post by Anonymous 1 second ago

4 Posts

3 Users

0 Reactions

70 Views

RSS

gruhlin

(@gruhlin)

Posts: 72

Estimable Member

Topic starter

I need some help with trying to figure out how to display a list of all prior appointments with a particular doctor within a VFE form. Any Ideas?

Posted : July 15, 2015 8:29 am

chaddix

(@chaddix)

Posts: 177

Estimable Member

Assuming that past appointments all have the same appointment status, you should be able to use the function APPTS_BY_STATUS to get a delimited string (HRET is the delimiter). You can take this string and convert into an array to run through a loop to get what you're looking for.

Something like this (warning: untested) should get you close:

fn getVisitHX() { local retStr = "" local appt1 = APPTS_BY_STATUS("Checked Out", "FULL")


if appt1  "" then

	appt1 = replacestr(appt1, HRET, ";")
	tmp2 = getfield(appt1, ";", "")

	for x = 1, x  0 then

			tmp3 = getfield(tmp2[x], ",", "")

			if DURATIONDAYS(tmp3[1], str(._TODAYSDATE)) < 0 then

				if retStr == "" then

					retStr = tmp3[1]

				else

					retStr = retStr + HRET + tmp3[1]

				endif

			endif

		endif

	endfor

endif
if retStr == "" then retStr = "No Visit HX" endif

return retStr }

Posted : July 16, 2015 4:40 am

ken.takenaka

(@ken-takenaka)

Posts: 212

Reputable Member

alternatively, you could also use a comma delimited list. Off of the top of my head

fn getVisitHx(var1)
{
local ApptArray = getfield(appts_by_status("Arrived","FULL),HRET,"")
count = 0

for count = 1, count 0 then result = result + "The last appointment was on " + ApptSubarray[1] + " at " + ApptSubarray[2] + " with " + ApptSubarray[6] + HRET
else ""
endif
endfor
}

var1 is the name of the provider. You can call the function from a data display, ie {getVisitHx(Jon Smith MD)}

Posted : July 17, 2015 5:22 am

ken.takenaka

(@ken-takenaka)

Posts: 212

Reputable Member

for some reason it strips part of the text. count = 1, count "is less than or equal to" size(ApptArray), count = count + 1
do
ApptSubarray = getfield(ApptArray[count],",","")
if match(ApptSubarray,var1) > 0 then
result = ....

Posted : July 17, 2015 5:24 am

Share:

24 Forums
9,940 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