[Home] [Help]
2439: END populate_object_entity;
2440:
2441: /*
2442: * This procedure checks whether any matching record exists in
2443: * PA_SUMM_BALANCES, if yes, it will update the record. If no,it
2444: * will insert a new record in PA_SUMM_BALANCES.
2445: */
2446:
2447: PROCEDURE populate_balance_entity IS
2440:
2441: /*
2442: * This procedure checks whether any matching record exists in
2443: * PA_SUMM_BALANCES, if yes, it will update the record. If no,it
2444: * will insert a new record in PA_SUMM_BALANCES.
2445: */
2446:
2447: PROCEDURE populate_balance_entity IS
2448:
2521: UPDATE pa_rep_util_summ_tmp B
2522: SET B.process_mode_flag = 'U'
2523: , B.record_type = 'TMP4'
2524: WHERE exists( SELECT T.period_balance
2525: FROM pa_summ_balances T
2526: WHERE T.OBJECT_ID = B.OBJECT_ID
2527: AND T.VERSION_ID = B.VERSION_ID
2528: AND T.OBJECT_TYPE_CODE = B.OBJECT_TYPE_CODE
2529: AND T.PERIOD_TYPE = B.PERIOD_TYPE
2592: l_totally_fetched := cur_update_bal%ROWCOUNT;
2593: IF P_DEBUG_MODE = 'Y' THEN /* Added Debug Profile Option Check for bug#2674619 */
2594: PA_DEBUG.g_err_stage := 'Records totally fetched from cur_update_bal'||l_totally_fetched||L_PERIOD_BALANCE_TAB.COUNT;
2595: PA_DEBUG.Log_Message( p_message => PA_DEBUG.g_err_stage);
2596: PA_DEBUG.g_err_stage := 'Before updating PA_SUMM_BALANCES from cur_update_bal';
2597: PA_DEBUG.Log_Message( p_message => PA_DEBUG.g_err_stage);
2598: END IF;
2599:
2600:
2599:
2600:
2601: IF L_PERIOD_BALANCE_TAB.COUNT > 0 then
2602: FORALL I in L_PERIOD_BALANCE_TAB.FIRST..L_PERIOD_BALANCE_TAB.LAST
2603: UPDATE pa_summ_balances B
2604: set B.period_balance = (L_PERIOD_BALANCE_TAB(I)+
2605: DECODE(B.amount_type_id
2606: , l_tot_cap_id , 0
2607: , l_dirct_cap_id , 0
2631: PA_DEBUG.g_err_stage := 'Insert new balance records from pa_rep_util_summ_tmp if needed.';
2632: PA_DEBUG.log_message(PA_DEBUG.g_err_stage);
2633: END IF;
2634:
2635: INSERT INTO pa_summ_balances
2636: ( OBJECT_ID,
2637: VERSION_ID,
2638: OBJECT_TYPE_CODE,
2639: PERIOD_TYPE,