Getting Error - CREATE_CASH : ORA-01403: no data found

Question

When i use api AR_RECEIPT_API_PUB.CREATE_CASH in loop then i get error 'CREATE_CASH : ORA-01403: no data found' for second record.
AR_RECEIPT_API_PUB.CREATE_CASH(p_api_version => 1.0
,p_init_msg_list => fnd_api.g_true
,p_commit => fnd_api.g_true
,p_receipt_number => i_receipt_number
,p_receipt_date => TRUNC(SYSDATE)
,p_gl_date => TRUNC(SYSDATE)
,p_amount => i_receipt_amount
,p_currency_code => g_currency_code
,p_receipt_method_id => i_receipt_method_id
,p_customer_id => i_customer_id
,p_cr_id => l_cr_id
,p_org_id => i_org_id
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
I run it for different org. First org it's running fine but for second it's fail -
Here is output -
Start, Org ID - 84
l_receipt_number - 43164
l_receipt_amount - 74.55
g_currency_code - USD
l_receipt_method_id - 4000
l_customer_id - 7040
l_cr_id -
l_return_status -
l_msg_count -
l_msg_data -
Status - S
Start, Org ID - 81
l_receipt_number - 43166
l_receipt_amount - 30
g_currency_code - USD
l_receipt_method_id - 4000
l_customer_id - 7047
l_cr_id -
l_return_status -
l_msg_count -
l_msg_data -
Error count/msg - 2-
Error msg - CREATE_CASH : ORA-01403: no data found
Error msg - ORA-01403: no data found in Package AR_RECEIPT_API_PUB Procedure Create_cash
PLease help it's urgent

Answer 1

Here is code which i am using...
IF l_ar_pay_rec > 0 THEN
l_receipt_number := ar_cash_receipts_s.NEXTVAL;
FOR r_ar_org_records IN cr_ar_org_records
LOOP
IF r_ar_org_records.org_id = 81 THEN
l_resp_id := 50677;
ELSE
l_resp_id := 50681;
END IF;
MO_GLOBAL.INIT('AR');
MO_GLOBAL.SET_POLICY_CONTEXT('S',r_ar_org_records.org_id);
FND_GLOBAL.APPS_INITIALIZE(g_user_id,l_resp_id,l_appl_id,0);
DBMS_OUTPUT.PUT_LINE('User,Resp,App,Org - '||g_user_id||','||l_resp_id||','||l_appl_id||','||r_ar_org_records.org_id);
-- Derive Receipt Method ID
BEGIN
SELECT receipt_method_id
INTO l_receipt_method_id
FROM ar_receipt_methods
WHERE name = g_receipt_method;
EXCEPTION
WHEN OTHERS THEN
g_ar_error := 'Y';
g_ar_error_msg := g_ar_error_msg||'Receipet Method Not Found, ';
FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Derive Receipt Method ID');
END;
-- Derive Customer ID
BEGIN
SELECT customer_id
,SUM(AMOUNT_PAID)
INTO l_customer_id
,l_receipt_amount
FROM xxar_third_party_validation
WHERE raf_code = i_raf
AND receipt_date = i_date_paid
AND org_id = r_ar_org_records.org_id
AND customer_id is not null
GROUP BY customer_id;
EXCEPTION
WHEN OTHERS THEN
g_ar_error := 'Y';
g_ar_error_msg := g_ar_error_msg||' Customer ID Not Found, ';
FND_FILE.PUT_LINE(FND_FILE.LOG,'Error While Customer ID');
END;
fnd_msg_pub.initialize;
l_return_status := NULL;
l_msg_count := NULL;
l_msg_data := NULL;
l_cr_id := NULL;
g_currency_code := 'USD';
DBMS_OUTPUT.PUT_LINE('Start, Org ID - '||r_ar_org_records.org_id);
-- Create Cash for Customer
DBMS_OUTPUT.PUT_LINE('l_receipt_number - '||l_receipt_number);
DBMS_OUTPUT.PUT_LINE('l_receipt_amount - '||l_receipt_amount);
DBMS_OUTPUT.PUT_LINE('g_currency_code - '||g_currency_code);
DBMS_OUTPUT.PUT_LINE('l_receipt_method_id - '||l_receipt_method_id);
DBMS_OUTPUT.PUT_LINE('l_customer_id - '||l_customer_id);
DBMS_OUTPUT.PUT_LINE('l_cr_id - '||l_cr_id);
DBMS_OUTPUT.PUT_LINE('l_return_status - '||l_return_status);
DBMS_OUTPUT.PUT_LINE('l_msg_count - '||l_msg_count);
DBMS_OUTPUT.PUT_LINE('l_msg_data - '||l_msg_data);
AR_RECEIPT_API_PUB.CREATE_CASH(p_api_version => 1.0
,p_init_msg_list => fnd_api.g_true
,p_receipt_number => l_receipt_number
,p_receipt_date => TRUNC(SYSDATE)
,p_gl_date => TRUNC(SYSDATE)
,p_amount => l_receipt_amount
,p_currency_code => g_currency_code
,p_receipt_method_id => l_receipt_method_id
,p_customer_id => l_customer_id
,p_cr_id => l_cr_id
,p_org_id => r_ar_org_records.org_id
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
DBMS_OUTPUT.PUT_LINE('Status - '||l_return_status);
IF l_return_status <> 'S' THEN
g_ar_error := 'Y';
DBMS_OUTPUT.PUT_LINE('Error count/msg - '||l_msg_count||'-'||l_msg_data);
IF l_msg_count = 1 THEN
g_ar_error_msg := g_ar_error_msg||l_msg_data;
DBMS_OUTPUT.PUT_LINE('Error msg - '||l_msg_data);
ELSIF l_msg_count > 1 THEN
LOOP
l_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next
,fnd_api.g_false);
IF l_msg_data IS NULL THEN
EXIT;
END IF;
g_ar_error_msg := g_ar_error_msg||l_msg_data;
DBMS_OUTPUT.PUT_LINE('Error msg - '||l_msg_data);
END LOOP;
END IF;
xxar_log_error(r_ar_org_records.record_id,SUBSTR(g_ar_error_msg,1,120));
ELSE
DBMS_OUTPUT.PUT_LINE('Status - '||l_return_status);
FOR r_ar_records IN cr_ar_records(r_ar_org_records.org_id)
LOOP
fnd_msg_pub.initialize;
l_return_status := NULL;
l_msg_count := NULL;
l_msg_data := NULL;
l_cr_id := NULL;
l_receipt_amount := r_ar_records.amount_paid;
l_trx_number := r_ar_records.transaction_number;
g_currency_code := r_ar_records.currency_code;
l_receipt_date := SYSDATE;
l_gl_date := SYSDATE;
-- Apply payments for the RAF and Date Paid
AR_RECEIPT_API_PUB.APPLY(p_api_version => 1.0
,p_init_msg_list => fnd_api.g_true
,p_commit => fnd_api.g_false
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_receipt_number => l_receipt_number
,p_trx_number => l_trx_number
,p_amount_applied => l_receipt_amount
,p_org_id => r_ar_org_records.org_id
IF l_return_status <> 'S' THEN
g_ar_error := 'Y';
IF l_msg_count = 1 THEN
g_ar_error_msg := g_ar_error_msg||l_msg_data;
ELSIF l_msg_count > 1 THEN
LOOP
l_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next
,fnd_api.g_false);
IF l_msg_data IS NULL THEN
EXIT;
END IF;
g_ar_error_msg := g_ar_error_msg||l_msg_data;
END LOOP;
END IF;
xxar_log_error(r_ar_records.record_id,SUBSTR(g_ar_error_msg,1,240));
ELSE
DBMS_OUTPUT.PUT_LINE('Sucess 2 - ');
NULL;
/* -- Call Adjustment API for Contractual Allowance
IF NVL(r_ar_records.contractual_allowance_amt,0) > 0 THEN
xxar_third_party_rcpt_adj(r_ar_records.record_id
,r_ar_records.transaction_number
,r_ar_records.contractual_allowance_amt
,i_user_id
END IF; */
END IF;
END LOOP;
END IF;
DBMS_OUTPUT.PUT_LINE('Error Flag AR - '||g_ar_error);
IF g_ar_error = 'Y' THEN
xxar_log_error(r_ar_org_records.record_id,SUBSTR(g_ar_error_msg,1,240));
END IF;
END LOOP;