using System; using System.Collections.Generic; using System.Data.Common; using System.Linq; using System.Text; using System.Threading.Tasks; using Sarand.Core.App; using Sarand.Core.Base; using Sarand.Core.Bus; using Sarand.Core.Dbas.Base; using Sarand.Win.Dbas.Base; using Sarand.PatientMgr.Core.App; using Sarand.PatientMgr.Core.Bus; using Sarand.PatientMgr.Core.Mgr; using Sarand.PatientMgr.Win.Dbas.Bus; using Sarand.PatientMgr.Win.Dbas.Internal; //using Sarand.PatientMgr.Win.Dbas.UpdateLog; using Sarand.Win.Dbas.Data; namespace Sarand.PatientMgr.Win.Dbas.Mgr { //======================================================================= internal partial class SpmDepartmentMgr_Dbas : SpmDepartmentMgr { //******************************************************************* // A d m i s s i o n A c t i o n //******************************************************************* // Utilities. //------------------------------------------------------------------- // 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; } //------------------------------------------------------------------- // Get Procedure. public override SpmProcedure GetProcedure(SpmProcedure.Params prm) { return GetProcedure(GetProcedureQueryFilter(prm).Concat(" AND ", "(", ")")); } private SpmProcedure GetProcedure(String filter) { ClearErrorState(); long count = GetProcedureCount(filter); if (count == 0) return null; if (count != 1) { SetErrorState("Multiple Procedurees found"); return null; } SpmProcedure procedure = null; // Query data. using (var dbConnection = Database.CreateConnection()) using (var dbCommand = dbConnection.CreateCommand()) { try { dbConnection.Open(); SwmProcedure_Db dbProcedure = new SwmProcedure_Db(DbInfo); dbProcedure.PopulateFrom(dbCommand, aliasProcedure, filter); procedure = CreateProcedure(dbProcedure); } catch (Exception exc) { SetErrorState("Database query exception"); Logger.Warn(GetType().Name + ".GetProcedure\n\tQuery: " + dbCommand.CommandText + "\n\tException: " + exc.Message); } } return procedure; } //------------------------------------------------------------------- // Validate Procedure. public override bool IsValidProcedureData(SpmProcedure.Data data, SpmProcedure.ErrField errField) { ClearErrorState(); if (!base.IsValidProcedureData(data, errField)) return false; return true; } //------------------------------------------------------------------- // Insert Procedure. public override bool InsertProcedure(SpmProcedure procedure, DbUpdateInfo dbUpdateInfo) { ClearErrorState(); if (!IsValidProcedure(procedure)) return false; if (SysId.IsValid(procedure.Id)) return SetErrorState(ErrorMessage.ValiditemId); using (var dbConnection = Database.CreateConnection()) using (var dbCommand = dbConnection.CreateCommand()) { try { dbConnection.Open(); SwmProcedure_Db dbProcedure = new SwmProcedure_Db(DbInfo); PopulateTo(dbProcedure, procedure, dbUpdateInfo); if (SwmProcedure_Db.FieldsNonId.Contains("Id")) { // Generate next Id. dbProcedure._Id = SysId.ToInt(Database.GetNextId("Procedure", dbUpdateInfo)); } dbProcedure.ExecuteInsertCommand(dbCommand); procedure.Id = new SysId(dbProcedure._Id); } catch (Exception exc) { SetErrorState(exc.Message); } } return !HasErrorState(); } //------------------------------------------------------------------- // Update Procedure. public override bool UpdateProcedure(SpmProcedure procedure, DbUpdateInfo dbUpdateInfo) { ClearErrorState(); if (!IsValidProcedure(procedure)) return false; if (!SysId.IsValid(procedure.Id)) return SetErrorState(ErrorMessage.InvalidItemId); using (var dbConnection = Database.CreateConnection()) using (var dbCommand = dbConnection.CreateCommand()) { try { // Retrieve Procedure. dbConnection.Open(); SwmProcedure_Db dbProcedure = new SwmProcedure_Db(DbInfo); dbProcedure.PopulateFrom(dbCommand, aliasProcedure, "Id=" + SysId.ToString(procedure.Id)); //SpmUpdateLogItemMonitor_Procedure updateLogMonitor = new SpmUpdateLogItemMonitor_Procedure(UserContext, CreateProcedure(dbProcedure)); // Update properties. PopulateTo(dbProcedure, procedure, dbUpdateInfo); dbProcedure.ExecuteUpdateCommand(dbCommand); /* Record updates. updateLogMonitor.RecordUpdatedValues(procedure); updateLogMonitor.LogUpdates();*/ } catch (Exception exc) { SetErrorState(exc.Message); } } return !HasErrorState(); } //------------------------------------------------------------------- // Delete Procedure. public override bool ProcedureCanBeDeleted(SpmProcedure procedure) { ClearErrorState(); if (!base.ProcedureCanBeDeleted(procedure)) return false; return true; } public override bool DeleteProcedure(SpmProcedure procedure, DbUpdateInfo dbUpdateInfo) { ClearErrorState(); if (!ProcedureCanBeDeleted(procedure)) return false; using (var dbConnection = Database.CreateConnection()) using (var dbCommand = dbConnection.CreateCommand()) { try { // Retrieve Procedure. dbConnection.Open(); SwmProcedure_Db dbProcedure = new SwmProcedure_Db(DbInfo); dbProcedure.PopulateFrom(dbCommand, aliasProcedure, "Id=" + procedure.Id.ToString()); // Delete Procedure. dbCommand.CommandType = System.Data.CommandType.Text; dbCommand.CommandText = "DELETE FROM " + SpmDbDfn.GetTableName(SpmDbDfn.TableIdx.SwmProcedure) + " WHERE Id=" + SysId.ToString(procedure.Id) + ";"; dbCommand.ExecuteNonQuery(); } catch (Exception exc) { SetErrorState(exc.Message); } } return !HasErrorState(); } //------------------------------------------------------------------- // Copy data properties to and from database. private void PopulateTo(SwmProcedure_Db dbProcedure, SpmProcedure procedure, DbUpdateInfo dbUpdateInfo) { dbProcedure._Id = procedure.Id.ToInt(); dbProcedure._OperationId = procedure.OperationId.ToInt(); dbProcedure._OpnCode = procedure.OperationCode; dbProcedure._Description = procedure.Description; dbProcedure._ComplexityCode = procedure.ComplexityCode; dbProcedure._SpecialityCode = procedure.SpecialityCode; dbProcedure._Duration = procedure.Duration; dbProcedure._Duration_Training = procedure.DurationTraining; dbProcedure._Units = (float)procedure.Units; dbProcedure._Units_Training = (float)procedure.UnitsTraining; dbProcedure._Notes = procedure.Notes; dbProcedure._Status = SacsSystem.GetStatusCode(procedure.Status); dbProcedure._Flags = (short)procedure.Flags; if (!SysId.IsValid(procedure.Id)) { dbProcedure._CreateOn = DateTime.UtcNow; dbProcedure._CreateBy = dbUpdateInfo.UserId.ToInt(); dbProcedure._CreateHost = dbUpdateInfo.Host; } dbProcedure._UpdateOn = DateTime.UtcNow; dbProcedure._UpdateBy = dbUpdateInfo.UserId.ToInt(); dbProcedure._UpdateHost = dbUpdateInfo.Host; } private void PopulateFrom(SwmProcedure_Db dbProcedure, SpmProcedure procedure) { procedure.Id = new SysId(dbProcedure._Id); procedure.OperationId = new SysId(dbProcedure._OperationId); procedure.OperationCode = dbProcedure._OpnCode; procedure.Description = dbProcedure._Description; procedure.ComplexityCode = dbProcedure._ComplexityCode; procedure.SpecialityCode = dbProcedure._SpecialityCode; procedure.Duration = dbProcedure._Duration; procedure.DurationTraining = dbProcedure._Duration_Training; procedure.Units = (decimal)dbProcedure._Units; procedure.UnitsTraining = (decimal)dbProcedure._Units_Training; procedure.Notes = dbProcedure._Notes; procedure.Status = SacsSystem.GetStatusForCode(dbProcedure._Status); procedure.SetCreateStamp(dbProcedure._CreateOn, new SysId(dbProcedure._CreateBy), dbProcedure._CreateHost); procedure.SetUpdateStamp(dbProcedure._UpdateOn, new SysId(dbProcedure._UpdateBy), dbProcedure._UpdateHost); procedure.AcceptChanges(); } //------------------------------------------------------------------- // Procedure column definitions. private static readonly String aliasProcedure = "aProc"; private void SetProcedureColDfn (ColumnDfn col, String caption, int width, SpmDbDfn.ColumnIdx dbCol, ColumnAlignment align = ColumnAlignment.Default, DataValue.DataType dataType = DataValue.DataType.String, String alias = "", String prefix = "") { if (String.IsNullOrEmpty(alias) && SpmDbDfn.GetTableForColumn(dbCol) == SpmDbDfn.TableIdx.SwmProcedure) alias = aliasProcedure; col.Set(caption, width, (int)dbCol, prefix + SpmDbDfn.GetColumnName(dbCol, false), SpmDbDfn.GetColumnNameQual(dbCol, alias), dataType, align); if (dataType == DataValue.DataType.String && dbCol != SpmDbDfn.ColumnIdx.Unknown) col.MaxLength = (int)SpmDbDfn.GetColTextLen(dbCol); } //------------------------------------------------------------------- // Getting prmProcedure column definition. public override ColumnDfn GetProcedureColumnDfn(SpmProcedure.Column columnId, string caption = "", int width = 0) { ColumnDfn columnDfn = new ColumnDfn((int)columnId, caption, width); switch (columnId) { case SpmProcedure.Column.Pos: SetProcedureColDfn(columnDfn, "Pos", 42, SpmDbDfn.ColumnIdx.Unknown, ColumnAlignment.Right); columnDfn.SortMode = ColumnDfn.ColumnSortMode.Off; columnDfn.ReadOnly = true; columnDfn.Resizable = false; break; case SpmProcedure.Column.Id: SetProcedureColDfn(columnDfn, "Id", 40, SpmDbDfn.ColumnIdx.SwmProcedure_Id, ColumnAlignment.Right, DataValue.DataType.Long); columnDfn.ReadOnly = true; break; // Procedure Properties. case SpmProcedure.Column.DepartmentId: SetFacilityColDfn(columnDfn, "DepartmentId", 45, SpmDbDfn.ColumnIdx.SwmProcedure_DepartmentId, ColumnAlignment.Right); break; case SpmProcedure.Column.OperationId: SetProcedureColDfn(columnDfn, "OperationId", 45, SpmDbDfn.ColumnIdx.SwmProcedure_OperationId, ColumnAlignment.Right); break; case SpmProcedure.Column.Description: SetProcedureColDfn(columnDfn, "Description", 60, SpmDbDfn.ColumnIdx.SwmProcedure_Description, ColumnAlignment.Center, DataValue.DataType.String); break; case SpmProcedure.Column.SpecialityCode: SetProcedureColDfn(columnDfn, "SpecialityCode", 60, SpmDbDfn.ColumnIdx.SwmProcedure_SpecialityCode, ColumnAlignment.Center, DataValue.DataType.String); break; case SpmProcedure.Column.ComplexityCode: SetProcedureColDfn(columnDfn, "ComplexityCode", 60, SpmDbDfn.ColumnIdx.SwmProcedure_ComplexityCode, ColumnAlignment.Center, DataValue.DataType.String); break; case SpmProcedure.Column.Duration: SetProcedureColDfn(columnDfn, "Duration", 45, SpmDbDfn.ColumnIdx.SwmProcedure_Duration, ColumnAlignment.Right); break; case SpmProcedure.Column.Duration_Training: SetProcedureColDfn(columnDfn, "DurationTraining", 45, SpmDbDfn.ColumnIdx.SwmProcedure_Duration_Training, ColumnAlignment.Right); break; case SpmProcedure.Column.Units: SetProcedureColDfn(columnDfn, "Units", 45, SpmDbDfn.ColumnIdx.SwmProcedure_Units, ColumnAlignment.Right); break; case SpmProcedure.Column.Units_Training: SetProcedureColDfn(columnDfn, "UnitsTraining", 45, SpmDbDfn.ColumnIdx.SwmProcedure_Units_Training, ColumnAlignment.Right); break; // Common properties. case SpmProcedure.Column.Notes: SetProcedureColDfn(columnDfn, "Notes", 200, SpmDbDfn.ColumnIdx.SwmProcedure_Notes); break; case SpmProcedure.Column.Status: SetProcedureColDfn(columnDfn, "Status", 50, SpmDbDfn.ColumnIdx.SwmProcedure_Status, ColumnAlignment.Center); break; case SpmProcedure.Column.Status_Desc: SetProcedureColDfn(columnDfn, "Status", 50, SpmDbDfn.ColumnIdx.SwmProcedure_Status, ColumnAlignment.Center); break; case SpmProcedure.Column.Status_Ind: SetProcedureColDfn(columnDfn, "Status", 50, SpmDbDfn.ColumnIdx.SwmProcedure_Status, ColumnAlignment.Center, DataValue.DataType.TriState); columnDfn.TriStateFormat = ColumnTriStateFormat.Lights; break; case SpmProcedure.Column.CreateOn_Date: SetProcedureColDfn(columnDfn, "Created", 65, SpmDbDfn.ColumnIdx.SwmProcedure_CreateOn, ColumnAlignment.Center, DataValue.DataType.Date); columnDfn.ReadOnly = true; break; case SpmProcedure.Column.UpdateOn_Date: SetProcedureColDfn(columnDfn, "Updated", 65, SpmDbDfn.ColumnIdx.SwmProcedure_UpdateOn, ColumnAlignment.Center, DataValue.DataType.Date); columnDfn.ReadOnly = true; break; } if (!String.IsNullOrEmpty(caption)) columnDfn.Caption = caption; if (width > 0) columnDfn.Width = width; return columnDfn; } //------------------------------------------------------------------- // Procedure query filter. public override List GetProcedureQueryFilter(SpmProcedure.Params prm) { List filters = new List(); // Procedure Id. String includedIds = prm.IncludedIds.Concat(","); if (!includedIds.IsEmpty()) filters.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Id, aliasProcedure) + " IN (" + includedIds + ")"); String excludedIds = prm.ExcludedIds.Concat(","); if (!excludedIds.IsEmpty()) filters.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Id, aliasProcedure) + " NOT IN (" + excludedIds + ")"); // Operation Id. if (SysId.IsValid(prm.OperationId)) filters.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_OperationId, aliasProcedure) + "=" + prm.OperationId.ToString()); // Operation Code. String operationCode = DbQuery.FormatForCondition(prm.OperationCode); if (!StringUtil.IsEmpty(operationCode)) { String colOperationCode = SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_OpnCode, aliasProcedure); filters.Add(DbQuery.FormatFn_Left(colOperationCode, prm.OperationCode.Length) + "='" + operationCode + "'"); } // Description. String description = DbQuery.FormatForCondition(prm.Description); if (!StringUtil.IsEmpty(description)) { String colDescription = SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Description, aliasProcedure); // Build filter condition on description. List filtersDesc = new List(); filtersDesc.Add(DbQuery.FormatFn_Left(colDescription, prm.Description.Length) + "='" + description + "'"); // Split description into space delimited words (to allow any combination within the description). List descWord = description.Split(' ').ToList(); filtersDesc.Add("(" + descWord.Concat(" AND ", colDescription + " LIKE '%", "%'") + ")"); filters.Add(filtersDesc.Concat(" OR ")); } // Speciality code. String colSpecialityCode = SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_SpecialityCode, aliasProcedure); if (!StringUtil.IsEmpty(prm.SpecialityCode)) filters.Add(colSpecialityCode + "='" + prm.SpecialityCode + "'"); // Complexity code. String colComplexityCode = SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_ComplexityCode, aliasProcedure); if (!StringUtil.IsEmpty(prm.ComplexityCode)) filters.Add(colComplexityCode + "='" + prm.ComplexityCode + "'"); //--------------------------------------------------------------- // Common Properties. if (filters.Count < 1) filters.Add("1=1"); return filters; } //------------------------------------------------------------------- // Procedure sort columns. public List GetProcedureSortColumns(SpmProcedure.Params prm) { // Sort sequence: List sortColumnNames = new List(); foreach (var columnDfn in prm.SortColumns) { // Need to ensure correct alias used for Procedure columns in case of conflict. String sortCol = String.Empty; if (SpmDbDfn.GetTableForColumn((SpmDbDfn.ColumnIdx)columnDfn.DbColumn) == SpmDbDfn.TableIdx.SwmProcedure) { sortCol = SpmDbDfn.GetColumnNameQual((SpmDbDfn.ColumnIdx)columnDfn.DbColumn, aliasProcedure); } else { sortCol = columnDfn.DataName; if (!StringUtil.IsEmpty(columnDfn.SortDataName)) sortCol = columnDfn.SortDataName; } if (!sortCol.IsEmpty()) { DbOrderByNullMode orderByNullMode = DbOrderByNullMode.Default; // eSaOrderByDemoteNulls, eSaOrderByPromoteNulls sortColumnNames.Add(DbQuery.FormatForOrderBy(sortCol, columnDfn.SortAscending, orderByNullMode).Concat(", ")); } } sortColumnNames.RemoveBlanks(); if (sortColumnNames.IsEmpty()) { // Default sort columns: //sortColumnNames.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Type, aliasProcedure) + " ASC"); } return sortColumnNames; } //------------------------------------------------------------------- // Procedure count. private long GetProcedureCount(String filter) { ClearErrorState(); return Database.GetRowCount(SpmDbDfn.GetTableName(SpmDbDfn.TableIdx.SwmProcedure) + " As " + aliasProcedure, filter); } public override long GetProcedureCount(SpmProcedure.Params prm) { ClearErrorState(); return GetProcedureCount(GetProcedureQueryFilter(prm).Concat(" AND ", "(", ")")); } //------------------------------------------------------------------- // Procedure list. public override List GetProcedureList(SpmProcedure.Params prm) { List Procedurees = new List(); DbQuery qry = new DbQuery(Database.DbmsType); qry.Tables.Add(SpmDbDfn.GetTableName(SpmDbDfn.TableIdx.SwmProcedure), aliasProcedure); qry.Columns.AddRange(SwmProcedure_Db.Fields); qry.Filters.AddRange(GetProcedureQueryFilter(prm)); // Query data. using (var dbConnection = Database.CreateConnection()) using (var dbCommand = dbConnection.CreateCommand()) { try { dbConnection.Open(); dbCommand.CommandText = qry.BuildQuery(); using (DbDataReader dbDataReader = dbCommand.ExecuteReader()) { while (dbDataReader.Read()) { SwmProcedure_Db dbProcedure = new SwmProcedure_Db(DbInfo); dbProcedure.PopulateFrom(dbDataReader); Procedurees.Add(CreateProcedure(dbProcedure)); } } } catch (Exception exc) { Logger.Warn(GetType().Name + ".GetProcedureList\n\tQuery: " + dbCommand.CommandText + "\n\tException: " + exc.Message); } } return Procedurees; } //------------------------------------------------------------------- // Procedure query execution. public override DbResultSet ExecuteProcedureQuery(List columns, SpmProcedure.Params prm) { ClearErrorState(); //--------------------------------------------------------------- // Construct query. DbQuery query = new DbQuery(Database.DbmsType); query.Tables.Add(SpmDbDfn.GetTableName(SpmDbDfn.TableIdx.SwmProcedure), aliasProcedure); // Procedure Properties - add columns as defined in query list. if (columns.HasId((int)SpmProcedure.Column.Id)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Id, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.DepartmentId)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_DepartmentId, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.OperationId)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_OperationId, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.Description)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Description, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.SpecialityCode)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_SpecialityCode, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.ComplexityCode)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_ComplexityCode, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.Duration)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Duration, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.Duration_Training)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Duration_Training, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.Units)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Units, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.Units_Training)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Units_Training, aliasProcedure)); // Common Properties if (columns.HasId((int)SpmProcedure.Column.Notes)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Notes, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.Status) || columns.HasId((int)SpmProcedure.Column.Status_Desc) || columns.HasId((int)SpmProcedure.Column.Status_Ind)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_Status, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.CreateOn_Date)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_CreateOn, aliasProcedure)); if (columns.HasId((int)SpmProcedure.Column.UpdateOn_Date)) query.Columns.Add(SpmDbDfn.GetColumnNameQual(SpmDbDfn.ColumnIdx.SwmProcedure_UpdateOn, aliasProcedure)); //--------------------------------------------------------------- // Populate filter. query.Filters.AddRange(GetProcedureQueryFilter(prm)); if (prm.IncludedIds.Count != 1) { // Configure sort sequence. foreach (String sortColumn in GetProcedureSortColumns(prm)) query.OrderBy.Add(sortColumn); } //--------------------------------------------------------------- //return new DbResultSet_DataTableReader(Database, query.BuildQuery()); return new Sarand.Win.Dbas.Data.DbResultSet_DataReader(Database, query.BuildQuery()); } //------------------------------------------------------------------- } //======================================================================= }