5589: IF NOT lines_sublines_tbl.COUNT=0 THEN
5590:
5591: i:=lines_sublines_tbl.FIRST;
5592: LOOP
5593: INSERT INTO OKS_CASCADE_CONC_REQ_SUB(chr_id ,
5594: cle_id ,
5595: subline_id ,
5596: line_irt ,
5597: line_renewal ,
5620:
5621: /*============================================================================+
5622: | Procedure: Concurrent_Temp_Purge
5623: |
5624: | Purpose: Purge data in tables OKS_CASCADE_CONC_REq and OKS_CASCADE_CONC_REQ_SUB.
5625: |
5626: | In Parameters: p_chr_id Contract Header Id
5627: |
5628: +============================================================================*/
5632:
5633: BEGIN
5634:
5635: DELETE FROM OKS_CASCADE_CONC_REQ WHERE CHR_ID=p_chr_id;
5636: DELETE FROM OKS_CASCADE_CONC_REQ_SUB WHERE CHR_ID=p_chr_id;
5637:
5638: COMMIT;
5639:
5640: END Concurrent_Temp_Purge;
5660: WHERE chr_id=p_chr_id;
5661:
5662: CURSOR CASCADE_DATA_LINES_TO_SUBLINES IS
5663: SELECT *
5664: FROM OKS_CASCADE_CONC_REQ_SUB
5665: WHERE chr_id=p_chr_id;
5666:
5667: l_header_table header_lines_tbl_type;
5668: i NUMBER :=1;