13:
14: l_source varchar2(3):= 'PA';
15: l_scope_exits varchar2(1);
16:
17: l_parent_task_id AMW_AUDIT_TASKS_B.PARENT_TASK_ID%TYPE;
18: l_top_task_id AMW_AUDIT_TASKS_B.TOP_TASK_ID%TYPE;
19:
20: l_return_status VARCHAR2(32767);
21: l_msg_count NUMBER;
14: l_source varchar2(3):= 'PA';
15: l_scope_exits varchar2(1);
16:
17: l_parent_task_id AMW_AUDIT_TASKS_B.PARENT_TASK_ID%TYPE;
18: l_top_task_id AMW_AUDIT_TASKS_B.TOP_TASK_ID%TYPE;
19:
20: l_return_status VARCHAR2(32767);
21: l_msg_count NUMBER;
22: l_msg_data VARCHAR2(32767);
22: l_msg_data VARCHAR2(32767);
23:
24: cursor c_child_tasks IS
25: SELECT audit_project_id, task_id, parent_task_id, top_task_id
26: FROM amw_audit_tasks_b
27: WHERE audit_project_id = p_target_entity_id
28: AND parent_task_id is not null;
29:
30: BEGIN
145:
146: END IF; --end of l_scope_exits == 'Y'
147:
148: IF (l_source = 'ICM') THEN
149: INSERT into amw_audit_tasks_b(
150: TASK_ID,
151: AUDIT_PROJECT_ID,
152: TASK_NUMBER,
153: TOP_TASK_ID,
176: SYSDATE,
177: FND_GLOBAL.USER_ID,
178: FND_GLOBAL.USER_ID,
179: 1
180: from amw_audit_tasks_b
181: where audit_project_id = p_source_entity_id;
182:
183: /* Insert data into the tl table */
184:
205: SYSDATE,
206: FND_GLOBAL.USER_ID,
207: FND_GLOBAL.USER_ID,
208: 1
209: from amw_audit_tasks_b b,
210: amw_audit_tasks_tl stl,
211: amw_audit_tasks_b sb
212: where sb.audit_project_id = p_source_entity_id
213: and sb.task_id = stl.task_id
207: FND_GLOBAL.USER_ID,
208: 1
209: from amw_audit_tasks_b b,
210: amw_audit_tasks_tl stl,
211: amw_audit_tasks_b sb
212: where sb.audit_project_id = p_source_entity_id
213: and sb.task_id = stl.task_id
214: and b.task_number = sb.task_number
215: and b.audit_project_id = p_target_entity_id;
216:
217:
218: /* Update the top_task_id for the top_tasks */
219:
220: UPDATE amw_audit_tasks_b
221: SET top_task_id = task_id
222: WHERE audit_project_id = p_target_entity_id
223: AND parent_task_id is null;
224:
225:
226: FOR child_tasks IN c_child_tasks LOOP
227:
228: select target.task_id into l_parent_task_id
229: from amw_audit_tasks_b source,
230: amw_audit_tasks_b target
231: where source.task_id = child_tasks.parent_task_id
232: and source.audit_project_id = p_source_entity_id
233: and target.task_number = source.task_number
226: FOR child_tasks IN c_child_tasks LOOP
227:
228: select target.task_id into l_parent_task_id
229: from amw_audit_tasks_b source,
230: amw_audit_tasks_b target
231: where source.task_id = child_tasks.parent_task_id
232: and source.audit_project_id = p_source_entity_id
233: and target.task_number = source.task_number
234: and target.audit_project_id = p_target_entity_id;
233: and target.task_number = source.task_number
234: and target.audit_project_id = p_target_entity_id;
235:
236: select target.task_id into l_top_task_id
237: from amw_audit_tasks_b source,
238: amw_audit_tasks_b target
239: where source.task_id = child_tasks.top_task_id
240: and source.audit_project_id = p_source_entity_id
241: and target.task_number = source.task_number
234: and target.audit_project_id = p_target_entity_id;
235:
236: select target.task_id into l_top_task_id
237: from amw_audit_tasks_b source,
238: amw_audit_tasks_b target
239: where source.task_id = child_tasks.top_task_id
240: and source.audit_project_id = p_source_entity_id
241: and target.task_number = source.task_number
242: and target.audit_project_id = p_target_entity_id;
240: and source.audit_project_id = p_source_entity_id
241: and target.task_number = source.task_number
242: and target.audit_project_id = p_target_entity_id;
243:
244: UPDATE amw_audit_tasks_b
245: SET parent_task_id = l_parent_task_id,
246: top_task_id = l_top_task_id
247: WHERE task_id = child_tasks.task_id;
248:
913:
914: l_audit_project_id NUMBER ;
915: BEGIN
916:
917: DELETE FROM amw_audit_tasks_b
918: WHERE task_id IN (SELECT task_id
919: FROM amw_audit_tasks_b
920: START WITH task_id = p_task_id
921: CONNECT BY PRIOR task_id = parent_task_id);
915: BEGIN
916:
917: DELETE FROM amw_audit_tasks_b
918: WHERE task_id IN (SELECT task_id
919: FROM amw_audit_tasks_b
920: START WITH task_id = p_task_id
921: CONNECT BY PRIOR task_id = parent_task_id);
922:
923: DELETE FROM amw_audit_tasks_tl
921: CONNECT BY PRIOR task_id = parent_task_id);
922:
923: DELETE FROM amw_audit_tasks_tl
924: WHERE task_id IN (SELECT task_id
925: FROM amw_audit_tasks_b
926: START WITH task_id = p_task_id
927: CONNECT BY PRIOR task_id = parent_task_id);
928:
929: x_return_status := 'S';