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_SCH_LAUNCH_DIALOGBOX.mlm
+++ b/MLMStripper/bin/Debug/DOC/DOC_SCH_LAUNCH_DIALOGBOX.mlm
@@ -0,0 +1,116 @@
+maintenance:
+
+	title:  DOC_SCH_Launch_Dialogbox ;;
+	mlmname:  DOC_SCH_Launch_Dialogbox ;;
+	arden: version 4.5;;
+	version:  2.00;;
+	institution:  St.Clair Hospital;;
+	author:  Shivprasad Jadhav;;
+	specialist:  ;;
+	date:  2015-05-12;;
+	validation:  testing;;
+
+library:
+	purpose:  
+	;;
+	explanation: 
+	Change history 
+    
+	12.05.2015   DW  CSR#33287  Add a Launch Order Entry And Order Reconciliation Manager .
+	;;
+	keywords:
+	;;
+knowledge:
+	type: data-driven;;
+	data:
+		// Recieve arguments from the structured note
+		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
+	    include standard_libs;
+		using "ObjectsPlusXA.SCM.Forms";
+		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";
+
+		(thisDocumentCommunication) := argument;
+
+		// Extract interesting parts of the object model
+		(thisStructuredNoteDoc) := thisDocumentCommunication.DocumentConfigurationObj;
+		(thisParameters) := thisStructuredNoteDoc.ParametersList;
+		(thisObservations) := thisStructuredNoteDoc.ChartedObservationsList;
+		(this_currentObj)  := thisdocumentCommunication.CurrentObservationObj;
+ 		comm_obj := thisDocumentCommunication.primaryobj;
+
+		OrderEntryLaunch := first of (thisParameters where thisParameters.Name = "SCH_MDPN_Launch Orders");
+		selectedItems 				:= (this_currentObj.ValueObj.ListItemsList WHERE this_currentObj.ValueObj.ListItemsList.IsSelected = true);
+		currentObj_selectedItems 	:= selectedItems.value   ; 
+		//======================================================================================================
+// 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];
+
+
+//		To Unselect The Radio Button
+		launchordrec := false;
+		theParameterx := first of (thisParameters where thisParameters.Name = "SCH_MDPN_Launch Orders");
+		 theObservation := first of (thisObservations where thisObservations.ParameterGUID = theParameterx.ParameterGUID);
+	 if thisDocumentCommunication.CurrentObservationObj.Parameterguid = theParameterx.ParameterGUID then 
+     
+     this_parametername := first of (thisParameters where thisParameters.Name = "SCH_MDPN_Launch Orders");
+	 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);
+
+  endif; 
+//==========================================================================================================		
+		MLM_Name := MLM {{{SINGLE-QUOTE}}}SCH_Dialog_Operations{{{SINGLE-QUOTE}}} ;
+
+//		SCH_DI OrdRec Launch
+		launchordrec := false;
+		//theParameterx := first of (thisparameters where thisparameters.Name = "SCH_DI Launch Ord Rec");
+		// theObservation := first of (thisobservations where thisobservations.ParameterGUID = theParameterx.ParameterGUID);
+	
+	
+//                          OBSERVATION CHANGE
+		for current_item in currentObj_selectedItems do
+
+
+				If current_item = "***LAUNCH ORDER ENTRY to Complete***" Then 
+		
+						Status := call MLM_Name with visitGuid ,"OrderEntry";
+		
+			    EndIf ;
+				If current_item = "***LAUNCH ORDER RECONCILIATION**" Then  
+		
+					//Status := call MLM_Name with visitGuid,"OrderReconciliationManager";
+					OrderRecall := MLM {{{SINGLE-QUOTE}}}Doc_Call_Med_Rec{{{SINGLE-QUOTE}}};
+					Void := Call OrderRecall With thisDocumentCommunication ;
+		
+			    EndIf ; 
+		Enddo;
+
+
+	;;
+	evoke:  
+	;;
+	logic:  conclude true;
+	;;
+	action:  return thisDocumentCommunication;
+	;;
+Urgency: 50;;
+end: