[Home] [Help]
54: -- 11/07/2001 feliu Changed process_approval to update recal_committed column.
55: -- 01/15/2002 feliu change to partner_party_id from partner_id to fix budg 2182197.
56: -- 01/21/2002 feliu change back partner_id from partner_party_id.
57: -- 03/21/2002 mpande added because Deliverables reconciliation was not working properly
58: -- 04/16/2002 feliu Moved some functions to OZF_ACTBUDGETRULES_PVT to reduce this file size.
59: -- 6/11/2002 mpande Fully accrued budget would have no committment
60: -- 10/28/2002 feliu Change for 11.5.9
61: -- 10/27/2002 feliu added offer validation.
62: -- 10/28/2002 feliu added scan_unit,scan_unit_remaining,activity_product_id,scan_type_id for act_util_rec_type.
1279: l_act_budgets_rec.approved_original_amount := l_temp_aprvd_orig_amount;
1280: l_act_budgets_rec.approved_amount := l_temp_approved_amount;
1281: END IF;
1282: IF l_act_budgets_rec.justification IS NOT NULL AND l_act_budgets_rec.transfer_type <> 'UTILIZED' THEN
1283: OZF_ACTBUDGETRULES_PVT.create_note (
1284: p_activity_type=> 'FREQ'
1285: ,p_activity_id=> l_act_budgets_rec.activity_budget_id
1286: ,p_note=> l_act_budgets_rec.justification
1287: ,p_note_type=> 'AMS_JUSTIFICATION'
2504: -- 02/23/2001 mpande you cannot plan for more than the available budget amount
2505:
2506: -- 02/18/2004 feliu check profile, if profile is N, then validate, otherwise not validate.
2507: IF l_exceed_flag = 'N' THEN
2508: IF OZF_ACTBUDGETRULES_PVT.budget_has_enough_money (
2509: p_source_id=> l_act_budgets_rec.budget_source_id
2510: ,p_approved_amount=> l_fund_rec.planned_amt
2511: ) = fnd_api.g_false THEN
2512: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_MONEY');
3163: END IF;
3164:
3165: IF l_act_budgets_rec.COMMENT IS NOT NULL
3166: AND l_act_budgets_rec.COMMENT <> fnd_api.g_miss_char THEN
3167: OZF_ACTBUDGETRULES_PVT.create_note (
3168: p_activity_type=> 'FREQ'
3169: ,p_activity_id=> l_act_budgets_rec.activity_budget_id
3170: ,p_note=> l_act_budgets_rec.COMMENT
3171: ,p_note_type=> 'AMS_COMMENT'
3184: END IF;
3185:
3186: IF l_act_budgets_rec.justification IS NOT NULL
3187: AND l_act_budgets_rec.justification <> fnd_api.g_miss_char THEN
3188: OZF_ACTBUDGETRULES_PVT.create_note (
3189: p_activity_type=> 'FREQ'
3190: ,p_activity_id=> l_act_budgets_rec.activity_budget_id
3191: ,p_note=> l_act_budgets_rec.justification
3192: ,p_note_type=> 'AMS_JUSTIFICATION'
4346: END IF;
4347:
4348: IF l_exc_util_check = 'T' THEN
4349:
4350: OZF_ACTBUDGETRULES_PVT.check_transfer_amount_exists (
4351: p_act_budgets_rec.budget_source_id-- for 'TRANSFER', it is object id.
4352: ,p_act_budgets_rec.budget_source_type -- for 'TRANSFER', it is object type.
4353: ,p_act_budgets_rec.act_budget_used_by_id
4354: ,p_act_budgets_rec.arc_act_budget_used_by
4365: -- Request amount can not more than estimated amount when object is DRAFT status.
4366: -- don't validate for child records from sourcing from parent.
4367: IF p_act_budgets_rec.transfer_type = 'REQUEST' AND p_act_budgets_rec.parent_act_budget_id is NULL
4368: AND p_act_budgets_rec.arc_act_budget_used_by IN ('OFFR','CAMP','CSCH','EVEH','EONE','EVEO','DELV') THEN
4369: IF OZF_ACTBUDGETRULES_PVT.can_plan_more_budget (
4370: p_object_type=> p_act_budgets_rec.arc_act_budget_used_by
4371: ,p_object_id=> p_act_budgets_rec.act_budget_used_by_id
4372: ,p_request_amount=> p_act_budgets_rec.request_amount
4373: ,p_act_budget_id=> p_act_budgets_rec.activity_budget_id
4380: --- we will match activity and category for others also later
4381: --- 02/20/2002 mpande added the validation for offers also
4382: /* IF p_act_budgets_rec.arc_act_budget_used_by IN ('CSCH','OFFR')
4383: AND p_act_budgets_rec.budget_source_type = 'FUND' THEN
4384: OZF_ACTBUDGETRULES_PVT.check_cat_activity_match (
4385: p_act_budgets_rec.act_budget_used_by_id
4386: ,p_act_budgets_rec.arc_act_budget_used_by
4387: ,p_act_budgets_rec.budget_source_id
4388: ,l_return_status
4395: -- 10/30/2001 mpande commented prod and market validation
4396: -- as per Leela.
4397: /*
4398: IF p_act_budgets_rec.budget_source_type = 'FUND' THEN
4399: OZF_ACTBUDGETRULES_PVT.check_market_elig_match (
4400: p_act_budgets_rec.act_budget_used_by_id
4401: ,p_act_budgets_rec.arc_act_budget_used_by
4402: ,p_act_budgets_rec.budget_source_id
4403: ,l_return_status
4406: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4407: x_return_status := fnd_api.g_ret_sts_error;
4408: ELSE
4409: /* yzhao: 07/20/2001 check product eligibility
4410: OZF_ACTBUDGETRULES_PVT.check_prod_elig_match (
4411: p_act_budgets_rec.act_budget_used_by_id,
4412: p_act_budgets_rec.arc_act_budget_used_by,
4413: p_act_budgets_rec.budget_source_id,
4414: l_return_status
5048: -- If approval is required, indicated by the existense of the
5049: -- attribute_avaliable_flag of BAPL, then initiate the Workflow process
5050: -- with the call to ams_approval_pvt.start_lineapproval, otherwise,
5051: -- the approved amount is equal to the requested amount.
5052: IF OZF_ACTBUDGETRULES_PVT.check_approval_required (
5053: p_act_budget_rec.arc_act_budget_used_by
5054: ,p_act_budget_rec.act_budget_used_by_id
5055: ,p_act_budget_rec.budget_source_type
5056: ,p_act_budget_rec.budget_source_id
5586: IF (p_act_budget_rec.budget_source_type ='CAMP' AND p_act_budget_rec.arc_act_budget_used_by = 'CSCH') OR
5587: (p_act_budget_rec.budget_source_type ='EVEH' AND p_act_budget_rec.arc_act_budget_used_by = 'EVEO') OR
5588: (p_act_budget_rec.budget_source_type ='CAMP' AND p_act_budget_rec.arc_act_budget_used_by = 'OFFR') -- added to fix bug 4018381
5589: THEN
5590: IF ozf_ACTBUDGETRULES_PVT.source_has_enough_money (
5591: p_source_type => p_act_budget_rec.budget_source_type,
5592: p_source_id => p_act_budget_rec.budget_source_id,
5593: p_approved_amount => p_act_budget_rec.approved_original_amount
5594: ) = FND_API.g_false THEN