maintenance:

	title: Lab Stool Culture on Order Set Must Order Shiga Toxin 1 and 2;;
	mlmname:  FORM_Set_Stool_Shiga_Toxin;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair Isolation Set MLM;;
	author:  Robert Spence, Eclipsys Corp Ext 7461;;
	specialist:  Bryan Berkeybile, Eclipsys Corp ext 7469;;
	date:  2007-11-21;;
	validation:  testing;;

library:
      purpose:  When selecting Stool Culture on the Order Set, Make Shiga Toxin Mandatory (check it for the user)
						Deselecting Stool Culture will deselect Shiga Toxin
					   Selecting Shiga Toxin when Stool Culture is not selected, pop up message and select Stool Culture
							Note: Stool Culture cannot be false at this time
					   Deselecting  Shiga Toxin when Stool Culture is true will pop up message and deselect Stool
							Note: Stool Culture cannot be true at this time
	
	;;

	explanation:  This MLM is called from the Stool Order set (Lab Stool Order Set)


    Change history 
    
	11.21.2007   RS   Created
 	08.23.2016   DW   CSR# 34947 - GI Pathogen changes 
                
	;;
	keywords: Called MLMs, Stool order set, Lab
	;;
knowledge:
	type: data-driven;;
	data:


    	(this_communication, this_form,	client_info_obj) := argument;

		log_execution_info := FALSE;

		error_message:="";


		field_list:= this_form.fields;

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


		StoolCB:=  last of (field_list where field_list.DataItemName = "Lab_CB_Stool"  );
		ClonicCB:=  last of (field_list where field_list.DataItemName = "Lab_CB_Clonic_Fluid"  );	

		Multi_fld3 := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox" and field_List.Control_MultiFieldOccNum = 3 );
		Multi_list3 :=Multi_fld3.Value;

		Multi_fld4 := last of (field_list where field_list.DataItemName = "MultiOrderCheckBox"  and field_List.Control_MultiFieldOccNum = 4 );
		Multi_list4 :=Multi_fld4.Value;

		Rotavirus_Order:= first of (Multi_list3 where Multi_list3.Name = "Rotavirus Antigen, Stool (Mayo)");
		Fecal_Order    := first of (Multi_list4 where Multi_list4.Name = "Fecal Fat Quantitative (Mayo)");
		Reducing_Order := first of (Multi_list4 where Multi_list4.Name = "Reducing Substance Stool (Mayo)");	

		Type1Fld :=  last of (field_list where field_list.DataItemName = "Lab_M_VO_OBR15_SpecT_StolColFl"  );	
		Type2Fld := last of (field_list where field_list.DataItemName = "LAB_RC_SDES_MicroSource_Stool" );		



			If CallingField = "Lab_CB_Stool|1" 

				then

				If StoolCB.Value = True 

					then
						ClonicCB.Value := False;
						ClonicCB.control_read_only := True;
						Type1Fld.Value := "Stool (STOL)";
						Type2Fld.Value := "Stool (STOL)";
					else
						ClonicCB.control_read_only :=False;
						Type1Fld.Value := "";
						Type2Fld.Value := "";
				endif;

			elseif CallingField = "Lab_CB_Clonic_Fluid|1" 

				then

				If ClonicCB.Value = True 
					then
						StoolCB.Value := False;
						StoolCB.control_read_only := True;
						Type1Fld.Value := "Colonic Fluid (COLFLD)";
						Type2Fld.Value := "Colonic Fluid (COLFLD)";

						Rotavirus_Order.IsReadonly:=True;
						Reducing_Order.IsReadonly:=True;
						Fecal_Order.IsReadonly:=True;

					else
						StoolCB.control_read_only := False;
						Type1Fld.Value := "";
						Type2Fld.Value := "";

						Rotavirus_Order.IsReadonly:=False;
						Reducing_Order.IsReadonly:=False;
						Fecal_Order.IsReadonly:=False;
				endif;


			endif;   // Calling Field
			
				
	;;

	evoke:  
	;;

	logic:  

		conclude true;
	;;

	action:

		return this_communication, this_form;
	;;
end: