[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.
926: -- set OUT value
927: x_act_budget_id := l_act_budgets_rec.activity_budget_id;
928:
929: IF l_act_budgets_rec.justification IS NOT NULL AND l_act_budgets_rec.transfer_type <> 'UTILIZED' THEN
930: OZF_ACTBUDGETRULES_PVT.create_note (
931: p_activity_type=> 'FREQ'
932: ,p_activity_id=> l_act_budgets_rec.activity_budget_id
933: ,p_note=> l_act_budgets_rec.justification
934: ,p_note_type=> 'AMS_JUSTIFICATION'
1882: -- 02/23/2001 mpande you cannot plan for more than the available budget amount
1883:
1884: -- 02/18/2004 feliu check profile, if profile is N, then validate, otherwise not validate.
1885: IF l_exceed_flag = 'N' THEN
1886: IF OZF_ACTBUDGETRULES_PVT.budget_has_enough_money (
1887: p_source_id=> l_act_budgets_rec.budget_source_id
1888: ,p_approved_amount=> l_fund_rec.planned_amt
1889: ) = fnd_api.g_false THEN
1890: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_MONEY');
2361: END IF;
2362:
2363: IF l_act_budgets_rec.COMMENT IS NOT NULL
2364: AND l_act_budgets_rec.COMMENT <> fnd_api.g_miss_char THEN
2365: OZF_ACTBUDGETRULES_PVT.create_note (
2366: p_activity_type=> 'FREQ'
2367: ,p_activity_id=> l_act_budgets_rec.activity_budget_id
2368: ,p_note=> l_act_budgets_rec.COMMENT
2369: ,p_note_type=> 'AMS_COMMENT'
2382: END IF;
2383:
2384: IF l_act_budgets_rec.justification IS NOT NULL
2385: AND l_act_budgets_rec.justification <> fnd_api.g_miss_char THEN
2386: OZF_ACTBUDGETRULES_PVT.create_note (
2387: p_activity_type=> 'FREQ'
2388: ,p_activity_id=> l_act_budgets_rec.activity_budget_id
2389: ,p_note=> l_act_budgets_rec.justification
2390: ,p_note_type=> 'AMS_JUSTIFICATION'
3529: END IF;
3530:
3531: IF l_exc_util_check = 'T' THEN
3532:
3533: OZF_ACTBUDGETRULES_PVT.check_transfer_amount_exists (
3534: p_act_budgets_rec.budget_source_id-- for 'TRANSFER', it is object id.
3535: ,p_act_budgets_rec.budget_source_type -- for 'TRANSFER', it is object type.
3536: ,p_act_budgets_rec.act_budget_used_by_id
3537: ,p_act_budgets_rec.arc_act_budget_used_by
3548: -- Request amount can not more than estimated amount when object is DRAFT status.
3549: -- don't validate for child records from sourcing from parent.
3550: IF p_act_budgets_rec.transfer_type = 'REQUEST' AND p_act_budgets_rec.parent_act_budget_id is NULL
3551: AND p_act_budgets_rec.arc_act_budget_used_by IN ('OFFR','CAMP','CSCH','EVEH','EONE','EVEO','DELV') THEN
3552: IF OZF_ACTBUDGETRULES_PVT.can_plan_more_budget (
3553: p_object_type=> p_act_budgets_rec.arc_act_budget_used_by
3554: ,p_object_id=> p_act_budgets_rec.act_budget_used_by_id
3555: ,p_request_amount=> p_act_budgets_rec.request_amount
3556: ,p_act_budget_id=> p_act_budgets_rec.activity_budget_id
3563: --- we will match activity and category for others also later
3564: --- 02/20/2002 mpande added the validation for offers also
3565: /* IF p_act_budgets_rec.arc_act_budget_used_by IN ('CSCH','OFFR')
3566: AND p_act_budgets_rec.budget_source_type = 'FUND' THEN
3567: OZF_ACTBUDGETRULES_PVT.check_cat_activity_match (
3568: p_act_budgets_rec.act_budget_used_by_id
3569: ,p_act_budgets_rec.arc_act_budget_used_by
3570: ,p_act_budgets_rec.budget_source_id
3571: ,l_return_status
3578: -- 10/30/2001 mpande commented prod and market validation
3579: -- as per Leela.
3580: /*
3581: IF p_act_budgets_rec.budget_source_type = 'FUND' THEN
3582: OZF_ACTBUDGETRULES_PVT.check_market_elig_match (
3583: p_act_budgets_rec.act_budget_used_by_id
3584: ,p_act_budgets_rec.arc_act_budget_used_by
3585: ,p_act_budgets_rec.budget_source_id
3586: ,l_return_status
3589: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3590: x_return_status := fnd_api.g_ret_sts_error;
3591: ELSE
3592: /* yzhao: 07/20/2001 check product eligibility
3593: OZF_ACTBUDGETRULES_PVT.check_prod_elig_match (
3594: p_act_budgets_rec.act_budget_used_by_id,
3595: p_act_budgets_rec.arc_act_budget_used_by,
3596: p_act_budgets_rec.budget_source_id,
3597: l_return_status
4231: -- If approval is required, indicated by the existense of the
4232: -- attribute_avaliable_flag of BAPL, then initiate the Workflow process
4233: -- with the call to ams_approval_pvt.start_lineapproval, otherwise,
4234: -- the approved amount is equal to the requested amount.
4235: IF OZF_ACTBUDGETRULES_PVT.check_approval_required (
4236: p_act_budget_rec.arc_act_budget_used_by
4237: ,p_act_budget_rec.act_budget_used_by_id
4238: ,p_act_budget_rec.budget_source_type
4239: ,p_act_budget_rec.budget_source_id
4710: IF (p_act_budget_rec.budget_source_type ='CAMP' AND p_act_budget_rec.arc_act_budget_used_by = 'CSCH') OR
4711: (p_act_budget_rec.budget_source_type ='EVEH' AND p_act_budget_rec.arc_act_budget_used_by = 'EVEO') OR
4712: (p_act_budget_rec.budget_source_type ='CAMP' AND p_act_budget_rec.arc_act_budget_used_by = 'OFFR') -- added to fix bug 4018381
4713: THEN
4714: IF ozf_ACTBUDGETRULES_PVT.source_has_enough_money (
4715: p_source_type => p_act_budget_rec.budget_source_type,
4716: p_source_id => p_act_budget_rec.budget_source_id,
4717: p_approved_amount => p_act_budget_rec.approved_original_amount
4718: ) = FND_API.g_false THEN