source: Scheduling/trunk/cs/bsdx0200GUISourceCode/CGDocument.cs@ 1049

Last change on this file since 1049 was 1038, checked in by Sam Habiel, 14 years ago

UCPatientAppts: Now uses LINQ. Mumps side fixes deal with other bugs.
calendarGrid: Fixes 1 day drawing bug showing yesterday's appointments
CGAVView: Cosmetic changes so far
CGDocument: Documentation change due to change in return values from Mumps.
File size: 31.1 KB
Line 
1using System;
2using System.Collections;
3using System.Data;
4using System.Data.OleDb;
5using System.Diagnostics;
6using System.Drawing;
7using System.Windows.Forms;
8using IndianHealthService.BMXNet;
9
10namespace IndianHealthService.ClinicalScheduling
11{
12 /// <summary>
13 /// Contains the array of appointments and availabily that make up the document class
14 /// </summary>
15 public class CGDocument : System.Object
16 {
17
18 public CGDocument()
19 {
20 m_appointments = new CGAppointments();
21 m_pAvArray = new ArrayList();
22 m_sResourcesArray = new ArrayList();
23 }
24
25 #region Member Variables
26 public int m_nColumnCount; //todo: this should point to the view's member for column count
27 public int m_nTimeUnits;
28 private string m_sDocName;
29 public ArrayList m_sResourcesArray; //keeps the resources
30 public ScheduleType m_ScheduleType;
31 private DateTime m_dSelectedDate; //Holds the user's selection from the dtpicker
32 private DateTime m_dStartDate; //Beginning date of document data
33 private DateTime m_dEndDate; //Ending date of document data
34 public CGAppointments m_appointments;
35 private ArrayList m_pAvArray;
36 private CGDocumentManager m_DocManager;
37 private DateTime m_dLastRefresh = DateTime.Now;
38
39 #endregion
40
41 #region Properties
42
43 /// <summary>
44 /// Returns the latest refresh time for this document
45 /// </summary>
46 public DateTime LastRefreshed
47 {
48 get
49 {
50 return m_dLastRefresh;
51 }
52 }
53
54 /// <summary>
55 /// The list of Resource names
56 /// </summary>
57 public ArrayList Resources
58 {
59 get
60 {
61 return this.m_sResourcesArray;
62 }
63 set
64 {
65 this.m_sResourcesArray = value;
66 }
67 }
68
69 /// <summary>
70 /// The array of CGAvailabilities that contains appt type and slots
71 /// </summary>
72 public ArrayList AvailabilityArray
73 {
74 get
75 {
76 return this.m_pAvArray;
77 }
78 }
79
80 public CGDocumentManager DocManager
81 {
82 get
83 {
84 return m_DocManager;
85 }
86 set
87 {
88 m_DocManager = value;
89 }
90 }
91
92 /// <summary>
93 /// Contains the hashtable of appointments
94 /// </summary>
95 public CGAppointments Appointments
96 {
97 get
98 {
99 return m_appointments;
100 }
101 }
102
103 /// <summary>
104 /// Holds the date selected by the user in CGView.dateTimePicker1
105 /// </summary>
106 public DateTime SelectedDate
107 {
108 get
109 {
110 return this.m_dSelectedDate;
111 }
112 set
113 {
114 this.m_dSelectedDate = value;
115 bool bRet = false;
116 if (m_sResourcesArray.Count == 1)
117 {
118 bRet = this.WeekNeedsRefresh(1, m_dSelectedDate, out this.m_dStartDate, out this.m_dEndDate);
119 }
120 else
121 {
122 this.m_dStartDate = m_dSelectedDate;
123 this.m_dEndDate = m_dSelectedDate;
124 this.m_dEndDate = this.m_dEndDate.AddHours(23);
125 this.m_dEndDate = this.m_dEndDate.AddMinutes(59);
126 this.m_dEndDate = this.m_dEndDate.AddSeconds(59);
127 }
128
129 bRet = RefreshSchedule();
130 }
131 }
132
133 /// <summary>
134 /// Contains the beginning date of the appointment document
135 /// </summary>
136 public DateTime StartDate
137 {
138 get
139 {
140 return this.m_dStartDate;
141 }
142 }
143
144 public string DocName
145 {
146 get
147 {
148 return this.m_sDocName;
149 }
150 set
151 {
152 this.m_sDocName = value;
153 }
154 }
155
156 #endregion
157
158 #region Methods
159
160 public void UpdateAllViews()
161 {
162 //iterate through all views and call update.
163 Hashtable h = CGDocumentManager.Current.Views;
164
165 CGDocument d;
166 foreach (CGView v in h.Keys)
167 {
168 d = (CGDocument) h[v];
169 if (d == this)
170 {
171 v.UpdateArrays();
172 }
173 }
174
175 }
176
177 /// <summary>
178 /// Update schedule based on info in RPMS
179 /// </summary>
180 private bool RefreshDaysSchedule()
181 {
182 try
183 {
184 string sPatientName;
185 string sPatientID;
186 DateTime dStart;
187 DateTime dEnd;
188 DateTime dCheckIn;
189 DateTime dAuxTime;
190 int nKeyID;
191 string sNote;
192 string sResource;
193 bool bNoShow = false;
194 string sNoShow = "0";
195 string sHRN = "";
196 int nAccessTypeID; //used in autorebook
197 string sWalkIn = "0";
198 bool bWalkIn;
199 CGAppointment pAppointment;
200 CGDocumentManager pApp = CGDocumentManager.Current;
201 DataTable rAppointmentSchedule;
202
203 //Nice to know that it gets set here!!!
204 m_dLastRefresh = DateTime.Now;
205
206 this.m_appointments.ClearAllAppointments();
207
208 // calls RPC to get appointments
209 rAppointmentSchedule = CGSchedLib.CreateAppointmentSchedule(m_DocManager, m_sResourcesArray, this.m_dStartDate, this.m_dEndDate);
210
211 // Datatable dumper into Debug Log (nice to know that this exists)
212 CGSchedLib.OutputArray(rAppointmentSchedule, "rAppointmentSchedule");
213
214
215 foreach (DataRow r in rAppointmentSchedule.Rows)
216 {
217
218 if (r["APPOINTMENTID"].ToString() == "0")
219 {
220 string sMsg = r["NOTE"].ToString();
221 throw new BMXNetException(sMsg);
222 }
223 nKeyID = Convert.ToInt32(r["APPOINTMENTID"].ToString());
224 sResource = r["RESOURCENAME"].ToString();
225 sPatientName =r["PATIENTNAME"].ToString();
226 sPatientID =r["PATIENTID"].ToString();
227 dStart = (DateTime) r["START_TIME"];
228 dEnd = (DateTime) r["END_TIME"];
229 dCheckIn = new DateTime();
230 dAuxTime = new DateTime();
231
232 if (r["CHECKIN"].GetType() != typeof(System.DBNull))
233 dCheckIn = (DateTime) r["CHECKIN"];
234 if (r["AUXTIME"].GetType() != typeof(System.DBNull))
235 dCheckIn = (DateTime) r["AUXTIME"];
236 sNote = r["NOTE"].ToString();
237 sNoShow = r["NOSHOW"].ToString();
238 bNoShow = (sNoShow == "1")?true: false;
239 sHRN = r["HRN"].ToString();
240 nAccessTypeID = (int) r["ACCESSTYPEID"];
241 sWalkIn = r["WALKIN"].ToString();
242 bWalkIn = (sWalkIn == "1")?true: false;
243
244 pAppointment = new CGAppointment();
245 pAppointment.CreateAppointment(dStart, dEnd, sNote, nKeyID, sResource);
246 pAppointment.PatientName = sPatientName;
247 pAppointment.PatientID = Convert.ToInt32(sPatientID);
248 if (dCheckIn.Ticks > 0)
249 pAppointment.CheckInTime = dCheckIn;
250 if (dAuxTime.Ticks > 0)
251 pAppointment.AuxTime = dAuxTime;
252 pAppointment.NoShow = bNoShow;
253 pAppointment.HealthRecordNumber = sHRN;
254 pAppointment.AccessTypeID = nAccessTypeID;
255 pAppointment.WalkIn = bWalkIn;
256 this.m_appointments.AddAppointment(pAppointment);
257
258 }
259
260 return true;
261 }
262 catch(Exception Ex)
263 {
264 Debug.Write("CGDocument.RefreshDaysSchedule error: " + Ex.Message + "\n");
265 return false;
266 }
267 }
268
269
270 public void OnNewDocument()
271 {
272 /*
273 * TEST EXCEPTION -- REMOVE AFTER TESTING
274 */
275 //throw new Exception("Simulated Uncaught Exception");
276 /*
277 * TEST EXCEPTION -- REMOVE AFTER TESTING
278 */
279
280 //Open an empty document
281 m_sResourcesArray.Clear();
282 m_ScheduleType = ScheduleType.Resource;
283
284 //Set initial From and To dates based on current day
285 // DateTime dDate = new DateTime(2001,12,05); //Testing line
286 DateTime dDate = DateTime.Today;
287
288 //smh: Question: Where does bRet get used? It's a useless varaible so far.
289 bool bRet = this.WeekNeedsRefresh(2,dDate, out this.m_dStartDate, out this.m_dEndDate);
290
291 //Create new View
292 CGView view = new CGView();
293 view.InitializeDocView(this,
294 this.DocManager,
295 m_dStartDate,
296 this.Appointments,
297 DocManager.WindowText);
298
299 view.Show();
300 view.SyncTree();
301 view.Activate();
302 this.UpdateAllViews();
303 }
304
305 private void SetDate(DateTime dDate)
306 {
307 bool bRet = false;
308 if (m_ScheduleType == ScheduleType.Resource)
309 {
310 bRet = this.WeekNeedsRefresh(2,dDate, out this.m_dStartDate, out this.m_dEndDate);
311 }
312 else
313 {
314 this.m_dStartDate = dDate;
315 this.m_dEndDate = dDate;
316 this.m_dEndDate = this.m_dEndDate.AddHours(23);
317 this.m_dEndDate = this.m_dEndDate.AddMinutes(59);
318 this.m_dEndDate = this.m_dEndDate.AddSeconds(59);
319 }
320
321 bRet = RefreshSchedule();
322 this.UpdateAllViews();
323 }
324
325 public void RefreshDocument()
326 {
327 bool bRet = RefreshSchedule();
328 this.UpdateAllViews();
329 }
330
331 public void OnOpenDocument()
332 {
333 try
334 {
335 //Create new Document
336 m_ScheduleType = (m_sResourcesArray.Count == 1) ? ScheduleType.Resource: ScheduleType.Clinic;
337 bool bRet = false;
338
339 //Set initial From and To dates based on current day
340 DateTime dDate = DateTime.Today;
341 if (m_ScheduleType == ScheduleType.Resource)
342 {
343 bRet = this.WeekNeedsRefresh(1,dDate, out this.m_dStartDate, out this.m_dEndDate);
344 }
345 else
346 {
347 this.m_dStartDate = dDate;
348 this.m_dEndDate = dDate;
349 this.m_dEndDate = this.m_dEndDate.AddHours(23);
350 this.m_dEndDate = this.m_dEndDate.AddMinutes(59);
351 this.m_dEndDate = this.m_dEndDate.AddSeconds(59);
352 }
353
354 bRet = RefreshSchedule();
355
356 CGView view = null;
357 //If this document already has a view, the use it
358 Hashtable h = CGDocumentManager.Current.Views;
359 CGDocument d;
360 bool bReuseView = false;
361 foreach (CGView v in h.Keys)
362 {
363 d = (CGDocument) h[v];
364 if (d == this)
365 {
366 view = v;
367 bReuseView = true;
368 v.InitializeDocView(this.DocName);
369 break;
370 }
371 }
372
373 //Otherwise, create new View
374 if (bReuseView == false)
375 {
376 view = new CGView();
377
378 view.InitializeDocView(this,
379 this.DocManager,
380 m_dStartDate,
381 this.Appointments,
382 this.DocName);
383
384 view.Show();
385 view.SyncTree();
386
387 }
388 this.UpdateAllViews();
389 }
390 catch (BMXNetException bmxEx)
391 {
392 throw bmxEx;
393 }
394 catch (Exception ex)
395 {
396 throw new BMXNet.BMXNetException("ClinicalScheduling.OnOpenDocument error: " + ex.Message);
397 }
398 }
399
400 private bool RefreshSchedule()
401 {
402 try
403 {
404 bool bRet = this.RefreshAvailabilitySchedule();
405 if (bRet == false)
406 {
407 return bRet;
408 }
409 bRet = this.RefreshDaysSchedule();
410 return bRet;
411 }
412 catch (ApplicationException aex)
413 {
414 Debug.Write("CGDocument.RefreshSchedule Application Error: " + aex.Message + "\n");
415 return false;
416 }
417 catch (Exception ex)
418 {
419 MessageBox.Show("CGDocument.RefreshSchedule error: " + ex.Message + "\n");
420 return false;
421 }
422 }
423
424 private bool RefreshAvailabilitySchedule()
425 {
426 try
427 {
428 if (this.m_DocManager.ConnectInfo.Connected == false)
429 {
430 m_DocManager.ConnectInfo.LoadConnectInfo();
431 }
432 System.IntPtr pHandle = m_DocManager.Handle;
433
434 m_pAvArray.Clear();
435
436 ArrayList saryApptTypes = new ArrayList();
437 int nApptTypeID = 0;
438
439 //Refresh Availability schedules
440 DataTable rAvailabilitySchedule;
441 rAvailabilitySchedule = CGSchedLib.CreateAvailabilitySchedule(m_DocManager, m_sResourcesArray, this.m_dStartDate, this.m_dEndDate, saryApptTypes,/**/ m_ScheduleType, "0");
442 CGSchedLib.OutputArray(rAvailabilitySchedule, "rAvailabilitySchedule");
443
444 //Refresh Type Schedule
445 string sResourceName = "";
446 DataTable rTypeSchedule = new DataTable();;
447 for (int j = 0; j < m_sResourcesArray.Count; j++)
448 {
449 sResourceName = m_sResourcesArray[j].ToString();
450 DataTable dtTemp = CGSchedLib.CreateAssignedTypeSchedule(m_DocManager, sResourceName, this.m_dStartDate, this.m_dEndDate, m_ScheduleType);
451 CGSchedLib.OutputArray(dtTemp, "dtTemp");
452 if (j == 0)
453 {
454 rTypeSchedule = dtTemp;
455 }
456 else
457 {
458 rTypeSchedule = CGSchedLib.UnionBlocks(rTypeSchedule, dtTemp);
459 }
460 }
461 CGSchedLib.OutputArray(rTypeSchedule, "rTypeSchedule");
462
463 DateTime dStart;
464 DateTime dEnd;
465 DateTime dTypeStart;
466 DateTime dTypeEnd;
467 int nSlots;
468 Rectangle crRectA = new Rectangle(0,0,1,0);
469 Rectangle crRectB= new Rectangle(0,0,1,0);
470 bool bIsect;
471 string sResourceList;
472 string sAccessRuleList;
473
474
475 foreach (DataRow rTemp in rAvailabilitySchedule.Rows)
476 {
477 //get StartTime, EndTime and Slots
478 dStart = (DateTime) rTemp["START_TIME"];
479 dEnd = (DateTime) rTemp["END_TIME"];
480
481 //TODO: Fix this slots datatype problem
482 string sSlots = rTemp["SLOTS"].ToString();
483 nSlots = Convert.ToInt16(sSlots);
484
485 sResourceList = rTemp["RESOURCE"].ToString();
486 sAccessRuleList = rTemp["ACCESS_TYPE"].ToString();
487
488 string sNote = rTemp["NOTE"].ToString();
489
490 if ((nSlots < -1000)||(sAccessRuleList == ""))
491 {
492 nApptTypeID = 0;
493 }
494 else
495 {
496 foreach (DataRow rType in rTypeSchedule.Rows)
497 {
498
499 dTypeStart = (DateTime) rType["StartTime"];
500 dTypeEnd = (DateTime) rType["EndTime"];
501 //if start & end times overlap, then
502 string sTypeResource = rType["ResourceName"].ToString();
503 if ((dTypeStart.DayOfYear == dStart.DayOfYear) && (sResourceList == sTypeResource))
504 {
505 crRectA.Y = GetTotalMinutes(dStart);
506 crRectA.Height = GetTotalMinutes(dEnd) - crRectA.Top;
507 crRectB.Y = GetTotalMinutes(dTypeStart);
508 crRectB.Height = GetTotalMinutes(dTypeEnd) - crRectB.Top;
509 bIsect = crRectA.IntersectsWith(crRectB);
510 if (bIsect == true)
511 {
512 //TODO: This code:
513 // nApptTypeID = (int) rType["AppointmentTypeID"];
514 //Causes this exception:
515 //Unhandled Exception: System.InvalidCastException: Specified cast is not valid.
516 string sTemp = rType["AppointmentTypeID"].ToString();
517 nApptTypeID = Convert.ToInt16(sTemp);
518 break;
519 }
520 }
521 }//end foreach datarow rType
522 }
523
524 AddAvailability(dStart, dEnd, nApptTypeID, nSlots, false, sResourceList, sAccessRuleList, sNote);
525 }//end foreach datarow rTemp
526
527 return true;
528 }
529 catch (Exception ex)
530 {
531 Debug.Write("CGDocument.RefreshAvailabilitySchedule error: " + ex.Message + "\n");
532 return false;
533 }
534 }
535
536 private int GetTotalMinutes(DateTime dDate)
537 {
538 return ((dDate.Hour * 60) + dDate.Minute);
539 }
540
541 public int AddAvailability(DateTime StartTime, DateTime EndTime, int nType, int nSlots, bool UpdateView, string sResourceList, string sAccessRuleList, string sNote)
542 {
543 //adds it to the object array
544 //Returns the index in the array
545
546 CGAvailability pNewAv = new CGAvailability();
547 pNewAv.Create(StartTime, EndTime, nType, nSlots, sResourceList, sAccessRuleList);
548
549 pNewAv.Note = sNote;
550
551 //Look up the color and type name using the AppointmentTypes datatable
552 DataTable dtType = this.m_DocManager.GlobalDataSet.Tables["AccessTypes"];
553 DataRow dRow = dtType.Rows.Find(nType.ToString());
554 if (dRow != null)
555 {
556 string sColor = dRow["DISPLAY_COLOR"].ToString();
557 pNewAv.DisplayColor = sColor;
558 string sTemp = dRow["RED"].ToString();
559 sTemp = (sTemp == "")?"0":sTemp;
560 int nRed = Convert.ToInt16(sTemp);
561 pNewAv.Red = nRed;
562 sTemp = dRow["GREEN"].ToString();
563 sTemp = (sTemp == "")?"0":sTemp;
564 int nGreen = Convert.ToInt16(sTemp);
565 pNewAv.Green = nGreen;
566 sTemp = dRow["BLUE"].ToString();
567 sTemp = (sTemp == "")?"0":sTemp;
568 int nBlue = Convert.ToInt16(sTemp);
569 pNewAv.Blue = nBlue;
570
571 string sName = dRow["ACCESS_TYPE_NAME"].ToString();
572 pNewAv.AccessTypeName = sName;
573 }
574
575 int nIndex = 0;
576 nIndex = m_pAvArray.Add(pNewAv);
577 if (UpdateView == true)
578 {
579 this.UpdateAllViews();
580 }
581 return nIndex;
582 }
583
584
585 public void AddResource(string sResource)
586 {
587 //TODO: Test that resource is not currently in list, that it IS a resource, etc
588 this.m_sResourcesArray.Add(sResource);
589 this.UpdateAllViews();
590 }
591
592 public void ClearResources()
593 {
594 this.m_sResourcesArray.Clear();
595 }
596
597 public int SlotsAvailable(DateTime dSelStart, DateTime dSelEnd, string sResource, out string sAccessType, out string sAvailabilityMessage)
598 {
599 sAccessType = "";
600 sAvailabilityMessage = "";
601 DateTime dStart;
602 DateTime dEnd;
603 int nAvailableSlots = 999;
604 int nSlots = 0;
605 int i = 0;
606 CGAvailability pAv;
607 Rectangle crRectA = new Rectangle(0,0,1,0);
608 Rectangle crRectB = new Rectangle(0,0,1,0);
609 bool bIsect;
610 crRectB.Y = GetTotalMinutes(dSelStart);
611 crRectB.Height = GetTotalMinutes(dSelEnd)- crRectB.Y;
612
613 // //loop thru m_pAvArray
614 // //Compare the start time and end time of eachblock
615 while (i < m_pAvArray.Count)
616 {
617 pAv = (CGAvailability) m_pAvArray[i];
618 dStart = pAv.StartTime;
619 dEnd = pAv.EndTime;
620 if ((sResource == pAv.ResourceList) &&
621 ((dSelStart.Date == dStart.Date) || (dSelStart.Date == dEnd.Date)))
622 {
623 crRectA.Y = (dStart.Date < dSelStart.Date) ? 0 : GetTotalMinutes(dStart);
624 crRectA.Height = (dEnd.Date > dSelEnd.Date) ? 1440 : GetTotalMinutes(dEnd);
625 crRectA.Height = crRectA.Height - crRectA.Y;
626 bIsect = crRectA.IntersectsWith(crRectB);
627 if (bIsect != false)
628 {
629 nSlots = pAv.Slots;
630 if (nSlots < 1)
631 {
632 nAvailableSlots = 0;
633 break;
634 }
635 if (nSlots < nAvailableSlots)
636 {
637 nAvailableSlots = nSlots;
638 sAccessType = pAv.AccessTypeName;
639 sAvailabilityMessage = pAv.Note;
640
641 }
642 }
643 }
644 i++;
645 }
646 if (nAvailableSlots == 999)
647 {
648 nAvailableSlots = 0;
649 }
650 return nAvailableSlots;
651 }
652
653 /// <summary>
654 /// Given a selected date,
655 /// Calculates StartDay and End Day and returns them in output params.
656 /// nWeeks == number of Weeks to display
657 /// nColumnCount is number of days displayed per week.
658 /// If 5 columns, begin on Second Day of Week
659 /// If 7 Columns, begin on First Day of Week
660 /// (this is a change from the hardcoded behavior for US-based calendars)
661 ///
662 /// Returns TRUE if the document's data needs refreshing based on
663 /// this newly selected date.
664 /// </summary>
665 public bool WeekNeedsRefresh(int nWeeks, DateTime SelectedDate,
666 out DateTime WeekStartDay, out DateTime WeekEndDay)
667 {
668 DateTime OldStartDay = m_dStartDate;
669 DateTime OldEndDay = m_dEndDate;
670 // Week start based on thread locale
671 int nStartWeekDay = (int)System.Threading.Thread.CurrentThread.CurrentCulture.DateTimeFormat.FirstDayOfWeek;
672 // Current Day
673 int nWeekDay = (int) SelectedDate.DayOfWeek; //0 == Sunday
674
675 // this offset gets approrpriate day based on locale.
676 int nOff = (nStartWeekDay + 1) % 7;
677 TimeSpan ts = new TimeSpan(nWeekDay - nOff,0,0,0); //d,h,m,s
678
679 // if ts is negative, we will jump to the next week in the logic.
680 // to show the correct week, add 7. Confusing, I know.
681 if (ts < new TimeSpan() ) ts = ts + new TimeSpan(7,0,0,0);
682
683 if (m_nColumnCount == 1) // if one column start and end on the same day.
684 {
685 ts = new TimeSpan(0,23,59,59);
686 WeekStartDay = SelectedDate;
687 WeekEndDay = WeekStartDay + ts;
688 }
689 else if (m_nColumnCount == 5 || m_nColumnCount == 0) // if 5 column start (or default) at the 2nd day of this week and end in 4:23:59:59 days.
690 {
691 // if picked day is start of week (Sunday in US), start in the next day since that's the first day of work week
692 // else, just substract the calculated time span to get to the start of week (first work day)
693 WeekStartDay = (nWeekDay == nStartWeekDay) ? SelectedDate + new TimeSpan(1,0,0,0): SelectedDate - ts;
694 // End day calculation
695 int nEnd = 3;
696 ts = new TimeSpan((7 * nWeeks) - nEnd, 23, 59, 59);
697 WeekEndDay = WeekStartDay + ts;
698 }
699 else // if 7 column start at the 1st day of this week and end in 6:23:59:59 days.
700 {
701 // if picked day is start of week, use that. Otherwise, go to the fist work day and substract one to get to start of week.
702 WeekStartDay = (nWeekDay == nStartWeekDay) ? SelectedDate : SelectedDate - ts - new TimeSpan(1,0,0,0);
703 // End day calculation
704 int nEnd = 1;
705 ts = new TimeSpan((7 * nWeeks) - nEnd, 23, 59, 59);
706 WeekEndDay = WeekStartDay + ts;
707 }
708
709 bool bRet = (( WeekStartDay.Date != OldStartDay.Date) || (WeekEndDay.Date != OldEndDay.Date));
710 return bRet;
711 }
712
713 /// <summary>
714 /// Calls RPMS to create appointment then
715 /// adds appointment to the m_appointments collection
716 /// Returns the IEN of the appointment in the RPMS BSDX APPOINTMENT file.
717 /// </summary>
718 /// <param name="rApptInfo"></param>
719 /// <returns></returns>
720 public int CreateAppointment(CGAppointment rApptInfo)
721 {
722 return CreateAppointment(rApptInfo, false);
723 }
724
725 /// <summary>
726 /// Use this overload to create a walkin appointment
727 /// </summary>
728 /// <param name="rApptInfo"></param>
729 /// <param name="bWalkin"></param>
730 /// <returns></returns>
731 public int CreateAppointment(CGAppointment rApptInfo, bool bWalkin)
732 {
733 string sStart;
734 string sEnd;
735 string sPatID;
736 string sResource;
737 string sNote;
738 string sLen;
739 string sApptID;
740
741 //sStart = rApptInfo.StartTime.ToString("M-d-yyyy@HH:mm");
742 //sEnd = rApptInfo.EndTime.ToString("M-d-yyyy@HH:mm");
743
744 // i18n code -- Use culture neutral FMDates
745 sStart = FMDateTime.Create(rApptInfo.StartTime).FMDateString;
746 sEnd = FMDateTime.Create(rApptInfo.EndTime).FMDateString;
747
748 TimeSpan sp = rApptInfo.EndTime - rApptInfo.StartTime;
749 sLen = sp.TotalMinutes.ToString();
750 sPatID = rApptInfo.PatientID.ToString();
751 sNote = rApptInfo.Note;
752 sResource = rApptInfo.Resource;
753 if (bWalkin == true)
754 {
755 sApptID = "WALKIN";
756 }
757 else
758 {
759 sApptID = rApptInfo.AccessTypeID.ToString();
760 }
761
762 CGAppointment aCopy = new CGAppointment();
763 aCopy.CreateAppointment(rApptInfo.StartTime, rApptInfo.EndTime, sNote, 0, sResource);
764 aCopy.PatientID = rApptInfo.PatientID;
765 aCopy.PatientName = rApptInfo.PatientName;
766 aCopy.HealthRecordNumber = rApptInfo.HealthRecordNumber;
767 aCopy.AccessTypeID = rApptInfo.AccessTypeID;
768
769 string sSql = "BSDX ADD NEW APPOINTMENT^" + sStart + "^" + sEnd + "^" + sPatID + "^" + sResource + "^" + sLen + "^" + sNote + "^" + sApptID ;
770 System.Data.DataTable dtAppt = m_DocManager.RPMSDataTable(sSql, "NewAppointment");
771 int nApptID;
772
773 Debug.Assert(dtAppt.Rows.Count == 1);
774 DataRow r = dtAppt.Rows[0];
775 nApptID =Convert.ToInt32(r["APPOINTMENTID"]);
776 string sErrorID;
777 sErrorID = r["ERRORID"].ToString();
778 if ((sErrorID != "")||(nApptID < 1))
779 throw new Exception(sErrorID);
780 aCopy.AppointmentKey = nApptID;
781 this.m_appointments.AddAppointment(aCopy);
782
783 bool bRet = RefreshAvailabilitySchedule();
784
785 UpdateAllViews();
786
787 return nApptID;
788 }
789
790 public void EditAppointment(CGAppointment pAppt, string sNote)
791 {
792 try
793 {
794 int nApptID = pAppt.AppointmentKey;
795 string sSql = "BSDX EDIT APPOINTMENT^" + nApptID.ToString() + "^" + sNote;
796
797 System.Data.DataTable dtAppt = m_DocManager.RPMSDataTable(sSql, "EditAppointment");
798
799 Debug.Assert(dtAppt.Rows.Count == 1);
800 DataRow r = dtAppt.Rows[0];
801 string sErrorID = r["ERRORID"].ToString();
802 if (sErrorID == "-1")
803 pAppt.Note = sNote;
804
805 if (this.m_appointments.AppointmentTable.ContainsKey(nApptID))
806 {
807 bool bRet = RefreshAvailabilitySchedule();
808 UpdateAllViews();
809 }
810 }
811 catch (Exception ex)
812 {
813 Debug.Write("CGDocument.EditAppointment Failed: " + ex.Message);
814 }
815 }
816
817 public void CheckInAppointment(int nApptID, DateTime dCheckIn,
818 string ClinicStopIEN,
819 string ProviderIEN,
820 string PrintRouteSlip,
821 string PCCClinicIEN,
822 string PCCFormIEN,
823 string PCCOutGuide
824 )
825 {
826 string sCheckIn = dCheckIn.ToString("M-d-yyyy@HH:mm");
827
828 string sSql = "BSDX CHECKIN APPOINTMENT^" + nApptID.ToString() + "^" + sCheckIn + "^";
829 sSql += ClinicStopIEN + "^" + ProviderIEN + "^" + PrintRouteSlip + "^";
830 sSql += PCCClinicIEN + "^" + PCCFormIEN + "^" + PCCOutGuide;
831
832 System.Data.DataTable dtAppt = m_DocManager.RPMSDataTable(sSql, "CheckInAppointment");
833
834 Debug.Assert(dtAppt.Rows.Count == 1);
835 DataRow r = dtAppt.Rows[0];
836 string sErrorID = r["ERRORID"].ToString();
837
838 if (this.m_appointments.AppointmentTable.ContainsKey(nApptID))
839 {
840 bool bRet = RefreshSchedule();
841 UpdateAllViews();
842 }
843 }
844
845 public string DeleteAppointment(int nApptID)
846 {
847 return DeleteAppointment(nApptID, true, 0, "");
848 }
849
850 public string DeleteAppointment(int nApptID, bool bClinicCancelled, int nReason, string sRemarks)
851 {
852 //Returns "" if deletion successful
853 //Otherwise, returns reason for failure
854
855 string sClinicCancelled = (bClinicCancelled == true)?"C":"PC";
856 string sReasonID = nReason.ToString();
857 string sSql = "BSDX CANCEL APPOINTMENT^" + nApptID.ToString();
858 sSql += "^" + sClinicCancelled;
859 sSql += "^" + sReasonID;
860 sSql += "^" + sRemarks;
861 DataTable dtAppt = m_DocManager.RPMSDataTable(sSql, "DeleteAppointment");
862
863 Debug.Assert(dtAppt.Rows.Count == 1);
864 DataRow r = dtAppt.Rows[0];
865 string sErrorID = r["ERRORID"].ToString();
866 if (sErrorID != "")
867 return sErrorID;
868
869 if (this.m_appointments.AppointmentTable.ContainsKey(nApptID))
870 {
871 this.m_appointments.RemoveAppointment(nApptID);
872 bool bRet = RefreshAvailabilitySchedule();
873 UpdateAllViews();
874 }
875 return "";
876 }
877
878 public string AutoRebook(CGAppointment a, int nSearchType, int nMinimumDays, int nMaximumDays, out CGAppointment aRebook)
879 {
880 //If successful Returns "1" and new start date and time returned in aRebook
881 //Otherwise, returns error message
882
883 CGAppointment aCopy = new CGAppointment();
884 aCopy.CreateAppointment(a.StartTime, a.EndTime, a.Note, 0, a.Resource);
885 aCopy.PatientID = a.PatientID;
886 aCopy.PatientName = a.PatientName;
887 aCopy.HealthRecordNumber = a.HealthRecordNumber;
888 aCopy.AccessTypeID = a.AccessTypeID;
889 aRebook = aCopy;
890
891 //Determine Rebook access type
892 //nSearchType = -1: use current, -2: use any non-zero type, >0 use this access type id
893 int nAVType = 0;
894
895 switch (nSearchType)
896 {
897 case -1:
898 nAVType = a.AccessTypeID;
899 break;
900 case -2:
901 nAVType = 0;
902 break;
903 default:
904 nAVType = nSearchType;
905 break;
906 }
907
908 int nSlots = 0;
909 string sSlots = "";
910 int nAccessTypeID; //To compare with nAVType
911
912 DateTime dResult = new DateTime(); //StartTime of access block to autorebook into
913
914 //Next two are empty, but needed to pass to CreateAvailabilitySchedule
915 ArrayList alAccessTypes = new ArrayList();
916 string sSearchInfo = "";
917
918 //Find the StartTime of first availability block of this type for this clinic
919 //between nMinimumDays and nMaximumDays
920
921 string sAVStart = a.StartTime.AddDays(nMinimumDays).ToString("M/d/yyyy@H:mm");
922
923 //dtAVEnd is the last day to search
924 DateTime dtAVEnd = a.StartTime.AddDays(nMinimumDays + nMaximumDays);
925 string sAVEnd = dtAVEnd.ToString("M/d/yyyy@H:mm");
926
927 //Increment start day to search a week (or so) at a time
928 //30 is a test increment. Need to test different values for performance
929 int nIncrement = (nMaximumDays < 30)?nMaximumDays:30;
930
931 //nCount and nCountEnd are the 'moving' counters
932 //that I add to start and end to get the bracket
933 //At the beginning of the DO loop, nCount and nCountEnd are already set
934 bool bFinished = false;
935 bool bFound = false;
936
937 DateTime dStart = a.StartTime.AddDays(nMinimumDays);
938 // v 1.3 i18n support - FM Date passed insated of American Date
939 string sStart = FMDateTime.Create(dStart).DateOnly.FMDateString;
940 DateTime dEnd = dStart.AddDays(nIncrement);
941 do
942 {
943 string sSql = "BSDX REBOOK NEXT BLOCK^" + sStart + "^" + a.Resource + "^" + nAVType.ToString();
944 DataTable dtNextBlock = this.DocManager.RPMSDataTable(sSql, "NextBlock");
945 Debug.Assert(dtNextBlock.Rows.Count == 1);
946 DataRow drNextBlockRow = dtNextBlock.Rows[0];
947
948 object oNextBlock;
949 oNextBlock = drNextBlockRow["NEXTBLOCK"];
950 if (oNextBlock.GetType() == typeof(System.DBNull))
951 break;
952 DateTime dNextBlock = (DateTime) drNextBlockRow["NEXTBLOCK"];
953 if (dNextBlock > dtAVEnd)
954 {
955 break;
956 }
957
958 dStart = dNextBlock;
959 dEnd = dStart.AddDays(nIncrement);
960 if (dEnd > dtAVEnd)
961 dEnd = dtAVEnd;
962
963 DataTable dtResult = CGSchedLib.CreateAvailabilitySchedule(m_DocManager, this.Resources, dStart, dEnd, alAccessTypes, ScheduleType.Resource, sSearchInfo);
964 //Loop thru dtResult looking for a slot having the required availability type.
965 //If found, set bFinished = true;
966 foreach (DataRow dr in dtResult.Rows)
967 {
968
969 sSlots = dr["SLOTS"].ToString();
970 if (sSlots == "")
971 sSlots = "0";
972 nSlots = Convert.ToInt16(sSlots);
973 if (nSlots > 0)
974 {
975 nAccessTypeID = 0; //holds the access type id of the availability block
976 if (dr["ACCESS_TYPE"].ToString() != "")
977 nAccessTypeID =Convert.ToInt16(dr["ACCESS_TYPE"].ToString());
978 if ((nSearchType == -2) && (nAccessTypeID > 0)) //Match on any non-zero type
979 {
980 bFinished = true;
981 bFound = true;
982 dResult = (DateTime) dr["START_TIME"];
983 break;
984 }
985 if (nAccessTypeID == nAVType)
986 {
987 bFinished = true;
988 bFound = true;
989 dResult = (DateTime) dr["START_TIME"];
990 break;
991 }
992 }
993 }
994 dStart = dEnd.AddDays(1);
995 dEnd = dStart.AddDays(nIncrement);
996 if (dEnd > dtAVEnd)
997 dEnd = dtAVEnd;
998 } while (bFinished == false);
999
1000 if (bFound == true)
1001 {
1002 aCopy.StartTime = dResult;
1003 aCopy.EndTime = dResult.AddMinutes(a.Duration);
1004 //Create the appointment
1005 //Set the AUTOREBOOKED flag
1006 //and store the "AutoRebooked To DateTime"
1007 //in each autorebooked appointment
1008 this.CreateAppointment(aCopy);
1009 SetAutoRebook(a, dResult);
1010 return "1";
1011 }
1012 else
1013 {
1014 return "0";
1015 }
1016 }
1017
1018 private void SetAutoRebook(CGAppointment a, DateTime dtRebookedTo)
1019 {
1020 string sApptKey = a.AppointmentKey.ToString();
1021 //string sRebookedTo = dtRebookedTo.ToString("M/d/yyyy@HH:mm");
1022 // i18n
1023 string sRebookedTo = FMDateTime.Create(dtRebookedTo).FMDateString;
1024 string sSql = "BSDX REBOOK SET^" + sApptKey + "^" + sRebookedTo;
1025 System.Data.DataTable dtRebook = m_DocManager.RPMSDataTable(sSql, "AutoRebook");
1026
1027 }
1028
1029 public string AppointmentNoShow(int nApptID, bool bNoShow)
1030 {
1031 /*
1032 * BSDX NOSHOW RPC Returns 1 in ERRORID if successfully sets NOSHOW flag in BSDX APPOINTMENT and, if applicable, File 2
1033 *Otherwise, returns negative numbers for failure and errormessage in ERRORTXT
1034 *
1035 */
1036
1037 string sTest = bNoShow.ToString();
1038 string sNoShow = (bNoShow == true)?"1":"0";
1039 string sSql = "BSDX NOSHOW^" + nApptID.ToString();
1040 sSql += "^";
1041 sSql += sNoShow;
1042
1043 DataTable dtAppt = m_DocManager.RPMSDataTable(sSql, "AppointmentNoShow");
1044
1045 Debug.Assert(dtAppt.Rows.Count == 1);
1046 DataRow r = dtAppt.Rows[0];
1047 string sErrorID = r["ERRORID"].ToString();
1048 if (sErrorID != "1")
1049 {
1050 return r["ERRORTEXT"].ToString();
1051 }
1052
1053 bool bRet = RefreshSchedule();
1054
1055 return sErrorID;
1056 }
1057
1058 #endregion Methods
1059
1060 }//End class
1061}//End namespace
Note: See TracBrowser for help on using the repository browser.