98 lines
3.3 KiB
Plaintext
98 lines
3.3 KiB
Plaintext
maintenance:
|
|
|
|
title: CLINSUM_COMMENT_INFO ;;
|
|
mlmname: CLINSUM_COMMENT_INFO ;;
|
|
arden: version 2.5;;
|
|
version: 1.00;;
|
|
institution: St. Clair Hospital ;;
|
|
author: Shivprasad Jadhav ;;
|
|
specialist: Shivprasad Jadhav , Allscripts;;
|
|
date: 2015-07-14;;
|
|
validation: testing;;
|
|
|
|
library:
|
|
purpose:
|
|
Populate a Clinical Summary Tile for Comment Value as a Significant Indicator ;;
|
|
explanation:
|
|
Change history
|
|
|
|
07-14.2014 DW CSR# 32230 Created By GOS for Comment for Resist Organism Value in Clinical Summary Chart
|
|
|
|
;;
|
|
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 "TypeCode", "Type",0, "String", "", 50, 20, 50, true, false ),
|
|
(new colDefinition_def with "Text", "Comments", 1, "String", "", 50, 20, 50, true, false ),
|
|
(new colDefinition_def with "TouchedWhen", "Entered Date", 2, "String", "", 50, 20, 50, true, false )
|
|
;
|
|
rowValue_def := OBJECT [TypeCode,Text,TouchedWhen];
|
|
|
|
// Populate the row with data.
|
|
|
|
|
|
|
|
rows_obj :=();
|
|
TypeCode1,Text1,TouchedWhen1 := read first { " Select cd.TypeCode, cd.Text, cd.TouchedWhen "
|
|
|| " from CV3CommentDeclaration cd "
|
|
|| " Where cd.ClientGUID = " || Sql(client_GUID)
|
|
|| " And cd.TypeCode = {{{SINGLE-QUOTE}}}Resist Organism{{{SINGLE-QUOTE}}} "
|
|
|| " And cd.Status = {{{SINGLE-QUOTE}}}Active{{{SINGLE-QUOTE}}} " };
|
|
|
|
singleRow_obj := new rowValue_def;
|
|
singleRow_obj.TypeCode := TypeCode1 ;//AS STRING);
|
|
singleRow_obj.Text := (Text1 AS STRING);
|
|
singleRow_obj.TouchedWhen := (TouchedWhen1 AS STRING);
|
|
|
|
rows_obj := 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, singleRow_obj ;
|
|
|
|
;;
|
|
priority: 50
|
|
;;
|
|
evoke:
|
|
;;
|
|
logic:
|
|
conclude true;
|
|
;;
|
|
action:
|
|
return rowDefintion_dataObj, rows_dataObj;
|
|
;;
|
|
Urgency: 50;;
|
|
end:
|