Create or replace package body ERPSCHOOLS_api_receipt As

Procedure api_recpt IS

v_attribute_record AR_RECEIPT_API_PUB.attribute_rec_type;
v_gl_attr_record AR_RECEIPT_API_PUB.global_attribute_rec_type;
l_msg_count number;
l_return_status varchar2(20000);
l_msg_data varchar2(20000);
l_cr_id NUMBER;
l_msg_index_out NUMBER(10);

BEGIN

BEGIN
AR_RECEIPT_API_PUB.Create_and_apply(
-- Standard API parameters.
p_api_version=>1.0,
p_init_msg_list=> 'F',
p_commit=>'F',
p_attribute_rec => v_attribute_record,
p_global_attribute_rec => v_gl_attr_record,
x_return_status=>l_return_status,
x_msg_count =>l_msg_count,
x_msg_data=>l_msg_data,
-- Receipt info. parameters
p_currency_code=>'USD',
p_amount=>1000,
p_receipt_number=>'test825' ,
p_receipt_date=>SYSDATE,
p_gl_date=>SYSDATE,
--p_customer_number=>2691,
p_customer_id=>5713,
--p_customer_bank_account_id=>12800,
p_customer_site_use_id=>6647,
p_receipt_method_id=>1081,
-- Receipt application parameters
p_customer_trx_id=>111472,
-- p_trx_number =>'12334',
p_amount_applied=>1000,
p_cr_id=>l_cr_id,
-- this is the allocated receipt amount
p_apply_date=>sysdate,
p_apply_gl_date=>sysdate,
p_show_closed_invoices=>'N',
p_move_deferred_tax=>'Y',
p_call_payment_processor=>'F'

);
dbms_output.put_line('x_return_status: '||l_return_status);
dbms_output.put_line('x_msg_count: '||l_msg_count);
dbms_output.put_line('x_msg_data: '||l_msg_data);

if l_msg_count is null then
DBMS_OUTPUT.PUT_LINE('no errors');
else
for i IN 1..l_msg_count LOOP
fnd_Msg_Pub.get(
p_msg_index => i
,p_encoded => FND_API.G_FALSE
,p_data => l_msg_data
,p_msg_index_out => l_msg_index_out);
DBMS_OUTPUT.PUT_LINE('message is: ' || l_msg_data);
DBMS_OUTPUT.PUT_LINE('message index is: ' || l_msg_index_out);
END LOOP;
end if;
END;

END API_RECPT;

END ERPSCHOOLS_api_receipt4;