100 lines
4.5 KiB
Plaintext
100 lines
4.5 KiB
Plaintext
maintenance:
|
|
|
|
title: CLINSUM_STATUS_BOARD_STATUS_TIMES ;;
|
|
mlmname: CLINSUM_STATUS_BOARD_STATUS_TIMES ;;
|
|
arden: version 2.5;;
|
|
version: 1.00;;
|
|
institution: ;;
|
|
author: Amanda Kirsopp ;;
|
|
specialist: Don Warnick ;;
|
|
date: 2013-06-07;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose:
|
|
Populate a Clinical Summary Tile for ED Status Board Status times. To be used by the MR Coders
|
|
;;
|
|
explanation:
|
|
Change history
|
|
|
|
11.28.2012 DW CSR# 31622 Created for Quality Blue requirement
|
|
04.02.2014 DW CSR# 32326 Remove TBADM from the Medical Records Clinical Summary Tab
|
|
05.03.2018 JML CSR# 36699 Added column "Updated By Provider" to display user who updated status on board.
|
|
06.06.2018 DW CSR# 36857 Add PEIP to the Medical Records Clinical Summary Tab (go forward name of TIP)
|
|
07.02.2018 DW CSR# 36891 Add credentials to the name of the physician displayed in the tile
|
|
|
|
;;
|
|
keywords:
|
|
;;
|
|
knowledge:
|
|
type: data-driven;;
|
|
data:
|
|
|
|
(session_id, user_GUID, client_GUID, chart_GUID, visit_GUID, from_date, to_date) := argument;
|
|
|
|
if called_by_editor then
|
|
client_GUID:= read last{ClientInfo:GUID};
|
|
visit_GUID:= read last{ClientVisit:GUID};
|
|
chart_GUID:= read last{ClientVisit:ChartGUID};
|
|
endif;
|
|
|
|
// Column definition. More column properties may be added. Any changes to the defintion must be reflected in MLM STD_FUNC_CLINSUM_TRANSLATE.
|
|
|
|
colDefinition_def := object
|
|
[
|
|
FieldName, // The name of the field in the data row that contains the column{{{SINGLE-QUOTE}}}s value
|
|
ColumnHeader, // The text for the column header
|
|
DisplaySeqNum, // left-to-right sequence number in which to display the column
|
|
DataType, // The .net type name of the value
|
|
DisplayFormat, // format string to apply to the column
|
|
WidthDefaultPixel, // default width of the column, in pixels
|
|
WidthMinPixel, // Min width of the column, in pixels
|
|
WidthMaxPixel, // Max width of the column, in pixels
|
|
IsVisible, // Is the column visible
|
|
IsSortable // Is the column sortable
|
|
];
|
|
|
|
// Use column definition to define a row. Used by C# code to create the grid
|
|
|
|
rowDefinition_obj:= (new colDefinition_def with "ScheduledDtm", "Time",0, "DateTime", "", 120, 120, 120, true, true ),
|
|
(new colDefinition_def with "OrderName", "Status", 1, "String", "", 180, 180, 180, true, true ),
|
|
(new colDefinition_def with "TouchedBy", "Updated By Provider", 2, "String", "", 200, 200, 200, true, true )
|
|
;
|
|
rowValue_def := OBJECT [ScheduledDtm,OrderName,TouchedBy];
|
|
|
|
// Populate the row with data.
|
|
|
|
rows_obj :=();
|
|
singleRow_obj:= read as rowValue_def { " SET CONCAT_NULL_YIELDS_NULL off select a.touchedwhen, "
|
|
|| " case when a.columnnewvalue = {{{SINGLE-QUOTE}}}tip{{{SINGLE-QUOTE}}} then {{{SINGLE-QUOTE}}}Provider Exam in Progress{{{SINGLE-QUOTE}}} "
|
|
|| " when a.columnnewvalue = {{{SINGLE-QUOTE}}}peip{{{SINGLE-QUOTE}}} then {{{SINGLE-QUOTE}}}Provider Exam in Progress{{{SINGLE-QUOTE}}} "
|
|
|| " when a.columnnewvalue = {{{SINGLE-QUOTE}}}tbaor{{{SINGLE-QUOTE}}} then {{{SINGLE-QUOTE}}}To be Admitted Orders Received{{{SINGLE-QUOTE}}} end "
|
|
|| " , (SELECT u.DisplayName + {{{SINGLE-QUOTE}}} {{{SINGLE-QUOTE}}} + u.occupationcode FROM CV3USER u WHERE u.IDCode = RIGHT( a.TouchedBy, ( LEN(a.TOUCHEDBY) - CHARINDEX({{{SINGLE-QUOTE}}}_{{{SINGLE-QUOTE}}}, a.TouchedBy) ) ) ) "
|
|
|| " from sxaedlocationaudit a (nolock) "
|
|
|| " join cv3location l on l.guid = a.locationguid "
|
|
|| " where a.clientvisitguid = " || sql(visit_GUID)
|
|
|| " and a.columnnewvalue in ({{{SINGLE-QUOTE}}}tip{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}peip{{{SINGLE-QUOTE}}},{{{SINGLE-QUOTE}}}tbaor{{{SINGLE-QUOTE}}}) "
|
|
|| " and l.code like {{{SINGLE-QUOTE}}}%|ED %{{{SINGLE-QUOTE}}} order by a.touchedwhen "
|
|
};
|
|
rows_obj := singleRow_obj;
|
|
|
|
// Once the rows have been defined & populated this MLM Function will tranlate the OBJECT(s)
|
|
// into CDSDataObjects which can be read by the C# code that called this MLM.
|
|
|
|
translator := MLM {{{SINGLE-QUOTE}}}STD_FUNC_CLINSUM_TRANSLATE{{{SINGLE-QUOTE}}};
|
|
(rowDefintion_dataObj, rows_dataObj) := call translator with rowDefinition_obj, rows_obj
|
|
|
|
;;
|
|
priority: 50
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic:
|
|
conclude true;
|
|
;;
|
|
action:
|
|
return rowDefintion_dataObj, rows_dataObj;
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|