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