DBA Data[Home] [Help]

APPS.ECE_FLATFILE_PVT dependencies on ECE_OUTPUT

Line 275: ---PROCEDURE write_to_ece_output

271: app_exception.raise_exception;
272:
273: END select_clause;
274:
275: ---PROCEDURE write_to_ece_output
276: ---Creation Feb. 15, 1995
277: ---This report procedure writes data to the ECE_OUTPUT table.
278: ---It put the appropriate record id at the beginning of each record
279: ---lines of data. The entire record line of data is inserted into the

Line 277: ---This report procedure writes data to the ECE_OUTPUT table.

273: END select_clause;
274:
275: ---PROCEDURE write_to_ece_output
276: ---Creation Feb. 15, 1995
277: ---This report procedure writes data to the ECE_OUTPUT table.
278: ---It put the appropriate record id at the beginning of each record
279: ---lines of data. The entire record line of data is inserted into the
280: ---TEXT column in the table.
281: ---

Line 284: PROCEDURE write_to_ece_output(

280: ---TEXT column in the table.
281: ---
282: ---It expects a PL/SQL table of output data (in ASC order)!!!
283:
284: PROCEDURE write_to_ece_output(
285: cTransaction_Type IN VARCHAR2,
286: cCommunication_Method IN VARCHAR2,
287: cInterface_Table IN VARCHAR2,
288: p_Interface_tbl IN Interface_tbl_type,

Line 305: ec_debug.push('ECE_FLATFILE_PVT.WRITE_TO_ECE_OUTPUT');

301: l_count NUMBER;
302:
303: BEGIN
304: if EC_DEBUG.G_debug_level >= 2 then
305: ec_debug.push('ECE_FLATFILE_PVT.WRITE_TO_ECE_OUTPUT');
306: end if;
307: xProgress := 'FILEB-WR-1020';
308: FOR i IN 1..iData_count LOOP
309: xProgress := 'FILEB-WR-1030';

Line 344: INSERT INTO ece_output(run_id,line_id,text) VALUES

340: RPAD(NVL(p_Interface_tbl(iRow_num).layout_code,' '),2) ||
341: RPAD(NVL(p_Interface_tbl(iRow_num).record_qualifier,' '),3) || cInsert_stmt;
342:
343: xProgress := 'FILEB-WR-1100';
344: INSERT INTO ece_output(run_id,line_id,text) VALUES
345: (iRun_id,ece_output_lines_s.NEXTVAL,SUBSTR(cInsert_stmt,1,iOutput_width));
346:
347: xProgress := 'FILEB-WR-1110';
348: cInsert_stmt := NULL;

Line 345: (iRun_id,ece_output_lines_s.NEXTVAL,SUBSTR(cInsert_stmt,1,iOutput_width));

341: RPAD(NVL(p_Interface_tbl(iRow_num).record_qualifier,' '),3) || cInsert_stmt;
342:
343: xProgress := 'FILEB-WR-1100';
344: INSERT INTO ece_output(run_id,line_id,text) VALUES
345: (iRun_id,ece_output_lines_s.NEXTVAL,SUBSTR(cInsert_stmt,1,iOutput_width));
346:
347: xProgress := 'FILEB-WR-1110';
348: cInsert_stmt := NULL;
349: -- cInsert_stmt := '*' || TO_CHAR(p_Interface_tbl(i).Record_num);

Line 362: INSERT INTO ece_output(run_id,line_id,text) VALUES

358: RPAD(NVL(p_Interface_tbl(iRow_num).layout_code,' '),2) ||
359: RPAD(NVL(p_Interface_tbl(iRow_num).record_qualifier,' '),3) || cInsert_stmt;
360:
361: xProgress := 'FILEB-WR-1130';
362: INSERT INTO ece_output(run_id,line_id,text) VALUES
363: (iRun_id,ece_output_lines_s.NEXTVAL,SUBSTR(cInsert_stmt,1,iOutput_width));
364: END IF;
365: END IF;
366: END LOOP;

Line 363: (iRun_id,ece_output_lines_s.NEXTVAL,SUBSTR(cInsert_stmt,1,iOutput_width));

359: RPAD(NVL(p_Interface_tbl(iRow_num).record_qualifier,' '),3) || cInsert_stmt;
360:
361: xProgress := 'FILEB-WR-1130';
362: INSERT INTO ece_output(run_id,line_id,text) VALUES
363: (iRun_id,ece_output_lines_s.NEXTVAL,SUBSTR(cInsert_stmt,1,iOutput_width));
364: END IF;
365: END IF;
366: END LOOP;
367:

Line 369: ec_debug.pop('ECE_FLATFILE_PVT.WRITE_TO_ECE_OUTPUT');

365: END IF;
366: END LOOP;
367:
368: if EC_DEBUG.G_debug_level >= 2 then
369: ec_debug.pop('ECE_FLATFILE_PVT.WRITE_TO_ECE_OUTPUT');
370: end if;
371:
372: EXCEPTION
373: WHEN OTHERS THEN

Line 374: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','ECE_FLATFILE_PVT.WRITE_TO_ECE_OUTPUT');

370: end if;
371:
372: EXCEPTION
373: WHEN OTHERS THEN
374: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL','ECE_FLATFILE_PVT.WRITE_TO_ECE_OUTPUT');
375: ec_debug.pl(0,'EC','ECE_PROGRAM_ERROR','PROGRESS_LEVEL',xProgress);
376: ec_debug.pl(0,'EC','ECE_ERROR_CODE','ERROR_CODE',SQLCODE);
377: ec_debug.pl(0,'EC','ECE_ERROR_MESSAGE','ERROR_MESSAGE',SQLERRM);
378:

Line 385: END write_to_ece_output;

381: ec_debug.pl(0,'EC','ECE_PLSQL_DATA_TYPE','COLUMN_NAME', 'p_interface_tbl(l_count).data_type');
382: ec_debug.pl(0,'EC','ECE_PLSQL_COLUMN_NAME','COLUMN_NAME', 'p_interface_tbl(l_count).base_column');
383: app_exception.raise_exception;
384:
385: END write_to_ece_output;
386:
387: PROCEDURE Find_pos(
388: p_Interface_tbl IN Interface_tbl_type,
389: cSearch_text IN VARCHAR2,