[Home] [Help]
1: PACKAGE BODY PA_BURDEN_COSTING as
2: -- /* $Header: PAXCBCAB.pls 120.24 2007/12/28 12:02:25 hkansal ship $
3:
4: --Start Of Mods(SOM) Bug # 5743708
5: l_tbl_eiid typ_tbl_eiid;
642: IF P_DEBUG_MODE THEN
643: pa_cc_utils.log_message('create_burden_expenditure_item: ' || '250:Processing for Project:'||to_char(proj_rec.project_id));
644: END IF;
645: stage := 110; -- in project loop
646: -- Set current project id in the package pa_burden_costing for
647: -- view definitions and for local variable
648:
649: IF P_DEBUG_MODE THEN
650: pa_cc_utils.log_message('create_burden_expenditure_item: ' || '300:before set current project id');
649: IF P_DEBUG_MODE THEN
650: pa_cc_utils.log_message('create_burden_expenditure_item: ' || '300:before set current project id');
651: END IF;
652:
653: /*PA_BURDEN_COSTING.set_current_project_id(proj_rec.project_id); 5406802*/
654:
655:
656: /*Bug# 5406802*/
657: IF l_gms_installed THEN
657: IF l_gms_installed THEN
658: -- ======
659: -- Bug : 3699045 - PJ.M:B4:P13:OTH:PERF:XPL PERFORMANCE ISSUES IN PAVW341.SQL
660: -- ======
661: PA_BURDEN_COSTING.set_current_sponsored_flag(proj_rec.project_id);
662: END IF;
663:
664: current_project_id := proj_rec.project_id;
665: IF P_DEBUG_MODE THEN
812: * Bug#2255068
813: * Setting the current_run_id in the global variable so that the cdl_burden_detail_v
814: * will pick-up only these records.
815: */
816: PA_BURDEN_COSTING.set_current_run_id(current_run_id);
817:
818: /*
819: * Bug#2255068
820: * Added - so, new expenditure group is created per batch - since the run_id
872: IF P_DEBUG_MODE THEN
873: pa_cc_utils.log_message('create_burden_expenditure_item: ' || '604:Creating Audit in pa_aud_cost_dist_lines');
874: END IF;
875:
876: PA_BURDEN_COSTING.InsBurdenAudit(current_project_id,x_request_id,l_user_id,lstatus);
877:
878: /*To get compiled set for special cdls and update on ei and cdl*/
879:
880: IF P_DEBUG_MODE THEN
1938: -- ------------------------------------------------------------------------
1939: IF P_DEBUG_MODE THEN
1940: pa_cc_utils.log_message('create_burden_expenditure_item: ' || '1760:Call Vertical APPS interface for i>=500');
1941: END IF;
1942: PA_GMS_API.vert_trx_interface(0,0,'PAXCBCAB', 'PA_BURDEN_COSTING', i, status, 'N') ;
1943: IF P_DEBUG_MODE THEN
1944: pa_cc_utils.log_message('create_burden_expenditure_item: ' || '1760:Call Vertical APPS interface for i>=500 END.');
1945: pa_cc_utils.log_message('create_burden_expenditure_item: ' || '1800:Call FlushEiTabs');
1946: END IF;
2434: IF P_DEBUG_MODE THEN
2435: pa_cc_utils.log_message('create_burden_expenditure_item: ' || '1760:Call Vertical APPS interface for i>=500');
2436: END IF;
2437:
2438: PA_GMS_API.vert_trx_interface(0,0,'PAXCBCAB', 'PA_BURDEN_COSTING', i, status, 'N') ;
2439:
2440: IF P_DEBUG_MODE THEN
2441: pa_cc_utils.log_message('create_burden_expenditure_item: ' || '1760:Call Vertical APPS interface for i>=500 END.');
2442: pa_cc_utils.log_message('create_burden_expenditure_item: ' || '2350:Process Last Set ..Call Flusheitabs');
2479:
2480: IF l_burden_profile ='Y' Then /*3040724*/
2481: /*2933915 :Create Audit records for the special cdls using prev_ind_compiled_set_id and burden_sum_source_run_id*/
2482:
2483: PA_BURDEN_COSTING.InsBurdenAudit(current_project_id,x_request_id,l_user_id,lstatus);
2484:
2485: /*2933915 :Resetting 'special eis' -Adjustment Type and commiting by batches */
2486:
2487: /* LOOP commented for Bug 4747865 */
2756:
2757: stage := 200; -- at start
2758: for proj_rec in projects loop
2759: --dbms_output.put_line('no of projects');
2760: -- Set current project id in the package pa_burden_costing for view definitions and for local variable
2761:
2762: PA_BURDEN_COSTING.set_current_project_id(proj_rec.project_id);
2763: current_project_id := proj_rec.project_id;
2764:
2758: for proj_rec in projects loop
2759: --dbms_output.put_line('no of projects');
2760: -- Set current project id in the package pa_burden_costing for view definitions and for local variable
2761:
2762: PA_BURDEN_COSTING.set_current_project_id(proj_rec.project_id);
2763: current_project_id := proj_rec.project_id;
2764:
2765: -- ======
2766: -- Bug : 3699045 - PJ.M:B4:P13:OTH:PERF:XPL PERFORMANCE ISSUES IN PAVW341.SQL
2764:
2765: -- ======
2766: -- Bug : 3699045 - PJ.M:B4:P13:OTH:PERF:XPL PERFORMANCE ISSUES IN PAVW341.SQL
2767: -- ======
2768: PA_BURDEN_COSTING.set_current_sponsored_flag(proj_rec.project_id);
2769:
2770: -- Step 2a. Project level validations
2771: -- Set the project and task id of the burden expenditure item
2772: -- depending on burden_accounting flag
3395:
3396:
3397: END update_gtemp;
3398:
3399: end PA_BURDEN_COSTING;