Supplier Creation Using API

CREATE OR REPLACE PROCEDURE xxaj_supplier_creation
IS
v_vendor_rec     AP_VENDOR_PUB_PKG.r_vendor_rec_type;
x_return_status  VARCHAR2(10);
x_msg_count      NUMBER;
x_msg_data       VARCHAR2(4000);
x_vendor_id      NUMBER;
x_party_id       NUMBER;
v_error_message  VARCHAR2(4000);
v_valdation_flag VARCHAR2(5);

BEGIN

v_vendor_rec.vendor_name :='SIVA L ERP' ;
DBMS_OUTput.put_line(' Calling POS_VENDOR_PUB_PKG');
POS_VENDOR_PUB_PKG.Create_Vendor
( v_vendor_rec,
  x_return_status,
  x_msg_count,
  x_msg_data,
  x_vendor_id,
  x_party_id
);
IF x_return_status = 'S' then
  DBMS_OUTput.put_line('Success');
ELSE
 v_error_message :=x_msg_data;
 v_valdation_flag :='E';
END IF;
DBMS_OUTput.put_line('The Status is :'||x_return_status);
DBMS_OUTput.put_line('The x_msg_count is :'||x_msg_count);
DBMS_OUTput.put_line('The x_msg_data is :'||x_msg_data);
DBMS_OUTput.put_line('The x_vendor_id is :'||x_vendor_id);
DBMS_OUTput.put_line('The x_party_id is :'||x_party_id);
COMMIT;
END xxaj_supplier_creation;


Exec xxaj_supplier_creation;

Ur's
AmarAlam