[Home] [Help]
310: IF(l_item_uom IS NOT NULL) THEN
311: l_claim_line_tbl(i).QUANTITY_UOM := l_item_uom;
312: ELSE
313: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
314: FND_MESSAGE.set_name('OZF', 'OZF_METR_INVALID_UOM');
315: --//Unit of Measurement is Invalid
316: FND_MSG_PUB.add;
317: END IF;
318: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
897: IF(l_item_uom IS NOT NULL) THEN
898: l_claim_line_tbl(i).QUANTITY_UOM := l_item_uom;
899: ELSE
900: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
901: FND_MESSAGE.set_name('OZF', 'OZF_METR_INVALID_UOM');
902: --//Unit of Measurement is Invalid
903: FND_MSG_PUB.add;
904: END IF;
905: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
1467: ,p_lookup_code => l_claim_line_tbl(i).item_type);
1468:
1469: IF l_lookup_stat = FND_API.g_false THEN
1470: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1471: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_ITEM_TYPE');
1472: --//Item type provided is invalid, Please provide a valid item type.
1473: FND_MSG_PUB.add;
1474: END IF;
1475: x_return_status := fnd_api.g_ret_sts_error;
1487: CLOSE c_inventory_item_id;
1488:
1489: IF l_item_id IS NULL THEN
1490: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1491: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_INVENTORY_ITEM_ID');
1492: --//Inventory item identifier provided is Invalid.
1493: FND_MSG_PUB.add;
1494: END IF;
1495: x_return_status := fnd_api.g_ret_sts_error;
1506: --//Fix for bug 13398807
1507: --IF l_pvt_claim_line_tbl(i).item_id IS NULL THEN
1508: IF l_item_id IS NULL THEN
1509: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1510: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_CATEGORY_ID');
1511: --//Item Category identifier provided is Invalid.
1512: FND_MSG_PUB.add;
1513: END IF;
1514: x_return_status := fnd_api.g_ret_sts_error;
1523: CLOSE c_media_channel;
1524:
1525: IF l_item_id IS NULL THEN
1526: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1527: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_MEDIA_CHANNEL_ID');
1528: --//Media channel identifier provided is Invalid.
1529: FND_MSG_PUB.add;
1530: END IF;
1531: x_return_status := fnd_api.g_ret_sts_error;
1540: CLOSE c_memo_line;
1541:
1542: IF l_item_id IS NULL THEN
1543: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1544: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_MEMO_LINE_ID');
1545: --//Memo line identifier provided is Invalid.
1546: FND_MSG_PUB.add;
1547: END IF;
1548: x_return_status := fnd_api.g_ret_sts_error;
2204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2205: ROLLBACK TO Asso_Accruals_To_Claim;
2206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2207: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2208: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2209: FND_MSG_PUB.add;
2210: END IF;
2211: FND_MSG_PUB.Count_And_Get (
2212: p_encoded => FND_API.G_FALSE,
2217: WHEN OTHERS THEN
2218: ROLLBACK TO Asso_Accruals_To_Claim;
2219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2220: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2221: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2222: FND_MSG_PUB.add;
2223: END IF;
2224: FND_MSG_PUB.Count_And_Get (
2225: p_encoded => FND_API.G_FALSE,
2336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2337: ROLLBACK TO Asso_Accruals_To_Claim_Line;
2338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2339: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2340: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2341: FND_MSG_PUB.add;
2342: END IF;
2343: FND_MSG_PUB.Count_And_Get (
2344: p_encoded => FND_API.G_FALSE,
2349: WHEN OTHERS THEN
2350: ROLLBACK TO Asso_Accruals_To_Claim_Line;
2351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2352: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2353: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2354: FND_MSG_PUB.add;
2355: END IF;
2356: FND_MSG_PUB.Count_And_Get (
2357: p_encoded => FND_API.G_FALSE,
2578: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2579: ROLLBACK TO Create_Claim_For_Accruals;
2580: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2581: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2582: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2583: FND_MSG_PUB.add;
2584: END IF;
2585: FND_MSG_PUB.Count_And_Get (
2586: p_encoded => FND_API.G_FALSE,
2591: WHEN OTHERS THEN
2592: ROLLBACK TO Create_Claim_For_Accruals;
2593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2594: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2595: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2596: FND_MSG_PUB.add;
2597: END IF;
2598: FND_MSG_PUB.Count_And_Get (
2599: p_encoded => FND_API.G_FALSE,
2815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2816: ROLLBACK TO Pay_Claim_For_Accruals;
2817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2818: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2819: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2820: FND_MSG_PUB.add;
2821: END IF;
2822: FND_MSG_PUB.Count_And_Get (
2823: p_encoded => FND_API.G_FALSE,
2828: WHEN OTHERS THEN
2829: ROLLBACK TO Pay_Claim_For_Accruals;
2830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2831: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2832: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
2833: FND_MSG_PUB.add;
2834: END IF;
2835: FND_MSG_PUB.Count_And_Get (
2836: p_encoded => FND_API.G_FALSE,
2948: --//Validations
2949: --//Parent claim Id validation
2950: IF p_parent_claim_id = FND_API.g_miss_num OR p_parent_claim_id IS NULL THEN
2951: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
2952: FND_MESSAGE.Set_Name('OZF','OZF_NO_CLAIM_ID');
2953: FND_MSG_PUB.Add;
2954: END IF;
2955: RAISE FND_API.G_EXC_ERROR;
2956: ELSE
2959: CLOSE parent_claim_id_csr;
2960:
2961: IF l_claim_id IS NULL THEN
2962: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
2963: FND_MESSAGE.Set_Name('OZF','OZF_INVALID_CLAIM_ID');
2964: FND_MSG_PUB.Add;
2965: END IF;
2966: RAISE FND_API.G_EXC_ERROR;
2967: END IF;
2968: END IF;
2969:
2970: IF l_status_code <> 'OPEN' THEN
2971: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
2972: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_WRONG_SPLIT_STATUS');
2973: FND_MSG_PUB.Add;
2974: END IF;
2975: RAISE FND_API.G_EXC_ERROR;
2976: END IF;
2982: END LOOP;
2983:
2984: IF l_sum_split_amt > l_amount_remaining THEN
2985: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
2986: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SPLT_NG_NOPM');
2987: --//Failed to split the claim: The amount of deduction or claim should be positive after the split.
2988: FND_MSG_PUB.Add;
2989: END IF;
2990: RAISE FND_API.G_EXC_ERROR;
2996: FOR i IN px_child_claim_tbl.FIRST..px_child_claim_tbl.LAST
2997: LOOP
2998: IF px_child_claim_tbl(i).amount = FND_API.g_miss_num OR px_child_claim_tbl(i).amount IS NULL THEN
2999: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3000: FND_MESSAGE.Set_Name('OZF','OZF_NO_SPLIT_CLAIM_AMT');
3001: --//Split amount is mandatory to create a split claim.
3002: FND_MSG_PUB.Add;
3003: END IF;
3004: RAISE FND_API.G_EXC_ERROR;
3012: CLOSE claim_type_id_csr;
3013:
3014: IF l_claim_type IS NULL THEN
3015: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3016: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_NOT_IN_DB');
3017: FND_MSG_PUB.Add;
3018: END IF;
3019: RAISE FND_API.G_EXC_ERROR;
3020: END IF;
3027: CLOSE reason_code_id_csr;
3028:
3029: IF l_claim_reason IS NULL 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_REASON_CD_NOT_IN_DB');
3032: FND_MSG_PUB.Add;
3033: END IF;
3034: RAISE FND_API.G_EXC_ERROR;
3035: END IF;
3055: END IF;
3056:
3057: IF l_claim_line_id IS NULL THEN
3058: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3059: FND_MESSAGE.Set_Name('OZF','OZF_INVALID_CLAIM_LINE_ID');
3060: FND_MESSAGE.set_token('CLAIMLINEID', px_child_claim_tbl(i).claim_line_id_tbl(j).claim_line_id, false);
3061: --//Claim line id (l_claim_line_tbl(j).claim_line_id ) provided is invalid. Please enter a valid claim line id.
3062: FND_MSG_PUB.Add;
3063: END IF;
3056:
3057: IF l_claim_line_id IS NULL THEN
3058: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3059: FND_MESSAGE.Set_Name('OZF','OZF_INVALID_CLAIM_LINE_ID');
3060: FND_MESSAGE.set_token('CLAIMLINEID', px_child_claim_tbl(i).claim_line_id_tbl(j).claim_line_id, false);
3061: --//Claim line id (l_claim_line_tbl(j).claim_line_id ) provided is invalid. Please enter a valid claim line id.
3062: FND_MSG_PUB.Add;
3063: END IF;
3064: RAISE FND_API.G_EXC_ERROR;
3071: END IF;
3072:
3073: IF l_line_sum_amount > px_child_claim_tbl(i).amount THEN
3074: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3075: FND_MESSAGE.Set_Name('OZF','OZF_SPLIT_LINE_AMT');
3076: FND_MESSAGE.set_token('AMOUNT', px_child_claim_tbl(i).amount, false);
3077: FND_MESSAGE.set_token('LINEAMOUNT', l_line_sum_amount, false);
3078: FND_MSG_PUB.Add;
3079: END IF;
3072:
3073: IF l_line_sum_amount > px_child_claim_tbl(i).amount THEN
3074: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3075: FND_MESSAGE.Set_Name('OZF','OZF_SPLIT_LINE_AMT');
3076: FND_MESSAGE.set_token('AMOUNT', px_child_claim_tbl(i).amount, false);
3077: FND_MESSAGE.set_token('LINEAMOUNT', l_line_sum_amount, false);
3078: FND_MSG_PUB.Add;
3079: END IF;
3080: RAISE FND_API.G_EXC_ERROR;
3073: IF l_line_sum_amount > px_child_claim_tbl(i).amount THEN
3074: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3075: FND_MESSAGE.Set_Name('OZF','OZF_SPLIT_LINE_AMT');
3076: FND_MESSAGE.set_token('AMOUNT', px_child_claim_tbl(i).amount, false);
3077: FND_MESSAGE.set_token('LINEAMOUNT', l_line_sum_amount, false);
3078: FND_MSG_PUB.Add;
3079: END IF;
3080: RAISE FND_API.G_EXC_ERROR;
3081: END IF;
3113: px_child_claim_tbl(k).split_claim_id := l_child_claim_tbl(k).child_claim_id;
3114: END LOOP;
3115: ELSE
3116: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
3117: FND_MESSAGE.Set_Name('OZF','OZF_NO_SPLIT_CLAIM_AMT');
3118: --//Split amount is mandatory to create a split claim.
3119: FND_MSG_PUB.Add;
3120: END IF;
3121: RAISE FND_API.G_EXC_ERROR;
3329: END IF;
3330:
3331: IF l_claim_id IS NULL THEN
3332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3333: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_CLAIM_ID');
3334: --//Invalid Claim Id. Please provide a valid Claim ID
3335: FND_MSG_PUB.add;
3336: END IF;
3337: x_return_status := fnd_api.g_ret_sts_error;
3339: END IF;
3340:
3341: IF l_status_code NOT IN ('PENDING_CLOSE','CLOSED') THEN
3342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3343: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_STATUS_CODE');
3344: --//Claim status should be Pending Close or Closed to create SLA event
3345: FND_MSG_PUB.add;
3346: END IF;
3347: x_return_status := fnd_api.g_ret_sts_error;
3364: END IF;
3365:
3366: IF NOT l_settle_method_match THEN
3367: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3368: FND_MESSAGE.set_name('OZF', 'OZF_INCORRECT_EVENT_TYPE');
3369: --// Please use correct event type code for this settlement method.
3370: FND_MSG_PUB.add;
3371: END IF;
3372: x_return_status := fnd_api.g_ret_sts_error;
3395: END IF;
3396:
3397: IF NOT l_settle_method_match THEN
3398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3399: FND_MESSAGE.set_name('OZF', 'OZF_INCORRECT_EVENT_TYPE');
3400: --// Please use correct event type code for this settlement method.
3401: FND_MSG_PUB.add;
3402: END IF;
3403: x_return_status := fnd_api.g_ret_sts_error;
3410: CLOSE csr_event_type_chk;
3411:
3412: IF l_event_type_code IS NULL THEN
3413: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3414: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_EVENT_TYPE_CODE');
3415: --//Event type code provided is invalid.Please provide a valid event type code.
3416: FND_MSG_PUB.add;
3417: END IF;
3418: x_return_status := fnd_api.g_ret_sts_error;
3428: OZF_UTILITY_PVT.debug_message('Post to GL is enabled');
3429: END IF;
3430: ELSE
3431: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3432: FND_MESSAGE.set_name('OZF', 'OZF_BAD_POST_TO_GL');
3433: --//Invalid Post to GL flag.
3434: FND_MSG_PUB.add;
3435: END IF;
3436: x_return_status := fnd_api.g_ret_sts_error;
3444: CLOSE csr_is_promo_claim;
3445:
3446: IF l_promo_count = 0 THEN
3447: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3448: FND_MESSAGE.set_name('OZF', 'OZF_PROMO_CLAIM_REQD');
3449: --//Only promotional claims are eligible to create SLA event.
3450: FND_MSG_PUB.add;
3451: END IF;
3452: x_return_status := fnd_api.g_ret_sts_error;
3454: END IF;
3455:
3456: IF NVL(p_reversal_flag,'N') NOT IN ('Y','N') THEN
3457: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3458: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_REVERSAL_FLAG');
3459: --//Value of Reversal flag provided is invalid.Please provide a valid value.
3460: FND_MSG_PUB.add;
3461: END IF;
3462: x_return_status := fnd_api.g_ret_sts_error;
3464: END IF;
3465:
3466: IF p_event_type_code = 'CLAIM_SETTLEMENT_REVERSAL' AND NVL(p_reversal_flag,'N') <> 'Y' THEN
3467: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3468: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_RV_FLAG_FOR_EVT');
3469: --// Reversal flag should be Y for event type code CLAIM_SETTLEMENT_REVERSAL.
3470: FND_MSG_PUB.add;
3471: END IF;
3472: x_return_status := fnd_api.g_ret_sts_error;
3483: ,'SETTLE_BY_AR_AP_NETTING'
3484: ,'SETTLE_BY_AR_CUSTOM'
3485: ,'SETTLE_BY_AP_CUSTOM') THEN
3486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3487: FND_MESSAGE.set_name('OZF', 'OZF_INCORRECT_REV_EVENT_TYPE');
3488: --// Please use correct event type code for reversal event.
3489: FND_MSG_PUB.add;
3490: END IF;
3491: x_return_status := fnd_api.g_ret_sts_error;
3504: CLOSE csr_chk_event_exists;
3505:
3506: IF l_exists <> 1 THEN
3507: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3508: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_EVENT_MISMATCH');
3509: --// Reversal Event should be passed for the same Event Class as parent event.
3510: FND_MSG_PUB.add;
3511: END IF;
3512: x_return_status := fnd_api.g_ret_sts_error;
3532:
3533: IF l_claim_event_tbl.COUNT = 1 AND NVL(p_reversal_flag,'N') <> 'Y' THEN
3534:
3535: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3536: FND_MESSAGE.set_name('OZF', 'OZF_SLA_DUPLICATE_EVENT');
3537: --//SLA event is already created for this Claim.
3538: FND_MSG_PUB.add;
3539: END IF;
3540: x_return_status := fnd_api.g_ret_sts_error;
3543:
3544: IF l_claim_event_tbl.COUNT = 2 THEN
3545: IF l_claim_event_tbl(2).event_count = l_claim_event_tbl(1).event_count AND NVL(p_reversal_flag,'N') <> 'N' THEN
3546: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3547: FND_MESSAGE.set_name('OZF', 'OZF_SLA_DUPLICATE_EVENT');
3548: --//SLA event is already created for this Claim.
3549: FND_MSG_PUB.add;
3550: END IF;
3551: x_return_status := fnd_api.g_ret_sts_error;
3552: RETURN;
3553:
3554: ELSIF l_claim_event_tbl(2).event_count <> l_claim_event_tbl(1).event_count AND NVL(p_reversal_flag,'N') <> 'Y' THEN
3555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3556: FND_MESSAGE.set_name('OZF', 'OZF_SLA_DUPLICATE_EVENT');
3557: --//SLA event is already created for this Claim.
3558: FND_MSG_PUB.add;
3559: END IF;
3560: x_return_status := fnd_api.g_ret_sts_error;
3563: END IF;
3564: ELSE
3565: IF NVL(p_reversal_flag,'N') <> 'N' THEN
3566: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3567: FND_MESSAGE.set_name('OZF', 'OZF_INVALID_REVERSAL_EVENT');
3568: --//You cannot create first event of a claim as Reversal event.
3569: FND_MSG_PUB.add;
3570: END IF;
3571: x_return_status := fnd_api.g_ret_sts_error;