55: RETURN BOOLEAN IS
56: l_debug_statement BOOLEAN;
57: BEGIN
58:
59: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
60: l_debug_statement := TRUE;
61: ELSE
62: l_debug_statement := FALSE;
63: END IF;
70: RETURN BOOLEAN IS
71: l_debug_unexpected BOOLEAN;
72: BEGIN
73:
74: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
75: l_debug_unexpected := TRUE;
76: ELSE
77: l_debug_unexpected := FALSE;
78: END IF;
1293:
1294: EXCEPTION
1295: WHEN OTHERS THEN
1296: x_record_status := FND_API.G_FALSE;
1297: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1298: FND_LOG.string(log_level => FND_LOG.level_unexpected
1299: ,module => g_pkg_name||'.'||l_api_name
1300: ,message => 'unexpected error '||l_progress
1301: );
1294: EXCEPTION
1295: WHEN OTHERS THEN
1296: x_record_status := FND_API.G_FALSE;
1297: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1298: FND_LOG.string(log_level => FND_LOG.level_unexpected
1299: ,module => g_pkg_name||'.'||l_api_name
1300: ,message => 'unexpected error '||l_progress
1301: );
1302: END IF;
1394: EXCEPTION
1395: WHEN OTHERS THEN
1396: --DBMS_OUTPUT.PUT_LINE('error' ||SQLERRM ||' '||SQLCODE);
1397: x_record_status := FND_API.G_FALSE;
1398: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1399: FND_LOG.string(log_level => FND_LOG.level_unexpected
1400: ,module => g_pkg_name||'.'||l_api_name
1401: ,message => 'unexpected error '||l_progress
1402: );
1395: WHEN OTHERS THEN
1396: --DBMS_OUTPUT.PUT_LINE('error' ||SQLERRM ||' '||SQLCODE);
1397: x_record_status := FND_API.G_FALSE;
1398: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1399: FND_LOG.string(log_level => FND_LOG.level_unexpected
1400: ,module => g_pkg_name||'.'||l_api_name
1401: ,message => 'unexpected error '||l_progress
1402: );
1403: END IF;