/// <summary>
/// returns a dataset of patient checklist items
/// filtered by patient checklist id (PAT_CL_ID)
/// </summary>
/// <param name="lPatCLID"></param>
/// <param name="ds"></param>
/// <param name="lStatusCode"></param>
/// <param name="strStatus"></param>
/// <returns></returns>
public CStatus GetPatCLItemsByPatCLIDDS(long lPatCLID,
out long lColTSStateID,
out long lColOSStateID,
out long lColDSStateID,
out long lSummaryStateID,
out DataSet ds)
{
//initialize parameters
lColTSStateID = 0;
lColOSStateID = 0;
lColDSStateID = 0;
lSummaryStateID = 0;
ds = null;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(SessionID, ClientIP, UserID);
long lOutColTSStateID = 0;
long lOutColOSStateID = 0;
long lOutColDSStateID = 0;
long lOutSummaryStateID = 0;
pList.AddInputParameter("pi_nPatCLID", lPatCLID);
pList.AddOutputParameter("po_nColTSStateID", lOutColTSStateID);
pList.AddOutputParameter("po_nColOSStateID", lOutColOSStateID);
pList.AddOutputParameter("po_nColDSStateID", lOutColDSStateID);
pList.AddOutputParameter("po_nSummaryStateID", lOutSummaryStateID);
//get the dataset
CDataSet cds = new CDataSet();
status = cds.GetOracleDataSet(DBConn,
"PCK_PAT_CHECKLIST_ITEM.GetPatCLItemsByPatCLIDRS",
pList,
out ds);
if (status.Status)
{
//get the out params from the SP call
lColTSStateID = pList.GetParamLongValue("po_nColTSStateID");
lColOSStateID = pList.GetParamLongValue("po_nColOSStateID");
lColDSStateID = pList.GetParamLongValue("po_nColDSStateID");
lSummaryStateID = pList.GetParamLongValue("po_nSummaryStateID");
}
return(status);
}
/// <summary>
/// Used to insert a temporal state
/// </summary>
/// <param name="tsdi"></param>
/// <param name="lTSID"></param>
/// <param name="lStatusCode"></param>
/// <param name="strStatus"></param>
/// <returns></returns>
public CStatus InsertTemporalState(CTemporalStateDataItem tsdi, out long lTSID)
{
//initialize parameters
lTSID = 0;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(SessionID,
ClientIP,
UserID);
//add the rest of the parameters
pList.AddInputParameter("pi_vTSLabel", tsdi.TSLabel);
pList.AddInputParameter("pi_nTSDefinitionID", tsdi.TSDefinitionID);
pList.AddInputParameter("pi_nIsActive", (long)((tsdi.IsActive) ? k_TRUE_FALSE_ID.True: k_TRUE_FALSE_ID.False));
pList.AddOutputParameter("po_nTSID", lTSID);
//execute the SP
status = DBConn.ExecuteOracleSP("PCK_VARIABLE.InsertTemporalState", pList);
if (status.Status)
{
//get the TS_ID returned from the SP call
lTSID = pList.GetParamLongValue("po_nTSID");
}
return(status);
}
/// <summary>
/// method
/// inserts a service record into the database
/// </summary>
/// <param name="di"></param>
/// <param name="lServiceID"></param>
/// <returns></returns>
public CStatus InsertService(CServiceDataItem di, out long lServiceID)
{
//initialize parameters
lServiceID = 0;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(SessionID, ClientIP, UserID);
//add the rest of the parameters
pList.AddInputParameter("pi_vServiceLabel", di.ServiceLabel);
pList.AddInputParameter("pi_nIsActive", (long)((di.IsActive) ? k_TRUE_FALSE_ID.True : k_TRUE_FALSE_ID.False));
pList.AddOutputParameter("po_nServiceID", di.ServiceID);
//execute the SP
status = DBConn.ExecuteOracleSP("PCK_VARIABLE.InsertService", pList);
if (status.Status)
{
lServiceID = pList.GetParamLongValue("po_nServiceID");
}
return(status);
}
/// <summary>
/// Used to save a checklist as a new checklist with a new ID
/// </summary>
/// <param name="lChecklistID"></param>
/// <param name="strNewLabel"></param>
/// <param name="lNewChecklistID"></param>
/// <returns></returns>
public CStatus SaveAs(long lChecklistID,
string strNewLabel,
out long lNewChecklistID)
{
//initialize parameters
lNewChecklistID = 0;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(SessionID,
ClientIP,
UserID);
//add the rest of the parameters
pList.AddInputParameter("pi_nChecklistID", lChecklistID);
pList.AddInputParameter("pi_vNewLabel", strNewLabel);
pList.AddInputParameter("po_nNewChecklistID", lNewChecklistID);
//execute the SP
status = DBConn.ExecuteOracleSP("PCK_CHECKLIST.SaveAs", pList);
if (status.Status)
{
//get the TS_ID returned from the SP call
lNewChecklistID = pList.GetParamLongValue("po_nNewChecklistID");
}
return(status);
}
/// <summary>
/// Used to insert and item component state
/// </summary>
/// <param name="icsState"></param>
/// <param name="lICStateID"></param>
/// <param name="lStatusCode"></param>
/// <param name="strStatus"></param>
/// <returns></returns>
public CStatus InsertICState(CICStateDataItem icsState, out long lICStateID)
{
//initialize parameters
lICStateID = 0;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(SessionID, ClientIP, UserID);
// procedure specific parameters
pList.AddInputParameter("pi_nItemID", icsState.ItemID);
pList.AddInputParameter("pi_nItemComponentID", icsState.ItemComponentID);
pList.AddInputParameter("pi_nStateID", icsState.StateID);
pList.AddOutputParameter("po_nICStateID", lICStateID);
//execute the SP
status = DBConn.ExecuteOracleSP("PCK_ITEM_COMPONENT.InsertICState", pList);
if (status.Status)
{
//get the TS_ID returned from the SP call
lICStateID = pList.GetParamLongValue("po_nICStateID");
}
return(status);
}
public CStatus HasPatientChecklist(
long lChecklistID,
long lChecklistStateID,
string strPatientID,
out bool bHasPatCL)
{
//initialize parameters
bHasPatCL = false;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(
SessionID,
ClientIP,
UserID);
pList.AddInputParameter("pi_nChecklistID", lChecklistID);
pList.AddInputParameter("pi_nChecklistStateID", lChecklistStateID);
pList.AddInputParameter("pi_vPatientID", strPatientID);
long lHasPatCL = 0;
pList.AddOutputParameter("po_nHasPatCL", lHasPatCL);
//get the dataset
status = DBConn.ExecuteOracleSP("PCK_PAT_CHECKLIST.HasPatientChecklist", pList);
if (!status.Status)
{
return(status);
}
//get the TS_ID returned from the SP call
bHasPatCL = (pList.GetParamLongValue("po_nHasPatCL") > 0) ? true : false;
return(new CStatus());
}
/// <summary>
/// returns the item component state base on the primary key
/// </summary>
/// <param name="lPatItemID"></param>
/// <param name="lItemCompID"></param>
/// <param name="lItemCompState"></param>
/// <returns></returns>
public CStatus GetItemCompStateByPKey(
long lPatItemID,
long lItemCompID,
out long lItemCompState)
{
//initialize parameters
lItemCompState = 0;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(SessionID, ClientIP, UserID);
pList.AddInputParameter("pi_nPatItemID", lPatItemID);
pList.AddInputParameter("pi_nItemCompID", lItemCompID);
pList.AddOutputParameter("po_nItemCompState", lItemCompState);
//get the dataset
DataSet ds = null;
CDataSet cds = new CDataSet();
status = cds.GetOracleDataSet(
base.DBConn,
"PCK_PATIENT.GetItemCompStateByPKey",
pList,
out ds);
if (!status.Status)
{
return(status);
}
//get the Item Component State returned from the SP call
lItemCompState = pList.GetParamLongValue("po_nItemCompState");
return(status);
}
/// <summary>
/// method
/// inserts and item with the values of the item passed in
/// </summary>
/// <param name="iItem"></param>
/// <param name="lItemID"></param>
/// <returns></returns>
public CStatus InsertItem(CItemDataItem iItem, out long lItemID)
{
//initialize parameters
lItemID = 0;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(SessionID, ClientIP, UserID);
// procedure specific parameters
pList.AddInputParameter("pi_nItemTypeID", iItem.ItemTypeID);
pList.AddInputParameter("pi_nItemGroupID", iItem.ItemGroupID);
pList.AddInputParameter("pi_vItemLabel", iItem.ItemLabel);
pList.AddInputParameter("pi_vItemDescription", iItem.ItemDescription);
pList.AddInputParameter("pi_nLookbackTime", iItem.LookbackTime);
pList.AddInputParameter("pi_nActiveID", (long)iItem.ActiveID);
pList.AddInputParameter("pi_vMapID", iItem.MapID);
pList.AddOutputParameter("po_nItemID", lItemID);
//execute the SP
status = DBConn.ExecuteOracleSP("PCK_ITEM.InsertItem", pList);
if (!status.Status)
{
return(status);
}
lItemID = pList.GetParamLongValue("po_nItemID");
return(new CStatus());
}
/// <summary>
/// US:1951 US:1945 User to insert a checkList
/// </summary>
/// <param name="cli"></param>
/// <param name="lChecklistID"></param>
/// <returns></returns>
public CStatus InsertChecklist(CChecklistDataItem cli, out long lChecklistID)
{
//initialize parameters
lChecklistID = 0;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(SessionID,
ClientIP,
UserID);
//add the rest of the parameters
pList.AddInputParameter("pi_vChecklistLabel", cli.ChecklistLabel);
pList.AddInputParameter("pi_nServiceID", cli.ServiceID);
pList.AddInputParameter("pi_vChecklistDescription", cli.ChecklistDescription);
pList.AddInputParameter("pi_nIsActive", (long)cli.ActiveID);
pList.AddInputParameter("pi_vNoteTitleTag", cli.NoteTitleTag);
pList.AddInputParameter("pi_nNoteTitleClinicID", cli.NoteTitleClinicID);
pList.AddOutputParameter("po_nChecklistID", lChecklistID);
//execute the SP
status = DBConn.ExecuteOracleSP("PCK_CHECKLIST.InsertChecklist", pList);
if (status.Status)
{
//get the TS_ID returned from the SP call
lChecklistID = pList.GetParamLongValue("po_nChecklistID");
}
return(status);
}
public CStatus GetMostRecentPICSummaryStateID(
string strPatientID,
long lItemID,
out long lSummaryStateID)
{
//initialize parameters
lSummaryStateID = -1;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(
base.SessionID,
base.ClientIP,
base.UserID);
//add the rest of the parameters
pList.AddInputParameter("pi_vPatientID", strPatientID);
pList.AddInputParameter("pi_nItemID", lItemID);
pList.AddOutputParameter("po_nSummaryStateID", lSummaryStateID);
//execute the SP
status = base.DBConn.ExecuteOracleSP("PCK_PAT_ITEM.GetMostRecentPICSummaryStateID", pList);
if (!status.Status)
{
return(status);
}
//get the ID returned from the SP call
lSummaryStateID = pList.GetParamLongValue("po_nSummaryStateID");
return(status);
}
/// <summary>
/// method
/// US:838
/// Used to insert a pat checkList
/// </summary>
/// <param name="pci"></param>
/// <param name="lPatCLID"></param>
/// <returns></returns>
public CStatus InsertPatChecklist(CPatChecklistDataItem pci, out long lPatCLID)
{
//initialize parameters
lPatCLID = 0;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(SessionID, ClientIP, UserID);
//add the rest of the parameters
pList.AddInputParameter("pi_vPatientID", pci.PatientID);
pList.AddInputParameter("pi_nChecklistID", pci.ChecklistID);
pList.AddInputParameter("pi_dtAssignmentDate", pci.AssignmentDate);
pList.AddInputParameter("pi_dtProcedureDate", pci.ProcedureDate);
pList.AddInputParameter("pi_nChecklistStateID", (long)pci.ChecklistStateID);
pList.AddInputParameter("pi_nStateID", (long)pci.StateID);
pList.AddOutputParameter("po_nPatCLID", lPatCLID);
//execute the SP
status = DBConn.ExecuteOracleSP("PCK_PAT_CHECKLIST.InsertPatChecklist", pList);
if (!status.Status)
{
return(status);
}
//get the TS_ID returned from the SP call
lPatCLID = pList.GetParamLongValue("po_nPatCLID");
return(new CStatus());
}
/// <summary>
/// insert a patient item
/// </summary>
/// <param name="di"></param>
/// <param name="lPatItemID"></param>
/// <param name="lStatusCode"></param>
/// <param name="strStatus"></param>
/// <returns></returns>
private CStatus InsertPatientItem(CPatientItemDataItem di, out long lPatItemID)
{
//initialize parameters
lPatItemID = -1;
//create a status object and check for valid dbconnection
CStatus status = DBConnValid();
if (!status.Status)
{
return(status);
}
//load the paramaters list
CParameterList pList = new CParameterList(base.SessionID,
base.ClientIP,
base.UserID);
//add the rest of the parameters
pList.AddInputParameter("pi_vPatientID", di.PatientID);
pList.AddInputParameter("pi_nItemID", di.ItemID);
pList.AddInputParameter("pi_dtEntryDate", di.EntryDate);
pList.AddInputParameter("pi_nSourceTypeID", di.SourceTypeID);
pList.AddOutputParameter("po_nPatItemID", lPatItemID);
//execute the SP
status = base.DBConn.ExecuteOracleSP("PCK_PAT_ITEM.InsertPatItem", pList);
if (!status.Status)
{
return(status);
}
//get the ID returned from the SP call
lPatItemID = pList.GetParamLongValue("po_nPatItemID");
return(status);
}
