[Home] [Help]
241: BEGIN
242: IF((last_id_allocated IS NULL) OR
243: (next_id_to_use = (NVL(last_id_allocated, 0) + CZ_SEQUENCE_INCREMENT)))THEN
244:
245: SELECT cz_lce_headers_s.NEXTVAL INTO last_id_allocated FROM DUAL;
246: next_id_to_use := last_id_allocated;
247: END IF;
248:
249: id_to_return := next_id_to_use;
11091: END IF;
11092: END LOOP;
11093:
11094: FORALL i IN 1..OldHeaders.COUNT
11095: UPDATE cz_lce_headers SET deleted_flag = FLAG_DELETED
11096: WHERE lce_header_id = OldHeaders(i);
11097:
11098: FORALL i IN 1..OldHeaders.COUNT
11099: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_DELETED
11099: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_DELETED
11100: WHERE lce_header_id = OldHeaders(i);
11101:
11102: FORALL i IN 1..NewHeaders.COUNT
11103: UPDATE cz_lce_headers SET deleted_flag = FLAG_NOT_DELETED
11104: WHERE lce_header_id = NewHeaders(i);
11105:
11106: FORALL i IN 1..NewHeaders.COUNT
11107: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_NOT_DELETED
11121: PROCEDURE ROLLBACK_HEADERS IS
11122: BEGIN
11123:
11124: FORALL i IN 1..NewHeaders.COUNT
11125: UPDATE cz_lce_headers SET deleted_flag = FLAG_DELETED
11126: WHERE lce_header_id = NewHeaders(i);
11127:
11128: FORALL i IN 1..NewHeaders.COUNT
11129: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_DELETED
11131:
11132: IF(OldHeaders.COUNT > 0)THEN
11133:
11134: FORALL i IN 1..OldHeaders.COUNT
11135: UPDATE cz_lce_headers SET deleted_flag = FLAG_NOT_DELETED
11136: WHERE lce_header_id = OldHeaders(i);
11137:
11138: FORALL i IN 1..OldHeaders.COUNT
11139: UPDATE cz_lce_load_specs SET deleted_flag = FLAG_NOT_DELETED