3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_Settlement_Doc_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvcsdb.pls';
6:
7: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
9:
10: TYPE g_payment_method_tbl IS TABLE OF VARCHAR2(30)
11: INDEX BY BINARY_INTEGER;
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_Settlement_Doc_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvcsdb.pls';
6:
7: OZF_DEBUG_HIGH_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
9:
10: TYPE g_payment_method_tbl IS TABLE OF VARCHAR2(30)
11: INDEX BY BINARY_INTEGER;
12:
300: l_counter := l_counter + 1;
301: END LOOP;
302: CLOSE csr_invoice_credit;
303: ELSE
304: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
305: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
306: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
307: FND_MSG_PUB.add;
308: END IF;
303: ELSE
304: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
305: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
306: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
307: FND_MSG_PUB.add;
308: END IF;
309: RAISE FND_API.g_exc_error;
310: END IF;
311: ELSE
308: END IF;
309: RAISE FND_API.g_exc_error;
310: END IF;
311: ELSE
312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
313: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
314: FND_MSG_PUB.add;
315: END IF;
316: RAISE FND_API.g_exc_error;
310: END IF;
311: ELSE
312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
313: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
314: FND_MSG_PUB.add;
315: END IF;
316: RAISE FND_API.g_exc_error;
317: END IF;
318:
351: l_settlement_doc_tbl(1).payment_method := 'CREDIT_MEMO';
352: l_settlement_doc_tbl(1).settlement_date := SYSDATE;
353:
354: ELSE
355: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
356: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
357: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
358: FND_MSG_PUB.add;
359: END IF;
354: ELSE
355: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
356: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
357: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
358: FND_MSG_PUB.add;
359: END IF;
360: RAISE FND_API.g_exc_error;
361: END IF;
362: ELSE
359: END IF;
360: RAISE FND_API.g_exc_error;
361: END IF;
362: ELSE
363: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
364: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
365: FND_MSG_PUB.add;
366: END IF;
367: RAISE FND_API.g_exc_error;
361: END IF;
362: ELSE
363: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
364: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
365: FND_MSG_PUB.add;
366: END IF;
367: RAISE FND_API.g_exc_error;
368: END IF;
369:
394: l_settlement_doc_tbl(1).payment_method := 'ON_ACCT_CREDIT';
395: l_settlement_doc_tbl(1).settlement_date := SYSDATE;
396:
397: ELSE
398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
399: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
400: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
401: FND_MSG_PUB.add;
402: END IF;
397: ELSE
398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
399: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
400: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
401: FND_MSG_PUB.add;
402: END IF;
403: RAISE FND_API.g_exc_error;
404: END IF;
405: ELSE
402: END IF;
403: RAISE FND_API.g_exc_error;
404: END IF;
405: ELSE
406: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
407: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
408: FND_MSG_PUB.add;
409: END IF;
410: RAISE FND_API.g_exc_error;
404: END IF;
405: ELSE
406: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
407: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
408: FND_MSG_PUB.add;
409: END IF;
410: RAISE FND_API.g_exc_error;
411: END IF;
412:
430: l_settlement_doc_tbl(1).status_code := 'CLOSED';
431: --l_settlement_doc_tbl(1).settlement_amount := 10; --Need to pass the claim amount
432:
433: ELSE
434: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
435: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
436: FND_MSG_PUB.add;
437: END IF;
438: RAISE FND_API.g_exc_error;
432:
433: ELSE
434: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
435: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
436: FND_MSG_PUB.add;
437: END IF;
438: RAISE FND_API.g_exc_error;
439: END IF;
440:
459: l_settlement_doc_tbl(1).payment_method := 'CHARGEBACK';
460: l_settlement_doc_tbl(1).settlement_date := SYSDATE;
461:
462: ELSE
463: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
464: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
465: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
466: FND_MSG_PUB.add;
467: END IF;
462: ELSE
463: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
464: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
465: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
466: FND_MSG_PUB.add;
467: END IF;
468: RAISE FND_API.g_exc_error;
469: END IF;
470: ELSE
467: END IF;
468: RAISE FND_API.g_exc_error;
469: END IF;
470: ELSE
471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
472: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
473: FND_MSG_PUB.add;
474: END IF;
475: RAISE FND_API.g_exc_error;
469: END IF;
470: ELSE
471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
472: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
473: FND_MSG_PUB.add;
474: END IF;
475: RAISE FND_API.g_exc_error;
476: END IF;
477:
497: l_settlement_doc_tbl(1).payment_method := 'ADJUSTMENT';
498: l_settlement_doc_tbl(1).settlement_date := SYSDATE;
499:
500: ELSE
501: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
502: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
503: FND_MESSAGE.set_token('ID', 'p_adjust_id');
504: FND_MSG_PUB.add;
505: END IF;
500: ELSE
501: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
502: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
503: FND_MESSAGE.set_token('ID', 'p_adjust_id');
504: FND_MSG_PUB.add;
505: END IF;
506: RAISE FND_API.g_exc_error;
507: END IF;
508: ELSIF p_deduction_type IN ('RECEIPT_OPM', 'RECEIPT_DED') THEN
522: l_settlement_doc_tbl(1).payment_method := 'WRITE_OFF';
523: l_settlement_doc_tbl(1).settlement_date := SYSDATE;
524:
525: ELSE
526: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
527: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
528: FND_MESSAGE.set_token('ID', 'p_adjust_id');
529: FND_MSG_PUB.add;
530: END IF;
525: ELSE
526: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
527: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
528: FND_MESSAGE.set_token('ID', 'p_adjust_id');
529: FND_MSG_PUB.add;
530: END IF;
531: RAISE FND_API.g_exc_error;
532: END IF;
533: ELSE
530: END IF;
531: RAISE FND_API.g_exc_error;
532: END IF;
533: ELSE
534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
535: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
536: FND_MSG_PUB.add;
537: END IF;
538: RAISE FND_API.g_exc_error;
532: END IF;
533: ELSE
534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
535: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
536: FND_MSG_PUB.add;
537: END IF;
538: RAISE FND_API.g_exc_error;
539: END IF;
540:
573: l_settlement_doc_tbl(1).payment_method := 'DEBIT_MEMO';
574: l_settlement_doc_tbl(1).settlement_date := SYSDATE;
575:
576: ELSE
577: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
578: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
579: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
580: FND_MSG_PUB.add;
581: END IF;
576: ELSE
577: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
578: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
579: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
580: FND_MSG_PUB.add;
581: END IF;
582: RAISE FND_API.g_exc_error;
583: END IF;
584: ELSE
581: END IF;
582: RAISE FND_API.g_exc_error;
583: END IF;
584: ELSE
585: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
586: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
587: FND_MSG_PUB.add;
588: END IF;
589: RAISE FND_API.g_exc_error;
583: END IF;
584: ELSE
585: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
586: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
587: FND_MSG_PUB.add;
588: END IF;
589: RAISE FND_API.g_exc_error;
590: END IF;
591:
675: x_return_status := FND_API.g_ret_sts_unexp_error ;
676:
677: WHEN OTHERS THEN
678: x_return_status := FND_API.g_ret_sts_unexp_error ;
679: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
680: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
681: END IF;
682:
683: END Update_Payment_Detail;
676:
677: WHEN OTHERS THEN
678: x_return_status := FND_API.g_ret_sts_unexp_error ;
679: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
680: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
681: END IF;
682:
683: END Update_Payment_Detail;
684:
830: , acctd_amount_remaining = l_acctd_amount_remaining
831: WHERE claim_id = p_claim_rec.claim_id;
832: EXCEPTION
833: WHEN OTHERS THEN
834: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
835: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
836: FND_MSG_PUB.add;
837: END IF;
838: IF OZF_DEBUG_LOW_ON THEN
832: EXCEPTION
833: WHEN OTHERS THEN
834: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
835: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
836: FND_MSG_PUB.add;
837: END IF;
838: IF OZF_DEBUG_LOW_ON THEN
839: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
840: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
837: END IF;
838: IF OZF_DEBUG_LOW_ON THEN
839: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
840: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
841: FND_MSG_PUB.Add;
842: END IF;
843: RAISE FND_API.g_exc_unexpected_error;
844: END;
845:
855: x_return_status := FND_API.g_ret_sts_unexp_error ;
856:
857: WHEN OTHERS THEN
858: x_return_status := FND_API.g_ret_sts_unexp_error ;
859: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
860: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
861: END IF;
862:
863: END Update_Claim_Tax_Amount;
856:
857: WHEN OTHERS THEN
858: x_return_status := FND_API.g_ret_sts_unexp_error ;
859: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
860: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
861: END IF;
862:
863: END Update_Claim_Tax_Amount;
864:
902: WHEN OTHERS THEN
903: IF OZF_DEBUG_LOW_ON THEN
904: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
905: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
906: FND_MSG_PUB.Add;
907: END IF;
908: RAISE FND_API.g_exc_unexpected_error;
909: END;
910:
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
920:
921: WHEN OTHERS THEN
922: x_return_status := FND_API.g_ret_sts_unexp_error ;
923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
924: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
925: END IF;
926:
927: END Update_Claim_Line_Status;
920:
921: WHEN OTHERS THEN
922: x_return_status := FND_API.g_ret_sts_unexp_error ;
923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
924: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
925: END IF;
926:
927: END Update_Claim_Line_Status;
928:
1131:
1132: EXCEPTION
1133: WHEN FND_API.G_EXC_ERROR THEN
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135: FND_MSG_PUB.Count_And_Get(
1136: p_encoded => FND_API.g_false,
1137: p_count => x_msg_count,
1138: p_data => x_msg_data
1139: );
1139: );
1140:
1141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1143: FND_MSG_PUB.Count_And_Get(
1144: p_encoded => FND_API.g_false,
1145: p_count => x_msg_count,
1146: p_data => x_msg_data
1147: );
1147: );
1148:
1149: WHEN OTHERS THEN
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1151: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1152: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1153: END IF;
1154: FND_MSG_PUB.Count_And_Get(
1155: p_encoded => FND_API.g_false,
1148:
1149: WHEN OTHERS THEN
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1151: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1152: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1153: END IF;
1154: FND_MSG_PUB.Count_And_Get(
1155: p_encoded => FND_API.g_false,
1156: p_count => x_msg_count,
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1151: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1152: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1153: END IF;
1154: FND_MSG_PUB.Count_And_Get(
1155: p_encoded => FND_API.g_false,
1156: p_count => x_msg_count,
1157: p_data => x_msg_data
1158: );
1313: CLOSE csr_debit_settlement;
1314: END IF;
1315:
1316: x_return_status := FND_API.g_ret_sts_unexp_error;
1317: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1318: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1319: END IF;
1320:
1321: END Get_AP_Rec;
1314: END IF;
1315:
1316: x_return_status := FND_API.g_ret_sts_unexp_error;
1317: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1318: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1319: END IF;
1320:
1321: END Get_AP_Rec;
1322:
1425: x_return_status := FND_API.g_ret_sts_unexp_error;
1426: IF OZF_DEBUG_LOW_ON THEN
1427: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1428: FND_MESSAGE.Set_Token('TEXT','Get_AR_Rec : Error');
1429: FND_MSG_PUB.Add;
1430: END IF;
1431:
1432: END Get_AR_Rec;
1433:
1491: x_return_status := FND_API.g_ret_sts_unexp_error;
1492: IF OZF_DEBUG_LOW_ON THEN
1493: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1494: FND_MESSAGE.Set_Token('TEXT','Get_RMA_Setl_Doc_Tbl : Error');
1495: FND_MSG_PUB.Add;
1496: END IF;
1497:
1498: END Get_RMA_Setl_Doc_Tbl;
1499:
1720: END IF;
1721:
1722: -- Initialize message list if p_init_msg_list is set to TRUE.
1723: IF FND_API.to_Boolean(p_init_msg_list) THEN
1724: FND_MSG_PUB.initialize;
1725: END IF;
1726:
1727: x_return_status := FND_API.g_ret_sts_success;
1728:
1754: , user_status_id = l_claim_rec.user_status_id
1755: WHERE claim_id = p_claim_id;
1756: EXCEPTION
1757: WHEN OTHERS THEN
1758: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1759: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
1760: FND_MSG_PUB.add;
1761: END IF;
1762: IF OZF_DEBUG_LOW_ON THEN
1756: EXCEPTION
1757: WHEN OTHERS THEN
1758: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1759: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
1760: FND_MSG_PUB.add;
1761: END IF;
1762: IF OZF_DEBUG_LOW_ON THEN
1763: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1764: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1761: END IF;
1762: IF OZF_DEBUG_LOW_ON THEN
1763: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1764: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1765: FND_MSG_PUB.Add;
1766: END IF;
1767: RAISE FND_API.g_exc_unexpected_error;
1768: END;
1769:
2038: IF FND_API.to_boolean(p_commit) THEN
2039: COMMIT;
2040: END IF;
2041:
2042: FND_MSG_PUB.Count_And_Get(
2043: p_count => x_msg_count,
2044: p_data => x_msg_data
2045: );
2046:
2051: EXCEPTION
2052: WHEN FND_API.G_EXC_ERROR THEN
2053: ROLLBACK TO Update_Claim_From_Settlement;
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: FND_MSG_PUB.Count_And_Get(
2056: p_encoded => FND_API.g_false,
2057: p_count => x_msg_count,
2058: p_data => x_msg_data
2059: );
2060:
2061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2062: ROLLBACK TO Update_Claim_From_Settlement;
2063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2064: FND_MSG_PUB.Count_And_Get(
2065: p_encoded => FND_API.g_false,
2066: p_count => x_msg_count,
2067: p_data => x_msg_data
2068: );
2069:
2070: WHEN OTHERS THEN
2071: ROLLBACK TO Update_Claim_From_Settlement;
2072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2073: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2074: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2075: END IF;
2076: FND_MSG_PUB.Count_And_Get(
2077: p_encoded => FND_API.g_false,
2070: WHEN OTHERS THEN
2071: ROLLBACK TO Update_Claim_From_Settlement;
2072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2073: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2074: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2075: END IF;
2076: FND_MSG_PUB.Count_And_Get(
2077: p_encoded => FND_API.g_false,
2078: p_count => x_msg_count,
2072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2073: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2074: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2075: END IF;
2076: FND_MSG_PUB.Count_And_Get(
2077: p_encoded => FND_API.g_false,
2078: p_count => x_msg_count,
2079: p_data => x_msg_data
2080: );
2183: WHEN OTHERS THEN
2184: IF OZF_DEBUG_LOW_ON THEN
2185: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2186: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
2187: FND_MSG_PUB.Add;
2188: END IF;
2189: x_return_status := FND_API.g_ret_sts_unexp_error;
2190:
2191: END Split_Claim_Settlement;
2344: WHEN OTHERS THEN
2345: IF OZF_DEBUG_LOW_ON THEN
2346: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2347: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
2348: FND_MSG_PUB.Add;
2349: END IF;
2350: x_return_status := FND_API.g_ret_sts_unexp_error;
2351:
2352: END Create_Write_Off;
2726: WHEN OTHERS THEN
2727: IF OZF_DEBUG_LOW_ON THEN
2728: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2729: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
2730: FND_MSG_PUB.Add;
2731: END IF;
2732: x_return_status := FND_API.g_ret_sts_unexp_error;
2733:
2734: END Process_RMA_settlement;
2924: END IF;
2925:
2926: -- Initialize message list if p_init_msg_list is set to TRUE.
2927: IF FND_API.to_Boolean(p_init_msg_list) THEN
2928: FND_MSG_PUB.initialize;
2929: END IF;
2930:
2931: x_return_status := FND_API.g_ret_sts_success;
2932:
3002: DBMS_SQL.close_cursor(l_claim_csr_id);
3003:
3004: IF l_claim_rma_fetch.count > 0 THEN
3005: FOR i IN 1..l_claim_rma_fetch.count LOOP
3006: FND_MSG_PUB.initialize;
3007: BEGIN
3008: SAVEPOINT RMA_CR_FETCH;
3009:
3010: BEGIN
3211: DBMS_SQL.close_cursor(l_claim_csr_id);
3212:
3213: IF l_claim_rma_setl.count > 0 THEN
3214: FOR i IN 1..l_claim_rma_setl.count LOOP
3215: FND_MSG_PUB.initialize;
3216: BEGIN
3217: SAVEPOINT RMA_SETL;
3218:
3219: IF l_claim_rma_setl(i).claim_id IS NOT NULL AND
3284: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3285: OZF_UTILITY_PVT.write_conc_log;
3286: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3288: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3289: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3290: l_failed_claims := l_failed_claims + 1;
3291:
3292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3295: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3296: OZF_UTILITY_PVT.write_conc_log;
3297: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3298: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3299: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3300: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3301: l_failed_claims := l_failed_claims + 1;
3302:
3303: WHEN OTHERS THEN
3331: EXCEPTION
3332: WHEN OTHERS THEN
3333: ROLLBACK TO Get_RMA_Settlement;
3334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3335: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3336: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3337: END IF;
3338: FND_MSG_PUB.Count_And_Get(
3339: p_encoded => FND_API.g_false,
3332: WHEN OTHERS THEN
3333: ROLLBACK TO Get_RMA_Settlement;
3334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3335: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3336: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3337: END IF;
3338: FND_MSG_PUB.Count_And_Get(
3339: p_encoded => FND_API.g_false,
3340: p_count => x_msg_count,
3334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3335: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3336: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3337: END IF;
3338: FND_MSG_PUB.Count_And_Get(
3339: p_encoded => FND_API.g_false,
3340: p_count => x_msg_count,
3341: p_data => x_msg_data
3342: );
3447: END IF;
3448:
3449: -- Initialize message list if p_init_msg_list is set to TRUE.
3450: IF FND_API.to_Boolean(p_init_msg_list) THEN
3451: FND_MSG_PUB.initialize;
3452: END IF;
3453:
3454: x_return_status := FND_API.g_ret_sts_success;
3455:
3525:
3526:
3527: IF l_claim_id_ver.count > 0 THEN
3528: FOR i IN 1..l_claim_id_ver.count LOOP
3529: FND_MSG_PUB.initialize;
3530: l_inv_bal_error := FALSE;
3531: l_deduction_type := NULL;
3532: BEGIN
3533: SAVEPOINT AR_SETTLEMENT;
3919: OZF_UTILITY_PVT.write_conc_log;
3920: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3921:
3922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3923: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3924: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3925:
3926: l_failed_claims := l_failed_claims + 1;
3927:
3931: OZF_UTILITY_PVT.write_conc_log;
3932: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3933:
3934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3937:
3938: l_failed_claims := l_failed_claims + 1;
3939:
3978: EXCEPTION
3979: WHEN OTHERS THEN
3980: ROLLBACK TO Get_Receivable_Settlement;
3981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3982: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3983: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3984: END IF;
3985: FND_MSG_PUB.Count_And_Get(
3986: p_encoded => FND_API.g_false,
3979: WHEN OTHERS THEN
3980: ROLLBACK TO Get_Receivable_Settlement;
3981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3982: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3983: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3984: END IF;
3985: FND_MSG_PUB.Count_And_Get(
3986: p_encoded => FND_API.g_false,
3987: p_count => x_msg_count,
3981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3982: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3983: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3984: END IF;
3985: FND_MSG_PUB.Count_And_Get(
3986: p_encoded => FND_API.g_false,
3987: p_count => x_msg_count,
3988: p_data => x_msg_data
3989: );
4105: END IF;
4106:
4107: -- Initialize message list if p_init_msg_list is set to TRUE.
4108: IF FND_API.to_Boolean(p_init_msg_list) THEN
4109: FND_MSG_PUB.initialize;
4110: END IF;
4111:
4112: x_return_status := FND_API.g_ret_sts_success;
4113:
4191: FOR i IN 1..l_claim_id_ver.count LOOP
4192:
4193: BEGIN
4194: SAVEPOINT AP_SETTLEMENT;
4195: FND_MSG_PUB.initialize;
4196:
4197: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_id_ver(i).claim_number);
4199:
4486: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4487: OZF_UTILITY_PVT.write_conc_log;
4488: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4490: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4492: l_failed_claims := l_failed_claims + 1;
4493:
4494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4496: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4497: OZF_UTILITY_PVT.write_conc_log;
4498: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4500: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4502: l_failed_claims := l_failed_claims + 1;
4503:
4504: WHEN OTHERS THEN
4518: IF FND_API.to_boolean(p_commit) THEN
4519: COMMIT;
4520: END IF;
4521:
4522: FND_MSG_PUB.Count_And_Get(
4523: p_count => x_msg_count,
4524: p_data => x_msg_data
4525: );
4526:
4535: WHEN FND_API.G_EXC_ERROR THEN
4536: ROLLBACK TO Get_Payable_Settlement;
4537: x_return_status := FND_API.g_ret_sts_error;
4538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4539: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4541: FND_MSG_PUB.Count_And_Get(
4542: p_encoded => FND_API.g_false,
4543: p_count => x_msg_count,
4537: x_return_status := FND_API.g_ret_sts_error;
4538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4539: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4541: FND_MSG_PUB.Count_And_Get(
4542: p_encoded => FND_API.g_false,
4543: p_count => x_msg_count,
4544: p_data => x_msg_data
4545: );
4547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4548: ROLLBACK TO Get_Payable_Settlement;
4549: x_return_status := FND_API.g_ret_sts_unexp_error;
4550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4552: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4553: FND_MSG_PUB.Count_And_Get(
4554: p_encoded => FND_API.g_false,
4555: p_count => x_msg_count,
4549: x_return_status := FND_API.g_ret_sts_unexp_error;
4550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4552: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4553: FND_MSG_PUB.Count_And_Get(
4554: p_encoded => FND_API.g_false,
4555: p_count => x_msg_count,
4556: p_data => x_msg_data
4557: );
4558:
4559: WHEN OTHERS THEN
4560: ROLLBACK TO Get_Payable_Settlement;
4561: x_return_status := FND_API.g_ret_sts_unexp_error;
4562: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4563: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
4564: END IF;
4565: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4566: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
4559: WHEN OTHERS THEN
4560: ROLLBACK TO Get_Payable_Settlement;
4561: x_return_status := FND_API.g_ret_sts_unexp_error;
4562: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4563: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
4564: END IF;
4565: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4566: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
4567: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4564: END IF;
4565: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4566: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
4567: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4568: FND_MSG_PUB.Count_And_Get(
4569: p_encoded => FND_API.g_false,
4570: p_count => x_msg_count,
4571: p_data => x_msg_data
4572: );
4727: x_msg_count => l_msg_count,
4728: x_msg_data => l_msg_data
4729: );
4730: IF l_return_status = FND_API.g_ret_sts_error THEN
4731: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4732: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AR_FETCH_ERR');
4733: FND_MSG_PUB.add;
4734: END IF;
4735: RAISE FND_API.g_exc_error;
4729: );
4730: IF l_return_status = FND_API.g_ret_sts_error THEN
4731: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4732: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AR_FETCH_ERR');
4733: FND_MSG_PUB.add;
4734: END IF;
4735: RAISE FND_API.g_exc_error;
4736: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4737: RAISE FND_API.g_exc_unexpected_error;
4761: x_msg_count => l_msg_count,
4762: x_msg_data => l_msg_data
4763: );
4764: IF l_return_status = FND_API.g_ret_sts_error THEN
4765: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4766: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AP_FETCH_ERR');
4767: FND_MSG_PUB.add;
4768: END IF;
4769: RAISE FND_API.g_exc_error;
4763: );
4764: IF l_return_status = FND_API.g_ret_sts_error THEN
4765: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4766: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AP_FETCH_ERR');
4767: FND_MSG_PUB.add;
4768: END IF;
4769: RAISE FND_API.g_exc_error;
4770: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4771: RAISE FND_API.g_exc_unexpected_error;
4794: x_msg_count => l_msg_count,
4795: x_msg_data => l_msg_data
4796: );
4797: IF l_return_status = FND_API.g_ret_sts_error THEN
4798: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4799: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AR_FETCH_ERR');
4800: FND_MSG_PUB.add;
4801: END IF;
4802: RAISE FND_API.g_exc_error;
4796: );
4797: IF l_return_status = FND_API.g_ret_sts_error THEN
4798: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4799: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AR_FETCH_ERR');
4800: FND_MSG_PUB.add;
4801: END IF;
4802: RAISE FND_API.g_exc_error;
4803: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4804: RAISE FND_API.g_exc_unexpected_error;
4915: OZF_Utility_PVT.debug_message(l_full_name||': start');
4916: END IF;
4917:
4918: IF FND_API.to_boolean(p_init_msg_list) THEN
4919: FND_MSG_PUB.initialize;
4920: END IF;
4921:
4922: IF NOT FND_API.compatible_api_call(
4923: l_api_version,
5059: p_wo_rec_trx_id => l_settlement_doc_rec.wo_rec_trx_id
5060: );
5061: EXCEPTION
5062: WHEN OTHERS THEN
5063: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5064: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5065: FND_MESSAGE.Set_Token('TEXT',SQLERRM);
5066: FND_MSG_PUB.add;
5067: END IF;
5062: WHEN OTHERS THEN
5063: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5064: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5065: FND_MESSAGE.Set_Token('TEXT',SQLERRM);
5066: FND_MSG_PUB.add;
5067: END IF;
5068: RAISE FND_API.g_exc_error;
5069: END;
5070:
5075: IF FND_API.to_boolean(p_commit) THEN
5076: COMMIT;
5077: END IF;
5078:
5079: FND_MSG_PUB.count_and_get(
5080: p_encoded => FND_API.g_false,
5081: p_count => x_msg_count,
5082: p_data => x_msg_data
5083: );
5089: EXCEPTION
5090: WHEN FND_API.g_exc_error THEN
5091: ROLLBACK TO Create_Settlement_Doc;
5092: x_return_status := FND_API.g_ret_sts_error;
5093: FND_MSG_PUB.Count_And_Get (
5094: p_encoded => FND_API.g_false,
5095: p_count => x_msg_count,
5096: p_data => x_msg_data
5097: );
5098:
5099: WHEN FND_API.g_exc_unexpected_error THEN
5100: ROLLBACK TO Create_Settlement_Doc;
5101: x_return_status := FND_API.g_ret_sts_unexp_error;
5102: FND_MSG_PUB.Count_And_Get (
5103: p_encoded => FND_API.g_false,
5104: p_count => x_msg_count,
5105: p_data => x_msg_data
5106: );
5107:
5108: WHEN OTHERS THEN
5109: ROLLBACK TO Create_Settlement_Doc;
5110: x_return_status := FND_API.g_ret_sts_unexp_error;
5111: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5112: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5113: END IF;
5114: FND_MSG_PUB.Count_And_Get (
5115: p_encoded => FND_API.g_false,
5108: WHEN OTHERS THEN
5109: ROLLBACK TO Create_Settlement_Doc;
5110: x_return_status := FND_API.g_ret_sts_unexp_error;
5111: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5112: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5113: END IF;
5114: FND_MSG_PUB.Count_And_Get (
5115: p_encoded => FND_API.g_false,
5116: p_count => x_msg_count,
5110: x_return_status := FND_API.g_ret_sts_unexp_error;
5111: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5112: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5113: END IF;
5114: FND_MSG_PUB.Count_And_Get (
5115: p_encoded => FND_API.g_false,
5116: p_count => x_msg_count,
5117: p_data => x_msg_data
5118: );
5180: OZF_Utility_PVT.debug_message(l_full_name||': start');
5181: END IF;
5182:
5183: IF FND_API.to_boolean(p_init_msg_list) THEN
5184: FND_MSG_PUB.initialize;
5185: END IF;
5186:
5187: IF NOT FND_API.compatible_api_call(
5188: l_api_version,
5203: ----------------------- validate ----------------------
5204: -- Varify object_version_number
5205: IF p_settlement_doc_rec.object_version_number is NULL or
5206: p_settlement_doc_rec.object_version_number = FND_API.G_MISS_NUM THEN
5207: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
5208: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
5209: FND_MSG_PUB.ADD;
5210: END IF;
5211: RAISE FND_API.G_EXC_ERROR;
5205: IF p_settlement_doc_rec.object_version_number is NULL or
5206: p_settlement_doc_rec.object_version_number = FND_API.G_MISS_NUM THEN
5207: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
5208: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
5209: FND_MSG_PUB.ADD;
5210: END IF;
5211: RAISE FND_API.G_EXC_ERROR;
5212: END IF;
5213:
5215: FETCH csr_settle_obj_ver INTO l_object_version_number;
5216: CLOSE csr_settle_obj_ver;
5217:
5218: IF l_object_version_number <> p_settlement_doc_rec.object_version_number THEN
5219: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
5220: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
5221: FND_MSG_PUB.ADD;
5222: END IF;
5223: RAISE FND_API.G_EXC_ERROR;
5217:
5218: IF l_object_version_number <> p_settlement_doc_rec.object_version_number THEN
5219: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
5220: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
5221: FND_MSG_PUB.ADD;
5222: END IF;
5223: RAISE FND_API.G_EXC_ERROR;
5224: END IF;
5225:
5337: p_wo_rec_trx_id => l_complete_doc_rec.wo_rec_trx_id
5338: );
5339: EXCEPTION
5340: WHEN OTHERS THEN
5341: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5342: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
5343: FND_MSG_PUB.add;
5344: END IF;
5345: RAISE FND_API.g_exc_error;
5339: EXCEPTION
5340: WHEN OTHERS THEN
5341: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5342: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
5343: FND_MSG_PUB.add;
5344: END IF;
5345: RAISE FND_API.g_exc_error;
5346: END;
5347:
5395: IF FND_API.to_boolean(p_commit) THEN
5396: COMMIT;
5397: END IF;
5398:
5399: FND_MSG_PUB.count_and_get(
5400: p_encoded => FND_API.g_false,
5401: p_count => x_msg_count,
5402: p_data => x_msg_data
5403: );
5409: EXCEPTION
5410: WHEN FND_API.g_exc_error THEN
5411: ROLLBACK TO Update_Settlement_Doc;
5412: x_return_status := FND_API.g_ret_sts_error;
5413: FND_MSG_PUB.Count_And_Get (
5414: p_encoded => FND_API.g_false,
5415: p_count => x_msg_count,
5416: p_data => x_msg_data
5417: );
5418:
5419: WHEN FND_API.g_exc_unexpected_error THEN
5420: ROLLBACK TO Update_Settlement_Doc;
5421: x_return_status := FND_API.g_ret_sts_unexp_error;
5422: FND_MSG_PUB.Count_And_Get (
5423: p_encoded => FND_API.g_false,
5424: p_count => x_msg_count,
5425: p_data => x_msg_data
5426: );
5427:
5428: WHEN OTHERS THEN
5429: ROLLBACK TO Update_Settlement_Doc;
5430: x_return_status := FND_API.g_ret_sts_unexp_error;
5431: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5432: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5433: END IF;
5434: FND_MSG_PUB.Count_And_Get (
5435: p_encoded => FND_API.g_false,
5428: WHEN OTHERS THEN
5429: ROLLBACK TO Update_Settlement_Doc;
5430: x_return_status := FND_API.g_ret_sts_unexp_error;
5431: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5432: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5433: END IF;
5434: FND_MSG_PUB.Count_And_Get (
5435: p_encoded => FND_API.g_false,
5436: p_count => x_msg_count,
5430: x_return_status := FND_API.g_ret_sts_unexp_error;
5431: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5432: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5433: END IF;
5434: FND_MSG_PUB.Count_And_Get (
5435: p_encoded => FND_API.g_false,
5436: p_count => x_msg_count,
5437: p_data => x_msg_data
5438: );
5479: OZF_Utility_PVT.debug_message(l_full_name||': start');
5480: END IF;
5481:
5482: IF FND_API.to_boolean(p_init_msg_list) THEN
5483: FND_MSG_PUB.initialize;
5484: END IF;
5485:
5486: IF NOT FND_API.compatible_api_call(
5487: l_api_version,
5510: p_settlement_doc_id => p_settlement_doc_id
5511: );
5512: EXCEPTION
5513: WHEN OTHERS THEN
5514: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5515: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
5516: FND_MSG_PUB.add;
5517: END IF;
5518: RAISE FND_API.g_exc_error;
5512: EXCEPTION
5513: WHEN OTHERS THEN
5514: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5515: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
5516: FND_MSG_PUB.add;
5517: END IF;
5518: RAISE FND_API.g_exc_error;
5519: END;
5520: ELSE
5517: END IF;
5518: RAISE FND_API.g_exc_error;
5519: END;
5520: ELSE
5521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5522: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
5523: FND_MSG_PUB.add;
5524: END IF;
5525: RAISE FND_API.g_exc_error;
5519: END;
5520: ELSE
5521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5522: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
5523: FND_MSG_PUB.add;
5524: END IF;
5525: RAISE FND_API.g_exc_error;
5526: END IF;
5527:
5530: WHERE settlement_doc_id = p_settlement_doc_id
5531: AND object_version_number = p_object_version_number;
5532:
5533: IF (SQL%NOTFOUND) THEN
5534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5535: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
5536: FND_MSG_PUB.add;
5537: END IF;
5538: RAISE FND_API.g_exc_error;
5532:
5533: IF (SQL%NOTFOUND) THEN
5534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5535: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
5536: FND_MSG_PUB.add;
5537: END IF;
5538: RAISE FND_API.g_exc_error;
5539: END IF;
5540: */
5542: IF FND_API.to_boolean(p_commit) THEN
5543: COMMIT;
5544: END IF;
5545:
5546: FND_MSG_PUB.count_and_get(
5547: p_encoded => FND_API.g_false,
5548: p_count => x_msg_count,
5549: p_data => x_msg_data
5550: );
5556: EXCEPTION
5557: WHEN FND_API.g_exc_error THEN
5558: ROLLBACK TO Delete_Settlement_Doc;
5559: x_return_status := FND_API.g_ret_sts_error;
5560: FND_MSG_PUB.Count_And_Get (
5561: p_encoded => FND_API.g_false,
5562: p_count => x_msg_count,
5563: p_data => x_msg_data
5564: );
5565:
5566: WHEN FND_API.g_exc_unexpected_error THEN
5567: ROLLBACK TO Delete_Settlement_Doc;
5568: x_return_status := FND_API.g_ret_sts_unexp_error;
5569: FND_MSG_PUB.Count_And_Get (
5570: p_encoded => FND_API.g_false,
5571: p_count => x_msg_count,
5572: p_data => x_msg_data
5573: );
5574:
5575: WHEN OTHERS THEN
5576: ROLLBACK TO Delete_Settlement_Doc;
5577: x_return_status := FND_API.g_ret_sts_unexp_error;
5578: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5579: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5580: END IF;
5581: FND_MSG_PUB.Count_And_Get (
5582: p_encoded => FND_API.g_false,
5575: WHEN OTHERS THEN
5576: ROLLBACK TO Delete_Settlement_Doc;
5577: x_return_status := FND_API.g_ret_sts_unexp_error;
5578: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5579: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5580: END IF;
5581: FND_MSG_PUB.Count_And_Get (
5582: p_encoded => FND_API.g_false,
5583: p_count => x_msg_count,
5577: x_return_status := FND_API.g_ret_sts_unexp_error;
5578: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5579: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5580: END IF;
5581: FND_MSG_PUB.Count_And_Get (
5582: p_encoded => FND_API.g_false,
5583: p_count => x_msg_count,
5584: p_data => x_msg_data
5585: );
5626: OZF_Utility_PVT.debug_message(l_full_name||': start');
5627: END IF;
5628:
5629: IF FND_API.to_boolean(p_init_msg_list) THEN
5630: FND_MSG_PUB.initialize;
5631: END IF;
5632:
5633: IF NOT FND_API.compatible_api_call(
5634: l_api_version,
5649: OPEN c_Settlement_Doc;
5650: FETCH c_Settlement_Doc INTO l_settlement_doc_id;
5651: IF (c_Settlement_Doc%NOTFOUND) THEN
5652: CLOSE c_Settlement_Doc;
5653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5654: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
5655: FND_MSG_PUB.add;
5656: END IF;
5657: RAISE FND_API.g_exc_error;
5651: IF (c_Settlement_Doc%NOTFOUND) THEN
5652: CLOSE c_Settlement_Doc;
5653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5654: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
5655: FND_MSG_PUB.add;
5656: END IF;
5657: RAISE FND_API.g_exc_error;
5658: END IF;
5659: CLOSE c_Settlement_Doc;
5658: END IF;
5659: CLOSE c_Settlement_Doc;
5660:
5661: -------------------- finish --------------------------
5662: FND_MSG_PUB.count_and_get(
5663: p_encoded => FND_API.g_false,
5664: p_count => x_msg_count,
5665: p_data => x_msg_data
5666: );
5671:
5672: EXCEPTION
5673: WHEN OZF_Utility_PVT.resource_locked THEN
5674: x_return_status := FND_API.g_ret_sts_error;
5675: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5676: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
5677: FND_MSG_PUB.add;
5678: END IF;
5679: FND_MSG_PUB.count_and_get(
5673: WHEN OZF_Utility_PVT.resource_locked THEN
5674: x_return_status := FND_API.g_ret_sts_error;
5675: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5676: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
5677: FND_MSG_PUB.add;
5678: END IF;
5679: FND_MSG_PUB.count_and_get(
5680: p_encoded => FND_API.g_false,
5681: p_count => x_msg_count,
5675: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5676: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
5677: FND_MSG_PUB.add;
5678: END IF;
5679: FND_MSG_PUB.count_and_get(
5680: p_encoded => FND_API.g_false,
5681: p_count => x_msg_count,
5682: p_data => x_msg_data
5683: );
5683: );
5684:
5685: WHEN FND_API.g_exc_error THEN
5686: x_return_status := FND_API.g_ret_sts_error;
5687: FND_MSG_PUB.count_and_get(
5688: p_encoded => FND_API.g_false,
5689: p_count => x_msg_count,
5690: p_data => x_msg_data
5691: );
5691: );
5692:
5693: WHEN FND_API.g_exc_unexpected_error THEN
5694: x_return_status := FND_API.g_ret_sts_unexp_error ;
5695: FND_MSG_PUB.count_and_get(
5696: p_encoded => FND_API.g_false,
5697: p_count => x_msg_count,
5698: p_data => x_msg_data
5699: );
5699: );
5700:
5701: WHEN OTHERS THEN
5702: x_return_status := FND_API.g_ret_sts_unexp_error ;
5703: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5704: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5705: END IF;
5706: FND_MSG_PUB.count_and_get(
5707: p_encoded => FND_API.g_false,
5700:
5701: WHEN OTHERS THEN
5702: x_return_status := FND_API.g_ret_sts_unexp_error ;
5703: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5704: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5705: END IF;
5706: FND_MSG_PUB.count_and_get(
5707: p_encoded => FND_API.g_false,
5708: p_count => x_msg_count,
5702: x_return_status := FND_API.g_ret_sts_unexp_error ;
5703: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5704: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5705: END IF;
5706: FND_MSG_PUB.count_and_get(
5707: p_encoded => FND_API.g_false,
5708: p_count => x_msg_count,
5709: p_data => x_msg_data
5710: );
6377: OZF_Utility_PVT.debug_message(l_full_name||': start');
6378: END IF;
6379:
6380: IF FND_API.to_boolean(p_init_msg_list) THEN
6381: FND_MSG_PUB.initialize;
6382: END IF;
6383:
6384: IF NOT FND_API.compatible_api_call(
6385: l_api_version,
6420: END IF;
6421: END IF;
6422:
6423: -------------------- finish --------------------------
6424: FND_MSG_PUB.count_and_get(
6425: p_encoded => FND_API.g_false,
6426: p_count => x_msg_count,
6427: p_data => x_msg_data
6428: );
6433:
6434: EXCEPTION
6435: WHEN FND_API.g_exc_error THEN
6436: x_return_status := FND_API.g_ret_sts_error;
6437: FND_MSG_PUB.count_and_get(
6438: p_encoded => FND_API.g_false,
6439: p_count => x_msg_count,
6440: p_data => x_msg_data
6441: );
6441: );
6442:
6443: WHEN FND_API.g_exc_unexpected_error THEN
6444: x_return_status := FND_API.g_ret_sts_unexp_error ;
6445: FND_MSG_PUB.count_and_get(
6446: p_encoded => FND_API.g_false,
6447: p_count => x_msg_count,
6448: p_data => x_msg_data
6449: );
6449: );
6450:
6451: WHEN OTHERS THEN
6452: x_return_status := FND_API.g_ret_sts_unexp_error;
6453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6454: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6455: END IF;
6456: FND_MSG_PUB.count_and_get(
6457: p_encoded => FND_API.g_false,
6450:
6451: WHEN OTHERS THEN
6452: x_return_status := FND_API.g_ret_sts_unexp_error;
6453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6454: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6455: END IF;
6456: FND_MSG_PUB.count_and_get(
6457: p_encoded => FND_API.g_false,
6458: p_count => x_msg_count,
6452: x_return_status := FND_API.g_ret_sts_unexp_error;
6453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6454: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6455: END IF;
6456: FND_MSG_PUB.count_and_get(
6457: p_encoded => FND_API.g_false,
6458: p_count => x_msg_count,
6459: p_data => x_msg_data
6460: );
6524: -- Debug Message
6525: IF OZF_DEBUG_LOW_ON THEN
6526: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6527: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
6528: FND_MSG_PUB.Add;
6529: END IF;
6530:
6531: --Initialize message list if p_init_msg_list is TRUE.
6532: IF FND_API.To_Boolean (p_init_msg_list) THEN
6529: END IF;
6530:
6531: --Initialize message list if p_init_msg_list is TRUE.
6532: IF FND_API.To_Boolean (p_init_msg_list) THEN
6533: FND_MSG_PUB.initialize;
6534: END IF;
6535:
6536: -- Initialize API return status to sucess
6537: x_return_status := FND_API.G_RET_STS_SUCCESS;
6569: -- Debug Message
6570: IF OZF_DEBUG_LOW_ON THEN
6571: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6572: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
6573: FND_MSG_PUB.Add;
6574: END IF;
6575: --Standard call to get message count and if count=1, get the message
6576: FND_MSG_PUB.Count_And_Get (
6577: p_encoded => FND_API.G_FALSE,
6572: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
6573: FND_MSG_PUB.Add;
6574: END IF;
6575: --Standard call to get message count and if count=1, get the message
6576: FND_MSG_PUB.Count_And_Get (
6577: p_encoded => FND_API.G_FALSE,
6578: p_count => x_msg_count,
6579: p_data => x_msg_data
6580: );
6582: WHEN FND_API.G_EXC_ERROR THEN
6583: ROLLBACK TO Create_Settlement_Doc_Tbl;
6584: x_return_status := FND_API.G_RET_STS_ERROR;
6585: -- Standard call to get message count and if count=1, get the message
6586: FND_MSG_PUB.Count_And_Get (
6587: p_encoded => FND_API.G_FALSE,
6588: p_count => x_msg_count,
6589: p_data => x_msg_data
6590: );
6591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6592: ROLLBACK TO Create_Settlement_Doc_Tbl;
6593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6594: -- Standard call to get message count and if count=1, get the message
6595: FND_MSG_PUB.Count_And_Get (
6596: p_encoded => FND_API.G_FALSE,
6597: p_count => x_msg_count,
6598: p_data => x_msg_data
6599: );
6600: WHEN OTHERS THEN
6601: ROLLBACK TO Create_Settlement_Doc_Tbl;
6602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6603: -- Standard call to get message count and if count=1, get the message
6604: FND_MSG_PUB.Count_And_Get (
6605: p_encoded => FND_API.G_FALSE,
6606: p_count => x_msg_count,
6607: p_data => x_msg_data );
6608:
6642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6643: END IF;
6644:
6645: -- Debug Message
6646: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
6647: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6648: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
6649: FND_MSG_PUB.Add;
6650: END IF;
6645: -- Debug Message
6646: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
6647: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6648: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
6649: FND_MSG_PUB.Add;
6650: END IF;
6651:
6652: --Initialize message list if p_init_msg_list is TRUE.
6653: IF FND_API.To_Boolean (p_init_msg_list) THEN
6650: END IF;
6651:
6652: --Initialize message list if p_init_msg_list is TRUE.
6653: IF FND_API.To_Boolean (p_init_msg_list) THEN
6654: FND_MSG_PUB.initialize;
6655: END IF;
6656:
6657: -- Initialize API return status to sucess
6658: x_return_status := FND_API.G_RET_STS_SUCCESS;
6681: END IF;
6682: END LOOP;
6683:
6684: -- Debug Message
6685: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
6686: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6687: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
6688: FND_MSG_PUB.Add;
6689: END IF;
6684: -- Debug Message
6685: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
6686: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6687: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
6688: FND_MSG_PUB.Add;
6689: END IF;
6690: --Standard call to get message count and if count=1, get the message
6691: FND_MSG_PUB.Count_And_Get (
6692: p_encoded => FND_API.G_FALSE,
6687: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
6688: FND_MSG_PUB.Add;
6689: END IF;
6690: --Standard call to get message count and if count=1, get the message
6691: FND_MSG_PUB.Count_And_Get (
6692: p_encoded => FND_API.G_FALSE,
6693: p_count => x_msg_count,
6694: p_data => x_msg_data
6695: );
6697: WHEN FND_API.G_EXC_ERROR THEN
6698: ROLLBACK TO Update_Settlement_Doc_Tbl;
6699: x_return_status := FND_API.G_RET_STS_ERROR;
6700: -- Standard call to get message count and if count=1, get the message
6701: FND_MSG_PUB.Count_And_Get (
6702: p_encoded => FND_API.G_FALSE,
6703: p_count => x_msg_count,
6704: p_data => x_msg_data
6705: );
6706: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6707: ROLLBACK TO Update_Settlement_Doc_Tbl;
6708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6709: -- Standard call to get message count and if count=1, get the message
6710: FND_MSG_PUB.Count_And_Get (
6711: p_encoded => FND_API.G_FALSE,
6712: p_count => x_msg_count,
6713: p_data => x_msg_data
6714: );
6715: WHEN OTHERS THEN
6716: ROLLBACK TO Update_Settlement_Doc_Tbl;
6717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6718: -- Standard call to get message count and if count=1, get the message
6719: FND_MSG_PUB.Count_And_Get (
6720: p_encoded => FND_API.G_FALSE,
6721: p_count => x_msg_count,
6722: p_data => x_msg_data
6723: );