St.Clair/MLMStripper/bin/Debug/FORM/FORM_ISOLATION_SET.mlm

maintenance:

	title: Isolation Set MLM;;
	mlmname:  FORM_ISOLATION_SET;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair Charger MLM;;
	author:  Robert Spence, Eclipsys Corp;;
	specialist:  ;;
	date:  2006-07-14;;
	validation:  testing;;

library:
	purpose:  This MLM is to auto fill supply sets

	;;
	explanation:  This MLM xxxxxxxx
		
	;;
	keywords: Called MLMs, Form fields, Set, Isolation
	;;
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;
		CallingField :=this_communication.CallingFieldName;
		CallingEvent := this_communication.CallingEvent;
		FormType := this_communication.FormType;
					
				Isolation_Header :=Last of (field_list
						where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=6);
				Airborne_Header :=Last of  (field_list
						where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=1);				
				Contact_Header :=Last of  (field_list
						where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=2);
				Droplet_Header :=Last of  (field_list
						where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=3);
				Protective_Header :=Last of  (field_list
						where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=5);
				IP_Protective_Header :=Last of  (field_list
						where field_list.DataItemName = "MultiOrderCheckBox" and field_list.CONTROL_MULTIFIELDOCCNUM=4);

				/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

				IsoFieldsList:=Isolation_Header.Value;

				IsoSelVals := IsoFieldsList.IsSelected;
				IsoSelName := IsoFieldsList.Name;
	
				Airborne:=Last (First 1 from IsoSelVals);
				Contact := Last(First 2 from IsoSelVals);
				Droplet := Last(First 3 from IsoSelVals);
				Protective := Last(First 4 From IsoSelVals);
				IP_Protective:=Last(First 5 From IsoSelVals);

				If Airborne =True
				then
					AirFieldsList := Airborne_Header.Value;
					AirSelVals := AirFieldsList.IsSelected;
					AirFieldsList.IsSelected := (1,1,1,1,1,1,1,1,1);
				else
					AirFieldsList := Airborne_Header.Value;
					AirSelVals := AirFieldsList.IsSelected;
					AirFieldsList.IsSelected := (0,0,0,0,0,0,0,0,0);					
				endif;

				If Contact =True
				then
					ConFieldsList := Contact_Header.Value;
					ConSelVals := ConFieldsList.IsSelected;
					ConFieldsList.IsSelected := (1,1,1,1,1,1,1,1,1,1,1);
				else
					ConFieldsList := Contact_Header.Value;
					ConSelVals := ConFieldsList.IsSelected;
					ConFieldsList.IsSelected := (0,0,0,0,0,0,0,0,0,0,0);
				endif;

				If Droplet =True
				then
					DropFieldsList := Droplet_Header.Value;
					DropSelVals := DropFieldsList.IsSelected;
					DropFieldsList.IsSelected := (1,1,1,1,1,1);
				else
					DropFieldsList := Droplet_Header.Value;
					DropSelVals := DropFieldsList.IsSelected;
					DropFieldsList.IsSelected := (0,0,0,0,0,0);
				endif;

				If Protective =True
				then
					ProFieldsList := Protective_Header.Value;
					ProSelVals := ProFieldsList.IsSelected;
					ProFieldsList.IsSelected := (1,1,1,1,1,1,1,1);
				else
					ProFieldsList := Protective_Header.Value;
					ProSelVals := ProFieldsList.IsSelected;
					ProFieldsList.IsSelected := (0,0,0,0,0,0,0,0);
				endif;

				If IP_Protective=True
				then
					IP_ProFieldsList := IP_Protective_Header.Value;
					IP_ProSelVals := IP_ProFieldsList.IsSelected;
					IP_ProFieldsList.IsSelected := (1,1,1,1,1,1,1,1,1);
				else
					IP_ProFieldsList := IP_Protective_Header.Value;
					IP_ProSelVals := IP_ProFieldsList.IsSelected;
					IP_ProFieldsList.IsSelected := (0,0,0,0,0,0,0,0,0);
				endif;

  //			this_communication.DisplayForm := "Yes";
//					this_communication.Message := "MLM Field :" || CallingField || "\n" || 
//														"MLM Event :" || CallingEvent || "\n" ||
//													"Form type :" || FormType || "\n" || 
//														"Fields List : "|| IsoFieldsList || "\n" ||
//														"Values: "|| IsoSelVals || "\n" ||
//														"Names: " || IsoSelName|| "\n" ||
//														"Airborne: " || Airborne || "\n" ||
//														"Protective: " || Protective || "\n" ||
//														"Test3: " || Test3 || "\n" ||
//													"Cnum: " || CNum;
// 					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: