DBA Data[Home] [Help]

APPS.INV_LABEL dependencies on UTL_FILE

Line 1383: l_file UTL_FILE.FILE_TYPE;

1379: l_file_name VARCHAR2(100) := 'LABEL_XML.log';
1380: l_dir_seperator VARCHAR2(1);
1381:
1382: l_length NUMBER;
1383: l_file UTL_FILE.FILE_TYPE;
1384: l_substr VARCHAR2(254);
1385: i NUMBER;
1386: l_last_index NUMBER;
1387: l_cur_index NUMBER;

Line 1428: l_file := UTL_FILE.fopen(rtrim(l_dir,l_dir_seperator), l_file_name, 'a');

1424: l_dir := substr(l_dir, 1, instr(l_dir, l_dir_seperator, -1, 1)-1);
1425:
1426: --Write XML string to file
1427: l_length := length(xml);
1428: l_file := UTL_FILE.fopen(rtrim(l_dir,l_dir_seperator), l_file_name, 'a');
1429: utl_file.put_line(l_file, 'LABEL_XML *** New Session. : '|| To_char(Sysdate, 'DD-MON-YY HH:MI:SS') ||' ***');
1430:
1431:
1432: l_last_index :=1;

Line 1429: utl_file.put_line(l_file, 'LABEL_XML *** New Session. : '|| To_char(Sysdate, 'DD-MON-YY HH:MI:SS') ||' ***');

1425:
1426: --Write XML string to file
1427: l_length := length(xml);
1428: l_file := UTL_FILE.fopen(rtrim(l_dir,l_dir_seperator), l_file_name, 'a');
1429: utl_file.put_line(l_file, 'LABEL_XML *** New Session. : '|| To_char(Sysdate, 'DD-MON-YY HH:MI:SS') ||' ***');
1430:
1431:
1432: l_last_index :=1;
1433: l_cur_index := instr(xml, '>', l_last_index);

Line 1437: utl_file.put_line(l_file, l_substr);

1433: l_cur_index := instr(xml, '>', l_last_index);
1434:
1435: WHILE l_cur_index <> 0 LOOP
1436: l_substr := substr(xml, l_last_index, l_cur_index-l_last_index+1);
1437: utl_file.put_line(l_file, l_substr);
1438: l_last_index := l_cur_index + 1;
1439: IF(substr(xml, l_last_index+1,1) = 'v') THEN
1440: l_cur_index := instr(xml, '>', l_last_index, 2);
1441: ELSE

Line 1445: utl_file.fclose(l_file);

1441: ELSE
1442: l_cur_index := instr(xml, '>', l_last_index, 1);
1443: END IF;
1444: END LOOP;
1445: utl_file.fclose(l_file);
1446: ELSE
1447: NULL;
1448: END IF;
1449: EXCEPTION

Line 1450: WHEN utl_file.invalid_path THEN

1446: ELSE
1447: NULL;
1448: END IF;
1449: EXCEPTION
1450: WHEN utl_file.invalid_path THEN
1451: IF (l_debug = 1) THEN
1452: trace(' Invalid path in ' || G_PKG_NAME||'.WriteIntoFile, can not write into file', TRACE_PROMPT, TRACE_LEVEL);
1453: END IF;
1454: IF (utl_file.IS_OPEN(l_file)) THEN

Line 1454: IF (utl_file.IS_OPEN(l_file)) THEN

1450: WHEN utl_file.invalid_path THEN
1451: IF (l_debug = 1) THEN
1452: trace(' Invalid path in ' || G_PKG_NAME||'.WriteIntoFile, can not write into file', TRACE_PROMPT, TRACE_LEVEL);
1453: END IF;
1454: IF (utl_file.IS_OPEN(l_file)) THEN
1455: utl_file.fclose(l_file);
1456: END IF;
1457: IF (l_debug = 1) THEN
1458: trace('ERROR CODE = ' || SQLCODE, TRACE_PROMPT, TRACE_LEVEL);

Line 1455: utl_file.fclose(l_file);

1451: IF (l_debug = 1) THEN
1452: trace(' Invalid path in ' || G_PKG_NAME||'.WriteIntoFile, can not write into file', TRACE_PROMPT, TRACE_LEVEL);
1453: END IF;
1454: IF (utl_file.IS_OPEN(l_file)) THEN
1455: utl_file.fclose(l_file);
1456: END IF;
1457: IF (l_debug = 1) THEN
1458: trace('ERROR CODE = ' || SQLCODE, TRACE_PROMPT, TRACE_LEVEL);
1459: trace('ERROR MESSAGE = ' || SQLERRM, TRACE_PROMPT, TRACE_LEVEL);

Line 1466: IF (utl_file.IS_OPEN(l_file)) THEN

1462: WHEN fnd_api.g_exc_error THEN
1463: IF (l_debug = 1) THEN
1464: trace(' Expected Error In '|| G_PKG_NAME||'.WriteIntoFile', TRACE_PROMPT, TRACE_LEVEL);
1465: END IF;
1466: IF (utl_file.IS_OPEN(l_file)) THEN
1467: utl_file.fclose(l_file);
1468: END IF;
1469: IF (l_debug = 1) THEN
1470: trace('ERROR CODE = ' || SQLCODE, TRACE_PROMPT, TRACE_LEVEL);

Line 1467: utl_file.fclose(l_file);

1463: IF (l_debug = 1) THEN
1464: trace(' Expected Error In '|| G_PKG_NAME||'.WriteIntoFile', TRACE_PROMPT, TRACE_LEVEL);
1465: END IF;
1466: IF (utl_file.IS_OPEN(l_file)) THEN
1467: utl_file.fclose(l_file);
1468: END IF;
1469: IF (l_debug = 1) THEN
1470: trace('ERROR CODE = ' || SQLCODE, TRACE_PROMPT, TRACE_LEVEL);
1471: trace('ERROR MESSAGE = ' || SQLERRM, TRACE_PROMPT, TRACE_LEVEL);

Line 1478: IF (utl_file.IS_OPEN(l_file)) THEN

1474: WHEN fnd_api.g_exc_unexpected_error THEN
1475: IF (l_debug = 1) THEN
1476: trace(' Unexpected Error In '|| G_PKG_NAME||'.WriteIntoFile', TRACE_PROMPT, TRACE_LEVEL);
1477: END IF;
1478: IF (utl_file.IS_OPEN(l_file)) THEN
1479: utl_file.fclose(l_file);
1480: END IF;
1481: IF (l_debug = 1) THEN
1482: trace('ERROR CODE = ' || SQLCODE, TRACE_PROMPT, TRACE_LEVEL);

Line 1479: utl_file.fclose(l_file);

1475: IF (l_debug = 1) THEN
1476: trace(' Unexpected Error In '|| G_PKG_NAME||'.WriteIntoFile', TRACE_PROMPT, TRACE_LEVEL);
1477: END IF;
1478: IF (utl_file.IS_OPEN(l_file)) THEN
1479: utl_file.fclose(l_file);
1480: END IF;
1481: IF (l_debug = 1) THEN
1482: trace('ERROR CODE = ' || SQLCODE, TRACE_PROMPT, TRACE_LEVEL);
1483: trace('ERROR MESSAGE = ' || SQLERRM, TRACE_PROMPT, TRACE_LEVEL);

Line 1490: IF (utl_file.IS_OPEN(l_file)) THEN

1486: WHEN others THEN
1487: IF (l_debug = 1) THEN
1488: trace(' Other Error In '|| G_PKG_NAME||'.WriteIntoFile', TRACE_PROMPT, TRACE_LEVEL);
1489: END IF;
1490: IF (utl_file.IS_OPEN(l_file)) THEN
1491: utl_file.fclose(l_file);
1492: END IF;
1493: IF (l_debug = 1) THEN
1494: trace('ERROR CODE = ' || SQLCODE, TRACE_PROMPT, TRACE_LEVEL);

Line 1491: utl_file.fclose(l_file);

1487: IF (l_debug = 1) THEN
1488: trace(' Other Error In '|| G_PKG_NAME||'.WriteIntoFile', TRACE_PROMPT, TRACE_LEVEL);
1489: END IF;
1490: IF (utl_file.IS_OPEN(l_file)) THEN
1491: utl_file.fclose(l_file);
1492: END IF;
1493: IF (l_debug = 1) THEN
1494: trace('ERROR CODE = ' || SQLCODE, TRACE_PROMPT, TRACE_LEVEL);
1495: trace('ERROR MESSAGE = ' || SQLERRM, TRACE_PROMPT, TRACE_LEVEL);