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: