public bool updtObjective(BaseMaster BaseMstr, string strEncounterID, long lnTreatmentID, string strObjective)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList pList = new CDataParameterList(BaseMstr);
pList.AddInputParameter("pi_vPatientID", BaseMstr.SelectedPatientID);
pList.AddInputParameter("pi_vEncounterID", strEncounterID);
pList.AddInputParameter("pi_nTreatmentID", lnTreatmentID);
pList.AddInputParameterCLOB("pi_vObjective", strObjective);
BaseMstr.DBConn.ExecuteOracleSP("PCK_SOAPP_REPORT.updtObjective",
pList,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(true);
}
else
{
return(false);
}
}
public bool InsertPage(long lAuthorID,
string strTitle,
string strContents,
long lStatus,
out long lPageID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
lPageID = -1;
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(m_BaseMstr);
/*
* pi_nAuthorID in number,
* pi_vTitle in varchar2,
* pi_cContents in clob,
* pi_nStatus in number,
* po_nPageID out number,
*/
//add params for the DB stored procedure call
plist.AddInputParameter("pi_nAuthorID", lAuthorID);
plist.AddInputParameter("pi_vTitle", strTitle);
plist.AddInputParameterCLOB("pi_cContents", strContents);
plist.AddInputParameter("pi_nStatus", lStatus);
plist.AddOutputParameter("po_nPageID", lPageID);
//Execute Stored Procedure Call
m_BaseMstr.DBConn.ExecuteOracleSP("PCK_CMS.InsertPage",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
m_BaseMstr.StatusCode = lStatusCode;
m_BaseMstr.StatusComment = strStatusComment;
// 0 = success if strStatus is populated it will show on the screen
// 1 to n are errors and we always show errors
if (lStatusCode == 0)
{
CDataParameter paramValue = plist.GetItemByName("po_nPageID");
lPageID = paramValue.LongParameterValue;
return(true);
}
return(false);
}
public bool InsertTemplate(BaseMaster BaseMstr,
long lSOAPsectID,
string strName,
string strTemplateText,
long lGroupID,
out long lTemplateID)
{
lTemplateID = 0;
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//add params for the DB stored procedure call
plist.AddInputParameter("pi_nSOAPsectID", lSOAPsectID);
plist.AddInputParameter("pi_vTemplateName", strName);
plist.AddInputParameterCLOB("pi_vTemplateText", strTemplateText);
plist.AddInputParameter("pi_nTempGroupID", lGroupID);
//long lFXUserID = -1;
plist.AddOutputParameter("po_nTemplateID", lTemplateID);
BaseMstr.DBConn.ExecuteOracleSP("PCK_TEMPLATE.InsertTemplate",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
// 0 = success if strStatus is populated it will show on the screen
// 1 to n are errors and we always show errors
if (lStatusCode == 0)
{
CDataParameter paramValue = plist.GetItemByName("po_nTemplateID");
lTemplateID = paramValue.LongParameterValue;
BaseMstr.StatusComment = "Template - Updated. ";
return(true);
}
return(false);
}
public bool updtAssessment(
BaseMaster BaseMstr,
string strEncounterID,
long lnTreatmentID,
string strAssessment,
long lnDLCID,
string strDLCJustification,
long lIsHighInterest)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList pList = new CDataParameterList(BaseMstr);
pList.AddInputParameter("pi_vKey", BaseMstr.Key);
pList.AddInputParameter("pi_vPatientID", BaseMstr.SelectedPatientID);
pList.AddInputParameter("pi_vEncounterID", strEncounterID);
pList.AddInputParameter("pi_nTreatmentID", lnTreatmentID);
pList.AddInputParameterCLOB("pi_vAssessment", strAssessment);
pList.AddInputParameter("pi_nDLCID", lnDLCID);
pList.AddInputParameter("pi_vDLCJustification", strDLCJustification);
pList.AddInputParameter("pi_nIsHighInterest", lIsHighInterest);
BaseMstr.DBConn.ExecuteOracleSP("PCK_SOAPP_REPORT.updtAssessment",
pList,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
return(true);
}
else
{
return(false);
}
}
public bool SendMessage(string strRecipients,
string strSubject,
string strBody,
out long lMessageID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
lMessageID = -1;
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(m_BaseMstr);
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vKey", m_BaseMstr.Key);
plist.AddInputParameter("pi_vRecipients", strRecipients);
plist.AddInputParameter("pi_vSubject", strSubject);
plist.AddInputParameterCLOB("pi_clobBody", strBody);
plist.AddOutputParameter("po_nMessageID", lMessageID);
//Execute Stored Procedure Call
m_BaseMstr.DBConn.ExecuteOracleSP("PCK_MESSAGES.SendMessage",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
m_BaseMstr.StatusCode = lStatusCode;
m_BaseMstr.StatusComment = strStatusComment;
// 0 = success if strStatus is populated it will show on the screen
// 1 to n are errors and we always show errors
if (lStatusCode == 0)
{
CDataParameter paramValue = plist.GetItemByName("po_nMessageID");
lMessageID = paramValue.LongParameterValue;
return(true);
}
return(false);
}
public bool EditPage(long lPageID,
long lAuthorID,
string strTitle,
string strContents,
long lStatus)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(m_BaseMstr);
//add params for the DB stored procedure call
plist.AddInputParameter("pi_nPageID", lPageID);
plist.AddInputParameter("pi_nAuthorID", lAuthorID);
plist.AddInputParameter("pi_vTitle", strTitle);
plist.AddInputParameterCLOB("pi_cContents", strContents);
plist.AddInputParameter("pi_nStatus", lStatus);
//Execute Stored Procedure Call
m_BaseMstr.DBConn.ExecuteOracleSP("PCK_CMS.EditPage",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
m_BaseMstr.StatusCode = lStatusCode;
m_BaseMstr.StatusComment = strStatusComment;
// 0 = success if strStatus is populated it will show on the screen
// 1 to n are errors and we always show errors
if (lStatusCode == 0)
{
return(true);
}
return(false);
}
