26: ,p_claim_id IN NUMBER
27: ,x_return_status OUT NOCOPY VARCHAR2)
28: IS
29: BEGIN
30: x_return_status := FND_API.g_ret_sts_success;
31:
32:
33: UPDATE ozf_claims_all
34: SET payment_status = 'PAID'
49: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
50: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
51: FND_MSG_PUB.Add;
52: END IF;
53: x_return_status := FND_API.g_ret_sts_unexp_error;
54: END;
55:
56:
57:
132: -------------------- initialize -----------------------
133: IF OZF_DEBUG_HIGH_ON THEN
134: OZF_Utility_PVT.debug_message(l_full_name||': start');
135: END IF;
136: x_return_status := FND_API.g_ret_sts_success;
137:
138: ------------------------ start -------------------------
139: OZF_AR_Payment_PVT.Query_Claim(
140: p_claim_id => p_payment_claim_id
140: p_claim_id => p_payment_claim_id
141: ,x_claim_rec => l_payment_claim_rec
142: ,x_return_status => l_return_status
143: );
144: IF l_return_status = FND_API.g_ret_sts_error THEN
145: RAISE FND_API.g_exc_error;
146: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
147: RAISE FND_API.g_exc_unexpected_error;
148: END IF;
141: ,x_claim_rec => l_payment_claim_rec
142: ,x_return_status => l_return_status
143: );
144: IF l_return_status = FND_API.g_ret_sts_error THEN
145: RAISE FND_API.g_exc_error;
146: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
147: RAISE FND_API.g_exc_unexpected_error;
148: END IF;
149:
142: ,x_return_status => l_return_status
143: );
144: IF l_return_status = FND_API.g_ret_sts_error THEN
145: RAISE FND_API.g_exc_error;
146: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
147: RAISE FND_API.g_exc_unexpected_error;
148: END IF;
149:
150: IF OZF_DEBUG_HIGH_ON THEN
143: );
144: IF l_return_status = FND_API.g_ret_sts_error THEN
145: RAISE FND_API.g_exc_error;
146: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
147: RAISE FND_API.g_exc_unexpected_error;
148: END IF;
149:
150: IF OZF_DEBUG_HIGH_ON THEN
151: OZF_Utility_PVT.debug_message('p_deduction_type ='||p_deduction_type);
176: ,x_return_status => l_return_status
177: ,x_msg_data => x_msg_data
178: ,x_msg_count => x_msg_count
179: );
180: IF l_return_status = FND_API.g_ret_sts_error THEN
181: RAISE FND_API.g_exc_error;
182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
183: RAISE FND_API.g_exc_unexpected_error;
184: END IF;
177: ,x_msg_data => x_msg_data
178: ,x_msg_count => x_msg_count
179: );
180: IF l_return_status = FND_API.g_ret_sts_error THEN
181: RAISE FND_API.g_exc_error;
182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
183: RAISE FND_API.g_exc_unexpected_error;
184: END IF;
185:
178: ,x_msg_count => x_msg_count
179: );
180: IF l_return_status = FND_API.g_ret_sts_error THEN
181: RAISE FND_API.g_exc_error;
182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
183: RAISE FND_API.g_exc_unexpected_error;
184: END IF;
185:
186:
179: );
180: IF l_return_status = FND_API.g_ret_sts_error THEN
181: RAISE FND_API.g_exc_error;
182: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
183: RAISE FND_API.g_exc_unexpected_error;
184: END IF;
185:
186:
187: -- ------------------------------
199: IF l_payment_claim_rec.receipt_id <> p_claim_rec.receipt_id THEN
200: AR_RECEIPT_API_COVER.Apply_Open_Receipt(
201: -- Standard API parameters.
202: p_api_version => l_api_version,
203: p_init_msg_list => FND_API.G_FALSE,
204: p_commit => FND_API.G_FALSE,
205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
206: x_return_status => l_return_status,
207: x_msg_count => x_msg_count,
200: AR_RECEIPT_API_COVER.Apply_Open_Receipt(
201: -- Standard API parameters.
202: p_api_version => l_api_version,
203: p_init_msg_list => FND_API.G_FALSE,
204: p_commit => FND_API.G_FALSE,
205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
206: x_return_status => l_return_status,
207: x_msg_count => x_msg_count,
208: x_msg_data => x_msg_data,
201: -- Standard API parameters.
202: p_api_version => l_api_version,
203: p_init_msg_list => FND_API.G_FALSE,
204: p_commit => FND_API.G_FALSE,
205: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
206: x_return_status => l_return_status,
207: x_msg_count => x_msg_count,
208: x_msg_data => x_msg_data,
209: -- Receipt application parameters.
227: x_application_ref_num => l_application_ref_num,
228: x_receivable_application_id => l_receivable_application_id,
229: x_applied_rec_app_id => l_applied_rec_app_id
230: );
231: IF l_return_status = FND_API.g_ret_sts_error THEN
232: RAISE FND_API.g_exc_error;
233: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
234: RAISE FND_API.g_exc_unexpected_error;
235: END IF;
228: x_receivable_application_id => l_receivable_application_id,
229: x_applied_rec_app_id => l_applied_rec_app_id
230: );
231: IF l_return_status = FND_API.g_ret_sts_error THEN
232: RAISE FND_API.g_exc_error;
233: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
234: RAISE FND_API.g_exc_unexpected_error;
235: END IF;
236: END IF;
229: x_applied_rec_app_id => l_applied_rec_app_id
230: );
231: IF l_return_status = FND_API.g_ret_sts_error THEN
232: RAISE FND_API.g_exc_error;
233: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
234: RAISE FND_API.g_exc_unexpected_error;
235: END IF;
236: END IF;
237:
230: );
231: IF l_return_status = FND_API.g_ret_sts_error THEN
232: RAISE FND_API.g_exc_error;
233: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
234: RAISE FND_API.g_exc_unexpected_error;
235: END IF;
236: END IF;
237:
238:
255: ,x_return_status => l_return_status
256: ,x_msg_data => x_msg_data
257: ,x_msg_count => x_msg_count
258: );
259: IF l_return_status = FND_API.g_ret_sts_error THEN
260: RAISE FND_API.g_exc_error;
261: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
262: RAISE FND_API.g_exc_unexpected_error;
263: END IF;
256: ,x_msg_data => x_msg_data
257: ,x_msg_count => x_msg_count
258: );
259: IF l_return_status = FND_API.g_ret_sts_error THEN
260: RAISE FND_API.g_exc_error;
261: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
262: RAISE FND_API.g_exc_unexpected_error;
263: END IF;
264:
257: ,x_msg_count => x_msg_count
258: );
259: IF l_return_status = FND_API.g_ret_sts_error THEN
260: RAISE FND_API.g_exc_error;
261: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
262: RAISE FND_API.g_exc_unexpected_error;
263: END IF;
264:
265: IF OZF_DEBUG_HIGH_ON THEN
258: );
259: IF l_return_status = FND_API.g_ret_sts_error THEN
260: RAISE FND_API.g_exc_error;
261: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
262: RAISE FND_API.g_exc_unexpected_error;
263: END IF;
264:
265: IF OZF_DEBUG_HIGH_ON THEN
266: OZF_Utility_PVT.debug_message('3. Unapply Invoice Deduction');
274: ,x_return_status => l_return_status
275: ,x_msg_data => x_msg_data
276: ,x_msg_count => x_msg_count
277: );
278: IF l_return_status = FND_API.g_ret_sts_error THEN
279: RAISE FND_API.g_exc_error;
280: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
275: ,x_msg_data => x_msg_data
276: ,x_msg_count => x_msg_count
277: );
278: IF l_return_status = FND_API.g_ret_sts_error THEN
279: RAISE FND_API.g_exc_error;
280: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
283:
276: ,x_msg_count => x_msg_count
277: );
278: IF l_return_status = FND_API.g_ret_sts_error THEN
279: RAISE FND_API.g_exc_error;
280: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
283:
284:
277: );
278: IF l_return_status = FND_API.g_ret_sts_error THEN
279: RAISE FND_API.g_exc_error;
280: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
281: RAISE FND_API.g_exc_unexpected_error;
282: END IF;
283:
284:
285: ELSIF p_deduction_type = 'RECEIPT_DED' THEN
303: ,x_return_status => l_return_status
304: ,x_msg_data => x_msg_data
305: ,x_msg_count => x_msg_count
306: );
307: IF l_return_status = FND_API.g_ret_sts_error THEN
308: RAISE FND_API.g_exc_error;
309: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
310: RAISE FND_API.g_exc_unexpected_error;
311: END IF;
304: ,x_msg_data => x_msg_data
305: ,x_msg_count => x_msg_count
306: );
307: IF l_return_status = FND_API.g_ret_sts_error THEN
308: RAISE FND_API.g_exc_error;
309: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
310: RAISE FND_API.g_exc_unexpected_error;
311: END IF;
312: END IF; -- end if p_deduction_type
305: ,x_msg_count => x_msg_count
306: );
307: IF l_return_status = FND_API.g_ret_sts_error THEN
308: RAISE FND_API.g_exc_error;
309: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
310: RAISE FND_API.g_exc_unexpected_error;
311: END IF;
312: END IF; -- end if p_deduction_type
313:
306: );
307: IF l_return_status = FND_API.g_ret_sts_error THEN
308: RAISE FND_API.g_exc_error;
309: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
310: RAISE FND_API.g_exc_unexpected_error;
311: END IF;
312: END IF; -- end if p_deduction_type
313:
314: -- ----------------------------------------------------------
315: -- 4. Update Payment Detail
316: -- ----------------------------------------------------------
317: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
318: p_api_version => l_api_version
319: ,p_init_msg_list => FND_API.g_false
320: ,p_commit => FND_API.g_false
321: ,p_validation_level => FND_API.g_valid_level_full
322: ,x_return_status => l_return_status
323: ,x_msg_data => x_msg_data
316: -- ----------------------------------------------------------
317: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
318: p_api_version => l_api_version
319: ,p_init_msg_list => FND_API.g_false
320: ,p_commit => FND_API.g_false
321: ,p_validation_level => FND_API.g_valid_level_full
322: ,x_return_status => l_return_status
323: ,x_msg_data => x_msg_data
324: ,x_msg_count => x_msg_count
317: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
318: p_api_version => l_api_version
319: ,p_init_msg_list => FND_API.g_false
320: ,p_commit => FND_API.g_false
321: ,p_validation_level => FND_API.g_valid_level_full
322: ,x_return_status => l_return_status
323: ,x_msg_data => x_msg_data
324: ,x_msg_count => x_msg_count
325: ,p_claim_id => p_claim_rec.claim_id
330: ,p_adjust_id => NULL
331: ,p_settlement_doc_id => NULL
332: ,p_settlement_mode => 'MASS_SETTLEMENT'
333: );
334: IF l_return_status = FND_API.g_ret_sts_error THEN
335: RAISE FND_API.g_exc_error;
336: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
337: RAISE FND_API.g_exc_unexpected_error;
338: END IF;
331: ,p_settlement_doc_id => NULL
332: ,p_settlement_mode => 'MASS_SETTLEMENT'
333: );
334: IF l_return_status = FND_API.g_ret_sts_error THEN
335: RAISE FND_API.g_exc_error;
336: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
337: RAISE FND_API.g_exc_unexpected_error;
338: END IF;
339:
332: ,p_settlement_mode => 'MASS_SETTLEMENT'
333: );
334: IF l_return_status = FND_API.g_ret_sts_error THEN
335: RAISE FND_API.g_exc_error;
336: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
337: RAISE FND_API.g_exc_unexpected_error;
338: END IF;
339:
340:
333: );
334: IF l_return_status = FND_API.g_ret_sts_error THEN
335: RAISE FND_API.g_exc_error;
336: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
337: RAISE FND_API.g_exc_unexpected_error;
338: END IF;
339:
340:
341: /* Bug4079177: Receipt Application error when netting */
365: ,x_return_status => l_return_status
366: ,x_msg_data => x_msg_data
367: ,x_msg_count => x_msg_count
368: );
369: IF l_return_status = FND_API.g_ret_sts_error THEN
370: RAISE FND_API.g_exc_error;
371: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
372: RAISE FND_API.g_exc_unexpected_error;
373: END IF;
366: ,x_msg_data => x_msg_data
367: ,x_msg_count => x_msg_count
368: );
369: IF l_return_status = FND_API.g_ret_sts_error THEN
370: RAISE FND_API.g_exc_error;
371: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
372: RAISE FND_API.g_exc_unexpected_error;
373: END IF;
374:
367: ,x_msg_count => x_msg_count
368: );
369: IF l_return_status = FND_API.g_ret_sts_error THEN
370: RAISE FND_API.g_exc_error;
371: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
372: RAISE FND_API.g_exc_unexpected_error;
373: END IF;
374:
375:
368: );
369: IF l_return_status = FND_API.g_ret_sts_error THEN
370: RAISE FND_API.g_exc_error;
371: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
372: RAISE FND_API.g_exc_unexpected_error;
373: END IF;
374:
375:
376: -- ------------------------------
385: IF l_payment_claim_rec.receipt_id <> p_claim_rec.receipt_id THEN
386: AR_RECEIPT_API_COVER.Apply_Open_Receipt(
387: -- Standard API parameters.
388: p_api_version => l_api_version,
389: p_init_msg_list => FND_API.G_FALSE,
390: p_commit => FND_API.G_FALSE,
391: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
392: x_return_status => l_return_status,
393: x_msg_count => x_msg_count,
386: AR_RECEIPT_API_COVER.Apply_Open_Receipt(
387: -- Standard API parameters.
388: p_api_version => l_api_version,
389: p_init_msg_list => FND_API.G_FALSE,
390: p_commit => FND_API.G_FALSE,
391: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
392: x_return_status => l_return_status,
393: x_msg_count => x_msg_count,
394: x_msg_data => x_msg_data,
387: -- Standard API parameters.
388: p_api_version => l_api_version,
389: p_init_msg_list => FND_API.G_FALSE,
390: p_commit => FND_API.G_FALSE,
391: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
392: x_return_status => l_return_status,
393: x_msg_count => x_msg_count,
394: x_msg_data => x_msg_data,
395: -- Receipt application parameters.
413: x_application_ref_num => l_application_ref_num,
414: x_receivable_application_id => l_receivable_application_id,
415: x_applied_rec_app_id => l_applied_rec_app_id
416: );
417: IF l_return_status = FND_API.g_ret_sts_error THEN
418: RAISE FND_API.g_exc_error;
419: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
420: RAISE FND_API.g_exc_unexpected_error;
421: END IF;
414: x_receivable_application_id => l_receivable_application_id,
415: x_applied_rec_app_id => l_applied_rec_app_id
416: );
417: IF l_return_status = FND_API.g_ret_sts_error THEN
418: RAISE FND_API.g_exc_error;
419: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
420: RAISE FND_API.g_exc_unexpected_error;
421: END IF;
422: END IF;
415: x_applied_rec_app_id => l_applied_rec_app_id
416: );
417: IF l_return_status = FND_API.g_ret_sts_error THEN
418: RAISE FND_API.g_exc_error;
419: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
420: RAISE FND_API.g_exc_unexpected_error;
421: END IF;
422: END IF;
423:
416: );
417: IF l_return_status = FND_API.g_ret_sts_error THEN
418: RAISE FND_API.g_exc_error;
419: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
420: RAISE FND_API.g_exc_unexpected_error;
421: END IF;
422: END IF;
423:
424:
442: ,x_return_status => l_return_status
443: ,x_msg_data => x_msg_data
444: ,x_msg_count => x_msg_count
445: );
446: IF l_return_status = FND_API.g_ret_sts_error THEN
447: RAISE FND_API.g_exc_error;
448: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
449: RAISE FND_API.g_exc_unexpected_error;
450: END IF;
443: ,x_msg_data => x_msg_data
444: ,x_msg_count => x_msg_count
445: );
446: IF l_return_status = FND_API.g_ret_sts_error THEN
447: RAISE FND_API.g_exc_error;
448: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
449: RAISE FND_API.g_exc_unexpected_error;
450: END IF;
451:
444: ,x_msg_count => x_msg_count
445: );
446: IF l_return_status = FND_API.g_ret_sts_error THEN
447: RAISE FND_API.g_exc_error;
448: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
449: RAISE FND_API.g_exc_unexpected_error;
450: END IF;
451:
452: IF OZF_DEBUG_HIGH_ON THEN
445: );
446: IF l_return_status = FND_API.g_ret_sts_error THEN
447: RAISE FND_API.g_exc_error;
448: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
449: RAISE FND_API.g_exc_unexpected_error;
450: END IF;
451:
452: IF OZF_DEBUG_HIGH_ON THEN
453: OZF_Utility_PVT.debug_message('3. Unapply Invoice Deduction');
461: ,x_return_status => l_return_status
462: ,x_msg_data => x_msg_data
463: ,x_msg_count => x_msg_count
464: );
465: IF l_return_status = FND_API.g_ret_sts_error THEN
466: RAISE FND_API.g_exc_error;
467: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
468: RAISE FND_API.g_exc_unexpected_error;
469: END IF;
462: ,x_msg_data => x_msg_data
463: ,x_msg_count => x_msg_count
464: );
465: IF l_return_status = FND_API.g_ret_sts_error THEN
466: RAISE FND_API.g_exc_error;
467: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
468: RAISE FND_API.g_exc_unexpected_error;
469: END IF;
470:
463: ,x_msg_count => x_msg_count
464: );
465: IF l_return_status = FND_API.g_ret_sts_error THEN
466: RAISE FND_API.g_exc_error;
467: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
468: RAISE FND_API.g_exc_unexpected_error;
469: END IF;
470:
471:
464: );
465: IF l_return_status = FND_API.g_ret_sts_error THEN
466: RAISE FND_API.g_exc_error;
467: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
468: RAISE FND_API.g_exc_unexpected_error;
469: END IF;
470:
471:
472: ELSIF l_payment_claim_rec.source_object_id IS NULL THEN
489: ,x_return_status => l_return_status
490: ,x_msg_data => x_msg_data
491: ,x_msg_count => x_msg_count
492: );
493: IF l_return_status = FND_API.g_ret_sts_error THEN
494: RAISE FND_API.g_exc_error;
495: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
496: RAISE FND_API.g_exc_unexpected_error;
497: END IF;
490: ,x_msg_data => x_msg_data
491: ,x_msg_count => x_msg_count
492: );
493: IF l_return_status = FND_API.g_ret_sts_error THEN
494: RAISE FND_API.g_exc_error;
495: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
496: RAISE FND_API.g_exc_unexpected_error;
497: END IF;
498: END IF; -- end if l_payment_claim_rec.claim_class
491: ,x_msg_count => x_msg_count
492: );
493: IF l_return_status = FND_API.g_ret_sts_error THEN
494: RAISE FND_API.g_exc_error;
495: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
496: RAISE FND_API.g_exc_unexpected_error;
497: END IF;
498: END IF; -- end if l_payment_claim_rec.claim_class
499:
492: );
493: IF l_return_status = FND_API.g_ret_sts_error THEN
494: RAISE FND_API.g_exc_error;
495: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
496: RAISE FND_API.g_exc_unexpected_error;
497: END IF;
498: END IF; -- end if l_payment_claim_rec.claim_class
499:
500:
502: -- 4. Update Payment Detail
503: -- ----------------------------------------------------------
504: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
505: p_api_version => l_api_version
506: ,p_init_msg_list => FND_API.g_false
507: ,p_commit => FND_API.g_false
508: ,p_validation_level => FND_API.g_valid_level_full
509: ,x_return_status => l_return_status
510: ,x_msg_data => x_msg_data
503: -- ----------------------------------------------------------
504: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
505: p_api_version => l_api_version
506: ,p_init_msg_list => FND_API.g_false
507: ,p_commit => FND_API.g_false
508: ,p_validation_level => FND_API.g_valid_level_full
509: ,x_return_status => l_return_status
510: ,x_msg_data => x_msg_data
511: ,x_msg_count => x_msg_count
504: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
505: p_api_version => l_api_version
506: ,p_init_msg_list => FND_API.g_false
507: ,p_commit => FND_API.g_false
508: ,p_validation_level => FND_API.g_valid_level_full
509: ,x_return_status => l_return_status
510: ,x_msg_data => x_msg_data
511: ,x_msg_count => x_msg_count
512: ,p_claim_id => p_claim_rec.claim_id
517: ,p_adjust_id => NULL
518: ,p_settlement_doc_id => NULL
519: ,p_settlement_mode => 'MASS_SETTLEMENT'
520: );
521: IF l_return_status = FND_API.g_ret_sts_error THEN
522: RAISE FND_API.g_exc_error;
523: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
524: RAISE FND_API.g_exc_unexpected_error;
525: END IF;
518: ,p_settlement_doc_id => NULL
519: ,p_settlement_mode => 'MASS_SETTLEMENT'
520: );
521: IF l_return_status = FND_API.g_ret_sts_error THEN
522: RAISE FND_API.g_exc_error;
523: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
524: RAISE FND_API.g_exc_unexpected_error;
525: END IF;
526:
519: ,p_settlement_mode => 'MASS_SETTLEMENT'
520: );
521: IF l_return_status = FND_API.g_ret_sts_error THEN
522: RAISE FND_API.g_exc_error;
523: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
524: RAISE FND_API.g_exc_unexpected_error;
525: END IF;
526:
527: END IF;
520: );
521: IF l_return_status = FND_API.g_ret_sts_error THEN
522: RAISE FND_API.g_exc_error;
523: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
524: RAISE FND_API.g_exc_unexpected_error;
525: END IF;
526:
527: END IF;
528:
530: IF OZF_DEBUG_HIGH_ON THEN
531: OZF_Utility_PVT.debug_message(l_full_name||': end');
532: END IF;
533: EXCEPTION
534: WHEN FND_API.g_exc_error THEN
535: x_return_status := FND_API.g_ret_sts_error;
536:
537: WHEN FND_API.g_exc_unexpected_error THEN
538: x_return_status := FND_API.g_ret_sts_unexp_error ;
531: OZF_Utility_PVT.debug_message(l_full_name||': end');
532: END IF;
533: EXCEPTION
534: WHEN FND_API.g_exc_error THEN
535: x_return_status := FND_API.g_ret_sts_error;
536:
537: WHEN FND_API.g_exc_unexpected_error THEN
538: x_return_status := FND_API.g_ret_sts_unexp_error ;
539:
533: EXCEPTION
534: WHEN FND_API.g_exc_error THEN
535: x_return_status := FND_API.g_ret_sts_error;
536:
537: WHEN FND_API.g_exc_unexpected_error THEN
538: x_return_status := FND_API.g_ret_sts_unexp_error ;
539:
540: WHEN OTHERS THEN
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
534: WHEN FND_API.g_exc_error THEN
535: x_return_status := FND_API.g_ret_sts_error;
536:
537: WHEN FND_API.g_exc_unexpected_error THEN
538: x_return_status := FND_API.g_ret_sts_unexp_error ;
539:
540: WHEN OTHERS THEN
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
542: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
537: WHEN FND_API.g_exc_unexpected_error THEN
538: x_return_status := FND_API.g_ret_sts_unexp_error ;
539:
540: WHEN OTHERS THEN
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
542: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
543: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
544: END IF;
545:
628: -------------------- initialize -----------------------
629: IF OZF_DEBUG_HIGH_ON THEN
630: OZF_Utility_PVT.debug_message(l_full_name||': start');
631: END IF;
632: x_return_status := FND_API.g_ret_sts_success;
633:
634: ------------------------ start -------------------------
635: IF p_deduction_type = 'RECEIPT_OPM' THEN
636: /*------------------------------------------------------------*
643: ,x_msg_data => x_msg_data
644: ,x_msg_count => x_msg_count
645: );
646: */
647: IF l_return_status = FND_API.g_ret_sts_error THEN
648: RAISE FND_API.g_exc_error;
649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
650: RAISE FND_API.g_exc_unexpected_error;
651: END IF;
644: ,x_msg_count => x_msg_count
645: );
646: */
647: IF l_return_status = FND_API.g_ret_sts_error THEN
648: RAISE FND_API.g_exc_error;
649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
650: RAISE FND_API.g_exc_unexpected_error;
651: END IF;
652: ELSE
645: );
646: */
647: IF l_return_status = FND_API.g_ret_sts_error THEN
648: RAISE FND_API.g_exc_error;
649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
650: RAISE FND_API.g_exc_unexpected_error;
651: END IF;
652: ELSE
653: IF p_payment_reference_id IS NULL OR
646: */
647: IF l_return_status = FND_API.g_ret_sts_error THEN
648: RAISE FND_API.g_exc_error;
649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
650: RAISE FND_API.g_exc_unexpected_error;
651: END IF;
652: ELSE
653: IF p_payment_reference_id IS NULL OR
654: p_payment_reference_id = FND_API.g_miss_num THEN
650: RAISE FND_API.g_exc_unexpected_error;
651: END IF;
652: ELSE
653: IF p_payment_reference_id IS NULL OR
654: p_payment_reference_id = FND_API.g_miss_num THEN
655: /*------------------------------------------------------------*
656: | No payment reference specified (No open credit memo specified) -> AutoInvoice
657: *------------------------------------------------------------*/
658: IF OZF_DEBUG_HIGH_ON THEN
660: END IF;
661: -- 1. AutoInvoice
662: OZF_AR_INTERFACE_PVT.Interface_Claim(
663: p_api_version => l_api_version
664: ,p_init_msg_list => FND_API.g_false
665: ,p_commit => FND_API.g_false
666: ,p_validation_level => FND_API.g_valid_level_full
667: ,x_return_status => l_return_status
668: ,x_msg_data => x_msg_data
661: -- 1. AutoInvoice
662: OZF_AR_INTERFACE_PVT.Interface_Claim(
663: p_api_version => l_api_version
664: ,p_init_msg_list => FND_API.g_false
665: ,p_commit => FND_API.g_false
666: ,p_validation_level => FND_API.g_valid_level_full
667: ,x_return_status => l_return_status
668: ,x_msg_data => x_msg_data
669: ,x_msg_count => x_msg_count
662: OZF_AR_INTERFACE_PVT.Interface_Claim(
663: p_api_version => l_api_version
664: ,p_init_msg_list => FND_API.g_false
665: ,p_commit => FND_API.g_false
666: ,p_validation_level => FND_API.g_valid_level_full
667: ,x_return_status => l_return_status
668: ,x_msg_data => x_msg_data
669: ,x_msg_count => x_msg_count
670: ,p_claim_id => p_claim_rec.claim_id
668: ,x_msg_data => x_msg_data
669: ,x_msg_count => x_msg_count
670: ,p_claim_id => p_claim_rec.claim_id
671: );
672: IF l_return_status = FND_API.g_ret_sts_error THEN
673: RAISE FND_API.g_exc_error;
674: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
675: RAISE FND_API.g_exc_unexpected_error;
676: END IF;
669: ,x_msg_count => x_msg_count
670: ,p_claim_id => p_claim_rec.claim_id
671: );
672: IF l_return_status = FND_API.g_ret_sts_error THEN
673: RAISE FND_API.g_exc_error;
674: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
675: RAISE FND_API.g_exc_unexpected_error;
676: END IF;
677:
670: ,p_claim_id => p_claim_rec.claim_id
671: );
672: IF l_return_status = FND_API.g_ret_sts_error THEN
673: RAISE FND_API.g_exc_error;
674: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
675: RAISE FND_API.g_exc_unexpected_error;
676: END IF;
677:
678: --2. Update Deduction payment detail --
671: );
672: IF l_return_status = FND_API.g_ret_sts_error THEN
673: RAISE FND_API.g_exc_error;
674: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
675: RAISE FND_API.g_exc_unexpected_error;
676: END IF;
677:
678: --2. Update Deduction payment detail --
679: l_online_upd_ded_status := FALSE;
688: ,x_return_status => l_return_status
689: ,x_msg_data => x_msg_data
690: ,x_msg_count => x_msg_count
691: );
692: IF l_return_status = FND_API.g_ret_sts_error THEN
693: RAISE FND_API.g_exc_error;
694: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
695: RAISE FND_API.g_exc_unexpected_error;
696: END IF;
689: ,x_msg_data => x_msg_data
690: ,x_msg_count => x_msg_count
691: );
692: IF l_return_status = FND_API.g_ret_sts_error THEN
693: RAISE FND_API.g_exc_error;
694: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
695: RAISE FND_API.g_exc_unexpected_error;
696: END IF;
697: */
690: ,x_msg_count => x_msg_count
691: );
692: IF l_return_status = FND_API.g_ret_sts_error THEN
693: RAISE FND_API.g_exc_error;
694: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
695: RAISE FND_API.g_exc_unexpected_error;
696: END IF;
697: */
698:
691: );
692: IF l_return_status = FND_API.g_ret_sts_error THEN
693: RAISE FND_API.g_exc_error;
694: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
695: RAISE FND_API.g_exc_unexpected_error;
696: END IF;
697: */
698:
699: OPEN csr_cm_exist_on_rec(p_claim_rec.receipt_id, p_payment_reference_id);
729: ,x_return_status => l_return_status
730: ,x_msg_data => x_msg_data
731: ,x_msg_count => x_msg_count
732: );
733: IF l_return_status = FND_API.g_ret_sts_error THEN
734: RAISE FND_API.g_exc_error;
735: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
736: RAISE FND_API.g_exc_unexpected_error;
737: END IF;
730: ,x_msg_data => x_msg_data
731: ,x_msg_count => x_msg_count
732: );
733: IF l_return_status = FND_API.g_ret_sts_error THEN
734: RAISE FND_API.g_exc_error;
735: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
736: RAISE FND_API.g_exc_unexpected_error;
737: END IF;
738:
731: ,x_msg_count => x_msg_count
732: );
733: IF l_return_status = FND_API.g_ret_sts_error THEN
734: RAISE FND_API.g_exc_error;
735: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
736: RAISE FND_API.g_exc_unexpected_error;
737: END IF;
738:
739: IF l_cm_applied_on_rec_amt IS NULL THEN
732: );
733: IF l_return_status = FND_API.g_ret_sts_error THEN
734: RAISE FND_API.g_exc_error;
735: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
736: RAISE FND_API.g_exc_unexpected_error;
737: END IF;
738:
739: IF l_cm_applied_on_rec_amt IS NULL THEN
740: IF OZF_DEBUG_HIGH_ON THEN
750: ,x_return_status => l_return_status
751: ,x_msg_data => x_msg_data
752: ,x_msg_count => x_msg_count
753: );
754: IF l_return_status = FND_API.g_ret_sts_error THEN
755: RAISE FND_API.g_exc_error;
756: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
757: RAISE FND_API.g_exc_unexpected_error;
758: END IF;
751: ,x_msg_data => x_msg_data
752: ,x_msg_count => x_msg_count
753: );
754: IF l_return_status = FND_API.g_ret_sts_error THEN
755: RAISE FND_API.g_exc_error;
756: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
757: RAISE FND_API.g_exc_unexpected_error;
758: END IF;
759: ELSE
752: ,x_msg_count => x_msg_count
753: );
754: IF l_return_status = FND_API.g_ret_sts_error THEN
755: RAISE FND_API.g_exc_error;
756: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
757: RAISE FND_API.g_exc_unexpected_error;
758: END IF;
759: ELSE
760: IF OZF_DEBUG_HIGH_ON THEN
753: );
754: IF l_return_status = FND_API.g_ret_sts_error THEN
755: RAISE FND_API.g_exc_error;
756: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
757: RAISE FND_API.g_exc_unexpected_error;
758: END IF;
759: ELSE
760: IF OZF_DEBUG_HIGH_ON THEN
761: OZF_Utility_PVT.debug_message('Invoice Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
767: arp_deduction_cover2.reapply_credit_memo(
768: p_customer_trx_id => p_payment_reference_id ,
769: p_cash_receipt_id => p_claim_rec.receipt_id,
770: p_amount_applied => l_cm_applied_on_rec_amt + (p_credit_memo_amount * -1),
771: p_init_msg_list => FND_API.g_false,
772: x_return_status => l_return_status,
773: x_msg_count => x_msg_count,
774: x_msg_data => x_msg_data);
775: IF l_return_status = FND_API.g_ret_sts_error THEN
771: p_init_msg_list => FND_API.g_false,
772: x_return_status => l_return_status,
773: x_msg_count => x_msg_count,
774: x_msg_data => x_msg_data);
775: IF l_return_status = FND_API.g_ret_sts_error THEN
776: RAISE FND_API.g_exc_error;
777: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
778: RAISE FND_API.g_exc_unexpected_error;
779: END IF;
772: x_return_status => l_return_status,
773: x_msg_count => x_msg_count,
774: x_msg_data => x_msg_data);
775: IF l_return_status = FND_API.g_ret_sts_error THEN
776: RAISE FND_API.g_exc_error;
777: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
778: RAISE FND_API.g_exc_unexpected_error;
779: END IF;
780: END IF;
773: x_msg_count => x_msg_count,
774: x_msg_data => x_msg_data);
775: IF l_return_status = FND_API.g_ret_sts_error THEN
776: RAISE FND_API.g_exc_error;
777: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
778: RAISE FND_API.g_exc_unexpected_error;
779: END IF;
780: END IF;
781:
774: x_msg_data => x_msg_data);
775: IF l_return_status = FND_API.g_ret_sts_error THEN
776: RAISE FND_API.g_exc_error;
777: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
778: RAISE FND_API.g_exc_unexpected_error;
779: END IF;
780: END IF;
781:
782: IF OZF_DEBUG_HIGH_ON THEN
791: ,x_return_status => l_return_status
792: ,x_msg_data => x_msg_data
793: ,x_msg_count => x_msg_count
794: );
795: IF l_return_status = FND_API.g_ret_sts_error THEN
796: RAISE FND_API.g_exc_error;
797: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
798: RAISE FND_API.g_exc_unexpected_error;
799: END IF;
792: ,x_msg_data => x_msg_data
793: ,x_msg_count => x_msg_count
794: );
795: IF l_return_status = FND_API.g_ret_sts_error THEN
796: RAISE FND_API.g_exc_error;
797: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
798: RAISE FND_API.g_exc_unexpected_error;
799: END IF;
800:
793: ,x_msg_count => x_msg_count
794: );
795: IF l_return_status = FND_API.g_ret_sts_error THEN
796: RAISE FND_API.g_exc_error;
797: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
798: RAISE FND_API.g_exc_unexpected_error;
799: END IF;
800:
801: l_online_upd_ded_status := TRUE;
794: );
795: IF l_return_status = FND_API.g_ret_sts_error THEN
796: RAISE FND_API.g_exc_error;
797: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
798: RAISE FND_API.g_exc_unexpected_error;
799: END IF;
800:
801: l_online_upd_ded_status := TRUE;
802:
823: ,x_return_status => l_return_status
824: ,x_msg_data => x_msg_data
825: ,x_msg_count => x_msg_count
826: );
827: IF l_return_status = FND_API.g_ret_sts_error THEN
828: RAISE FND_API.g_exc_error;
829: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
830: RAISE FND_API.g_exc_unexpected_error;
831: END IF;
824: ,x_msg_data => x_msg_data
825: ,x_msg_count => x_msg_count
826: );
827: IF l_return_status = FND_API.g_ret_sts_error THEN
828: RAISE FND_API.g_exc_error;
829: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
830: RAISE FND_API.g_exc_unexpected_error;
831: END IF;
832: IF OZF_DEBUG_HIGH_ON THEN
825: ,x_msg_count => x_msg_count
826: );
827: IF l_return_status = FND_API.g_ret_sts_error THEN
828: RAISE FND_API.g_exc_error;
829: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
830: RAISE FND_API.g_exc_unexpected_error;
831: END IF;
832: IF OZF_DEBUG_HIGH_ON THEN
833: OZF_Utility_PVT.debug_message('Receipt Deduction -> 2. Unapply claim investigation');
826: );
827: IF l_return_status = FND_API.g_ret_sts_error THEN
828: RAISE FND_API.g_exc_error;
829: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
830: RAISE FND_API.g_exc_unexpected_error;
831: END IF;
832: IF OZF_DEBUG_HIGH_ON THEN
833: OZF_Utility_PVT.debug_message('Receipt Deduction -> 2. Unapply claim investigation');
834: END IF;
846: arp_deduction_cover2.reapply_credit_memo(
847: p_customer_trx_id => p_payment_reference_id ,
848: p_cash_receipt_id => p_claim_rec.receipt_id,
849: p_amount_applied => l_cm_applied_on_rec_amt + (p_credit_memo_amount * -1),
850: p_init_msg_list => FND_API.g_false,
851: x_return_status => l_return_status,
852: x_msg_count => x_msg_count,
853: x_msg_data => x_msg_data);
854: IF l_return_status = FND_API.g_ret_sts_error THEN
850: p_init_msg_list => FND_API.g_false,
851: x_return_status => l_return_status,
852: x_msg_count => x_msg_count,
853: x_msg_data => x_msg_data);
854: IF l_return_status = FND_API.g_ret_sts_error THEN
855: RAISE FND_API.g_exc_error;
856: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
857: RAISE FND_API.g_exc_unexpected_error;
858: END IF;
851: x_return_status => l_return_status,
852: x_msg_count => x_msg_count,
853: x_msg_data => x_msg_data);
854: IF l_return_status = FND_API.g_ret_sts_error THEN
855: RAISE FND_API.g_exc_error;
856: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
857: RAISE FND_API.g_exc_unexpected_error;
858: END IF;
859: END IF;
852: x_msg_count => x_msg_count,
853: x_msg_data => x_msg_data);
854: IF l_return_status = FND_API.g_ret_sts_error THEN
855: RAISE FND_API.g_exc_error;
856: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
857: RAISE FND_API.g_exc_unexpected_error;
858: END IF;
859: END IF;
860:
853: x_msg_data => x_msg_data);
854: IF l_return_status = FND_API.g_ret_sts_error THEN
855: RAISE FND_API.g_exc_error;
856: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
857: RAISE FND_API.g_exc_unexpected_error;
858: END IF;
859: END IF;
860:
861: -- 2. Unapply claim investigation
873: ,x_return_status => l_return_status
874: ,x_msg_data => x_msg_data
875: ,x_msg_count => x_msg_count
876: );
877: IF l_return_status = FND_API.g_ret_sts_error THEN
878: RAISE FND_API.g_exc_error;
879: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
880: RAISE FND_API.g_exc_unexpected_error;
881: END IF;
874: ,x_msg_data => x_msg_data
875: ,x_msg_count => x_msg_count
876: );
877: IF l_return_status = FND_API.g_ret_sts_error THEN
878: RAISE FND_API.g_exc_error;
879: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
880: RAISE FND_API.g_exc_unexpected_error;
881: END IF;
882: l_online_upd_ded_status := TRUE;
875: ,x_msg_count => x_msg_count
876: );
877: IF l_return_status = FND_API.g_ret_sts_error THEN
878: RAISE FND_API.g_exc_error;
879: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
880: RAISE FND_API.g_exc_unexpected_error;
881: END IF;
882: l_online_upd_ded_status := TRUE;
883: END IF; -- end if p_deduction_type = 'SOURCE_DED', elsif p_deduction_type = 'DEDUCTION_DED'
876: );
877: IF l_return_status = FND_API.g_ret_sts_error THEN
878: RAISE FND_API.g_exc_error;
879: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
880: RAISE FND_API.g_exc_unexpected_error;
881: END IF;
882: l_online_upd_ded_status := TRUE;
883: END IF; -- end if p_deduction_type = 'SOURCE_DED', elsif p_deduction_type = 'DEDUCTION_DED'
884: END IF; -- end if payment_reference_id is null
889: IF l_online_upd_ded_status THEN
890: -- Update Deduction payment detail
891: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
892: p_api_version => l_api_version
893: ,p_init_msg_list => FND_API.g_false
894: ,p_commit => FND_API.g_false
895: ,p_validation_level => FND_API.g_valid_level_full
896: ,x_return_status => l_return_status
897: ,x_msg_data => x_msg_data
890: -- Update Deduction payment detail
891: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
892: p_api_version => l_api_version
893: ,p_init_msg_list => FND_API.g_false
894: ,p_commit => FND_API.g_false
895: ,p_validation_level => FND_API.g_valid_level_full
896: ,x_return_status => l_return_status
897: ,x_msg_data => x_msg_data
898: ,x_msg_count => x_msg_count
891: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
892: p_api_version => l_api_version
893: ,p_init_msg_list => FND_API.g_false
894: ,p_commit => FND_API.g_false
895: ,p_validation_level => FND_API.g_valid_level_full
896: ,x_return_status => l_return_status
897: ,x_msg_data => x_msg_data
898: ,x_msg_count => x_msg_count
899: ,p_claim_id => p_claim_rec.claim_id
905: ,p_settlement_doc_id => p_settlement_doc_id
906: ,p_settlement_mode => 'MASS_SETTLEMENT'
907: ,p_settlement_amount => l_settlement_amount --Bug4308188
908: );
909: IF l_return_status = FND_API.g_ret_sts_error THEN
910: RAISE FND_API.g_exc_error;
911: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
912: RAISE FND_API.g_exc_unexpected_error;
913: END IF;
906: ,p_settlement_mode => 'MASS_SETTLEMENT'
907: ,p_settlement_amount => l_settlement_amount --Bug4308188
908: );
909: IF l_return_status = FND_API.g_ret_sts_error THEN
910: RAISE FND_API.g_exc_error;
911: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
912: RAISE FND_API.g_exc_unexpected_error;
913: END IF;
914: END IF;
907: ,p_settlement_amount => l_settlement_amount --Bug4308188
908: );
909: IF l_return_status = FND_API.g_ret_sts_error THEN
910: RAISE FND_API.g_exc_error;
911: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
912: RAISE FND_API.g_exc_unexpected_error;
913: END IF;
914: END IF;
915:
908: );
909: IF l_return_status = FND_API.g_ret_sts_error THEN
910: RAISE FND_API.g_exc_error;
911: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
912: RAISE FND_API.g_exc_unexpected_error;
913: END IF;
914: END IF;
915:
916: END IF;
918: IF OZF_DEBUG_HIGH_ON THEN
919: OZF_Utility_PVT.debug_message(l_full_name||': end');
920: END IF;
921: EXCEPTION
922: WHEN FND_API.g_exc_error THEN
923: x_return_status := FND_API.g_ret_sts_error;
924:
925: WHEN FND_API.g_exc_unexpected_error THEN
926: x_return_status := FND_API.g_ret_sts_unexp_error ;
919: OZF_Utility_PVT.debug_message(l_full_name||': end');
920: END IF;
921: EXCEPTION
922: WHEN FND_API.g_exc_error THEN
923: x_return_status := FND_API.g_ret_sts_error;
924:
925: WHEN FND_API.g_exc_unexpected_error THEN
926: x_return_status := FND_API.g_ret_sts_unexp_error ;
927:
921: EXCEPTION
922: WHEN FND_API.g_exc_error THEN
923: x_return_status := FND_API.g_ret_sts_error;
924:
925: WHEN FND_API.g_exc_unexpected_error THEN
926: x_return_status := FND_API.g_ret_sts_unexp_error ;
927:
928: WHEN OTHERS THEN
929: x_return_status := FND_API.g_ret_sts_unexp_error ;
922: WHEN FND_API.g_exc_error THEN
923: x_return_status := FND_API.g_ret_sts_error;
924:
925: WHEN FND_API.g_exc_unexpected_error THEN
926: x_return_status := FND_API.g_ret_sts_unexp_error ;
927:
928: WHEN OTHERS THEN
929: x_return_status := FND_API.g_ret_sts_unexp_error ;
930: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
925: WHEN FND_API.g_exc_unexpected_error THEN
926: x_return_status := FND_API.g_ret_sts_unexp_error ;
927:
928: WHEN OTHERS THEN
929: x_return_status := FND_API.g_ret_sts_unexp_error ;
930: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
931: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
932: END IF;
933:
1000: IF OZF_DEBUG_HIGH_ON THEN
1001: OZF_Utility_PVT.debug_message(l_full_name||': start');
1002: END IF;
1003:
1004: x_return_status := FND_API.g_ret_sts_success;
1005:
1006: ------------------------ start -------------------------
1007: IF p_deduction_type = 'RECEIPT_OPM' THEN
1008: IF p_payment_reference_id IS NULL THEN
1011: *------------------------------------------------------------*/
1012: -- 1. AutoInvoice
1013: OZF_AR_INTERFACE_PVT.Interface_Claim(
1014: p_api_version => l_api_version
1015: ,p_init_msg_list => FND_API.g_false
1016: ,p_commit => FND_API.g_false
1017: ,p_validation_level => FND_API.g_valid_level_full
1018: ,x_return_status => l_return_status
1019: ,x_msg_data => x_msg_data
1012: -- 1. AutoInvoice
1013: OZF_AR_INTERFACE_PVT.Interface_Claim(
1014: p_api_version => l_api_version
1015: ,p_init_msg_list => FND_API.g_false
1016: ,p_commit => FND_API.g_false
1017: ,p_validation_level => FND_API.g_valid_level_full
1018: ,x_return_status => l_return_status
1019: ,x_msg_data => x_msg_data
1020: ,x_msg_count => x_msg_count
1013: OZF_AR_INTERFACE_PVT.Interface_Claim(
1014: p_api_version => l_api_version
1015: ,p_init_msg_list => FND_API.g_false
1016: ,p_commit => FND_API.g_false
1017: ,p_validation_level => FND_API.g_valid_level_full
1018: ,x_return_status => l_return_status
1019: ,x_msg_data => x_msg_data
1020: ,x_msg_count => x_msg_count
1021: ,p_claim_id => p_claim_rec.claim_id
1019: ,x_msg_data => x_msg_data
1020: ,x_msg_count => x_msg_count
1021: ,p_claim_id => p_claim_rec.claim_id
1022: );
1023: IF l_return_status = FND_API.g_ret_sts_error THEN
1024: RAISE FND_API.g_exc_error;
1025: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1026: RAISE FND_API.g_exc_unexpected_error;
1027: END IF;
1020: ,x_msg_count => x_msg_count
1021: ,p_claim_id => p_claim_rec.claim_id
1022: );
1023: IF l_return_status = FND_API.g_ret_sts_error THEN
1024: RAISE FND_API.g_exc_error;
1025: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1026: RAISE FND_API.g_exc_unexpected_error;
1027: END IF;
1028:
1021: ,p_claim_id => p_claim_rec.claim_id
1022: );
1023: IF l_return_status = FND_API.g_ret_sts_error THEN
1024: RAISE FND_API.g_exc_error;
1025: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1026: RAISE FND_API.g_exc_unexpected_error;
1027: END IF;
1028:
1029: --2. Update Deduction payment detail --
1022: );
1023: IF l_return_status = FND_API.g_ret_sts_error THEN
1024: RAISE FND_API.g_exc_error;
1025: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1026: RAISE FND_API.g_exc_unexpected_error;
1027: END IF;
1028:
1029: --2. Update Deduction payment detail --
1030: l_online_upd_ded_status := FALSE;
1038: ,x_return_status => l_return_status
1039: ,x_msg_data => x_msg_data
1040: ,x_msg_count => x_msg_count
1041: );
1042: IF l_return_status = FND_API.g_ret_sts_error THEN
1043: RAISE FND_API.g_exc_error;
1044: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1045: RAISE FND_API.g_exc_unexpected_error;
1046: END IF;
1039: ,x_msg_data => x_msg_data
1040: ,x_msg_count => x_msg_count
1041: );
1042: IF l_return_status = FND_API.g_ret_sts_error THEN
1043: RAISE FND_API.g_exc_error;
1044: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1045: RAISE FND_API.g_exc_unexpected_error;
1046: END IF;
1047: */
1040: ,x_msg_count => x_msg_count
1041: );
1042: IF l_return_status = FND_API.g_ret_sts_error THEN
1043: RAISE FND_API.g_exc_error;
1044: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1045: RAISE FND_API.g_exc_unexpected_error;
1046: END IF;
1047: */
1048:
1041: );
1042: IF l_return_status = FND_API.g_ret_sts_error THEN
1043: RAISE FND_API.g_exc_error;
1044: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1045: RAISE FND_API.g_exc_unexpected_error;
1046: END IF;
1047: */
1048:
1049: /*------------------------------------------------------------*
1073: ,x_return_status => l_return_status
1074: ,x_msg_data => x_msg_data
1075: ,x_msg_count => x_msg_count
1076: );
1077: IF l_return_status = FND_API.g_ret_sts_error THEN
1078: RAISE FND_API.g_exc_error;
1079: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1080: RAISE FND_API.g_exc_unexpected_error;
1081: END IF;
1074: ,x_msg_data => x_msg_data
1075: ,x_msg_count => x_msg_count
1076: );
1077: IF l_return_status = FND_API.g_ret_sts_error THEN
1078: RAISE FND_API.g_exc_error;
1079: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1080: RAISE FND_API.g_exc_unexpected_error;
1081: END IF;
1082:
1075: ,x_msg_count => x_msg_count
1076: );
1077: IF l_return_status = FND_API.g_ret_sts_error THEN
1078: RAISE FND_API.g_exc_error;
1079: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1080: RAISE FND_API.g_exc_unexpected_error;
1081: END IF;
1082:
1083:
1076: );
1077: IF l_return_status = FND_API.g_ret_sts_error THEN
1078: RAISE FND_API.g_exc_error;
1079: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1080: RAISE FND_API.g_exc_unexpected_error;
1081: END IF;
1082:
1083:
1084: IF l_dm_applied_on_rec_amt IS NULL THEN
1093: ,x_return_status => l_return_status
1094: ,x_msg_data => x_msg_data
1095: ,x_msg_count => x_msg_count
1096: );
1097: IF l_return_status = FND_API.g_ret_sts_error THEN
1098: RAISE FND_API.g_exc_error;
1099: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1100: RAISE FND_API.g_exc_unexpected_error;
1101: END IF;
1094: ,x_msg_data => x_msg_data
1095: ,x_msg_count => x_msg_count
1096: );
1097: IF l_return_status = FND_API.g_ret_sts_error THEN
1098: RAISE FND_API.g_exc_error;
1099: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1100: RAISE FND_API.g_exc_unexpected_error;
1101: END IF;
1102: ELSE
1095: ,x_msg_count => x_msg_count
1096: );
1097: IF l_return_status = FND_API.g_ret_sts_error THEN
1098: RAISE FND_API.g_exc_error;
1099: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1100: RAISE FND_API.g_exc_unexpected_error;
1101: END IF;
1102: ELSE
1103: OZF_Utility_PVT.debug_message('Overpayment: Pay by Previous Open Debit Memo which already exists on the receipt');
1096: );
1097: IF l_return_status = FND_API.g_ret_sts_error THEN
1098: RAISE FND_API.g_exc_error;
1099: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1100: RAISE FND_API.g_exc_unexpected_error;
1101: END IF;
1102: ELSE
1103: OZF_Utility_PVT.debug_message('Overpayment: Pay by Previous Open Debit Memo which already exists on the receipt');
1104: OZF_Utility_PVT.debug_message('Overpayment -> 1.5. Unapply debit memo on receipt');
1109: ,x_return_status => l_return_status
1110: ,x_msg_data => x_msg_data
1111: ,x_msg_count => x_msg_count
1112: );
1113: IF l_return_status = FND_API.g_ret_sts_error THEN
1114: RAISE FND_API.g_exc_error;
1115: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1116: RAISE FND_API.g_exc_unexpected_error;
1117: END IF;
1110: ,x_msg_data => x_msg_data
1111: ,x_msg_count => x_msg_count
1112: );
1113: IF l_return_status = FND_API.g_ret_sts_error THEN
1114: RAISE FND_API.g_exc_error;
1115: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1116: RAISE FND_API.g_exc_unexpected_error;
1117: END IF;
1118:
1111: ,x_msg_count => x_msg_count
1112: );
1113: IF l_return_status = FND_API.g_ret_sts_error THEN
1114: RAISE FND_API.g_exc_error;
1115: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1116: RAISE FND_API.g_exc_unexpected_error;
1117: END IF;
1118:
1119: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply debit memo with increased amount on receipt');
1112: );
1113: IF l_return_status = FND_API.g_ret_sts_error THEN
1114: RAISE FND_API.g_exc_error;
1115: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1116: RAISE FND_API.g_exc_unexpected_error;
1117: END IF;
1118:
1119: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply debit memo with increased amount on receipt');
1120: l_settlement_amount := (p_debit_memo_amount * -1); --Bug4308188
1128: ,x_return_status => l_return_status
1129: ,x_msg_data => x_msg_data
1130: ,x_msg_count => x_msg_count
1131: );
1132: IF l_return_status = FND_API.g_ret_sts_error THEN
1133: RAISE FND_API.g_exc_error;
1134: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1135: RAISE FND_API.g_exc_unexpected_error;
1136: END IF;
1129: ,x_msg_data => x_msg_data
1130: ,x_msg_count => x_msg_count
1131: );
1132: IF l_return_status = FND_API.g_ret_sts_error THEN
1133: RAISE FND_API.g_exc_error;
1134: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1135: RAISE FND_API.g_exc_unexpected_error;
1136: END IF;
1137: END IF;
1130: ,x_msg_count => x_msg_count
1131: );
1132: IF l_return_status = FND_API.g_ret_sts_error THEN
1133: RAISE FND_API.g_exc_error;
1134: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1135: RAISE FND_API.g_exc_unexpected_error;
1136: END IF;
1137: END IF;
1138:
1131: );
1132: IF l_return_status = FND_API.g_ret_sts_error THEN
1133: RAISE FND_API.g_exc_error;
1134: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1135: RAISE FND_API.g_exc_unexpected_error;
1136: END IF;
1137: END IF;
1138:
1139: l_online_upd_ded_status := TRUE;
1152: IF l_online_upd_ded_status THEN
1153: -- Update Deduction payment detail
1154: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1155: p_api_version => l_api_version
1156: ,p_init_msg_list => FND_API.g_false
1157: ,p_commit => FND_API.g_false
1158: ,p_validation_level => FND_API.g_valid_level_full
1159: ,x_return_status => l_return_status
1160: ,x_msg_data => x_msg_data
1153: -- Update Deduction payment detail
1154: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1155: p_api_version => l_api_version
1156: ,p_init_msg_list => FND_API.g_false
1157: ,p_commit => FND_API.g_false
1158: ,p_validation_level => FND_API.g_valid_level_full
1159: ,x_return_status => l_return_status
1160: ,x_msg_data => x_msg_data
1161: ,x_msg_count => x_msg_count
1154: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1155: p_api_version => l_api_version
1156: ,p_init_msg_list => FND_API.g_false
1157: ,p_commit => FND_API.g_false
1158: ,p_validation_level => FND_API.g_valid_level_full
1159: ,x_return_status => l_return_status
1160: ,x_msg_data => x_msg_data
1161: ,x_msg_count => x_msg_count
1162: ,p_claim_id => p_claim_rec.claim_id
1168: ,p_settlement_doc_id => p_settlement_doc_id
1169: ,p_settlement_mode => 'MASS_SETTLEMENT'
1170: ,p_settlement_amount => l_settlement_amount --Bug4308188
1171: );
1172: IF l_return_status = FND_API.g_ret_sts_error THEN
1173: RAISE FND_API.g_exc_error;
1174: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1175: RAISE FND_API.g_exc_unexpected_error;
1176: END IF;
1169: ,p_settlement_mode => 'MASS_SETTLEMENT'
1170: ,p_settlement_amount => l_settlement_amount --Bug4308188
1171: );
1172: IF l_return_status = FND_API.g_ret_sts_error THEN
1173: RAISE FND_API.g_exc_error;
1174: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1175: RAISE FND_API.g_exc_unexpected_error;
1176: END IF;
1177: END IF;
1170: ,p_settlement_amount => l_settlement_amount --Bug4308188
1171: );
1172: IF l_return_status = FND_API.g_ret_sts_error THEN
1173: RAISE FND_API.g_exc_error;
1174: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1175: RAISE FND_API.g_exc_unexpected_error;
1176: END IF;
1177: END IF;
1178:
1171: );
1172: IF l_return_status = FND_API.g_ret_sts_error THEN
1173: RAISE FND_API.g_exc_error;
1174: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1175: RAISE FND_API.g_exc_unexpected_error;
1176: END IF;
1177: END IF;
1178:
1179: IF OZF_DEBUG_HIGH_ON THEN
1179: IF OZF_DEBUG_HIGH_ON THEN
1180: OZF_Utility_PVT.debug_message(l_full_name||': end');
1181: END IF;
1182: EXCEPTION
1183: WHEN FND_API.g_exc_error THEN
1184: x_return_status := FND_API.g_ret_sts_error;
1185:
1186: WHEN FND_API.g_exc_unexpected_error THEN
1187: x_return_status := FND_API.g_ret_sts_unexp_error ;
1180: OZF_Utility_PVT.debug_message(l_full_name||': end');
1181: END IF;
1182: EXCEPTION
1183: WHEN FND_API.g_exc_error THEN
1184: x_return_status := FND_API.g_ret_sts_error;
1185:
1186: WHEN FND_API.g_exc_unexpected_error THEN
1187: x_return_status := FND_API.g_ret_sts_unexp_error ;
1188:
1182: EXCEPTION
1183: WHEN FND_API.g_exc_error THEN
1184: x_return_status := FND_API.g_ret_sts_error;
1185:
1186: WHEN FND_API.g_exc_unexpected_error THEN
1187: x_return_status := FND_API.g_ret_sts_unexp_error ;
1188:
1189: WHEN OTHERS THEN
1190: x_return_status := FND_API.g_ret_sts_unexp_error ;
1183: WHEN FND_API.g_exc_error THEN
1184: x_return_status := FND_API.g_ret_sts_error;
1185:
1186: WHEN FND_API.g_exc_unexpected_error THEN
1187: x_return_status := FND_API.g_ret_sts_unexp_error ;
1188:
1189: WHEN OTHERS THEN
1190: x_return_status := FND_API.g_ret_sts_unexp_error ;
1191: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1186: WHEN FND_API.g_exc_unexpected_error THEN
1187: x_return_status := FND_API.g_ret_sts_unexp_error ;
1188:
1189: WHEN OTHERS THEN
1190: x_return_status := FND_API.g_ret_sts_unexp_error ;
1191: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1192: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1193: END IF;
1194:
1229: IF OZF_DEBUG_HIGH_ON THEN
1230: OZF_Utility_PVT.debug_message(l_full_name||': start');
1231: END IF;
1232:
1233: x_return_status := FND_API.g_ret_sts_success;
1234:
1235: ------------------------ start -------------------------
1236: /*------------------------------------------------------------*
1237: | Update Claim Status to CLOSED.
1242: ,x_return_status => l_return_status
1243: ,x_msg_data => x_msg_data
1244: ,x_msg_count => x_msg_count
1245: );
1246: IF l_return_status = FND_API.g_ret_sts_error THEN
1247: RAISE FND_API.g_exc_error;
1248: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1249: RAISE FND_API.g_exc_unexpected_error;
1250: END IF;
1243: ,x_msg_data => x_msg_data
1244: ,x_msg_count => x_msg_count
1245: );
1246: IF l_return_status = FND_API.g_ret_sts_error THEN
1247: RAISE FND_API.g_exc_error;
1248: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1249: RAISE FND_API.g_exc_unexpected_error;
1250: END IF;
1251: */
1244: ,x_msg_count => x_msg_count
1245: );
1246: IF l_return_status = FND_API.g_ret_sts_error THEN
1247: RAISE FND_API.g_exc_error;
1248: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1249: RAISE FND_API.g_exc_unexpected_error;
1250: END IF;
1251: */
1252: IF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED') THEN
1245: );
1246: IF l_return_status = FND_API.g_ret_sts_error THEN
1247: RAISE FND_API.g_exc_error;
1248: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1249: RAISE FND_API.g_exc_unexpected_error;
1250: END IF;
1251: */
1252: IF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED') THEN
1253: IF p_deduction_type = 'SOURCE_DED'THEN
1264: ,x_return_status => l_return_status
1265: ,x_msg_data => x_msg_data
1266: ,x_msg_count => x_msg_count
1267: );
1268: IF l_return_status = FND_API.g_ret_sts_error THEN
1269: RAISE FND_API.g_exc_error;
1270: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1271: RAISE FND_API.g_exc_unexpected_error;
1272: END IF;
1265: ,x_msg_data => x_msg_data
1266: ,x_msg_count => x_msg_count
1267: );
1268: IF l_return_status = FND_API.g_ret_sts_error THEN
1269: RAISE FND_API.g_exc_error;
1270: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1271: RAISE FND_API.g_exc_unexpected_error;
1272: END IF;
1273:
1266: ,x_msg_count => x_msg_count
1267: );
1268: IF l_return_status = FND_API.g_ret_sts_error THEN
1269: RAISE FND_API.g_exc_error;
1270: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1271: RAISE FND_API.g_exc_unexpected_error;
1272: END IF;
1273:
1274: IF OZF_DEBUG_HIGH_ON THEN
1267: );
1268: IF l_return_status = FND_API.g_ret_sts_error THEN
1269: RAISE FND_API.g_exc_error;
1270: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1271: RAISE FND_API.g_exc_unexpected_error;
1272: END IF;
1273:
1274: IF OZF_DEBUG_HIGH_ON THEN
1275: OZF_Utility_PVT.debug_message('x_cb_customer_trx_id = '||l_cb_customer_trx_id);
1281: IF l_cb_customer_trx_id IS NOT NULL THEN
1282: -- Update Deduction payment detail
1283: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1284: p_api_version => l_api_version
1285: ,p_init_msg_list => FND_API.g_false
1286: ,p_commit => FND_API.g_false
1287: ,p_validation_level => FND_API.g_valid_level_full
1288: ,x_return_status => l_return_status
1289: ,x_msg_data => x_msg_data
1282: -- Update Deduction payment detail
1283: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1284: p_api_version => l_api_version
1285: ,p_init_msg_list => FND_API.g_false
1286: ,p_commit => FND_API.g_false
1287: ,p_validation_level => FND_API.g_valid_level_full
1288: ,x_return_status => l_return_status
1289: ,x_msg_data => x_msg_data
1290: ,x_msg_count => x_msg_count
1283: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1284: p_api_version => l_api_version
1285: ,p_init_msg_list => FND_API.g_false
1286: ,p_commit => FND_API.g_false
1287: ,p_validation_level => FND_API.g_valid_level_full
1288: ,x_return_status => l_return_status
1289: ,x_msg_data => x_msg_data
1290: ,x_msg_count => x_msg_count
1291: ,p_claim_id => p_claim_rec.claim_id
1296: ,p_adjust_id => NULL
1297: ,p_settlement_doc_id => p_settlement_doc_id
1298: ,p_settlement_mode => 'MASS_SETTLEMENT'
1299: );
1300: IF l_return_status = FND_API.g_ret_sts_error THEN
1301: RAISE FND_API.g_exc_error;
1302: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1303: RAISE FND_API.g_exc_unexpected_error;
1304: END IF;
1297: ,p_settlement_doc_id => p_settlement_doc_id
1298: ,p_settlement_mode => 'MASS_SETTLEMENT'
1299: );
1300: IF l_return_status = FND_API.g_ret_sts_error THEN
1301: RAISE FND_API.g_exc_error;
1302: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1303: RAISE FND_API.g_exc_unexpected_error;
1304: END IF;
1305: END IF;
1298: ,p_settlement_mode => 'MASS_SETTLEMENT'
1299: );
1300: IF l_return_status = FND_API.g_ret_sts_error THEN
1301: RAISE FND_API.g_exc_error;
1302: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1303: RAISE FND_API.g_exc_unexpected_error;
1304: END IF;
1305: END IF;
1306:
1299: );
1300: IF l_return_status = FND_API.g_ret_sts_error THEN
1301: RAISE FND_API.g_exc_error;
1302: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1303: RAISE FND_API.g_exc_unexpected_error;
1304: END IF;
1305: END IF;
1306:
1307: ELSE
1315: IF OZF_DEBUG_HIGH_ON THEN
1316: OZF_Utility_PVT.debug_message(l_full_name||': end');
1317: END IF;
1318: EXCEPTION
1319: WHEN FND_API.g_exc_error THEN
1320: x_return_status := FND_API.g_ret_sts_error;
1321:
1322: WHEN FND_API.g_exc_unexpected_error THEN
1323: x_return_status := FND_API.g_ret_sts_unexp_error ;
1316: OZF_Utility_PVT.debug_message(l_full_name||': end');
1317: END IF;
1318: EXCEPTION
1319: WHEN FND_API.g_exc_error THEN
1320: x_return_status := FND_API.g_ret_sts_error;
1321:
1322: WHEN FND_API.g_exc_unexpected_error THEN
1323: x_return_status := FND_API.g_ret_sts_unexp_error ;
1324:
1318: EXCEPTION
1319: WHEN FND_API.g_exc_error THEN
1320: x_return_status := FND_API.g_ret_sts_error;
1321:
1322: WHEN FND_API.g_exc_unexpected_error THEN
1323: x_return_status := FND_API.g_ret_sts_unexp_error ;
1324:
1325: WHEN OTHERS THEN
1326: x_return_status := FND_API.g_ret_sts_unexp_error ;
1319: WHEN FND_API.g_exc_error THEN
1320: x_return_status := FND_API.g_ret_sts_error;
1321:
1322: WHEN FND_API.g_exc_unexpected_error THEN
1323: x_return_status := FND_API.g_ret_sts_unexp_error ;
1324:
1325: WHEN OTHERS THEN
1326: x_return_status := FND_API.g_ret_sts_unexp_error ;
1327: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1322: WHEN FND_API.g_exc_unexpected_error THEN
1323: x_return_status := FND_API.g_ret_sts_unexp_error ;
1324:
1325: WHEN OTHERS THEN
1326: x_return_status := FND_API.g_ret_sts_unexp_error ;
1327: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1328: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1329: END IF;
1330:
1365: IF OZF_DEBUG_HIGH_ON THEN
1366: OZF_Utility_PVT.debug_message(l_full_name||': start');
1367: END IF;
1368:
1369: x_return_status := FND_API.g_ret_sts_success;
1370:
1371: ------------------------ start -------------------------
1372: IF p_deduction_type = 'RECEIPT_DED' AND
1373: NOT ARP_DEDUCTION_COVER.negative_rct_writeoffs_allowed THEN
1379: ,x_return_status => l_return_status
1380: ,x_msg_data => x_msg_data
1381: ,x_msg_count => x_msg_count
1382: );
1383: IF l_return_status = FND_API.g_ret_sts_error THEN
1384: RAISE FND_API.g_exc_error;
1385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1386: RAISE FND_API.g_exc_unexpected_error;
1387: END IF;
1380: ,x_msg_data => x_msg_data
1381: ,x_msg_count => x_msg_count
1382: );
1383: IF l_return_status = FND_API.g_ret_sts_error THEN
1384: RAISE FND_API.g_exc_error;
1385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1386: RAISE FND_API.g_exc_unexpected_error;
1387: END IF;
1388:
1381: ,x_msg_count => x_msg_count
1382: );
1383: IF l_return_status = FND_API.g_ret_sts_error THEN
1384: RAISE FND_API.g_exc_error;
1385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1386: RAISE FND_API.g_exc_unexpected_error;
1387: END IF;
1388:
1389: BEGIN
1382: );
1383: IF l_return_status = FND_API.g_ret_sts_error THEN
1384: RAISE FND_API.g_exc_error;
1385: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1386: RAISE FND_API.g_exc_unexpected_error;
1387: END IF;
1388:
1389: BEGIN
1390: UPDATE ozf_claims_all
1405: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1406: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1407: FND_MSG_PUB.Add;
1408: END IF;
1409: RAISE FND_API.g_exc_unexpected_error;
1410: END;
1411:
1412: ELSIF p_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED', 'RECEIPT_OPM') THEN
1413: /*------------------------------------------------------------*
1419: ,x_return_status => l_return_status
1420: ,x_msg_data => x_msg_data
1421: ,x_msg_count => x_msg_count
1422: );
1423: IF l_return_status = FND_API.g_ret_sts_error THEN
1424: RAISE FND_API.g_exc_error;
1425: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1426: RAISE FND_API.g_exc_unexpected_error;
1427: END IF;
1420: ,x_msg_data => x_msg_data
1421: ,x_msg_count => x_msg_count
1422: );
1423: IF l_return_status = FND_API.g_ret_sts_error THEN
1424: RAISE FND_API.g_exc_error;
1425: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1426: RAISE FND_API.g_exc_unexpected_error;
1427: END IF;
1428: */
1421: ,x_msg_count => x_msg_count
1422: );
1423: IF l_return_status = FND_API.g_ret_sts_error THEN
1424: RAISE FND_API.g_exc_error;
1425: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1426: RAISE FND_API.g_exc_unexpected_error;
1427: END IF;
1428: */
1429:
1422: );
1423: IF l_return_status = FND_API.g_ret_sts_error THEN
1424: RAISE FND_API.g_exc_error;
1425: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1426: RAISE FND_API.g_exc_unexpected_error;
1427: END IF;
1428: */
1429:
1430: OZF_AR_Payment_PVT.Create_AR_Write_Off(
1437: ,x_return_status => l_return_status
1438: ,x_msg_data => x_msg_data
1439: ,x_msg_count => x_msg_count
1440: );
1441: IF l_return_status = FND_API.g_ret_sts_error THEN
1442: RAISE FND_API.g_exc_error;
1443: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1444: RAISE FND_API.g_exc_unexpected_error;
1445: END IF;
1438: ,x_msg_data => x_msg_data
1439: ,x_msg_count => x_msg_count
1440: );
1441: IF l_return_status = FND_API.g_ret_sts_error THEN
1442: RAISE FND_API.g_exc_error;
1443: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1444: RAISE FND_API.g_exc_unexpected_error;
1445: END IF;
1446: END IF;
1439: ,x_msg_count => x_msg_count
1440: );
1441: IF l_return_status = FND_API.g_ret_sts_error THEN
1442: RAISE FND_API.g_exc_error;
1443: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1444: RAISE FND_API.g_exc_unexpected_error;
1445: END IF;
1446: END IF;
1447:
1440: );
1441: IF l_return_status = FND_API.g_ret_sts_error THEN
1442: RAISE FND_API.g_exc_error;
1443: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1444: RAISE FND_API.g_exc_unexpected_error;
1445: END IF;
1446: END IF;
1447:
1448: IF OZF_DEBUG_HIGH_ON THEN
1448: IF OZF_DEBUG_HIGH_ON THEN
1449: OZF_Utility_PVT.debug_message(l_full_name||': end');
1450: END IF;
1451: EXCEPTION
1452: WHEN FND_API.g_exc_error THEN
1453: x_return_status := FND_API.g_ret_sts_error;
1454:
1455: WHEN FND_API.g_exc_unexpected_error THEN
1456: x_return_status := FND_API.g_ret_sts_unexp_error ;
1449: OZF_Utility_PVT.debug_message(l_full_name||': end');
1450: END IF;
1451: EXCEPTION
1452: WHEN FND_API.g_exc_error THEN
1453: x_return_status := FND_API.g_ret_sts_error;
1454:
1455: WHEN FND_API.g_exc_unexpected_error THEN
1456: x_return_status := FND_API.g_ret_sts_unexp_error ;
1457:
1451: EXCEPTION
1452: WHEN FND_API.g_exc_error THEN
1453: x_return_status := FND_API.g_ret_sts_error;
1454:
1455: WHEN FND_API.g_exc_unexpected_error THEN
1456: x_return_status := FND_API.g_ret_sts_unexp_error ;
1457:
1458: WHEN OTHERS THEN
1459: x_return_status := FND_API.g_ret_sts_unexp_error ;
1452: WHEN FND_API.g_exc_error THEN
1453: x_return_status := FND_API.g_ret_sts_error;
1454:
1455: WHEN FND_API.g_exc_unexpected_error THEN
1456: x_return_status := FND_API.g_ret_sts_unexp_error ;
1457:
1458: WHEN OTHERS THEN
1459: x_return_status := FND_API.g_ret_sts_unexp_error ;
1460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1455: WHEN FND_API.g_exc_unexpected_error THEN
1456: x_return_status := FND_API.g_ret_sts_unexp_error ;
1457:
1458: WHEN OTHERS THEN
1459: x_return_status := FND_API.g_ret_sts_unexp_error ;
1460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1461: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1462: END IF;
1463:
1508: IF OZF_DEBUG_HIGH_ON THEN
1509: OZF_Utility_PVT.debug_message(l_full_name||': start');
1510: END IF;
1511:
1512: x_return_status := FND_API.g_ret_sts_success;
1513:
1514: ------------------------ start -------------------------
1515: /*------------------------------------------------------------*
1516: | Update Claim Status to CLOSED.
1521: ,x_return_status => l_return_status
1522: ,x_msg_data => x_msg_data
1523: ,x_msg_count => x_msg_count
1524: );
1525: IF l_return_status = FND_API.g_ret_sts_error THEN
1526: RAISE FND_API.g_exc_error;
1527: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1528: RAISE FND_API.g_exc_unexpected_error;
1529: END IF;
1522: ,x_msg_data => x_msg_data
1523: ,x_msg_count => x_msg_count
1524: );
1525: IF l_return_status = FND_API.g_ret_sts_error THEN
1526: RAISE FND_API.g_exc_error;
1527: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1528: RAISE FND_API.g_exc_unexpected_error;
1529: END IF;
1530: */
1523: ,x_msg_count => x_msg_count
1524: );
1525: IF l_return_status = FND_API.g_ret_sts_error THEN
1526: RAISE FND_API.g_exc_error;
1527: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1528: RAISE FND_API.g_exc_unexpected_error;
1529: END IF;
1530: */
1531:
1524: );
1525: IF l_return_status = FND_API.g_ret_sts_error THEN
1526: RAISE FND_API.g_exc_error;
1527: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1528: RAISE FND_API.g_exc_unexpected_error;
1529: END IF;
1530: */
1531:
1532: IF p_deduction_type = 'RECEIPT_OPM' THEN
1550: ,x_return_status => l_return_status
1551: ,x_msg_data => x_msg_data
1552: ,x_msg_count => x_msg_count
1553: );
1554: IF l_return_status = FND_API.g_ret_sts_error THEN
1555: RAISE FND_API.g_exc_error;
1556: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1557: RAISE FND_API.g_exc_unexpected_error;
1558: END IF;
1551: ,x_msg_data => x_msg_data
1552: ,x_msg_count => x_msg_count
1553: );
1554: IF l_return_status = FND_API.g_ret_sts_error THEN
1555: RAISE FND_API.g_exc_error;
1556: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1557: RAISE FND_API.g_exc_unexpected_error;
1558: END IF;
1559:
1552: ,x_msg_count => x_msg_count
1553: );
1554: IF l_return_status = FND_API.g_ret_sts_error THEN
1555: RAISE FND_API.g_exc_error;
1556: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1557: RAISE FND_API.g_exc_unexpected_error;
1558: END IF;
1559:
1560: IF OZF_DEBUG_HIGH_ON THEN
1553: );
1554: IF l_return_status = FND_API.g_ret_sts_error THEN
1555: RAISE FND_API.g_exc_error;
1556: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1557: RAISE FND_API.g_exc_unexpected_error;
1558: END IF;
1559:
1560: IF OZF_DEBUG_HIGH_ON THEN
1561: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply On Account Credit.');
1567: ,x_return_status => l_return_status
1568: ,x_msg_data => x_msg_data
1569: ,x_msg_count => x_msg_count
1570: );
1571: IF l_return_status = FND_API.g_ret_sts_error THEN
1572: RAISE FND_API.g_exc_error;
1573: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1574: RAISE FND_API.g_exc_unexpected_error;
1575: END IF;
1568: ,x_msg_data => x_msg_data
1569: ,x_msg_count => x_msg_count
1570: );
1571: IF l_return_status = FND_API.g_ret_sts_error THEN
1572: RAISE FND_API.g_exc_error;
1573: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1574: RAISE FND_API.g_exc_unexpected_error;
1575: END IF;
1576:
1569: ,x_msg_count => x_msg_count
1570: );
1571: IF l_return_status = FND_API.g_ret_sts_error THEN
1572: RAISE FND_API.g_exc_error;
1573: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1574: RAISE FND_API.g_exc_unexpected_error;
1575: END IF;
1576:
1577: /*------------------------------------------------------------*
1570: );
1571: IF l_return_status = FND_API.g_ret_sts_error THEN
1572: RAISE FND_API.g_exc_error;
1573: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1574: RAISE FND_API.g_exc_unexpected_error;
1575: END IF;
1576:
1577: /*------------------------------------------------------------*
1578: | Update Deduction payment detail
1582: OZF_Utility_PVT.debug_message('cash_receipt_id = '||p_claim_rec.receipt_id);
1583: END IF;
1584: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1585: p_api_version => l_api_version
1586: ,p_init_msg_list => FND_API.g_false
1587: ,p_commit => FND_API.g_false
1588: ,p_validation_level => FND_API.g_valid_level_full
1589: ,x_return_status => l_return_status
1590: ,x_msg_data => x_msg_data
1583: END IF;
1584: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1585: p_api_version => l_api_version
1586: ,p_init_msg_list => FND_API.g_false
1587: ,p_commit => FND_API.g_false
1588: ,p_validation_level => FND_API.g_valid_level_full
1589: ,x_return_status => l_return_status
1590: ,x_msg_data => x_msg_data
1591: ,x_msg_count => x_msg_count
1584: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
1585: p_api_version => l_api_version
1586: ,p_init_msg_list => FND_API.g_false
1587: ,p_commit => FND_API.g_false
1588: ,p_validation_level => FND_API.g_valid_level_full
1589: ,x_return_status => l_return_status
1590: ,x_msg_data => x_msg_data
1591: ,x_msg_count => x_msg_count
1592: ,p_claim_id => p_claim_rec.claim_id
1597: ,p_adjust_id => NULL
1598: ,p_settlement_doc_id => p_settlement_doc_id
1599: ,p_settlement_mode => 'MASS_SETTLEMENT'
1600: );
1601: IF l_return_status = FND_API.g_ret_sts_error THEN
1602: RAISE FND_API.g_exc_error;
1603: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1604: RAISE FND_API.g_exc_unexpected_error;
1605: END IF;
1598: ,p_settlement_doc_id => p_settlement_doc_id
1599: ,p_settlement_mode => 'MASS_SETTLEMENT'
1600: );
1601: IF l_return_status = FND_API.g_ret_sts_error THEN
1602: RAISE FND_API.g_exc_error;
1603: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1604: RAISE FND_API.g_exc_unexpected_error;
1605: END IF;
1606:
1599: ,p_settlement_mode => 'MASS_SETTLEMENT'
1600: );
1601: IF l_return_status = FND_API.g_ret_sts_error THEN
1602: RAISE FND_API.g_exc_error;
1603: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1604: RAISE FND_API.g_exc_unexpected_error;
1605: END IF;
1606:
1607: ELSE
1600: );
1601: IF l_return_status = FND_API.g_ret_sts_error THEN
1602: RAISE FND_API.g_exc_error;
1603: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1604: RAISE FND_API.g_exc_unexpected_error;
1605: END IF;
1606:
1607: ELSE
1608: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1608: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1609: FND_MESSAGE.set_name('AMS', 'AMS_AR_PAYMENT_NOTMATCH');
1610: FND_MSG_PUB.add;
1611: END IF;
1612: RAISE FND_API.g_exc_error;
1613: END IF;
1614:
1615: IF OZF_DEBUG_HIGH_ON THEN
1616: OZF_Utility_PVT.debug_message(l_full_name||': end');
1615: IF OZF_DEBUG_HIGH_ON THEN
1616: OZF_Utility_PVT.debug_message(l_full_name||': end');
1617: END IF;
1618: EXCEPTION
1619: WHEN FND_API.g_exc_error THEN
1620: x_return_status := FND_API.g_ret_sts_error;
1621:
1622: WHEN FND_API.g_exc_unexpected_error THEN
1623: x_return_status := FND_API.g_ret_sts_unexp_error ;
1616: OZF_Utility_PVT.debug_message(l_full_name||': end');
1617: END IF;
1618: EXCEPTION
1619: WHEN FND_API.g_exc_error THEN
1620: x_return_status := FND_API.g_ret_sts_error;
1621:
1622: WHEN FND_API.g_exc_unexpected_error THEN
1623: x_return_status := FND_API.g_ret_sts_unexp_error ;
1624:
1618: EXCEPTION
1619: WHEN FND_API.g_exc_error THEN
1620: x_return_status := FND_API.g_ret_sts_error;
1621:
1622: WHEN FND_API.g_exc_unexpected_error THEN
1623: x_return_status := FND_API.g_ret_sts_unexp_error ;
1624:
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.g_ret_sts_unexp_error ;
1619: WHEN FND_API.g_exc_error THEN
1620: x_return_status := FND_API.g_ret_sts_error;
1621:
1622: WHEN FND_API.g_exc_unexpected_error THEN
1623: x_return_status := FND_API.g_ret_sts_unexp_error ;
1624:
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.g_ret_sts_unexp_error ;
1627: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1622: WHEN FND_API.g_exc_unexpected_error THEN
1623: x_return_status := FND_API.g_ret_sts_unexp_error ;
1624:
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.g_ret_sts_unexp_error ;
1627: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1628: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1629: END IF;
1630:
1719: IF OZF_DEBUG_HIGH_ON THEN
1720: OZF_Utility_PVT.debug_message(l_full_name||': start');
1721: END IF;
1722:
1723: x_return_status := FND_API.G_RET_STS_SUCCESS;
1724:
1725: ------------------------ start -------------------------
1726: IF OZF_DEBUG_HIGH_ON THEN
1727: OZF_Utility_PVT.debug_message('Settlement Type = '||p_settlement_type);
2044: IF l_group_claim_line_tbl.COUNT IS NOT NULL AND
2045: l_group_claim_line_tbl.COUNT > 0 THEN
2046: OZF_Claim_Line_PVT.Create_Claim_Line_Tbl(
2047: p_api_version => l_api_version
2048: ,p_init_msg_list => FND_API.g_false
2049: ,p_commit => FND_API.g_false
2050: ,p_validation_level => FND_API.g_valid_level_full
2051: ,x_return_status => l_return_status
2052: ,x_msg_data => x_msg_data
2045: l_group_claim_line_tbl.COUNT > 0 THEN
2046: OZF_Claim_Line_PVT.Create_Claim_Line_Tbl(
2047: p_api_version => l_api_version
2048: ,p_init_msg_list => FND_API.g_false
2049: ,p_commit => FND_API.g_false
2050: ,p_validation_level => FND_API.g_valid_level_full
2051: ,x_return_status => l_return_status
2052: ,x_msg_data => x_msg_data
2053: ,x_msg_count => x_msg_count
2046: OZF_Claim_Line_PVT.Create_Claim_Line_Tbl(
2047: p_api_version => l_api_version
2048: ,p_init_msg_list => FND_API.g_false
2049: ,p_commit => FND_API.g_false
2050: ,p_validation_level => FND_API.g_valid_level_full
2051: ,x_return_status => l_return_status
2052: ,x_msg_data => x_msg_data
2053: ,x_msg_count => x_msg_count
2054: ,p_claim_line_tbl => l_group_claim_line_tbl
2054: ,p_claim_line_tbl => l_group_claim_line_tbl
2055: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
2056: ,x_error_index => l_err_idx
2057: );
2058: IF l_return_status = FND_API.g_ret_sts_error THEN
2059: RAISE FND_API.g_exc_error;
2060: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2061: RAISE FND_API.g_exc_unexpected_error;
2062: END IF;
2055: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
2056: ,x_error_index => l_err_idx
2057: );
2058: IF l_return_status = FND_API.g_ret_sts_error THEN
2059: RAISE FND_API.g_exc_error;
2060: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2061: RAISE FND_API.g_exc_unexpected_error;
2062: END IF;
2063: END IF;
2056: ,x_error_index => l_err_idx
2057: );
2058: IF l_return_status = FND_API.g_ret_sts_error THEN
2059: RAISE FND_API.g_exc_error;
2060: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2061: RAISE FND_API.g_exc_unexpected_error;
2062: END IF;
2063: END IF;
2064:
2057: );
2058: IF l_return_status = FND_API.g_ret_sts_error THEN
2059: RAISE FND_API.g_exc_error;
2060: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2061: RAISE FND_API.g_exc_unexpected_error;
2062: END IF;
2063: END IF;
2064:
2065:
2104: IF l_settle_doc_tbl.COUNT IS NOT NULL AND
2105: l_settle_doc_tbl.COUNT > 0 THEN
2106: OZF_Settlement_Doc_PVT.Create_Settlement_Doc_Tbl(
2107: p_api_version_number => l_api_version,
2108: p_init_msg_list => FND_API.G_FALSE,
2109: p_commit => FND_API.G_FALSE,
2110: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2111: x_return_status => l_return_status,
2112: x_msg_count => x_msg_count,
2105: l_settle_doc_tbl.COUNT > 0 THEN
2106: OZF_Settlement_Doc_PVT.Create_Settlement_Doc_Tbl(
2107: p_api_version_number => l_api_version,
2108: p_init_msg_list => FND_API.G_FALSE,
2109: p_commit => FND_API.G_FALSE,
2110: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2111: x_return_status => l_return_status,
2112: x_msg_count => x_msg_count,
2113: x_msg_data => x_msg_data,
2106: OZF_Settlement_Doc_PVT.Create_Settlement_Doc_Tbl(
2107: p_api_version_number => l_api_version,
2108: p_init_msg_list => FND_API.G_FALSE,
2109: p_commit => FND_API.G_FALSE,
2110: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2111: x_return_status => l_return_status,
2112: x_msg_count => x_msg_count,
2113: x_msg_data => x_msg_data,
2114: p_settlement_doc_tbl => l_settle_doc_tbl,
2113: x_msg_data => x_msg_data,
2114: p_settlement_doc_tbl => l_settle_doc_tbl,
2115: x_settlement_doc_id_tbl => l_settle_doc_id_tbl
2116: );
2117: IF l_return_status = FND_API.g_ret_sts_error THEN
2118: RAISE FND_API.g_exc_error;
2119: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2120: RAISE FND_API.g_exc_unexpected_error;
2121: END IF;
2114: p_settlement_doc_tbl => l_settle_doc_tbl,
2115: x_settlement_doc_id_tbl => l_settle_doc_id_tbl
2116: );
2117: IF l_return_status = FND_API.g_ret_sts_error THEN
2118: RAISE FND_API.g_exc_error;
2119: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2120: RAISE FND_API.g_exc_unexpected_error;
2121: END IF;
2122: END IF;
2115: x_settlement_doc_id_tbl => l_settle_doc_id_tbl
2116: );
2117: IF l_return_status = FND_API.g_ret_sts_error THEN
2118: RAISE FND_API.g_exc_error;
2119: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2120: RAISE FND_API.g_exc_unexpected_error;
2121: END IF;
2122: END IF;
2123:
2116: );
2117: IF l_return_status = FND_API.g_ret_sts_error THEN
2118: RAISE FND_API.g_exc_error;
2119: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2120: RAISE FND_API.g_exc_unexpected_error;
2121: END IF;
2122: END IF;
2123:
2124: IF l_settle_doc_tbl2.COUNT IS NOT NULL AND
2124: IF l_settle_doc_tbl2.COUNT IS NOT NULL AND
2125: l_settle_doc_tbl2.COUNT > 0 THEN
2126: OZF_Settlement_Doc_PVT.Create_Settlement_Doc_Tbl(
2127: p_api_version_number => l_api_version,
2128: p_init_msg_list => FND_API.G_FALSE,
2129: p_commit => FND_API.G_FALSE,
2130: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2131: x_return_status => l_return_status,
2132: x_msg_count => x_msg_count,
2125: l_settle_doc_tbl2.COUNT > 0 THEN
2126: OZF_Settlement_Doc_PVT.Create_Settlement_Doc_Tbl(
2127: p_api_version_number => l_api_version,
2128: p_init_msg_list => FND_API.G_FALSE,
2129: p_commit => FND_API.G_FALSE,
2130: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2131: x_return_status => l_return_status,
2132: x_msg_count => x_msg_count,
2133: x_msg_data => x_msg_data,
2126: OZF_Settlement_Doc_PVT.Create_Settlement_Doc_Tbl(
2127: p_api_version_number => l_api_version,
2128: p_init_msg_list => FND_API.G_FALSE,
2129: p_commit => FND_API.G_FALSE,
2130: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2131: x_return_status => l_return_status,
2132: x_msg_count => x_msg_count,
2133: x_msg_data => x_msg_data,
2134: p_settlement_doc_tbl => l_settle_doc_tbl2,
2133: x_msg_data => x_msg_data,
2134: p_settlement_doc_tbl => l_settle_doc_tbl2,
2135: x_settlement_doc_id_tbl => l_settle_doc_id_tbl
2136: );
2137: IF l_return_status = FND_API.g_ret_sts_error THEN
2138: RAISE FND_API.g_exc_error;
2139: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2140: RAISE FND_API.g_exc_unexpected_error;
2141: END IF;
2134: p_settlement_doc_tbl => l_settle_doc_tbl2,
2135: x_settlement_doc_id_tbl => l_settle_doc_id_tbl
2136: );
2137: IF l_return_status = FND_API.g_ret_sts_error THEN
2138: RAISE FND_API.g_exc_error;
2139: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2140: RAISE FND_API.g_exc_unexpected_error;
2141: END IF;
2142: END IF;
2135: x_settlement_doc_id_tbl => l_settle_doc_id_tbl
2136: );
2137: IF l_return_status = FND_API.g_ret_sts_error THEN
2138: RAISE FND_API.g_exc_error;
2139: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2140: RAISE FND_API.g_exc_unexpected_error;
2141: END IF;
2142: END IF;
2143:
2136: );
2137: IF l_return_status = FND_API.g_ret_sts_error THEN
2138: RAISE FND_API.g_exc_error;
2139: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2140: RAISE FND_API.g_exc_unexpected_error;
2141: END IF;
2142: END IF;
2143:
2144: IF OZF_DEBUG_HIGH_ON THEN
2145: OZF_Utility_PVT.debug_message(l_full_name||': end');
2146: END IF;
2147:
2148: EXCEPTION
2149: WHEN FND_API.g_exc_error THEN
2150: ROLLBACK TO Break_Mass_Settlement;
2151: x_return_status := FND_API.g_ret_sts_error;
2152: FND_MSG_PUB.count_and_get (
2153: p_encoded => FND_API.g_false
2147:
2148: EXCEPTION
2149: WHEN FND_API.g_exc_error THEN
2150: ROLLBACK TO Break_Mass_Settlement;
2151: x_return_status := FND_API.g_ret_sts_error;
2152: FND_MSG_PUB.count_and_get (
2153: p_encoded => FND_API.g_false
2154: ,p_count => x_msg_count
2155: ,p_data => x_msg_data
2149: WHEN FND_API.g_exc_error THEN
2150: ROLLBACK TO Break_Mass_Settlement;
2151: x_return_status := FND_API.g_ret_sts_error;
2152: FND_MSG_PUB.count_and_get (
2153: p_encoded => FND_API.g_false
2154: ,p_count => x_msg_count
2155: ,p_data => x_msg_data
2156: );
2157:
2154: ,p_count => x_msg_count
2155: ,p_data => x_msg_data
2156: );
2157:
2158: WHEN FND_API.g_exc_unexpected_error THEN
2159: ROLLBACK TO Break_Mass_Settlement;
2160: x_return_status := FND_API.g_ret_sts_unexp_error ;
2161: FND_MSG_PUB.count_and_get (
2162: p_encoded => FND_API.g_false
2156: );
2157:
2158: WHEN FND_API.g_exc_unexpected_error THEN
2159: ROLLBACK TO Break_Mass_Settlement;
2160: x_return_status := FND_API.g_ret_sts_unexp_error ;
2161: FND_MSG_PUB.count_and_get (
2162: p_encoded => FND_API.g_false
2163: ,p_count => x_msg_count
2164: ,p_data => x_msg_data
2158: WHEN FND_API.g_exc_unexpected_error THEN
2159: ROLLBACK TO Break_Mass_Settlement;
2160: x_return_status := FND_API.g_ret_sts_unexp_error ;
2161: FND_MSG_PUB.count_and_get (
2162: p_encoded => FND_API.g_false
2163: ,p_count => x_msg_count
2164: ,p_data => x_msg_data
2165: );
2166:
2165: );
2166:
2167: WHEN OTHERS THEN
2168: ROLLBACK TO Break_Mass_Settlement;
2169: x_return_status := FND_API.g_ret_sts_unexp_error ;
2170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2171: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2172: END IF;
2173: FND_MSG_PUB.count_and_get(
2170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2171: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2172: END IF;
2173: FND_MSG_PUB.count_and_get(
2174: p_encoded => FND_API.g_false
2175: ,p_count => x_msg_count
2176: ,p_data => x_msg_data
2177: );
2178:
2228: IF OZF_DEBUG_HIGH_ON THEN
2229: OZF_Utility_PVT.debug_message(l_full_name||': start');
2230: END IF;
2231:
2232: x_return_status := FND_API.G_RET_STS_SUCCESS;
2233:
2234: ------------------------ start -------------------------
2235:
2236: OPEN csr_sysparam_defaults;
2270: END IF;
2271:
2272: OZF_Claim_PVT.Update_Claim (
2273: p_api_version => l_api_version
2274: ,p_init_msg_list => FND_API.G_FALSE
2275: ,p_commit => FND_API.G_FALSE
2276: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2277: ,x_return_status => l_return_status
2278: ,x_msg_data => x_msg_data
2271:
2272: OZF_Claim_PVT.Update_Claim (
2273: p_api_version => l_api_version
2274: ,p_init_msg_list => FND_API.G_FALSE
2275: ,p_commit => FND_API.G_FALSE
2276: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2277: ,x_return_status => l_return_status
2278: ,x_msg_data => x_msg_data
2279: ,x_msg_count => x_msg_count
2272: OZF_Claim_PVT.Update_Claim (
2273: p_api_version => l_api_version
2274: ,p_init_msg_list => FND_API.G_FALSE
2275: ,p_commit => FND_API.G_FALSE
2276: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2277: ,x_return_status => l_return_status
2278: ,x_msg_data => x_msg_data
2279: ,x_msg_count => x_msg_count
2280: ,p_claim => x_claim_tbl(i)
2281: ,p_event => 'UPDATE'
2282: ,p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE
2283: ,x_object_version_number => l_claim_obj_ver_num
2284: );
2285: IF l_return_status = FND_API.g_ret_sts_error THEN
2286: RAISE FND_API.g_exc_error;
2287: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2288: RAISE FND_API.g_exc_unexpected_error;
2289: END IF;
2282: ,p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE
2283: ,x_object_version_number => l_claim_obj_ver_num
2284: );
2285: IF l_return_status = FND_API.g_ret_sts_error THEN
2286: RAISE FND_API.g_exc_error;
2287: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2288: RAISE FND_API.g_exc_unexpected_error;
2289: END IF;
2290: x_claim_tbl(i).object_version_number := l_claim_obj_ver_num;
2283: ,x_object_version_number => l_claim_obj_ver_num
2284: );
2285: IF l_return_status = FND_API.g_ret_sts_error THEN
2286: RAISE FND_API.g_exc_error;
2287: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2288: RAISE FND_API.g_exc_unexpected_error;
2289: END IF;
2290: x_claim_tbl(i).object_version_number := l_claim_obj_ver_num;
2291: EXIT WHEN i = x_claim_tbl.LAST;
2284: );
2285: IF l_return_status = FND_API.g_ret_sts_error THEN
2286: RAISE FND_API.g_exc_error;
2287: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2288: RAISE FND_API.g_exc_unexpected_error;
2289: END IF;
2290: x_claim_tbl(i).object_version_number := l_claim_obj_ver_num;
2291: EXIT WHEN i = x_claim_tbl.LAST;
2292: i := x_claim_tbl.NEXT(i);
2297: OZF_Utility_PVT.debug_message(l_full_name||': end');
2298: END IF;
2299:
2300: EXCEPTION
2301: WHEN FND_API.g_exc_error THEN
2302: ROLLBACK TO Complete_Mass_Settlement;
2303: x_return_status := FND_API.g_ret_sts_error;
2304: FND_MSG_PUB.count_and_get (
2305: p_encoded => FND_API.g_false
2299:
2300: EXCEPTION
2301: WHEN FND_API.g_exc_error THEN
2302: ROLLBACK TO Complete_Mass_Settlement;
2303: x_return_status := FND_API.g_ret_sts_error;
2304: FND_MSG_PUB.count_and_get (
2305: p_encoded => FND_API.g_false
2306: ,p_count => x_msg_count
2307: ,p_data => x_msg_data
2301: WHEN FND_API.g_exc_error THEN
2302: ROLLBACK TO Complete_Mass_Settlement;
2303: x_return_status := FND_API.g_ret_sts_error;
2304: FND_MSG_PUB.count_and_get (
2305: p_encoded => FND_API.g_false
2306: ,p_count => x_msg_count
2307: ,p_data => x_msg_data
2308: );
2309:
2306: ,p_count => x_msg_count
2307: ,p_data => x_msg_data
2308: );
2309:
2310: WHEN FND_API.g_exc_unexpected_error THEN
2311: ROLLBACK TO Complete_Mass_Settlement;
2312: x_return_status := FND_API.g_ret_sts_unexp_error ;
2313: FND_MSG_PUB.count_and_get (
2314: p_encoded => FND_API.g_false
2308: );
2309:
2310: WHEN FND_API.g_exc_unexpected_error THEN
2311: ROLLBACK TO Complete_Mass_Settlement;
2312: x_return_status := FND_API.g_ret_sts_unexp_error ;
2313: FND_MSG_PUB.count_and_get (
2314: p_encoded => FND_API.g_false
2315: ,p_count => x_msg_count
2316: ,p_data => x_msg_data
2310: WHEN FND_API.g_exc_unexpected_error THEN
2311: ROLLBACK TO Complete_Mass_Settlement;
2312: x_return_status := FND_API.g_ret_sts_unexp_error ;
2313: FND_MSG_PUB.count_and_get (
2314: p_encoded => FND_API.g_false
2315: ,p_count => x_msg_count
2316: ,p_data => x_msg_data
2317: );
2318:
2317: );
2318:
2319: WHEN OTHERS THEN
2320: ROLLBACK TO Complete_Mass_Settlement;
2321: x_return_status := FND_API.g_ret_sts_unexp_error ;
2322: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2323: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2324: END IF;
2325: FND_MSG_PUB.count_and_get(
2322: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2323: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2324: END IF;
2325: FND_MSG_PUB.count_and_get(
2326: p_encoded => FND_API.g_false
2327: ,p_count => x_msg_count
2328: ,p_data => x_msg_data
2329: );
2330:
2386: IF OZF_DEBUG_HIGH_ON THEN
2387: OZF_Utility_PVT.debug_message(l_full_name||': start');
2388: END IF;
2389:
2390: x_return_status := FND_API.G_RET_STS_SUCCESS;
2391:
2392: ------------------------ start -------------------------
2393:
2394: OPEN csr_mass_setl_appr_req;
2410: l_claim_pvt_rec.status_code := 'PENDING_APPROVAL';
2411:
2412: OZF_Claim_PVT.Update_Claim (
2413: p_api_version => l_api_version
2414: ,p_init_msg_list => FND_API.G_FALSE
2415: ,p_commit => FND_API.G_FALSE
2416: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2417: ,x_return_status => l_return_status
2418: ,x_msg_data => x_msg_data
2411:
2412: OZF_Claim_PVT.Update_Claim (
2413: p_api_version => l_api_version
2414: ,p_init_msg_list => FND_API.G_FALSE
2415: ,p_commit => FND_API.G_FALSE
2416: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2417: ,x_return_status => l_return_status
2418: ,x_msg_data => x_msg_data
2419: ,x_msg_count => x_msg_count
2412: OZF_Claim_PVT.Update_Claim (
2413: p_api_version => l_api_version
2414: ,p_init_msg_list => FND_API.G_FALSE
2415: ,p_commit => FND_API.G_FALSE
2416: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2417: ,x_return_status => l_return_status
2418: ,x_msg_data => x_msg_data
2419: ,x_msg_count => x_msg_count
2420: ,p_claim => l_claim_pvt_rec --l_complete_claim_group_tbl(i)
2421: ,p_event => 'UPDATE'
2422: ,p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE
2423: ,x_object_version_number => l_claim_obj_ver_num
2424: );
2425: IF l_return_status = FND_API.g_ret_sts_error THEN
2426: RAISE FND_API.g_exc_error;
2427: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2428: RAISE FND_API.g_exc_unexpected_error;
2429: END IF;
2422: ,p_mode => OZF_claim_Utility_pvt.G_AUTO_MODE
2423: ,x_object_version_number => l_claim_obj_ver_num
2424: );
2425: IF l_return_status = FND_API.g_ret_sts_error THEN
2426: RAISE FND_API.g_exc_error;
2427: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2428: RAISE FND_API.g_exc_unexpected_error;
2429: END IF;
2430: EXIT WHEN i = p_complete_claim_group_tbl.LAST;
2423: ,x_object_version_number => l_claim_obj_ver_num
2424: );
2425: IF l_return_status = FND_API.g_ret_sts_error THEN
2426: RAISE FND_API.g_exc_error;
2427: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2428: RAISE FND_API.g_exc_unexpected_error;
2429: END IF;
2430: EXIT WHEN i = p_complete_claim_group_tbl.LAST;
2431: i := p_complete_claim_group_tbl.NEXT(i);
2424: );
2425: IF l_return_status = FND_API.g_ret_sts_error THEN
2426: RAISE FND_API.g_exc_error;
2427: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2428: RAISE FND_API.g_exc_unexpected_error;
2429: END IF;
2430: EXIT WHEN i = p_complete_claim_group_tbl.LAST;
2431: i := p_complete_claim_group_tbl.NEXT(i);
2432: END LOOP;
2480: ,p_notes_from_requester => null
2481: ,p_workflowprocess => 'AMSGAPP'
2482: ,p_item_type => 'AMSGAPP'
2483: );
2484: IF l_return_status = FND_API.g_ret_sts_error THEN
2485: RAISE FND_API.g_exc_error;
2486: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2487: RAISE FND_API.g_exc_unexpected_error;
2488: END IF;
2481: ,p_workflowprocess => 'AMSGAPP'
2482: ,p_item_type => 'AMSGAPP'
2483: );
2484: IF l_return_status = FND_API.g_ret_sts_error THEN
2485: RAISE FND_API.g_exc_error;
2486: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2487: RAISE FND_API.g_exc_unexpected_error;
2488: END IF;
2489:
2482: ,p_item_type => 'AMSGAPP'
2483: );
2484: IF l_return_status = FND_API.g_ret_sts_error THEN
2485: RAISE FND_API.g_exc_error;
2486: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2487: RAISE FND_API.g_exc_unexpected_error;
2488: END IF;
2489:
2490: --//Commented by BKUNJAN Bug#5686706
2483: );
2484: IF l_return_status = FND_API.g_ret_sts_error THEN
2485: RAISE FND_API.g_exc_error;
2486: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2487: RAISE FND_API.g_exc_unexpected_error;
2488: END IF;
2489:
2490: --//Commented by BKUNJAN Bug#5686706
2491: /*
2507: END IF;
2508:
2509:
2510: EXCEPTION
2511: WHEN FND_API.g_exc_error THEN
2512: ROLLBACK TO Approve_Mass_Settlement;
2513: x_return_status := FND_API.g_ret_sts_error;
2514: FND_MSG_PUB.count_and_get (
2515: p_encoded => FND_API.g_false
2509:
2510: EXCEPTION
2511: WHEN FND_API.g_exc_error THEN
2512: ROLLBACK TO Approve_Mass_Settlement;
2513: x_return_status := FND_API.g_ret_sts_error;
2514: FND_MSG_PUB.count_and_get (
2515: p_encoded => FND_API.g_false
2516: ,p_count => x_msg_count
2517: ,p_data => x_msg_data
2511: WHEN FND_API.g_exc_error THEN
2512: ROLLBACK TO Approve_Mass_Settlement;
2513: x_return_status := FND_API.g_ret_sts_error;
2514: FND_MSG_PUB.count_and_get (
2515: p_encoded => FND_API.g_false
2516: ,p_count => x_msg_count
2517: ,p_data => x_msg_data
2518: );
2519:
2516: ,p_count => x_msg_count
2517: ,p_data => x_msg_data
2518: );
2519:
2520: WHEN FND_API.g_exc_unexpected_error THEN
2521: ROLLBACK TO Approve_Mass_Settlement;
2522: x_return_status := FND_API.g_ret_sts_unexp_error ;
2523: FND_MSG_PUB.count_and_get (
2524: p_encoded => FND_API.g_false
2518: );
2519:
2520: WHEN FND_API.g_exc_unexpected_error THEN
2521: ROLLBACK TO Approve_Mass_Settlement;
2522: x_return_status := FND_API.g_ret_sts_unexp_error ;
2523: FND_MSG_PUB.count_and_get (
2524: p_encoded => FND_API.g_false
2525: ,p_count => x_msg_count
2526: ,p_data => x_msg_data
2520: WHEN FND_API.g_exc_unexpected_error THEN
2521: ROLLBACK TO Approve_Mass_Settlement;
2522: x_return_status := FND_API.g_ret_sts_unexp_error ;
2523: FND_MSG_PUB.count_and_get (
2524: p_encoded => FND_API.g_false
2525: ,p_count => x_msg_count
2526: ,p_data => x_msg_data
2527: );
2528:
2527: );
2528:
2529: WHEN OTHERS THEN
2530: ROLLBACK TO Approve_Mass_Settlement;
2531: x_return_status := FND_API.g_ret_sts_unexp_error ;
2532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2533: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2534: END IF;
2535: FND_MSG_PUB.count_and_get(
2532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2533: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2534: END IF;
2535: FND_MSG_PUB.count_and_get(
2536: p_encoded => FND_API.g_false
2537: ,p_count => x_msg_count
2538: ,p_data => x_msg_data
2539: );
2540:
2618: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2619: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2620: FND_MSG_PUB.Add;
2621: END IF;
2622: RAISE FND_API.g_exc_unexpected_error;
2623: END;
2624:
2625: IF OZF_DEBUG_HIGH_ON THEN
2626: OZF_Utility_PVT.debug_message(l_full_name||': end');
2626: OZF_Utility_PVT.debug_message(l_full_name||': end');
2627: END IF;
2628:
2629: EXCEPTION
2630: WHEN FND_API.g_exc_error THEN
2631: x_return_status := FND_API.g_ret_sts_error;
2632: FND_MSG_PUB.count_and_get (
2633: p_encoded => FND_API.g_false
2634: ,p_count => x_msg_count
2627: END IF;
2628:
2629: EXCEPTION
2630: WHEN FND_API.g_exc_error THEN
2631: x_return_status := FND_API.g_ret_sts_error;
2632: FND_MSG_PUB.count_and_get (
2633: p_encoded => FND_API.g_false
2634: ,p_count => x_msg_count
2635: ,p_data => x_msg_data
2629: EXCEPTION
2630: WHEN FND_API.g_exc_error THEN
2631: x_return_status := FND_API.g_ret_sts_error;
2632: FND_MSG_PUB.count_and_get (
2633: p_encoded => FND_API.g_false
2634: ,p_count => x_msg_count
2635: ,p_data => x_msg_data
2636: );
2637:
2634: ,p_count => x_msg_count
2635: ,p_data => x_msg_data
2636: );
2637:
2638: WHEN FND_API.g_exc_unexpected_error THEN
2639: x_return_status := FND_API.g_ret_sts_unexp_error ;
2640: FND_MSG_PUB.count_and_get (
2641: p_encoded => FND_API.g_false
2642: ,p_count => x_msg_count
2635: ,p_data => x_msg_data
2636: );
2637:
2638: WHEN FND_API.g_exc_unexpected_error THEN
2639: x_return_status := FND_API.g_ret_sts_unexp_error ;
2640: FND_MSG_PUB.count_and_get (
2641: p_encoded => FND_API.g_false
2642: ,p_count => x_msg_count
2643: ,p_data => x_msg_data
2637:
2638: WHEN FND_API.g_exc_unexpected_error THEN
2639: x_return_status := FND_API.g_ret_sts_unexp_error ;
2640: FND_MSG_PUB.count_and_get (
2641: p_encoded => FND_API.g_false
2642: ,p_count => x_msg_count
2643: ,p_data => x_msg_data
2644: );
2645:
2643: ,p_data => x_msg_data
2644: );
2645:
2646: WHEN OTHERS THEN
2647: x_return_status := FND_API.g_ret_sts_unexp_error ;
2648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2649: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2650: END IF;
2651: FND_MSG_PUB.count_and_get(
2648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2649: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2650: END IF;
2651: FND_MSG_PUB.count_and_get(
2652: p_encoded => FND_API.g_false
2653: ,p_count => x_msg_count
2654: ,p_data => x_msg_data
2655: );
2656:
2727: IF OZF_DEBUG_HIGH_ON THEN
2728: OZF_Utility_PVT.debug_message(l_full_name||': start');
2729: END IF;
2730:
2731: x_return_status := FND_API.G_RET_STS_SUCCESS;
2732:
2733: ------------------------ start -------------------------
2734: OPEN csr_master_claim_lines(p_group_claim_id);
2735: LOOP
2746: p_claim_id => l_claim_id_tbl(i)
2747: ,x_claim_rec => l_claim_rec
2748: ,x_return_status => l_return_status
2749: );
2750: IF l_return_status = FND_API.g_ret_sts_error THEN
2751: RAISE FND_API.g_exc_error;
2752: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2753: RAISE FND_API.g_exc_unexpected_error;
2754: END IF;
2747: ,x_claim_rec => l_claim_rec
2748: ,x_return_status => l_return_status
2749: );
2750: IF l_return_status = FND_API.g_ret_sts_error THEN
2751: RAISE FND_API.g_exc_error;
2752: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2753: RAISE FND_API.g_exc_unexpected_error;
2754: END IF;
2755:
2748: ,x_return_status => l_return_status
2749: );
2750: IF l_return_status = FND_API.g_ret_sts_error THEN
2751: RAISE FND_API.g_exc_error;
2752: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2753: RAISE FND_API.g_exc_unexpected_error;
2754: END IF;
2755:
2756: -- Bug435194: Close claim before making payment
2749: );
2750: IF l_return_status = FND_API.g_ret_sts_error THEN
2751: RAISE FND_API.g_exc_error;
2752: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2753: RAISE FND_API.g_exc_unexpected_error;
2754: END IF;
2755:
2756: -- Bug435194: Close claim before making payment
2757: Close_Claim(
2758: p_group_claim_id => p_group_claim_id
2759: ,p_claim_id => l_claim_id_tbl(i)
2760: ,x_return_status => l_return_status
2761: );
2762: IF l_return_status = FND_API.g_ret_sts_error THEN
2763: RAISE FND_API.g_exc_error;
2764: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2765: RAISE FND_API.g_exc_unexpected_error;
2766: END IF;
2759: ,p_claim_id => l_claim_id_tbl(i)
2760: ,x_return_status => l_return_status
2761: );
2762: IF l_return_status = FND_API.g_ret_sts_error THEN
2763: RAISE FND_API.g_exc_error;
2764: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2765: RAISE FND_API.g_exc_unexpected_error;
2766: END IF;
2767:
2760: ,x_return_status => l_return_status
2761: );
2762: IF l_return_status = FND_API.g_ret_sts_error THEN
2763: RAISE FND_API.g_exc_error;
2764: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2765: RAISE FND_API.g_exc_unexpected_error;
2766: END IF;
2767:
2768: IF l_claim_rec.claim_class = 'DEDUCTION' THEN
2761: );
2762: IF l_return_status = FND_API.g_ret_sts_error THEN
2763: RAISE FND_API.g_exc_error;
2764: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2765: RAISE FND_API.g_exc_unexpected_error;
2766: END IF;
2767:
2768: IF l_claim_rec.claim_class = 'DEDUCTION' THEN
2769: IF l_claim_rec.source_object_class IS NULL AND
2829: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2830: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2831: FND_MSG_PUB.Add;
2832: END IF;
2833: RAISE FND_API.g_exc_unexpected_error;
2834: END;
2835:
2836: IF l_settlement_doc_tbl(j).payment_method = 'CREDIT_MEMO' THEN
2837: Pay_by_Credit_Memo(
2843: ,x_return_status => l_return_status
2844: ,x_msg_data => x_msg_data
2845: ,x_msg_count => x_msg_count
2846: );
2847: IF l_return_status = FND_API.g_ret_sts_error THEN
2848: RAISE FND_API.g_exc_error;
2849: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2850: RAISE FND_API.g_exc_unexpected_error;
2851: END IF;
2844: ,x_msg_data => x_msg_data
2845: ,x_msg_count => x_msg_count
2846: );
2847: IF l_return_status = FND_API.g_ret_sts_error THEN
2848: RAISE FND_API.g_exc_error;
2849: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2850: RAISE FND_API.g_exc_unexpected_error;
2851: END IF;
2852:
2845: ,x_msg_count => x_msg_count
2846: );
2847: IF l_return_status = FND_API.g_ret_sts_error THEN
2848: RAISE FND_API.g_exc_error;
2849: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2850: RAISE FND_API.g_exc_unexpected_error;
2851: END IF;
2852:
2853: ELSIF l_settlement_doc_tbl(j).payment_method = 'DEBIT_MEMO' THEN
2846: );
2847: IF l_return_status = FND_API.g_ret_sts_error THEN
2848: RAISE FND_API.g_exc_error;
2849: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2850: RAISE FND_API.g_exc_unexpected_error;
2851: END IF;
2852:
2853: ELSIF l_settlement_doc_tbl(j).payment_method = 'DEBIT_MEMO' THEN
2854: Pay_by_Debit_Memo(
2860: ,x_return_status => l_return_status
2861: ,x_msg_data => x_msg_data
2862: ,x_msg_count => x_msg_count
2863: );
2864: IF l_return_status = FND_API.g_ret_sts_error THEN
2865: RAISE FND_API.g_exc_error;
2866: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2867: RAISE FND_API.g_exc_unexpected_error;
2868: END IF;
2861: ,x_msg_data => x_msg_data
2862: ,x_msg_count => x_msg_count
2863: );
2864: IF l_return_status = FND_API.g_ret_sts_error THEN
2865: RAISE FND_API.g_exc_error;
2866: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2867: RAISE FND_API.g_exc_unexpected_error;
2868: END IF;
2869:
2862: ,x_msg_count => x_msg_count
2863: );
2864: IF l_return_status = FND_API.g_ret_sts_error THEN
2865: RAISE FND_API.g_exc_error;
2866: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2867: RAISE FND_API.g_exc_unexpected_error;
2868: END IF;
2869:
2870: ELSIF l_settlement_doc_tbl(j).payment_method = 'CHARGEBACK' THEN
2863: );
2864: IF l_return_status = FND_API.g_ret_sts_error THEN
2865: RAISE FND_API.g_exc_error;
2866: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2867: RAISE FND_API.g_exc_unexpected_error;
2868: END IF;
2869:
2870: ELSIF l_settlement_doc_tbl(j).payment_method = 'CHARGEBACK' THEN
2871: Pay_by_Chargeback(
2877: ,x_return_status => l_return_status
2878: ,x_msg_data => x_msg_data
2879: ,x_msg_count => x_msg_count
2880: );
2881: IF l_return_status = FND_API.g_ret_sts_error THEN
2882: RAISE FND_API.g_exc_error;
2883: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2878: ,x_msg_data => x_msg_data
2879: ,x_msg_count => x_msg_count
2880: );
2881: IF l_return_status = FND_API.g_ret_sts_error THEN
2882: RAISE FND_API.g_exc_error;
2883: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2886:
2879: ,x_msg_count => x_msg_count
2880: );
2881: IF l_return_status = FND_API.g_ret_sts_error THEN
2882: RAISE FND_API.g_exc_error;
2883: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2886:
2887: ELSIF l_settlement_doc_tbl(j).payment_method = 'WRITE_OFF' THEN
2880: );
2881: IF l_return_status = FND_API.g_ret_sts_error THEN
2882: RAISE FND_API.g_exc_error;
2883: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2884: RAISE FND_API.g_exc_unexpected_error;
2885: END IF;
2886:
2887: ELSIF l_settlement_doc_tbl(j).payment_method = 'WRITE_OFF' THEN
2888: Pay_by_Write_Off(
2895: ,x_return_status => l_return_status
2896: ,x_msg_data => x_msg_data
2897: ,x_msg_count => x_msg_count
2898: );
2899: IF l_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2896: ,x_msg_data => x_msg_data
2897: ,x_msg_count => x_msg_count
2898: );
2899: IF l_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2904:
2897: ,x_msg_count => x_msg_count
2898: );
2899: IF l_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2904:
2905: ELSIF l_settlement_doc_tbl(j).payment_method = 'ON_ACCT_CREDIT' THEN
2898: );
2899: IF l_return_status = FND_API.g_ret_sts_error THEN
2900: RAISE FND_API.g_exc_error;
2901: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2902: RAISE FND_API.g_exc_unexpected_error;
2903: END IF;
2904:
2905: ELSIF l_settlement_doc_tbl(j).payment_method = 'ON_ACCT_CREDIT' THEN
2906: Pay_by_On_Account_Credit(
2911: ,x_return_status => l_return_status
2912: ,x_msg_data => x_msg_data
2913: ,x_msg_count => x_msg_count
2914: );
2915: IF l_return_status = FND_API.g_ret_sts_error THEN
2916: RAISE FND_API.g_exc_error;
2917: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2918: RAISE FND_API.g_exc_unexpected_error;
2919: END IF;
2912: ,x_msg_data => x_msg_data
2913: ,x_msg_count => x_msg_count
2914: );
2915: IF l_return_status = FND_API.g_ret_sts_error THEN
2916: RAISE FND_API.g_exc_error;
2917: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2918: RAISE FND_API.g_exc_unexpected_error;
2919: END IF;
2920:
2913: ,x_msg_count => x_msg_count
2914: );
2915: IF l_return_status = FND_API.g_ret_sts_error THEN
2916: RAISE FND_API.g_exc_error;
2917: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2918: RAISE FND_API.g_exc_unexpected_error;
2919: END IF;
2920:
2921: ELSIF l_settlement_doc_tbl(j).payment_method IN ('DEDUCTION', 'OVERPAYMENT') THEN
2914: );
2915: IF l_return_status = FND_API.g_ret_sts_error THEN
2916: RAISE FND_API.g_exc_error;
2917: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2918: RAISE FND_API.g_exc_unexpected_error;
2919: END IF;
2920:
2921: ELSIF l_settlement_doc_tbl(j).payment_method IN ('DEDUCTION', 'OVERPAYMENT') THEN
2922: Pay_by_Open_Receipt(
2929: ,x_return_status => l_return_status
2930: ,x_msg_data => x_msg_data
2931: ,x_msg_count => x_msg_count
2932: );
2933: IF l_return_status = FND_API.g_ret_sts_error THEN
2934: RAISE FND_API.g_exc_error;
2935: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2936: RAISE FND_API.g_exc_unexpected_error;
2937: END IF;
2930: ,x_msg_data => x_msg_data
2931: ,x_msg_count => x_msg_count
2932: );
2933: IF l_return_status = FND_API.g_ret_sts_error THEN
2934: RAISE FND_API.g_exc_error;
2935: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2936: RAISE FND_API.g_exc_unexpected_error;
2937: END IF;
2938:
2931: ,x_msg_count => x_msg_count
2932: );
2933: IF l_return_status = FND_API.g_ret_sts_error THEN
2934: RAISE FND_API.g_exc_error;
2935: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2936: RAISE FND_API.g_exc_unexpected_error;
2937: END IF;
2938:
2939: -- Bug4124810: Close payment claim
2932: );
2933: IF l_return_status = FND_API.g_ret_sts_error THEN
2934: RAISE FND_API.g_exc_error;
2935: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2936: RAISE FND_API.g_exc_unexpected_error;
2937: END IF;
2938:
2939: -- Bug4124810: Close payment claim
2940: Close_Claim(
2941: p_group_claim_id => p_group_claim_id
2942: ,p_claim_id => l_settlement_doc_tbl(j).payment_reference_id
2943: ,x_return_status => l_return_status
2944: );
2945: IF l_return_status = FND_API.g_ret_sts_error THEN
2946: RAISE FND_API.g_exc_error;
2947: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2948: RAISE FND_API.g_exc_unexpected_error;
2949: END IF;
2942: ,p_claim_id => l_settlement_doc_tbl(j).payment_reference_id
2943: ,x_return_status => l_return_status
2944: );
2945: IF l_return_status = FND_API.g_ret_sts_error THEN
2946: RAISE FND_API.g_exc_error;
2947: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2948: RAISE FND_API.g_exc_unexpected_error;
2949: END IF;
2950:
2943: ,x_return_status => l_return_status
2944: );
2945: IF l_return_status = FND_API.g_ret_sts_error THEN
2946: RAISE FND_API.g_exc_error;
2947: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2948: RAISE FND_API.g_exc_unexpected_error;
2949: END IF;
2950:
2951: END IF;
2944: );
2945: IF l_return_status = FND_API.g_ret_sts_error THEN
2946: RAISE FND_API.g_exc_error;
2947: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2948: RAISE FND_API.g_exc_unexpected_error;
2949: END IF;
2950:
2951: END IF;
2952: EXIT WHEN j = l_settlement_doc_tbl.LAST;
2982: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2983: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2984: FND_MSG_PUB.Add;
2985: END IF;
2986: RAISE FND_API.g_exc_unexpected_error;
2987: END;
2988:
2989: IF OZF_DEBUG_HIGH_ON THEN
2990: OZF_Utility_PVT.debug_message(l_full_name||': end');
2990: OZF_Utility_PVT.debug_message(l_full_name||': end');
2991: END IF;
2992:
2993: EXCEPTION
2994: WHEN FND_API.g_exc_error THEN
2995: ROLLBACK TO Start_Mass_Payment;
2996: x_return_status := FND_API.g_ret_sts_error;
2997: FND_MSG_PUB.count_and_get (
2998: p_encoded => FND_API.g_false
2992:
2993: EXCEPTION
2994: WHEN FND_API.g_exc_error THEN
2995: ROLLBACK TO Start_Mass_Payment;
2996: x_return_status := FND_API.g_ret_sts_error;
2997: FND_MSG_PUB.count_and_get (
2998: p_encoded => FND_API.g_false
2999: ,p_count => x_msg_count
3000: ,p_data => x_msg_data
2994: WHEN FND_API.g_exc_error THEN
2995: ROLLBACK TO Start_Mass_Payment;
2996: x_return_status := FND_API.g_ret_sts_error;
2997: FND_MSG_PUB.count_and_get (
2998: p_encoded => FND_API.g_false
2999: ,p_count => x_msg_count
3000: ,p_data => x_msg_data
3001: );
3002:
2999: ,p_count => x_msg_count
3000: ,p_data => x_msg_data
3001: );
3002:
3003: WHEN FND_API.g_exc_unexpected_error THEN
3004: ROLLBACK TO Start_Mass_Payment;
3005: x_return_status := FND_API.g_ret_sts_unexp_error ;
3006: FND_MSG_PUB.count_and_get (
3007: p_encoded => FND_API.g_false
3001: );
3002:
3003: WHEN FND_API.g_exc_unexpected_error THEN
3004: ROLLBACK TO Start_Mass_Payment;
3005: x_return_status := FND_API.g_ret_sts_unexp_error ;
3006: FND_MSG_PUB.count_and_get (
3007: p_encoded => FND_API.g_false
3008: ,p_count => x_msg_count
3009: ,p_data => x_msg_data
3003: WHEN FND_API.g_exc_unexpected_error THEN
3004: ROLLBACK TO Start_Mass_Payment;
3005: x_return_status := FND_API.g_ret_sts_unexp_error ;
3006: FND_MSG_PUB.count_and_get (
3007: p_encoded => FND_API.g_false
3008: ,p_count => x_msg_count
3009: ,p_data => x_msg_data
3010: );
3011:
3010: );
3011:
3012: WHEN OTHERS THEN
3013: ROLLBACK TO Start_Mass_Payment;
3014: x_return_status := FND_API.g_ret_sts_unexp_error ;
3015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3016: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3017: END IF;
3018: FND_MSG_PUB.count_and_get(
3015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3016: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3017: END IF;
3018: FND_MSG_PUB.count_and_get(
3019: p_encoded => FND_API.g_false
3020: ,p_count => x_msg_count
3021: ,p_data => x_msg_data
3022: );
3023:
3154: OZF_Utility_PVT.debug_message(l_full_name||': start');
3155: END IF;
3156:
3157: -- Standard call to check for call compatibility.
3158: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3159: p_api_version,
3160: l_api_name,
3161: G_PKG_NAME ) THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3158: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3159: p_api_version,
3160: l_api_name,
3161: G_PKG_NAME ) THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3163: END IF;
3164:
3165: -- Initialize message list if p_init_msg_list is set to TRUE.
3166: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3163: END IF;
3164:
3165: -- Initialize message list if p_init_msg_list is set to TRUE.
3166: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3167: FND_MSG_PUB.initialize;
3168: END IF;
3169:
3170: -- Initialize API return status to SUCCESS
3167: FND_MSG_PUB.initialize;
3168: END IF;
3169:
3170: -- Initialize API return status to SUCCESS
3171: x_return_status := FND_API.G_RET_STS_SUCCESS;
3172:
3173: ------------------------ start -------------------------
3174: -------------------
3175: -- 1. Validation --
3207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3208: FND_MESSAGE.Set_Name('OZF','OZF_SETL_MUL_CLA_NS');
3209: FND_MSG_PUB.Add;
3210: END IF;
3211: RAISE FND_API.g_exc_error;
3212: END IF;
3213:
3214: IF SIGN(l_open_claim_amt) = 1 THEN
3215: l_settlement_type := 'DEDUCTION';
3227: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3228: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_POCM');
3229: FND_MSG_PUB.Add;
3230: END IF;
3231: RAISE FND_API.g_exc_error;
3232: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3233: p_open_transaction_tbl(i).trx_class NOT IN ('INVOICE', 'INV', 'DM', 'CB') THEN
3234: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3235: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_PODM');
3234: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3235: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_PODM');
3236: FND_MSG_PUB.Add;
3237: END IF;
3238: RAISE FND_API.g_exc_error;
3239: END IF;
3240:
3241: l_open_trx_amt := l_open_trx_amt + p_open_transaction_tbl(i).amount_settled;
3242: EXIT WHEN i = p_open_transaction_tbl.LAST;
3251: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3252: FND_MESSAGE.Set_Name('OZF','OZF_SETL_TRX_AMT_ERR');
3253: FND_MSG_PUB.Add;
3254: END IF;
3255: RAISE FND_API.g_exc_error;
3256: END IF;
3257:
3258: i := p_payment_method_tbl.FIRST;
3259: IF i IS NOT NULL THEN
3263: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3264: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_ERR');
3265: FND_MSG_PUB.Add;
3266: END IF;
3267: RAISE FND_API.g_exc_error;
3268: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3269: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'ON_ACCT_CREDIT') THEN
3270: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3271: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_ERR');
3270: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3271: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_ERR');
3272: FND_MSG_PUB.Add;
3273: END IF;
3274: RAISE FND_API.g_exc_error;
3275: END IF;
3276:
3277: l_pay_method_amt := l_pay_method_amt + (p_payment_method_tbl(i).amount_settled * -1);
3278: EXIT WHEN i = p_payment_method_tbl.LAST;
3293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3294: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPN_CLA_AMT_ERR');
3295: FND_MSG_PUB.Add;
3296: END IF;
3297: RAISE FND_API.g_exc_error;
3298: END IF;
3299:
3300: --bug4768031
3301: IF (ABS(l_open_trx_amt) = 0 AND ABS(l_pay_method_amt) = 0 AND
3304: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3305: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_OPM_ERR');
3306: FND_MSG_PUB.Add;
3307: END IF;
3308: RAISE FND_API.g_exc_error;
3309: END IF;
3310:
3311: /* Bug4079177: Claims should be split if the settlement amount is less then
3312: the settlement amount on the group. If the group is a deduction group,
3386: l_group_claim_rec.payment_method := 'MASS_SETTLEMENT';
3387:
3388: OZF_Claim_PVT.Create_Claim (
3389: p_api_version => l_api_version
3390: ,p_init_msg_list => FND_API.G_FALSE
3391: ,p_commit => FND_API.G_FALSE
3392: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3393: ,x_return_status => l_return_status
3394: ,x_msg_data => x_msg_data
3387:
3388: OZF_Claim_PVT.Create_Claim (
3389: p_api_version => l_api_version
3390: ,p_init_msg_list => FND_API.G_FALSE
3391: ,p_commit => FND_API.G_FALSE
3392: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3393: ,x_return_status => l_return_status
3394: ,x_msg_data => x_msg_data
3395: ,x_msg_count => x_msg_count
3388: OZF_Claim_PVT.Create_Claim (
3389: p_api_version => l_api_version
3390: ,p_init_msg_list => FND_API.G_FALSE
3391: ,p_commit => FND_API.G_FALSE
3392: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3393: ,x_return_status => l_return_status
3394: ,x_msg_data => x_msg_data
3395: ,x_msg_count => x_msg_count
3396: ,p_claim => l_group_claim_rec
3399: IF OZF_DEBUG_HIGH_ON THEN
3400: OZF_Utility_PVT.debug_message('group claim id = '||l_group_claim_id);
3401: END IF;
3402:
3403: IF l_return_status = FND_API.g_ret_sts_error THEN
3404: RAISE FND_API.g_exc_error;
3405: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3406: RAISE FND_API.g_exc_unexpected_error;
3407: END IF;
3400: OZF_Utility_PVT.debug_message('group claim id = '||l_group_claim_id);
3401: END IF;
3402:
3403: IF l_return_status = FND_API.g_ret_sts_error THEN
3404: RAISE FND_API.g_exc_error;
3405: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3406: RAISE FND_API.g_exc_unexpected_error;
3407: END IF;
3408:
3401: END IF;
3402:
3403: IF l_return_status = FND_API.g_ret_sts_error THEN
3404: RAISE FND_API.g_exc_error;
3405: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3406: RAISE FND_API.g_exc_unexpected_error;
3407: END IF;
3408:
3409:
3402:
3403: IF l_return_status = FND_API.g_ret_sts_error THEN
3404: RAISE FND_API.g_exc_error;
3405: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3406: RAISE FND_API.g_exc_unexpected_error;
3407: END IF;
3408:
3409:
3410: ---------------------
3437: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3438: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3439: FND_MSG_PUB.Add;
3440: END IF;
3441: RAISE FND_API.g_exc_unexpected_error;
3442: END;
3443:
3444: OPEN csr_claim_amount_rem(l_open_claim_tbl(i).claim_id);
3445: FETCH csr_claim_amount_rem INTO l_claim_amount_rem
3467: l_group_rem_amt := l_group_rem_amt + l_split_claim_tbl(1).amount;
3468:
3469: OZF_SPLIT_CLAIM_PVT.create_child_claim_tbl (
3470: p_api_version => l_api_version
3471: ,p_init_msg_list => FND_API.g_false
3472: ,p_commit => FND_API.g_false
3473: ,p_validation_level => FND_API.g_valid_level_full
3474: ,x_return_status => l_return_status
3475: ,x_msg_data => x_msg_data
3468:
3469: OZF_SPLIT_CLAIM_PVT.create_child_claim_tbl (
3470: p_api_version => l_api_version
3471: ,p_init_msg_list => FND_API.g_false
3472: ,p_commit => FND_API.g_false
3473: ,p_validation_level => FND_API.g_valid_level_full
3474: ,x_return_status => l_return_status
3475: ,x_msg_data => x_msg_data
3476: ,x_msg_count => x_msg_count
3469: OZF_SPLIT_CLAIM_PVT.create_child_claim_tbl (
3470: p_api_version => l_api_version
3471: ,p_init_msg_list => FND_API.g_false
3472: ,p_commit => FND_API.g_false
3473: ,p_validation_level => FND_API.g_valid_level_full
3474: ,x_return_status => l_return_status
3475: ,x_msg_data => x_msg_data
3476: ,x_msg_count => x_msg_count
3477: ,p_child_claim_tbl => l_split_claim_tbl
3476: ,x_msg_count => x_msg_count
3477: ,p_child_claim_tbl => l_split_claim_tbl
3478: ,p_mode => 'AUTO'
3479: );
3480: IF l_return_status = FND_API.g_ret_sts_error THEN
3481: RAISE FND_API.g_exc_error;
3482: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3483: RAISE FND_API.g_exc_unexpected_error;
3484: END IF;
3477: ,p_child_claim_tbl => l_split_claim_tbl
3478: ,p_mode => 'AUTO'
3479: );
3480: IF l_return_status = FND_API.g_ret_sts_error THEN
3481: RAISE FND_API.g_exc_error;
3482: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3483: RAISE FND_API.g_exc_unexpected_error;
3484: END IF;
3485: ELSIF ABS(l_open_claim_tbl(i).amount_settled) > ABS(l_claim_amount_rem) THEN
3478: ,p_mode => 'AUTO'
3479: );
3480: IF l_return_status = FND_API.g_ret_sts_error THEN
3481: RAISE FND_API.g_exc_error;
3482: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3483: RAISE FND_API.g_exc_unexpected_error;
3484: END IF;
3485: ELSIF ABS(l_open_claim_tbl(i).amount_settled) > ABS(l_claim_amount_rem) THEN
3486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3479: );
3480: IF l_return_status = FND_API.g_ret_sts_error THEN
3481: RAISE FND_API.g_exc_error;
3482: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3483: RAISE FND_API.g_exc_unexpected_error;
3484: END IF;
3485: ELSIF ABS(l_open_claim_tbl(i).amount_settled) > ABS(l_claim_amount_rem) THEN
3486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3487: FND_MESSAGE.Set_Name('OZF','OZF_SETL_CLA_AMT_ERR');
3486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3487: FND_MESSAGE.Set_Name('OZF','OZF_SETL_CLA_AMT_ERR');
3488: FND_MSG_PUB.Add;
3489: END IF;
3490: RAISE FND_API.g_exc_error;
3491: END IF;
3492: EXIT WHEN i = l_open_claim_tbl.LAST;
3493: i := l_open_claim_tbl.NEXT(i);
3494: END LOOP;
3557: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3558: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_GL_DATE');
3559: FND_MSG_PUB.Add;
3560: END IF;
3561: RAISE FND_API.g_exc_error;
3562: END IF;
3563: END IF;
3564:
3565: l_idx_setl_doc := l_idx_setl_doc + 1;
3593: END IF;
3594:
3595: OZF_Settlement_Doc_PVT.Create_Settlement_Doc_Tbl(
3596: p_api_version_number => l_api_version,
3597: p_init_msg_list => FND_API.G_FALSE,
3598: p_commit => FND_API.G_FALSE,
3599: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3600: x_return_status => l_return_status,
3601: x_msg_count => x_msg_count,
3594:
3595: OZF_Settlement_Doc_PVT.Create_Settlement_Doc_Tbl(
3596: p_api_version_number => l_api_version,
3597: p_init_msg_list => FND_API.G_FALSE,
3598: p_commit => FND_API.G_FALSE,
3599: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3600: x_return_status => l_return_status,
3601: x_msg_count => x_msg_count,
3602: x_msg_data => x_msg_data,
3595: OZF_Settlement_Doc_PVT.Create_Settlement_Doc_Tbl(
3596: p_api_version_number => l_api_version,
3597: p_init_msg_list => FND_API.G_FALSE,
3598: p_commit => FND_API.G_FALSE,
3599: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3600: x_return_status => l_return_status,
3601: x_msg_count => x_msg_count,
3602: x_msg_data => x_msg_data,
3603: p_settlement_doc_tbl => l_group_settle_doc_tbl,
3602: x_msg_data => x_msg_data,
3603: p_settlement_doc_tbl => l_group_settle_doc_tbl,
3604: x_settlement_doc_id_tbl => l_group_settle_doc_id_tbl
3605: );
3606: IF l_return_status = FND_API.g_ret_sts_error THEN
3607: RAISE FND_API.g_exc_error;
3608: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3609: RAISE FND_API.g_exc_unexpected_error;
3610: END IF;
3603: p_settlement_doc_tbl => l_group_settle_doc_tbl,
3604: x_settlement_doc_id_tbl => l_group_settle_doc_id_tbl
3605: );
3606: IF l_return_status = FND_API.g_ret_sts_error THEN
3607: RAISE FND_API.g_exc_error;
3608: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3609: RAISE FND_API.g_exc_unexpected_error;
3610: END IF;
3611:
3604: x_settlement_doc_id_tbl => l_group_settle_doc_id_tbl
3605: );
3606: IF l_return_status = FND_API.g_ret_sts_error THEN
3607: RAISE FND_API.g_exc_error;
3608: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3609: RAISE FND_API.g_exc_unexpected_error;
3610: END IF;
3611:
3612: ------------------------------
3605: );
3606: IF l_return_status = FND_API.g_ret_sts_error THEN
3607: RAISE FND_API.g_exc_error;
3608: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3609: RAISE FND_API.g_exc_unexpected_error;
3610: END IF;
3611:
3612: ------------------------------
3613: -- 6. Break Mass Settlement --
3622: x_return_status => l_return_status,
3623: x_msg_data => x_msg_data,
3624: x_msg_count => x_msg_count
3625: );
3626: IF l_return_status = FND_API.g_ret_sts_error THEN
3627: RAISE FND_API.g_exc_error;
3628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3629: RAISE FND_API.g_exc_unexpected_error;
3630: END IF;
3623: x_msg_data => x_msg_data,
3624: x_msg_count => x_msg_count
3625: );
3626: IF l_return_status = FND_API.g_ret_sts_error THEN
3627: RAISE FND_API.g_exc_error;
3628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3629: RAISE FND_API.g_exc_unexpected_error;
3630: END IF;
3631:
3624: x_msg_count => x_msg_count
3625: );
3626: IF l_return_status = FND_API.g_ret_sts_error THEN
3627: RAISE FND_API.g_exc_error;
3628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3629: RAISE FND_API.g_exc_unexpected_error;
3630: END IF;
3631:
3632:
3625: );
3626: IF l_return_status = FND_API.g_ret_sts_error THEN
3627: RAISE FND_API.g_exc_error;
3628: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3629: RAISE FND_API.g_exc_unexpected_error;
3630: END IF;
3631:
3632:
3633: ---------------------------------
3643: x_return_status => l_return_status,
3644: x_msg_data => x_msg_data,
3645: x_msg_count => x_msg_count
3646: );
3647: IF l_return_status = FND_API.g_ret_sts_error THEN
3648: RAISE FND_API.g_exc_error;
3649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3650: RAISE FND_API.g_exc_unexpected_error;
3651: END IF;
3644: x_msg_data => x_msg_data,
3645: x_msg_count => x_msg_count
3646: );
3647: IF l_return_status = FND_API.g_ret_sts_error THEN
3648: RAISE FND_API.g_exc_error;
3649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3650: RAISE FND_API.g_exc_unexpected_error;
3651: END IF;
3652:
3645: x_msg_count => x_msg_count
3646: );
3647: IF l_return_status = FND_API.g_ret_sts_error THEN
3648: RAISE FND_API.g_exc_error;
3649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3650: RAISE FND_API.g_exc_unexpected_error;
3651: END IF;
3652:
3653: BEGIN
3646: );
3647: IF l_return_status = FND_API.g_ret_sts_error THEN
3648: RAISE FND_API.g_exc_error;
3649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3650: RAISE FND_API.g_exc_unexpected_error;
3651: END IF;
3652:
3653: BEGIN
3654: UPDATE ozf_claims_all
3677: WHERE claim_id =p_open_claim_tbl(i).claim_id;
3678:
3679: EXCEPTION
3680: WHEN Others THEN
3681: RAISE FND_API.g_exc_unexpected_error;
3682: END;
3683: EXIT WHEN i = p_open_claim_tbl.LAST;
3684: i := p_open_claim_tbl.NEXT(i);
3685: END LOOP;
3696: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3697: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3698: FND_MSG_PUB.Add;
3699: END IF;
3700: RAISE FND_API.g_exc_unexpected_error;
3701: END;
3702:
3703:
3704: /* --------------------------------
3714: x_return_status => l_return_status,
3715: x_msg_data => x_msg_data,
3716: x_msg_count => x_msg_count
3717: );
3718: IF l_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;*/
3715: x_msg_data => x_msg_data,
3716: x_msg_count => x_msg_count
3717: );
3718: IF l_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;*/
3723:
3716: x_msg_count => x_msg_count
3717: );
3718: IF l_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;*/
3723:
3724: OPEN csr_mass_setl_appr_req;
3717: );
3718: IF l_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;*/
3723:
3724: OPEN csr_mass_setl_appr_req;
3725: FETCH csr_mass_setl_appr_req INTO l_appr_req;
3739: x_return_status => l_return_status,
3740: x_msg_data => x_msg_data,
3741: x_msg_count => x_msg_count
3742: );
3743: IF l_return_status = FND_API.g_ret_sts_error THEN
3744: RAISE FND_API.g_exc_error;
3745: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3746: RAISE FND_API.g_exc_unexpected_error;
3747: END IF;
3740: x_msg_data => x_msg_data,
3741: x_msg_count => x_msg_count
3742: );
3743: IF l_return_status = FND_API.g_ret_sts_error THEN
3744: RAISE FND_API.g_exc_error;
3745: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3746: RAISE FND_API.g_exc_unexpected_error;
3747: END IF;
3748: ELSE
3741: x_msg_count => x_msg_count
3742: );
3743: IF l_return_status = FND_API.g_ret_sts_error THEN
3744: RAISE FND_API.g_exc_error;
3745: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3746: RAISE FND_API.g_exc_unexpected_error;
3747: END IF;
3748: ELSE
3749: IF OZF_DEBUG_HIGH_ON THEN
3742: );
3743: IF l_return_status = FND_API.g_ret_sts_error THEN
3744: RAISE FND_API.g_exc_error;
3745: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3746: RAISE FND_API.g_exc_unexpected_error;
3747: END IF;
3748: ELSE
3749: IF OZF_DEBUG_HIGH_ON THEN
3750: OZF_Utility_PVT.debug_message('8. Approve Mass Settlement');
3757: x_msg_data => x_msg_data,
3758: x_msg_count => x_msg_count
3759: );
3760:
3761: IF l_return_status = FND_API.g_ret_sts_error THEN
3762: RAISE FND_API.g_exc_error;
3763: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3764: RAISE FND_API.g_exc_unexpected_error;
3765: END IF;
3758: x_msg_count => x_msg_count
3759: );
3760:
3761: IF l_return_status = FND_API.g_ret_sts_error THEN
3762: RAISE FND_API.g_exc_error;
3763: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3764: RAISE FND_API.g_exc_unexpected_error;
3765: END IF;
3766: END IF;
3759: );
3760:
3761: IF l_return_status = FND_API.g_ret_sts_error THEN
3762: RAISE FND_API.g_exc_error;
3763: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3764: RAISE FND_API.g_exc_unexpected_error;
3765: END IF;
3766: END IF;
3767:
3760:
3761: IF l_return_status = FND_API.g_ret_sts_error THEN
3762: RAISE FND_API.g_exc_error;
3763: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3764: RAISE FND_API.g_exc_unexpected_error;
3765: END IF;
3766: END IF;
3767:
3768: IF OZF_DEBUG_HIGH_ON THEN
3770: END IF;
3771:
3772:
3773: ------------------------ finish ------------------------
3774: x_return_status := FND_API.G_RET_STS_SUCCESS;
3775:
3776: -- Standard check for p_commit
3777: IF FND_API.to_Boolean(p_commit) THEN
3778: COMMIT WORK;
3773: ------------------------ finish ------------------------
3774: x_return_status := FND_API.G_RET_STS_SUCCESS;
3775:
3776: -- Standard check for p_commit
3777: IF FND_API.to_Boolean(p_commit) THEN
3778: COMMIT WORK;
3779: END IF;
3780:
3781: FND_MSG_PUB.count_and_get(
3778: COMMIT WORK;
3779: END IF;
3780:
3781: FND_MSG_PUB.count_and_get(
3782: p_encoded => FND_API.g_false,
3783: p_count => x_msg_count,
3784: p_data => x_msg_data
3785: );
3786:
3786:
3787:
3788:
3789: EXCEPTION
3790: WHEN FND_API.g_exc_error THEN
3791: ROLLBACK TO Settle_Mass_Settlement;
3792: x_return_status := FND_API.g_ret_sts_error;
3793: FND_MSG_PUB.count_and_get (
3794: p_encoded => FND_API.g_false
3788:
3789: EXCEPTION
3790: WHEN FND_API.g_exc_error THEN
3791: ROLLBACK TO Settle_Mass_Settlement;
3792: x_return_status := FND_API.g_ret_sts_error;
3793: FND_MSG_PUB.count_and_get (
3794: p_encoded => FND_API.g_false
3795: ,p_count => x_msg_count
3796: ,p_data => x_msg_data
3790: WHEN FND_API.g_exc_error THEN
3791: ROLLBACK TO Settle_Mass_Settlement;
3792: x_return_status := FND_API.g_ret_sts_error;
3793: FND_MSG_PUB.count_and_get (
3794: p_encoded => FND_API.g_false
3795: ,p_count => x_msg_count
3796: ,p_data => x_msg_data
3797: );
3798:
3795: ,p_count => x_msg_count
3796: ,p_data => x_msg_data
3797: );
3798:
3799: WHEN FND_API.g_exc_unexpected_error THEN
3800: ROLLBACK TO Settle_Mass_Settlement;
3801: x_return_status := FND_API.g_ret_sts_unexp_error ;
3802: FND_MSG_PUB.count_and_get (
3803: p_encoded => FND_API.g_false
3797: );
3798:
3799: WHEN FND_API.g_exc_unexpected_error THEN
3800: ROLLBACK TO Settle_Mass_Settlement;
3801: x_return_status := FND_API.g_ret_sts_unexp_error ;
3802: FND_MSG_PUB.count_and_get (
3803: p_encoded => FND_API.g_false
3804: ,p_count => x_msg_count
3805: ,p_data => x_msg_data
3799: WHEN FND_API.g_exc_unexpected_error THEN
3800: ROLLBACK TO Settle_Mass_Settlement;
3801: x_return_status := FND_API.g_ret_sts_unexp_error ;
3802: FND_MSG_PUB.count_and_get (
3803: p_encoded => FND_API.g_false
3804: ,p_count => x_msg_count
3805: ,p_data => x_msg_data
3806: );
3807:
3806: );
3807:
3808: WHEN OTHERS THEN
3809: ROLLBACK TO Settle_Mass_Settlement;
3810: x_return_status := FND_API.g_ret_sts_unexp_error ;
3811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3812: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3813: END IF;
3814: FND_MSG_PUB.count_and_get(
3811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3812: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3813: END IF;
3814: FND_MSG_PUB.count_and_get(
3815: p_encoded => FND_API.g_false
3816: ,p_count => x_msg_count
3817: ,p_data => x_msg_data
3818: );
3819: