57:
58: -- R12 ERES Support in Service Family. Bug 4345768 Start
59: -- Purge the Result Relationship
60: IF ( l_result_count > 0 ) THEN
61: DELETE qa_pc_results_relationship
62: WHERE parent_collection_id = p_collection_id
63: OR child_collection_id = p_collection_id;
64:
65: -- Bug 5502106. Action Logs must also be purged.
742: AND occurrence = l_occurrences(i);
743:
744: -- Delete Child relationships
745: FORALL i in l_occurrences.FIRST..l_occurrences.LAST
746: DELETE QA_PC_RESULTS_RELATIONSHIP
747: WHERE parent_occurrence = l_occurrences(i);
748:
749: -- Delete Parent relationships
750: FORALL i in l_occurrences.FIRST..l_occurrences.LAST
747: WHERE parent_occurrence = l_occurrences(i);
748:
749: -- Delete Parent relationships
750: FORALL i in l_occurrences.FIRST..l_occurrences.LAST
751: DELETE QA_PC_RESULTS_RELATIONSHIP
752: WHERE child_occurrence = l_occurrences(i);
753:
754: -- Autonomous commit
755: COMMIT;