public void GenerateReferrals(ref HQLHeader cHQLHeader, string Subset)
{
string sFileName;
string sLocalSubset;
HQLReferrals cReferrals = new HQLReferrals();
string sQname = HQLReferrals.Name;
homeForm.fLogFile.WriteLine("Creating REFERRAL Files");
// ---- Create the SUBSET file ----
sLocalSubset = sQname + "00" + GlobalDefs.cSubsetExt;
sFileName = cHQLHeader.Order.ToString("D3") + "_" + sLocalSubset + ".HQL";
homeForm.fLogFile.WriteLine("* Referral Set: " + sLocalSubset + ", File: " + sFileName);
StreamWriter fOut = new StreamWriter(homeForm.sOutPath + sFileName);
// Create local subset ID
// Prepare Header
string sHeader = cHQLHeader.Generate(sLocalSubset, "Referrals", "Referral Subset Query");
if (cHQLHeader.FatalError)
{
FatalError = true;
ErrorMessage = cHQLHeader.ErrorMessage;
}
else
{
fOut.WriteLine(sHeader);
fOut.WriteLine(cReferrals.CreateReportSubset(Subset));
}
fOut.Close();
// ---- Create the REPORT file(s) ----
DateTime dtRStart;
DateTime dtREnd;
DateTime dtQueryEnd;
int iPeriod;
int iCount = 1;
// Calculate the initial Dates
SetDates("CURRENT", out iPeriod, out dtRStart, out dtREnd, out dtQueryEnd);
while (dtRStart < dtQueryEnd)
{
if (iCount > 1)
dtRStart = dtRStart.AddDays(1);
if (dtREnd > dtQueryEnd)
dtREnd = dtQueryEnd;
string sQueryName = sQname + iCount.ToString("D2") + GlobalDefs.cReportExt;
sFileName = cHQLHeader.Order.ToString("D3") + "_" + sQueryName + ".HQL";
homeForm.fLogFile.WriteLine(" " + sFileName + ": " + dtRStart.ToShortDateString() + " to " + dtREnd.ToShortDateString());
// Write the file
fOut = new StreamWriter(homeForm.sOutPath + sFileName);
// Prepare Header
sHeader = cHQLHeader.Generate(sQueryName, "Referrals", "Referral Report Query ");
if (cHQLHeader.FatalError)
{
FatalError = true;
ErrorMessage = cHQLHeader.ErrorMessage;
}
else
{
fOut.WriteLine(sHeader);
fOut.WriteLine(cReferrals.CreateReportPrint(dtRStart, dtREnd));
}
fOut.Close();
dtRStart = dtREnd;
dtREnd = SetNewEnd("CURRENT", dtRStart, iPeriod);
iCount++;
}
}
public void GenerateCohort(ref HQLHeader cHQLHeader)
{
string sFileName;
homeForm.fLogFile.WriteLine("Creating COHORT SUBSET Files");
foreach (HQLCohort.HQLCohortItem c in homeForm.cCohorts)
{
homeForm.fLogFile.WriteLine(" " + cHQLHeader.Order.ToString("D3") + "_" + c.Name + ".HQL");
string sFilename = homeForm.sOutPath + cHQLHeader.Order.ToString("D3") + "_" + c.Name + ".HQL";
StreamWriter fOut = new StreamWriter(sFilename);
// Prepare Header
string sHeader = cHQLHeader.Generate(c.Name, c.Description, "Cohort Subset");
if (cHQLHeader.FatalError)
{
FatalError = true;
ErrorMessage = cHQLHeader.ErrorMessage;
homeForm.fLogFile.WriteLine("ERROR: " + ErrorMessage);
}
else
{
fOut.WriteLine(sHeader);
fOut.WriteLine(c.HQLText);
}
fOut.Close();
}
// --- Create the report queries for mapped cohorts
homeForm.fLogFile.WriteLine("Creating COHORT REPORT Files");
foreach (HQLCohort.HQLCohortItem c in homeForm.cCohorts)
{
if (c.Map != "")
{
// Generate Subset File
sFileName = cHQLHeader.Order.ToString("D3") + "_" + c.Name + GlobalDefs.cSubsetExt + ".HQL";
homeForm.fLogFile.WriteLine(" " + sFileName);
StreamWriter fOut = new StreamWriter(homeForm.sOutPath + sFileName);
// Prepare Header
string sHeader = cHQLHeader.Generate(c.Name + GlobalDefs.cSubsetExt, c.Description, "Cohort Report Subset");
if (cHQLHeader.FatalError)
{
FatalError = true;
ErrorMessage = cHQLHeader.ErrorMessage;
}
else
{
fOut.WriteLine(sHeader);
fOut.WriteLine(c.CreateReportSubset());
}
fOut.Close();
// Generate Report File
sFileName = cHQLHeader.Order.ToString("D3") + "_" + c.Name + GlobalDefs.cReportExt + ".HQL";
homeForm.fLogFile.WriteLine(" " + sFileName);
fOut = new StreamWriter(homeForm.sOutPath + sFileName);
// Prepare Header
sHeader = cHQLHeader.Generate(c.Name + GlobalDefs.cReportExt, c.Description, "Cohort Report Print");
if (cHQLHeader.FatalError)
{
FatalError = true;
ErrorMessage = cHQLHeader.ErrorMessage;
}
else
{
fOut.WriteLine(sHeader);
fOut.WriteLine(c.CreateReportPrint());
}
fOut.Close();
}
}
}
public void GenerateJournal(ref HQLHeader cHQLHeader, string Subset)
{
string sFileName;
string sLocalSubset;
homeForm.fLogFile.WriteLine("Creating JOURNAL Files");
foreach (HQLJournal.HQLJournalSetItem JournalSet in homeForm.cJournal)
{
// ---- Create the SUBSET file ----
sLocalSubset = JournalSet.Name + "00" + GlobalDefs.cSubsetExt;
sFileName = cHQLHeader.Order.ToString("D3") + "_" + sLocalSubset + ".HQL";
homeForm.fLogFile.WriteLine("* Journal Set: " + JournalSet.Period + ", " + sLocalSubset + ", File: " + sFileName);
StreamWriter fOut = new StreamWriter(homeForm.sOutPath + sFileName);
// Create local subset ID
// Prepare Header
string sComment = JournalSet.CodeType + "-" + JournalSet.Period + "-" + JournalSet.SetType;
string sHeader = cHQLHeader.Generate(sLocalSubset, sComment, "Journal Subset Query " + sComment);
if (cHQLHeader.FatalError)
{
FatalError = true;
ErrorMessage = cHQLHeader.ErrorMessage;
}
else
{
fOut.WriteLine(sHeader);
fOut.WriteLine(JournalSet.CreateReportSubset(Subset, JournalSet.Period));
}
fOut.Close();
// ---- Create the REPORT file(s) ----
DateTime dtRStart;
DateTime dtREnd;
DateTime dtQueryEnd;
int iPeriod;
int iCount = 1;
// Calculate the initial Dates
SetDates(JournalSet.Period, out iPeriod, out dtRStart, out dtREnd, out dtQueryEnd);
while (dtRStart < dtQueryEnd)
{
if (iCount > 1)
dtRStart = dtRStart.AddDays(1);
if (dtREnd > dtQueryEnd)
dtREnd = dtQueryEnd;
string sQueryName = JournalSet.Name + iCount.ToString("D2") + GlobalDefs.cReportExt;
sFileName = cHQLHeader.Order.ToString("D3") + "_" + sQueryName + ".HQL";
homeForm.fLogFile.WriteLine(" " + sFileName + ": " + dtRStart.ToShortDateString() + " to " + dtREnd.ToShortDateString());
// Write the file
fOut = new StreamWriter(homeForm.sOutPath + sFileName);
// Prepare Header
sHeader = cHQLHeader.Generate(sQueryName, sComment, "Journal Report Query " + sComment);
if (cHQLHeader.FatalError)
{
FatalError = true;
ErrorMessage = cHQLHeader.ErrorMessage;
}
else
{
string sMsg;
fOut.WriteLine(sHeader);
fOut.WriteLine(JournalSet.CreateReportPrint(dtRStart, dtREnd, out sMsg));
if (iCount == 1)
homeForm.fLogFile.WriteLine(" " + sMsg);
}
fOut.Close();
dtRStart = dtREnd;
dtREnd = SetNewEnd(JournalSet.Period, dtRStart, iPeriod);
iCount++;
}
}
}