DBA Data[Home] [Help]

APPS.PA_GENERATE_FORECAST_PUB dependencies on PA_BUDGET_LINES

Line 247: l_budget_line_id PA_BUDGET_LINES.BUDGET_LINE_ID%type; /* FPB2 */

243: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
244: ,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
245: ,x_msg_data OUT NOCOPY VARCHAR2) IS --File.Sql.39 bug 4440895
246:
247: l_budget_line_id PA_BUDGET_LINES.BUDGET_LINE_ID%type; /* FPB2 */
248: CURSOR PROJ_DETAILS IS
249: SELECT P.PROJECT_TYPE,P.PROJECT_CURRENCY_CODE,P.CARRYING_OUT_ORGANIZATION_ID,
250: P.PROJECT_VALUE, P.JOB_BILL_RATE_SCHEDULE_ID, P.EMP_BILL_RATE_SCHEDULE_ID,
251: P.DISTRIBUTION_RULE,P.BILL_JOB_GROUP_ID,NVL(P.ORG_ID,-99),P.COMPLETION_DATE,

Line 351: BL.BURDENED_COST FROM PA_BUDGET_LINES BL,

347: c_project_id PA_RESOURCE_ASSIGNMENTS.PROJECT_ID%TYPE,
348: c_resource_assignment_id
349: PA_RESOURCE_ASSIGNMENTS.RESOURCE_ASSIGNMENT_ID%TYPE) IS
350: SELECT BL.PERIOD_NAME,BL.START_DATE,
351: BL.BURDENED_COST FROM PA_BUDGET_LINES BL,
352: PA_RESOURCE_ASSIGNMENTS RA WHERE
353: BL.RESOURCE_ASSIGNMENT_ID = RA.RESOURCE_ASSIGNMENT_ID AND
354: RA.BUDGET_VERSION_ID = c_budget_version_id AND
355: RA.PROJECT_ID = c_project_id AND

Line 825: /* Deleting PA_BUDGET_LINES and PA_RESOURCE_ASSIGNMENTS */

821: PA_DEBUG.reset_err_stack;
822: RETURN;
823: END IF;
824:
825: /* Deleting PA_BUDGET_LINES and PA_RESOURCE_ASSIGNMENTS */
826:
827: DELETE FROM PA_BUDGET_LINES WHERE
828: RESOURCE_ASSIGNMENT_ID IN
829: (SELECT RESOURCE_ASSIGNMENT_ID FROM PA_RESOURCE_ASSIGNMENTS

Line 827: DELETE FROM PA_BUDGET_LINES WHERE

823: END IF;
824:
825: /* Deleting PA_BUDGET_LINES and PA_RESOURCE_ASSIGNMENTS */
826:
827: DELETE FROM PA_BUDGET_LINES WHERE
828: RESOURCE_ASSIGNMENT_ID IN
829: (SELECT RESOURCE_ASSIGNMENT_ID FROM PA_RESOURCE_ASSIGNMENTS
830: WHERE
831: BUDGET_VERSION_ID = l_budget_version_id );

Line 1497: /* The following logic is from the PA_BUDGET_LINES_V_PKG to take care of the

1493:
1494: END LOOP; -- after arriving at pdwise totals
1495:
1496: /* Added for Bulk Insert */
1497: /* The following logic is from the PA_BUDGET_LINES_V_PKG to take care of the
1498: bulk insert into PA_BUDGET_LINES for performance */
1499:
1500: BEGIN
1501: SELECT resource_assignment_id

Line 1498: bulk insert into PA_BUDGET_LINES for performance */

1494: END LOOP; -- after arriving at pdwise totals
1495:
1496: /* Added for Bulk Insert */
1497: /* The following logic is from the PA_BUDGET_LINES_V_PKG to take care of the
1498: bulk insert into PA_BUDGET_LINES for performance */
1499:
1500: BEGIN
1501: SELECT resource_assignment_id
1502: INTO l_resource_assignment_id

Line 1591: INSERT INTO PA_BUDGET_LINES(

1587: PA_DEBUG.g_err_stage := 'res asg id :'|| l_resource_assignment_id;
1588: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1589:
1590: FORALL l_ins_temp IN 1 .. L_BUDGET_LINES_TBL.COUNT
1591: INSERT INTO PA_BUDGET_LINES(
1592: BUDGET_LINE_ID, /* FPB2 */
1593: BUDGET_VERSION_ID, /* FPB2 */
1594: RESOURCE_ASSIGNMENT_ID,
1595: START_DATE ,

Line 1617: pa_budget_lines_s.nextval, /* FPB2 */

1613: QUANTITY_SOURCE ,
1614: REVENUE_SOURCE ,
1615: TXN_CURRENCY_CODE ) /* FPB2 - Bug 2753426 */
1616: VALUES (
1617: pa_budget_lines_s.nextval, /* FPB2 */
1618: l_budget_version_id, /* FPB2 */
1619: l_resource_assignment_id,
1620: l_bl_start_date_tab(l_ins_temp),
1621: l_program_update_date,

Line 1674: /* the above exit is to avoid getting unique constraint error in PA_BUDGET_LINES,

1670: l_tot_prj_bcost := l_tot_prj_bcost + l_tot_bcost;
1671: l_tot_prj_quantity:= l_tot_prj_quantity+ l_tot_quantity;
1672: END IF;
1673: EXIT;
1674: /* the above exit is to avoid getting unique constraint error in PA_BUDGET_LINES,
1675: if there is no exit stmt. the bulk insert will try to do insert the same records */
1676: END LOOP;
1677: /* the above dummy for loop is to avoid NO_DATA_FOUND error,
1678: if there are no fis to be proecessed */

Line 1785: INSERT INTO PA_BUDGET_LINES(

1781: PA_DEBUG.g_err_stage := '2125:aft populating tables for insert into BL RLMId 103 and bef bulk ins';
1782: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1783:
1784: FORALL l_ins_temp IN 1 .. l_budget_lines_tot_tbl.count
1785: INSERT INTO PA_BUDGET_LINES(
1786: BUDGET_LINE_ID, /* FPB2 */
1787: BUDGET_VERSION_ID, /* FPB2 */
1788: RESOURCE_ASSIGNMENT_ID,
1789: START_DATE ,

Line 1807: pa_budget_lines_s.nextval, /* FPB2 */

1803: QUANTITY_SOURCE ,
1804: REVENUE_SOURCE ,
1805: TXN_CURRENCY_CODE ) /* FPB2 - Bug 2753426 */
1806: VALUES (
1807: pa_budget_lines_s.nextval, /* FPB2 */
1808: l_budget_version_id, /* FPB2 */
1809: l_prj_res_assignment_id,
1810: l_bl_start_date_tab(l_ins_temp),
1811: l_program_update_date,

Line 1876: PA_DEBUG.g_err_stage := '2500: before upserting in PA_BUDGET_LINES';

1872:
1873: PA_DEBUG.g_err_stage := '2450: after calling PA_RATE_PVT_PKG.CALC_EVENT_BASED_REVENUE';
1874: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1875: IF l_event_error_msg IS NULL THEN
1876: PA_DEBUG.g_err_stage := '2500: before upserting in PA_BUDGET_LINES';
1877: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1878:
1879: FOR l_counter IN 1 .. l_prj_revenue_tab.count LOOP
1880: UPDATE PA_BUDGET_LINES SET REVENUE = l_prj_revenue_tab(l_counter).amount

Line 1880: UPDATE PA_BUDGET_LINES SET REVENUE = l_prj_revenue_tab(l_counter).amount

1876: PA_DEBUG.g_err_stage := '2500: before upserting in PA_BUDGET_LINES';
1877: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1878:
1879: FOR l_counter IN 1 .. l_prj_revenue_tab.count LOOP
1880: UPDATE PA_BUDGET_LINES SET REVENUE = l_prj_revenue_tab(l_counter).amount
1881: WHERE
1882: RESOURCE_ASSIGNMENT_ID = l_prj_res_assignment_id AND
1883: PERIOD_NAME = l_prj_revenue_tab(l_counter).period_name;
1884: IF SQL%ROWCOUNT = 0 THEN

Line 1887: select pa_budget_lines_s.nextval

1883: PERIOD_NAME = l_prj_revenue_tab(l_counter).period_name;
1884: IF SQL%ROWCOUNT = 0 THEN
1885:
1886: /* FPB2 */
1887: select pa_budget_lines_s.nextval
1888: into l_budget_line_id
1889: from dual;
1890:
1891: INSERT INTO PA_BUDGET_LINES(

Line 1891: INSERT INTO PA_BUDGET_LINES(

1887: select pa_budget_lines_s.nextval
1888: into l_budget_line_id
1889: from dual;
1890:
1891: INSERT INTO PA_BUDGET_LINES(
1892: BUDGET_LINE_ID, /* FPB2 */
1893: BUDGET_VERSION_ID, /* FPB2 */
1894: RESOURCE_ASSIGNMENT_ID,
1895: START_DATE,

Line 1933: PA_DEBUG.g_err_stage := '2600: after upserting in PA_BUDGET_LINES for event based';

1929: l_commit_cnt := 0;
1930: END IF;
1931:
1932: END LOOP;
1933: PA_DEBUG.g_err_stage := '2600: after upserting in PA_BUDGET_LINES for event based';
1934: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1935: ELSE
1936: PA_DEBUG.g_err_stage := '2500: no prj value : bef updating err msg in Event Based';
1937: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 1998: PA_DEBUG.g_err_stage := '2900: bef upd PA_BUDGET_LINES for COST_BASED_REVENUE';

1994:
1995: PA_DEBUG.g_err_stage := '2850: after calling PA_RATE_PVT_PKG.CALC_COST_BASED_REVENUE';
1996: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1997: IF l_cost_based_error_code IS NULL THEN
1998: PA_DEBUG.g_err_stage := '2900: bef upd PA_BUDGET_LINES for COST_BASED_REVENUE';
1999: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2000:
2001: FOR l_cost_cnt IN 1 .. l_prj_revenue_tab.count LOOP
2002: UPDATE PA_BUDGET_LINES SET REVENUE = l_prj_revenue_tab(l_cost_cnt).amount

Line 2002: UPDATE PA_BUDGET_LINES SET REVENUE = l_prj_revenue_tab(l_cost_cnt).amount

1998: PA_DEBUG.g_err_stage := '2900: bef upd PA_BUDGET_LINES for COST_BASED_REVENUE';
1999: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2000:
2001: FOR l_cost_cnt IN 1 .. l_prj_revenue_tab.count LOOP
2002: UPDATE PA_BUDGET_LINES SET REVENUE = l_prj_revenue_tab(l_cost_cnt).amount
2003: WHERE
2004: RESOURCE_ASSIGNMENT_ID =l_prj_res_assignment_id AND
2005: PERIOD_NAME =l_prj_revenue_tab(l_cost_cnt).period_name;
2006:

Line 2013: PA_DEBUG.g_err_stage := '2950: after updating PA_BUDGET_LINES for COST_BASED_REVENUE';

2009: COMMIT;
2010: l_commit_cnt := 0;
2011: END IF;
2012: END LOOP;
2013: PA_DEBUG.g_err_stage := '2950: after updating PA_BUDGET_LINES for COST_BASED_REVENUE';
2014: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2015: ELSE
2016: l_plan_processing_code := 'E';
2017: PA_DEBUG.g_err_stage := '2900: bef upd PA_RES_ASG for err code n COST_BASED_REVENUE';

Line 2053: PA_BUDGET_LINES BL WHERE

2049: = (SELECT SUM(BL.REVENUE),
2050: SUM(BL.QUANTITY),
2051: SUM(BL.RAW_COST),
2052: SUM(BL.BURDENED_COST) FROM
2053: PA_BUDGET_LINES BL WHERE
2054: BL.RESOURCE_ASSIGNMENT_ID = l_prj_res_assignment_id )
2055: WHERE RA.RESOURCE_ASSIGNMENT_ID = l_prj_res_assignment_id ;
2056:
2057: UPDATE PA_RESOURCE_ASSIGNMENTS RA SET