Sarand/PatientMgr-CSharp
3
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

SB 11-Jun-2019, make changes in DbasMgr > CoreMgr (Exist&DataValue)

Browse Source
This commit is contained in:
sbrignell
2019-06-11 11:43:34 +01:00
parent d095c366bc
commit 065ed7fe93
35 changed files with 1046 additions and 1168 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SaPatMgrWinDbas/Win/Dbas/Mgr/SpmDepartmentMgr_Dbas-Procedure.cs
+9 -82
View File
@@ -25,22 +25,20 @@ namespace Sarand.PatientMgr.Win.Dbas.Mgr
//*******************************************************************
// A d m i s s i o n A c t i o n
//*******************************************************************
//-------------------------------------------------------------------
// Data members.
//-------------------------------------------------------------------
// Utilities.
//-------------------------------------------------------------------
// Procedure exists.
public override bool ProcedureExistsById(SysId procedureId)
// Create Procedure.
public override SpmProcedure CreateProcedure(SysId procedureId, SysId departmentId)
{
return new SpmProcedure_Dbas(UserContext, procedureId, departmentId, 0);
}
private SpmProcedure_Dbas CreateProcedure(SwmProcedure_Db dbProcedure)
{
ClearErrorState();
if (!SysId.IsValid(procedureId)) return false;
SpmProcedure.Params prmProcedure = new SpmProcedure.Params();
prmProcedure.IncludedIds.Add(procedureId);
prmProcedure.StatusCat = SpmProcedure.StatusCat.Any;
return GetProcedureCount(prmProcedure) == 1;
SpmProcedure_Dbas procedure = new SpmProcedure_Dbas(UserContext, new SysId(dbProcedure._Id), new SysId(dbProcedure._DepartmentId), (ushort)dbProcedure._Flags);
PopulateFrom(dbProcedure, procedure);
return procedure;
}
//-------------------------------------------------------------------
@@ -79,48 +77,6 @@ namespace Sarand.PatientMgr.Win.Dbas.Mgr
}
return procedure;
}
public override SpmProcedure GetProcedureById(SysId procedureId)
{
ClearErrorState();
if (!SysId.IsValid(procedureId)) return null;
SpmProcedure.Params prmProcedure = new SpmProcedure.Params();
prmProcedure.IncludedIds.Add(procedureId);
prmProcedure.StatusCat = SpmProcedure.StatusCat.Any;
return GetProcedure(prmProcedure);
}
public override SpmProcedure GetProcedureByCode(String operationCode)
{
ClearErrorState();
if (!StringUtil.IsEmpty(operationCode)) return null;
SpmProcedure.Params prmProcedure = new SpmProcedure.Params();
prmProcedure.OperationCode = operationCode;
prmProcedure.StatusCat = SpmProcedure.StatusCat.Any;
return GetProcedure(prmProcedure);
}
public override SpmProcedure GetProcedureByOperationId(SysId operationId)
{
ClearErrorState();
if (!SysId.IsValid(operationId)) return null;
SpmProcedure.Params prmProcedure = new SpmProcedure.Params();
prmProcedure.IncludedIds.Add(operationId);
prmProcedure.OperationId = operationId;
prmProcedure.StatusCat = SpmProcedure.StatusCat.Any;
return GetProcedure(prmProcedure);
}
//-------------------------------------------------------------------
// Create Procedure.
public override SpmProcedure CreateProcedure(SysId procedureId, SysId departmentId)
{
return new SpmProcedure_Dbas(UserContext, procedureId, departmentId, 0);
}
private SpmProcedure_Dbas CreateProcedure(SwmProcedure_Db dbProcedure)
{
ClearErrorState();
SpmProcedure_Dbas procedure = new SpmProcedure_Dbas(UserContext, new SysId(dbProcedure._Id), new SysId(dbProcedure._DepartmentId), (ushort)dbProcedure._Flags);
PopulateFrom(dbProcedure, procedure);
return procedure;
}
//-------------------------------------------------------------------
// Validate Procedure.
@@ -559,35 +515,6 @@ namespace Sarand.PatientMgr.Win.Dbas.Mgr
//return new DbResultSet_DataTableReader(db, query.BuildQuery());
return new Sarand.Win.Dbas.Data.DbResultSet_DataReader(db, query.BuildQuery());
}
//-------------------------------------------------------------------
public override DataValue GetProcedureDataValue(ColumnDfn column, NamedValue.Map values)
{
DataValue value = new DataValue();
switch ((SpmProcedure.Column)column.Id)
{
// Notes.
case SpmProcedure.Column.Notes:
value = new DataValue(SacsHierarchyItem.FormatForDisplay(values.GetValue(column.DataName).ToString(), 200));
break;
// Status.
case SpmProcedure.Column.Status_Desc:
case SpmProcedure.Column.Status_Ind:
{
String statusCode = values.GetValue(column.DataName).ToString();
SaStatus status = SacsSystem.GetStatusForCode(statusCode);
if (column.Id == (int)SpmProcedure.Column.Status_Desc)
value = new DataValue(SacsSystem.GetStatusDescForCode(statusCode));
else if (column.Id == (int)SpmProcedure.Column.Status_Ind)
value = new DataValue(SpmProcedure.GetStatusTriState(status));
}
break;
//-----------------------------------------------------------
}
return value;
}
//-------------------------------------------------------------------
}
//=======================================================================