[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;
1053: IF (p_tax_action IS NOT NULL AND p_tax_action <> FND_API.G_MISS_CHAR) THEN
1054: IF l_payment_method IN ( 'EFT','WIRE','CHECK','AP_DEBIT', 'AP_DEFAULT') AND
1055: l_vendor_id IS NULL AND l_vendor_site_id IS NULL THEN
1056: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1057: FND_MESSAGE.set_name('OZF', 'OZF_VENDOR_INFO_MISSING');
1058: FND_MSG_PUB.add;
1059: END IF;
1060: RAISE FND_API.g_exc_error;
1061: END IF;
1312: , X_access => l_access);
1313:
1314: IF l_access = 'N' THEN
1315: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1316: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
1317: FND_MSG_PUB.add;
1318: END IF;
1319: RAISE FND_API.G_EXC_ERROR;
1320: END IF;
1381: END IF;
1382:
1383: IF l_inv_quantity < l_tot_quantity THEN
1384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1385: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_INV_QTY');
1386: FND_MSG_PUB.add;
1387: END IF;
1388: x_error_index := j;
1389: RAISE FND_API.g_exc_error;
1402: -- raise error if claim currency amount is null
1403: -- added by slkrishn
1404: IF l_claim_line_tbl(j).claim_currency_amount IS NULL THEN
1405: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1406: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
1407: FND_MSG_PUB.add;
1408: END IF;
1409: x_error_index := j;
1410: RAISE FND_API.g_exc_error;
1440: IF l_claim_class <> 'GROUP' THEN
1441: IF sign(l_exist_total_amt + l_create_total_amt) <> sign(l_claim_amount)
1442: THEN
1443: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1444: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
1445: FND_MSG_PUB.add;
1446: END IF;
1447: RAISE FND_API.g_exc_error;
1448: END IF;
1451:
1452: IF ABS((l_exist_total_amt + l_create_total_amt)) > ABS(l_claim_amount) AND
1453: l_claim_class <> 'GROUP' THEN
1454: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1455: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
1456: FND_MSG_PUB.add;
1457: END IF;
1458: RAISE FND_API.g_exc_error;
1459: END IF;
1733: , X_access => l_access);
1734:
1735: IF l_access = 'N' THEN
1736: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1737: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
1738: FND_MSG_PUB.add;
1739: END IF;
1740: RAISE FND_API.G_EXC_ERROR;
1741: END IF;
1897: END IF;
1898: -- raise error if claim currency amount is null
1899: ELSE
1900: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1901: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
1902: FND_MSG_PUB.add;
1903: END IF;
1904: RAISE FND_API.g_exc_error;
1905: END IF;
1954: -- 20-APR-04 Commenting the sign check for the claim amounts, as for a claim negative line amount
1955: -- can be specified to associate negative accruals. Similarily valid for DED/OPM.
1956: --IF SIGN(l_claim_line_rec.claim_currency_amount) <> SIGN(l_claim_amount) THEN
1957: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1958: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
1959: -- FND_MSG_PUB.add;
1960: -- END IF;
1961: -- RAISE FND_API.g_exc_error;
1962: --END IF;
1975: -- comparison of claim amount and line amount (claim_currency_amount)
1976: IF l_line_sum_amt IS NOT NULL THEN
1977: IF ABS((l_line_sum_amt + l_claim_line_rec.claim_currency_amount)) > ABS(l_claim_amount) THEN
1978: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1979: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
1980: FND_MSG_PUB.add;
1981: END IF;
1982: RAISE FND_API.g_exc_error;
1983: END IF;
1982: RAISE FND_API.g_exc_error;
1983: END IF;
1984: ELSIF ABS(l_claim_line_rec.claim_currency_amount) > ABS(l_claim_amount) THEN
1985: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1986: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
1987: FND_MSG_PUB.add;
1988: END IF;
1989: RAISE FND_API.g_exc_error;
1990: END IF;
2395: , X_access => l_access);
2396:
2397: IF l_access = 'N' THEN
2398: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2399: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2400: FND_MSG_PUB.add;
2401: END IF;
2402: RAISE FND_API.G_EXC_ERROR;
2403: END IF;
2431: IF (sign(l_effective_line_amount) <> sign(l_claim_amount))
2432: AND l_effective_line_amount <> 0
2433: THEN
2434: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2435: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
2436: FND_MSG_PUB.add;
2437: END IF;
2438: RAISE FND_API.g_exc_error;
2439: END IF;
2440:
2441: IF ABS(l_effective_line_amount) > ABS(l_claim_amount)
2442: THEN
2443: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2444: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
2445: FND_MSG_PUB.add;
2446: END IF;
2447: RAISE FND_API.g_exc_error;
2448: END IF;
2656: , X_access => l_access);
2657:
2658: IF l_access = 'N' THEN
2659: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2660: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2661: FND_MSG_PUB.add;
2662: END IF;
2663: RAISE FND_API.G_EXC_ERROR;
2664: END IF;
2678: -- comparison of claim amount and line amount (claim_currency_amount)
2679: --IF l_line_sum_amt IS NOT NULL THEN
2680: --IF ABS(l_line_sum_amt) > ABS(l_claim_amount) 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_EXCESS_AMOUNT');
2683: --FND_MSG_PUB.add;
2684: --END IF;
2685: --RAISE FND_API.g_exc_error;
2686: --END IF;
2730: AND object_version_number = p_object_version;
2731:
2732: IF (SQL%NOTFOUND) THEN
2733: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2734: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2735: FND_MSG_PUB.add;
2736: END IF;
2737: RAISE FND_API.g_exc_error;
2738: END IF;
2848: FETCH c_claim_line INTO l_claim_line_id;
2849: IF (c_claim_line%NOTFOUND) THEN
2850: CLOSE c_claim_line;
2851: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2852: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2853: FND_MSG_PUB.add;
2854: END IF;
2855: RAISE FND_API.g_exc_error;
2856: END IF;
2870: EXCEPTION
2871: WHEN OZF_Utility_PVT.resource_locked THEN
2872: x_return_status := FND_API.g_ret_sts_error;
2873: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2874: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
2875: FND_MSG_PUB.add;
2876: END IF;
2877: FND_MSG_PUB.count_and_get(
2878: p_encoded => FND_API.g_false,
2965: -------------- Lock items when earnings is associated --------------
2966: IF l_earnings_associated_flag = FND_API.g_true THEN
2967: IF NVL(p_claim_line_rec.source_object_id,FND_API.g_miss_num) <> l_source_object_id THEN
2968: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2969: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2970: FND_MESSAGE.set_token('LOCK', 'Name OR Line / Product');
2971: FND_MSG_PUB.add;
2972: END IF;
2973: x_return_status := FND_API.g_ret_sts_error;
2966: IF l_earnings_associated_flag = FND_API.g_true THEN
2967: IF NVL(p_claim_line_rec.source_object_id,FND_API.g_miss_num) <> l_source_object_id THEN
2968: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2969: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2970: FND_MESSAGE.set_token('LOCK', 'Name OR Line / Product');
2971: FND_MSG_PUB.add;
2972: END IF;
2973: x_return_status := FND_API.g_ret_sts_error;
2974: RETURN;
2974: RETURN;
2975: END IF;
2976: IF NVL(p_claim_line_rec.source_object_class,FND_API.g_miss_char) <> l_source_object_class THEN
2977: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2978: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2979: FND_MESSAGE.set_token('LOCK', 'Type');
2980: FND_MSG_PUB.add;
2981: END IF;
2982: x_return_status := FND_API.g_ret_sts_error;
2975: END IF;
2976: IF NVL(p_claim_line_rec.source_object_class,FND_API.g_miss_char) <> l_source_object_class THEN
2977: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2978: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2979: FND_MESSAGE.set_token('LOCK', 'Type');
2980: FND_MSG_PUB.add;
2981: END IF;
2982: x_return_status := FND_API.g_ret_sts_error;
2983: RETURN;
2983: RETURN;
2984: END IF;
2985: IF NVL(p_claim_line_rec.source_object_type_id,FND_API.g_miss_num) <> l_source_object_type_id THEN
2986: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2987: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2988: FND_MESSAGE.set_token('LOCK', 'Type');
2989: FND_MSG_PUB.add;
2990: END IF;
2991: x_return_status := FND_API.g_ret_sts_error;
2984: END IF;
2985: IF NVL(p_claim_line_rec.source_object_type_id,FND_API.g_miss_num) <> l_source_object_type_id THEN
2986: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2987: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2988: FND_MESSAGE.set_token('LOCK', 'Type');
2989: FND_MSG_PUB.add;
2990: END IF;
2991: x_return_status := FND_API.g_ret_sts_error;
2992: RETURN;
2992: RETURN;
2993: END IF;
2994: IF NVL(p_claim_line_rec.plan_id,FND_API.g_miss_num) <> l_plan_id THEN
2995: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2996: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2997: FND_MESSAGE.set_token('LOCK', 'Type');
2998: FND_MSG_PUB.add;
2999: END IF;
3000: x_return_status := FND_API.g_ret_sts_error;
2993: END IF;
2994: IF NVL(p_claim_line_rec.plan_id,FND_API.g_miss_num) <> l_plan_id THEN
2995: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2996: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
2997: FND_MESSAGE.set_token('LOCK', 'Type');
2998: FND_MSG_PUB.add;
2999: END IF;
3000: x_return_status := FND_API.g_ret_sts_error;
3001: RETURN;
3001: RETURN;
3002: END IF;
3003: IF NVL(p_claim_line_rec.item_id,FND_API.g_miss_num) <> l_item_id THEN
3004: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3005: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
3006: FND_MESSAGE.set_token('LOCK', 'Line / Product');
3007: FND_MSG_PUB.add;
3008: END IF;
3009: x_return_status := FND_API.g_ret_sts_error;
3002: END IF;
3003: IF NVL(p_claim_line_rec.item_id,FND_API.g_miss_num) <> l_item_id THEN
3004: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3005: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
3006: FND_MESSAGE.set_token('LOCK', 'Line / Product');
3007: FND_MSG_PUB.add;
3008: END IF;
3009: x_return_status := FND_API.g_ret_sts_error;
3010: RETURN;
3011: END IF;
3012: /*
3013: IF NVL(p_claim_line_rec.item_description,FND_API.g_miss_char) <> l_item_description THEN
3014: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3015: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
3016: FND_MESSAGE.set_token('LOCK', 'ITEM_DESCRIPTION');
3017: FND_MSG_PUB.add;
3018: END IF;
3019: x_return_status := FND_API.g_ret_sts_error;
3012: /*
3013: IF NVL(p_claim_line_rec.item_description,FND_API.g_miss_char) <> l_item_description THEN
3014: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3015: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
3016: FND_MESSAGE.set_token('LOCK', 'ITEM_DESCRIPTION');
3017: FND_MSG_PUB.add;
3018: END IF;
3019: x_return_status := FND_API.g_ret_sts_error;
3020: RETURN;
3021: END IF;
3022: */
3023: IF NVL(p_claim_line_rec.activity_type,FND_API.g_miss_char) <> l_activity_type THEN
3024: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3025: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
3026: FND_MESSAGE.set_token('LOCK', 'Name');
3027: FND_MSG_PUB.add;
3028: END IF;
3029: x_return_status := FND_API.g_ret_sts_error;
3022: */
3023: IF NVL(p_claim_line_rec.activity_type,FND_API.g_miss_char) <> l_activity_type THEN
3024: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3025: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
3026: FND_MESSAGE.set_token('LOCK', 'Name');
3027: FND_MSG_PUB.add;
3028: END IF;
3029: x_return_status := FND_API.g_ret_sts_error;
3030: RETURN;
3030: RETURN;
3031: END IF;
3032: IF NVL(p_claim_line_rec.activity_id,FND_API.g_miss_num) <> l_activity_id THEN
3033: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3034: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
3035: FND_MESSAGE.set_token('LOCK', 'Name');
3036: FND_MSG_PUB.add;
3037: END IF;
3038: x_return_status := FND_API.g_ret_sts_error;
3031: END IF;
3032: IF NVL(p_claim_line_rec.activity_id,FND_API.g_miss_num) <> l_activity_id THEN
3033: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3034: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_LOCK');
3035: FND_MESSAGE.set_token('LOCK', 'Name');
3036: FND_MSG_PUB.add;
3037: END IF;
3038: x_return_status := FND_API.g_ret_sts_error;
3039: RETURN;
3174: , X_access => l_access);
3175:
3176: IF l_access = 'N' THEN
3177: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3178: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3179: FND_MSG_PUB.add;
3180: END IF;
3181: RAISE FND_API.G_EXC_ERROR;
3182: END IF;
3253: END IF;
3254:
3255: IF l_inv_quantity < l_tot_quantity THEN
3256: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3257: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_INV_QTY');
3258: FND_MSG_PUB.add;
3259: END IF;
3260: x_error_index := j;
3261: RAISE FND_API.g_exc_error;
3275:
3276: -------- raise error if claim currency amount is null ----------
3277: IF l_claim_line_tbl(j).claim_currency_amount IS NULL THEN
3278: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3279: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
3280: FND_MSG_PUB.add;
3281: END IF;
3282: x_error_index := j;
3283: RAISE FND_API.g_exc_error;
3311: IF (l_claim_class <> 'GROUP' AND l_offer_id IS NULL) THEN
3312: IF sign(l_exist_total_amt - l_old_upd_total_amt + l_new_upd_total_amt) <> sign(l_claim_amount)
3313: THEN
3314: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3315: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
3316: FND_MSG_PUB.add;
3317: END IF;
3318: RAISE FND_API.g_exc_error;
3319: END IF;
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');
3330: FND_MSG_PUB.add;
3331: END IF;
3332: RAISE FND_API.g_exc_error;
3333: END IF;
3588: , X_access => l_access);
3589:
3590: IF l_access = 'N' THEN
3591: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3592: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3593: FND_MSG_PUB.add;
3594: END IF;
3595: RAISE FND_API.G_EXC_ERROR;
3596: END IF;
3698:
3699: -------- raise error if claim currency amount is null ----------
3700: IF l_claim_line_rec.claim_currency_amount IS NULL THEN
3701: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3702: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NULL');
3703: FND_MSG_PUB.add;
3704: END IF;
3705: RAISE FND_API.g_exc_error;
3706: END IF;
3851: -- IF l_claim_amount <> 0 THEN
3852: -- Sign of claim_currency_amount should be the same as claim amount_remaining
3853: -- IF SIGN(l_claim_line_rec.claim_currency_amount) <> SIGN(l_claim_amount) THEN
3854: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3855: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_SIGN_ERR');
3856: -- FND_MSG_PUB.add;
3857: -- END IF;
3858: -- RAISE FND_API.g_exc_error;
3859: -- END IF;
3888: -- comparison of claim amount and line amount
3889: IF l_line_sum_amt IS NOT NULL THEN
3890: IF ABS(l_line_sum_amt + l_claim_line_rec.claim_currency_amount) > ABS(l_claim_amount) THEN
3891: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3892: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
3893: FND_MSG_PUB.add;
3894: END IF;
3895: RAISE FND_API.g_exc_error;
3896: END IF;
3895: RAISE FND_API.g_exc_error;
3896: END IF;
3897: ELSIF ABS(l_claim_line_rec.claim_currency_amount) > ABS(l_claim_amount) THEN
3898: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3899: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_EXCESS_AMOUNT');
3900: FND_MSG_PUB.add;
3901: END IF;
3902: RAISE FND_API.g_exc_error;
3903: END IF;
3943: ------- check line acctd amount is more then earnings acctd amount -------
3944:
3945: IF ABS(nvl(l_claim_line_rec.acctd_amount,0)) < ABS(l_line_util_acc_amt) THEN
3946: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3947: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_EXCESS_LINE_AMT');
3948: FND_MSG_PUB.add;
3949: END IF;
3950: RAISE FND_API.g_exc_error;
3951: END IF;
4104: AND object_version_number = l_claim_line_rec.object_version_number;
4105:
4106: IF (SQL%NOTFOUND) THEN
4107: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4108: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4109: FND_MSG_PUB.add;
4110: END IF;
4111: RAISE FND_API.g_exc_error;
4112: END IF;
4307: ------------------------ CLAIM_ID -------------------------------
4308: IF p_claim_line_rec.claim_id <> FND_API.g_miss_num AND
4309: p_claim_line_rec.claim_id IS NULL THEN
4310: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4311: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
4312: FND_MESSAGE.set_token('COLUMN', 'CLAIM_ID');
4313: FND_MSG_PUB.add;
4314: END IF;
4315:
4308: IF p_claim_line_rec.claim_id <> FND_API.g_miss_num AND
4309: p_claim_line_rec.claim_id IS NULL THEN
4310: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4311: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
4312: FND_MESSAGE.set_token('COLUMN', 'CLAIM_ID');
4313: FND_MSG_PUB.add;
4314: END IF;
4315:
4316: x_return_status := FND_API.g_ret_sts_error;
4318: ------------------------ LINE_NUMBER -------------------------------
4319: ELSIF p_claim_line_rec.line_number <> FND_API.g_miss_num AND
4320: p_claim_line_rec.line_number IS NULL THEN
4321: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4322: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
4323: FND_MESSAGE.set_token('COLUMN', 'LINE_NUMBER');
4324: FND_MSG_PUB.add;
4325: END IF;
4326:
4319: ELSIF p_claim_line_rec.line_number <> FND_API.g_miss_num AND
4320: p_claim_line_rec.line_number IS NULL THEN
4321: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4322: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
4323: FND_MESSAGE.set_token('COLUMN', 'LINE_NUMBER');
4324: FND_MSG_PUB.add;
4325: END IF;
4326:
4327: x_return_status := FND_API.g_ret_sts_error;
4329: ------------------------ SET_OF_BOOKS_ID -------------------------------
4330: ELSIF p_claim_line_rec.set_of_books_id <> FND_API.g_miss_num AND
4331: p_claim_line_rec.set_of_books_id IS NULL THEN
4332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4333: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
4334: FND_MESSAGE.set_token('COLUMN', 'SET_OF_BOOKS_ID');
4335: FND_MSG_PUB.add;
4336: END IF;
4337:
4330: ELSIF p_claim_line_rec.set_of_books_id <> FND_API.g_miss_num AND
4331: p_claim_line_rec.set_of_books_id IS NULL THEN
4332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4333: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_COLUMN');
4334: FND_MESSAGE.set_token('COLUMN', 'SET_OF_BOOKS_ID');
4335: FND_MSG_PUB.add;
4336: END IF;
4337:
4338: x_return_status := FND_API.g_ret_sts_error;
4368: 'ozf_claim_lines',
4369: 'claim_line_id = ' || p_claim_line_rec.claim_line_id
4370: ) = FND_API.g_false THEN
4371: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4372: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUPLICATE_VALUE');
4373: FND_MESSAGE.set_token('COLLUMN', 'CLAIM_LINE_ID');
4374: FND_MSG_PUB.add;
4375: END IF;
4376: x_return_status := FND_API.g_ret_sts_error;
4369: 'claim_line_id = ' || p_claim_line_rec.claim_line_id
4370: ) = FND_API.g_false THEN
4371: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4372: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUPLICATE_VALUE');
4373: FND_MESSAGE.set_token('COLLUMN', 'CLAIM_LINE_ID');
4374: FND_MSG_PUB.add;
4375: END IF;
4376: x_return_status := FND_API.g_ret_sts_error;
4377: RETURN;
4445: p_claim_line_rec.valid_flag IS NOT NULL THEN
4446: IF p_claim_line_rec.valid_flag <> FND_API.g_true AND
4447: p_claim_line_rec.valid_flag <> FND_API.g_false THEN
4448: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4449: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4450: FND_MESSAGE.set_token('FLAG', 'VALID_FLAG');
4451: FND_MSG_PUB.add;
4452: END IF;
4453: x_return_status := FND_API.g_ret_sts_error;
4446: IF p_claim_line_rec.valid_flag <> FND_API.g_true AND
4447: p_claim_line_rec.valid_flag <> FND_API.g_false THEN
4448: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4449: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4450: FND_MESSAGE.set_token('FLAG', 'VALID_FLAG');
4451: FND_MSG_PUB.add;
4452: END IF;
4453: x_return_status := FND_API.g_ret_sts_error;
4454: RETURN;
4460: p_claim_line_rec.approved_flag IS NOT NULL THEN
4461: IF p_claim_line_rec.approved_flag <> FND_API.g_true AND
4462: p_claim_line_rec.approved_flag <> FND_API.g_false THEN
4463: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4464: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4465: FND_MESSAGE.set_token('FLAG', 'APPROVED_FLAG');
4466: FND_MSG_PUB.add;
4467: END IF;
4468: x_return_status := FND_API.g_ret_sts_error;
4461: IF p_claim_line_rec.approved_flag <> FND_API.g_true AND
4462: p_claim_line_rec.approved_flag <> FND_API.g_false THEN
4463: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4464: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4465: FND_MESSAGE.set_token('FLAG', 'APPROVED_FLAG');
4466: FND_MSG_PUB.add;
4467: END IF;
4468: x_return_status := FND_API.g_ret_sts_error;
4469: RETURN;
4475: p_claim_line_rec.performance_complete_flag IS NOT NULL THEN
4476: IF p_claim_line_rec.performance_complete_flag <> FND_API.g_true AND
4477: p_claim_line_rec.performance_complete_flag <> FND_API.g_false THEN
4478: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4479: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4480: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_COMPLETE_FLAG');
4481: FND_MSG_PUB.add;
4482: END IF;
4483: x_return_status := FND_API.g_ret_sts_error;
4476: IF p_claim_line_rec.performance_complete_flag <> FND_API.g_true AND
4477: p_claim_line_rec.performance_complete_flag <> FND_API.g_false THEN
4478: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4479: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4480: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_COMPLETE_FLAG');
4481: FND_MSG_PUB.add;
4482: END IF;
4483: x_return_status := FND_API.g_ret_sts_error;
4484: RETURN;
4490: p_claim_line_rec.performance_attached_flag IS NOT NULL THEN
4491: IF p_claim_line_rec.performance_attached_flag <> FND_API.g_true AND
4492: p_claim_line_rec.performance_attached_flag <> FND_API.g_false THEN
4493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4494: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4495: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_ATTACHED_FLAG');
4496: FND_MSG_PUB.add;
4497: END IF;
4498: x_return_status := FND_API.g_ret_sts_error;
4491: IF p_claim_line_rec.performance_attached_flag <> FND_API.g_true AND
4492: p_claim_line_rec.performance_attached_flag <> FND_API.g_false THEN
4493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4494: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4495: FND_MESSAGE.set_token('FLAG', 'PERFORMANCE_ATTACHED_FLAG');
4496: FND_MSG_PUB.add;
4497: END IF;
4498: x_return_status := FND_API.g_ret_sts_error;
4499: RETURN;
4505: p_claim_line_rec.earnings_associated_flag IS NOT NULL THEN
4506: IF p_claim_line_rec.earnings_associated_flag <> FND_API.g_true AND
4507: p_claim_line_rec.earnings_associated_flag <> FND_API.g_false THEN
4508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4509: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4510: FND_MESSAGE.set_token('FLAG', 'EARNINGS_ASSOCIATED_FLAG');
4511: FND_MSG_PUB.add;
4512: END IF;
4513: x_return_status := FND_API.g_ret_sts_error;
4506: IF p_claim_line_rec.earnings_associated_flag <> FND_API.g_true AND
4507: p_claim_line_rec.earnings_associated_flag <> FND_API.g_false THEN
4508: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4509: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_BAD_FLAG');
4510: FND_MESSAGE.set_token('FLAG', 'EARNINGS_ASSOCIATED_FLAG');
4511: FND_MSG_PUB.add;
4512: END IF;
4513: x_return_status := FND_API.g_ret_sts_error;
4514: RETURN;
4643: CLOSE csr_ap_tax_code;
4644:
4645: IF l_tax_code IS NULL THEN
4646: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4647: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TAX_CODE_ERR');
4648: FND_MSG_PUB.add;
4649: END IF;
4650: x_return_status := FND_API.g_ret_sts_error;
4651: RETURN;
4656: CLOSE csr_ar_tax_code;
4657:
4658: IF l_tax_code IS NULL THEN
4659: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4660: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TAX_CODE_ERR');
4661: FND_MSG_PUB.add;
4662: END IF;
4663: x_return_status := FND_API.g_ret_sts_error;
4664: RETURN;
4664: RETURN;
4665: END IF;
4666: ELSIF l_tax_for IS NULL THEN
4667: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4668: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_TAX_CODE_ERR');
4669: FND_MSG_PUB.add;
4670: END IF;
4671: x_return_status := FND_API.g_ret_sts_error;
4672: RETURN;
4682: CLOSE csr_customer_trx_id;
4683:
4684: IF l_source_object_id <> p_complete_rec.source_object_id THEN
4685: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4686: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVLINE_NOT_IN_INV');
4687: FND_MSG_PUB.add;
4688: END IF;
4689: x_return_status := FND_API.g_ret_sts_error;
4690: RETURN;
4815: FETCH c_claim_line INTO l_claim_line_rec;
4816: IF c_claim_line%NOTFOUND THEN
4817: CLOSE c_claim_line;
4818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4819: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4820: FND_MSG_PUB.add;
4821: END IF;
4822: RAISE FND_API.g_exc_error;
4823: END IF;