DanielR78/St.Clair
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Checking with all 820 MLMs

Browse Source
This commit is contained in:
Daniel Romischer
2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

99
MLMStripper/bin/Debug/CLINSUM/CLINSUM_STATUS_BOARD_STATUS_TIMES.mlm Normal file
View File

@@ -0,0 +1,99 @@
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: