1209: ,x_msg_data OUT NOCOPY VARCHAR2
1210: ,x_msg_count OUT NOCOPY NUMBER
1211:
1212: ,p_claim_line_tbl IN OUT NOCOPY claim_line_tbl_type
1213: ,p_mode IN VARCHAR2 := OZF_CLAIM_UTILITY_PVT.g_auto_mode
1214:
1215: ,x_error_index OUT NOCOPY NUMBER
1216: ) IS
1217: l_api_version CONSTANT NUMBER := 1.0;
1294:
1295: l_claim_line_tbl := p_claim_line_tbl;
1296:
1297: ---------------------- check claim access ------------------------
1298: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_claim_line_tbl.count > 0 THEN
1299: FOR j IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
1300: IF p_claim_line_tbl.EXISTS(j) THEN
1301: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1302: P_Api_Version_Number => 1.0
1297: ---------------------- check claim access ------------------------
1298: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_claim_line_tbl.count > 0 THEN
1299: FOR j IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
1300: IF p_claim_line_tbl.EXISTS(j) THEN
1301: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1302: P_Api_Version_Number => 1.0
1303: , P_Init_Msg_List => FND_API.G_FALSE
1304: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1305: , P_Commit => FND_API.G_FALSE
1488: , x_return_status => l_return_status
1489: , x_msg_data => x_msg_data
1490: , x_msg_count => x_msg_count
1491: , p_claim_line_rec => l_claim_line_rec
1492: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
1493: , x_claim_line_id => l_claim_line_id
1494: );
1495: IF l_return_status = fnd_api.g_ret_sts_error THEN
1496: x_error_index := i;
1582: ,x_msg_count OUT NOCOPY NUMBER
1583: ,x_msg_data OUT NOCOPY VARCHAR2
1584:
1585: ,p_claim_line_rec IN claim_line_rec_type
1586: ,p_mode IN VARCHAR2 := OZF_CLAIM_UTILITY_PVT.g_auto_mode
1587: ,x_claim_line_id OUT NOCOPY NUMBER
1588: )
1589: IS
1590: -- Cursor to get the sequence for claim_line_id
1717:
1718: l_claim_line_rec := p_claim_line_rec;
1719:
1720: ----------------- check claim access -------------------
1721: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
1722: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1723: P_Api_Version_Number => 1.0
1724: , P_Init_Msg_List => FND_API.G_FALSE
1725: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1718: l_claim_line_rec := p_claim_line_rec;
1719:
1720: ----------------- check claim access -------------------
1721: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
1722: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
1723: P_Api_Version_Number => 1.0
1724: , P_Init_Msg_List => FND_API.G_FALSE
1725: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1726: , P_Commit => FND_API.G_FALSE
2311: ,x_msg_count OUT NOCOPY NUMBER
2312:
2313: ,p_claim_line_tbl IN claim_line_tbl_type
2314: ,p_change_object_version IN VARCHAR2 := FND_API.g_false
2315: ,p_mode IN VARCHAR2 := OZF_CLAIM_UTILITY_PVT.g_auto_mode
2316: ,x_error_index OUT NOCOPY NUMBER
2317: ) IS
2318: l_api_version CONSTANT NUMBER := 1.0;
2319: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Claim_Line_Tbl';
2377:
2378: x_return_status := FND_API.g_ret_sts_success;
2379:
2380: ---------------------- check claim access ------------------------
2381: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_claim_line_tbl.count > 0 THEN
2382: FOR j IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
2383: IF p_claim_line_tbl.EXISTS(j) THEN
2384: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2385: P_Api_Version_Number => 1.0
2380: ---------------------- check claim access ------------------------
2381: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_claim_line_tbl.count > 0 THEN
2382: FOR j IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
2383: IF p_claim_line_tbl.EXISTS(j) THEN
2384: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2385: P_Api_Version_Number => 1.0
2386: , P_Init_Msg_List => FND_API.G_FALSE
2387: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2388: , P_Commit => FND_API.G_FALSE
2482: , x_msg_data => x_msg_data
2483: , x_msg_count => x_msg_count
2484: , p_claim_line_id => l_claim_line_id
2485: , p_object_version => l_object_version
2486: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
2487: );
2488: IF l_return_status = fnd_api.g_ret_sts_error THEN
2489: x_error_index := i;
2490: RAISE FND_API.g_exc_error;
2569: ,x_msg_data OUT NOCOPY VARCHAR2
2570:
2571: ,p_claim_line_id IN NUMBER
2572: ,p_object_version IN NUMBER
2573: ,p_mode IN VARCHAR2 := OZF_CLAIM_UTILITY_PVT.g_auto_mode
2574: )
2575: IS
2576: l_api_version CONSTANT NUMBER := 1.0;
2577: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Claim_Line';
2640: FETCH csr_claim_id INTO l_claim_id;
2641: CLOSE csr_claim_id;
2642:
2643: ---------------------- check claim access ------------------------
2644: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
2645: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2646: P_Api_Version_Number => 1.0
2647: , P_Init_Msg_List => FND_API.G_FALSE
2648: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2641: CLOSE csr_claim_id;
2642:
2643: ---------------------- check claim access ------------------------
2644: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
2645: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
2646: P_Api_Version_Number => 1.0
2647: , P_Init_Msg_List => FND_API.G_FALSE
2648: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2649: , P_Commit => FND_API.G_FALSE
2707: ,x_return_status => l_return_status
2708: ,x_msg_data => x_msg_data
2709: ,x_msg_count => x_msg_count
2710: ,p_line_util_tbl => l_line_util_tbl
2711: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
2712: ,x_error_index => l_error_index
2713: );
2714: IF l_return_status = fnd_api.g_ret_sts_error THEN
2715: RAISE FND_API.g_exc_error;
3064: ,x_msg_count OUT NOCOPY NUMBER
3065:
3066: ,p_claim_line_tbl IN claim_line_tbl_type
3067: ,p_change_object_version IN VARCHAR2 := FND_API.g_false
3068: ,p_mode IN VARCHAR2 := OZF_CLAIM_UTILITY_PVT.g_auto_mode
3069:
3070: ,x_error_index OUT NOCOPY NUMBER
3071: ) IS
3072: l_api_version CONSTANT NUMBER := 1.0;
3156:
3157: l_claim_line_tbl := p_claim_line_tbl;
3158:
3159: ---------------------- check claim access ------------------------
3160: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_claim_line_tbl.count > 0 THEN
3161: FOR j IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
3162: IF p_claim_line_tbl.EXISTS(j) THEN
3163: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3164: P_Api_Version_Number => 1.0
3159: ---------------------- check claim access ------------------------
3160: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode AND p_claim_line_tbl.count > 0 THEN
3161: FOR j IN p_claim_line_tbl.FIRST..p_claim_line_tbl.LAST LOOP
3162: IF p_claim_line_tbl.EXISTS(j) THEN
3163: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3164: P_Api_Version_Number => 1.0
3165: , P_Init_Msg_List => FND_API.G_FALSE
3166: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3167: , P_Commit => FND_API.G_FALSE
3321: END IF;
3322:
3323: -- Skip this check if the Claim line is updated from Request.
3324: --ER#9453443 : Added the Offer ID check
3325: IF ((p_mode <> OZF_CLAIM_UTILITY_PVT.g_request_mode OR
3326: l_claim_class <> 'GROUP') AND l_offer_id IS NULL) THEN
3327: IF ABS(l_exist_total_amt - l_old_upd_total_amt + l_new_upd_total_amt) > ABS(l_claim_amount) THEN
3328: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3329: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
3358: , x_return_status => l_return_status
3359: , x_msg_data => x_msg_data
3360: , x_msg_count => x_msg_count
3361: , p_claim_line_rec => l_claim_line_rec
3362: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
3363: , x_object_version => l_object_version
3364: );
3365: IF l_return_status = fnd_api.g_ret_sts_error THEN
3366: x_error_index := i;
3449: ,x_msg_count OUT NOCOPY NUMBER
3450: ,x_msg_data OUT NOCOPY VARCHAR2
3451:
3452: ,p_claim_line_rec IN claim_line_rec_type
3453: ,p_mode IN VARCHAR2 := OZF_CLAIM_UTILITY_PVT.g_auto_mode
3454:
3455: ,x_object_version OUT NOCOPY NUMBER
3456: )
3457: IS
3572:
3573: x_return_status := FND_API.g_ret_sts_success;
3574:
3575: ---------------------- check claim access ------------------------
3576: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
3577: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3578: P_Api_Version_Number => 1.0
3579: , P_Init_Msg_List => FND_API.G_FALSE
3580: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3573: x_return_status := FND_API.g_ret_sts_success;
3574:
3575: ---------------------- check claim access ------------------------
3576: IF p_mode = OZF_CLAIM_UTILITY_PVT.g_manu_mode THEN
3577: OZF_CLAIM_UTILITY_PVT.Check_Claim_access(
3578: P_Api_Version_Number => 1.0
3579: , P_Init_Msg_List => FND_API.G_FALSE
3580: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3581: , P_Commit => FND_API.G_FALSE
3880: IF OZF_DEBUG_HIGH_ON THEN
3881: OZF_Utility_PVT.debug_message('l_offer_id =' ||l_offer_id);
3882: END IF;
3883: -- ER#9453443 : Added the offer id check
3884: IF p_mode <> OZF_claim_Utility_pvt.G_AUTO_MODE
3885: AND p_mode <> OZF_claim_Utility_pvt.G_REQUEST_MODE
3886: AND l_claim_class <> 'GROUP' AND l_offer_id IS NULL
3887: THEN --Bug:2781186
3888: -- comparison of claim amount and line amount
3881: OZF_Utility_PVT.debug_message('l_offer_id =' ||l_offer_id);
3882: END IF;
3883: -- ER#9453443 : Added the offer id check
3884: IF p_mode <> OZF_claim_Utility_pvt.G_AUTO_MODE
3885: AND p_mode <> OZF_claim_Utility_pvt.G_REQUEST_MODE
3886: AND l_claim_class <> 'GROUP' AND l_offer_id IS NULL
3887: THEN --Bug:2781186
3888: -- comparison of claim amount and line amount
3889: IF l_line_sum_amt IS NOT NULL THEN
3928: ,x_return_status => l_return_status
3929: ,x_msg_data => x_msg_data
3930: ,x_msg_count => x_msg_count
3931: ,p_line_util_tbl => l_line_util_tbl
3932: ,p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
3933: ,x_error_index => l_error_index
3934: );
3935: IF l_return_status = fnd_api.g_ret_sts_error THEN
3936: RAISE FND_API.g_exc_error;
5734: , x_return_status => x_return_status
5735: , x_msg_data => x_msg_data
5736: , x_msg_count => x_msg_count
5737: , p_claim_line_rec => l_claim_line_rec
5738: , p_mode => OZF_CLAIM_UTILITY_PVT.g_auto_mode
5739: , x_claim_line_id => l_claim_line_id
5740: );
5741: IF x_return_status = fnd_api.g_ret_sts_error THEN
5742: RAISE FND_API.g_exc_error;