6362: END register_J150;
6363:
6364: PROCEDURE register_J800 AS
6365: l_api_name CONSTANT VARCHAR2(30) :='REGISTER_J800';
6366: l_file_id fnd_attached_docs_form_vl.media_id%TYPE;
6367: l_lob_data BLOB;
6368: l_data_length NUMBER;
6369: l_amount_to_read NUMBER := 255;
6370: l_data_var_raw RAW(255);
6371: l_data_var_char VARCHAR2(255);
6372: l_read_length NUMBER := 1;
6373: CURSOR file_ids_cur(p_journal_for_rtf NUMBER) IS
6374: SELECT DISTINCT media_id file_id
6375: FROM fnd_attached_docs_form_vl
6376: WHERE entity_name = 'GL_JE_HEADERS'
6377: AND pk2_value = p_journal_for_rtf
6378: AND file_name like '%.txt';
6379: BEGIN