iSharkFly-Open
/
VistA-Scheduling
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
VistA-Scheduling/cs/bsdx0200GUISourceCode/CGSchedLib.cs

1008 lines
28 KiB
C#
Raw Normal View History

Initial committ of scheduling package
2009-11-30 03:53:28 -05:00
using System;
using System.Data;
//using System.Data.OleDb;
using System.Collections;
using System.Diagnostics;
using System.Drawing;
using IndianHealthService.BMXNet;
namespace IndianHealthService.ClinicalScheduling
{
public enum ScheduleType
{
Resource,
Clinic
}
/// <summary>
/// CGSchedLib contains static functions that are called from throughout the
/// scheduling application.
/// </summary>
public class CGSchedLib
{
public CGSchedLib()
{
}
2010-07-12 10:24:09 -04:00
/// <summary>
/// Gets appointments from VISTA to display in Grid
/// </summary>
/// <param name="docManager"></param>
/// <param name="saryResNames"></param>
/// <param name="StartTime"></param>
/// <param name="EndTime"></param>
/// <returns></returns>
Initial committ of scheduling package
2009-11-30 03:53:28 -05:00
public static DataTable CreateAppointmentSchedule(CGDocumentManager docManager, ArrayList saryResNames, DateTime StartTime, DateTime EndTime)
{
string sResName = "";
for (int i = 0; i < saryResNames.Count; i++)
{
sResName += saryResNames[i];
if ((i+1) < saryResNames.Count)
sResName += "|";
}
Updated Source Code for i18n. Changes in DPatientLetter.cs Changes in CGSchedLib.cs
2010-07-11 10:09:11 -04:00
string sStart = FMDateTime.Create(StartTime).DateOnly.FMDateString;
string sEnd = FMDateTime.Create(EndTime).FMDateString;
Initial committ of scheduling package
2009-11-30 03:53:28 -05:00
string sSql = "BSDX CREATE APPT SCHEDULE^" + sResName + "^" + sStart + "^" + sEnd ;
DataTable dtRet = docManager.RPMSDataTable(sSql, "AppointmentSchedule");
return dtRet;
}
public static void OutputArray(DataTable dt, string sName)
{
#if (DEBUG && OUTPUTARRAY)
Debug.Write("\n " + sName + " OutputArray:\n");
if (dt == null)
return;
foreach (DataColumn c in dt.Columns)
{
Debug.Write(c.ToString());
}
Debug.Write("\n");
foreach (DataRow r in dt.Rows)
{
foreach (DataColumn c in dt.Columns)
{
Debug.Write(r[c].ToString());
}
Debug.Write("\n");
}
Debug.Write("\n");
#endif
}
public static DataTable CreateAvailabilitySchedule(CGDocumentManager docManager,
ArrayList saryResourceNames, DateTime StartTime, DateTime EndTime,
ArrayList saryApptTypes,/**/ ScheduleType stType, string sSearchInfo)
{
DataTable rsOut;
rsOut = new DataTable("AvailabilitySchedule");
DataTable rsSlotSchedule;
DataTable rsApptSchedule;
DataTable rsTemp1;
int nSize = saryResourceNames.Count;
if (nSize == 0)
{
return rsOut;
}
string sResName;
for (int i = 0; i < nSize; i++)
{
sResName = saryResourceNames[i].ToString();
rsSlotSchedule = CGSchedLib.CreateAssignedSlotSchedule(docManager, sResName, StartTime, EndTime, saryApptTypes,/**/ stType, sSearchInfo);
OutputArray(rsSlotSchedule, "rsSlotSchedule");
if (rsSlotSchedule.Rows.Count > 0 )
{
rsApptSchedule = CGSchedLib.CreateAppointmentSlotSchedule(docManager, sResName, StartTime, EndTime, stType);
OutputArray(rsApptSchedule, "rsApptSchedule");
rsTemp1 = CGSchedLib.SubtractSlotsRS2(rsSlotSchedule, rsApptSchedule, sResName);
OutputArray(rsTemp1, "rsTemp1");
}
else
{
rsTemp1 = rsSlotSchedule;
OutputArray(rsTemp1, "rsTemp1");
}
if (i == 0)
{
rsOut = rsTemp1;
OutputArray(rsOut, "rsOut");
}
else
{
rsOut = CGSchedLib.UnionBlocks(rsTemp1, rsOut);
OutputArray(rsOut, "United rsOut");
}
}
return rsOut;
}
2010-07-12 10:24:09 -04:00
Initial committ of scheduling package
2009-11-30 03:53:28 -05:00
public static DataTable CreateAssignedTypeSchedule(CGDocumentManager docManager, string sResourceName, DateTime StartTime, DateTime EndTime, ScheduleType stType)
{
string sStart;
string sEnd;
2010-07-12 10:24:09 -04:00
//sStart = StartTime.ToString("M-d-yyyy");
sStart = FMDateTime.Create(StartTime).DateOnly.FMDateString;
//sEnd = EndTime.ToString("M-d-yyyy");
sEnd = FMDateTime.Create(EndTime).DateOnly.FMDateString;
Initial committ of scheduling package
2009-11-30 03:53:28 -05:00
// string sSource = (stType == ScheduleType.Resource ? "ST_RESOURCE" : "ST_CLINIC");
string sSql = "BSDX TYPE BLOCKS OVERLAP^" + sStart + "^" + sEnd + "^" + sResourceName ;//+ "^" + sSource;
DataTable rs = docManager.RPMSDataTable(sSql, "AssignedTypeSchedule");
if (rs.Rows.Count == 0)
return rs;
DataTable rsCopy = new DataTable("rsCopy");
DataColumn dCol = new DataColumn();
dCol.DataType = Type.GetType("System.DateTime");
dCol.ColumnName = "StartTime";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
rsCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.DateTime");
dCol.ColumnName = "EndTime";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
rsCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.Int16");
dCol.ColumnName = "AppointmentTypeID";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
rsCopy.Columns.Add(dCol);
dCol = new DataColumn();
//dCol.DataType = Type.GetType("System.Int16");
dCol.DataType = Type.GetType("System.Int32"); //MJL 11/17/2006
dCol.ColumnName = "AvailabilityID";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
rsCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.String");
dCol.ColumnName = "ResourceName";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
rsCopy.Columns.Add(dCol);
DateTime dLastEnd;
DateTime dStart;
DateTime dEnd;
// DataRow r;
DataRow rNew;
rNew = rs.Rows[rs.Rows.Count - 1];
dLastEnd = (DateTime) rNew["EndTime"];
rNew = rs.Rows[0];
dStart = (DateTime) rNew["StartTime"];
long UNSPECIFIED_TYPE = 10;
long UNSPECIFIED_ID = 0;
//if first block in vgetrows starts later than StartTime,
// then pad with a new block
if (dStart > StartTime)
{
dEnd = dStart;
rNew = rsCopy.NewRow();
rNew["StartTime"] = StartTime;
rNew["EndTime"] = dEnd;
rNew["AppointmentTypeID"] = UNSPECIFIED_TYPE;
rNew["AvailabilityID"] = UNSPECIFIED_ID;
rNew["ResourceName"] = sResourceName;
rsCopy.Rows.Add(rNew);
}
//if first block start time is < StartTime then trim
if (dStart < StartTime)
{
rNew = rs.Rows[0];
rNew["StartTime"] = StartTime;
dStart = StartTime;
}
int nAppointmentTypeID;
int nAvailabilityID;
dEnd = dStart;
foreach (DataRow rEach in rs.Rows)
{
dStart = (DateTime) rEach["StartTime"];
if (dStart > dEnd)
{
rNew = rsCopy.NewRow();
rNew["StartTime"] = dEnd;
rNew["EndTime"] = dStart;
rNew["AppointmentTypeID"] = 0;
rNew["AvailabilityID"] = UNSPECIFIED_ID;
rNew["ResourceName"] = sResourceName;
rsCopy.Rows.Add(rNew);
}
dEnd = (DateTime) rEach["EndTime"];
if (dEnd > EndTime)
dEnd = EndTime;
nAppointmentTypeID = (int) rEach["AppointmentTypeID"];
nAvailabilityID = (int) rEach["AvailabilityID"];
rNew = rsCopy.NewRow();
rNew["StartTime"] = dStart;
rNew["EndTime"] = dEnd;
rNew["AppointmentTypeID"] = nAppointmentTypeID;
rNew["AvailabilityID"] = nAvailabilityID;
rNew["ResourceName"] = sResourceName;
rsCopy.Rows.Add(rNew);
}
//Pad the end if necessary
if (dLastEnd < EndTime)
{
rNew = rsCopy.NewRow();
rNew["StartTime"] = dLastEnd;
rNew["EndTime"] = EndTime;
rNew["AppointmentTypeID"] = UNSPECIFIED_TYPE;
rNew["AvailabilityID"] = UNSPECIFIED_ID;
rNew["ResourceName"] = sResourceName;
rsCopy.Rows.Add(rNew);
}
OutputArray(rsCopy, "CreateAssignedTypeSchedule");
return rsCopy;
}
public static DataTable CreateAssignedSlotSchedule(CGDocumentManager docManager, string sResourceName, DateTime StartTime, DateTime EndTime, ArrayList rsaryApptTypeIDs, /**/ ScheduleType stType, string sSearchInfo)
{
//Appointment type ids is now always "" so that all appointment types are returned.
string sApptTypeIDs = "";
//The following code block is not used now, but keep for possible later use:
//Unpack the Appointment Type IDs
/*
*/
int nSize = rsaryApptTypeIDs.Count;
for (int i=0; i < nSize; i++)
{
sApptTypeIDs += rsaryApptTypeIDs[i];
if (i < (nSize-1))
sApptTypeIDs += "|";
}
string sStart;
string sEnd;
2010-07-12 10:24:09 -04:00
//sStart = StartTime.ToString("M-d-yyyy"); smh
sStart = FMDateTime.Create(StartTime).DateOnly.FMDateString;
//sEnd = EndTime.ToString("M-d-yyyy@H:mm"); smh
sEnd = FMDateTime.Create(EndTime).FMDateString;
Initial committ of scheduling package
2009-11-30 03:53:28 -05:00
string sSql = "BSDX CREATE ASGND SLOT SCHED^" + sResourceName + "^" + sStart + "^" + sEnd + "^" + sApptTypeIDs + "^" + sSearchInfo; //+ "^" + sSTType ;
DataTable dtRet = docManager.RPMSDataTable(sSql, "AssignedSlotSchedule");
if (sResourceName == "")
{
return dtRet;
}
return dtRet;
}
public static DataTable CreateCopyTable()
{
DataTable dtCopy = new DataTable("dtCopy");
DataColumn dCol = new DataColumn();
dCol.DataType = Type.GetType("System.DateTime");
dCol.ColumnName = "START_TIME";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
dtCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.DateTime");
dCol.ColumnName = "END_TIME";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
dtCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.Int16");
dCol.ColumnName = "SLOTS";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
dtCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.String");
dCol.ColumnName = "RESOURCE";
dCol.ReadOnly = true;
dCol.AllowDBNull = true;
dCol.Unique = false;
dtCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.String");
dCol.ColumnName = "ACCESS_TYPE";
dCol.ReadOnly = true;
dCol.AllowDBNull = true;
dCol.Unique = false;
dtCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.String");
dCol.ColumnName = "NOTE";
dCol.ReadOnly = true;
dCol.AllowDBNull = true;
dCol.Unique = false;
dtCopy.Columns.Add(dCol);
return dtCopy;
}
public static DataTable CreateAppointmentSlotSchedule(CGDocumentManager docManager, string sResourceName, DateTime StartTime, DateTime EndTime, ScheduleType stType)
{
string sStart;
string sEnd;
2010-07-12 10:24:09 -04:00
//sStart = StartTime.ToString("M-d-yyyy");
sStart = FMDateTime.Create(StartTime).DateOnly.FMDateString;
//sEnd = EndTime.ToString("M-d-yyyy");
sEnd = FMDateTime.Create(EndTime).DateOnly.FMDateString;
Initial committ of scheduling package
2009-11-30 03:53:28 -05:00
string sSTType = (stType == ScheduleType.Resource ? "ST_RESOURCE" : "ST_CLINIC");
string sSql = "BSDX APPT BLOCKS OVERLAP^" + sStart + "^" + sEnd + "^" + sResourceName ;//+ "^" + sSTType;
DataTable dtRet = docManager.RPMSDataTable(sSql, "AppointmentSlotSchedule");
if (dtRet.Rows.Count < 1)
return dtRet;
//Create CDateTimeArray & load records from rsOut
int nRC;
nRC = dtRet.Rows.Count;
ArrayList cdtArray = new ArrayList();
cdtArray.Capacity = (nRC * 2);
DateTime v;
int i = 0;
foreach (DataRow r in dtRet.Rows)
{
v = (DateTime) r[dtRet.Columns["START_TIME"]];
cdtArray.Add(v);
v = (DateTime) r[dtRet.Columns["END_TIME"]];
cdtArray.Add(v);
}
cdtArray.Sort();
//Create a CTimeBlockArray and load it from rsOut
ArrayList ctbAppointments = new ArrayList(nRC);
CGAvailability cTB;
i = 0;
foreach (DataRow r in dtRet.Rows)
{
cTB = new CGAvailability();
cTB.StartTime = (DateTime) r[dtRet.Columns["START_TIME"]];
cTB.EndTime = (DateTime) r[dtRet.Columns["END_TIME"]];
ctbAppointments.Add(cTB);
}
//Create a TimeBlock Array from the data in the DateTime array
ArrayList ctbApptSchedule = new ArrayList();
ScheduleFromArray(cdtArray, StartTime, EndTime, ref ctbApptSchedule);
//Find number of TimeBlocks in ctbApptSchedule that
//overlap the TimeBlocks in ctbAppointments
ArrayList ctbApptSchedule2 = new ArrayList();
CGAvailability cTB2;
int nSlots = 0;
for (i=0; i< ctbApptSchedule.Count; i++)
{
cTB = (CGAvailability) ctbApptSchedule[i];
nSlots = BlocksOverlap(cTB, ctbAppointments);
cTB2 = new CGAvailability();
cTB2.Create(cTB.StartTime, cTB.EndTime, nSlots);
ctbApptSchedule2.Add(cTB2);
}
ConsolidateBlocks(ctbApptSchedule2);
DataTable dtCopy = new DataTable("dtCopy");
DataColumn dCol = new DataColumn();
dCol.DataType = Type.GetType("System.DateTime");
dCol.ColumnName = "START_TIME";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
dtCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.DateTime");
dCol.ColumnName = "END_TIME";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
dtCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.Int16");
dCol.ColumnName = "SLOTS";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
dtCopy.Columns.Add(dCol);
dCol = new DataColumn();
dCol.DataType = Type.GetType("System.String");
dCol.ColumnName = "RESOURCE";
dCol.ReadOnly = true;
dCol.AllowDBNull = false;
dCol.Unique = false;
dtCopy.Columns.Add(dCol);
for (int k=0; k < ctbApptSchedule2.Count; k++)
{
cTB = (CGAvailability) ctbApptSchedule2[k];
DataRow newRow;
newRow = dtCopy.NewRow();
newRow["START_TIME"] = cTB.StartTime;
newRow["END_TIME"] = cTB.EndTime;
newRow["SLOTS"] = cTB.Slots;
newRow["RESOURCE"] = sResourceName;
dtCopy.Rows.Add(newRow);
}
return dtCopy;
}
public static int BlocksOverlap(CGAvailability rBlock, ArrayList rTBArray)
{
//this overload implements default false for bCountSlots
return CGSchedLib.BlocksOverlap(rBlock, rTBArray, false);
}
public static int BlocksOverlap(CGAvailability rBlock, ArrayList rTBArray, bool bCountSlots)
{
//If bCountSlots == true, then returns
//sum of Slots in overlapping blocks
//instead of the count of overlapping blocks
DateTime dStart1;
DateTime dStart2;
DateTime dEnd1;
DateTime dEnd2;
int nSlots;
int nCount = 0;
CGAvailability cBlock;
dStart1 = rBlock.StartTime;
dEnd1 = rBlock.EndTime;
for (int j=0; j< rTBArray.Count; j++)
{
cBlock = (CGAvailability) rTBArray[j];
dStart2 = cBlock.StartTime;
dEnd2 = cBlock.EndTime;
nSlots = cBlock.Slots;
if (TimesOverlap(dStart1, dEnd1, dStart2, dEnd2))
{
if (bCountSlots == true)
{
nCount += nSlots;
}
else
{
nCount++;
}
}
}
return nCount;
}
//BOOL CResourceLink::TimesOverlap(COleDateTime dStart1, COleDateTime dEnd1, COleDateTime dStart2, COleDateTime dEnd2)
public static bool TimesOverlap(DateTime dStart1, DateTime dEnd1, DateTime dStart2, DateTime dEnd2)
{
Rectangle rect1 = new Rectangle();
Rectangle rect2 = new Rectangle();
rect1.X = 0;
rect2.X = 0;
rect1.Width = 1;
rect2.Width = 1;
rect1.Y = CGSchedLib.MinSince80(dStart1);
rect1.Height = CGSchedLib.MinSince80(dEnd1) - rect1.Y;
rect2.Y = CGSchedLib.MinSince80(dStart2);
rect2.Height = CGSchedLib.MinSince80(dEnd2) - rect2.Y;
bool bRet = rect2.IntersectsWith(rect1);
return bRet;
}
public static void ConsolidateBlocks(ArrayList rTBArray)
{
//TODO: Test this function
int j = 0;
bool bDirty = false;
CGAvailability cBlockA;
CGAvailability cBlockB;
CGAvailability cTemp1;
if (rTBArray.Count < 2)
return;
do
{
bDirty = false;
for (j = 0; j < (rTBArray.Count - 1); j++) //TODO: why minus 1?
{
cBlockA = (CGAvailability) rTBArray[j];
cBlockB = (CGAvailability) rTBArray[j+1];
if ((cBlockA.EndTime == cBlockB.StartTime)
&& (cBlockA.Slots == cBlockB.Slots)
&& (cBlockA.ResourceList == cBlockB.ResourceList)
&& (cBlockA.AccessRuleList == cBlockB.AccessRuleList)
)
{
cTemp1 = new CGAvailability();
cTemp1.StartTime = cBlockA.StartTime;
cTemp1.EndTime = cBlockB.EndTime;
cTemp1.Slots = cBlockA.Slots;
cTemp1.AccessRuleList = cBlockA.AccessRuleList;
cTemp1.ResourceList = cBlockA.ResourceList;
rTBArray.Insert(j, cTemp1);
rTBArray.RemoveRange(j+1, 2);
bDirty = true;
break;
}
}
}
while (!((bDirty == false) || (rTBArray.Count == 1)));
}
public static DataTable SubtractSlotsRS2(DataTable rsBlocks1, DataTable rsBlocks2, string sResource)
{
//Subtract slots in rsBlocks2 from rsBlocks1
//7-16-01 SUBCLINIC data field in rsBlocks1 persists thru routine.
//7-18-01 RESOURCE and ACCESS_TYPE fields presisted
if ((rsBlocks2.Rows.Count == 0) || (rsBlocks1.Rows.Count == 0))
return rsBlocks1;
//Create an array of the start and end times of blocks2
ArrayList cdtArray = new ArrayList(2*(rsBlocks1.Rows.Count + rsBlocks2.Rows.Count));
foreach (DataRow r in rsBlocks1.Rows)
{
cdtArray.Add(r[rsBlocks1.Columns["START_TIME"]]);
cdtArray.Add(r[rsBlocks1.Columns["END_TIME"]]);
}
foreach (DataRow r in rsBlocks2.Rows)
{
cdtArray.Add(r[rsBlocks2.Columns["START_TIME"]]);
cdtArray.Add(r[rsBlocks2.Columns["END_TIME"]]);
}
cdtArray.Sort();
ArrayList ctbReturn = new ArrayList();
DateTime cDate = new DateTime();
ScheduleFromArray(cdtArray, cDate, cDate, ref ctbReturn);
//Set up return table
DataTable rsCopy = CGSchedLib.CreateCopyTable(); //TODO: There's a datatable method that does this.
long nSlots = 0;
CGAvailability cTB;
for (int j=0; j < (ctbReturn.Count -1); j++) //TODO: why minus 1?
{
cTB = (CGAvailability) ctbReturn[j];
nSlots = SlotsInBlock(cTB, rsBlocks1) - SlotsInBlock(cTB, rsBlocks2);
string sResourceList = "";
string sAccessRuleList = "";
string sNote = "";
if (nSlots > 0)
{
bool bRet = ResourceRulesInBlock(cTB, rsBlocks1, ref sResourceList, ref sAccessRuleList, ref sNote);
}
DataRow newRow;
newRow = rsCopy.NewRow();
newRow["START_TIME"] = cTB.StartTime;
newRow["END_TIME"] = cTB.EndTime;
newRow["SLOTS"] = nSlots;
//Subclinic, Access Rule and Resource are null in subtractedSlot sets
newRow["RESOURCE"] = sResource;
newRow["ACCESS_TYPE"] = sAccessRuleList;
newRow["NOTE"] = sNote;
rsCopy.Rows.Add(newRow);
}
return rsCopy;
}
public static DataTable UnionBlocks(DataTable rs1, DataTable rs2)
{
//Test input tables
Debug.Assert(rs1 != null);
Debug.Assert(rs2 != null);
CGSchedLib.OutputArray(rs1, "UnionBlocks rs1");
CGSchedLib.OutputArray(rs2, "UnionBlocks rs2");
DataTable rsCopy;
DataRow dr;
if (rs1.Columns.Count >= rs2.Columns.Count)
{
rsCopy = rs1.Copy();
foreach (DataRow dr2 in rs2.Rows)
{
dr = rsCopy.NewRow();
dr.ItemArray = dr2.ItemArray;
//dr["START_TIME"] = dr2["START_TIME"];
//dr["END_TIME"] = dr2["END_TIME"];
//dr["SLOTS"] = dr2["SLOTS"];
rsCopy.Rows.Add(dr);
}
}
else
{
rsCopy = rs2.Copy();
foreach (DataRow dr2 in rs1.Rows)
{
dr = rsCopy.NewRow();
dr.ItemArray = dr2.ItemArray;
rsCopy.Rows.Add(dr);
}
}
return rsCopy;
}
public static DataTable IntersectBlocks(DataTable rs1, DataTable rs2)
{
DataTable rsCopy = CGSchedLib.CreateCopyTable();
//Test input tables
if ((rs1 == null) || (rs2 == null))
return rsCopy;
if ((rs1.Rows.Count == 0) || (rs2.Rows.Count == 0))
return rsCopy;
int nSlots1 = 0;
int nSlots2 = 0;
int nSlots3 = 0;
DateTime dStart1;
DateTime dStart2;
DateTime dStart3;
DateTime dEnd1;
DateTime dEnd2;
DateTime dEnd3;
string sClinic;
string sClinic2;
// Rectangle rect1 = new Rectangle();
// Rectangle rect2 = new Rectangle();
// rect1.X = 0;
// rect2.X = 0;
// rect1.Width = 1;
// rect2.Width = 1;
// DataColumn cSlots = rs1.Columns["SLOTS"];
foreach (System.Data.DataRow r1 in rs1.Rows)
{
nSlots1 = (int) r1[rs1.Columns["SLOTS"]];
if (nSlots1 > 0)
{
dStart1 = (DateTime) r1[rs1.Columns["START_TIME"]];
dEnd1 = (DateTime) r1[rs1.Columns["END_TIME"]];
sClinic = r1[rs1.Columns["SUBCLINIC"]].ToString();
if (sClinic == "NULL")
sClinic = "";
// rect1.Y = CGSchedLib.MinSince80(dStart1);
// rect1.Height = CGSchedLib.MinSince80(dEnd1) - rect1.Y;
foreach (System.Data.DataRow r2 in rs2.Rows)
{
nSlots2 = (int) r2[rs2.Columns["SLOTS"]];
if (nSlots2 > 0)
{
dStart2 = (DateTime) r2[rs2.Columns["START_TIME"]];
dEnd2 = (DateTime) r2[rs2.Columns["END_TIME"]];
sClinic2 = r2[rs2.Columns["SUBCLINIC"]].ToString();
// rect2.Y = CGSchedLib.MinSince80(dStart2);
// rect2.Height = CGSchedLib.MinSince80(dEnd2) - rect2.Y;
if (
/*(rect2.IntersectsWith(rect1) == true)*/
(CGSchedLib.TimesOverlap(dStart1, dEnd1, dStart2, dEnd2) == true)
&&
((sClinic == sClinic2) || (sClinic == "NONE") || (sClinic2 == "NONE"))
)
{
dStart3 = (dStart1 >= dStart2) ? dStart1 : dStart2 ;
dEnd3 = (dEnd1 >= dEnd2) ? dEnd2 : dEnd1;
nSlots3 = (nSlots1 >= nSlots2) ? nSlots2 : nSlots1 ;
DataRow newRow;
newRow = rsCopy.NewRow();
newRow["START_TIME"] = dStart3;
newRow["END_TIME"] = dEnd3;
newRow["SLOTS"] = nSlots3;
newRow["SUBCLINIC"] = (sClinic == "NONE") ? sClinic2 : sClinic;
//Access Rule and Resource are null in interesected sets
newRow["ACCESS_TYPE"] = "";
newRow["RESOURCE"] = "";
rsCopy.Rows.Add(newRow);
}
}//nSlots2 > 0
}//foreach r2 in rs2.rows
}//nSlots1 > 0
}//foreach r1 in rs1.rows
return rsCopy;
}//end IntersectBlocks
public static int MinSince80(DateTime d)
{
//Returns the total minutes between d and 1 Jan 1980
DateTime y = new DateTime(1980,1,1,0,0,0);
Debug.Assert(d > y);
TimeSpan ts = d - y;
//Assure ts.TotalMinutes within int range so that cast on next line works
Debug.Assert(ts.TotalMinutes < 2147483646);
int nMinutes = (int) ts.TotalMinutes;
return nMinutes;
}
public static void ScheduleFromArray(ArrayList cdtArray, DateTime dStartTime, DateTime dEndTime, ref ArrayList rTBArray)
{
int j = 0;
CGAvailability cTB;
if (cdtArray.Count == 0)
return;
Debug.Assert(cdtArray.Count > 0);
Debug.Assert(cdtArray[0].GetType() == typeof(DateTime));
//If StartTime passed in, then adjust for it
if (dStartTime.Ticks > 0)
{
if ((DateTime) cdtArray[0] > dStartTime)
{
cTB = new CGAvailability();
cTB.Create(dStartTime, (DateTime) cdtArray[0], 0);
rTBArray.Add(cTB);
}
if ((DateTime) cdtArray[0] < dStartTime)
{
for (j = 0; j < cdtArray.Count; j++)
{
if ((DateTime) cdtArray[j] < dStartTime)
cdtArray[j] = dStartTime;
}
}
}
//Trim the end if necessary
if (dEndTime.Ticks > 0)
{
for (j = 0; j < cdtArray.Count; j++)
{
if ((DateTime) cdtArray[j] > dEndTime)
cdtArray[j] = dEndTime;
}
}
//build the schedule in rTBArray
DateTime dTemp = new DateTime();
DateTime dStart;
DateTime dEnd;
int k = 0;
for (j = 0; j < (cdtArray.Count -1); j++) //TODO: why minus 1?
{
if ((DateTime) cdtArray[j] != dTemp)
{
dStart =(DateTime) cdtArray[j];
dTemp = dStart;
for (k = j+1; k < cdtArray.Count; k++)
{
dEnd = new DateTime();
if ((DateTime) cdtArray[k] != dStart)
{
dEnd = (DateTime) cdtArray[k];
}
if (dEnd.Ticks > 0)
{
cTB = new CGAvailability();
cTB.Create(dStart, dEnd, 0);
rTBArray.Add(cTB);
break;
}
}
}
}
}//end ScheduleFromArray
//long CResourceLink::SlotsInBlock(CTimeBlock &rTimeBlock, _RecordsetPtr rsBlock)
public static int SlotsInBlock(CGAvailability rTimeBlock, DataTable rsBlock)
{
DateTime dStart1;
DateTime dStart2;
DateTime dEnd1;
DateTime dEnd2;
int nSlots = 0;
if (rsBlock.Rows.Count == 0)
return nSlots;
Rectangle rect1 = new Rectangle();
Rectangle rect2 = new Rectangle();
rect1.X = 0;
rect2.X = 0;
rect1.Width = 1;
rect2.Width = 1;
dStart1 = rTimeBlock.StartTime;
dEnd1 = rTimeBlock.EndTime;
rect1.Y = CGSchedLib.MinSince80(dStart1);
rect1.Height = CGSchedLib.MinSince80(dEnd1) - rect1.Y;
foreach (DataRow r in rsBlock.Rows)
{
dStart2 = (DateTime) r[rsBlock.Columns["START_TIME"]];
dEnd2 = (DateTime) r[rsBlock.Columns["END_TIME"]];
rect2.Y = CGSchedLib.MinSince80(dStart2);
rect2.Height = CGSchedLib.MinSince80(dEnd2) - rect2.Y;
if (rect2.IntersectsWith(rect1) == true)
{
string sSlots = r[rsBlock.Columns["SLOTS"]].ToString();
nSlots = System.Convert.ToInt16(sSlots);
// nSlots = (int) r[rsBlock.Columns["SLOTS"]];
break;
}
}
return nSlots;
}//end SlotsInBlock
public static string ClinicInBlock(CGAvailability rTimeBlock, DataTable rsBlock)
{
DateTime dStart1;
DateTime dStart2;
DateTime dEnd1;
DateTime dEnd2;
string sClinic = "";
if (rsBlock.Rows.Count == 0)
return sClinic;
Rectangle rect1 = new Rectangle();
Rectangle rect2 = new Rectangle();
rect1.X = 0;
rect2.X = 0;
rect1.Width = 1;
rect2.Width = 1;
dStart1 = rTimeBlock.StartTime;
dEnd1 = rTimeBlock.EndTime;
rect1.Y = CGSchedLib.MinSince80(dStart1);
rect1.Height = CGSchedLib.MinSince80(dEnd1) - rect1.Y;
foreach (DataRow r in rsBlock.Rows)
{
dStart2 = (DateTime) r[rsBlock.Columns["START_TIME"]];
dEnd2 = (DateTime) r[rsBlock.Columns["END_TIME"]];
rect2.Y = CGSchedLib.MinSince80(dStart2);
rect2.Height = CGSchedLib.MinSince80(dEnd2) - rect2.Y;
if (rect2.IntersectsWith(rect1) == true)
{
sClinic = r[rsBlock.Columns["SUBCLINIC"]].ToString();
break;
}
}
return sClinic;
}//end ClinicInBlock
public static bool ResourceRulesInBlock(CGAvailability rTimeBlock, DataTable rsBlock, ref string sResourceList, ref string sAccessRuleList, ref string sNote)
{
DateTime dStart1;
DateTime dStart2;
DateTime dEnd1;
DateTime dEnd2;
string sResource;
string sAccessRule;
if (rsBlock.Rows.Count == 0)
return true;
Rectangle rect1 = new Rectangle();
Rectangle rect2 = new Rectangle();
rect1.X = 0;
rect2.X = 0;
rect1.Width = 1;
rect2.Width = 1;
dStart1 = rTimeBlock.StartTime;
dEnd1 = rTimeBlock.EndTime;
rect1.Y = CGSchedLib.MinSince80(dStart1);
rect1.Height = CGSchedLib.MinSince80(dEnd1) - rect1.Y;
foreach (DataRow r in rsBlock.Rows)
{
dStart2 = (DateTime) r[rsBlock.Columns["START_TIME"]];
dEnd2 = (DateTime) r[rsBlock.Columns["END_TIME"]];
rect2.Y = CGSchedLib.MinSince80(dStart2);
rect2.Height = CGSchedLib.MinSince80(dEnd2) - rect2.Y;
if (rect2.IntersectsWith(rect1) == true)
{
sResource = r[rsBlock.Columns["RESOURCE"]].ToString();
if (sResource == "NULL")
sResource = "";
if (sResource != "")
{
if (sResourceList == "")
{
sResourceList += sResource;
}
else
{
sResourceList += "^" + sResource;
}
}
sAccessRule = r[rsBlock.Columns["ACCESS_TYPE"]].ToString();
if (sAccessRule == "0")
sAccessRule = "";
if (sAccessRule != "")
{
if (sAccessRuleList == "")
{
sAccessRuleList += sAccessRule;
}
else
{
sAccessRuleList += "^" + sAccessRule;
}
}
sNote = r[rsBlock.Columns["NOTE"]].ToString();
}
}
return true;
}//End ResourceRulesInBlock
}
}