1018: e_unexpected_error EXCEPTION;
1019: e_no_log_file_dir EXCEPTION;
1020:
1021: h_log_file_dir VARCHAR2(60);
1022: h_log_file_handle UTL_FILE.FILE_TYPE;
1023:
1024: CURSOR c_utl_file_dir IS
1025: SELECT
1026: VP.value
1020:
1021: h_log_file_dir VARCHAR2(60);
1022: h_log_file_handle UTL_FILE.FILE_TYPE;
1023:
1024: CURSOR c_utl_file_dir IS
1025: SELECT
1026: VP.value
1027: FROM
1028: v$parameter VP
1026: VP.value
1027: FROM
1028: v$parameter VP
1029: WHERE
1030: UPPER(VP.name) = 'UTL_FILE_DIR';
1031:
1032: h_utl_file_dir VARCHAR2(2000);
1033:
1034: BEGIN
1028: v$parameter VP
1029: WHERE
1030: UPPER(VP.name) = 'UTL_FILE_DIR';
1031:
1032: h_utl_file_dir VARCHAR2(2000);
1033:
1034: BEGIN
1035:
1036: IF apps_env THEN
1056:
1057: ELSE
1058: -- Personal environment
1059:
1060: OPEN c_utl_file_dir;
1061: FETCH c_utl_file_dir INTO h_utl_file_dir;
1062: IF c_utl_file_dir%NOTFOUND THEN
1063: h_log_file_dir := NULL;
1064: ELSE
1057: ELSE
1058: -- Personal environment
1059:
1060: OPEN c_utl_file_dir;
1061: FETCH c_utl_file_dir INTO h_utl_file_dir;
1062: IF c_utl_file_dir%NOTFOUND THEN
1063: h_log_file_dir := NULL;
1064: ELSE
1065: IF h_utl_file_dir IS NULL THEN
1058: -- Personal environment
1059:
1060: OPEN c_utl_file_dir;
1061: FETCH c_utl_file_dir INTO h_utl_file_dir;
1062: IF c_utl_file_dir%NOTFOUND THEN
1063: h_log_file_dir := NULL;
1064: ELSE
1065: IF h_utl_file_dir IS NULL THEN
1066: h_log_file_dir := NULL;
1061: FETCH c_utl_file_dir INTO h_utl_file_dir;
1062: IF c_utl_file_dir%NOTFOUND THEN
1063: h_log_file_dir := NULL;
1064: ELSE
1065: IF h_utl_file_dir IS NULL THEN
1066: h_log_file_dir := NULL;
1067: ELSE
1068: IF INSTR(h_utl_file_dir, ',') > 0 THEN
1069: h_log_file_dir := SUBSTR(h_utl_file_dir, 1, INSTR(h_utl_file_dir, ',') - 1);
1064: ELSE
1065: IF h_utl_file_dir IS NULL THEN
1066: h_log_file_dir := NULL;
1067: ELSE
1068: IF INSTR(h_utl_file_dir, ',') > 0 THEN
1069: h_log_file_dir := SUBSTR(h_utl_file_dir, 1, INSTR(h_utl_file_dir, ',') - 1);
1070: ELSE
1071: h_log_file_dir := h_utl_file_dir;
1072: END IF;
1065: IF h_utl_file_dir IS NULL THEN
1066: h_log_file_dir := NULL;
1067: ELSE
1068: IF INSTR(h_utl_file_dir, ',') > 0 THEN
1069: h_log_file_dir := SUBSTR(h_utl_file_dir, 1, INSTR(h_utl_file_dir, ',') - 1);
1070: ELSE
1071: h_log_file_dir := h_utl_file_dir;
1072: END IF;
1073: END IF;
1067: ELSE
1068: IF INSTR(h_utl_file_dir, ',') > 0 THEN
1069: h_log_file_dir := SUBSTR(h_utl_file_dir, 1, INSTR(h_utl_file_dir, ',') - 1);
1070: ELSE
1071: h_log_file_dir := h_utl_file_dir;
1072: END IF;
1073: END IF;
1074: END IF;
1075: CLOSE c_utl_file_dir;
1071: h_log_file_dir := h_utl_file_dir;
1072: END IF;
1073: END IF;
1074: END IF;
1075: CLOSE c_utl_file_dir;
1076:
1077: IF h_log_file_dir IS NULL THEN
1078: RAISE e_no_log_file_dir;
1079: END IF;
1077: IF h_log_file_dir IS NULL THEN
1078: RAISE e_no_log_file_dir;
1079: END IF;
1080:
1081: h_log_file_handle := UTL_FILE.FOPEN(h_log_file_dir, x_log_file_name, 'a');
1082: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1083: UTL_FILE.PUT_LINE(h_log_file_handle,'Oracle Balanced Scorecard: Version : '||c_version);
1084: UTL_FILE.PUT_LINE(h_log_file_handle, '');
1085: UTL_FILE.PUT_LINE(h_log_file_handle, 'Copyright (c) Oracle Corporation 1999. All rights reserved.');
1078: RAISE e_no_log_file_dir;
1079: END IF;
1080:
1081: h_log_file_handle := UTL_FILE.FOPEN(h_log_file_dir, x_log_file_name, 'a');
1082: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1083: UTL_FILE.PUT_LINE(h_log_file_handle,'Oracle Balanced Scorecard: Version : '||c_version);
1084: UTL_FILE.PUT_LINE(h_log_file_handle, '');
1085: UTL_FILE.PUT_LINE(h_log_file_handle, 'Copyright (c) Oracle Corporation 1999. All rights reserved.');
1086: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1079: END IF;
1080:
1081: h_log_file_handle := UTL_FILE.FOPEN(h_log_file_dir, x_log_file_name, 'a');
1082: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1083: UTL_FILE.PUT_LINE(h_log_file_handle,'Oracle Balanced Scorecard: Version : '||c_version);
1084: UTL_FILE.PUT_LINE(h_log_file_handle, '');
1085: UTL_FILE.PUT_LINE(h_log_file_handle, 'Copyright (c) Oracle Corporation 1999. All rights reserved.');
1086: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1087: UTL_FILE.PUT_LINE(h_log_file_handle, Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
1080:
1081: h_log_file_handle := UTL_FILE.FOPEN(h_log_file_dir, x_log_file_name, 'a');
1082: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1083: UTL_FILE.PUT_LINE(h_log_file_handle,'Oracle Balanced Scorecard: Version : '||c_version);
1084: UTL_FILE.PUT_LINE(h_log_file_handle, '');
1085: UTL_FILE.PUT_LINE(h_log_file_handle, 'Copyright (c) Oracle Corporation 1999. All rights reserved.');
1086: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1087: UTL_FILE.PUT_LINE(h_log_file_handle, Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
1088: Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
1081: h_log_file_handle := UTL_FILE.FOPEN(h_log_file_dir, x_log_file_name, 'a');
1082: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1083: UTL_FILE.PUT_LINE(h_log_file_handle,'Oracle Balanced Scorecard: Version : '||c_version);
1084: UTL_FILE.PUT_LINE(h_log_file_handle, '');
1085: UTL_FILE.PUT_LINE(h_log_file_handle, 'Copyright (c) Oracle Corporation 1999. All rights reserved.');
1086: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1087: UTL_FILE.PUT_LINE(h_log_file_handle, Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
1088: Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
1089: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time));
1082: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1083: UTL_FILE.PUT_LINE(h_log_file_handle,'Oracle Balanced Scorecard: Version : '||c_version);
1084: UTL_FILE.PUT_LINE(h_log_file_handle, '');
1085: UTL_FILE.PUT_LINE(h_log_file_handle, 'Copyright (c) Oracle Corporation 1999. All rights reserved.');
1086: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1087: UTL_FILE.PUT_LINE(h_log_file_handle, Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
1088: Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
1089: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time));
1090: UTL_FILE.FCLOSE(h_log_file_handle);
1083: UTL_FILE.PUT_LINE(h_log_file_handle,'Oracle Balanced Scorecard: Version : '||c_version);
1084: UTL_FILE.PUT_LINE(h_log_file_handle, '');
1085: UTL_FILE.PUT_LINE(h_log_file_handle, 'Copyright (c) Oracle Corporation 1999. All rights reserved.');
1086: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1087: UTL_FILE.PUT_LINE(h_log_file_handle, Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
1088: Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
1089: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time));
1090: UTL_FILE.FCLOSE(h_log_file_handle);
1091:
1086: UTL_FILE.PUT_LINE(h_log_file_handle, '+---------------------------------------------------------------------------+');
1087: UTL_FILE.PUT_LINE(h_log_file_handle, Get_Lookup_Value('BSC_UI_COMMON', 'TIME')||
1088: Get_Lookup_Value('BSC_UI_COMMON', 'SYMBOL_COLON')||
1089: ' '||TO_CHAR(SYSDATE, c_fto_long_date_time));
1090: UTL_FILE.FCLOSE(h_log_file_handle);
1091:
1092: g_log_file_name := x_log_file_name;
1093: g_log_file_dir := h_log_file_dir;
1094:
1104: WHEN e_no_log_file_dir THEN
1105: x_error_msg := Get_Message('BSC_LOGFILE_DIR_NOT_SPECIFIED');
1106: RETURN FALSE;
1107:
1108: WHEN UTL_FILE.INVALID_PATH THEN
1109: x_error_msg := Get_Message('BSC_LOGFILE_PATH_FAILED');
1110: RETURN FALSE;
1111:
1112: WHEN UTL_FILE.INVALID_MODE THEN
1108: WHEN UTL_FILE.INVALID_PATH THEN
1109: x_error_msg := Get_Message('BSC_LOGFILE_PATH_FAILED');
1110: RETURN FALSE;
1111:
1112: WHEN UTL_FILE.INVALID_MODE THEN
1113: x_error_msg := Get_Message('BSC_LOGFILE_MODE_FAILED');
1114: RETURN FALSE;
1115:
1116: WHEN UTL_FILE.INVALID_OPERATION THEN
1112: WHEN UTL_FILE.INVALID_MODE THEN
1113: x_error_msg := Get_Message('BSC_LOGFILE_MODE_FAILED');
1114: RETURN FALSE;
1115:
1116: WHEN UTL_FILE.INVALID_OPERATION THEN
1117: x_error_msg := Get_Message('BSC_LOGFILE_OPERATION_FAILED');
1118: RETURN FALSE;
1119:
1120: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
1116: WHEN UTL_FILE.INVALID_OPERATION THEN
1117: x_error_msg := Get_Message('BSC_LOGFILE_OPERATION_FAILED');
1118: RETURN FALSE;
1119:
1120: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
1121: x_error_msg := Get_Message('BSC_LOGFILE_HANDLE_FAILED');
1122: RETURN FALSE;
1123:
1124: WHEN UTL_FILE.WRITE_ERROR THEN
1120: WHEN UTL_FILE.INVALID_FILEHANDLE THEN
1121: x_error_msg := Get_Message('BSC_LOGFILE_HANDLE_FAILED');
1122: RETURN FALSE;
1123:
1124: WHEN UTL_FILE.WRITE_ERROR THEN
1125: x_error_msg := Get_Message('BSC_WRITE_LOGFILE_FAILED');
1126: RETURN FALSE;
1127:
1128: WHEN OTHERS THEN
1488: x_line IN VARCHAR2,
1489: x_which IN NUMBER
1490: ) IS
1491:
1492: h_log_file_handle UTL_FILE.FILE_TYPE;
1493: h_which NUMBER;
1494:
1495: h_line VARCHAR2(32700);
1496:
1513:
1514: ELSE
1515: -- Personal environment
1516: IF g_log_file_name IS NOT NULL THEN
1517: h_log_file_handle := UTL_FILE.FOPEN(g_log_file_dir, g_log_file_name, 'a');
1518:
1519: UTL_FILE.PUT_LINE(h_log_file_handle, x_line);
1520: UTL_FILE.FCLOSE(h_log_file_handle);
1521: END IF;
1515: -- Personal environment
1516: IF g_log_file_name IS NOT NULL THEN
1517: h_log_file_handle := UTL_FILE.FOPEN(g_log_file_dir, g_log_file_name, 'a');
1518:
1519: UTL_FILE.PUT_LINE(h_log_file_handle, x_line);
1520: UTL_FILE.FCLOSE(h_log_file_handle);
1521: END IF;
1522: END IF;
1523:
1516: IF g_log_file_name IS NOT NULL THEN
1517: h_log_file_handle := UTL_FILE.FOPEN(g_log_file_dir, g_log_file_name, 'a');
1518:
1519: UTL_FILE.PUT_LINE(h_log_file_handle, x_line);
1520: UTL_FILE.FCLOSE(h_log_file_handle);
1521: END IF;
1522: END IF;
1523:
1524: END Write_Line_Log;