[Home] [Help]
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,
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,
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
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(
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: