[Home] [Help]
528: );
529: EXCEPTION
530: WHEN OTHERS THEN
531: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
532: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TRIANG_API_ERR');
533: FND_MSG_PUB.add;
534: END IF;
535: RAISE FND_API.g_exc_error;
536: END;
583:
584: WHEN OTHERS THEN
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
586: IF OZF_DEBUG_LOW_ON THEN
587: FND_MESSAGE.set_name('OZF', 'OZF_API_DEBUG_MESSAGE');
588: FND_MESSAGE.set_token('TEXT', l_full_name||': An error happened while converting line amount');
589: FND_MSG_PUB.add;
590: END IF;
591:
584: WHEN OTHERS THEN
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
586: IF OZF_DEBUG_LOW_ON THEN
587: FND_MESSAGE.set_name('OZF', 'OZF_API_DEBUG_MESSAGE');
588: FND_MESSAGE.set_token('TEXT', l_full_name||': An error happened while converting line amount');
589: FND_MSG_PUB.add;
590: END IF;
591:
592: END Convert_Line_Amount;
1056: , X_access => l_access);
1057:
1058: IF l_access = 'N' THEN
1059: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1060: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
1061: FND_MSG_PUB.add;
1062: END IF;
1063: RAISE FND_API.G_EXC_ERROR;
1064: END IF;
1103: -- raise error if claim currency amount is null
1104: -- added by slkrishn
1105: IF l_claim_line_tbl(j).claim_currency_amount IS NULL THEN
1106: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1107: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
1108: FND_MSG_PUB.add;
1109: END IF;
1110: x_error_index := j;
1111: RAISE FND_API.g_exc_error;
1141: IF l_claim_class <> 'GROUP' THEN
1142: IF sign(l_exist_total_amt + l_create_total_amt) <> sign(l_claim_amount)
1143: THEN
1144: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1145: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
1146: FND_MSG_PUB.add;
1147: END IF;
1148: RAISE FND_API.g_exc_error;
1149: END IF;
1152:
1153: IF ABS((l_exist_total_amt + l_create_total_amt)) > ABS(l_claim_amount) AND
1154: l_claim_class <> 'GROUP' THEN
1155: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1156: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
1157: FND_MSG_PUB.add;
1158: END IF;
1159: RAISE FND_API.g_exc_error;
1160: END IF;
1415: , X_access => l_access);
1416:
1417: IF l_access = 'N' THEN
1418: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1419: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
1420: FND_MSG_PUB.add;
1421: END IF;
1422: RAISE FND_API.G_EXC_ERROR;
1423: END IF;
1565: END IF;
1566: -- raise error if claim currency amount is null
1567: ELSE
1568: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1569: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
1570: FND_MSG_PUB.add;
1571: END IF;
1572: RAISE FND_API.g_exc_error;
1573: END IF;
1618: -- 20-APR-04 Commenting the sign check for the claim amounts, as for a claim negative line amount
1619: -- can be specified to associate negative accruals. Similarily valid for DED/OPM.
1620: --IF SIGN(l_claim_line_rec.claim_currency_amount) <> SIGN(l_claim_amount) THEN
1621: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1622: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
1623: -- FND_MSG_PUB.add;
1624: -- END IF;
1625: -- RAISE FND_API.g_exc_error;
1626: --END IF;
1639: -- comparison of claim amount and line amount (claim_currency_amount)
1640: IF l_line_sum_amt IS NOT NULL THEN
1641: IF ABS((l_line_sum_amt + l_claim_line_rec.claim_currency_amount)) > ABS(l_claim_amount) THEN
1642: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1643: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
1644: FND_MSG_PUB.add;
1645: END IF;
1646: RAISE FND_API.g_exc_error;
1647: END IF;
1646: RAISE FND_API.g_exc_error;
1647: END IF;
1648: ELSIF ABS(l_claim_line_rec.claim_currency_amount) > ABS(l_claim_amount) THEN
1649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1650: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
1651: FND_MSG_PUB.add;
1652: END IF;
1653: RAISE FND_API.g_exc_error;
1654: END IF;
2055: , X_access => l_access);
2056:
2057: IF l_access = 'N' THEN
2058: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2059: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2060: FND_MSG_PUB.add;
2061: END IF;
2062: RAISE FND_API.G_EXC_ERROR;
2063: END IF;
2091: IF (sign(l_effective_line_amount) <> sign(l_claim_amount))
2092: AND l_effective_line_amount <> 0
2093: THEN
2094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2095: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
2096: FND_MSG_PUB.add;
2097: END IF;
2098: RAISE FND_API.g_exc_error;
2099: END IF;
2100:
2101: IF ABS(l_effective_line_amount) > ABS(l_claim_amount)
2102: THEN
2103: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2104: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
2105: FND_MSG_PUB.add;
2106: END IF;
2107: RAISE FND_API.g_exc_error;
2108: END IF;
2306: , X_access => l_access);
2307:
2308: IF l_access = 'N' THEN
2309: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2310: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2311: FND_MSG_PUB.add;
2312: END IF;
2313: RAISE FND_API.G_EXC_ERROR;
2314: END IF;
2328: -- comparison of claim amount and line amount (claim_currency_amount)
2329: --IF l_line_sum_amt IS NOT NULL THEN
2330: --IF ABS(l_line_sum_amt) > ABS(l_claim_amount) THEN
2331: --IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2332: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
2333: --FND_MSG_PUB.add;
2334: --END IF;
2335: --RAISE FND_API.g_exc_error;
2336: --END IF;
2378: AND object_version_number = p_object_version;
2379:
2380: IF (SQL%NOTFOUND) THEN
2381: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2382: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2383: FND_MSG_PUB.add;
2384: END IF;
2385: RAISE FND_API.g_exc_error;
2386: END IF;
2496: FETCH c_claim_line INTO l_claim_line_id;
2497: IF (c_claim_line%NOTFOUND) THEN
2498: CLOSE c_claim_line;
2499: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2500: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2501: FND_MSG_PUB.add;
2502: END IF;
2503: RAISE FND_API.g_exc_error;
2504: END IF;
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;
2524: END IF;
2525: FND_MSG_PUB.count_and_get(
2526: p_encoded => FND_API.g_false,
2613: -------------- Lock items when earnings is associated --------------
2614: IF l_earnings_associated_flag = FND_API.g_true THEN
2615: IF NVL(p_claim_line_rec.source_object_id,FND_API.g_miss_num) <> l_source_object_id THEN
2616: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2617: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2618: FND_MESSAGE.set_token('LOCK', 'Name OR Line / Product');
2619: FND_MSG_PUB.add;
2620: END IF;
2621: x_return_status := FND_API.g_ret_sts_error;
2614: IF l_earnings_associated_flag = FND_API.g_true THEN
2615: IF NVL(p_claim_line_rec.source_object_id,FND_API.g_miss_num) <> l_source_object_id THEN
2616: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2617: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2618: FND_MESSAGE.set_token('LOCK', 'Name OR Line / Product');
2619: FND_MSG_PUB.add;
2620: END IF;
2621: x_return_status := FND_API.g_ret_sts_error;
2622: RETURN;
2622: RETURN;
2623: END IF;
2624: IF NVL(p_claim_line_rec.source_object_class,FND_API.g_miss_char) <> l_source_object_class THEN
2625: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2626: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2627: FND_MESSAGE.set_token('LOCK', 'Type');
2628: FND_MSG_PUB.add;
2629: END IF;
2630: x_return_status := FND_API.g_ret_sts_error;
2623: END IF;
2624: IF NVL(p_claim_line_rec.source_object_class,FND_API.g_miss_char) <> l_source_object_class THEN
2625: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2626: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2627: FND_MESSAGE.set_token('LOCK', 'Type');
2628: FND_MSG_PUB.add;
2629: END IF;
2630: x_return_status := FND_API.g_ret_sts_error;
2631: RETURN;
2631: RETURN;
2632: END IF;
2633: IF NVL(p_claim_line_rec.source_object_type_id,FND_API.g_miss_num) <> l_source_object_type_id THEN
2634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2635: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2636: FND_MESSAGE.set_token('LOCK', 'Type');
2637: FND_MSG_PUB.add;
2638: END IF;
2639: x_return_status := FND_API.g_ret_sts_error;
2632: END IF;
2633: IF NVL(p_claim_line_rec.source_object_type_id,FND_API.g_miss_num) <> l_source_object_type_id THEN
2634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2635: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2636: FND_MESSAGE.set_token('LOCK', 'Type');
2637: FND_MSG_PUB.add;
2638: END IF;
2639: x_return_status := FND_API.g_ret_sts_error;
2640: RETURN;
2640: RETURN;
2641: END IF;
2642: IF NVL(p_claim_line_rec.plan_id,FND_API.g_miss_num) <> l_plan_id THEN
2643: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2644: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2645: FND_MESSAGE.set_token('LOCK', 'Type');
2646: FND_MSG_PUB.add;
2647: END IF;
2648: x_return_status := FND_API.g_ret_sts_error;
2641: END IF;
2642: IF NVL(p_claim_line_rec.plan_id,FND_API.g_miss_num) <> l_plan_id THEN
2643: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2644: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2645: FND_MESSAGE.set_token('LOCK', 'Type');
2646: FND_MSG_PUB.add;
2647: END IF;
2648: x_return_status := FND_API.g_ret_sts_error;
2649: RETURN;
2649: RETURN;
2650: END IF;
2651: IF NVL(p_claim_line_rec.item_id,FND_API.g_miss_num) <> l_item_id THEN
2652: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2653: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2654: FND_MESSAGE.set_token('LOCK', 'Line / Product');
2655: FND_MSG_PUB.add;
2656: END IF;
2657: x_return_status := FND_API.g_ret_sts_error;
2650: END IF;
2651: IF NVL(p_claim_line_rec.item_id,FND_API.g_miss_num) <> l_item_id THEN
2652: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2653: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2654: FND_MESSAGE.set_token('LOCK', 'Line / Product');
2655: FND_MSG_PUB.add;
2656: END IF;
2657: x_return_status := FND_API.g_ret_sts_error;
2658: RETURN;
2659: END IF;
2660: /*
2661: IF NVL(p_claim_line_rec.item_description,FND_API.g_miss_char) <> l_item_description THEN
2662: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2663: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2664: FND_MESSAGE.set_token('LOCK', 'ITEM_DESCRIPTION');
2665: FND_MSG_PUB.add;
2666: END IF;
2667: x_return_status := FND_API.g_ret_sts_error;
2660: /*
2661: IF NVL(p_claim_line_rec.item_description,FND_API.g_miss_char) <> l_item_description THEN
2662: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2663: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2664: FND_MESSAGE.set_token('LOCK', 'ITEM_DESCRIPTION');
2665: FND_MSG_PUB.add;
2666: END IF;
2667: x_return_status := FND_API.g_ret_sts_error;
2668: RETURN;
2669: END IF;
2670: */
2671: IF NVL(p_claim_line_rec.activity_type,FND_API.g_miss_char) <> l_activity_type THEN
2672: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2673: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2674: FND_MESSAGE.set_token('LOCK', 'Name');
2675: FND_MSG_PUB.add;
2676: END IF;
2677: x_return_status := FND_API.g_ret_sts_error;
2670: */
2671: IF NVL(p_claim_line_rec.activity_type,FND_API.g_miss_char) <> l_activity_type THEN
2672: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2673: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2674: FND_MESSAGE.set_token('LOCK', 'Name');
2675: FND_MSG_PUB.add;
2676: END IF;
2677: x_return_status := FND_API.g_ret_sts_error;
2678: RETURN;
2678: RETURN;
2679: END IF;
2680: IF NVL(p_claim_line_rec.activity_id,FND_API.g_miss_num) <> l_activity_id THEN
2681: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2682: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2683: FND_MESSAGE.set_token('LOCK', 'Name');
2684: FND_MSG_PUB.add;
2685: END IF;
2686: x_return_status := FND_API.g_ret_sts_error;
2679: END IF;
2680: IF NVL(p_claim_line_rec.activity_id,FND_API.g_miss_num) <> l_activity_id THEN
2681: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2682: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2683: FND_MESSAGE.set_token('LOCK', 'Name');
2684: FND_MSG_PUB.add;
2685: END IF;
2686: x_return_status := FND_API.g_ret_sts_error;
2687: RETURN;
2808: , X_access => l_access);
2809:
2810: IF l_access = 'N' THEN
2811: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2812: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2813: FND_MSG_PUB.add;
2814: END IF;
2815: RAISE FND_API.G_EXC_ERROR;
2816: END IF;
2869:
2870: -------- raise error if claim currency amount is null ----------
2871: IF l_claim_line_tbl(j).claim_currency_amount IS NULL THEN
2872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2873: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
2874: FND_MSG_PUB.add;
2875: END IF;
2876: x_error_index := j;
2877: RAISE FND_API.g_exc_error;
2903: IF l_claim_class <> 'GROUP' THEN
2904: IF sign(l_exist_total_amt - l_old_upd_total_amt + l_new_upd_total_amt) <> sign(l_claim_amount)
2905: THEN
2906: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2907: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
2908: FND_MSG_PUB.add;
2909: END IF;
2910: RAISE FND_API.g_exc_error;
2911: END IF;
2914: IF p_mode <> OZF_CLAIM_UTILITY_PVT.g_request_mode OR
2915: l_claim_class <> 'GROUP' THEN
2916: IF ABS(l_exist_total_amt - l_old_upd_total_amt + l_new_upd_total_amt) > ABS(l_claim_amount) THEN
2917: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2918: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
2919: FND_MSG_PUB.add;
2920: END IF;
2921: RAISE FND_API.g_exc_error;
2922: END IF;
3172: , X_access => l_access);
3173:
3174: IF l_access = 'N' THEN
3175: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3176: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3177: FND_MSG_PUB.add;
3178: END IF;
3179: RAISE FND_API.G_EXC_ERROR;
3180: END IF;
3282:
3283: -------- raise error if claim currency amount is null ----------
3284: IF l_claim_line_rec.claim_currency_amount IS NULL THEN
3285: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3286: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
3287: FND_MSG_PUB.add;
3288: END IF;
3289: RAISE FND_API.g_exc_error;
3290: END IF;
3425: -- IF l_claim_amount <> 0 THEN
3426: -- Sign of claim_currency_amount should be the same as claim amount_remaining
3427: -- IF SIGN(l_claim_line_rec.claim_currency_amount) <> SIGN(l_claim_amount) THEN
3428: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3429: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
3430: -- FND_MSG_PUB.add;
3431: -- END IF;
3432: -- RAISE FND_API.g_exc_error;
3433: -- END IF;
3457: -- comparison of claim amount and line amount
3458: IF l_line_sum_amt IS NOT NULL THEN
3459: IF ABS(l_line_sum_amt + l_claim_line_rec.claim_currency_amount) > ABS(l_claim_amount) THEN
3460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3461: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
3462: FND_MSG_PUB.add;
3463: END IF;
3464: RAISE FND_API.g_exc_error;
3465: END IF;
3464: RAISE FND_API.g_exc_error;
3465: END IF;
3466: ELSIF ABS(l_claim_line_rec.claim_currency_amount) > ABS(l_claim_amount) THEN
3467: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3468: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
3469: FND_MSG_PUB.add;
3470: END IF;
3471: RAISE FND_API.g_exc_error;
3472: END IF;
3512: ------- check line acctd amount is more then earnings acctd amount -------
3513:
3514: IF ABS(nvl(l_claim_line_rec.acctd_amount,0)) < ABS(l_line_util_acc_amt) THEN
3515: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3516: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_EXCESS_LINE_AMT');
3517: FND_MSG_PUB.add;
3518: END IF;
3519: RAISE FND_API.g_exc_error;
3520: END IF;
3671: AND object_version_number = l_claim_line_rec.object_version_number;
3672:
3673: IF (SQL%NOTFOUND) THEN
3674: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3675: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3676: FND_MSG_PUB.add;
3677: END IF;
3678: RAISE FND_API.g_exc_error;
3679: END IF;
3874: ------------------------ CLAIM_ID -------------------------------
3875: IF p_claim_line_rec.claim_id <> FND_API.g_miss_num AND
3876: p_claim_line_rec.claim_id IS NULL THEN
3877: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3878: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
3879: FND_MESSAGE.set_token('COLUMN', 'CLAIM_ID');
3880: FND_MSG_PUB.add;
3881: END IF;
3882:
3875: IF p_claim_line_rec.claim_id <> FND_API.g_miss_num AND
3876: p_claim_line_rec.claim_id IS NULL THEN
3877: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3878: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
3879: FND_MESSAGE.set_token('COLUMN', 'CLAIM_ID');
3880: FND_MSG_PUB.add;
3881: END IF;
3882:
3883: x_return_status := FND_API.g_ret_sts_error;
3885: ------------------------ LINE_NUMBER -------------------------------
3886: ELSIF p_claim_line_rec.line_number <> FND_API.g_miss_num AND
3887: p_claim_line_rec.line_number IS NULL THEN
3888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3889: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
3890: FND_MESSAGE.set_token('COLUMN', 'LINE_NUMBER');
3891: FND_MSG_PUB.add;
3892: END IF;
3893:
3886: ELSIF p_claim_line_rec.line_number <> FND_API.g_miss_num AND
3887: p_claim_line_rec.line_number IS NULL THEN
3888: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3889: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
3890: FND_MESSAGE.set_token('COLUMN', 'LINE_NUMBER');
3891: FND_MSG_PUB.add;
3892: END IF;
3893:
3894: x_return_status := FND_API.g_ret_sts_error;
3896: ------------------------ SET_OF_BOOKS_ID -------------------------------
3897: ELSIF p_claim_line_rec.set_of_books_id <> FND_API.g_miss_num AND
3898: p_claim_line_rec.set_of_books_id IS NULL THEN
3899: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3900: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
3901: FND_MESSAGE.set_token('COLUMN', 'SET_OF_BOOKS_ID');
3902: FND_MSG_PUB.add;
3903: END IF;
3904:
3897: ELSIF p_claim_line_rec.set_of_books_id <> FND_API.g_miss_num AND
3898: p_claim_line_rec.set_of_books_id IS NULL THEN
3899: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3900: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
3901: FND_MESSAGE.set_token('COLUMN', 'SET_OF_BOOKS_ID');
3902: FND_MSG_PUB.add;
3903: END IF;
3904:
3905: x_return_status := FND_API.g_ret_sts_error;
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
3939: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUPLICATE_VALUE');
3940: FND_MESSAGE.set_token('COLLUMN', 'CLAIM_LINE_ID');
3941: FND_MSG_PUB.add;
3942: END IF;
3943: x_return_status := FND_API.g_ret_sts_error;
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
3939: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUPLICATE_VALUE');
3940: FND_MESSAGE.set_token('COLLUMN', 'CLAIM_LINE_ID');
3941: FND_MSG_PUB.add;
3942: END IF;
3943: x_return_status := FND_API.g_ret_sts_error;
3944: RETURN;
4012: p_claim_line_rec.valid_flag IS NOT NULL THEN
4013: IF p_claim_line_rec.valid_flag <> FND_API.g_true AND
4014: p_claim_line_rec.valid_flag <> FND_API.g_false THEN
4015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4016: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4017: FND_MESSAGE.set_token('FLAG', 'VALID_FLAG');
4018: FND_MSG_PUB.add;
4019: END IF;
4020: x_return_status := FND_API.g_ret_sts_error;
4013: IF p_claim_line_rec.valid_flag <> FND_API.g_true AND
4014: p_claim_line_rec.valid_flag <> FND_API.g_false THEN
4015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4016: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4017: FND_MESSAGE.set_token('FLAG', 'VALID_FLAG');
4018: FND_MSG_PUB.add;
4019: END IF;
4020: x_return_status := FND_API.g_ret_sts_error;
4021: RETURN;
4027: p_claim_line_rec.approved_flag IS NOT NULL THEN
4028: IF p_claim_line_rec.approved_flag <> FND_API.g_true AND
4029: p_claim_line_rec.approved_flag <> FND_API.g_false THEN
4030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4031: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4032: FND_MESSAGE.set_token('FLAG', 'APPROVED_FLAG');
4033: FND_MSG_PUB.add;
4034: END IF;
4035: x_return_status := FND_API.g_ret_sts_error;
4028: IF p_claim_line_rec.approved_flag <> FND_API.g_true AND
4029: p_claim_line_rec.approved_flag <> FND_API.g_false THEN
4030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4031: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4032: FND_MESSAGE.set_token('FLAG', 'APPROVED_FLAG');
4033: FND_MSG_PUB.add;
4034: END IF;
4035: x_return_status := FND_API.g_ret_sts_error;
4036: RETURN;
4042: p_claim_line_rec.performance_complete_flag IS NOT NULL THEN
4043: IF p_claim_line_rec.performance_complete_flag <> FND_API.g_true AND
4044: p_claim_line_rec.performance_complete_flag <> FND_API.g_false THEN
4045: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4046: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4047: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_COMPLETE_FLAG');
4048: FND_MSG_PUB.add;
4049: END IF;
4050: x_return_status := FND_API.g_ret_sts_error;
4043: IF p_claim_line_rec.performance_complete_flag <> FND_API.g_true AND
4044: p_claim_line_rec.performance_complete_flag <> FND_API.g_false THEN
4045: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4046: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4047: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_COMPLETE_FLAG');
4048: FND_MSG_PUB.add;
4049: END IF;
4050: x_return_status := FND_API.g_ret_sts_error;
4051: RETURN;
4057: p_claim_line_rec.performance_attached_flag IS NOT NULL THEN
4058: IF p_claim_line_rec.performance_attached_flag <> FND_API.g_true AND
4059: p_claim_line_rec.performance_attached_flag <> FND_API.g_false THEN
4060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4061: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4062: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_ATTACHED_FLAG');
4063: FND_MSG_PUB.add;
4064: END IF;
4065: x_return_status := FND_API.g_ret_sts_error;
4058: IF p_claim_line_rec.performance_attached_flag <> FND_API.g_true AND
4059: p_claim_line_rec.performance_attached_flag <> FND_API.g_false THEN
4060: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4061: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4062: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_ATTACHED_FLAG');
4063: FND_MSG_PUB.add;
4064: END IF;
4065: x_return_status := FND_API.g_ret_sts_error;
4066: RETURN;
4072: p_claim_line_rec.earnings_associated_flag IS NOT NULL THEN
4073: IF p_claim_line_rec.earnings_associated_flag <> FND_API.g_true AND
4074: p_claim_line_rec.earnings_associated_flag <> FND_API.g_false THEN
4075: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4076: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4077: FND_MESSAGE.set_token('FLAG', 'EARNINGS_ASSOCIATED_FLAG');
4078: FND_MSG_PUB.add;
4079: END IF;
4080: x_return_status := FND_API.g_ret_sts_error;
4073: IF p_claim_line_rec.earnings_associated_flag <> FND_API.g_true AND
4074: p_claim_line_rec.earnings_associated_flag <> FND_API.g_false THEN
4075: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4076: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4077: FND_MESSAGE.set_token('FLAG', 'EARNINGS_ASSOCIATED_FLAG');
4078: FND_MSG_PUB.add;
4079: END IF;
4080: x_return_status := FND_API.g_ret_sts_error;
4081: RETURN;
4210: CLOSE csr_ap_tax_code;
4211:
4212: IF l_tax_code IS NULL THEN
4213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4214: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TAX_CODE_ERR');
4215: FND_MSG_PUB.add;
4216: END IF;
4217: x_return_status := FND_API.g_ret_sts_error;
4218: RETURN;
4223: CLOSE csr_ar_tax_code;
4224:
4225: IF l_tax_code IS NULL THEN
4226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4227: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TAX_CODE_ERR');
4228: FND_MSG_PUB.add;
4229: END IF;
4230: x_return_status := FND_API.g_ret_sts_error;
4231: RETURN;
4231: RETURN;
4232: END IF;
4233: ELSIF l_tax_for IS NULL THEN
4234: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4235: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TAX_CODE_ERR');
4236: FND_MSG_PUB.add;
4237: END IF;
4238: x_return_status := FND_API.g_ret_sts_error;
4239: RETURN;
4249: CLOSE csr_customer_trx_id;
4250:
4251: IF l_source_object_id <> p_complete_rec.source_object_id THEN
4252: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4253: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVLINE_NOT_IN_INV');
4254: FND_MSG_PUB.add;
4255: END IF;
4256: x_return_status := FND_API.g_ret_sts_error;
4257: RETURN;
4382: FETCH c_claim_line INTO l_claim_line_rec;
4383: IF c_claim_line%NOTFOUND THEN
4384: CLOSE c_claim_line;
4385: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4386: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4387: FND_MSG_PUB.add;
4388: END IF;
4389: RAISE FND_API.g_exc_error;
4390: END IF;