DBA Data[Home] [Help]

APPS.PA_GENERATE_FORECAST_PUB dependencies on PA_RESOURCE_ASSIGNMENTS

Line 346: CURSOR BUDGET_LINES(c_budget_version_id PA_RESOURCE_ASSIGNMENTS.BUDGET_VERSION_ID%TYPE,

342: GROUP BY
343: FI.EXPENDITURE_ORG_ID, FI.EXPENDITURE_ORGANIZATION_ID,
344: GLP.START_DATE, GLP.END_DATE, FI.RCVR_GL_PERIOD_NAME;
345:
346: CURSOR BUDGET_LINES(c_budget_version_id PA_RESOURCE_ASSIGNMENTS.BUDGET_VERSION_ID%TYPE,
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,

Line 347: c_project_id PA_RESOURCE_ASSIGNMENTS.PROJECT_ID%TYPE,

343: FI.EXPENDITURE_ORG_ID, FI.EXPENDITURE_ORGANIZATION_ID,
344: GLP.START_DATE, GLP.END_DATE, FI.RCVR_GL_PERIOD_NAME;
345:
346: CURSOR BUDGET_LINES(c_budget_version_id PA_RESOURCE_ASSIGNMENTS.BUDGET_VERSION_ID%TYPE,
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,

Line 349: PA_RESOURCE_ASSIGNMENTS.RESOURCE_ASSIGNMENT_ID%TYPE) IS

345:
346: CURSOR BUDGET_LINES(c_budget_version_id PA_RESOURCE_ASSIGNMENTS.BUDGET_VERSION_ID%TYPE,
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

Line 352: PA_RESOURCE_ASSIGNMENTS RA WHERE

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
356: RA.RESOURCE_LIST_MEMBER_ID = 103

Line 490: l_role_error_code PA_RESOURCE_ASSIGNMENTS.PLAN_ERROR_CODE%TYPE;

486: l_fcst_period_name PA_PERIODS.PERIOD_NAME%TYPE;
487: l_fcst_start_date PA_PERIODS.START_DATE%TYPE;
488: l_fcst_end_date PA_PERIODS.END_DATE%TYPE;
489: l_fcst_item_quantity PA_FORECAST_ITEMS.ITEM_QUANTITY%TYPE;
490: l_role_error_code PA_RESOURCE_ASSIGNMENTS.PLAN_ERROR_CODE%TYPE;
491:
492: l_err_code VARCHAR2(30);
493: l_err_stack VARCHAR2(2000);
494: l_err_stage VARCHAR2(2000);

Line 520: l_resource_assignment_id PA_RESOURCE_ASSIGNMENTS.RESOURCE_ASSIGNMENT_ID%TYPE;

516: l_other_reject_reason VARCHAR2(1000);
517:
518: l_resource_list_member_id PA_RESOURCE_LIST_MEMBERS.RESOURCE_LIST_MEMBER_ID%TYPE;
519: l_resource_id PA_RESOURCE_LIST_MEMBERS.RESOURCE_LIST_MEMBER_ID%TYPE;
520: l_resource_assignment_id PA_RESOURCE_ASSIGNMENTS.RESOURCE_ASSIGNMENT_ID%TYPE;
521: l_track_as_labor_flag PA_RESOURCE_LIST_MEMBERS.TRACK_AS_LABOR_FLAG%TYPE;
522: l_parent_member_id PA_RESOURCE_LIST_MEMBERS.PARENT_MEMBER_ID%TYPE;
523: l_prj_res_assignment_id PA_RESOURCE_ASSIGNMENTS.RESOURCE_ASSIGNMENT_ID%TYPE;
524:

Line 523: l_prj_res_assignment_id PA_RESOURCE_ASSIGNMENTS.RESOURCE_ASSIGNMENT_ID%TYPE;

519: l_resource_id PA_RESOURCE_LIST_MEMBERS.RESOURCE_LIST_MEMBER_ID%TYPE;
520: l_resource_assignment_id PA_RESOURCE_ASSIGNMENTS.RESOURCE_ASSIGNMENT_ID%TYPE;
521: l_track_as_labor_flag PA_RESOURCE_LIST_MEMBERS.TRACK_AS_LABOR_FLAG%TYPE;
522: l_parent_member_id PA_RESOURCE_LIST_MEMBERS.PARENT_MEMBER_ID%TYPE;
523: l_prj_res_assignment_id PA_RESOURCE_ASSIGNMENTS.RESOURCE_ASSIGNMENT_ID%TYPE;
524:
525: l_fcst_opt_jobcostrate_sch_id PA_FORECASTING_OPTIONS_ALL.JOB_COST_RATE_SCHEDULE_ID%TYPE;
526:
527: l_calling_mode VARCHAR2(50);

Line 547: /* Updating the ROLE LEVEL TOTAL in PA_RESOURCE_ASSIGNMENTS */

543: l_cnt PLS_INTEGER;
544: l_budget_lines_tbl PA_GENERATE_FORECAST_PUB.budget_lines_tbl_type;
545: l_budget_lines_tot_tbl PA_GENERATE_FORECAST_PUB.budget_lines_tbl_type;
546:
547: /* Updating the ROLE LEVEL TOTAL in PA_RESOURCE_ASSIGNMENTS */
548: l_tot_quantity NUMBER;
549: l_tot_revenue NUMBER;
550: l_tot_bcost NUMBER;
551: l_tot_cost NUMBER;

Line 553: /* For Storing PROJECT LEVEL TOTAL in PA_RESOURCE_ASSIGNMENTS */

549: l_tot_revenue NUMBER;
550: l_tot_bcost NUMBER;
551: l_tot_cost NUMBER;
552:
553: /* For Storing PROJECT LEVEL TOTAL in PA_RESOURCE_ASSIGNMENTS */
554: l_tot_prj_quantity NUMBER:=0;
555: l_tot_prj_revenue NUMBER:=0;
556: l_tot_prj_bcost NUMBER:=0;
557: l_tot_prj_cost NUMBER:=0;

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 829: (SELECT RESOURCE_ASSIGNMENT_ID FROM PA_RESOURCE_ASSIGNMENTS

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 );
832:
833: DELETE FROM PA_RESOURCE_ASSIGNMENTS WHERE

Line 833: DELETE FROM PA_RESOURCE_ASSIGNMENTS WHERE

829: (SELECT RESOURCE_ASSIGNMENT_ID FROM PA_RESOURCE_ASSIGNMENTS
830: WHERE
831: BUDGET_VERSION_ID = l_budget_version_id );
832:
833: DELETE FROM PA_RESOURCE_ASSIGNMENTS WHERE
834: BUDGET_VERSION_ID = l_budget_version_id;
835: /* Commit the changes so that no other process pick up the same project for Forecasting */
836:
837: COMMIT;

Line 1503: FROM pa_resource_assignments a

1499:
1500: BEGIN
1501: SELECT resource_assignment_id
1502: INTO l_resource_assignment_id
1503: FROM pa_resource_assignments a
1504: WHERE a.budget_version_id = l_budget_version_id
1505: AND a.project_id = p_project_id
1506: AND nvl(a.task_id,0) = 0
1507: AND a.resource_list_member_id = l_resource_list_member_id

Line 1511: SELECT pa_resource_assignments_s.nextval

1507: AND a.resource_list_member_id = l_resource_list_member_id
1508: AND a.project_assignment_id = l_prj_assignment_id;
1509: EXCEPTION
1510: WHEN NO_DATA_FOUND THEN
1511: SELECT pa_resource_assignments_s.nextval
1512: INTO l_resource_assignment_id
1513: FROM sys.dual;
1514: INSERT INTO pa_resource_assignments(
1515: resource_assignment_id,

Line 1514: INSERT INTO pa_resource_assignments(

1510: WHEN NO_DATA_FOUND THEN
1511: SELECT pa_resource_assignments_s.nextval
1512: INTO l_resource_assignment_id
1513: FROM sys.dual;
1514: INSERT INTO pa_resource_assignments(
1515: resource_assignment_id,
1516: budget_version_id,
1517: project_id,
1518: task_id,

Line 1659: UPDATE PA_RESOURCE_ASSIGNMENTS SET

1655:
1656:
1657: /* Update only if some fis are processed for the current assignment id */
1658: IF L_BUDGET_LINES_TBL.COUNT > 0 THEN
1659: UPDATE PA_RESOURCE_ASSIGNMENTS SET
1660: TOTAL_PLAN_REVENUE = NVL(TOTAL_PLAN_REVENUE,0) + l_tot_revenue,
1661: TOTAL_PLAN_RAW_COST = NVL(TOTAL_PLAN_RAW_COST,0) + l_tot_cost,
1662: TOTAL_PLAN_BURDENED_COST = NVL(TOTAL_PLAN_BURDENED_COST,0) + l_tot_bcost,
1663: TOTAL_PLAN_QUANTITY = NVL(TOTAL_PLAN_QUANTITY,0) + l_tot_quantity,

Line 1708: FROM PA_RESOURCE_ASSIGNMENTS A

1704: IF l_budget_lines_tot_tbl.count > 0 THEN
1705: BEGIN
1706: SELECT RESOURCE_ASSIGNMENT_ID
1707: INTO l_prj_res_assignment_id
1708: FROM PA_RESOURCE_ASSIGNMENTS A
1709: WHERE A.BUDGET_VERSION_ID = l_budget_version_id
1710: AND A.PROJECT_ID = p_project_id
1711: AND nvl(a.task_id,0) = 0 -- to make use of the index
1712: AND A.PROJECT_ASSIGNMENT_ID = -1

Line 1716: SELECT pa_resource_assignments_s.nextval

1712: AND A.PROJECT_ASSIGNMENT_ID = -1
1713: AND A.RESOURCE_LIST_MEMBER_ID = 103;
1714: EXCEPTION
1715: WHEN NO_DATA_FOUND THEN
1716: SELECT pa_resource_assignments_s.nextval
1717: INTO l_prj_res_assignment_id
1718: FROM sys.dual;
1719: insert into pa_resource_assignments(
1720: resource_assignment_id,

Line 1719: insert into pa_resource_assignments(

1715: WHEN NO_DATA_FOUND THEN
1716: SELECT pa_resource_assignments_s.nextval
1717: INTO l_prj_res_assignment_id
1718: FROM sys.dual;
1719: insert into pa_resource_assignments(
1720: resource_assignment_id,
1721: budget_version_id,
1722: project_id,
1723: task_id,

Line 1841: UPDATE PA_RESOURCE_ASSIGNMENTS SET PLAN_ERROR_CODE = 'PA_FCST_NO_PRJ_VALUE'

1837: IF l_project_value IS NULL THEN
1838: PA_DEBUG.g_err_stage := '2400: no prj value : bef updating err msg in event Based';
1839: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
1840:
1841: UPDATE PA_RESOURCE_ASSIGNMENTS SET PLAN_ERROR_CODE = 'PA_FCST_NO_PRJ_VALUE'
1842: WHERE
1843: RESOURCE_ASSIGNMENT_ID =l_prj_res_assignment_id;
1844:
1845: l_plan_processing_code := 'E';

Line 1939: UPDATE PA_RESOURCE_ASSIGNMENTS SET PLAN_ERROR_CODE = 'PA_FCST_PDS_NOT_DEFINED'

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);
1938:
1939: UPDATE PA_RESOURCE_ASSIGNMENTS SET PLAN_ERROR_CODE = 'PA_FCST_PDS_NOT_DEFINED'
1940: WHERE
1941: RESOURCE_ASSIGNMENT_ID =l_prj_res_assignment_id;
1942:
1943: l_plan_processing_code := 'E';

Line 2019: UPDATE PA_RESOURCE_ASSIGNMENTS SET PLAN_ERROR_CODE = l_cost_based_error_code

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';
2018: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2019: UPDATE PA_RESOURCE_ASSIGNMENTS SET PLAN_ERROR_CODE = l_cost_based_error_code
2020: WHERE
2021: RESOURCE_ASSIGNMENT_ID =l_prj_res_assignment_id;
2022: END IF;
2023: ELSE

Line 2027: UPDATE PA_RESOURCE_ASSIGNMENTS SET PLAN_ERROR_CODE = 'PA_FCST_NO_PRJ_VALUE'

2023: ELSE
2024: PA_DEBUG.g_err_stage := '2900: no prj value : bef updating err msg in Cost Based';
2025: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2026:
2027: UPDATE PA_RESOURCE_ASSIGNMENTS SET PLAN_ERROR_CODE = 'PA_FCST_NO_PRJ_VALUE'
2028: WHERE
2029: RESOURCE_ASSIGNMENT_ID =l_prj_res_assignment_id;
2030:
2031: l_plan_processing_code := 'E';

Line 2039: PA_DEBUG.g_err_stage := '3000: before updating PA_RESOURCE_ASSIGNMENTS for REVENUE';

2035:
2036: END IF; -- project value not null
2037: END IF; -- Rev gen method
2038: COMMIT;
2039: PA_DEBUG.g_err_stage := '3000: before updating PA_RESOURCE_ASSIGNMENTS for REVENUE';
2040: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2041:
2042: /* Update Total Revenue in PA_RESOURCE_ASSIGNMENTS */
2043:

Line 2042: /* Update Total Revenue in PA_RESOURCE_ASSIGNMENTS */

2038: COMMIT;
2039: PA_DEBUG.g_err_stage := '3000: before updating PA_RESOURCE_ASSIGNMENTS for REVENUE';
2040: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2041:
2042: /* Update Total Revenue in PA_RESOURCE_ASSIGNMENTS */
2043:
2044: UPDATE PA_RESOURCE_ASSIGNMENTS RA SET
2045: ( RA.TOTAL_PLAN_REVENUE,
2046: RA.TOTAL_PLAN_QUANTITY,

Line 2044: UPDATE PA_RESOURCE_ASSIGNMENTS RA SET

2040: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2041:
2042: /* Update Total Revenue in PA_RESOURCE_ASSIGNMENTS */
2043:
2044: UPDATE PA_RESOURCE_ASSIGNMENTS RA SET
2045: ( RA.TOTAL_PLAN_REVENUE,
2046: RA.TOTAL_PLAN_QUANTITY,
2047: RA.TOTAL_PLAN_RAW_COST,
2048: RA.TOTAL_PLAN_BURDENED_COST )

Line 2057: UPDATE PA_RESOURCE_ASSIGNMENTS RA SET

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
2058: AVERAGE_COST_RATE =
2059: DECODE(TOTAL_PLAN_BURDENED_COST,0,NULL,TOTAL_PLAN_BURDENED_COST ) / TOTAL_PLAN_QUANTITY,
2060: AVERAGE_BILL_RATE =
2061: DECODE(TOTAL_PLAN_REVENUE,0,NULL,TOTAL_PLAN_REVENUE ) / TOTAL_PLAN_QUANTITY

Line 2070: FROM PA_RESOURCE_ASSIGNMENTS

2066: /* Calculate the STD bill rate for the Project Level */
2067:
2068: SELECT SUM( DECODE(STANDARD_BILL_RATE,0,NULL,STANDARD_BILL_RATE) * TOTAL_PLAN_QUANTITY )
2069: INTO l_prj_level_revenue
2070: FROM PA_RESOURCE_ASSIGNMENTS
2071: WHERE
2072: BUDGET_VERSION_ID = l_budget_version_id AND
2073: RESOURCE_ASSIGNMENT_ID <> l_prj_res_assignment_id;
2074:

Line 2076: UPDATE PA_RESOURCE_ASSIGNMENTS SET

2072: BUDGET_VERSION_ID = l_budget_version_id AND
2073: RESOURCE_ASSIGNMENT_ID <> l_prj_res_assignment_id;
2074:
2075: IF l_tot_prj_quantity > 0 AND l_prj_level_revenue IS NOT NULL THEN
2076: UPDATE PA_RESOURCE_ASSIGNMENTS SET
2077: STANDARD_BILL_RATE = l_prj_level_revenue / l_tot_prj_quantity
2078: WHERE
2079: BUDGET_VERSION_ID = l_budget_version_id AND
2080: RESOURCE_ASSIGNMENT_ID = l_prj_res_assignment_id;

Line 2083: UPDATE PA_RESOURCE_ASSIGNMENTS RA SET

2079: BUDGET_VERSION_ID = l_budget_version_id AND
2080: RESOURCE_ASSIGNMENT_ID = l_prj_res_assignment_id;
2081: END IF;
2082:
2083: UPDATE PA_RESOURCE_ASSIGNMENTS RA SET
2084: AVERAGE_DISCOUNT_PERCENTAGE =
2085: ((STANDARD_BILL_RATE - AVERAGE_BILL_RATE)/STANDARD_BILL_RATE) * 100
2086: WHERE
2087: BUDGET_VERSION_ID = l_budget_version_id AND

Line 2091: PA_DEBUG.g_err_stage := '3100: after updating PA_RESOURCE_ASSIGNMENTS for REVENUE';

2087: BUDGET_VERSION_ID = l_budget_version_id AND
2088: STANDARD_BILL_RATE <> 0 AND
2089: AVERAGE_BILL_RATE <> 0;
2090:
2091: PA_DEBUG.g_err_stage := '3100: after updating PA_RESOURCE_ASSIGNMENTS for REVENUE';
2092: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);
2093:
2094: PA_DEBUG.g_err_stage := '3200: before updating PA_BUDGET_VERSIONS for PLAN_PROCESSING_CODE';
2095: PA_DEBUG.Log_Message(p_message => PA_DEBUG.g_err_stage);

Line 2119: FROM pa_resource_assignments WHERE

2115: SELECT project_assignment_id,
2116: ROUND(average_bill_rate,2) average_bill_rate
2117: BULK COLLECT INTO
2118: l_prj_asg_id_tab, l_avg_bill_rate_tab
2119: FROM pa_resource_assignments WHERE
2120: budget_version_id = l_budget_version_id AND
2121: project_assignment_id > 0 AND
2122: average_bill_rate IS NOT NULL;
2123: EXCEPTION