SELECT Event.Event_ID, Event.EventSub_ID, Event.Event_Date, patient.Last_Name_M0040, Employee.Employee_ID, Employee.Last_Name, EventSubjects.EventSub_ID, EventSubjects.Subject, Event.Resolved FROM #Request.prefix_db_agency#.Event,#Request.prefix_db_lookup#.Employee, #Request.prefix_db_agency#.patient, #Request.prefix_db_agency#.EventSubjects WHERE Event.Agency_ID = #session.AgencyID# And Event.Employee_ID = Employee.Employee_ID And Event.Patient_ID = patient.Patient_ID And Event.EventSub_ID = EventSubjects.EventSub_ID And Event.EventSub_ID = #arguments.eventSubject# And Event.Patient_ID = #arguments.patient# And Event.Employee_ID = #arguments.employee# And Event.Resolved = '#arguments.status#' AND Event_Date >= "#dateformat(ParseDatetime(arguments.fromDate),'YYYY-MM-DD')#" AND Event_Date <= "#dateformat(ParseDatetime(arguments.toDate),'YYYY-MM-DD')#" ORDER BY #arguments.orderby# DESC SELECT Employee_ID, First_Name, Last_Name FROM #Request.prefix_db_lookup#.Employee WHERE Agency_ID = #session.AgencyID# AND Status = 'active' AND EmployeeType != 'Physician' and Employee_ID = #arguments.employee# ORDER BY Last_Name SELECT Patient_ID, Last_Name_M0040, First_Name_M0040 FROM #Request.prefix_db_agency#.patient WHERE Agency_ID = #session.AgencyID# AND Status = 'active' and Patient_ID = #arguments.patient# ORDER BY Last_Name_M0040 SELECT EventSub_ID, Subject FROM #Request.prefix_db_agency#.EventSubjects WHERE Agency_ID = #session.AgencyID# and EventSub_ID = #arguments.eventSubject# ORDER BY Subject MyDoc = XmlNew(); MyDoc.xmlRoot = XmlElemNew(MyDoc,"MyRoot"); MyDoc.MyRoot.XmlChildren[1] = XmlElemNew(MyDoc,"orderBy"); MyDoc.MyRoot.XmlChildren[1].XmlText = "#result.orderBy#"; MyDoc.MyRoot.XmlChildren[2] = XmlElemNew(MyDoc,"numberOfRecordsOnPage"); MyDoc.MyRoot.XmlChildren[2].XmlText = "#result.numberOfRecordsOnPage#"; MyDoc.MyRoot.XmlChildren[3] = XmlElemNew(MyDoc,"numberOfPages"); MyDoc.MyRoot.XmlChildren[3].XmlText = "#result.numberOfPages#"; MyDoc.MyRoot.XmlChildren[4] = XmlElemNew(MyDoc,"from"); MyDoc.MyRoot.XmlChildren[4].XmlText = "#result.from#"; MyDoc.MyRoot.XmlChildren[5] = XmlElemNew(MyDoc,"to"); MyDoc.MyRoot.XmlChildren[5].XmlText = "#result.to#"; MyDoc.MyRoot.XmlChildren[6] = XmlElemNew(MyDoc,"status"); MyDoc.MyRoot.XmlChildren[6].XmlText = "#result.status#"; MyDoc.MyRoot.XmlChildren[7] = XmlElemNew(MyDoc,"employee"); MyDoc.MyRoot.XmlChildren[7].XmlText = "#result.employeeName#"; MyDoc.MyRoot.XmlChildren[8] = XmlElemNew(MyDoc,"subject"); MyDoc.MyRoot.XmlChildren[8].XmlText = "#result.subjectName#"; MyDoc.MyRoot.XmlChildren[9] = XmlElemNew(MyDoc,"patient"); MyDoc.MyRoot.XmlChildren[9].XmlText = "#result.patientName#"; MyDoc.MyRoot.XmlChildren[10] = XmlElemNew(MyDoc,"fromDate"); MyDoc.MyRoot.XmlChildren[10].XmlText = "#arguments.fromDate#"; MyDoc.MyRoot.XmlChildren[11] = XmlElemNew(MyDoc,"toDate"); MyDoc.MyRoot.XmlChildren[11].XmlText = "#arguments.toDate#"; MyDoc.MyRoot.XmlChildren[12] = XmlElemNew(MyDoc,"recordsToGoBack"); MyDoc.MyRoot.recordsToGoBack.XmlChildren[i] = XmlElemNew(MyDoc,"data"); MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[1] = XmlElemNew(MyDoc,"field1"); MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[1].XmlText = "#DateFormat(Event_Date,"mm/dd/yyyy")#"; MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[2] = XmlElemNew(MyDoc,"field2"); MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[2].XmlText = "#Last_Name_M0040#"; MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[3] = XmlElemNew(MyDoc,"field3"); MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[3].XmlText = "#Last_Name#"; MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[4] = XmlElemNew(MyDoc,"field4"); MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[4].XmlText = "#Subject#"; MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[5] = XmlElemNew(MyDoc,"field5"); if (#Resolved# eq 'No') { MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[5].XmlText = 'Unresolved'; } else { MyDoc.MyRoot.recordsToGoBack.XmlChildren[i].XmlChildren[5].XmlText = 'Resolved'; } i = i + 1;