[Home] [Help]
44: );
45:
46: TYPE events_tab IS TABLE OF events_rec INDEX BY BINARY_INTEGER;
47:
48: -- This procedure is stubbed out because this has been replaced with fnd logging procedures
49: -- The signature is still kept because some AR packages are accessing it
50:
51: PROCEDURE init
52: IS
53: l_path_name VARCHAR2(500);
54: l_file_info VARCHAR2(2000);
55: BEGIN
56: g_path_name := 'psa.plsql.psautilb.psa_utils';
57: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
58: g_state_level := FND_LOG.LEVEL_STATEMENT;
59: g_proc_level := FND_LOG.LEVEL_PROCEDURE;
60: g_event_level := FND_LOG.LEVEL_EVENT;
61: g_excep_level := FND_LOG.LEVEL_EXCEPTION;
54: l_file_info VARCHAR2(2000);
55: BEGIN
56: g_path_name := 'psa.plsql.psautilb.psa_utils';
57: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
58: g_state_level := FND_LOG.LEVEL_STATEMENT;
59: g_proc_level := FND_LOG.LEVEL_PROCEDURE;
60: g_event_level := FND_LOG.LEVEL_EVENT;
61: g_excep_level := FND_LOG.LEVEL_EXCEPTION;
62: g_error_level := FND_LOG.LEVEL_ERROR;
55: BEGIN
56: g_path_name := 'psa.plsql.psautilb.psa_utils';
57: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
58: g_state_level := FND_LOG.LEVEL_STATEMENT;
59: g_proc_level := FND_LOG.LEVEL_PROCEDURE;
60: g_event_level := FND_LOG.LEVEL_EVENT;
61: g_excep_level := FND_LOG.LEVEL_EXCEPTION;
62: g_error_level := FND_LOG.LEVEL_ERROR;
63: g_unexp_level := FND_LOG.LEVEL_UNEXPECTED;
56: g_path_name := 'psa.plsql.psautilb.psa_utils';
57: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
58: g_state_level := FND_LOG.LEVEL_STATEMENT;
59: g_proc_level := FND_LOG.LEVEL_PROCEDURE;
60: g_event_level := FND_LOG.LEVEL_EVENT;
61: g_excep_level := FND_LOG.LEVEL_EXCEPTION;
62: g_error_level := FND_LOG.LEVEL_ERROR;
63: g_unexp_level := FND_LOG.LEVEL_UNEXPECTED;
64: l_path_name := g_path_name || '.init';
57: g_debug_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
58: g_state_level := FND_LOG.LEVEL_STATEMENT;
59: g_proc_level := FND_LOG.LEVEL_PROCEDURE;
60: g_event_level := FND_LOG.LEVEL_EVENT;
61: g_excep_level := FND_LOG.LEVEL_EXCEPTION;
62: g_error_level := FND_LOG.LEVEL_ERROR;
63: g_unexp_level := FND_LOG.LEVEL_UNEXPECTED;
64: l_path_name := g_path_name || '.init';
65: g_FAILURE := -1;
58: g_state_level := FND_LOG.LEVEL_STATEMENT;
59: g_proc_level := FND_LOG.LEVEL_PROCEDURE;
60: g_event_level := FND_LOG.LEVEL_EVENT;
61: g_excep_level := FND_LOG.LEVEL_EXCEPTION;
62: g_error_level := FND_LOG.LEVEL_ERROR;
63: g_unexp_level := FND_LOG.LEVEL_UNEXPECTED;
64: l_path_name := g_path_name || '.init';
65: g_FAILURE := -1;
66: g_SUCCESS := 0;
59: g_proc_level := FND_LOG.LEVEL_PROCEDURE;
60: g_event_level := FND_LOG.LEVEL_EVENT;
61: g_excep_level := FND_LOG.LEVEL_EXCEPTION;
62: g_error_level := FND_LOG.LEVEL_ERROR;
63: g_unexp_level := FND_LOG.LEVEL_UNEXPECTED;
64: l_path_name := g_path_name || '.init';
65: g_FAILURE := -1;
66: g_SUCCESS := 0;
67: g_WARNING := -2;
148: IF (g_unexp_level >= g_debug_level) THEN
149: fnd_message.set_name('PSA','PSA_LOGGING_UNEXP_ERROR');
150: fnd_message.set_token('CODE',SQLCODE);
151: fnd_message.set_token('MSG', SQLERRM);
152: fnd_log.message (g_unexp_level,p_full_path, TRUE);
153: END IF;
154: END debug_unexpected_msg;
155:
156: /* ===================== DEBUG_OTHER_MSG ============================ */
162: p_remove_from_stack IN BOOLEAN
163: ) IS
164: BEGIN
165: IF (p_level >= g_debug_level) THEN
166: fnd_log.message(p_level,p_full_path,p_remove_from_stack);
167: END IF;
168: END debug_other_msg;
169:
170: /* ==================== DEBUG_OTHER_STRING ========================= */
177: )
178: IS
179: BEGIN
180: IF (p_level >= g_debug_level) THEN
181: fnd_log.string(p_level,p_full_path,p_string);
182: END IF;
183: END debug_other_string;
184:
185: -- procedure to fetch RFE ccid for passed ccid
1332: fnd_profile.put ('AFLOG_MODULE', '%');
1333: g_debug_level := 1;
1334: END IF;
1335:
1336: SELECT fnd_log_messages_s.nextval
1337: INTO l_start_log_id
1338: FROM DUAL;
1339:
1340: IF (l_retcode = g_SUCCESS) THEN
1365: debug_other_string(g_state_level,l_path_name, 'l_errbuf='||l_errbuf );
1366: debug_other_string(g_state_level,l_path_name, 'l_retcode='||l_retcode );
1367: END IF;
1368:
1369: SELECT fnd_log_messages_s.nextval
1370: INTO l_end_log_id
1371: FROM DUAL;
1372:
1373: error (' ');
1495: fnd_profile.put ('AFLOG_MODULE', '%');
1496: g_debug_level := 1;
1497: END IF;
1498:
1499: SELECT fnd_log_messages_s.nextval
1500: INTO l_start_log_id
1501: FROM DUAL;
1502:
1503: IF (l_retcode = g_SUCCESS) THEN
1527: debug_other_string(g_state_level,l_path_name, 'l_errbuf='||l_errbuf );
1528: debug_other_string(g_state_level,l_path_name, 'l_retcode='||l_retcode );
1529: END IF;
1530:
1531: SELECT fnd_log_messages_s.nextval
1532: INTO l_end_log_id
1533: FROM DUAL;
1534:
1535: error (' ');
1543: /*
1544: error (' ');
1545: error (' ');
1546: error ('For debugging purpose use the following SQL');
1547: error ('select * from fnd_log_messages ');
1548: error ('where log_sequence between '||l_start_log_id ||' and '||l_end_log_id);
1549: error ('and audsid = '||g_audsid);
1550: error ('order by log_sequence');
1551: error (' ');
1602: fnd_profile.put ('AFLOG_MODULE', '%');
1603: g_debug_level := 1;
1604: END IF;
1605:
1606: SELECT fnd_log_messages_s.nextval
1607: INTO l_start_log_id
1608: FROM DUAL;
1609:
1610: IF (l_retcode = g_SUCCESS) THEN
1654: debug_other_string(g_state_level,l_path_name, 'l_errbuf='||l_errbuf );
1655: debug_other_string(g_state_level,l_path_name, 'l_retcode='||l_retcode );
1656: END IF;
1657:
1658: SELECT fnd_log_messages_s.nextval
1659: INTO l_end_log_id
1660: FROM DUAL;
1661:
1662: error (' ');
1670: /*
1671: error (' ');
1672: error (' ');
1673: error ('For debugging purpose use the following SQL');
1674: error ('select * from fnd_log_messages ');
1675: error ('where log_sequence between '||l_start_log_id ||' and '||l_end_log_id);
1676: error ('and audsid = '||g_audsid);
1677: error ('order by log_sequence');
1678: error (' ');