//UPDATE DIAGNOSIS ---------------------------------------------------
public bool UpdateDiagnosis(BaseMaster BaseMstr,
string strPatientID,
string strEncounterID,
long lTreatmentID,
long lProblemID,
long lDiagnosisID,
long lSpecifierID,
string strAxis3Text,
string strComment,
long lSortOrder)
{
//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", strPatientID);
pList.AddInputParameter("pi_vEncounterID", strEncounterID);
pList.AddInputParameter("pi_nTreatmentID", lTreatmentID);
//
pList.AddInputParameter("pi_nProblemID", lProblemID);
pList.AddInputParameter("pi_nDiagnosisID", lDiagnosisID);
pList.AddInputParameter("pi_nSpecifierID", lSpecifierID);
pList.AddInputParameter("pi_vAxis3Text", strAxis3Text);
pList.AddInputParameter("pi_vComment", strComment);
pList.AddInputParameter("pi_nSortOrder", lSortOrder);
//Execute Oracle stored procedure
BaseMstr.DBConn.ExecuteOracleSP("PCK_DIAGNOSIS.UpdateDiagnosis",
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 InsertEncIntakeScore(BaseMaster BaseMstr,
string strEncounterID,
long lEncIntakeID,
long lMID,
long lScoreType,
double lScore,
long lPCent,
string strInterpret,
long lSeries,
long lIntakeGroup)
{
//status info
long lStatusCode = 0;
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_vEncounterID", strEncounterID);
plist.AddInputParameter("pi_nEncIntakeID", lEncIntakeID);
plist.AddInputParameter("pi_nMID", lMID);
plist.AddInputParameter("pi_nScoreType", lScoreType);
plist.AddInputParameter("pi_nScore", lScore);
plist.AddInputParameter("pi_nPCent", lPCent);
plist.AddInputParameter("pi_vInterpret", strInterpret);
plist.AddInputParameter("pi_nSeries", lSeries);
plist.AddInputParameter("pi_nIntakeGroup", lIntakeGroup);
BaseMstr.DBConn.ExecuteOracleSP("PCK_INTAKE.InsertEncIntakeScore",
plist,
out lStatusCode,
out strStatusComment);
//set the base mastekr 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)
{
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);
}
//creates an encounter for the patient/treatment/encounter type/
public bool CreateEncounter(BaseMaster BaseMstr,
string strPatientID,
long lTreatmentID,
long lEncounterType,
out string strNewEncID)
{
strNewEncID = "";
//status info
long lStatusCode = -1;
string strStatusComment = "";
//get a new encounter id
string strEncID = BaseMstr.APPMaster.GetNewEncounterID();
//create a new parameter list with standard params from basemstr
CDataParameterList pList = new CDataParameterList(BaseMstr);
pList.AddInputParameter("pi_vPatientID", strPatientID);
pList.AddInputParameter("pi_vTreatmentID", lTreatmentID);
pList.AddInputParameter("pi_vNewEncID", strEncID);
//0=initial, 6=other, 7=admin note, 8=group note
pList.AddInputParameter("pi_nEncounterType", lEncounterType);
//Execute Oracle stored procedure
BaseMstr.DBConn.ExecuteOracleSP("PCK_ENCOUNTER.CreateEncounter",
pList,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
//pass back the ecnounter id
strNewEncID = strEncID;
return(true);
}
else
{
return(false);
}
}
//update system settings...
//ReVamp Not Needed - Remove
// Original Method public bool UpdateSystemSettings(BaseMaster BaseMstr,
// string strMailSMTPHost,
// string strSenderEmail,
// long lMailSMTPPort,
// string strSiteURL,
// string strNotifyEmail,
// long lHasMilitaryDetail,
// long lHasPatientSupervisorInput,
// long lHasPatientInsurance,
// long lBranchOfService
// )
public bool UpdateSystemSettings(BaseMaster BaseMstr,
string strMailSMTPHost,
string strSenderEmail,
long lMailSMTPPort,
string strSiteURL,
string strNotifyEmail
)
{
//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_vMailSMTPHost", strMailSMTPHost);
plist.AddInputParameter("pi_vSenderEmailAddress", strSenderEmail);
plist.AddInputParameter("pi_nMailSMTPPort", lMailSMTPPort);
plist.AddInputParameter("pi_vSiteURL", strSiteURL);
plist.AddInputParameter("pi_vNotifyEmailAddress", strNotifyEmail);
//ReVamp Not Needed - Remove
//plist.AddInputParameter("pi_nHasMilitaryDetail", lHasMilitaryDetail);
//plist.AddInputParameter("pi_nHasPatientSupervisorInput", lHasPatientSupervisorInput);
//plist.AddInputParameter("pi_nHasPatientInsurance", lHasPatientInsurance);
//plist.AddInputParameter("pi_BranchOfService", lBranchOfService);
BaseMstr.DBConn.ExecuteOracleSP("PCK_SYSTEM_SETTINGS.UpdateSystemSettings",
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)
{
return(true);
}
return(false);
}
/// <summary>
/// gets a cached session value from the database.
/// stored encrypted and more secure then an asp.net session var
/// </summary>
/// <param name="strKey"></param>
/// <param name="strKeyValue"></param>
/// <returns></returns>
public bool GetSessionValue(string strKey,
out string strKeyValue)
{
strKeyValue = "";
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list
CDataParameterList pList = new CDataParameterList();
//in paramaters
//these will always be passed in to all sp calls
pList.AddParameter("pi_vDBSessionID", DBSessionID, ParameterDirection.Input);
pList.AddParameter("pi_vWebSessionID", ASPSessionID, ParameterDirection.Input);
pList.AddParameter("pi_vSessionClientIP", ClientIP, ParameterDirection.Input);
pList.AddParameter("pi_nUserID", FXUserID, ParameterDirection.Input);
//
pList.AddParameter("pi_vKey", strKey, ParameterDirection.Input);
pList.AddParameter("po_vKeyValue", strKeyValue, ParameterDirection.Output);
//
//execute the stored procedure
DBConn.ExecuteOracleSP("PCK_FX_SEC.GetSessionValue",
pList,
out lStatusCode,
out 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_vKeyValue");
strKeyValue = paramValue.StringParameterValue;
return(true);
}
strKeyValue = "";
return(false);
}
public bool UpdateFacilityInfo(BaseMaster BaseMstr,
string strSiteID,
string strSiteName,
string strSiteAddress,
string strSiteCity,
string strSiteState,
string strSitePostalCode)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//todo: add in additional params for the DB call
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vSiteID", strSiteID);
plist.AddInputParameter("pi_vSiteName", strSiteName);
plist.AddInputParameter("pi_vSiteAddress1", strSiteAddress);
plist.AddInputParameter("pi_vSiteCity", strSiteCity);
plist.AddInputParameter("pi_vSiteState", strSiteState);
plist.AddInputParameter("pi_vSitePostalCode", strSitePostalCode);
BaseMstr.DBConn.ExecuteOracleSP("PCK_USER_ADMIN.UpdateFacilityInfo",
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)
{
return(true);
}
return(false);
}
//gets current mids from the stat_module_constant table
public bool GetCurrentMIDS(BaseMaster BaseMstr,
out int nReasonForReferralMID,
out int nSuicideMID,
out int nMSEMID,
out int nSubsequentEventMID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//init the outs
nReasonForReferralMID = -1;
nSuicideMID = -1;
nMSEMID = -1;
nSubsequentEventMID = -1;
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_INTAKE.GetStatModuleConstantRS",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
CDataUtils util = new CDataUtils();
nReasonForReferralMID = util.GetIntValueFromDS(ds, "RFR_MODULE");
nMSEMID = util.GetIntValueFromDS(ds, "MSE_MODULE");
nSuicideMID = util.GetIntValueFromDS(ds, "SUICIDE_MODULE");
nSubsequentEventMID = util.GetIntValueFromDS(ds, "RFR_SE_MODULE");
return(true);
}
return(false);
}
public bool UpdateDMISBase(BaseMaster BaseMstr,
string strDMISID,
string strBaseDesc,
string strBaseShortName,
int iActive,
long lMajComID
)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//todo: add in additional params for the DB call
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vDMISID", strDMISID);
plist.AddInputParameter("pi_vBaseDesc", strBaseDesc);
plist.AddInputParameter("pi_vBaseShortName", strBaseShortName);
plist.AddInputParameter("pi_nActive", iActive);
plist.AddInputParameter("pi_nMajComID", lMajComID);
BaseMstr.DBConn.ExecuteOracleSP("PCK_Military.UpdateDMISBase",
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)
{
return(true);
}
return(false);
}
public bool UpdateDiagnosisA3(BaseMaster BaseMstr,
long lProblemID,
string strPatientID,
string strDiagText,
long lSeeMedRec,
long lContributory,
string strComment,
long lSortOrder)
{
//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_nProblemID", lProblemID);
pList.AddInputParameter("pi_vPatientID", strPatientID);
pList.AddInputParameter("pi_vDiagText", strDiagText);
pList.AddInputParameter("pi_nSeeMedRec", lSeeMedRec);
pList.AddInputParameter("pi_nContributory", lContributory);
pList.AddInputParameter("pi_vDiagComment", strComment);
pList.AddInputParameter("pi_nSortOrder", lSortOrder);
//Execute Oracle stored procedure
BaseMstr.DBConn.ExecuteOracleSP("PCK_DIAGNOSIS.UpdateDiagnosisA3",
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 OnEncounterIntakeEnd( long lMID, string strEncounterID, long lEncounterIntakeID)
{
//add params for the DB call in paramaters
//these will always be passed in to all sp calls
CDataParameterList pList = ItemList();
pList.AddInputParameter("pi_nMID", lMID);
pList.AddInputParameter("pi_vEncounterID", strEncounterID);
pList.AddInputParameter("pi_nEncounterIntakeID", lEncounterIntakeID);
//execute the stored procedure
m_DBConn.ExecuteOracleSP("PCK_ENCOUNTER_INTAKE.OnEncounterIntakeEnd",
pList,
out m_lErrorStatus,
out m_strErrorComment);
// 0 = success if strStatus is populated it will show on the screen
// 1 to n are errors and we always show errors
return ErrorHandler();
}
//----------------------------------------------------------
public DataSet GetIntakesForEducationRS( string strPatientID )
{
//add params for the DB call in paramaters
//these will always be passed in to all sp calls
CDataParameterList pList = ItemList();
pList.AddInputParameter("pi_vPatientID", strPatientID);
//get a dataset from the sp call
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(m_DBConn,
"PCK_ENCOUNTER_INTAKE.GetIntakesForEducationRS",
pList,
out m_lErrorStatus,
out m_strErrorComment);
ErrorHandler();
return ds;
}
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 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);
//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);
}
////load a check list of Intake Modules
//public void LoadPatientIntakeCheckList(BaseMaster BaseMstr,
// CheckBoxList chklst)
//{
// //get the data to load
// DataSet ds = GetPatientModulesDS(BaseMstr,
// strPatientID);
// //load the combo
// CCheckBoxList cl = new CCheckBoxList();
// cl.RenderDataSet(BaseMstr,
// ds,
// chklst,
// "MODULE",
// "MID");
//}
//insert patient modules...
public bool InsertPatientModules(BaseMaster BaseMstr,
string strPatientID,
string strAssignProviderID,
DateTime dtDateAssigned,
long lMID,
long lModuleGroup,
string strStatus)
{
//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_vPatientID", strPatientID);
plist.AddInputParameter("pi_vAssignProviderID", strAssignProviderID);
plist.AddInputParameter("pi_dDateAssigned", dtDateAssigned);
plist.AddInputParameter("pi_nMID", lMID);
plist.AddInputParameter("pi_nModuleGroup", lModuleGroup);
plist.AddInputParameter("pi_vStatus", strStatus);
BaseMstr.DBConn.ExecuteOracleSP("PCK_INTAKE.InsertPatientModules",
plist,
out lStatusCode,
out strStatusComment);
//set the base mastekr 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)
{
return(true);
}
return(false);
}
/// <summary>
/// caches a session value in the database.
/// stored encrypted and more secure then an asp.net session var
/// </summary>
/// <param name="strKey"></param>
/// <param name="strKeyValue"></param>
/// <returns></returns>
public bool SetSessionValue(string strKey,
string strKeyValue)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
if (!IsLoggedIn())
{
return(true);
}
//create a new parameter list
CDataParameterList pList = new CDataParameterList();
//add params for the DB call
//
//in paramaters
//these will always be passed in to all sp calls
pList.AddParameter("pi_vSessionID", DBSessionID, ParameterDirection.Input);
pList.AddParameter("pi_vSessionClientIP", ClientIP, ParameterDirection.Input);
pList.AddParameter("pi_nUserID", FXUserID, ParameterDirection.Input);
//
pList.AddParameter("pi_vKey", strKey, ParameterDirection.Input);
pList.AddParameter("pi_vKeyValue", strKeyValue, ParameterDirection.Input);
//
//execute the stored procedure
DBConn.ExecuteOracleSP("PCK_FX_SEC.SetSessionValue",
pList,
out lStatusCode,
out 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);
}
public DataSet GetEncounterIntakeResponseDS(BaseMaster BaseMstr,
string strEncounterID,
int iEncounterIntakeID,
int iMID)
{
//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_vEncounterID", strEncounterID);
plist.AddInputParameter("pi_nEncounterIntakeID", iEncounterIntakeID);
plist.AddInputParameter("pi_nMID", iMID);
//todo: add in additional params for the DB call
//add params for the DB stored procedure call
//
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_ENCOUNTER_INTAKE.GetEncounterIntakeResponseRS",
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(ds);
}
else
{
return(null);
}
}
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 UpdateTemplateGroup(BaseMaster BaseMstr,
string strName,
string strComments,
long lTemplateGrpID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
/*
* pi_nTemplateGrpID in number,
* pi_vTemplateGrpName in varchar2,
* pi_vComments in varchar2,
*/
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vTemplateGrpName", strName);
plist.AddInputParameter("pi_vComments", strComments);
plist.AddInputParameter("pi_nTemplateGrpID", lTemplateGrpID);
BaseMstr.DBConn.ExecuteOracleSP("PCK_TEMPLATE.UpdateTemplateGroup",
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)
{
return(true);
}
return(false);
}
public bool InsertProblemCriteria(BaseMaster BaseMstr,
string strPatientID,
string strEncounterID,
long lTreatmentID,
long lProblemID,
long lDiagnosisID)
{
//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", strPatientID);
pList.AddInputParameter("pi_vEncounterID", strEncounterID);
pList.AddInputParameter("pi_nTreatmentID", lTreatmentID);
//
pList.AddInputParameter("pi_nProblemID", lProblemID);
pList.AddInputParameter("pi_nDiagnosisID", lDiagnosisID);
//pList.AddInputParameter("pi_nIntakeProblemID", lIntakeProblemID);
//Execute Oracle stored procedure
BaseMstr.DBConn.ExecuteOracleSP("PCK_DIAGNOSIS.InsertCriteriaDefinition",
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 InsertPatientStep(long lStep)
{
//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
/*
* pi_vPatientID in varchar2,
* pi_nStep in number,
*/
plist.AddInputParameter("pi_vPatientID", m_BaseMstr.SelectedPatientID);
plist.AddInputParameter("pi_nStep", lStep);
//get a dataset from the sp call todo change call to executeSP and use connection to
//switch on type and call correct code
m_BaseMstr.DBConn.ExecuteOracleSP("PCK_PATIENT_TX_STEP.InsertPatientStep",
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)
{
this.SetBaseMstrPatientStep();
return(true);
}
return(false);
}
//update dataset of encounter flags
public bool UpdateEncounterTODO(BaseMaster BaseMstr,
string strPatientID,
string strEncounterID,
long lTODOID,
string strResult,
string strComments)
{
//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", strPatientID);
plist.AddInputParameter("pi_vEncounterID", strEncounterID);
plist.AddInputParameter("pi_nTODOID", lTODOID);
plist.AddInputParameter("pi_vResult", strResult);
plist.AddInputParameter("pi_vComments", strComments);
//
BaseMstr.DBConn.ExecuteOracleSP("PCK_ENCOUNTER.UpdateEncounterTODO",
plist,
out lStatusCode,
out strStatusComment);
//set the base master status code and status for display
BaseMstr.StatusCode = lStatusCode;
BaseMstr.StatusComment = strStatusComment;
if (lStatusCode == 0)
{
//BaseMstr.StatusComment = "To Do's - Updated";
return(true);
}
else
{
return(false);
}
}
public bool ResetPassword(long lFXUserID,
string strUserName,
string strPassword)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
m_BaseMstr.FXUserID = lFXUserID;
//create a new parameter list
CDataParameterList plist = new CDataParameterList(m_BaseMstr);
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vKey", m_BaseMstr.Key);
plist.AddInputParameter("pi_nFXUserID", lFXUserID);
plist.AddInputParameter("pi_vUserName", sec.Enc(strUserName.ToLower(), ""));
plist.AddInputParameter("pi_vPassword", sec.Enc(strPassword, ""));
plist.AddInputParameter("pi_vCPassword", strPassword);
plist.AddInputParameter("pi_vCUserName", strUserName);
m_BaseMstr.DBConn.ExecuteOracleSP("PCK_FX_SEC.ResetPassword",
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);
}
//get a dataset of majcoms
public DataSet GetMAJCOMBaseDS(BaseMaster BaseMstr,
long lMAJCOMID)
{
//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_nMAJCOMID", lMAJCOMID);
//get and return a dataset
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_MILITARY.GetMAJCOMBaseRS",
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(ds);
}
else
{
return(null);
}
//CDataParameter param = new CDataParameter();
//param = pListCriteria.GetItemByName("po_vSelectedOption");
//if (param != null)
//{
// strCriteria = param.StringParameterValue;
//}
}
public bool DeleteAuxSquadrdon(BaseMaster BaseMstr,
string strDMISID,
string strAuxDMISID,
long lAuxSquadronID)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//todo: add in additional params for the DB call
//add params for the DB stored procedure call
plist.AddInputParameter("pi_vDMISID", strDMISID);
plist.AddInputParameter("pi_vAuxDMISID", strAuxDMISID);
plist.AddInputParameter("pi_nAuxSQID", lAuxSquadronID);
BaseMstr.DBConn.ExecuteOracleSP("PCK_MILITARY.DeleteAuxSquadron",
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)
{
return(true);
}
return(false);
}
//----------------------------------------------------------
public DataSet GetAllEncounterFlagsDS( Int32 lPatientID, Int32 lModuleID, long lEncounterID)
{
DataSet ds = null;
//add params for the DB call in paramaters
//these will always be passed in to all sp calls
CDataParameterList pList = ItemList();
pList.AddInputParameter("pi_nModuleID", lModuleID);
pList.AddInputParameter("pi_nEncounterID", lEncounterID);
//get a dataset from the sp call
CDataSet cds = new CDataSet();
ds = cds.GetOracleDataSet(m_DBConn,
"PCK_ENCOUNTER_INTAKE.getEncounterFlagsRS",
pList,
out m_lErrorStatus,
out m_strErrorComment);
ErrorHandler();
return ds;
}
public DataSet GetParsedTemplate2DS(BaseMaster BaseMstr,
string strPatientID,
string strEncounterID,
long lTemplateID)
{
//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", strPatientID);
plist.AddInputParameter("pi_vEncounterID", strEncounterID);
plist.AddInputParameter("pi_nTemplateID", lTemplateID);
//use helper to get a dataset from the sp call
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_TEMPLATE.GetParsedTemplate2RS",
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(ds);
}
else
{
return(null);
}
}
//----------------------------------------------------------
//public bool NewEncounterIntake(Int32 lModuleID, bool bAltLang, string strPatientID, string strEncounterID, out int nEncounterIntakeID)
public bool NewEncounterIntake(bool bAltLang, out int nEncounterIntakeID)
{
nEncounterIntakeID = 0;
long lOutAltLang = 0;
if (bAltLang)
{
lOutAltLang = 1;
}
else
{
lOutAltLang = 0;
}
//add params for the DB call in paramaters
//these will always be passed in to all sp calls
CDataParameterList pList = ItemList();
pList.AddInputParameter("pi_nModuleID", m_nMID);
pList.AddInputParameter("pi_vEncounterID", m_strEncounterID);
pList.AddInputParameter("pi_nAltLang", lOutAltLang);
pList.AddOutputParameter("po_nEncounterIntakeID", nEncounterIntakeID);
//execute the stored procedure
m_DBConn.ExecuteOracleSP("PCK_ENCOUNTER_INTAKE.NewEncounterIntake",
pList,
out m_lErrorStatus,
out m_strErrorComment);
if (m_lErrorStatus > 0)
{
return ErrorHandler();
}
CDataParameter paramValue = pList.GetItemByName("po_nEncounterIntakeID");
nEncounterIntakeID = (int) paramValue.LongParameterValue;
m_lEncounterIntakeID = nEncounterIntakeID;
return true;
}
//get a dataset of patients Demographicss
public DataSet GetIntakeSummaryDS(BaseMaster BaseMstr,
long lMID,
string strPatientID,
string strEncounterID,
long lEncIntakeID)
{
//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_nMID", lMID);
plist.AddInputParameter("pi_vPatientID", strPatientID);
plist.AddInputParameter("pi_vEncounterID", strEncounterID);
plist.AddInputParameter("pi_nEncIntakeID", lEncIntakeID);
//
CDataSet cds = new CDataSet();
DataSet ds = cds.GetOracleDataSet(BaseMstr.DBConn,
"PCK_INTAKE.GetIntakeSummaryRS",
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(ds);
}
else
{
return(null);
}
}
public bool UpdateRightsTemplate(BaseMaster BaseMstr,
long lUserType,
long lUserRights,
long lRightsMode)
{
//status info
long lStatusCode = -1;
string strStatusComment = "";
//create a new parameter list with standard params from basemstr
CDataParameterList plist = new CDataParameterList(BaseMstr);
//todo: add in additional params for the DB call
//add params for the DB stored procedure call
plist.AddInputParameter("pi_nUserType", lUserType);
plist.AddInputParameter("pi_nUserRights", lUserRights);
plist.AddInputParameter("pi_nRightsMode", lRightsMode);
BaseMstr.DBConn.ExecuteOracleSP("PCK_AP_USERADMIN.InsertRightsTemplate",
plist,
out lStatusCode,
out strStatusComment);
//set the base mastekr 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)
{
return(true);
}
return(false);
}
