Unable to create employees as suppliers

Question

I have created a PL/SQL script to create employees as suppliers. This script works fine on the development server but I get the following error on Production Server:
Encountered ERROR in supplier creation!!!
EMPLOYEE_ID is invalid
Employee Info is invalid
In this regard I have also cross checked the note 786262.1 and the set up is correct. Could you please tell me where I could be going wrong. The script is as follows:
declare
l_vendor_rec AP_VENDOR_PUB_PKG.r_vendor_rec_type;
l_vendor_site_rec AP_VENDOR_PUB_PKG.r_vendor_site_rec_type;
x_return_status VARCHAR2(2000);
x_msg_count NUMBER;
x_msg_data VARCHAR2(2000);
l_upd number := 0;
x_vendor_id number;
x_party_id number;
x_vendor_site_id number;
x_party_site_id number;
x_location_id number;
l_party_site_id number;
l_organization_id number;
begin
--l_vendor_rec.terms_id := 10000;
for c in (select employee_id,location_id,party_id,organization_id from
PER_EMPLOYEES_X pex
where not exists
(select 1
from po_vendors
where employee_id=pex.employee_id
and employee_id=65)
loop
--dbms_output.put_line(' Org id '||c.organization_id);
l_vendor_rec.employee_id := c.employee_id;
l_vendor_rec.VENDOR_TYPE_LOOKUP_CODE := 'EMPLOYEE';
--mo_global.set_policy_context('S',c.organization_id);
AP_VENDOR_PUB_PKG.Create_Vendor
(      p_api_version => 1,
     x_return_status     => x_return_status,
     x_msg_count     => x_msg_count,
     x_msg_data     => x_msg_data,
     p_vendor_rec=> l_vendor_rec,
     x_vendor_id => x_vendor_id,
     x_party_id => x_party_id
if (x_return_status <> 'S') then
dbms_output.put_line('Encountered ERROR in supplier creation!!!');
dbms_output.put_line('--------------------------------------');
dbms_output.put_line(x_msg_data);
IF x_msg_count > 1 THEN
FOR i IN 1..x_msg_count LOOP
dbms_output.put_line(substr(FND_MSG_PUB.Get( p_encoded => FND_API.G_FALSE ),1,255));
END LOOP;
END IF;
ELSE
dbms_output.put_line('Supplier Created!!!');
l_supplier_number := l_supplier_number + 1;
l_upd := l_upd +1;
l_vendor_site_rec.vendor_id := x_vendor_id;
l_vendor_site_rec.VENDOR_SITE_CODE := 'HOME';
l_vendor_site_rec.org_id := c.organization_id;
AP_VENDOR_PUB_PKG.Create_Vendor_Site
(      p_api_version => 1,
     x_return_status     => x_return_status,
     x_msg_count     => x_msg_count,
     x_msg_data     => x_msg_data,
     p_vendor_site_rec=> l_vendor_site_rec,
     x_vendor_site_id => x_vendor_site_id,
     x_party_site_id     => x_party_site_id,
     x_location_id     =>x_location_id
if (x_return_status <> 'S') then
dbms_output.put_line('Encountered ERROR in supplier site creation!!!');
dbms_output.put_line('--------------------------------------');
dbms_output.put_line(x_msg_data);
IF x_msg_count > 1 THEN
FOR i IN 1..x_msg_count LOOP
dbms_output.put_line(substr(FND_MSG_PUB.Get( p_encoded => FND_API.G_FALSE ),1,255));
END LOOP;
END IF;
ELSE
dbms_output.put_line('Supplier Site Created!!!');
end if;
end if;
end loop;
dbms_output.put_line(' No. of rows updated '|| l_upd);
exception
when others then dbms_output.put_line(SQLERRM);
end;
/

Answer 1

I guess my reply is too late to help :( .... even I'd been facing the same issue("EMPLOYEE_ID is invalid") when invoking the APIs POS_VENDOR_PUB_PKG.Create_Vendor / ap_vendor_pub_pkg.Create_Vendor by running them as a stand-alone PL Sql block.
It has been resolved when invoked from a concurrent program.
Rgds,
Sumanth