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

Next Appointment Code

Page 3 / 4 Prev Next

Trading Post

Last Post by Anonymous 1 second ago

46 Posts

13 Users

0 Reactions

380 Views

RSS

[email protected]

(@talontlcdoctors-com)

Posts: 86

Estimable Member

I ran a Mel Trace on your function after placing it in my userlib and calling from a form. I see the following error in the trace log:

03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] >{!SMRMC_APPT_ALL_FUTURE()}
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>call SMRMC_APPT_ALL_FUTURE()
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>I = 0
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>0
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>RESULT = ""
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>""
03/23/2013 12:26:07.645 INFO Process Id #5112 Thread Id #1 [MelTrace] execute>call GETROWCOUNT("_MELCurPatientAppt")03/23/2013 12:26:07.645 INFO Process Id #5112 Thread Id #1 [MelTrace] results>7
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>J = 7
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>7
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>7 == 1
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>FALSE
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>if FALSE
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>FALSE
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>7 > 1
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>TRUE
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>if TRUE
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>TRUE
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>0 < 7
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>TRUE
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>while TRUE
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>TRUE
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>0 + 1
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>1
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>I = 1
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>1
03/23/2013 12:26:07.645 INFO Process Id #5112 Thread Id #1 [MelTrace] execute>call GETROW("_MELCurPatientAppt", 1, "ApptDate", "ApptTime", "Appttype", "Booklist", "ApptStatus")03/23/2013 12:26:07.645 INFO Process Id #5112 Thread Id #1 [MelTrace] results>NULL
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>A = NULL
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>NULL
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>NULL[1]
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>NULL
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>call VAL(NULL)
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>NULL
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>NULL >= 03/23/2013
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>FALSE
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>NULL[5]
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>NULL
03/23/2013 12:26:07.645 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>call VAL(NULL)
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>NULL
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>NULL == 0
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>TRUE
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>FALSE AND TRUE
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>FALSE
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>if FALSE
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>FALSE
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>1 < 7
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>TRUE
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>while TRUE
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>TRUE
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>1 + 1
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>2
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] execute>I = 2
03/23/2013 12:26:07.646 INFO  Process Id #5112 Thread Id #1 [MelTrace] results>2

The same NULL error repeats out for each of the loops (this patient has 7 appointments in their history). Do you notice that the GETROWCOUNT works, however the GETROW returns NULL?

Again, I am working with CPS 10 so that may be the issue, but I'm not sure. I can't find any documentation on GETROW to fiddle with it. I'd really like to see what is contained in_MELCurPatientAppt. Do you know any hooks that might work?

Any ideas why GETROW is returning NULL? (thanks so much!!!)

Posted : March 23, 2013 5:33 am

Stacey LaGrange

(@slagrang)

Posts: 185

Reputable Member

Topic starter

We are using EMR 9.5 do you have this line in your mellib.txt file like we do?:

global _MELCurPatientAppt = _PatientAppointment

Maybe you could also try manually typing the sections that reference getrow.

We don't have any documention in help about getrow either, just getfield.

Posted : March 24, 2013 9:55 pm

[email protected]

(@talontlcdoctors-com)

Posts: 86

Estimable Member

Stacey LaGrange said:

We are using EMR 9.5 do you have this line in your mellib.txt file like we do?:

global _MELCurPatientAppt = _PatientAppointment

Maybe you could also try manually typing the sections that reference getrow.

We don't have any documention in help about getrow either, just getfield.

Yes, my mellib.txt has "global _MELCurPatientAppt = _PatientAppointment" in it. What do you mean by manually typing those sections? BTW thanks for all the help so far!

Has anyone had any success with any function/forms using _MELCurPatientAppt running CPS 10? jjordet, what version are you running on?

Posted : March 25, 2013 2:20 am

jjordet

(@jjordet)

Posts: 545

Honorable Member

sorry...EMR 9.5

Posted : March 25, 2013 2:23 am

Stacey LaGrange

(@slagrang)

Posts: 185

Reputable Member

Topic starter

I meant that sometimes when you copy and paste code it doesn't work, even if you paste it in notepad first. I have had issues that didn't make sense and then after I did this it magically worked.

Posted : March 25, 2013 2:33 am

[email protected]

(@talontlcdoctors-com)

Posts: 86

Estimable Member

Stacey LaGrange said:

I meant that sometimes when you copy and paste code it doesn't work, even if you paste it in notepad first. I have had issues that didn't make sense and then after I did this it magically worked.

I see. Okay so I painstakingly retyped your function, Stacey, and ran a trace as I loaded the form. Again, same result. GetRowCount returns the correct number of rows (appointments) that this patient has, however GetRow always returns NULL.

I wonder what happened to GetRow between CPS 9.5 and 10?

Game over?

Posted : March 25, 2013 11:19 am

Stacey LaGrange

(@slagrang)

Posts: 185

Reputable Member

Topic starter

Oh no, that is too bad. Just one more thing, you have the function below in your usrlib.txt file (and there is only one copy of this file on your PC) and then you tried using {SMRMC_APPT_ALL_FUTURE()} in a letter or patient banner right? If so, I would say it probably is your version and I can let you know what happens when we upgrade someday.

//APPT (ALL FUTURE) FUNCTION
fn SMRMC_APPT_ALL_FUTURE() {
//lists all future appts with a comma between fields a hret between records
//use nested getfields to turn in to a 2D array if you want to pick elements
//DN--3-31-04 modified from mellib stock function
local a, b,c, loc, atype, book, i = 0
local result=''
local j = getRowCount('_MELCurPatientAppt')
    // Loop thru patients appointments
if j == 1 then a = getRow('_MELCurPatientAppt',0, 'ApptDate',
                      'ApptTime','Appttype','Booklist','ApptStatus')
// Find the next appointmnet
           if val(a[1]) >= ._TODAYSDATE and val(a[5]) = 0 then
               // Get the type of appointment
               atype = find('_MELApptDef', 'ApptType', 'ID', a[3])
               // Get the location of care from the first book
               b = getfield(a[4],',',' :')
               loc = find('_MELBook', 'LocationAbbrevName', 'ID',b[1])
        //Get the Book Name
        c = getfield(a[4],',',' :')
               book = find('_MELBook', 'Name', 'ID',c[1])
        // Build the result
            result = a[1] + ',' + appttime(a[2]) + ',' + atype + ',' + book
//edit previous line if you want to return only part or use different
delimiters etc
//note this first part is if theres only 1 appointment
endif
else if j > 1 then
while i < j do
         i = i+1
        a = getRow('_MELCurPatientAppt',i,
'ApptDate','ApptTime','Appttype','Booklist','ApptStatus')
           // Find the next appointmnet
           if val(a[1]) >= ._TODAYSDATE and val(a[5]) = 0 then
               // Get the type of appointment
               atype = find('_MELApptDef', 'ApptType', 'ID', a[3])
               // Get the location of care from the first book
               b = getfield(a[4],',',' :')
               loc = find('_MELBook', 'LocationAbbrevName', 'ID',b[1])
        //Get the Book Name
        c = getfield(a[4],',',' :')
               book = find('_MELBook', 'Name', 'ID',c[1])
               // Build the result
               if result=="" then
            result = result + a[1] + ',' + appttime(a[2]) + ',' +
atype + ',' + book else result = result + hret + a[1] + ',' + appttime(a[2])
+ ',' + atype + ',' + book endif
//edit previous line if you want to return only part or use different
delimiters etc
//this part there are 2 or more appointments or rows
           endif
endwhile
endif
endif
result
}

Posted : March 25, 2013 9:13 pm

gibsonmi

(@gibsonmi)

Posts: 827

Prominent Member

I have a different version of this same function (that I borrowed from the CHUG community, I dont remember who but thanks!) on CPS 10 and it works fine. I have had trouble writing these in the past if you use a field that the function doesn't recognize it returned nothing for me, it is possible that one of those fields is in 9.5 and not 10, this is the getrow I am using -

local a = (getRow("_MELCurPatientAppt",iq,"AppointmentsId","ApptStart","ApptTypeId","FacilityId","DoctorID","ResourceId","Status","Canceled"))

I don't have the booklist field, if you want to try my tweaked version go ahead, it has filters for all previous, all future, all cancelled, and different return methods. Here it is -

{fn SEARCH_APPTS(returnMethod,type){
//Valid types are NEXT, PREV, and CANC

if (toUpper(returnMethod) <> "DELIMITED" AND toUpper(returnMethod) <> "LIST" AND toUpper(returnMethod) <> "COMMA" AND toUpper(returnMethod) <> "FORMATTEDLONG") then
// Default Return Method if no value passed edit this if you want to change the default
returnMethod = "LIST"
endif

// initialize local variables
local retVal = ""
local z = getRowCount("_MELCurPatientAppt")
// loop through rows in _MELCurPatientAppt data object

for iq=1, iq<=z, iq=iq+1 do
local a = (getRow("_MELCurPatientAppt",iq,"AppointmentsId","ApptStart","ApptTypeId","FacilityId","DoctorID","ResourceId","Status","Canceled"))
if (val(durationdays(datestamp(),a[2]))>0 and a[8]=="" and toupper(type) == "NEXT") or (val(durationdays(datestamp(),a[2]))<0 and a[8]=="" and toupper(type) = "PREV") or (a[8]<>"" and toupper(type) == "CANC") then
// Appointment type lookup in _MELApptType data object
  if (find("_MELApptType","Name","ApptTypeID",a[3]) <> "") then
   a[3] = find("_MELApptType","Name","ApptTypeID",a[3])
  endif
  // Facility lookup in _MELLocation data object
  if (find("_MELLocation","ListName","DoctorFacilityID",a[4]) <> "") then
   a[4] = find("_MELLocation","ListName","DoctorFacilityID",a[4])
  endif
  // Doctor lookup in _DoctorFacilityForPatAppt data object
  if (find("_DoctorFacilityForPatAppt","ListName","DoctorFacilityID",a[5]) <> "") then
   a[5] = find("_DoctorFacilityForPatAppt","ListName","DoctorFacilityID",a[5])
  endif
  // Resource lookup in _DoctorFacilityForPatAppt data object
  if (find("_DoctorFacilityForPatAppt","ListName","DoctorFacilityID",a[6]) <> "") then
   a[6] = find("_DoctorFacilityForPatAppt","ListName","DoctorFacilityID",a[6])
  endif
  // ApptStatus is actually a combination of two fields, Canceled or ApptStatus. If Canceled <> "" then write Canceled, else write contents of ApptStatus
  if (a[8] <> "") then
   a[7] = "Canceled"
  endif

  cond
  case toUpper(returnMethod) == "DELIMITED"
  // Don't add pipe before first element
   if (retVal <> "") then
    retVal = "|" + retVal
   endif
   retVal = str(a[2],"^",a[3],"^",a[4],"^",a[6]) + retVal
  case toUpper(returnMethod) == "LIST"
  // Don't add HRET before first element
   if (retVal <> "") then
    retVal = HRET + retVal
   endif
   retVal = str(a[2],", ",a[3],", ",a[4],", ",a[6]) + retVal
  case toUpper(returnMethod) == "COMMA"
  // Don't add comma before first element
   if (retVal <> "") then
    retVal = "," + retVal
   endif
   // Need to replace commas in elements with semicolon to prevent errors in comma separated list
   retVal = str(ReplaceStr(a[2], ",",";")," ",ReplaceStr(a[3], ",",";")," ",ReplaceStr(a[4], ",",";")," ",ReplaceStr(a[6], ",",";")) + retVal
  case toUpper(returnMethod) == "FORMATTEDLONG"
   // Don't add new lines before first element
   if (retVal <> "") then
    retVal = HRET + HRET + retVal
   endif
   // Need to replace commas in elements with semicolon to prevent errors in comma separated list
   retVal = str("ApptTime: ",ReplaceStr(a[2], ",",";"),HRET,"ApptType: ",ReplaceStr(a[3], ",",";"),HRET,"FacilityID: ",ReplaceStr(a[4], ",",";"),HRET,"ResourceID: ",ReplaceStr(a[6], ",",";")) + retVal
  endcond
endif
endfor

return retVal
}}

Posted : March 25, 2013 11:00 pm

JNordberg

(@jnordberg)

Posts: 61

Trusted Member

FYI (in case it helps)

When upgrading from 10.1.2 to 10.1.3 we found a problem with our appointment code when running in 10.1.3.

In testing 10.1.3, I found that I needed to change the parameter in our getRowCount() from '_MELCurPatientAppt' to '_PatientAppointments'. Also needed to make the same parameter change to any getRow code that used that object too.

In 10.1.2, the call, getRowCount('_MELCurPatientAppt'), returned the correct # of appts, but in 10.1.3 it returned -1.

Posted : March 25, 2013 11:37 pm

[email protected]

(@talontlcdoctors-com)

Posts: 86

Estimable Member

@gibsonmi that worked! You rock!

Thanks to everyone who's pitched in on this thread so far. You guys make this community awesome.

SO, apparently the _MELCurPatientAppt data object changed with CPS version 10. Does anyone know how/where to go to learn about these data objects and what arguments/calls can be passed to them? I'm wondering whoever wrote gibsonmi's function originally HOW they knew to pass in different GETROW arguments? I would really like to learn how to figure this stuff out...

Posted : March 28, 2013 2:31 pm

kwolfe

(@kwolfe)

Posts: 63

Trusted Member

For that you could take a look at the mel files in the CPS client folder. The mellib.txt contains some global definitions like

// The following Objects are ok for MEL to access

global _MELCurPatientAppt = _PatientAppointments

Then searching through the mldef files, I found _PatientAppointments in mldefs3.txt:

Object: _PatientAppointments Table: Appointments   Refresh: RBook
Property: Snapshot
    Property:   Prepare

Field: AppointmentsId     Type: ID     Hidden Key
Field: FacilityId   Type: Long
Field: ApptKind   Type: Long
Field: OwnerId    Type: Long
Field: EmrApptStart Type: DateTime
Field: ApptStart   Type: DateTime
Field: ApptStop   Type: DateTime
Field: Status    Type: String Length: 50
Field: Canceled   Type: Long
Field: PatientCheckIn Type: Long
Field: PriorAuthorizationNumber Type: String Length: 50
Field: WCCId    Type: Long
Field: Notes    Type: CLOB
Field: ApptStatusMId Type: Long
Field: DoctorId   Type: Long
Field: ResourceId   Type: Long
Field: Type    Type: String Length: 50
Field: PatientVisitId Type: Long
Field: TicketNumber Type: String Length: 20
Field: HideNewVisit Type: Short
Field: ApptTypeId   Type: Long
Field: ApptSetId   Type: Long
Field: ApptChainId   Type: Long
Field: RoomNo    Type: String Length: 30
Field: CasesId    Type: Long
Field: CompanyId   Type: Long
Field: ExternalApptId Type: String Length: 75
Field: DocCreate   Type: Short
Field: DocId    Type: Double
    Field: CreatedBy            Type: String
Filter: filter1, OwnerId = Patient.PatientProfileId Hidden
Variable: dateVar   Type: Date          Hidden
Filter: dateFilter, EmrApptStart >= dateVar Disable     Hidden
Filter: apptKindFilter, ApptKind = 1

Order: 'ApptStart'

Posted : March 29, 2013 1:10 am

[email protected]

(@talontlcdoctors-com)

Posts: 86

Estimable Member

@kwolfe Thanks!

I wouldn't have known to look in the mldef files. That's super helpful!

Posted : March 29, 2013 11:07 am

Crow

(@dustincrowell)

Posts: 104

Estimable Member

I would like to use this code in a button that will add the next appointment date to the patient instructions. I have this as a RUNPROCESS.

{IF APPT_NEXT() = "" then "No appointments" else global apptinfo = getfield (APPT_NEXT(),",","") apptinfo[1] + " for " + apptinfo[3] endif}

How do I make this fill in to the instructions multi-line edit field labeled DOCUMENT.AP_INST when the button is pressed?

Thank You

Posted : October 13, 2014 12:01 pm

ken.takenaka

(@ken-takenaka)

Posts: 212

Reputable Member

{IF APPT_NEXT() = "" then "No appointments" else global apptinfo = getfield (APPT_NEXT(),",","") apptinfo[1] + " for " + apptinfo[3]
return result

document.ap_inst = result
endif}

would that work?

Posted : April 22, 2015 5:17 am

dlhays

(@dlhays)

Posts: 5

Active Member

Does anyone have a version of this that works with CPS12? I have tried pasting some of the above into a History View but can't get it to work. Would like a function to display any future appointments.

Posted : June 4, 2015 10:38 am

Page 3 / 4 Prev Next

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