[Home] [Help]
11087: END LOOP;
11088: END get_rule_intl_text_ids;
11089:
11090: ----->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
11091: ---------procedure to copy data into cz_lce_texts
11092: ---------reason ids and unsatisfied message ids of cz rules
11093: ---------are copied and resolved in this procedure
11094: ---------
11095: PROCEDURE copy_lce_texts(p_copy_rules_flag IN VARCHAR2)
11128: v_lce_text_tbl.DELETE;
11129:
11130: SELECT lce_header_id, seq_nbr, lce_text
11131: BULK COLLECT INTO v_text_hdr_tbl, v_text_seq_tbl, v_lce_text_tbl
11132: FROM cz_lce_texts
11133: WHERE cz_lce_texts.lce_header_id = cz_pb_mgr.v_cz_lce_headers_old_ref(i)
11134: ORDER BY lce_header_id, seq_nbr;
11135: EXCEPTION
11136: WHEN NO_DATA_FOUND
11129:
11130: SELECT lce_header_id, seq_nbr, lce_text
11131: BULK COLLECT INTO v_text_hdr_tbl, v_text_seq_tbl, v_lce_text_tbl
11132: FROM cz_lce_texts
11133: WHERE cz_lce_texts.lce_header_id = cz_pb_mgr.v_cz_lce_headers_old_ref(i)
11134: ORDER BY lce_header_id, seq_nbr;
11135: EXCEPTION
11136: WHEN NO_DATA_FOUND
11137: THEN
11134: ORDER BY lce_header_id, seq_nbr;
11135: EXCEPTION
11136: WHEN NO_DATA_FOUND
11137: THEN
11138: cz_pb_mgr.v_err_message := cz_utils.get_text('CZ_PB_BULK_COLLECT_ERR', 'TABLENAME', 'cz_lce_texts', 'SQLERRM', SQLERRM);
11139: cz_pb_mgr.error_msg_populate(cz_pb_mgr.v_err_message, 'cz_pb_mgr.MODEL', SQLCODE);
11140: WHEN OTHERS
11141: THEN
11142: cz_pb_mgr.v_err_message := cz_utils.get_text('CZ_PB_BULK_COLLECT_ERR', 'TABLENAME', 'cz_lce_texts', 'SQLERRM', SQLERRM);
11138: cz_pb_mgr.v_err_message := cz_utils.get_text('CZ_PB_BULK_COLLECT_ERR', 'TABLENAME', 'cz_lce_texts', 'SQLERRM', SQLERRM);
11139: cz_pb_mgr.error_msg_populate(cz_pb_mgr.v_err_message, 'cz_pb_mgr.MODEL', SQLCODE);
11140: WHEN OTHERS
11141: THEN
11142: cz_pb_mgr.v_err_message := cz_utils.get_text('CZ_PB_BULK_COLLECT_ERR', 'TABLENAME', 'cz_lce_texts', 'SQLERRM', SQLERRM);
11143: cz_pb_mgr.error_msg_populate(cz_pb_mgr.v_err_message, 'cz_pb_mgr.MODEL', SQLCODE);
11144: cz_pb_mgr.v_status_code := PUBLICATION_ERROR;
11145: END;
11146:
11161:
11162: IF (v_text_hdr_ref.COUNT > 0)
11163: THEN
11164: -------------Resolving lce header id
11165: resolve_ids(v_text_hdr_ref, cz_pb_mgr.v_cz_lce_headers_idx_ref, 'lce header id of cz lce texts');
11166: END IF;
11167:
11168: -------replace reason ids in lce text
11169: IF (v_lce_text_ref.COUNT > 0) THEN
11227: THEN
11228: FOR i IN v_text_hdr_new_ref.FIRST .. v_text_hdr_new_ref.LAST
11229: LOOP
11230: BEGIN
11231: EXECUTE IMMEDIATE 'INSERT INTO cz_lce_texts'
11232: || cz_pb_mgr.v_db_link
11233: || '( LCE_HEADER_ID'
11234: || ' '
11235: || ',SEQ_NBR'
11245: EXCEPTION
11246: WHEN OTHERS
11247: THEN
11248: ROLLBACK;
11249: cz_pb_mgr.v_err_message := cz_utils.get_text('CZ_PB_INSERT_ERR', 'TABLENAME', 'cz_lce_texts', 'SQLERRM', SQLERRM);
11250: cz_pb_mgr.error_msg_populate(cz_pb_mgr.v_err_message, 'cz_pb_mgr.LCETEXTS', SQLCODE);
11251: cz_pb_mgr.v_status_code := PUBLICATION_ERROR;
11252: END;
11253: END LOOP;
11264: END IF; /* end if of cz_pb_mgr.v_status_code <> PUBLICATION_ERROR */
11265: EXCEPTION
11266: WHEN OTHERS
11267: THEN
11268: cz_pb_mgr.v_err_message := cz_utils.get_text('CZ_PB_INSERT_ERR', 'TABLENAME', 'cz_lce_texts', 'SQLERRM', SQLERRM);
11269: cz_pb_mgr.error_msg_populate(cz_pb_mgr.v_err_message, 'cz_pb_mgr.COPYLCETEXTS', SQLCODE);
11270: cz_pb_mgr.v_sql_err_msg := SUBSTR(SQLERRM, 1, 2000);
11271: cz_pb_mgr.v_status_code := PUBLICATION_ERROR;
11272: RAISE;