[Home] [Help]
174:
175: select PA_TASKS_S.NEXTVAL INTO l_new_task_id from sys.dual;
176:
177:
178: INSERT INTO PA_ALTERNATE_TASKS (
179: ALT_TASK_ID ,
180: PROJ_ELEMENT_ID ,
181: CBS_ELEMENT_ID ,
182: LAST_UPDATE_DATE ,
280: print_msg('l_valid_status_tbl :: ' || l_valid_status_tbl(i));
281:
282: IF l_valid_status_tbl(i) = 'V' THEN -- Delete records which are valid
283:
284: DELETE FROM PA_ALTERNATE_TASKS where ALT_TASK_ID = p_Alt_Task_Id(i);
285:
286: END IF;
287:
288: END LOOP;
315: cursor isCostCodeAdded(c_Proj_Element_Id IN NUMBER, c_Cbs_Element_Id IN NUMBER) IS
316: select 'Y' from dual where
317: EXISTS
318: (SELECT *
319: FROM PA_ALTERNATE_TASKS pat , PA_RBS_ELEMENTS pre
320: WHERE (pat.CBS_ELEMENT_ID = c_Cbs_Element_Id
321: AND pat.PROJ_ELEMENT_ID = c_Proj_Element_Id)
322: OR (pat.CBS_ELEMENT_ID = pre.RBS_ELEMENT_ID --bug#16311830 checking if cost code is disabled
323: AND pat.CBS_ELEMENT_ID = c_Cbs_Element_Id
380: FROM DUAL
381: WHERE EXISTS (
382: SELECT 1
383: FROM pa_resource_assignments r
384: WHERE r.task_id = (select proj_element_id from pa_alternate_tasks where alt_task_id = c_Alt_Task_Id)
385: AND r.cbs_element_id = (select cbs_element_id from pa_alternate_tasks where alt_task_id = c_Alt_Task_Id)
386: );
387:
388: cursor getProjectId(c_Alt_Task_Id IN NUMBER) IS
381: WHERE EXISTS (
382: SELECT 1
383: FROM pa_resource_assignments r
384: WHERE r.task_id = (select proj_element_id from pa_alternate_tasks where alt_task_id = c_Alt_Task_Id)
385: AND r.cbs_element_id = (select cbs_element_id from pa_alternate_tasks where alt_task_id = c_Alt_Task_Id)
386: );
387:
388: cursor getProjectId(c_Alt_Task_Id IN NUMBER) IS
389: select project_id from pa_tasks where task_id =
386: );
387:
388: cursor getProjectId(c_Alt_Task_Id IN NUMBER) IS
389: select project_id from pa_tasks where task_id =
390: (select proj_element_id from pa_alternate_tasks where alt_task_id = c_Alt_Task_Id);
391:
392: Cursor getTaskandCbsId(c_Alt_Task_Id IN NUMBER) IS
393: Select proj_element_id,cbs_element_id
394: From pa_alternate_tasks where alt_task_id = c_Alt_Task_Id;
390: (select proj_element_id from pa_alternate_tasks where alt_task_id = c_Alt_Task_Id);
391:
392: Cursor getTaskandCbsId(c_Alt_Task_Id IN NUMBER) IS
393: Select proj_element_id,cbs_element_id
394: From pa_alternate_tasks where alt_task_id = c_Alt_Task_Id;
395:
396: l_proj_element_id Number;
397: l_cbs_element_id Number;
398:
831: l_Cbs_Element_Id SYSTEM.pa_num_tbl_type := SYSTEM.PA_NUM_TBL_TYPE();
832: L_TEMP VARCHAR2(1);
833:
834: cursor getCostCodes(c_Task_Id IN NUMBER) IS
835: select CBS_ELEMENT_ID from PA_ALTERNATE_TASKS
836: where PROJ_ELEMENT_ID = p_Source_Task_Id;
837:
838:
839: BEGIN
844: x_msg_count := 0;
845:
846: select CBS_ELEMENT_ID
847: BULK COLLECT INTO l_Cbs_Element_Id
848: from PA_ALTERNATE_TASKS
849: where PROJ_ELEMENT_ID = p_Source_Task_Id;
850:
851: IF (l_Cbs_Element_Id.COUNT > 0) THEN
852:
925: cursor validateCostCodes(c_Cbs_Element_Id IN NUMBER, c_Task_Id IN NUMBER) IS
926: select 'Y' from dual where
927: EXISTS
928: (SELECT *
929: FROM PA_ALTERNATE_TASKS
930: WHERE proj_element_id = c_Task_Id
931: AND cbs_element_id = c_Cbs_Element_Id
932: );
933:
1022: cursor validateCostCodes(c_Cost_Code IN Varchar2, c_Task_Id IN NUMBER, c_Project_Id IN NUMBER) IS
1023: select 'Y' from dual where
1024: EXISTS
1025: (SELECT *
1026: FROM PA_ALTERNATE_TASKS
1027: WHERE proj_element_id = c_Task_Id
1028: AND cbs_element_id = (select rbs_element_id from pa_rbs_elements
1029: where cost_code = c_Cost_Code
1030: and rbs_version_id =
1233: IS
1234: disable_flag VARCHAR2(1):='N';
1235: CURSOR C1 IS
1236: SELECT DECODE(COUNT(*),0,'N','Y') DISABLED_EXISTS
1237: from pa_alternate_tasks pat , pa_rbs_elements pre , pa_proj_elements ppe
1238: where pat.cbs_element_id = pre.rbs_element_id
1239: and ppe.proj_element_id = pat.proj_element_id
1240: and pre.ENABLE_FLAG='N' and ppe.project_id=P_Project_Id;
1241:
1290: pa_debug.init_err_stack('PA_ALTERNATE_TASK_PVT.Delete_ALL_Alt_Task');
1291: pa_debug.set_process('PLSQL','LOG',P_PA_DEBUG_MODE);
1292: End If;
1293: SELECT DISTINCT ALT_TASK_ID BULK COLLECT INTO l_alt_task_id_tbl
1294: FROM PA_PROJ_ELEMENTS PPE, PA_ALTERNATE_TASKS PAT
1295: WHERE PPE.PROJECT_ID=p_project_id
1296: AND PAT.PROJ_ELEMENT_ID=PPE.PROJ_ELEMENT_ID;
1297:
1298: if l_Alt_Task_Id_tbl.count > 0 then