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: