maintenance:

	title: ED Dyspnea Respiratory Page Mapping;;
	mlmname:  FORM_Set_ED_Dyspnea_Respiratory;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair ED Respiratory;;
	author:  Robert Spence, Eclipsys Corp Ext 7461;;
	specialist:  Lisa Hancher, Eclipsys Corp ext PINT;;
	date:  2008-03-17;;
	validation:  testing;;

library:
      purpose:  When user selects items on an order set, fill in a summary line (special instructions)
				This field is to be mapped to one on the pager form.
				This MLM will then fill in the data based on the selected checkboxes, having the interface only need to 
				look at the data within the pager form (not every order in the set)
	
	;;

	explanation:  This MLM is called from the ED Dyspnea Order Set (ED_Rx Dyspnea) on form close
                
	;;
	keywords: Called MLMs, Respiratory ORder Set, ED
	;;
knowledge:
	type: data-driven;;
	data:

        	// This MLM is passed three arguments, of types 
        	// communication_type, form_type and client info object respectively.

        	(this_communication,   	// Communication object
			this_form,				// Form object
			client_info_obj			//Arden ClientInfo object	
					) := argument;


		/*******************Make Changes To Spelling And Flags In This Section*******************/

		/* Set to true if a decision.log is needed.*/
			log_execution_info := FALSE;

	
		/***************************************************************************************/

		// Initialize error message
		error_message:="";

		// Assigns fields passed in the Form object to the Field object
		field_list:= this_form.fields;

       CallingEvent := this_communication.CallingEvent;
	   CallingField := this_communication.CallingFieldName;
		ClientGuid:=this_communication.ClientGUID;
		ClientChartGUID:=this_communication.ChartGUID;

				//Associate Mapped Fields
				SponAer_fld := last of (field_list where field_list.DataItemName = "Spontaneous Aerosol");
				SponAerAtro_fld := last of (field_list where field_list.DataItemName ="Spontaneous Aerosol Atrovent");
				SponAerAtr_fld := last of (field_list where field_list.DataItemName = "Spontaneous Aerosol DuoNeb");
				SponAerRac_fld := last of (field_list where field_list.DataItemName = "Spontaneous Aerosol Racepinephrine");
				Bronch10_Fld := last of (field_list where field_list.DataItemName = "Cont. Bronchodilator Albuterol 10mg/hr");
				Bronch15_Fld := last of (field_list where field_list.DataItemName = "Cont. Bronchodilator Albuterol 15mg/hr");
		
				//*** Get the ED Page Values from Grid
				//    Note: If ED Page has not been selected, blank out all order set mapped check boxes
				//          This way the child form of ED Page does not have data within it.

				RespPage_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid"
   										and field_List.Control_MultiFieldOccNum = 7);
				RespPage_list :=RespPage_fld.Value;
				RespPage_Sel  :=RespPage_list.IsSelected;
				
				//*** Get the Respiratory Values From Grid
				RespPage_Val := Last (First 1 From RespPage_Sel);

				If RespPage_Val=False Then
					SponAer_fld.Value := False;
					SponAerAtro_fld .Value := False;
					SponAerAtr_fld.Value := False;
					SponAerRac_Fld.Value :=False;
					Bronch10_Fld.Value := False;
					Bronch15_Fld.Value := False;
				Else
			

					RespGrid_fld := last of (field_list where field_list.DataItemName = "MultiOrderGrid" 
											and field_List.Control_MultiFieldOccNum = 5);
					RespGrid_list :=RespGrid_fld.Value;
					RespGrid_Sel  :=RespGrid_list.IsSelected;


					Albuterol:= Last (First 1 from RespGrid_Sel);
					Atrovent:= Last (First 2 from RespGrid_Sel);
					AlbuterolAtrovent:= Last (First 3 from RespGrid_Sel);
					RacePine:= Last (First 4 from RespGrid_Sel);
					Bron10 := Last (First 5 From RespGrid_Sel);
					Bron15 := Last (First 6 From RespGrid_Sel);

					//*** Now set the mapped fields
					SponAer_fld.Value := Albuterol;
					SponAerAtro_fld .Value := Atrovent;
					SponAerAtr_fld.Value := AlbuterolAtrovent;
					SponAerRac_Fld.Value :=RacePine;
					Bronch10_Fld.Value := Bron10;
					Bronch15_Fld.Value := Bron15; 
				Endif;					
								
					


/*				this_communication.DisplayForm := "Yes";
				this_communication.Message :=	"RespValue Is " || RespPage_Val  || "n" ||
												"Aerosol Selected is " || Aerosols_Sel  || "\n" ||
												"   Albuterol is set to " || Albuterol || "\n" ||
												"   Albuterol Atrovent is set to " || AlbuterolAtrovent || "\n" ||
												"   RacePine is set to " || RacePine || "\n" || "\n" ||
												"Broncho Selected is " || Broncho_Sel || "\n" ||
												"   Bronch 10 is set to " || Bron10 || "\n" ||
												"   Bronch 15 is set to " || Bron15 || "\n" || "\n" ||
												"Educate Selects is " || EDucate_Sel || "\n" ||
												"   Educate MDI is set to " || EducateMDI || "\n" ||
												"   Educate Incentive is " || EducateINC || "\n" || "\n" ||
												"Mapped Field Values Are "  || "\n" ||
												"   SponAer    is " || SponAer_fld.value || "\n" ||
												"   SponAerAtr is " || SponAerAtr_fld.Value || "\n" ||
												"   SponAerRac is " || SponAerRac_Fld.Value || "\n" ||
												"   Bronch10   is " || Bronch10_Fld.Value || "\n" ||
												"   Bronch15   is " || Bronch15_Fld.Value || "\n" ||
												"   MDI        is " || MDI_fld.Value || "\n" ||
												"   Incent     is " || Incent_fld.Value;
				this_communication.MessageType := "Informational";	
*/
	;;
	evoke:  // No evoke statement
	;;
	logic:  

		conclude true;
	;;
	action:
        // This MLM returns two parameters, of types communication_type and form_type respectively.
		return this_communication, this_form;
	;;
end: