Initial Checking with all 820 MLMs

2020-02-02 00:54:01 -05:00
parent c59dc6de2e
commit 840d0432f4
828 changed files with 239162 additions and 0 deletions
--- a/MLMStripper/bin/Debug/CLINSUM/CLINSUM_COMMENT_INFO.mlm
+++ b/MLMStripper/bin/Debug/CLINSUM/CLINSUM_COMMENT_INFO.mlm
@@ -0,0 +1,97 @@
+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: