[Home] [Help]
244: --------------------- initialize -----------------------
245: SAVEPOINT Check_Create_Line_Hist;
246:
247: IF OZF_DEBUG_HIGH_ON THEN
248: OZF_Utility_PVT.debug_message(l_full_name||': start');
249: END IF;
250:
251: IF FND_API.to_boolean(p_init_msg_list) THEN
252: FND_MSG_PUB.initialize;
355: x_create_hist_flag := 'Y';
356: END IF;
357: ELSE
358: IF OZF_DEBUG_HIGH_ON THEN
359: OZF_Utility_PVT.debug_message(l_full_name||': p_mode should be CREATE, UPDATE, or DELETE');
360: END IF;
361: RAISE FND_API.g_exc_error;
362: END IF;
363:
368: p_data => x_msg_data
369: );
370:
371: IF OZF_DEBUG_HIGH_ON THEN
372: OZF_Utility_PVT.debug_message(l_full_name ||': end');
373: END IF;
374:
375: EXCEPTION
376: WHEN FND_API.g_exc_error THEN
546: ELSE
547: OPEN csr_function_currency;
548: FETCH csr_function_currency INTO l_function_currency;
549: CLOSE csr_function_currency;
550: OZF_UTILITY_PVT.Convert_Currency(
551: p_from_currency => l_function_currency
552: ,p_to_currency => l_default_currency
553: ,p_conv_type => l_default_exc_type
554: ,p_conv_rate => 1/l_default_exc_rate -- Bug4437696
675: --------------------- initialize -----------------------
676: SAVEPOINT Update_Line_Fm_Claim;
677:
678: IF OZF_DEBUG_HIGH_ON THEN
679: OZF_Utility_PVT.debug_message(l_full_name||': start');
680: END IF;
681:
682: IF FND_API.to_boolean(p_init_msg_list) THEN
683: FND_MSG_PUB.initialize;
825: , l_claim_line_tbl(l_line_counter).claim_currency_amount
826: , l_claim_line_tbl(l_line_counter).tax_code
827: , l_claim_line_tbl(l_line_counter).earnings_associated_flag; --Bug:2781186
828: IF OZF_DEBUG_HIGH_ON THEN
829: OZF_Utility_PVT.debug_message('ULFC:STEP 4:'||'line_tbl('||l_line_counter||')'||
830: l_claim_line_tbl(l_line_counter).claim_currency_amount);
831: END IF;
832: l_line_counter := l_line_counter + 1;
833: EXIT WHEN csr_line_rec_upd%NOTFOUND;
911: p_data => x_msg_data
912: );
913:
914: IF OZF_DEBUG_HIGH_ON THEN
915: OZF_Utility_PVT.debug_message(l_full_name ||': end');
916: END IF;
917:
918: EXCEPTION
919: WHEN FND_API.g_exc_error THEN
1016: --------------------- initialize -----------------------
1017: SAVEPOINT Create_Claim_Line_Tbl;
1018:
1019: IF OZF_DEBUG_HIGH_ON THEN
1020: OZF_Utility_PVT.debug_message(l_full_name||': start');
1021: END IF;
1022:
1023: IF FND_API.to_boolean(p_init_msg_list) THEN
1024: FND_MSG_PUB.initialize;
1048: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1049: , P_Commit => FND_API.G_FALSE
1050: , P_object_id => p_claim_line_tbl(j).claim_id
1051: , P_object_type => G_CLAIM_OBJECT_TYPE
1052: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
1053: , X_Return_Status => l_return_status
1054: , X_Msg_Count => l_msg_count
1055: , X_Msg_Data => l_msg_data
1056: , X_access => l_access);
1110: x_error_index := j;
1111: RAISE FND_API.g_exc_error;
1112: ELSE
1113: IF OZF_DEBUG_HIGH_ON THEN
1114: OZF_Utility_PVT.debug_message('Before CurrRound :: claim line currency_currency_amount = '||l_claim_line_tbl(j).claim_currency_amount);
1115: OZF_Utility_PVT.debug_message('Before CurrRound :: claim currency code = '||l_currency_code);
1116: END IF;
1117: l_claim_line_tbl(j).claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_tbl(j).claim_currency_amount, l_currency_code);
1118: END IF;
1111: RAISE FND_API.g_exc_error;
1112: ELSE
1113: IF OZF_DEBUG_HIGH_ON THEN
1114: OZF_Utility_PVT.debug_message('Before CurrRound :: claim line currency_currency_amount = '||l_claim_line_tbl(j).claim_currency_amount);
1115: OZF_Utility_PVT.debug_message('Before CurrRound :: claim currency code = '||l_currency_code);
1116: END IF;
1117: l_claim_line_tbl(j).claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_tbl(j).claim_currency_amount, l_currency_code);
1118: END IF;
1119:
1113: IF OZF_DEBUG_HIGH_ON THEN
1114: OZF_Utility_PVT.debug_message('Before CurrRound :: claim line currency_currency_amount = '||l_claim_line_tbl(j).claim_currency_amount);
1115: OZF_Utility_PVT.debug_message('Before CurrRound :: claim currency code = '||l_currency_code);
1116: END IF;
1117: l_claim_line_tbl(j).claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_tbl(j).claim_currency_amount, l_currency_code);
1118: END IF;
1119:
1120: l_create_total_amt := l_create_total_amt + l_claim_line_tbl(j).claim_currency_amount;
1121: l_claim_id := p_claim_line_tbl(j).claim_id;
1131: CLOSE c_exist_total_line_amt;
1132:
1133:
1134: IF OZF_DEBUG_HIGH_ON THEN
1135: OZF_Utility_PVT.debug_message('exist_total_amt:' || l_exist_total_amt );
1136: OZF_Utility_PVT.debug_message('create_total_amt:' || l_create_total_amt );
1137: OZF_Utility_PVT.debug_message('claim_amount:' || l_claim_amount );
1138: END IF;
1139: --Check for the sum of line amount sign. It should be same as that claims remaining amount.
1132:
1133:
1134: IF OZF_DEBUG_HIGH_ON THEN
1135: OZF_Utility_PVT.debug_message('exist_total_amt:' || l_exist_total_amt );
1136: OZF_Utility_PVT.debug_message('create_total_amt:' || l_create_total_amt );
1137: OZF_Utility_PVT.debug_message('claim_amount:' || l_claim_amount );
1138: END IF;
1139: --Check for the sum of line amount sign. It should be same as that claims remaining amount.
1140: --Skip the check in case of Subsequent Receipt Application.
1133:
1134: IF OZF_DEBUG_HIGH_ON THEN
1135: OZF_Utility_PVT.debug_message('exist_total_amt:' || l_exist_total_amt );
1136: OZF_Utility_PVT.debug_message('create_total_amt:' || l_create_total_amt );
1137: OZF_Utility_PVT.debug_message('claim_amount:' || l_claim_amount );
1138: END IF;
1139: --Check for the sum of line amount sign. It should be same as that claims remaining amount.
1140: --Skip the check in case of Subsequent Receipt Application.
1141: IF l_claim_class <> 'GROUP' THEN
1215: p_data => x_msg_data
1216: );
1217:
1218: IF OZF_DEBUG_HIGH_ON THEN
1219: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1220: END IF;
1221:
1222: EXCEPTION
1223: WHEN FND_API.g_exc_error THEN
1378: --------------------- initialize -----------------------
1379: SAVEPOINT Create_Claim_Line;
1380:
1381: IF OZF_DEBUG_HIGH_ON THEN
1382: OZF_Utility_PVT.debug_message(l_full_name||': start');
1383: END IF;
1384:
1385: IF FND_API.to_boolean(p_init_msg_list) THEN
1386: FND_MSG_PUB.initialize;
1407: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
1408: , P_Commit => FND_API.G_FALSE
1409: , P_object_id => l_claim_line_rec.claim_id
1410: , P_object_type => G_CLAIM_OBJECT_TYPE
1411: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
1412: , X_Return_Status => l_return_status
1413: , X_Msg_Count => x_msg_count
1414: , X_Msg_Data => x_msg_data
1415: , X_access => l_access);
1522: , l_claim_exc_rate;
1523: CLOSE c_claim_default_exc;
1524:
1525: -- Convert ACCTD_AMOUNT
1526: OZF_UTILITY_PVT.Convert_Currency(
1527: P_SET_OF_BOOKS_ID => l_claim_line_rec.set_of_books_id,
1528: P_FROM_CURRENCY => l_claim_currency,
1529: P_CONVERSION_DATE => l_claim_exc_date,
1530: P_CONVERSION_TYPE => l_claim_exc_type,
1575: /*-------------------------------------------------------*
1576: | validate |
1577: *-------------------------------------------------------*/
1578: IF OZF_DEBUG_HIGH_ON THEN
1579: OZF_Utility_PVT.debug_message(l_full_name ||': validate');
1580: END IF;
1581:
1582: Validate_Claim_Line(
1583: p_api_version => l_api_version,
1595: END IF;
1596:
1597: ------------------- amount rounding --------------------
1598: IF l_claim_line_rec.claim_currency_amount IS NOT NULL THEN
1599: l_claim_line_rec.claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.claim_currency_amount, l_claim_currency);
1600: END IF;
1601:
1602: IF l_claim_line_rec.amount IS NOT NULL THEN
1603: l_claim_line_rec.amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.amount, l_claim_line_rec.currency_code);
1599: l_claim_line_rec.claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.claim_currency_amount, l_claim_currency);
1600: END IF;
1601:
1602: IF l_claim_line_rec.amount IS NOT NULL THEN
1603: l_claim_line_rec.amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.amount, l_claim_line_rec.currency_code);
1604: END IF;
1605:
1606: IF l_claim_line_rec.acctd_amount IS NOT NULL THEN
1607: l_claim_line_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.acctd_amount, l_functional_currency);
1603: l_claim_line_rec.amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.amount, l_claim_line_rec.currency_code);
1604: END IF;
1605:
1606: IF l_claim_line_rec.acctd_amount IS NOT NULL THEN
1607: l_claim_line_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.acctd_amount, l_functional_currency);
1608: END IF;
1609:
1610: ------------------- amount checking --------------------
1611: IF l_claim_line_rec.claim_currency_amount IS NOT NULL THEN
1710: /*-------------------------------------------------------*
1711: | insert |
1712: *-------------------------------------------------------*/
1713: IF OZF_DEBUG_HIGH_ON THEN
1714: OZF_Utility_PVT.debug_message(l_full_name ||': insert');
1715: END IF;
1716:
1717:
1718: INSERT INTO ozf_claim_lines_all (
1912: p_data => x_msg_data
1913: );
1914:
1915: IF OZF_DEBUG_HIGH_ON THEN
1916: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1917: END IF;
1918:
1919: EXCEPTION
1920: WHEN FND_API.g_exc_error THEN
2018: --------------------- initialize -----------------------
2019: SAVEPOINT Delete_Claim_Line_Tbl;
2020:
2021: IF OZF_DEBUG_HIGH_ON THEN
2022: OZF_Utility_PVT.debug_message(l_full_name||': start');
2023: END IF;
2024:
2025: IF FND_API.to_boolean(p_init_msg_list) THEN
2026: FND_MSG_PUB.initialize;
2047: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2048: , P_Commit => FND_API.G_FALSE
2049: , P_object_id => p_claim_line_tbl(j).claim_id
2050: , P_object_type => G_CLAIM_OBJECT_TYPE
2051: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2052: , X_Return_Status => l_return_status
2053: , X_Msg_Count => l_msg_count
2054: , X_Msg_Data => l_msg_data
2055: , X_access => l_access);
2157: p_data => x_msg_data
2158: );
2159:
2160: IF OZF_DEBUG_HIGH_ON THEN
2161: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2162: END IF;
2163:
2164: EXCEPTION
2165: WHEN FND_API.g_exc_error THEN
2267: --------------------- initialize -----------------------
2268: SAVEPOINT Delete_Claim_Line;
2269:
2270: IF OZF_DEBUG_HIGH_ON THEN
2271: OZF_Utility_PVT.debug_message(l_full_name||': start');
2272: END IF;
2273:
2274: IF FND_API.to_boolean(p_init_msg_list) THEN
2275: FND_MSG_PUB.initialize;
2298: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2299: , P_Commit => FND_API.G_FALSE
2300: , P_object_id => l_claim_id
2301: , P_object_type => G_CLAIM_OBJECT_TYPE
2302: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2303: , X_Return_Status => l_return_status
2304: , X_Msg_Count => x_msg_count
2305: , X_Msg_Data => x_msg_data
2306: , X_access => l_access);
2369: END IF;
2370:
2371: ------------------------ Delete ------------------------
2372: IF OZF_DEBUG_HIGH_ON THEN
2373: OZF_Utility_PVT.debug_message(l_full_name ||': delete');
2374: END IF;
2375:
2376: DELETE FROM ozf_claim_lines_all
2377: WHERE claim_line_id = p_claim_line_id
2396: p_data => x_msg_data
2397: );
2398:
2399: IF OZF_DEBUG_HIGH_ON THEN
2400: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2401: END IF;
2402:
2403: EXCEPTION
2404: WHEN FND_API.g_exc_error THEN
2468:
2469: BEGIN
2470: -------------------- initialize ------------------------
2471: IF OZF_DEBUG_HIGH_ON THEN
2472: OZF_Utility_PVT.debug_message(l_full_name||': start');
2473: END IF;
2474:
2475: IF FND_API.to_boolean(p_init_msg_list) THEN
2476: FND_MSG_PUB.initialize;
2488: x_return_status := FND_API.g_ret_sts_success;
2489:
2490: ------------------------ lock -------------------------
2491: IF OZF_DEBUG_HIGH_ON THEN
2492: OZF_Utility_PVT.debug_message(l_full_name||': lock');
2493: END IF;
2494:
2495: OPEN c_claim_line;
2496: FETCH c_claim_line INTO l_claim_line_id;
2511: p_data => x_msg_data
2512: );
2513:
2514: IF OZF_DEBUG_HIGH_ON THEN
2515: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2516: END IF;
2517:
2518: EXCEPTION
2519: WHEN OZF_Utility_PVT.resource_locked THEN
2515: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2516: END IF;
2517:
2518: EXCEPTION
2519: WHEN OZF_Utility_PVT.resource_locked THEN
2520: x_return_status := FND_API.g_ret_sts_error;
2521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2522: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
2523: FND_MSG_PUB.add;
2769: --------------------- initialize -----------------------
2770: SAVEPOINT Update_Claim_Line_Tbl;
2771:
2772: IF OZF_DEBUG_HIGH_ON THEN
2773: OZF_Utility_PVT.debug_message(l_full_name||': start');
2774: END IF;
2775:
2776: IF FND_API.to_boolean(p_init_msg_list) THEN
2777: FND_MSG_PUB.initialize;
2800: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
2801: , P_Commit => FND_API.G_FALSE
2802: , P_object_id => p_claim_line_tbl(j).claim_id
2803: , P_object_type => G_CLAIM_OBJECT_TYPE
2804: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
2805: , X_Return_Status => l_return_status
2806: , X_Msg_Count => l_msg_count
2807: , X_Msg_Data => l_msg_data
2808: , X_access => l_access);
2876: x_error_index := j;
2877: RAISE FND_API.g_exc_error;
2878: ELSE
2879: IF OZF_DEBUG_HIGH_ON THEN
2880: OZF_Utility_PVT.debug_message('Before CurrRound :: claim line currency_currency_amount = '||l_claim_line_tbl(j).claim_currency_amount);
2881: OZF_Utility_PVT.debug_message('Before CurrRound :: claim currency code = '||l_currency_code);
2882: END IF;
2883: l_claim_line_tbl(j).claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_tbl(j).claim_currency_amount, l_currency_code);
2884: END IF;
2877: RAISE FND_API.g_exc_error;
2878: ELSE
2879: IF OZF_DEBUG_HIGH_ON THEN
2880: OZF_Utility_PVT.debug_message('Before CurrRound :: claim line currency_currency_amount = '||l_claim_line_tbl(j).claim_currency_amount);
2881: OZF_Utility_PVT.debug_message('Before CurrRound :: claim currency code = '||l_currency_code);
2882: END IF;
2883: l_claim_line_tbl(j).claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_tbl(j).claim_currency_amount, l_currency_code);
2884: END IF;
2885:
2879: IF OZF_DEBUG_HIGH_ON THEN
2880: OZF_Utility_PVT.debug_message('Before CurrRound :: claim line currency_currency_amount = '||l_claim_line_tbl(j).claim_currency_amount);
2881: OZF_Utility_PVT.debug_message('Before CurrRound :: claim currency code = '||l_currency_code);
2882: END IF;
2883: l_claim_line_tbl(j).claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_tbl(j).claim_currency_amount, l_currency_code);
2884: END IF;
2885:
2886: --l_new_upd_total_amt := l_new_upd_total_amt + OZF_UTILITY_PVT.CurrRound(l_claim_line_tbl(j).claim_currency_amount, l_currency_code);
2887: l_new_upd_total_amt := l_new_upd_total_amt + l_claim_line_tbl(j).claim_currency_amount;
2882: END IF;
2883: l_claim_line_tbl(j).claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_tbl(j).claim_currency_amount, l_currency_code);
2884: END IF;
2885:
2886: --l_new_upd_total_amt := l_new_upd_total_amt + OZF_UTILITY_PVT.CurrRound(l_claim_line_tbl(j).claim_currency_amount, l_currency_code);
2887: l_new_upd_total_amt := l_new_upd_total_amt + l_claim_line_tbl(j).claim_currency_amount;
2888:
2889: l_old_upd_total_amt := l_old_upd_total_amt + l_old_line_amt;
2890: --l_claim_id := p_claim_line_tbl(j).claim_id;
2892: END LOOP;
2893:
2894:
2895: IF OZF_DEBUG_HIGH_ON THEN
2896: OZF_Utility_PVT.debug_message('Sign check :: exist_total_amt:' || l_exist_total_amt );
2897: OZF_Utility_PVT.debug_message('Sign check :: old_upd_total_amt:' || l_old_upd_total_amt );
2898: OZF_Utility_PVT.debug_message('Sign check :: new_upd_total_amt:' || l_new_upd_total_amt );
2899: OZF_Utility_PVT.debug_message('Sign check :: claim_amount:' || l_claim_amount );
2900: END IF;
2893:
2894:
2895: IF OZF_DEBUG_HIGH_ON THEN
2896: OZF_Utility_PVT.debug_message('Sign check :: exist_total_amt:' || l_exist_total_amt );
2897: OZF_Utility_PVT.debug_message('Sign check :: old_upd_total_amt:' || l_old_upd_total_amt );
2898: OZF_Utility_PVT.debug_message('Sign check :: new_upd_total_amt:' || l_new_upd_total_amt );
2899: OZF_Utility_PVT.debug_message('Sign check :: claim_amount:' || l_claim_amount );
2900: END IF;
2901: --Check for the sum of line amount sign. It should be same as that claims remaining amount.
2894:
2895: IF OZF_DEBUG_HIGH_ON THEN
2896: OZF_Utility_PVT.debug_message('Sign check :: exist_total_amt:' || l_exist_total_amt );
2897: OZF_Utility_PVT.debug_message('Sign check :: old_upd_total_amt:' || l_old_upd_total_amt );
2898: OZF_Utility_PVT.debug_message('Sign check :: new_upd_total_amt:' || l_new_upd_total_amt );
2899: OZF_Utility_PVT.debug_message('Sign check :: claim_amount:' || l_claim_amount );
2900: END IF;
2901: --Check for the sum of line amount sign. It should be same as that claims remaining amount.
2902: --Skip the check in case of Subsequent Receipt Application.
2895: IF OZF_DEBUG_HIGH_ON THEN
2896: OZF_Utility_PVT.debug_message('Sign check :: exist_total_amt:' || l_exist_total_amt );
2897: OZF_Utility_PVT.debug_message('Sign check :: old_upd_total_amt:' || l_old_upd_total_amt );
2898: OZF_Utility_PVT.debug_message('Sign check :: new_upd_total_amt:' || l_new_upd_total_amt );
2899: OZF_Utility_PVT.debug_message('Sign check :: claim_amount:' || l_claim_amount );
2900: END IF;
2901: --Check for the sum of line amount sign. It should be same as that claims remaining amount.
2902: --Skip the check in case of Subsequent Receipt Application.
2903: IF l_claim_class <> 'GROUP' THEN
2971: p_data => x_msg_data
2972: );
2973:
2974: IF OZF_DEBUG_HIGH_ON THEN
2975: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2976: END IF;
2977:
2978: EXCEPTION
2979: WHEN FND_API.g_exc_error THEN
3137: -------------------- initialize -------------------------
3138: SAVEPOINT Update_Claim_Line;
3139:
3140: IF OZF_DEBUG_HIGH_ON THEN
3141: OZF_Utility_PVT.debug_message(l_full_name||': start');
3142: END IF;
3143:
3144: IF FND_API.to_boolean(p_init_msg_list) THEN
3145: FND_MSG_PUB.initialize;
3164: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
3165: , P_Commit => FND_API.G_FALSE
3166: , P_object_id => p_claim_line_rec.claim_id
3167: , P_object_type => G_CLAIM_OBJECT_TYPE
3168: , P_user_id => OZF_UTILITY_PVT.get_resource_id(NVL(FND_GLOBAL.user_id,-1))
3169: , X_Return_Status => l_return_status
3170: , X_Msg_Count => x_msg_count
3171: , X_Msg_Data => x_msg_data
3172: , X_access => l_access);
3314: -- information.
3315: -- Modified for Bug4437696
3316:
3317: IF OZF_DEBUG_HIGH_ON THEN
3318: OZF_Utility_PVT.debug_message('l_claim_line_rec.claim_line_id =' ||l_claim_line_rec.claim_line_id);
3319: END IF;
3320:
3321: OPEN csr_claim_line_util_amt(l_claim_line_rec.claim_line_id);
3322: FETCH csr_claim_line_util_amt INTO l_line_util_acc_amt,l_line_util_sum;
3322: FETCH csr_claim_line_util_amt INTO l_line_util_acc_amt,l_line_util_sum;
3323: CLOSE csr_claim_line_util_amt;
3324:
3325: IF OZF_DEBUG_HIGH_ON THEN
3326: OZF_Utility_PVT.debug_message('l_line_util_acc_amt =' ||l_line_util_acc_amt);
3327: OZF_Utility_PVT.debug_message('l_line_util_sum =' ||l_line_util_sum);
3328: OZF_Utility_PVT.debug_message('l_claim_line_rec.claim_currency_amount =' ||l_claim_line_rec.claim_currency_amount);
3329: END IF;
3330:
3323: CLOSE csr_claim_line_util_amt;
3324:
3325: IF OZF_DEBUG_HIGH_ON THEN
3326: OZF_Utility_PVT.debug_message('l_line_util_acc_amt =' ||l_line_util_acc_amt);
3327: OZF_Utility_PVT.debug_message('l_line_util_sum =' ||l_line_util_sum);
3328: OZF_Utility_PVT.debug_message('l_claim_line_rec.claim_currency_amount =' ||l_claim_line_rec.claim_currency_amount);
3329: END IF;
3330:
3331: IF (p_claim_line_rec.acctd_amount IS NULL OR p_claim_line_rec.acctd_amount = FND_API.g_miss_num) THEN
3324:
3325: IF OZF_DEBUG_HIGH_ON THEN
3326: OZF_Utility_PVT.debug_message('l_line_util_acc_amt =' ||l_line_util_acc_amt);
3327: OZF_Utility_PVT.debug_message('l_line_util_sum =' ||l_line_util_sum);
3328: OZF_Utility_PVT.debug_message('l_claim_line_rec.claim_currency_amount =' ||l_claim_line_rec.claim_currency_amount);
3329: END IF;
3330:
3331: IF (p_claim_line_rec.acctd_amount IS NULL OR p_claim_line_rec.acctd_amount = FND_API.g_miss_num) THEN
3332: IF l_claim_line_rec.claim_currency_amount IS NULL THEN
3340:
3341: ELSE
3342:
3343: -- Convert ACCTD_AMOUNT
3344: OZF_UTILITY_PVT.Convert_Currency(
3345: P_SET_OF_BOOKS_ID => G_CLAIM_SET_OF_BOOKS_ID,
3346: P_FROM_CURRENCY => G_CLAIM_CURRENCY,
3347: P_CONVERSION_DATE => G_CLAIM_EXC_DATE,
3348: P_CONVERSION_TYPE => G_CLAIM_EXC_TYPE,
3391: END IF;
3392:
3393: ------------------- amount rounding --------------------
3394: IF l_claim_line_rec.claim_currency_amount IS NOT NULL THEN
3395: l_claim_line_rec.claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.claim_currency_amount, G_CLAIM_CURRENCY);
3396: END IF;
3397:
3398: IF l_claim_line_rec.amount IS NOT NULL THEN
3399: l_claim_line_rec.amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.amount, l_claim_line_rec.currency_code);
3395: l_claim_line_rec.claim_currency_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.claim_currency_amount, G_CLAIM_CURRENCY);
3396: END IF;
3397:
3398: IF l_claim_line_rec.amount IS NOT NULL THEN
3399: l_claim_line_rec.amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.amount, l_claim_line_rec.currency_code);
3400: END IF;
3401:
3402: IF l_claim_line_rec.acctd_amount IS NOT NULL THEN
3403: l_claim_line_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.acctd_amount, l_function_currency);
3399: l_claim_line_rec.amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.amount, l_claim_line_rec.currency_code);
3400: END IF;
3401:
3402: IF l_claim_line_rec.acctd_amount IS NOT NULL THEN
3403: l_claim_line_rec.acctd_amount := OZF_UTILITY_PVT.CurrRound(l_claim_line_rec.acctd_amount, l_function_currency);
3404: END IF;
3405:
3406: -------------------- amount checking --------------------------------
3407: IF l_claim_line_rec.claim_currency_amount IS NOT NULL THEN
3549: FETCH c_claim_payment_method INTO l_payment_method;
3550: CLOSE c_claim_payment_method;
3551:
3552: IF OZF_DEBUG_HIGH_ON THEN
3553: OZF_Utility_PVT.debug_message(' Tax Action =' ||l_claim_line_rec.tax_action);
3554: OZF_Utility_PVT.debug_message(' Payment Method =' ||l_payment_method);
3555: END IF;
3556:
3557: IF l_payment_method IS NOT NULL THEN
3550: CLOSE c_claim_payment_method;
3551:
3552: IF OZF_DEBUG_HIGH_ON THEN
3553: OZF_Utility_PVT.debug_message(' Tax Action =' ||l_claim_line_rec.tax_action);
3554: OZF_Utility_PVT.debug_message(' Payment Method =' ||l_payment_method);
3555: END IF;
3556:
3557: IF l_payment_method IS NOT NULL THEN
3558:
3576: END IF;
3577:
3578: -------------------------- update --------------------
3579: IF OZF_DEBUG_HIGH_ON THEN
3580: OZF_Utility_PVT.debug_message(l_full_name ||': update');
3581: END IF;
3582:
3583: UPDATE ozf_claim_lines_all SET
3584: object_version_number = l_object_version_number,
3692: p_data => x_msg_data
3693: );
3694:
3695: IF OZF_DEBUG_HIGH_ON THEN
3696: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3697: END IF;
3698:
3699: EXCEPTION
3700: WHEN FND_API.g_exc_error THEN
3757:
3758: BEGIN
3759: ----------------------- initialize --------------------
3760: IF OZF_DEBUG_HIGH_ON THEN
3761: OZF_Utility_PVT.debug_message(l_full_name||': start');
3762: END IF;
3763:
3764: IF FND_API.to_boolean(p_init_msg_list) THEN
3765: FND_MSG_PUB.initialize;
3777: x_return_status := FND_API.g_ret_sts_success;
3778:
3779: ---------------------- validate ------------------------
3780: IF OZF_DEBUG_HIGH_ON THEN
3781: OZF_Utility_PVT.debug_message(l_full_name||': check items');
3782: END IF;
3783:
3784: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
3785: Check_Claim_Line_Items(
3795: END IF;
3796: END IF;
3797:
3798: IF OZF_DEBUG_HIGH_ON THEN
3799: OZF_Utility_PVT.debug_message(l_full_name||': check record');
3800: END IF;
3801:
3802: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
3803: Check_Claim_Line_Record(
3820: p_data => x_msg_data
3821: );
3822:
3823: IF OZF_DEBUG_HIGH_ON THEN
3824: OZF_Utility_PVT.debug_message(l_full_name ||': end');
3825: END IF;
3826:
3827: EXCEPTION
3828: WHEN FND_API.g_exc_error THEN
3930: -- For Create_Claim_Line, when claim_line_id is passed in, we need to
3931: -- check if this claim_line_id is unique.
3932: IF p_validation_mode = JTF_PLSQL_API.g_create AND
3933: p_claim_line_rec.claim_line_id IS NOT NULL THEN
3934: IF OZF_Utility_PVT.check_uniqueness(
3935: 'ozf_claim_lines',
3936: 'claim_line_id = ' || p_claim_line_rec.claim_line_id
3937: ) = FND_API.g_false THEN
3938: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5135: -------------------- initialize -------------------------
5136: SAVEPOINT split_claim_line;
5137:
5138: IF OZF_DEBUG_HIGH_ON THEN
5139: OZF_Utility_PVT.debug_message(l_full_name||': start');
5140: END IF;
5141:
5142: IF FND_API.to_boolean(p_init_msg_list) THEN
5143: FND_MSG_PUB.initialize;
5348: AND utilization_id = -1);
5349: END IF; -- product id is null
5350:
5351: IF OZF_DEBUG_LOW_ON THEN
5352: OZF_Utility_PVT.debug_message('l_claim_line_id'||l_claim_line_id);
5353: END IF;
5354:
5355: -- Fix for bug 7658894
5356: OPEN csr_claim_line_util_sum(l_claim_line_id);
5357: FETCH csr_claim_line_util_sum INTO l_sum_util_amount,l_sum_util_acctd_amount;
5358: CLOSE csr_claim_line_util_sum;
5359:
5360: IF OZF_DEBUG_LOW_ON THEN
5361: OZF_Utility_PVT.debug_message('l_sum_util_amount'||l_sum_util_amount);
5362: OZF_Utility_PVT.debug_message('l_sum_util_acctd_amount'||l_sum_util_acctd_amount);
5363: END IF;
5364:
5365: OPEN csr_claim_line_sum(l_claim_line_id);
5358: CLOSE csr_claim_line_util_sum;
5359:
5360: IF OZF_DEBUG_LOW_ON THEN
5361: OZF_Utility_PVT.debug_message('l_sum_util_amount'||l_sum_util_amount);
5362: OZF_Utility_PVT.debug_message('l_sum_util_acctd_amount'||l_sum_util_acctd_amount);
5363: END IF;
5364:
5365: OPEN csr_claim_line_sum(l_claim_line_id);
5366: FETCH csr_claim_line_sum INTO l_line_amount,l_line_acctd_amount;
5366: FETCH csr_claim_line_sum INTO l_line_amount,l_line_acctd_amount;
5367: CLOSE csr_claim_line_sum;
5368:
5369: IF OZF_DEBUG_LOW_ON THEN
5370: OZF_Utility_PVT.debug_message('l_line_amount'||l_line_amount);
5371: OZF_Utility_PVT.debug_message('l_sum_util_amount'||l_sum_util_amount);
5372: END IF;
5373:
5374: IF (l_line_amount = l_sum_util_amount) THEN
5367: CLOSE csr_claim_line_sum;
5368:
5369: IF OZF_DEBUG_LOW_ON THEN
5370: OZF_Utility_PVT.debug_message('l_line_amount'||l_line_amount);
5371: OZF_Utility_PVT.debug_message('l_sum_util_amount'||l_sum_util_amount);
5372: END IF;
5373:
5374: IF (l_line_amount = l_sum_util_amount) THEN
5375: update ozf_claim_lines_all
5392: p_data => x_msg_data
5393: );
5394:
5395: IF OZF_DEBUG_HIGH_ON THEN
5396: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5397: END IF;
5398:
5399: EXCEPTION
5400: WHEN FND_API.g_exc_error THEN