Need Help With Writing postreSQL function

CREATE FUNCTION insertTena(nae character varying(50),con_nm character varying(50),ten_typ character varying(50),
			     pass_x character varying(100),spec character varying(50)) 
RETURNS character varying(50) AS $$
DECLARE

	description character varying(50) := "OK";
	--temporarily hard-code these values
	temp_type_code varchar(10) := "HO";
	temp_spec_code varchar(10);
	temp_last_ten_id int;
	temp_pass_msg varchar(255) := "Must be at least 6 characters. Must contain at least one lower case letter, one upper case letter, one digit and one special character. Valid special characters are -   !@#$%^&+=\"";
	temp_cas_rep_con varchar(1000) := "<?xml version=\"1.0\" encoding=\"UTF-8\"?><PROCEDURE_CASE_REPORT><PATIENT_INFO>true</PATIENT_INFO><SERVICE_INFO>true</SERVICE_INFO><PROCEDURE_STAFF>true</PROCEDURE_STAFF><ALLERGY>true</ALLERGY><DIAGNOSIS>true</DIAGNOSIS><VASCULAR_ACCESS>true</VASCULAR_ACCESS><COAG_STUDY>true</COAG_STUDY><MEDEICATION>true</MEDEICATION><VITALS>true</VITALS><RNNOTE>true</RNNOTE><NURSE_SIGN>true</NURSE_SIGN></PROCEDURE_CASE_REPORT>";
	temp_log_msg text := "Medical snooping into patient medical records is illegal and disrespectful.Employees are at personal risk for financial penalties, state licensing board action and may face later civil lawsuits. YOU could be fined up to $250,000! Privacy Reminders for All Workforce Members:!"	
BEGIN

	--get code
	select 	code into temp_type_code
	from 	zu_ten_type 	
	where	code = temp_tenant_type_code;

	--get scode
	select 	code into temp_spec_code
	from 	zu_spec 	
	where	description = spec;

	insert into tena(ids,"vs",cr_by,cr_dt,mod_by,mod,ten_ty,nam,pass_x,pass_msg, 
	  cs_rept_cfg,log_msg,obs,can_edit,dis_met_meas,time_cd)
	values (1,-1,now(),-1,now(),temp_type_code,nae,con_nm,null,null,null,null,null,null,null,null,null,null,null,null,pass_x,
		pass_msg,temp_cas_rep_con,temp_log_msg,"f","t","f","US/Pacific",null,null);

	--get last id of insert for below
	select	max(ids) into temp_last_ten_id
	from	tena;
	
	insert into ten_spec(ids,"vs",cr_by,cr_dt,mod_by,mod,spec_cd,ten_id,obs)
	values(1,-1,now(),-1,now(),temp_spec_code,temp_last_ten_id,"f");

	return description;
END;
$$ LANGUAGE plpgsql;

Select allOpen in new window