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

Appointments

Trading Post

Last Post by Anonymous 1 second ago

8 Posts

5 Users

0 Reactions

108 Views

RSS

Conda

(@crobinson)

Posts: 255

Reputable Member

Topic starter

I am having trouble getting the scheduled appt's to pull in. I can get all of the scheduled appt's to pull in but it pulls in everything listed as scheduled and I only want from today foward to pull in. Here is what I am using.

{

apptschd = APPTS_BY_STATUS("scheduled",["FULL"])

appts = ""

if apptschd = "<None>" then

else

appts = appts + apptschd

endif

tody = str(._todaysdate)

if appts <> "" then

apptslist

[]

= getfield(appts, "\n", "")

sz = size(apptslist)

list = ""

for i = 1, i <= sz, i = i + 1 do

dt = ""

dur = ""

appt = apptslist[i]

apptsize = size(appt)

if apptsize > 0 then

dt = sub(appt, 1, 10)

dur = durationdays(tody, dt)

if dur > 0 then

list = list + appt + "\n\r"

endif

endfor

if list <> "" then list else "No appointments scheduled." endif

else

"No appointments."

endif

}

Posted : January 21, 2013 2:24 am

justinbelcher

(@justinbelcher)

Posts: 130

Estimable Member

You have a lot of syntactical errors in there...

-Declare your variables before you use them like so:

local appts

-Use globally unique variable names if this is in a watcher function.

-Use double equals signs to test for equality in an IF statement:

if val1==val2 then ...

-Don't have a empty value between "then" and "else". Just invert your IF statement:

if apptschd<>"<None>" then

appts=apptschd

endif

-Don't use empty brackets when assigning an array to a variable. Just overwrite the variable:

apptslist=getfield(appts,"\n","")

-You probably don't need brackets around ["Full"] when you pass it to APPTS_BY_STATUS(...)

Posted : January 21, 2013 4:22 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Here is the function I use to pull in future appointments:

(I didn't write this from scratch; I took what someone else posted and tweaked it to meet my needs)

/*
Function to display details of future appointments.
*/

!fn APPT_DISPLAY() {
   local a, b, c, d, loc, atype, book, stat
   local i = 0
   local result=''
   local j = getRowCount('_MELCurPatientAppt')
   // Loop thru patients appointments
   while i < j do
       i = i+1
       a = getRow('_MELCurPatientAppt',i,'ApptDate', 'ApptTime',
'Appttype', 'Booklist', 'ApptStatus')
       // Find the next scheduled appointment
If val(a[1]) >= ._TODAYSDATE Then
       // Get the type of appointment
       atype = find('_MELApptDef', 'ApptType', 'ID', a[3])
       if atype == "" then
           atype = "UNKNOWN"
       endif
       // Get the location of care from the first book
       if a[4] == "" then
           loc = "UNKNOWN"
       else
           b = getfield(a[4],',',' :')
           loc = find('_MELBook', 'LocationAbbrevName', 'ID', b[1])
       endif
       //Get the Book Name
       if a[4] == "" then
           book = "UNKNOWN"
       else
           c = getfield(a[4],',',' :')
           book = find('_MELBook', 'Name', 'ID', c[1])
       endif
       //Get the Status 0 Scheduled, 1 No Show, 2 Cancelled, 3 Arrived
       d = a[5]
       cond
           case d == 0 stat = "Scheduled"
           case d == 1 stat = "No Show"
           case d == 2 stat = "Cancelled"
           case d == 3 stat = "Arrived"
       endcond
       // Build the result if status is 0 Scheduled or 3 Arrived
       if stat == "Scheduled" OR stat == "Arrived" then
               result = result + a[1] + " at " + appttime(a[2]) + " " + atype + " with " + book + HRET

       endif
       endif
   endwhile
   return result
}

Posted : January 21, 2013 11:46 pm

[email protected]

(@talontlcdoctors-com)

Posts: 86

Estimable Member

Jennifer Gardner said:

Here is the function I use to pull in future appointments:

(I didn't write this from scratch; I took what someone else posted and tweaked it to meet my needs)

/*
Function to display details of future appointments.
*/

!fn APPT_DISPLAY() {
   local a, b, c, d, loc, atype, book, stat
   local i = 0
   local result=''
   local j = getRowCount('_MELCurPatientAppt')
   // Loop thru patients appointments
   while i < j do
       i = i+1
       a = getRow('_MELCurPatientAppt',i,'ApptDate', 'ApptTime',
'Appttype', 'Booklist', 'ApptStatus')
       // Find the next scheduled appointment
If val(a[1]) >= ._TODAYSDATE Then
       // Get the type of appointment
       atype = find('_MELApptDef', 'ApptType', 'ID', a[3])
       if atype == "" then
           atype = "UNKNOWN"
       endif
       // Get the location of care from the first book
       if a[4] == "" then
           loc = "UNKNOWN"
       else
           b = getfield(a[4],',',' :')
           loc = find('_MELBook', 'LocationAbbrevName', 'ID', b[1])
       endif
       //Get the Book Name
       if a[4] == "" then
           book = "UNKNOWN"
       else
           c = getfield(a[4],',',' :')
           book = find('_MELBook', 'Name', 'ID', c[1])
       endif
       //Get the Status 0 Scheduled, 1 No Show, 2 Cancelled, 3 Arrived
       d = a[5]
       cond
           case d == 0 stat = "Scheduled"
           case d == 1 stat = "No Show"
           case d == 2 stat = "Cancelled"
           case d == 3 stat = "Arrived"
       endcond
       // Build the result if status is 0 Scheduled or 3 Arrived
       if stat == "Scheduled" OR stat == "Arrived" then
               result = result + a[1] + " at " + appttime(a[2]) + " " + atype + " with " + book + HRET

       endif
       endif
   endwhile
   return result
}

Hey Jennifer,

I've tried to work with your appt function without success. I've placed your function in a letter (wrapped in "{}" of coarse) and then called the function in the letter as such: "{APPT_DISPLAY()}" and I get back nothing. No errors, just blank space.

Any ideas? BTW I'm using CPS 10

Posted : March 10, 2013 6:30 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

I'm using EMR 9.6 - we're not on CPS. I'm not sure if that explains the difference. Also, I use the function in forms, but haven't tried it in a letter. Maybe someone else has other ideas?

Posted : March 10, 2013 9:45 am

[email protected]

(@talontlcdoctors-com)

Posts: 86

Estimable Member

Thanks, Jennifer.

I'll try your function in a form. Are you attaching it to a data display?

Posted : March 10, 2013 10:40 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

Yep. Good luck!

Posted : March 10, 2013 10:43 am

Anonymous

(@Anonymous)

Posts: 0

New Member Guest

if you need a "letter" to be able to use a function, the best place to place it is the usrlib. Then it will be usable in any MEL space.

Posted : March 11, 2013 3:58 am

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