Cannot send email notification to more than one people

Question

Hi everyone,
Hope anyone could help me to solve this. I want to send email notification to two people. First to the staff to alert him that his claim is ready. And also to his supervisor that the claim has been disbursed. Below is the PL/SQL procedure, check_claim being used..
CREATE OR REPLACE PROCEDURE TEST.check_claim AS
NO number;
CURSOR emp_cur is
select * from emp where dept=7 and status='active';
emp_rec emp_cur%rowtype;
email_to varchar2(200);
default_email varchar2(200);
mesg varchar2(4000);
subj varchar2(4000);
crlf VARCHAR2( 2 ):= CHR( 13 ) || CHR( 10 );
BEGIN
default_email:='@phantom.com';
FOR emp_rec in emp_cur
LOOP
if emp_rec.claim_status ='Y' then
email_to:=emp_rec.staff_id||default_email;
subj:='Claim No'||emp_rec.claim_id;
mesg:='Your claim has been disbursed. Please check.';
email_to:=emp_rec.staff_hod||default_email;
subj:='Claim'||emp_rec.claim_id;
mesg:='Claim No'||emp_rec.claim_id||' has been disbursed';
e_mail_message(email_to,email_to,subj,mesg);
e_mail_message(email_to,email_to,subj,mesg);
end if;
END LOOP;
END;
The first email_to is to be sent to staff_id and the second email_to is to be sent to staff_hod.
The PL/SQL procedure then called the e_mail_message procedure shown below for the connection information..
CREATE OR REPLACE procedure
TEST.e_mail_message
from_name in varchar2,
to_name in varchar2,
subject in varchar2,
message in varchar2
is
l_mailhost VARCHAR2(64);
l_from VARCHAR2(64);
l_to VARCHAR2(64);
crlf VARCHAR2( 2 ):= CHR( 13 ) || CHR( 10 );
l_mail_conn UTL_SMTP.connection;
mesg VARCHAR2( 4000 );
BEGIN
select a.SERVER into l_mailhost from email_setting a where a.SERVER is not null;
select a.USERNAME into l_from from email_setting a where a.SERVER is not null;
--UTL_SMTP.open_data(l_mail_conn);
mesg:= 'Date: ' || TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss' ) || crlf ||
'From: <'||l_from||'>' || crlf ||
'Subject: ' ||subject|| crlf ||
'To: '||to_name || crlf || '' || crlf ;
mesg:=mesg||message;
l_mail_conn := UTL_SMTP.open_connection(l_mailhost, 25);
UTL_SMTP.helo(l_mail_conn, l_mailhost);
UTL_SMTP.mail(l_mail_conn, l_from);
UTL_SMTP.rcpt(l_mail_conn, to_name);
UTL_SMTP.data(l_mail_conn, mesg);
UTL_SMTP.quit(l_mail_conn);
END;
However, the email notification only being sent to the supervisor / head of department. The staff concerned does not receive any email notification. Please help. Thank you for your time...

Answer 1

from wht i see
email_to:=emp_rec.staff_id||default_email;
subj:='Claim No'||emp_rec.claim_id;
mesg:='Your claim has been disbursed. Please check.';
email_to:=emp_rec.staff_hod||default_email;  -- wrongit should be
email_to:=emp_rec.staff_id||default_email;
subj:='Claim No'||emp_rec.claim_id;
mesg:='Your claim has been disbursed. Please check.';
email_to:= email_to || ' , ' ||  emp_rec.staff_hod||default_email;