[Home] [Help]
106: -- 09/22/2010 nepanda Fixed bug 10130256 : FUNDS ACCRUAL ERRORS OUT ON RETURN ORDER FOR OFF INVOICE OFF
107: -- 10/21/2010 nirprasa ER 10216374/9447673 SSD-IDSM ER - IDSM AND ACCRUAL CHANGES
108: -- 08/27/2011 kdass Bug 12912760 - BENEFICIARY UNDER MARKET OPTIONS IS IGNORED WHEN BUDGET EARNINGS ARE CREATED
109: -- 09/03/2011 kdass Bug 12946941 - FAE IS GENERATING INCORRECT ACCRUALS FOR SSD REQUESTS DURING PARTIAL SHIPMENT
110: -- 10/5/2011 nepanda Fix for bug 12911854 : rounded the amount values in ozf_act_budgets table
111: -- 15/06/2011 BKUNJAN Fix for Bugs 11670604 and 13054280
112: -- 11/08/2011 BKUNJAN ER 13333298 - SIEBEL TPM UPGRADE ER - ACCRUAL PROCESSING
113: -- 12/26/2011 kdass Bug 13517522 - TRANSACTIONS IN XLA_EVENTS WITH STATUS NOT PROCESSED EVEN THOUGH IS 'U' STATUS
114: -- 05/Jan/2011 APYADAV Bug 13529250 - CLAIM SETTLEMENT FETCHER ERRORS, BUDGET AMOUNT MUST BE GREATER THAN 0
528: l_plan_currency VARCHAR2(150);
529: l_rate NUMBER;
530:
531: CURSOR c_act_budget_id IS
532: SELECT ozf_act_budgets_s.NEXTVAL
533: FROM DUAL;
534:
535: CURSOR c_act_util_rec (p_used_by_id IN NUMBER, p_used_by_type IN VARCHAR2) IS
536: SELECT activity_budget_id, object_version_number, approved_amount,approved_amount_fc
533: FROM DUAL;
534:
535: CURSOR c_act_util_rec (p_used_by_id IN NUMBER, p_used_by_type IN VARCHAR2) IS
536: SELECT activity_budget_id, object_version_number, approved_amount,approved_amount_fc
537: FROM ozf_act_budgets
538: WHERE act_budget_used_by_id = p_used_by_id
539: AND arc_act_budget_used_by = p_used_by_type
540: AND transfer_type = 'UTILIZED';
541:
567:
568: -- Initialize API return status to success
569: x_return_status := fnd_api.g_ret_sts_success;
570: /* Added for bug 7030415
571: This currency conversion is for approved_amount_fc column in ozf_act_budgets table.
572: Using the utilization org_id because to_currency is the functional currency of
573: order's org's ledger.*/
574:
575: OPEN c_get_conversion_type(p_org_id);
671: end if;
672:
673: --if act_budget record exist for this offer, update record.
674: IF l_activity_id IS NOT NULL THEN
675: UPDATE ozf_act_budgets
676: SET request_amount = l_old_approved_amount + NVL(l_act_budgets_rec.request_amount, 0),
677: approved_amount =l_old_approved_amount + NVL(l_act_budgets_rec.request_amount, 0),
678: src_curr_request_amt =l_old_approved_amount + NVL(l_act_budgets_rec.request_amount, 0),
679: object_version_number = l_obj_ver_num + 1
711: CLOSE c_act_budget_id;
712:
713: l_requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
714:
715: INSERT INTO ozf_act_budgets
716: (activity_budget_id,last_update_date
717: ,last_updated_by, creation_date
718: ,created_by,last_update_login -- other columns
719: ,object_version_number,act_budget_used_by_id
989: connect by prior parent_fund_id =fund_id
990: start with fund_id = p_fund_id;
991:
992: /* 10/14/2003 yzhao Fix TEVA bug - customer fully accrual budget committed amount is always 0
993: update ozf_act_budgets REQUEST between fully accrual budget and its offer when accrual happens
994: */
995: CURSOR c_accrual_budget_reqeust(p_fund_id IN NUMBER, p_plan_id IN NUMBER) IS
996: SELECT activity_budget_id
997: , object_version_number
994: */
995: CURSOR c_accrual_budget_reqeust(p_fund_id IN NUMBER, p_plan_id IN NUMBER) IS
996: SELECT activity_budget_id
997: , object_version_number
998: FROM ozf_act_budgets
999: WHERE arc_act_budget_used_by = 'OFFR'
1000: AND act_budget_used_by_id = p_plan_id
1001: AND budget_source_type = 'FUND'
1002: AND budget_source_id = p_fund_id
1940: l_rollup_committed_amt := NVL(l_rollup_committed_amt, 0) + NVL (l_utilization_rec.univ_curr_amount, 0);
1941: l_recal_committed := NVL(l_recal_committed, 0) + NVL (l_utilization_rec.amount, 0);
1942: l_rollup_recal_committed := NVL(l_rollup_recal_committed, 0) + NVL (l_utilization_rec.univ_curr_amount, 0);
1943:
1944: -- 10/14/2003 update ozf_act_budgets REQUEST between fully accrual budget and its offer when accrual happens
1945: OPEN c_accrual_budget_reqeust(l_utilization_rec.fund_id, l_plan_id);
1946: FETCH c_accrual_budget_reqeust INTO l_act_budget_id, l_act_budget_objver;
1947: IF (c_accrual_budget_reqeust%NOTFOUND) THEN
1948: ozf_utility_pvt.write_conc_log (' D: create_utilized_rec() ERROR customer fully accrual budget. can not find approved budget request record between fund '
1955: RAISE fnd_api.g_exc_error;
1956: END IF;
1957: CLOSE c_accrual_budget_reqeust;
1958:
1959: UPDATE ozf_act_budgets
1960: SET request_amount = NVL(request_amount, 0) + l_utilization_rec.plan_curr_amount
1961: , src_curr_request_amt = NVL(src_curr_request_amt, 0) + l_utilization_rec.amount
1962: , approved_amount = NVL(approved_amount, 0) + l_utilization_rec.fund_request_amount
1963: , approved_original_amount = NVL(approved_original_amount, 0) + l_utilization_rec.amount
2556:
2557: -- Added for bug 7030415, get the order's org_id to get the exchange rate.
2558:
2559: /*Adjustment amount is converted from plan curr to budgets curr to populate
2560: parent_src_apprvd_amt column in ozf_act_budgets table and amount column
2561: of ozf_funds_utilized_all_b table*/
2562:
2563: OPEN c_order_org_id(p_adj_amt_tbl(i).order_line_id);
2564: FETCH c_order_org_id INTO l_order_org_id;
6761:
6762: CURSOR c_act_budget_rec(p_plan_id IN NUMBER) IS
6763: SELECT activity_budget_id
6764: , object_version_number
6765: FROM ozf_act_budgets
6766: WHERE transfer_type = 'UTILIZED'
6767: AND status_code = 'APPROVED'
6768: AND act_budget_used_by_id = p_plan_id;
6769:
6987: OPEN c_act_budget_rec(p_util_plan_id);
6988: FETCH c_act_budget_rec INTO l_act_budget_id, l_act_budget_objver;
6989: CLOSE c_act_budget_rec;
6990:
6991: UPDATE ozf_act_budgets
6992: SET src_curr_request_amt = NVL(src_curr_request_amt, 0) - p_amount + l_conv_amount
6993: , approved_original_amount = NVL(approved_original_amount, 0) - NVL(p_fund_req_amount, 0)
6994: + NVL(l_conv_fund_req_amount,0)
6995: , approved_amount_fc = NVL(approved_amount_fc, 0) - NVL(p_acctd_amount,0)