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/DOC/DOC_CALL_MED_REC.mlm
+++ b/MLMStripper/bin/Debug/DOC/DOC_CALL_MED_REC.mlm
@@ -0,0 +1,122 @@
+maintenance:
+
+	title:  Call Med Rec;;
+	filename:  Doc_Call_Med_Rec;;
+	arden: version 2;;
+	version:  1.00;;
+	institution: Eclipsys Corp;;
+	author:  Eclipsys Corp;;
+	specialist:  ;;
+	date:  2008-11-18;;
+	validation:  testing;;
+
+library:
+	purpose:  This mlm open Orders Reconciliation Manager from a document
+	;;
+	explanation:  
+
+				05.31.2019	JML  18.4 Upgrade modification; Launch ORM radio button not unchecking
+								if observation exists in more than one section on structured note
+	;;
+	keywords:
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+	
+		(this_documentCommunication) := argument;
+		/*******************Make Changes To Spelling And Flags In This Section*******************/
+
+		/* Set to true if a decision.log is needed.*/
+		log_execution_info := FALSE;
+
+			/****** Place all your reading and updating here **********/
+
+		// Include MLM to reference assemblies needed for this MLM.
+		// This MLM specifically uses the assemblies mscorlib and 
+		// ObjectsPlusXA.SCM.Forms
+        standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+        include standard_libs;
+
+		using "ObjectsPlusXA.SCM.Forms";
+		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
+
+		// Extract interesting parts of the object model
+		(thisStructuredNoteDoc) := this_documentCommunication.DocumentConfigurationObj;
+		(thisParameters) := thisStructuredNoteDoc.ParametersList;
+		(thisObservations) := thisStructuredNoteDoc.ChartedObservationsList;	
+
+		// Create prototypes for the object types we{{{SINGLE-QUOTE}}}ll need to instantiate
+		ObservationType := OBJECT [ObservationGUID, ClientDocumentGUID, ParameterGUID, DataType, ValueObj];
+		FreeTextValueType := OBJECT [Value];
+		DateValueType := OBJECT [Value];
+		ListValueType := OBJECT [ListGuid,ListItemsList, SuggestedTextValue];
+		ListValueListItemType := OBJECT [ListItemGUID, Value, IsSelected];
+
+
+//		SCH_DI OrdRec Launch
+	launchordrec := false;
+	theParameterx :=  ( thisParameters where thisParameters.Name = "SCH_DI Launch Ord Rec" );
+
+	if ( exists theParameterx ) then
+
+		//Determine if Obs exists more than once on Note
+		for i IN 1 seqto count theParameterx do
+			//this_parametername := first of (thisParameters where thisParameters.Name = "SCH_DI Launch Ord Rec");
+			this_parametername := theParameterx[i];
+
+			this_currentObj := NEW ObservationType;
+			this_currentObj.ClientDocumentGUID:= thisStructuredNoteDoc.ClientDocumentGUID;
+			this_currentObj.ParameterGUID := this_parametername.ParameterGUID;
+			this_currentObj.DataType := "ListValue";
+		   	this_currentObj.ValueObj := New ListValueType;
+			this_currentObj.ValueObj.ListGUID:= this_parametername.ConfigurationObj.ListGUID;	 
+		    listItems := ();
+	
+			FOR item IN this_parametername.ConfigurationObj.ListItemsList DO
+				selectedItem := NEW ListValueListItemType;
+				selectedItem.ListItemGUID := item.ListItemGUID;
+				selectedItem.Value := item.Value;
+
+	           	selectedItem.IsSelected := false;
+	
+				listItems := (listItems, selectedItem);
+ 	
+			ENDDO;		
+	
+			this_currentobj.ValueObj.ListItemsList := listItems;
+			thisStructuredNoteDoc.ChartedObservationsList := (thisStructuredNoteDoc.ChartedObservationsList, this_currentObj);
+		enddo;
+	
+	endif; 
+
+
+
+		visit_guid := this_documentCommunication.ClientVisitGUID;		
+		try
+			// Create the Order Reconciliation Manager object
+
+			order_rec_mgr_obj := new NET_OBJECT {{{SINGLE-QUOTE}}}OrderReconciliationManager{{{SINGLE-QUOTE}}};
+			order_rec_mgr_obj.ClientVisitPrimaryKey := (( visit_guid as number) as {{{SINGLE-QUOTE}}}Int64{{{SINGLE-QUOTE}}});
+			void := call order_rec_mgr_obj.ShowDialog;
+
+		endtry;
+		catch exception ex
+			if ( order_rec_mgr_obj is NOT NULL ) then
+				void:= call order_rec_mgr_obj.Dispose;
+				order_rec_mgr_obj:= NULL;
+			endif;
+		endcatch;
+
+
+	;;
+	evoke:  // No evoke statement
+	;;
+	logic:  
+		conclude true;		// always concludes TRUE
+	;;
+	action:
+    				return this_documentCommunication;
+
+	;;
+end: