2817:
2818: ----------------------------------------------------------------------
2819: -- MOAC Changes for R12:
2820: -- References to PJM_PROJECTS_V and PJM_TASKS_V has been removed and
2821: -- their base table pa_projects_all and pa_tasks are used instead.
2822: ----------------------------------------------------------------------
2823:
2824: BEGIN
2825: l_stmt_num := 45;
2827: SELECT ppa.org_id,
2828: ppa.segment1 -- project number
2829: INTO l_proj_org_id,
2830: l_project_number
2831: FROM pa_projects_all ppa
2832: WHERE ppa.project_id = p_project_id;
2833: /* l_stmt_num := 50;
2834: SELECT segment1 -- project number
2835: INTO l_project_number
2832: WHERE ppa.project_id = p_project_id;
2833: /* l_stmt_num := 50;
2834: SELECT segment1 -- project number
2835: INTO l_project_number
2836: FROM pa_projects_all
2837: WHERE project_id = p_project_id; */
2838: l_stmt_num := 55;
2839: SELECT task_number
2840: INTO l_task_number
2849: SELECT ppa.org_id,
2850: ppa.segment1 -- project number
2851: INTO l_to_proj_org_id,
2852: l_to_project_number
2853: FROM pa_projects_all ppa
2854: WHERE ppa.project_id = p_to_project_id;
2855: /* l_stmt_num := 65;
2856: SELECT segment1 -- project number
2857: INTO l_to_project_number
2854: WHERE ppa.project_id = p_to_project_id;
2855: /* l_stmt_num := 65;
2856: SELECT segment1 -- project number
2857: INTO l_to_project_number
2858: FROM pa_projects_all
2859: WHERE project_id = p_to_project_id; */
2860: l_stmt_num := 70;
2861: SELECT task_number
2862: INTO l_to_task_number
2870: SELECT ppa.org_id,
2871: segment1
2872: INTO l_source_proj_org_id,
2873: l_source_project_number
2874: FROM pa_projects_all ppa
2875: WHERE ppa.project_id = p_source_project_id;
2876: /* l_stmt_num := 80;
2877: SELECT segment1 -- project number
2878: INTO l_source_project_number
2875: WHERE ppa.project_id = p_source_project_id;
2876: /* l_stmt_num := 80;
2877: SELECT segment1 -- project number
2878: INTO l_source_project_number
2879: FROM pa_projects_all
2880: WHERE project_id = p_source_project_id; */
2881: l_stmt_num := 85;
2882: SELECT task_number
2883: INTO l_source_task_number
5768:
5769: ----------------------------------------------------------------------
5770: -- MOAC Changes for R12:
5771: -- References to PJM_PROJECTS_V and PJM_TASKS_V has been removed and
5772: -- their base table pa_projects_all and pa_tasks are used instead.
5773: ----------------------------------------------------------------------
5774:
5775: BEGIN
5776: l_stmt_num := 35;
5776: l_stmt_num := 35;
5777: IF p_project_id is NOT NULL then
5778: SELECT segment1 -- project number
5779: INTO l_project_number
5780: FROM pa_projects_all
5781: WHERE project_id = p_project_id;
5782:
5783: l_stmt_num := 36;
5784: