maintenance:

	title: FORM_SET_ET_STANDING_ORDERS;;
	mlmname:  FORM_SET_ET_STANDING_ORDERS;;
	arden: version 2.5;;
	version:  5.50;;
	institution:  St Clair Hospital;;
	author:  Courtney Carr;;
	specialist:  Don Warnick;;
	date:  2016-08-04;;
	validation:  testing;;

library:
      purpose:  Select the appropriate ET treatment and medications for the selected wound type checkbox. 
				;;

	explanation:  This MLM is called from the ET Standing Orders Order Set
	
	
 	Change history 

    08.04.2016 - DJW   CSR# 34898 - Created 


	;;
	keywords: Called MLMs, 
	;;
knowledge:
	type: data-driven;;
	data:

       	(this_communication, this_form,	client_info_obj) := argument;

		standard_libs := mlm {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
	    include standard_libs;

		using "ObjectsPlusXA.SCM.Forms";
		using namespace "ObjectsPlusXA.SunriseClinicalManager.Forms";

		log_execution_info := FALSE;
		error_message:="";

		field_list:= this_form.fields;
	
		client_guid  := this_communication.ClientGUID;
		visit_guid   := this_communication.ClientVisitGUID;
		chart_guid   := this_communication.ChartGuid;
	    CallingEvent := this_communication.CallingEvent;
	    CallingField := this_communication.CallingFieldName;
	
		// Define the checkbox that was selected
		
        checkboxnumber:= substring 2 characters starting at 14 from this_communication.CallingFieldName;
		selectedcheckbox := first of (field_list where field_list.DataItemName = "NUR_Checkbox" and field_List.Control_MultiFieldOccNum = (checkboxnumber as number));
		
		// Define the 2 grids

	    ETOrderGrid  := first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 1);
	    MedOrderGrid := first of (field_list where field_list.DataItemName = "MultiOrderGrid" and field_List.Control_MultiFieldOccNum = 2);		

		// Map the row number(s) in the grid(s) related to each of the checkboxes

		et_griditem := 999;
		rx_griditem := 999;

		if     checkboxnumber = "1"  then et_griditem := 1;  					// Diabetic foot ulcer
		elseif checkboxnumber = "2"  then et_griditem := 2; rx_griditem := 1; 	// Diabetic foot ulcer - gangrenous
		elseif checkboxnumber = "3"  then et_griditem := 3;  					// Dechiced surgical wound 
		elseif checkboxnumber = "4"  then et_griditem := 4; rx_griditem := 2; 	// Leg wounds
		elseif checkboxnumber = "5"  then et_griditem := 5;  					// Heavy exudating wounds
		elseif checkboxnumber = "6"  then et_griditem := 6;  					// Ischemic wounds
		elseif checkboxnumber = "7"  then et_griditem := 7;  					// Fissures on heels of feet
		elseif checkboxnumber = "8"  then et_griditem := 8; rx_griditem := 3;	// Auto immune wounds
		elseif checkboxnumber = "9"  then et_griditem := 9; rx_griditem := 2; 	// Radiation burns
		elseif checkboxnumber = "10" then et_griditem := 11; 					// Blisters
		elseif checkboxnumber = "11" then et_griditem := 12; 					// Herpes shingles
		elseif checkboxnumber = "12" then et_griditem := 13; 					// Fungating lesions - brest
		elseif checkboxnumber = "13" then et_griditem := 14; 					// Fistula wounds
		elseif checkboxnumber = "14" then et_griditem := 15; rx_griditem := 4; 	// Partial full thickness wound
		elseif checkboxnumber = "15" then et_griditem := 16; rx_griditem := 5; 	// Full thickness wound
		elseif checkboxnumber = "16" then et_griditem := 17; rx_griditem := 6; 	// Stasis dermatitis
		elseif checkboxnumber = "17" then et_griditem := 18; 				 	// Venous stasis ulcers
		elseif checkboxnumber = "18" then et_griditem := 10; 					// Hematoms to lower extremities
		endif;
	

		// Set the trufalse value to determine if the grid item is to be checked or unchecked

	 	if selectedcheckbox.Value = true 
			then truefalse := true; 
			else truefalse := false; 
		endif;	
	

		// Update the ET Grid

		index_list := 1 seqto (count ETOrderGrid.Value); 
		for I in index_list do
			if et_griditem = I
				then  ETOrderGrid.Value[et_griditem].IsSelected := truefalse;
			endif;
		enddo;

		// Update the Medications Grid

		index_list := 1 seqto (count MedOrderGrid.Value); 
		for I in index_list do
			if rx_griditem = I
				then  MedOrderGrid.Value[rx_griditem].IsSelected := truefalse;
			endif;
		enddo;


	;;
	evoke:  
	;;
	logic:  

		conclude true;
	;;
	action:

		return this_communication, this_form;
	;;
end: