maintenance:

	title: Test;;
	mlmname:  FORM_BedReq;;
	arden: version 2;;
	version:  4.50;;
	institution:  St Clair Isolation Set MLM;;
	author:  Robert spence, Eclipsys Corp;;
	specialist:  ;;
	date:  2007-01-04;;
	validation:  testing;;

library:
      purpose:  Test
	
	;;

	explanation:  Test       
                
	
	Changes		01/03/2007	RS		Added logic to add Case number to the form for SIS routing on close event

	;;
	keywords: Called MLMs, Form fields, TEst
	;;
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;

			Fld_AdmitDx := last of (field_list where field_list.DataItemName = "NUR_AdmittingDx" );			
			If CallingEvent="FormClose"
			then
				    //Retrieve Patients Admitting Dx Number
				 	AdmitDx:= read last 
						{"SELECT text "
   						|| " from CV3HealthIssueDeclaration with (nolock) "
						|| " WHERE ClientGUID = " || SQL(ClientGuid)
				 		|| " And ChartGUID = " || SQL(ClientChartGUID)
						|| " And typecode = " || SQL("Admitting Dx")
						|| " and Active = 1"};

					Fld_AdmitDx.Value := AdmitDx;

			endif;
			
	;;
	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: