704:
705: FETCH entry_cursor BULK COLLECT INTO L_LIST_ENTRIES_TAB;
706:
707: FORALL j IN L_LIST_ENTRIES_TAB.FIRST..L_LIST_ENTRIES_TAB.LAST
708: INSERT INTO IEC_G_RETURN_ENTRIES
709: ( RETURNS_ID
710: , LIST_ENTRY_ID
711: , LIST_HEADER_ID
712: , SUBSET_ID
727: , LAST_UPDATE_LOGIN
728: )
729: VALUES
730: (
731: IEC_G_RETURN_ENTRIES_S.NEXTVAL
732: , L_LIST_ENTRIES_TAB(j)
733: , P_LIST_ID
734: , -1
735: , -1
762:
763: EXCEPTION
764: WHEN OTHERS THEN
765: ROLLBACK TO remove_old_entries;
766: DELETE FROM IEC_G_RETURN_ENTRIES
767: WHERE LIST_HEADER_ID = P_LIST_ID;
768: COMMIT;
769: X_RETURN_STATUS := 'E';
770: