9:
10: -- object_type
11: G_CLAIM_OBJECT_TYPE CONSTANT VARCHAR2(30) := 'CLAM';
12:
13: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15:
16: CURSOR g_site_trade_profile_csr(p_id in number) IS
17: SELECT trade_profile_id,
10: -- object_type
11: G_CLAIM_OBJECT_TYPE CONSTANT VARCHAR2(30) := 'CLAM';
12:
13: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15:
16: CURSOR g_site_trade_profile_csr(p_id in number) IS
17: SELECT trade_profile_id,
18: cust_account_id,
584: p_line_util_rec := l_line_util_rec;
585:
586:
587:
588: FND_MSG_PUB.count_and_get(
589: p_encoded => FND_API.g_false,
590: p_count => x_msg_count,
591: p_data => x_msg_data
592: );
598: EXCEPTION
599: WHEN FND_API.g_exc_error THEN
600: ROLLBACK TO Update_Fund_Utils;
601: x_return_status := FND_API.g_ret_sts_error;
602: FND_MSG_PUB.count_and_get (
603: p_encoded => FND_API.g_false
604: ,p_count => x_msg_count
605: ,p_data => x_msg_data
606: );
607:
608: WHEN FND_API.g_exc_unexpected_error THEN
609: ROLLBACK TO Update_Fund_Utils;
610: x_return_status := FND_API.g_ret_sts_unexp_error ;
611: FND_MSG_PUB.count_and_get (
612: p_encoded => FND_API.g_false
613: ,p_count => x_msg_count
614: ,p_data => x_msg_data
615: );
616:
617: WHEN OTHERS THEN
618: ROLLBACK TO Update_Fund_Utils;
619: x_return_status := FND_API.g_ret_sts_unexp_error ;
620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
621: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
622: END IF;
623: FND_MSG_PUB.count_and_get(
624: p_encoded => FND_API.g_false
617: WHEN OTHERS THEN
618: ROLLBACK TO Update_Fund_Utils;
619: x_return_status := FND_API.g_ret_sts_unexp_error ;
620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
621: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
622: END IF;
623: FND_MSG_PUB.count_and_get(
624: p_encoded => FND_API.g_false
625: ,p_count => x_msg_count
619: x_return_status := FND_API.g_ret_sts_unexp_error ;
620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
621: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
622: END IF;
623: FND_MSG_PUB.count_and_get(
624: p_encoded => FND_API.g_false
625: ,p_count => x_msg_count
626: ,p_data => x_msg_data
627: );
1479: OZF_Utility_PVT.debug_message(l_full_name||': start');
1480: END IF;
1481:
1482: IF FND_API.to_boolean(p_init_msg_list) THEN
1483: FND_MSG_PUB.initialize;
1484: END IF;
1485:
1486: IF NOT FND_API.compatible_api_call(
1487: l_api_version,
1657:
1658: EXCEPTION
1659: WHEN OTHERS THEN
1660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1661: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1662: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_UTIZ_STMT_ERR');
1663: FND_MSG_PUB.add;
1664: END IF;
1665: END Get_Utiz_Sql_Stmt;
1659: WHEN OTHERS THEN
1660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1661: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1662: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_UTIZ_STMT_ERR');
1663: FND_MSG_PUB.add;
1664: END IF;
1665: END Get_Utiz_Sql_Stmt;
1666:
1667:
1842: x_return_status := FND_API.G_RET_STS_SUCCESS;
1843:
1844: IF p_cust_trade_profile.claim_currency is null OR
1845: p_cust_trade_profile.claim_currency = FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
1846: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1847: OPEN csr_cust_name(l_cust_account_id);
1848: FETCH csr_cust_name INTO l_cust_name_num;
1849: CLOSE csr_cust_name;
1850:
1849: CLOSE csr_cust_name;
1850:
1851: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CURRENCY_MISS');
1852: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1853: FND_MSG_PUB.ADD;
1854: END IF;
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1856: END IF;
1857:
1856: END IF;
1857:
1858: IF p_cust_trade_profile.payment_method is null OR
1859: p_cust_trade_profile.payment_method = FND_API.G_MISS_CHAR THEN -- [BUG 4217781 FIXING]
1860: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1861: OPEN csr_cust_name(l_cust_account_id);
1862: FETCH csr_cust_name INTO l_cust_name_num;
1863: CLOSE csr_cust_name;
1864:
1863: CLOSE csr_cust_name;
1864:
1865: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PYMTHD_MISS');
1866: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1867: FND_MSG_PUB.ADD;
1868: END IF;
1869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1870: END IF;
1871:
1871:
1872: IF p_cust_trade_profile.payment_method = 'CHECK' THEN
1873: IF p_cust_trade_profile.vendor_id is NULL OR
1874: p_cust_trade_profile.vendor_site_id is NULL THEN
1875: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1876: OPEN csr_cust_name(l_cust_account_id);
1877: FETCH csr_cust_name INTO l_cust_name_num;
1878: CLOSE csr_cust_name;
1879:
1878: CLOSE csr_cust_name;
1879:
1880: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_VENDOR_MISS');
1881: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1882: FND_MSG_PUB.ADD;
1883: END IF;
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1885: ELSE
1886: --Added for Bug 16301629
1888: FETCH csr_active_vendor INTO l_active_vendor_num;
1889: CLOSE csr_active_vendor;
1890:
1891: IF l_active_vendor_num is null THEN
1892: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1893: OPEN csr_cust_name(l_cust_account_id);
1894: FETCH csr_cust_name INTO l_cust_name_num;
1895: CLOSE csr_cust_name;
1896: FND_MESSAGE.Set_Name('OZF', 'OZF_TRADE_VENDOR_INACTIVE');
1894: FETCH csr_cust_name INTO l_cust_name_num;
1895: CLOSE csr_cust_name;
1896: FND_MESSAGE.Set_Name('OZF', 'OZF_TRADE_VENDOR_INACTIVE');
1897: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1898: FND_MSG_PUB.ADD;
1899: END IF;
1900: --if vendor or vendor site is inactive, don't default from Customer Trade Profile. Setting it null.
1901: p_cust_trade_profile.vendor_id := null;
1902: p_cust_trade_profile.vendor_site_id := null;
1905: --end bug 16301629
1906: END IF;
1907: ELSIF p_cust_trade_profile.payment_method = 'CREDIT_MEMO' THEN
1908: IF p_cust_trade_profile.site_use_id is NULL THEN
1909: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1910: OPEN csr_cust_name(l_cust_account_id);
1911: FETCH csr_cust_name INTO l_cust_name_num;
1912: CLOSE csr_cust_name;
1913:
1912: CLOSE csr_cust_name;
1913:
1914: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_SITEID_MISS');
1915: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1916: FND_MSG_PUB.ADD;
1917: END IF;
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1919: END IF;
1920: END IF;
1924: END IF;
1925: EXCEPTION
1926: WHEN OTHERS THEN
1927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1928: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1929: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_CUSTOMER_ERR');
1930: FND_MSG_PUB.add;
1931: END IF;
1932: END Validate_Cust_Trade_Profile;
1926: WHEN OTHERS THEN
1927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1928: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1929: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_CUSTOMER_ERR');
1930: FND_MSG_PUB.add;
1931: END IF;
1932: END Validate_Cust_Trade_Profile;
1933:
1934: ---------------------------------------------------------------------
2185: x_return_status := FND_API.g_ret_sts_unexp_error ;
2186:
2187: WHEN OTHERS THEN
2188: x_return_status := FND_API.g_ret_sts_unexp_error ;
2189: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2190: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2191: END IF;
2192:
2193: END Create_Fund_Adjustment;
2186:
2187: WHEN OTHERS THEN
2188: x_return_status := FND_API.g_ret_sts_unexp_error ;
2189: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2190: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2191: END IF;
2192:
2193: END Create_Fund_Adjustment;
2194:
2291: OZF_Utility_PVT.debug_message(l_full_name||': start');
2292: END IF;
2293:
2294: IF FND_API.to_boolean(p_init_msg_list) THEN
2295: FND_MSG_PUB.initialize;
2296: END IF;
2297:
2298: IF NOT FND_API.compatible_api_call(
2299: l_api_version,
2329: , X_Msg_Data => x_msg_data
2330: , X_access => l_access);
2331:
2332: IF l_access = 'N' THEN
2333: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2334: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2335: FND_MSG_PUB.add;
2336: END IF;
2337: RAISE FND_API.G_EXC_ERROR;
2331:
2332: IF l_access = 'N' THEN
2333: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2334: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2335: FND_MSG_PUB.add;
2336: END IF;
2337: RAISE FND_API.G_EXC_ERROR;
2338: END IF;
2339: EXIT;
2566: IF FND_API.to_boolean(p_commit) THEN
2567: COMMIT;
2568: END IF;
2569:
2570: FND_MSG_PUB.count_and_get(
2571: p_encoded => FND_API.g_false,
2572: p_count => x_msg_count,
2573: p_data => x_msg_data
2574: );
2580: EXCEPTION
2581: WHEN FND_API.g_exc_error THEN
2582: ROLLBACK TO Create_Line_Util_Tbl;
2583: x_return_status := FND_API.g_ret_sts_error;
2584: FND_MSG_PUB.count_and_get (
2585: p_encoded => FND_API.g_false
2586: ,p_count => x_msg_count
2587: ,p_data => x_msg_data
2588: );
2589:
2590: WHEN FND_API.g_exc_unexpected_error THEN
2591: ROLLBACK TO Create_Line_Util_Tbl;
2592: x_return_status := FND_API.g_ret_sts_unexp_error ;
2593: FND_MSG_PUB.count_and_get (
2594: p_encoded => FND_API.g_false
2595: ,p_count => x_msg_count
2596: ,p_data => x_msg_data
2597: );
2598:
2599: WHEN OTHERS THEN
2600: ROLLBACK TO Create_Line_Util_Tbl;
2601: x_return_status := FND_API.g_ret_sts_unexp_error ;
2602: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2603: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2604: END IF;
2605: FND_MSG_PUB.count_and_get(
2606: p_encoded => FND_API.g_false
2599: WHEN OTHERS THEN
2600: ROLLBACK TO Create_Line_Util_Tbl;
2601: x_return_status := FND_API.g_ret_sts_unexp_error ;
2602: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2603: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2604: END IF;
2605: FND_MSG_PUB.count_and_get(
2606: p_encoded => FND_API.g_false
2607: ,p_count => x_msg_count
2601: x_return_status := FND_API.g_ret_sts_unexp_error ;
2602: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2603: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2604: END IF;
2605: FND_MSG_PUB.count_and_get(
2606: p_encoded => FND_API.g_false
2607: ,p_count => x_msg_count
2608: ,p_data => x_msg_data
2609: );
2671: OZF_Utility_PVT.debug_message(l_full_name||': start');
2672: END IF;
2673:
2674: IF FND_API.to_boolean(p_init_msg_list) THEN
2675: FND_MSG_PUB.initialize;
2676: END IF;
2677:
2678: IF NOT FND_API.compatible_api_call(
2679: l_api_version,
2893: IF FND_API.to_boolean(p_commit) THEN
2894: COMMIT;
2895: END IF;
2896:
2897: FND_MSG_PUB.count_and_get(
2898: p_encoded => FND_API.g_false,
2899: p_count => x_msg_count,
2900: p_data => x_msg_data
2901: );
2907: EXCEPTION
2908: WHEN FND_API.g_exc_error THEN
2909: ROLLBACK TO Create_Line_Util;
2910: x_return_status := FND_API.g_ret_sts_error;
2911: FND_MSG_PUB.count_and_get (
2912: p_encoded => FND_API.g_false
2913: ,p_count => x_msg_count
2914: ,p_data => x_msg_data
2915: );
2916:
2917: WHEN FND_API.g_exc_unexpected_error THEN
2918: ROLLBACK TO Create_Line_Util;
2919: x_return_status := FND_API.g_ret_sts_unexp_error ;
2920: FND_MSG_PUB.count_and_get (
2921: p_encoded => FND_API.g_false
2922: ,p_count => x_msg_count
2923: ,p_data => x_msg_data
2924: );
2925:
2926: WHEN OTHERS THEN
2927: ROLLBACK TO Create_Line_Util;
2928: x_return_status := FND_API.g_ret_sts_unexp_error ;
2929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2930: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2931: END IF;
2932: FND_MSG_PUB.count_and_get(
2933: p_encoded => FND_API.g_false
2926: WHEN OTHERS THEN
2927: ROLLBACK TO Create_Line_Util;
2928: x_return_status := FND_API.g_ret_sts_unexp_error ;
2929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2930: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2931: END IF;
2932: FND_MSG_PUB.count_and_get(
2933: p_encoded => FND_API.g_false
2934: ,p_count => x_msg_count
2928: x_return_status := FND_API.g_ret_sts_unexp_error ;
2929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2930: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2931: END IF;
2932: FND_MSG_PUB.count_and_get(
2933: p_encoded => FND_API.g_false
2934: ,p_count => x_msg_count
2935: ,p_data => x_msg_data
2936: );
2989: OZF_Utility_PVT.debug_message(l_full_name||': start');
2990: END IF;
2991:
2992: IF FND_API.to_boolean(p_init_msg_list) THEN
2993: FND_MSG_PUB.initialize;
2994: END IF;
2995:
2996: IF NOT FND_API.compatible_api_call(
2997: l_api_version,
3026: , X_Msg_Data => x_msg_data
3027: , X_access => l_access);
3028:
3029: IF l_access = 'N' THEN
3030: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3031: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3032: FND_MSG_PUB.add;
3033: END IF;
3034: RAISE FND_API.G_EXC_ERROR;
3028:
3029: IF l_access = 'N' THEN
3030: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3031: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3032: FND_MSG_PUB.add;
3033: END IF;
3034: RAISE FND_API.G_EXC_ERROR;
3035: END IF;
3036: EXIT;
3089: IF FND_API.to_boolean(p_commit) THEN
3090: COMMIT;
3091: END IF;
3092:
3093: FND_MSG_PUB.count_and_get(
3094: p_encoded => FND_API.g_false,
3095: p_count => x_msg_count,
3096: p_data => x_msg_data
3097: );
3103: EXCEPTION
3104: WHEN FND_API.g_exc_error THEN
3105: ROLLBACK TO Update_Line_Util_Tbl;
3106: x_return_status := FND_API.g_ret_sts_error;
3107: FND_MSG_PUB.count_and_get (
3108: p_encoded => FND_API.g_false
3109: ,p_count => x_msg_count
3110: ,p_data => x_msg_data
3111: );
3112:
3113: WHEN FND_API.g_exc_unexpected_error THEN
3114: ROLLBACK TO Update_Line_Util_Tbl;
3115: x_return_status := FND_API.g_ret_sts_unexp_error ;
3116: FND_MSG_PUB.count_and_get (
3117: p_encoded => FND_API.g_false
3118: ,p_count => x_msg_count
3119: ,p_data => x_msg_data
3120: );
3121:
3122: WHEN OTHERS THEN
3123: ROLLBACK TO Update_Line_Util_Tbl;
3124: x_return_status := FND_API.g_ret_sts_unexp_error ;
3125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3126: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3127: END IF;
3128: FND_MSG_PUB.count_and_get(
3129: p_encoded => FND_API.g_false
3122: WHEN OTHERS THEN
3123: ROLLBACK TO Update_Line_Util_Tbl;
3124: x_return_status := FND_API.g_ret_sts_unexp_error ;
3125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3126: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3127: END IF;
3128: FND_MSG_PUB.count_and_get(
3129: p_encoded => FND_API.g_false
3130: ,p_count => x_msg_count
3124: x_return_status := FND_API.g_ret_sts_unexp_error ;
3125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3126: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3127: END IF;
3128: FND_MSG_PUB.count_and_get(
3129: p_encoded => FND_API.g_false
3130: ,p_count => x_msg_count
3131: ,p_data => x_msg_data
3132: );
3227: OZF_Utility_PVT.debug_message(l_full_name||': start');
3228: END IF;
3229:
3230: IF FND_API.to_boolean(p_init_msg_list) THEN
3231: FND_MSG_PUB.initialize;
3232: END IF;
3233:
3234: IF NOT FND_API.compatible_api_call(
3235: l_api_version,
3282: , X_Msg_Data => x_msg_data
3283: , X_access => l_access);
3284:
3285: IF l_access = 'N' THEN
3286: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3287: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3288: FND_MSG_PUB.add;
3289: END IF;
3290: RAISE FND_API.G_EXC_ERROR;
3284:
3285: IF l_access = 'N' THEN
3286: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3287: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3288: FND_MSG_PUB.add;
3289: END IF;
3290: RAISE FND_API.G_EXC_ERROR;
3291: END IF;
3292: END IF;
3420: WHERE claim_line_util_id = p_line_util_rec.claim_line_util_id;
3421: --AND object_version_number = p_line_util_rec.object_version_number;
3422:
3423: IF (SQL%NOTFOUND) THEN
3424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3425: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3426: FND_MSG_PUB.add;
3427: END IF;
3428: RAISE FND_API.g_exc_error;
3422:
3423: IF (SQL%NOTFOUND) THEN
3424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3425: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3426: FND_MSG_PUB.add;
3427: END IF;
3428: RAISE FND_API.g_exc_error;
3429: END IF;
3430:
3435: IF FND_API.to_boolean(p_commit) THEN
3436: COMMIT;
3437: END IF;
3438:
3439: FND_MSG_PUB.count_and_get(
3440: p_encoded => FND_API.g_false,
3441: p_count => x_msg_count,
3442: p_data => x_msg_data
3443: );
3449: EXCEPTION
3450: WHEN FND_API.g_exc_error THEN
3451: ROLLBACK TO Update_Line_Util;
3452: x_return_status := FND_API.g_ret_sts_error;
3453: FND_MSG_PUB.count_and_get(
3454: p_encoded => FND_API.g_false,
3455: p_count => x_msg_count,
3456: p_data => x_msg_data
3457: );
3458:
3459: WHEN FND_API.g_exc_unexpected_error THEN
3460: ROLLBACK TO Update_Line_Util;
3461: x_return_status := FND_API.g_ret_sts_unexp_error ;
3462: FND_MSG_PUB.count_and_get(
3463: p_encoded => FND_API.g_false,
3464: p_count => x_msg_count,
3465: p_data => x_msg_data
3466: );
3467:
3468: WHEN OTHERS THEN
3469: ROLLBACK TO Update_Line_Util;
3470: x_return_status := FND_API.g_ret_sts_unexp_error ;
3471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3472: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3473: END IF;
3474: FND_MSG_PUB.count_and_get(
3475: p_encoded => FND_API.g_false,
3468: WHEN OTHERS THEN
3469: ROLLBACK TO Update_Line_Util;
3470: x_return_status := FND_API.g_ret_sts_unexp_error ;
3471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3472: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3473: END IF;
3474: FND_MSG_PUB.count_and_get(
3475: p_encoded => FND_API.g_false,
3476: p_count => x_msg_count,
3470: x_return_status := FND_API.g_ret_sts_unexp_error ;
3471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3472: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3473: END IF;
3474: FND_MSG_PUB.count_and_get(
3475: p_encoded => FND_API.g_false,
3476: p_count => x_msg_count,
3477: p_data => x_msg_data
3478: );
3537: OZF_Utility_PVT.debug_message(l_full_name||': start');
3538: END IF;
3539:
3540: IF FND_API.to_boolean(p_init_msg_list) THEN
3541: FND_MSG_PUB.initialize;
3542: END IF;
3543:
3544: IF NOT FND_API.compatible_api_call(
3545: l_api_version,
3655: IF FND_API.to_boolean(p_commit) THEN
3656: COMMIT;
3657: END IF;
3658:
3659: FND_MSG_PUB.count_and_get(
3660: p_encoded => FND_API.g_false,
3661: p_count => x_msg_count,
3662: p_data => x_msg_data
3663: );
3669: EXCEPTION
3670: WHEN FND_API.g_exc_error THEN
3671: ROLLBACK TO Delete_All_Line_Util;
3672: x_return_status := FND_API.g_ret_sts_error;
3673: FND_MSG_PUB.count_and_get (
3674: p_encoded => FND_API.g_false
3675: ,p_count => x_msg_count
3676: ,p_data => x_msg_data
3677: );
3678:
3679: WHEN FND_API.g_exc_unexpected_error THEN
3680: ROLLBACK TO Delete_All_Line_Util;
3681: x_return_status := FND_API.g_ret_sts_unexp_error ;
3682: FND_MSG_PUB.count_and_get (
3683: p_encoded => FND_API.g_false
3684: ,p_count => x_msg_count
3685: ,p_data => x_msg_data
3686: );
3687:
3688: WHEN OTHERS THEN
3689: ROLLBACK TO Delete_All_Line_Util;
3690: x_return_status := FND_API.g_ret_sts_unexp_error ;
3691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3692: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3693: END IF;
3694: FND_MSG_PUB.count_and_get(
3695: p_encoded => FND_API.g_false
3688: WHEN OTHERS THEN
3689: ROLLBACK TO Delete_All_Line_Util;
3690: x_return_status := FND_API.g_ret_sts_unexp_error ;
3691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3692: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3693: END IF;
3694: FND_MSG_PUB.count_and_get(
3695: p_encoded => FND_API.g_false
3696: ,p_count => x_msg_count
3690: x_return_status := FND_API.g_ret_sts_unexp_error ;
3691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3692: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3693: END IF;
3694: FND_MSG_PUB.count_and_get(
3695: p_encoded => FND_API.g_false
3696: ,p_count => x_msg_count
3697: ,p_data => x_msg_data
3698: );
3754: OZF_Utility_PVT.debug_message(l_full_name||': start');
3755: END IF;
3756:
3757: IF FND_API.to_boolean(p_init_msg_list) THEN
3758: FND_MSG_PUB.initialize;
3759: END IF;
3760:
3761: IF NOT FND_API.compatible_api_call(
3762: l_api_version,
3791: , X_Msg_Data => x_msg_data
3792: , X_access => l_access);
3793:
3794: IF l_access = 'N' THEN
3795: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3796: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3797: FND_MSG_PUB.add;
3798: END IF;
3799: RAISE FND_API.G_EXC_ERROR;
3793:
3794: IF l_access = 'N' THEN
3795: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3796: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3797: FND_MSG_PUB.add;
3798: END IF;
3799: RAISE FND_API.G_EXC_ERROR;
3800: END IF;
3801: EXIT;
3867: IF FND_API.to_boolean(p_commit) THEN
3868: COMMIT;
3869: END IF;
3870:
3871: FND_MSG_PUB.count_and_get(
3872: p_encoded => FND_API.g_false,
3873: p_count => x_msg_count,
3874: p_data => x_msg_data
3875: );
3881: EXCEPTION
3882: WHEN FND_API.g_exc_error THEN
3883: ROLLBACK TO Delete_Line_Util_Tbl;
3884: x_return_status := FND_API.g_ret_sts_error;
3885: FND_MSG_PUB.count_and_get (
3886: p_encoded => FND_API.g_false
3887: ,p_count => x_msg_count
3888: ,p_data => x_msg_data
3889: );
3890:
3891: WHEN FND_API.g_exc_unexpected_error THEN
3892: ROLLBACK TO Delete_Line_Util_Tbl;
3893: x_return_status := FND_API.g_ret_sts_unexp_error ;
3894: FND_MSG_PUB.count_and_get (
3895: p_encoded => FND_API.g_false
3896: ,p_count => x_msg_count
3897: ,p_data => x_msg_data
3898: );
3899:
3900: WHEN OTHERS THEN
3901: ROLLBACK TO Delete_Line_Util_Tbl;
3902: x_return_status := FND_API.g_ret_sts_unexp_error ;
3903: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3904: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3905: END IF;
3906: FND_MSG_PUB.count_and_get(
3907: p_encoded => FND_API.g_false
3900: WHEN OTHERS THEN
3901: ROLLBACK TO Delete_Line_Util_Tbl;
3902: x_return_status := FND_API.g_ret_sts_unexp_error ;
3903: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3904: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3905: END IF;
3906: FND_MSG_PUB.count_and_get(
3907: p_encoded => FND_API.g_false
3908: ,p_count => x_msg_count
3902: x_return_status := FND_API.g_ret_sts_unexp_error ;
3903: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3904: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3905: END IF;
3906: FND_MSG_PUB.count_and_get(
3907: p_encoded => FND_API.g_false
3908: ,p_count => x_msg_count
3909: ,p_data => x_msg_data
3910: );
3992: OZF_Utility_PVT.debug_message(l_full_name||': start');
3993: END IF;
3994:
3995: IF FND_API.to_boolean(p_init_msg_list) THEN
3996: FND_MSG_PUB.initialize;
3997: END IF;
3998:
3999: IF NOT FND_API.compatible_api_call(
4000: l_api_version,
4034: , X_Msg_Data => x_msg_data
4035: , X_access => l_access);
4036:
4037: IF l_access = 'N' THEN
4038: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4039: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
4040: FND_MSG_PUB.add;
4041: END IF;
4042: RAISE FND_API.G_EXC_ERROR;
4036:
4037: IF l_access = 'N' THEN
4038: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4039: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
4040: FND_MSG_PUB.add;
4041: END IF;
4042: RAISE FND_API.G_EXC_ERROR;
4043: END IF;
4044: END IF;
4095: WHERE claim_line_util_id = p_line_util_id
4096: AND object_version_number = p_object_version;
4097:
4098: IF (SQL%NOTFOUND) THEN
4099: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4100: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4101: FND_MSG_PUB.add;
4102: END IF;
4103: RAISE FND_API.g_exc_error;
4097:
4098: IF (SQL%NOTFOUND) THEN
4099: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4100: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4101: FND_MSG_PUB.add;
4102: END IF;
4103: RAISE FND_API.g_exc_error;
4104: END IF;
4105:
4107: IF FND_API.to_boolean(p_commit) THEN
4108: COMMIT;
4109: END IF;
4110:
4111: FND_MSG_PUB.count_and_get(
4112: p_encoded => FND_API.g_false,
4113: p_count => x_msg_count,
4114: p_data => x_msg_data
4115: );
4121: EXCEPTION
4122: WHEN FND_API.g_exc_error THEN
4123: ROLLBACK TO Delete_Line_Util;
4124: x_return_status := FND_API.g_ret_sts_error;
4125: FND_MSG_PUB.count_and_get(
4126: p_encoded => FND_API.g_false,
4127: p_count => x_msg_count,
4128: p_data => x_msg_data
4129: );
4130:
4131: WHEN FND_API.g_exc_unexpected_error THEN
4132: ROLLBACK TO Delete_Line_Util;
4133: x_return_status := FND_API.g_ret_sts_unexp_error ;
4134: FND_MSG_PUB.count_and_get(
4135: p_encoded => FND_API.g_false,
4136: p_count => x_msg_count,
4137: p_data => x_msg_data
4138: );
4139:
4140: WHEN OTHERS THEN
4141: ROLLBACK TO Delete_Line_Util;
4142: x_return_status := FND_API.g_ret_sts_unexp_error ;
4143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4144: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4145: END IF;
4146: FND_MSG_PUB.count_and_get(
4147: p_encoded => FND_API.g_false,
4140: WHEN OTHERS THEN
4141: ROLLBACK TO Delete_Line_Util;
4142: x_return_status := FND_API.g_ret_sts_unexp_error ;
4143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4144: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4145: END IF;
4146: FND_MSG_PUB.count_and_get(
4147: p_encoded => FND_API.g_false,
4148: p_count => x_msg_count,
4142: x_return_status := FND_API.g_ret_sts_unexp_error ;
4143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4144: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4145: END IF;
4146: FND_MSG_PUB.count_and_get(
4147: p_encoded => FND_API.g_false,
4148: p_count => x_msg_count,
4149: p_data => x_msg_data
4150: );
4212: OPEN csr_line_util(p_line_util_rec.claim_line_util_id);
4213: FETCH csr_line_util INTO l_line_util_rec;
4214: IF csr_line_util%NOTFOUND THEN
4215: CLOSE csr_line_util;
4216: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4217: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4218: FND_MSG_PUB.add;
4219: END IF;
4220: RAISE FND_API.g_exc_error;
4214: IF csr_line_util%NOTFOUND THEN
4215: CLOSE csr_line_util;
4216: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4217: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4218: FND_MSG_PUB.add;
4219: END IF;
4220: RAISE FND_API.g_exc_error;
4221: END IF;
4222: CLOSE csr_line_util;
4502: ,from_name => NULL
4503: ,to_name => NULL
4504: );
4505: IF l_requirement_value = -99999 THEN
4506: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4507: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4508: FND_MSG_PUB.add;
4509: END IF;
4510: RAISE FND_API.g_exc_error;
4504: );
4505: IF l_requirement_value = -99999 THEN
4506: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4507: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4508: FND_MSG_PUB.add;
4509: END IF;
4510: RAISE FND_API.g_exc_error;
4511: END IF;
4512:
4621: ,from_name => NULL
4622: ,to_name => NULL
4623: );
4624: IF l_requirement_value = -99999 THEN
4625: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4626: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4627: FND_MSG_PUB.add;
4628: END IF;
4629: RAISE FND_API.g_exc_error;
4623: );
4624: IF l_requirement_value = -99999 THEN
4625: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4626: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4627: FND_MSG_PUB.add;
4628: END IF;
4629: RAISE FND_API.g_exc_error;
4630: END IF;
4631:
4808: x_return_status := FND_API.g_ret_sts_unexp_error ;
4809: WHEN OTHERS THEN
4810: ROLLBACK TO Settle_Claim;
4811: x_return_status := FND_API.g_ret_sts_unexp_error ;
4812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4813: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4814: END IF;
4815: END Settle_Claim;
4816:
4809: WHEN OTHERS THEN
4810: ROLLBACK TO Settle_Claim;
4811: x_return_status := FND_API.g_ret_sts_unexp_error ;
4812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4813: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4814: END IF;
4815: END Settle_Claim;
4816:
4817:
4954: OZF_Utility_PVT.debug_message('l_claim_rec.claim_number : ' || l_claim_rec.claim_number);
4955: END IF;
4956:
4957: IF FND_API.to_boolean(p_init_msg_list) THEN
4958: FND_MSG_PUB.initialize;
4959: END IF;
4960:
4961: IF NOT FND_API.compatible_api_call(
4962: l_api_version,
5162: OPEN csr_uom_code(l_line_tbl(l_counter).item_id);
5163: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
5164: IF csr_uom_code%NOTFOUND THEN
5165: CLOSE csr_uom_code;
5166: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5167: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5168: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5169: FND_MSG_PUB.ADD;
5170: END IF;
5165: CLOSE csr_uom_code;
5166: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5167: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5168: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5169: FND_MSG_PUB.ADD;
5170: END IF;
5171: RAISE FND_API.g_exc_unexpected_error;
5172: END IF;
5173: CLOSE csr_uom_code;
5215: OPEN csr_uom_code(l_line_tbl(l_counter).item_id);
5216: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
5217: IF csr_uom_code%NOTFOUND THEN
5218: CLOSE csr_uom_code;
5219: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5220: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5221: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5222: FND_MSG_PUB.ADD;
5223: END IF;
5218: CLOSE csr_uom_code;
5219: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5220: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5221: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5222: FND_MSG_PUB.ADD;
5223: END IF;
5224: RAISE FND_API.g_exc_unexpected_error;
5225: END IF;
5226: CLOSE csr_uom_code;
5365: OZF_Utility_PVT.debug_message('Created Form: ' || l_claim_rec.created_from);
5366: OZF_Utility_PVT.debug_message('Amount: ' || l_claim_rec.amount);
5367: END IF;
5368:
5369: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5370: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_SCAN_DATA_ERROR');
5371: FND_MSG_PUB.ADD;
5372: END IF;
5373:
5367: END IF;
5368:
5369: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5370: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_SCAN_DATA_ERROR');
5371: FND_MSG_PUB.ADD;
5372: END IF;
5373:
5374: RAISE FND_API.g_exc_unexpected_error;
5375: ELSIF l_claim_rec.created_from <> 'PROMO_CLAIM' THEN
5372: END IF;
5373:
5374: RAISE FND_API.g_exc_unexpected_error;
5375: ELSIF l_claim_rec.created_from <> 'PROMO_CLAIM' THEN
5376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5377: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_REM_AMOUNT_LT_ZERO');
5378: FND_MSG_PUB.ADD;
5379: END IF;
5380: RAISE FND_API.g_exc_unexpected_error;
5374: RAISE FND_API.g_exc_unexpected_error;
5375: ELSIF l_claim_rec.created_from <> 'PROMO_CLAIM' THEN
5376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5377: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_REM_AMOUNT_LT_ZERO');
5378: FND_MSG_PUB.ADD;
5379: END IF;
5380: RAISE FND_API.g_exc_unexpected_error;
5381:
5382: END IF;
5388: IF FND_API.to_boolean(p_commit) THEN
5389: COMMIT;
5390: END IF;
5391:
5392: FND_MSG_PUB.count_and_get(
5393: p_encoded => FND_API.g_false,
5394: p_count => x_msg_count,
5395: p_data => x_msg_data
5396: );
5402: EXCEPTION
5403: WHEN FND_API.g_exc_error THEN
5404: ROLLBACK TO Create_Claim_For_Accruals;
5405: x_return_status := FND_API.g_ret_sts_error;
5406: FND_MSG_PUB.count_and_get (
5407: p_encoded => FND_API.g_false
5408: ,p_count => x_msg_count
5409: ,p_data => x_msg_data
5410: );
5411:
5412: WHEN FND_API.g_exc_unexpected_error THEN
5413: ROLLBACK TO Create_Claim_For_Accruals;
5414: x_return_status := FND_API.g_ret_sts_unexp_error ;
5415: FND_MSG_PUB.count_and_get (
5416: p_encoded => FND_API.g_false
5417: ,p_count => x_msg_count
5418: ,p_data => x_msg_data
5419: );
5420:
5421: WHEN OTHERS THEN
5422: ROLLBACK TO Create_Claim_For_Accruals;
5423: x_return_status := FND_API.g_ret_sts_unexp_error ;
5424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5425: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5426: END IF;
5427: FND_MSG_PUB.count_and_get(
5428: p_encoded => FND_API.g_false
5421: WHEN OTHERS THEN
5422: ROLLBACK TO Create_Claim_For_Accruals;
5423: x_return_status := FND_API.g_ret_sts_unexp_error ;
5424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5425: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5426: END IF;
5427: FND_MSG_PUB.count_and_get(
5428: p_encoded => FND_API.g_false
5429: ,p_count => x_msg_count
5423: x_return_status := FND_API.g_ret_sts_unexp_error ;
5424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5425: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5426: END IF;
5427: FND_MSG_PUB.count_and_get(
5428: p_encoded => FND_API.g_false
5429: ,p_count => x_msg_count
5430: ,p_data => x_msg_data
5431: );
5576: OZF_Utility_PVT.debug_message(l_full_name||': start');
5577: END IF;
5578:
5579: IF FND_API.to_boolean(p_init_msg_list) THEN
5580: FND_MSG_PUB.initialize;
5581: END IF;
5582:
5583: IF NOT FND_API.compatible_api_call(
5584: l_api_version,
5699: OPEN csr_uom_code(l_line_tbl(l_counter).item_id);
5700: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
5701: IF csr_uom_code%NOTFOUND THEN
5702: CLOSE csr_uom_code;
5703: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5704: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5705: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5706: FND_MSG_PUB.ADD;
5707: END IF;
5702: CLOSE csr_uom_code;
5703: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5704: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5705: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5706: FND_MSG_PUB.ADD;
5707: END IF;
5708: RAISE FND_API.g_exc_unexpected_error;
5709: END IF;
5710: CLOSE csr_uom_code;
5764: END IF;
5765:
5766: -- If flag = f then dispute the batch and batch lines
5767: IF l_batch_settlement_flag = 'F' THEN
5768: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5769: FND_MESSAGE.Set_Name('OZF', 'OZF_CHBK_NO_FUNDS');
5770: FND_MSG_PUB.ADD;
5771: END IF;
5772: RAISE FND_API.g_exc_unexpected_error;
5766: -- If flag = f then dispute the batch and batch lines
5767: IF l_batch_settlement_flag = 'F' THEN
5768: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5769: FND_MESSAGE.Set_Name('OZF', 'OZF_CHBK_NO_FUNDS');
5770: FND_MSG_PUB.ADD;
5771: END IF;
5772: RAISE FND_API.g_exc_unexpected_error;
5773: END IF;
5774:
5879: IF FND_API.to_boolean(p_commit) THEN
5880: COMMIT;
5881: END IF;
5882:
5883: FND_MSG_PUB.count_and_get(
5884: p_encoded => FND_API.g_false,
5885: p_count => x_msg_count,
5886: p_data => x_msg_data
5887: );
5893: EXCEPTION
5894: WHEN FND_API.g_exc_error THEN
5895: ROLLBACK TO Create_Claim_Existing_Accruals;
5896: x_return_status := FND_API.g_ret_sts_error;
5897: FND_MSG_PUB.count_and_get (
5898: p_encoded => FND_API.g_false
5899: ,p_count => x_msg_count
5900: ,p_data => x_msg_data
5901: );
5902:
5903: WHEN FND_API.g_exc_unexpected_error THEN
5904: ROLLBACK TO Create_Claim_Existing_Accruals;
5905: x_return_status := FND_API.g_ret_sts_unexp_error ;
5906: FND_MSG_PUB.count_and_get (
5907: p_encoded => FND_API.g_false
5908: ,p_count => x_msg_count
5909: ,p_data => x_msg_data
5910: );
5911:
5912: WHEN OTHERS THEN
5913: ROLLBACK TO Create_Claim_Existing_Accruals;
5914: x_return_status := FND_API.g_ret_sts_unexp_error ;
5915: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5916: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5917: END IF;
5918: FND_MSG_PUB.count_and_get(
5919: p_encoded => FND_API.g_false
5912: WHEN OTHERS THEN
5913: ROLLBACK TO Create_Claim_Existing_Accruals;
5914: x_return_status := FND_API.g_ret_sts_unexp_error ;
5915: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5916: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5917: END IF;
5918: FND_MSG_PUB.count_and_get(
5919: p_encoded => FND_API.g_false
5920: ,p_count => x_msg_count
5914: x_return_status := FND_API.g_ret_sts_unexp_error ;
5915: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5916: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5917: END IF;
5918: FND_MSG_PUB.count_and_get(
5919: p_encoded => FND_API.g_false
5920: ,p_count => x_msg_count
5921: ,p_data => x_msg_data
5922: );
5981: OZF_Utility_PVT.debug_message(l_full_name||': start');
5982: END IF;
5983:
5984: IF FND_API.to_boolean(p_init_msg_list) THEN
5985: FND_MSG_PUB.initialize;
5986: END IF;
5987:
5988: IF NOT FND_API.compatible_api_call(
5989: l_api_version,
6043: -- and raise error in other cases
6044: IF l_claim_rec.source_object_class = OZF_RESALE_COMMON_PVT.G_BATCH_OBJECT_CLASS THEN
6045: l_close_claim_flag := 'F';
6046: ELSE
6047: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6048: OPEN csr_party_name(p_claim_rec.cust_account_id);
6049: FETCH csr_party_name INTO l_party_name;
6050: CLOSE csr_party_name;
6051:
6050: CLOSE csr_party_name;
6051:
6052: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_NO_TRADE_PROFILE');
6053: FND_MESSAGE.Set_Token('CUST_NAME', l_party_name);
6054: FND_MSG_PUB.ADD;
6055: END IF;
6056: RAISE FND_API.g_exc_unexpected_error;
6057: END IF;
6058: END IF;
6139: IF FND_API.to_boolean(p_commit) THEN
6140: COMMIT;
6141: END IF;
6142:
6143: FND_MSG_PUB.count_and_get(
6144: p_encoded => FND_API.g_false,
6145: p_count => x_msg_count,
6146: p_data => x_msg_data
6147: );
6153: EXCEPTION
6154: WHEN FND_API.g_exc_error THEN
6155: ROLLBACK TO Pay_Claim_For_Accruals;
6156: x_return_status := FND_API.g_ret_sts_error;
6157: FND_MSG_PUB.count_and_get (
6158: p_encoded => FND_API.g_false
6159: ,p_count => x_msg_count
6160: ,p_data => x_msg_data
6161: );
6162:
6163: WHEN FND_API.g_exc_unexpected_error THEN
6164: ROLLBACK TO Pay_Claim_For_Accruals;
6165: x_return_status := FND_API.g_ret_sts_unexp_error ;
6166: FND_MSG_PUB.count_and_get (
6167: p_encoded => FND_API.g_false
6168: ,p_count => x_msg_count
6169: ,p_data => x_msg_data
6170: );
6171:
6172: WHEN OTHERS THEN
6173: ROLLBACK TO Pay_Claim_For_Accruals;
6174: x_return_status := FND_API.g_ret_sts_unexp_error ;
6175: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6176: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6177: END IF;
6178: FND_MSG_PUB.count_and_get(
6179: p_encoded => FND_API.g_false
6172: WHEN OTHERS THEN
6173: ROLLBACK TO Pay_Claim_For_Accruals;
6174: x_return_status := FND_API.g_ret_sts_unexp_error ;
6175: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6176: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6177: END IF;
6178: FND_MSG_PUB.count_and_get(
6179: p_encoded => FND_API.g_false
6180: ,p_count => x_msg_count
6174: x_return_status := FND_API.g_ret_sts_unexp_error ;
6175: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6176: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6177: END IF;
6178: FND_MSG_PUB.count_and_get(
6179: p_encoded => FND_API.g_false
6180: ,p_count => x_msg_count
6181: ,p_data => x_msg_data
6182: );
6289: OZF_Utility_PVT.debug_message(l_full_name||': start');
6290: END IF;
6291:
6292: IF FND_API.to_boolean(p_init_msg_list) THEN
6293: FND_MSG_PUB.initialize;
6294: END IF;
6295:
6296: IF NOT FND_API.compatible_api_call(
6297: l_api_version,
6310: OPEN csr_claim_info(p_claim_id);
6311: FETCH csr_claim_info INTO l_cust_account_id, l_total_amount,l_claim_class,l_claim_currency_code;
6312: IF csr_claim_info%NOTFOUND THEN
6313: CLOSE csr_claim_info;
6314: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6315: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ID_NOT_EXIST');
6316: FND_MESSAGE.Set_Token('CLAIM_ID', p_claim_id);
6317: FND_MSG_PUB.ADD;
6318: END IF;
6313: CLOSE csr_claim_info;
6314: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6315: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ID_NOT_EXIST');
6316: FND_MESSAGE.Set_Token('CLAIM_ID', p_claim_id);
6317: FND_MSG_PUB.ADD;
6318: END IF;
6319: RAISE FND_API.g_exc_unexpected_error;
6320: END IF;
6321: CLOSE csr_claim_info;
6447: OPEN csr_uom_code(l_line_tbl(l_counter).item_id);
6448: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
6449: IF csr_uom_code%NOTFOUND THEN
6450: CLOSE csr_uom_code;
6451: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6452: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
6453: FND_MESSAGE.Set_Token('ITEM_ID', l_product_id);
6454: FND_MSG_PUB.ADD;
6455: END IF;
6450: CLOSE csr_uom_code;
6451: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6452: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
6453: FND_MESSAGE.Set_Token('ITEM_ID', l_product_id);
6454: FND_MSG_PUB.ADD;
6455: END IF;
6456: RAISE FND_API.g_exc_unexpected_error;
6457: END IF;
6458: CLOSE csr_uom_code;
6550: IF FND_API.to_boolean(p_commit) THEN
6551: COMMIT;
6552: END IF;
6553:
6554: FND_MSG_PUB.count_and_get(
6555: p_encoded => FND_API.g_false,
6556: p_count => x_msg_count,
6557: p_data => x_msg_data
6558: );
6564: EXCEPTION
6565: WHEN FND_API.g_exc_error THEN
6566: ROLLBACK TO Asso_Accruals_To_Claim;
6567: x_return_status := FND_API.g_ret_sts_error;
6568: FND_MSG_PUB.count_and_get (
6569: p_encoded => FND_API.g_false
6570: ,p_count => x_msg_count
6571: ,p_data => x_msg_data
6572: );
6573:
6574: WHEN FND_API.g_exc_unexpected_error THEN
6575: ROLLBACK TO Asso_Accruals_To_Claim;
6576: x_return_status := FND_API.g_ret_sts_unexp_error ;
6577: FND_MSG_PUB.count_and_get (
6578: p_encoded => FND_API.g_false
6579: ,p_count => x_msg_count
6580: ,p_data => x_msg_data
6581: );
6582:
6583: WHEN OTHERS THEN
6584: ROLLBACK TO Asso_Accruals_To_Claim;
6585: x_return_status := FND_API.g_ret_sts_unexp_error ;
6586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6587: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6588: END IF;
6589: FND_MSG_PUB.count_and_get(
6590: p_encoded => FND_API.g_false
6583: WHEN OTHERS THEN
6584: ROLLBACK TO Asso_Accruals_To_Claim;
6585: x_return_status := FND_API.g_ret_sts_unexp_error ;
6586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6587: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6588: END IF;
6589: FND_MSG_PUB.count_and_get(
6590: p_encoded => FND_API.g_false
6591: ,p_count => x_msg_count
6585: x_return_status := FND_API.g_ret_sts_unexp_error ;
6586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6587: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6588: END IF;
6589: FND_MSG_PUB.count_and_get(
6590: p_encoded => FND_API.g_false
6591: ,p_count => x_msg_count
6592: ,p_data => x_msg_data
6593: );
6675: OZF_Utility_PVT.debug_message(l_full_name||': start');
6676: END IF;
6677:
6678: IF FND_API.to_boolean(p_init_msg_list) THEN
6679: FND_MSG_PUB.initialize;
6680: END IF;
6681:
6682: IF NOT FND_API.compatible_api_call(
6683: l_api_version,
6715: ,l_funds_util_flt.utilization_id; -- Added For Bug 8402328
6716:
6717: IF csr_line_info%NOTFOUND THEN
6718: CLOSE csr_line_info;
6719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6720: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6721: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6722: FND_MSG_PUB.ADD;
6723: END IF;
6718: CLOSE csr_line_info;
6719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6720: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6721: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6722: FND_MSG_PUB.ADD;
6723: END IF;
6724: RAISE FND_API.g_exc_unexpected_error;
6725: END IF;
6726: CLOSE csr_line_info;
6729: FETCH csr_sum_util_amounts INTO l_funds_util_flt.old_total_amount;
6730:
6731: IF csr_sum_util_amounts%NOTFOUND THEN
6732: CLOSE csr_line_info;
6733: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6734: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6735: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6736: FND_MSG_PUB.ADD;
6737: END IF;
6732: CLOSE csr_line_info;
6733: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6734: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6735: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6736: FND_MSG_PUB.ADD;
6737: END IF;
6738: RAISE FND_API.g_exc_unexpected_error;
6739: END IF;
6740: CLOSE csr_sum_util_amounts;
6743: FETCH csr_sum_scan_units INTO l_funds_util_flt.old_total_units;
6744:
6745: IF csr_sum_scan_units%NOTFOUND THEN
6746: CLOSE csr_line_info;
6747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6748: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6749: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6750: FND_MSG_PUB.ADD;
6751: END IF;
6746: CLOSE csr_line_info;
6747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6748: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6749: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6750: FND_MSG_PUB.ADD;
6751: END IF;
6752: RAISE FND_API.g_exc_unexpected_error;
6753: END IF;
6754: CLOSE csr_sum_scan_units;
6777: IF FND_API.to_boolean(p_commit) THEN
6778: COMMIT;
6779: END IF;
6780:
6781: FND_MSG_PUB.count_and_get(
6782: p_encoded => FND_API.g_false,
6783: p_count => x_msg_count,
6784: p_data => x_msg_data
6785: );
6791: EXCEPTION
6792: WHEN FND_API.g_exc_error THEN
6793: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6794: x_return_status := FND_API.g_ret_sts_error;
6795: FND_MSG_PUB.count_and_get (
6796: p_encoded => FND_API.g_false
6797: ,p_count => x_msg_count
6798: ,p_data => x_msg_data
6799: );
6800:
6801: WHEN FND_API.g_exc_unexpected_error THEN
6802: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6803: x_return_status := FND_API.g_ret_sts_unexp_error ;
6804: FND_MSG_PUB.count_and_get (
6805: p_encoded => FND_API.g_false
6806: ,p_count => x_msg_count
6807: ,p_data => x_msg_data
6808: );
6809:
6810: WHEN OTHERS THEN
6811: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6812: x_return_status := FND_API.g_ret_sts_unexp_error ;
6813: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6814: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6815: END IF;
6816: FND_MSG_PUB.count_and_get(
6817: p_encoded => FND_API.g_false
6810: WHEN OTHERS THEN
6811: ROLLBACK TO Asso_Accruals_To_Claim_Line;
6812: x_return_status := FND_API.g_ret_sts_unexp_error ;
6813: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6814: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6815: END IF;
6816: FND_MSG_PUB.count_and_get(
6817: p_encoded => FND_API.g_false
6818: ,p_count => x_msg_count
6812: x_return_status := FND_API.g_ret_sts_unexp_error ;
6813: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6814: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6815: END IF;
6816: FND_MSG_PUB.count_and_get(
6817: p_encoded => FND_API.g_false
6818: ,p_count => x_msg_count
6819: ,p_data => x_msg_data
6820: );
6977: OZF_Utility_PVT.debug_message(l_full_name||': start');
6978: END IF;
6979:
6980: IF FND_API.to_boolean(p_init_msg_list) THEN
6981: FND_MSG_PUB.initialize;
6982: END IF;
6983:
6984: IF NOT FND_API.compatible_api_call(
6985: l_api_version,
7120: ,to_unit => l_uom_code
7121: ,from_name => NULL
7122: ,to_name => NULL);
7123: IF l_quantity = -99999 THEN
7124: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7125: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7126: FND_MSG_PUB.add;
7127: END IF;
7128: RAISE FND_API.g_exc_error;
7122: ,to_name => NULL);
7123: IF l_quantity = -99999 THEN
7124: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7125: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7126: FND_MSG_PUB.add;
7127: END IF;
7128: RAISE FND_API.g_exc_error;
7129: END IF;
7130:
7268: IF FND_API.to_boolean(p_commit) THEN
7269: COMMIT;
7270: END IF;
7271:
7272: FND_MSG_PUB.count_and_get(
7273: p_encoded => FND_API.g_false,
7274: p_count => x_msg_count,
7275: p_data => x_msg_data);
7276:
7281: EXCEPTION
7282: WHEN FND_API.g_exc_error THEN
7283: ROLLBACK TO Create_Claim_Per_SPR;
7284: x_return_status := FND_API.g_ret_sts_error;
7285: FND_MSG_PUB.count_and_get (
7286: p_encoded => FND_API.g_false
7287: ,p_count => x_msg_count
7288: ,p_data => x_msg_data
7289: );
7290:
7291: WHEN FND_API.g_exc_unexpected_error THEN
7292: ROLLBACK TO Create_Claim_Per_SPR;
7293: x_return_status := FND_API.g_ret_sts_unexp_error ;
7294: FND_MSG_PUB.count_and_get (
7295: p_encoded => FND_API.g_false
7296: ,p_count => x_msg_count
7297: ,p_data => x_msg_data
7298: );
7299:
7300: WHEN OTHERS THEN
7301: ROLLBACK TO Create_Claim_Per_SPR;
7302: x_return_status := FND_API.g_ret_sts_unexp_error ;
7303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7304: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7305: END IF;
7306: FND_MSG_PUB.count_and_get(
7307: p_encoded => FND_API.g_false
7300: WHEN OTHERS THEN
7301: ROLLBACK TO Create_Claim_Per_SPR;
7302: x_return_status := FND_API.g_ret_sts_unexp_error ;
7303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7304: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7305: END IF;
7306: FND_MSG_PUB.count_and_get(
7307: p_encoded => FND_API.g_false
7308: ,p_count => x_msg_count
7302: x_return_status := FND_API.g_ret_sts_unexp_error ;
7303: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7304: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7305: END IF;
7306: FND_MSG_PUB.count_and_get(
7307: p_encoded => FND_API.g_false
7308: ,p_count => x_msg_count
7309: ,p_data => x_msg_data
7310: );
7467: OZF_Utility_PVT.debug_message(l_full_name||': start');
7468: END IF;
7469:
7470: IF FND_API.to_boolean(p_init_msg_list) THEN
7471: FND_MSG_PUB.initialize;
7472: END IF;
7473:
7474: IF NOT FND_API.compatible_api_call(
7475: l_api_version,
7603: ,from_name => NULL
7604: ,to_name => NULL
7605: );
7606: IF l_quantity = -99999 THEN
7607: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7608: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7609: FND_MSG_PUB.add;
7610: END IF;
7611: RAISE FND_API.g_exc_error;
7605: );
7606: IF l_quantity = -99999 THEN
7607: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7608: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7609: FND_MSG_PUB.add;
7610: END IF;
7611: RAISE FND_API.g_exc_error;
7612: END IF;
7613:
7747: IF FND_API.to_boolean(p_commit) THEN
7748: COMMIT;
7749: END IF;
7750:
7751: FND_MSG_PUB.count_and_get(
7752: p_encoded => FND_API.g_false,
7753: p_count => x_msg_count,
7754: p_data => x_msg_data);
7755:
7760: EXCEPTION
7761: WHEN FND_API.g_exc_error THEN
7762: ROLLBACK TO Create_Claim_Per_Batch;
7763: x_return_status := FND_API.g_ret_sts_error;
7764: FND_MSG_PUB.count_and_get (
7765: p_encoded => FND_API.g_false
7766: ,p_count => x_msg_count
7767: ,p_data => x_msg_data
7768: );
7769:
7770: WHEN FND_API.g_exc_unexpected_error THEN
7771: ROLLBACK TO Create_Claim_Per_Batch;
7772: x_return_status := FND_API.g_ret_sts_unexp_error ;
7773: FND_MSG_PUB.count_and_get (
7774: p_encoded => FND_API.g_false
7775: ,p_count => x_msg_count
7776: ,p_data => x_msg_data
7777: );
7778:
7779: WHEN OTHERS THEN
7780: ROLLBACK TO Create_Claim_Per_Batch;
7781: x_return_status := FND_API.g_ret_sts_unexp_error ;
7782: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7783: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7784: END IF;
7785: FND_MSG_PUB.count_and_get(
7786: p_encoded => FND_API.g_false
7779: WHEN OTHERS THEN
7780: ROLLBACK TO Create_Claim_Per_Batch;
7781: x_return_status := FND_API.g_ret_sts_unexp_error ;
7782: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7783: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7784: END IF;
7785: FND_MSG_PUB.count_and_get(
7786: p_encoded => FND_API.g_false
7787: ,p_count => x_msg_count
7781: x_return_status := FND_API.g_ret_sts_unexp_error ;
7782: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7783: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7784: END IF;
7785: FND_MSG_PUB.count_and_get(
7786: p_encoded => FND_API.g_false
7787: ,p_count => x_msg_count
7788: ,p_data => x_msg_data
7789: );
7831: OZF_Utility_PVT.debug_message(l_full_name||': start');
7832: END IF;
7833:
7834: IF FND_API.to_boolean(p_init_msg_list) THEN
7835: FND_MSG_PUB.initialize;
7836: END IF;
7837:
7838: IF NOT FND_API.compatible_api_call(
7839: l_api_version,
7889: IF FND_API.to_boolean(p_commit) THEN
7890: COMMIT;
7891: END IF;
7892:
7893: FND_MSG_PUB.count_and_get(
7894: p_encoded => FND_API.g_false,
7895: p_count => x_msg_count,
7896: p_data => x_msg_data
7897: );
7903: EXCEPTION
7904: WHEN FND_API.g_exc_error THEN
7905: ROLLBACK TO Initiate_Batch_Payment;
7906: x_return_status := FND_API.g_ret_sts_error;
7907: FND_MSG_PUB.count_and_get (
7908: p_encoded => FND_API.g_false
7909: ,p_count => x_msg_count
7910: ,p_data => x_msg_data
7911: );
7912:
7913: WHEN FND_API.g_exc_unexpected_error THEN
7914: ROLLBACK TO Initiate_Batch_Payment;
7915: x_return_status := FND_API.g_ret_sts_unexp_error ;
7916: FND_MSG_PUB.count_and_get (
7917: p_encoded => FND_API.g_false
7918: ,p_count => x_msg_count
7919: ,p_data => x_msg_data
7920: );
7921:
7922: WHEN OTHERS THEN
7923: ROLLBACK TO Initiate_Batch_Payment;
7924: x_return_status := FND_API.g_ret_sts_unexp_error ;
7925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7927: END IF;
7928: FND_MSG_PUB.count_and_get(
7929: p_encoded => FND_API.g_false
7922: WHEN OTHERS THEN
7923: ROLLBACK TO Initiate_Batch_Payment;
7924: x_return_status := FND_API.g_ret_sts_unexp_error ;
7925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7927: END IF;
7928: FND_MSG_PUB.count_and_get(
7929: p_encoded => FND_API.g_false
7930: ,p_count => x_msg_count
7924: x_return_status := FND_API.g_ret_sts_unexp_error ;
7925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7927: END IF;
7928: FND_MSG_PUB.count_and_get(
7929: p_encoded => FND_API.g_false
7930: ,p_count => x_msg_count
7931: ,p_data => x_msg_data
7932: );
8026: OZF_Utility_PVT.debug_message(l_full_name||': start');
8027: END IF;
8028:
8029: IF FND_API.to_boolean(p_init_msg_list) THEN
8030: FND_MSG_PUB.initialize;
8031: END IF;
8032:
8033: IF NOT FND_API.compatible_api_call(
8034: l_api_version,
8051:
8052: IF l_adjustment_flag = 'N' THEN
8053: -- As of 15-JAN-2003, adjustment workflow is not supported. An error is raised
8054: -- if the offer is not auto-adjustable.
8055: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8056: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_ADJUST_SCANUNIT');
8057: FND_MSG_PUB.add;
8058: END IF;
8059: x_return_status := FND_API.g_ret_sts_error;
8053: -- As of 15-JAN-2003, adjustment workflow is not supported. An error is raised
8054: -- if the offer is not auto-adjustable.
8055: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8056: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_ADJUST_SCANUNIT');
8057: FND_MSG_PUB.add;
8058: END IF;
8059: x_return_status := FND_API.g_ret_sts_error;
8060: RETURN;
8061:
8061:
8062: /*
8063: -- Adjustment workflow can be invoked only when profile is set
8064: IF NVL(fnd_profile.value('OZF_CLAIM_SCAN_ADJUST_WORKFLOW'),'N') <> 'Y' THEN
8065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8066: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_ADJUST_WORKFLOW');
8067: FND_MSG_PUB.add;
8068: END IF;
8069: x_return_status := FND_API.g_ret_sts_error;
8063: -- Adjustment workflow can be invoked only when profile is set
8064: IF NVL(fnd_profile.value('OZF_CLAIM_SCAN_ADJUST_WORKFLOW'),'N') <> 'Y' THEN
8065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8066: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_ADJUST_WORKFLOW');
8067: FND_MSG_PUB.add;
8068: END IF;
8069: x_return_status := FND_API.g_ret_sts_error;
8070: RETURN;
8071: END IF;
8075: FETCH csr_count_workflow INTO l_count_workflow;
8076: CLOSE csr_count_workflow;
8077:
8078: IF l_count_workflow > 0 THEN
8079: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8080: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MULTI_ADJ_WORKFLOW');
8081: FND_MSG_PUB.add;
8082: END IF;
8083: x_return_status := FND_API.g_ret_sts_error;
8077:
8078: IF l_count_workflow > 0 THEN
8079: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8080: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MULTI_ADJ_WORKFLOW');
8081: FND_MSG_PUB.add;
8082: END IF;
8083: x_return_status := FND_API.g_ret_sts_error;
8084: RETURN;
8085: END IF;
8091: IF p_funds_util_flt.activity_id IS NULL OR
8092: p_funds_util_flt.activity_type IS NULL OR
8093: p_funds_util_flt.activity_type <> 'OFFR'
8094: THEN
8095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8096: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NO_OFFER');
8097: FND_MSG_PUB.add;
8098: END IF;
8099: x_return_status := FND_API.g_ret_sts_error;
8093: p_funds_util_flt.activity_type <> 'OFFR'
8094: THEN
8095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8096: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NO_OFFER');
8097: FND_MSG_PUB.add;
8098: END IF;
8099: x_return_status := FND_API.g_ret_sts_error;
8100: RETURN;
8101: END IF;
8128: CLOSE csr_party_pay_unearned;
8129: END IF;
8130:
8131: IF l_un_earned_pay_allow_to = 'DISALLOW' THEN
8132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8133: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
8134: FND_MSG_PUB.add;
8135: END IF;
8136: x_return_status := FND_API.g_ret_sts_error;
8130:
8131: IF l_un_earned_pay_allow_to = 'DISALLOW' THEN
8132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8133: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
8134: FND_MSG_PUB.add;
8135: END IF;
8136: x_return_status := FND_API.g_ret_sts_error;
8137: RETURN;
8138: END IF;
8149:
8150: IF l_un_earned_pay_allow_to IS NULL OR
8151: l_un_earned_pay_allow_to = 'ALLOW_SELECTED'
8152: THEN
8153: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8154: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
8155: FND_MSG_PUB.add;
8156: END IF;
8157: x_return_status := FND_API.g_ret_sts_error;
8151: l_un_earned_pay_allow_to = 'ALLOW_SELECTED'
8152: THEN
8153: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8154: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
8155: FND_MSG_PUB.add;
8156: END IF;
8157: x_return_status := FND_API.g_ret_sts_error;
8158: RETURN;
8159: END IF;
8183: END IF;
8184:
8185: IF l_over_paid_amount > l_threshold_amount THEN
8186: IF l_un_earned_pay_thold_flag IS NULL OR l_un_earned_pay_thold_flag <> 'T' THEN
8187: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8188: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_OVER_THOLD');
8189: FND_MSG_PUB.add;
8190: END IF;
8191: x_return_status := FND_API.g_ret_sts_error;
8185: IF l_over_paid_amount > l_threshold_amount THEN
8186: IF l_un_earned_pay_thold_flag IS NULL OR l_un_earned_pay_thold_flag <> 'T' THEN
8187: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8188: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_OVER_THOLD');
8189: FND_MSG_PUB.add;
8190: END IF;
8191: x_return_status := FND_API.g_ret_sts_error;
8192: RETURN;
8193: END IF;
8561: EXCEPTION
8562: WHEN FND_API.g_exc_error THEN
8563: ROLLBACK TO Create_Pay_Over_Adjustments;
8564: x_return_status := FND_API.g_ret_sts_error;
8565: FND_MSG_PUB.count_and_get (
8566: p_encoded => FND_API.g_false
8567: ,p_count => x_msg_count
8568: ,p_data => x_msg_data
8569: );
8570:
8571: WHEN FND_API.g_exc_unexpected_error THEN
8572: ROLLBACK TO Create_Pay_Over_Adjustments;
8573: x_return_status := FND_API.g_ret_sts_unexp_error ;
8574: FND_MSG_PUB.count_and_get (
8575: p_encoded => FND_API.g_false
8576: ,p_count => x_msg_count
8577: ,p_data => x_msg_data
8578: );
8579:
8580: WHEN OTHERS THEN
8581: ROLLBACK TO Create_Pay_Over_Adjustments;
8582: x_return_status := FND_API.g_ret_sts_unexp_error ;
8583: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8584: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8585: END IF;
8586: FND_MSG_PUB.count_and_get(
8587: p_encoded => FND_API.g_false
8580: WHEN OTHERS THEN
8581: ROLLBACK TO Create_Pay_Over_Adjustments;
8582: x_return_status := FND_API.g_ret_sts_unexp_error ;
8583: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8584: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8585: END IF;
8586: FND_MSG_PUB.count_and_get(
8587: p_encoded => FND_API.g_false
8588: ,p_count => x_msg_count
8582: x_return_status := FND_API.g_ret_sts_unexp_error ;
8583: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
8584: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8585: END IF;
8586: FND_MSG_PUB.count_and_get(
8587: p_encoded => FND_API.g_false
8588: ,p_count => x_msg_count
8589: ,p_data => x_msg_data
8590: );
8894: --If total amount remaining for all the qualified adjustments is zero, then raise warning.
8895: --Raise error, if negative assocation is taking place for positive amount remaining.
8896: IF l_total_amt_rem = 0 AND
8897: NVL(p_funds_util_flt.offer_type,'X') NOT IN ('ACCRUAL','DEAL','LUMPSUM','NET_ACCRUAL','VOLUME_OFFER', 'SCAN_DATA') THEN
8898: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8899: FND_MESSAGE.set_name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
8900: FND_MSG_PUB.add;
8901: END IF;
8902: RAISE FND_API.g_exc_error;
8896: IF l_total_amt_rem = 0 AND
8897: NVL(p_funds_util_flt.offer_type,'X') NOT IN ('ACCRUAL','DEAL','LUMPSUM','NET_ACCRUAL','VOLUME_OFFER', 'SCAN_DATA') THEN
8898: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8899: FND_MESSAGE.set_name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
8900: FND_MSG_PUB.add;
8901: END IF;
8902: RAISE FND_API.g_exc_error;
8903: ELSE
8904: -- Fix for Bug 14023475 : Restrict the Negative Qty association for scan data offer.
8906: NULL;
8907: ELSE
8908: IF (p_cre_util_amount < 0 and l_total_amt_rem >0)
8909: THEN
8910: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8911: FND_MESSAGE.set_name('OZF', 'OZF_ASSO_NEG_AMT');
8912: FND_MSG_PUB.add;
8913: END IF;
8914: RAISE FND_API.g_exc_error;
8908: IF (p_cre_util_amount < 0 and l_total_amt_rem >0)
8909: THEN
8910: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8911: FND_MESSAGE.set_name('OZF', 'OZF_ASSO_NEG_AMT');
8912: FND_MSG_PUB.add;
8913: END IF;
8914: RAISE FND_API.g_exc_error;
8915: END IF;
8916: END IF;
9107: EXCEPTION
9108: WHEN FND_API.g_exc_error THEN
9109: ROLLBACK TO Populate_Line_Util_Tbl;
9110: x_return_status := FND_API.g_ret_sts_error;
9111: FND_MSG_PUB.count_and_get (
9112: p_encoded => FND_API.g_false
9113: ,p_count => x_msg_count
9114: ,p_data => x_msg_data
9115: );
9116:
9117: WHEN FND_API.g_exc_unexpected_error THEN
9118: ROLLBACK TO Populate_Line_Util_Tbl;
9119: x_return_status := FND_API.g_ret_sts_unexp_error ;
9120: FND_MSG_PUB.count_and_get (
9121: p_encoded => FND_API.g_false
9122: ,p_count => x_msg_count
9123: ,p_data => x_msg_data
9124: );
9125:
9126: WHEN OTHERS THEN
9127: ROLLBACK TO Populate_Line_Util_Tbl;
9128: x_return_status := FND_API.g_ret_sts_unexp_error ;
9129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9131: END IF;
9132: FND_MSG_PUB.count_and_get(
9133: p_encoded => FND_API.g_false
9126: WHEN OTHERS THEN
9127: ROLLBACK TO Populate_Line_Util_Tbl;
9128: x_return_status := FND_API.g_ret_sts_unexp_error ;
9129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9131: END IF;
9132: FND_MSG_PUB.count_and_get(
9133: p_encoded => FND_API.g_false
9134: ,p_count => x_msg_count
9128: x_return_status := FND_API.g_ret_sts_unexp_error ;
9129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9130: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9131: END IF;
9132: FND_MSG_PUB.count_and_get(
9133: p_encoded => FND_API.g_false
9134: ,p_count => x_msg_count
9135: ,p_data => x_msg_data
9136: );
9276: , from_name => NULL
9277: , to_name => NULL
9278: );
9279: IF l_asso_total_quantity = -99999 THEN
9280: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9281: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
9282: FND_MSG_PUB.add;
9283: END IF;
9284: RAISE FND_API.g_exc_error;
9278: );
9279: IF l_asso_total_quantity = -99999 THEN
9280: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9281: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
9282: FND_MSG_PUB.add;
9283: END IF;
9284: RAISE FND_API.g_exc_error;
9285: END IF;
9286: ELSE
9304: , from_name => NULL
9305: , to_name => NULL
9306: );
9307: IF l_asso_total_quantity = -99999 THEN
9308: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9309: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
9310: FND_MSG_PUB.add;
9311: END IF;
9312: RAISE FND_API.g_exc_error;
9306: );
9307: IF l_asso_total_quantity = -99999 THEN
9308: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9309: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
9310: FND_MSG_PUB.add;
9311: END IF;
9312: RAISE FND_API.g_exc_error;
9313: END IF;
9314: ELSE
9338:
9339: --Raise error, if net association amount exists and offer is COMPLETED.
9340: IF l_net_asso_amount <> 0 THEN
9341: IF p_offer_status = 'COMPLETED' THEN
9342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9343: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_COMPLETE_OFFER');
9344: FND_MSG_PUB.add;
9345: END IF;
9346: RAISE FND_API.g_exc_error;
9340: IF l_net_asso_amount <> 0 THEN
9341: IF p_offer_status = 'COMPLETED' THEN
9342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9343: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_COMPLETE_OFFER');
9344: FND_MSG_PUB.add;
9345: END IF;
9346: RAISE FND_API.g_exc_error;
9347: END IF;
9348: END IF;
9365: EXCEPTION
9366: WHEN FND_API.g_exc_error THEN
9367: ROLLBACK TO Get_Scan_Data_Details;
9368: x_return_status := FND_API.g_ret_sts_error;
9369: FND_MSG_PUB.count_and_get (
9370: p_encoded => FND_API.g_false
9371: ,p_count => x_msg_count
9372: ,p_data => x_msg_data
9373: );
9374:
9375: WHEN FND_API.g_exc_unexpected_error THEN
9376: ROLLBACK TO Get_Scan_Data_Details;
9377: x_return_status := FND_API.g_ret_sts_unexp_error ;
9378: FND_MSG_PUB.count_and_get (
9379: p_encoded => FND_API.g_false
9380: ,p_count => x_msg_count
9381: ,p_data => x_msg_data
9382: );
9383:
9384: WHEN OTHERS THEN
9385: ROLLBACK TO Get_Scan_Data_Details;
9386: x_return_status := FND_API.g_ret_sts_unexp_error ;
9387: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9388: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9389: END IF;
9390: FND_MSG_PUB.count_and_get(
9391: p_encoded => FND_API.g_false
9384: WHEN OTHERS THEN
9385: ROLLBACK TO Get_Scan_Data_Details;
9386: x_return_status := FND_API.g_ret_sts_unexp_error ;
9387: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9388: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9389: END IF;
9390: FND_MSG_PUB.count_and_get(
9391: p_encoded => FND_API.g_false
9392: ,p_count => x_msg_count
9386: x_return_status := FND_API.g_ret_sts_unexp_error ;
9387: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9388: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9389: END IF;
9390: FND_MSG_PUB.count_and_get(
9391: p_encoded => FND_API.g_false
9392: ,p_count => x_msg_count
9393: ,p_data => x_msg_data
9394: );
9522: EXCEPTION
9523: WHEN FND_API.g_exc_error THEN
9524: ROLLBACK TO Get_Pay_Over_Amount;
9525: x_return_status := FND_API.g_ret_sts_error;
9526: FND_MSG_PUB.count_and_get (
9527: p_encoded => FND_API.g_false
9528: ,p_count => x_msg_count
9529: ,p_data => x_msg_data
9530: );
9531:
9532: WHEN FND_API.g_exc_unexpected_error THEN
9533: ROLLBACK TO Get_Pay_Over_Amount;
9534: x_return_status := FND_API.g_ret_sts_unexp_error ;
9535: FND_MSG_PUB.count_and_get (
9536: p_encoded => FND_API.g_false
9537: ,p_count => x_msg_count
9538: ,p_data => x_msg_data
9539: );
9540:
9541: WHEN OTHERS THEN
9542: ROLLBACK TO Get_Pay_Over_Amount;
9543: x_return_status := FND_API.g_ret_sts_unexp_error ;
9544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9545: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9546: END IF;
9547: FND_MSG_PUB.count_and_get(
9548: p_encoded => FND_API.g_false
9541: WHEN OTHERS THEN
9542: ROLLBACK TO Get_Pay_Over_Amount;
9543: x_return_status := FND_API.g_ret_sts_unexp_error ;
9544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9545: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9546: END IF;
9547: FND_MSG_PUB.count_and_get(
9548: p_encoded => FND_API.g_false
9549: ,p_count => x_msg_count
9543: x_return_status := FND_API.g_ret_sts_unexp_error ;
9544: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
9545: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9546: END IF;
9547: FND_MSG_PUB.count_and_get(
9548: p_encoded => FND_API.g_false
9549: ,p_count => x_msg_count
9550: ,p_data => x_msg_data
9551: );
9666: OZF_Utility_PVT.debug_message(l_full_name||': start');
9667: END IF;
9668:
9669: IF FND_API.to_boolean(p_init_msg_list) THEN
9670: FND_MSG_PUB.initialize;
9671: END IF;
9672:
9673: IF NOT FND_API.compatible_api_call(
9674: l_api_version,
9824: END IF;
9825:
9826: --Raise error, if claim is not OPEN status and associate earnings is happening.
9827: IF l_claim_status <> 'OPEN' THEN
9828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9829: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_NOT_OPEN');
9830: FND_MSG_PUB.add;
9831: END IF;
9832: RAISE FND_API.g_exc_error;
9826: --Raise error, if claim is not OPEN status and associate earnings is happening.
9827: IF l_claim_status <> 'OPEN' THEN
9828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9829: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_NOT_OPEN');
9830: FND_MSG_PUB.add;
9831: END IF;
9832: RAISE FND_API.g_exc_error;
9833: END IF;
9834:
10171: IF FND_API.to_boolean(p_commit) THEN
10172: COMMIT;
10173: END IF;
10174:
10175: FND_MSG_PUB.count_and_get(
10176: p_encoded => FND_API.g_false,
10177: p_count => x_msg_count,
10178: p_data => x_msg_data
10179: );
10185: EXCEPTION
10186: WHEN FND_API.g_exc_error THEN
10187: ROLLBACK TO Update_Group_Line_Util;
10188: x_return_status := FND_API.g_ret_sts_error;
10189: FND_MSG_PUB.count_and_get (
10190: p_encoded => FND_API.g_false
10191: ,p_count => x_msg_count
10192: ,p_data => x_msg_data
10193: );
10194:
10195: WHEN FND_API.g_exc_unexpected_error THEN
10196: ROLLBACK TO Update_Group_Line_Util;
10197: x_return_status := FND_API.g_ret_sts_unexp_error ;
10198: FND_MSG_PUB.count_and_get (
10199: p_encoded => FND_API.g_false
10200: ,p_count => x_msg_count
10201: ,p_data => x_msg_data
10202: );
10203:
10204: WHEN OTHERS THEN
10205: ROLLBACK TO Update_Group_Line_Util;
10206: x_return_status := FND_API.g_ret_sts_unexp_error ;
10207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10208: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10209: END IF;
10210: FND_MSG_PUB.count_and_get(
10211: p_encoded => FND_API.g_false
10204: WHEN OTHERS THEN
10205: ROLLBACK TO Update_Group_Line_Util;
10206: x_return_status := FND_API.g_ret_sts_unexp_error ;
10207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10208: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10209: END IF;
10210: FND_MSG_PUB.count_and_get(
10211: p_encoded => FND_API.g_false
10212: ,p_count => x_msg_count
10206: x_return_status := FND_API.g_ret_sts_unexp_error ;
10207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10208: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10209: END IF;
10210: FND_MSG_PUB.count_and_get(
10211: p_encoded => FND_API.g_false
10212: ,p_count => x_msg_count
10213: ,p_data => x_msg_data
10214: );
10291: DELETE FROM ozf_claim_lines_util_all
10292: WHERE claim_line_util_id = p_line_util_rec.claim_line_util_id;
10293:
10294: IF (SQL%NOTFOUND) THEN
10295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
10296: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
10297: FND_MSG_PUB.add;
10298: END IF;
10299: RAISE FND_API.g_exc_error;
10293:
10294: IF (SQL%NOTFOUND) THEN
10295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
10296: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
10297: FND_MSG_PUB.add;
10298: END IF;
10299: RAISE FND_API.g_exc_error;
10300: END IF;
10301:
10299: RAISE FND_API.g_exc_error;
10300: END IF;
10301:
10302: -------------------- finish --------------------------
10303: FND_MSG_PUB.count_and_get(
10304: p_encoded => FND_API.g_false,
10305: p_count => x_msg_count,
10306: p_data => x_msg_data
10307: );
10309: EXCEPTION
10310: WHEN FND_API.g_exc_error THEN
10311: ROLLBACK TO Del_Line_Util_By_Group;
10312: x_return_status := FND_API.g_ret_sts_error;
10313: FND_MSG_PUB.count_and_get(
10314: p_encoded => FND_API.g_false,
10315: p_count => x_msg_count,
10316: p_data => x_msg_data
10317: );
10318:
10319: WHEN FND_API.g_exc_unexpected_error THEN
10320: ROLLBACK TO Del_Line_Util_By_Group;
10321: x_return_status := FND_API.g_ret_sts_unexp_error ;
10322: FND_MSG_PUB.count_and_get(
10323: p_encoded => FND_API.g_false,
10324: p_count => x_msg_count,
10325: p_data => x_msg_data
10326: );
10327:
10328: WHEN OTHERS THEN
10329: ROLLBACK TO Del_Line_Util_By_Group;
10330: x_return_status := FND_API.g_ret_sts_unexp_error ;
10331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10332: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10333: END IF;
10334: FND_MSG_PUB.count_and_get(
10335: p_encoded => FND_API.g_false,
10328: WHEN OTHERS THEN
10329: ROLLBACK TO Del_Line_Util_By_Group;
10330: x_return_status := FND_API.g_ret_sts_unexp_error ;
10331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10332: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10333: END IF;
10334: FND_MSG_PUB.count_and_get(
10335: p_encoded => FND_API.g_false,
10336: p_count => x_msg_count,
10330: x_return_status := FND_API.g_ret_sts_unexp_error ;
10331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10332: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10333: END IF;
10334: FND_MSG_PUB.count_and_get(
10335: p_encoded => FND_API.g_false,
10336: p_count => x_msg_count,
10337: p_data => x_msg_data
10338: );
10466: OZF_Utility_PVT.debug_message(l_full_name||': start');
10467: END IF;
10468:
10469: IF FND_API.to_boolean(p_init_msg_list) THEN
10470: FND_MSG_PUB.initialize;
10471: END IF;
10472:
10473: IF NOT FND_API.compatible_api_call(
10474: l_api_version,
10838: IF FND_API.to_boolean(p_commit) THEN
10839: COMMIT;
10840: END IF;
10841:
10842: FND_MSG_PUB.count_and_get(
10843: p_encoded => FND_API.g_false,
10844: p_count => x_msg_count,
10845: p_data => x_msg_data
10846: );
10852: EXCEPTION
10853: WHEN FND_API.g_exc_error THEN
10854: ROLLBACK TO Delete_Group_Line_Util;
10855: x_return_status := FND_API.g_ret_sts_error;
10856: FND_MSG_PUB.count_and_get (
10857: p_encoded => FND_API.g_false
10858: ,p_count => x_msg_count
10859: ,p_data => x_msg_data
10860: );
10861:
10862: WHEN FND_API.g_exc_unexpected_error THEN
10863: ROLLBACK TO Delete_Group_Line_Util;
10864: x_return_status := FND_API.g_ret_sts_unexp_error ;
10865: FND_MSG_PUB.count_and_get (
10866: p_encoded => FND_API.g_false
10867: ,p_count => x_msg_count
10868: ,p_data => x_msg_data
10869: );
10870:
10871: WHEN OTHERS THEN
10872: ROLLBACK TO Delete_Group_Line_Util;
10873: x_return_status := FND_API.g_ret_sts_unexp_error ;
10874: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10875: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10876: END IF;
10877: FND_MSG_PUB.count_and_get(
10878: p_encoded => FND_API.g_false
10871: WHEN OTHERS THEN
10872: ROLLBACK TO Delete_Group_Line_Util;
10873: x_return_status := FND_API.g_ret_sts_unexp_error ;
10874: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10875: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10876: END IF;
10877: FND_MSG_PUB.count_and_get(
10878: p_encoded => FND_API.g_false
10879: ,p_count => x_msg_count
10873: x_return_status := FND_API.g_ret_sts_unexp_error ;
10874: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
10875: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10876: END IF;
10877: FND_MSG_PUB.count_and_get(
10878: p_encoded => FND_API.g_false
10879: ,p_count => x_msg_count
10880: ,p_data => x_msg_data
10881: );
10966: OZF_Utility_PVT.debug_message(l_full_name||': start');
10967: END IF;
10968:
10969: IF FND_API.to_boolean(p_init_msg_list) THEN
10970: FND_MSG_PUB.initialize;
10971: END IF;
10972:
10973: IF NOT FND_API.compatible_api_call(
10974: l_api_version,
11078: IF FND_API.to_boolean(p_commit) THEN
11079: COMMIT;
11080: END IF;
11081:
11082: FND_MSG_PUB.count_and_get(
11083: p_encoded => FND_API.g_false,
11084: p_count => x_msg_count,
11085: p_data => x_msg_data
11086: );
11092: EXCEPTION
11093: WHEN FND_API.g_exc_error THEN
11094: ROLLBACK TO Update_Dummy_Utilizations;
11095: x_return_status := FND_API.g_ret_sts_error;
11096: FND_MSG_PUB.count_and_get (
11097: p_encoded => FND_API.g_false
11098: ,p_count => x_msg_count
11099: ,p_data => x_msg_data
11100: );
11101:
11102: WHEN FND_API.g_exc_unexpected_error THEN
11103: ROLLBACK TO Update_Dummy_Utilizations;
11104: x_return_status := FND_API.g_ret_sts_unexp_error ;
11105: FND_MSG_PUB.count_and_get (
11106: p_encoded => FND_API.g_false
11107: ,p_count => x_msg_count
11108: ,p_data => x_msg_data
11109: );
11110:
11111: WHEN OTHERS THEN
11112: ROLLBACK TO Update_Dummy_Utilizations;
11113: x_return_status := FND_API.g_ret_sts_unexp_error ;
11114: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11115: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
11116: END IF;
11117: FND_MSG_PUB.count_and_get(
11118: p_encoded => FND_API.g_false
11111: WHEN OTHERS THEN
11112: ROLLBACK TO Update_Dummy_Utilizations;
11113: x_return_status := FND_API.g_ret_sts_unexp_error ;
11114: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11115: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
11116: END IF;
11117: FND_MSG_PUB.count_and_get(
11118: p_encoded => FND_API.g_false
11119: ,p_count => x_msg_count
11113: x_return_status := FND_API.g_ret_sts_unexp_error ;
11114: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11115: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
11116: END IF;
11117: FND_MSG_PUB.count_and_get(
11118: p_encoded => FND_API.g_false
11119: ,p_count => x_msg_count
11120: ,p_data => x_msg_data
11121: );
11220: OZF_Utility_PVT.debug_message(l_full_name||': start');
11221: END IF;
11222:
11223: IF FND_API.to_boolean(p_init_msg_list) THEN
11224: FND_MSG_PUB.initialize;
11225: END IF;
11226:
11227: IF NOT FND_API.compatible_api_call(
11228: l_api_version,
11307: -- error everytime if ams_act_products.adjustment_flag is 'N'.
11308: IF OZF_DEBUG_LOW_ON THEN
11309: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
11310: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Manual Adjust Over Utilization is not supported.');
11311: FND_MSG_PUB.Add;
11312: END IF;
11313:
11314: RAISE FND_API.g_exc_unexpected_error;
11315: --Invoke_Adjustment_Workflow();
11344: IF FND_API.to_boolean(p_commit) THEN
11345: COMMIT;
11346: END IF;
11347:
11348: FND_MSG_PUB.count_and_get(
11349: p_encoded => FND_API.g_false,
11350: p_count => x_msg_count,
11351: p_data => x_msg_data
11352: );
11358: EXCEPTION
11359: WHEN FND_API.g_exc_error THEN
11360: ROLLBACK TO Adjust_Fund_Utilization;
11361: x_return_status := FND_API.g_ret_sts_error;
11362: FND_MSG_PUB.count_and_get (
11363: p_encoded => FND_API.g_false
11364: ,p_count => x_msg_count
11365: ,p_data => x_msg_data
11366: );
11367:
11368: WHEN FND_API.g_exc_unexpected_error THEN
11369: ROLLBACK TO Adjust_Fund_Utilization;
11370: x_return_status := FND_API.g_ret_sts_unexp_error ;
11371: FND_MSG_PUB.count_and_get (
11372: p_encoded => FND_API.g_false
11373: ,p_count => x_msg_count
11374: ,p_data => x_msg_data
11375: );
11376:
11377: WHEN OTHERS THEN
11378: ROLLBACK TO Adjust_Fund_Utilization;
11379: x_return_status := FND_API.g_ret_sts_unexp_error ;
11380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11381: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
11382: END IF;
11383: FND_MSG_PUB.count_and_get(
11384: p_encoded => FND_API.g_false
11377: WHEN OTHERS THEN
11378: ROLLBACK TO Adjust_Fund_Utilization;
11379: x_return_status := FND_API.g_ret_sts_unexp_error ;
11380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11381: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
11382: END IF;
11383: FND_MSG_PUB.count_and_get(
11384: p_encoded => FND_API.g_false
11385: ,p_count => x_msg_count
11379: x_return_status := FND_API.g_ret_sts_unexp_error ;
11380: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
11381: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
11382: END IF;
11383: FND_MSG_PUB.count_and_get(
11384: p_encoded => FND_API.g_false
11385: ,p_count => x_msg_count
11386: ,p_data => x_msg_data
11387: );
12174: OZF_Utility_PVT.debug_message('p_ship_debit_type : '||p_ship_debit_type);
12175: END IF;
12176:
12177: IF FND_API.to_boolean(p_init_msg_list) THEN
12178: FND_MSG_PUB.initialize;
12179: END IF;
12180:
12181: IF NOT FND_API.compatible_api_call(
12182: l_api_version,
12324: l_check := l_check + 1;
12325: END IF;
12326: END LOOP;
12327: IF l_check > 1 THEN
12328: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12329: FND_MESSAGE.Set_Name('OZF', 'OZF_DUP_CUST_ACCTS');
12330: FND_MESSAGE.Set_Token('CUST_ACCOUNT_ID', l_cust_util_tbl(i).cust_account_id);
12331: FND_MSG_PUB.ADD;
12332: END IF;
12327: IF l_check > 1 THEN
12328: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12329: FND_MESSAGE.Set_Name('OZF', 'OZF_DUP_CUST_ACCTS');
12330: FND_MESSAGE.Set_Token('CUST_ACCOUNT_ID', l_cust_util_tbl(i).cust_account_id);
12331: FND_MSG_PUB.ADD;
12332: END IF;
12333: RAISE FND_API.g_exc_unexpected_error;
12334: END IF;
12335: END LOOP;
12515: OPEN csr_uom_code(l_line_tbl(l_counter).item_id);
12516: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
12517: IF csr_uom_code%NOTFOUND THEN
12518: CLOSE csr_uom_code;
12519: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12520: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
12521: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
12522: FND_MSG_PUB.ADD;
12523: END IF;
12518: CLOSE csr_uom_code;
12519: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12520: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
12521: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
12522: FND_MSG_PUB.ADD;
12523: END IF;
12524: RAISE FND_API.g_exc_unexpected_error;
12525: END IF;
12526: CLOSE csr_uom_code;
12534: END LOOP;
12535:
12536: --Raise error, if no accrual exists, may happen for INTERNAL claims only
12537: IF l_counter = 1 THEN
12538: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12539: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
12540: FND_MSG_PUB.ADD;
12541: END IF;
12542: RAISE FND_API.g_exc_unexpected_error;
12536: --Raise error, if no accrual exists, may happen for INTERNAL claims only
12537: IF l_counter = 1 THEN
12538: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12539: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
12540: FND_MSG_PUB.ADD;
12541: END IF;
12542: RAISE FND_API.g_exc_unexpected_error;
12543: END IF;
12544:
12648: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_create_claim22 = ' || l_create_claim);
12649: ELSE
12650: l_create_claim := 'N';
12651: --Raise error, if claim amount is negative.
12652: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12653: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
12654: FND_MSG_PUB.ADD;
12655: END IF;
12656: RAISE FND_API.g_exc_unexpected_error;
12650: l_create_claim := 'N';
12651: --Raise error, if claim amount is negative.
12652: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12653: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
12654: FND_MSG_PUB.ADD;
12655: END IF;
12656: RAISE FND_API.g_exc_unexpected_error;
12657:
12658: END IF;
12770: END IF; -- l_create_claim := 'Y';
12771: ELSIF l_claim_rec.amount = 0 THEN
12772: --Raise error, if claim amount is zero. Claim header is not allowed with
12773: --zero amount.
12774: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12775: FND_MESSAGE.Set_Name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
12776: FND_MSG_PUB.ADD;
12777: END IF;
12778: RAISE FND_API.g_exc_unexpected_error;
12772: --Raise error, if claim amount is zero. Claim header is not allowed with
12773: --zero amount.
12774: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12775: FND_MESSAGE.Set_Name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
12776: FND_MSG_PUB.ADD;
12777: END IF;
12778: RAISE FND_API.g_exc_unexpected_error;
12779: /*ELSE
12780: --Raise error, if claim amount is negative.
12777: END IF;
12778: RAISE FND_API.g_exc_unexpected_error;
12779: /*ELSE
12780: --Raise error, if claim amount is negative.
12781: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12782: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
12783: FND_MSG_PUB.ADD;
12784: END IF;
12785: RAISE FND_API.g_exc_unexpected_error;
12779: /*ELSE
12780: --Raise error, if claim amount is negative.
12781: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12782: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
12783: FND_MSG_PUB.ADD;
12784: END IF;
12785: RAISE FND_API.g_exc_unexpected_error;
12786: */
12787: END IF;
12821:
12822: END LOOP;
12823: ELSE
12824: --Raise error, if no accrual exists, may happen for INTERNAL claims only
12825: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12826: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
12827: FND_MSG_PUB.ADD;
12828: END IF;
12829: RAISE FND_API.g_exc_unexpected_error;
12823: ELSE
12824: --Raise error, if no accrual exists, may happen for INTERNAL claims only
12825: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12826: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
12827: FND_MSG_PUB.ADD;
12828: END IF;
12829: RAISE FND_API.g_exc_unexpected_error;
12830: END IF;
12831:
12834: IF FND_API.to_boolean(p_commit) THEN
12835: COMMIT;
12836: END IF;
12837:
12838: FND_MSG_PUB.count_and_get(
12839: p_encoded => FND_API.g_false,
12840: p_count => x_msg_count,
12841: p_data => x_msg_data
12842: );
12848: EXCEPTION
12849: WHEN FND_API.g_exc_error THEN
12850: ROLLBACK TO Initiate_SD_Payment;
12851: x_return_status := FND_API.g_ret_sts_error;
12852: FND_MSG_PUB.count_and_get (
12853: p_encoded => FND_API.g_false
12854: ,p_count => x_msg_count
12855: ,p_data => x_msg_data
12856: );
12857:
12858: WHEN FND_API.g_exc_unexpected_error THEN
12859: ROLLBACK TO Initiate_SD_Payment;
12860: x_return_status := FND_API.g_ret_sts_unexp_error ;
12861: FND_MSG_PUB.count_and_get (
12862: p_encoded => FND_API.g_false
12863: ,p_count => x_msg_count
12864: ,p_data => x_msg_data
12865: );
12866:
12867: WHEN OTHERS THEN
12868: ROLLBACK TO Initiate_SD_Payment;
12869: x_return_status := FND_API.g_ret_sts_unexp_error ;
12870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12871: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
12872: END IF;
12873: FND_MSG_PUB.count_and_get(
12874: p_encoded => FND_API.g_false
12867: WHEN OTHERS THEN
12868: ROLLBACK TO Initiate_SD_Payment;
12869: x_return_status := FND_API.g_ret_sts_unexp_error ;
12870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12871: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
12872: END IF;
12873: FND_MSG_PUB.count_and_get(
12874: p_encoded => FND_API.g_false
12875: ,p_count => x_msg_count
12869: x_return_status := FND_API.g_ret_sts_unexp_error ;
12870: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
12871: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
12872: END IF;
12873: FND_MSG_PUB.count_and_get(
12874: p_encoded => FND_API.g_false
12875: ,p_count => x_msg_count
12876: ,p_data => x_msg_data
12877: );
12948: OZF_Utility_PVT.debug_message(l_full_name||': start');
12949: END IF;
12950:
12951: IF FND_API.to_boolean(p_init_msg_list) THEN
12952: FND_MSG_PUB.initialize;
12953: END IF;
12954:
12955: IF NOT FND_API.compatible_api_call(
12956: l_api_version,
13083: IF FND_API.to_boolean(p_commit) THEN
13084: COMMIT;
13085: END IF;
13086:
13087: FND_MSG_PUB.count_and_get(
13088: p_encoded => FND_API.g_false,
13089: p_count => x_msg_count,
13090: p_data => x_msg_data
13091: );
13097: EXCEPTION
13098: WHEN FND_API.g_exc_error THEN
13099: ROLLBACK TO Accruals_Association;
13100: x_return_status := FND_API.g_ret_sts_error;
13101: FND_MSG_PUB.count_and_get (
13102: p_encoded => FND_API.g_false
13103: ,p_count => x_msg_count
13104: ,p_data => x_msg_data
13105: );
13106:
13107: WHEN FND_API.g_exc_unexpected_error THEN
13108: ROLLBACK TO Accruals_Association;
13109: x_return_status := FND_API.g_ret_sts_unexp_error ;
13110: FND_MSG_PUB.count_and_get (
13111: p_encoded => FND_API.g_false
13112: ,p_count => x_msg_count
13113: ,p_data => x_msg_data
13114: );
13115:
13116: WHEN OTHERS THEN
13117: ROLLBACK TO Accruals_Association;
13118: x_return_status := FND_API.g_ret_sts_unexp_error ;
13119: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13120: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
13121: END IF;
13122: FND_MSG_PUB.count_and_get(
13123: p_encoded => FND_API.g_false
13116: WHEN OTHERS THEN
13117: ROLLBACK TO Accruals_Association;
13118: x_return_status := FND_API.g_ret_sts_unexp_error ;
13119: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13120: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
13121: END IF;
13122: FND_MSG_PUB.count_and_get(
13123: p_encoded => FND_API.g_false
13124: ,p_count => x_msg_count
13118: x_return_status := FND_API.g_ret_sts_unexp_error ;
13119: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
13120: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
13121: END IF;
13122: FND_MSG_PUB.count_and_get(
13123: p_encoded => FND_API.g_false
13124: ,p_count => x_msg_count
13125: ,p_data => x_msg_data
13126: );