[Home] [Help]
1: package body FND_LOG_REPOSITORY as
2: /* $Header: AFUTLGRB.pls 120.12 2006/09/18 14:19:08 pferguso ship $ */
3:
4: --
5: -- PRIVATE TYPES, VARIABLES
52: /*
53: ** For GET_CONTEXT Function
54: ** Types for storing context info before calling autonomous
55: ** logging procedures, like
56: ** FND_LOG_REPOSITORY.String_Unchecked_Internal2
57: */
58: type CONTEXT_REC is record (
59: a_col varchar2(30),
60: a_val varchar2(4000) );
62: index by binary_integer;
63:
64: /* For Proxy Alerting */
65: G_PRX_CHILD_TRANS_CONTEXT_ID NUMBER;
66: G_PRX_SESSION_ID fnd_log_messages.session_id%TYPE;
67: G_PRX_USER_ID fnd_log_messages.user_id%TYPE;
68: G_PRX_SESSION_MODULE fnd_log_exceptions.session_module%TYPE;
69: G_PRX_SESSION_ACTION fnd_log_exceptions.session_action%TYPE;
70: G_PRX_MODULE fnd_log_messages.module%TYPE;
63:
64: /* For Proxy Alerting */
65: G_PRX_CHILD_TRANS_CONTEXT_ID NUMBER;
66: G_PRX_SESSION_ID fnd_log_messages.session_id%TYPE;
67: G_PRX_USER_ID fnd_log_messages.user_id%TYPE;
68: G_PRX_SESSION_MODULE fnd_log_exceptions.session_module%TYPE;
69: G_PRX_SESSION_ACTION fnd_log_exceptions.session_action%TYPE;
70: G_PRX_MODULE fnd_log_messages.module%TYPE;
71: G_PRX_NODE fnd_log_messages.node%TYPE;
64: /* For Proxy Alerting */
65: G_PRX_CHILD_TRANS_CONTEXT_ID NUMBER;
66: G_PRX_SESSION_ID fnd_log_messages.session_id%TYPE;
67: G_PRX_USER_ID fnd_log_messages.user_id%TYPE;
68: G_PRX_SESSION_MODULE fnd_log_exceptions.session_module%TYPE;
69: G_PRX_SESSION_ACTION fnd_log_exceptions.session_action%TYPE;
70: G_PRX_MODULE fnd_log_messages.module%TYPE;
71: G_PRX_NODE fnd_log_messages.node%TYPE;
72: G_PRX_NODE_IP_ADDRESS fnd_log_messages.node_ip_address%TYPE;
65: G_PRX_CHILD_TRANS_CONTEXT_ID NUMBER;
66: G_PRX_SESSION_ID fnd_log_messages.session_id%TYPE;
67: G_PRX_USER_ID fnd_log_messages.user_id%TYPE;
68: G_PRX_SESSION_MODULE fnd_log_exceptions.session_module%TYPE;
69: G_PRX_SESSION_ACTION fnd_log_exceptions.session_action%TYPE;
70: G_PRX_MODULE fnd_log_messages.module%TYPE;
71: G_PRX_NODE fnd_log_messages.node%TYPE;
72: G_PRX_NODE_IP_ADDRESS fnd_log_messages.node_ip_address%TYPE;
73: G_PRX_PROCESS_ID fnd_log_messages.process_id%TYPE;
66: G_PRX_SESSION_ID fnd_log_messages.session_id%TYPE;
67: G_PRX_USER_ID fnd_log_messages.user_id%TYPE;
68: G_PRX_SESSION_MODULE fnd_log_exceptions.session_module%TYPE;
69: G_PRX_SESSION_ACTION fnd_log_exceptions.session_action%TYPE;
70: G_PRX_MODULE fnd_log_messages.module%TYPE;
71: G_PRX_NODE fnd_log_messages.node%TYPE;
72: G_PRX_NODE_IP_ADDRESS fnd_log_messages.node_ip_address%TYPE;
73: G_PRX_PROCESS_ID fnd_log_messages.process_id%TYPE;
74: G_PRX_JVM_ID fnd_log_messages.jvm_id%TYPE;
67: G_PRX_USER_ID fnd_log_messages.user_id%TYPE;
68: G_PRX_SESSION_MODULE fnd_log_exceptions.session_module%TYPE;
69: G_PRX_SESSION_ACTION fnd_log_exceptions.session_action%TYPE;
70: G_PRX_MODULE fnd_log_messages.module%TYPE;
71: G_PRX_NODE fnd_log_messages.node%TYPE;
72: G_PRX_NODE_IP_ADDRESS fnd_log_messages.node_ip_address%TYPE;
73: G_PRX_PROCESS_ID fnd_log_messages.process_id%TYPE;
74: G_PRX_JVM_ID fnd_log_messages.jvm_id%TYPE;
75: G_PRX_THREAD_ID fnd_log_messages.thread_id%TYPE;
68: G_PRX_SESSION_MODULE fnd_log_exceptions.session_module%TYPE;
69: G_PRX_SESSION_ACTION fnd_log_exceptions.session_action%TYPE;
70: G_PRX_MODULE fnd_log_messages.module%TYPE;
71: G_PRX_NODE fnd_log_messages.node%TYPE;
72: G_PRX_NODE_IP_ADDRESS fnd_log_messages.node_ip_address%TYPE;
73: G_PRX_PROCESS_ID fnd_log_messages.process_id%TYPE;
74: G_PRX_JVM_ID fnd_log_messages.jvm_id%TYPE;
75: G_PRX_THREAD_ID fnd_log_messages.thread_id%TYPE;
76: G_PRX_AUDSID fnd_log_messages.audsid%TYPE;
69: G_PRX_SESSION_ACTION fnd_log_exceptions.session_action%TYPE;
70: G_PRX_MODULE fnd_log_messages.module%TYPE;
71: G_PRX_NODE fnd_log_messages.node%TYPE;
72: G_PRX_NODE_IP_ADDRESS fnd_log_messages.node_ip_address%TYPE;
73: G_PRX_PROCESS_ID fnd_log_messages.process_id%TYPE;
74: G_PRX_JVM_ID fnd_log_messages.jvm_id%TYPE;
75: G_PRX_THREAD_ID fnd_log_messages.thread_id%TYPE;
76: G_PRX_AUDSID fnd_log_messages.audsid%TYPE;
77: G_PRX_DB_INSTANCE fnd_log_messages.db_instance%TYPE;
70: G_PRX_MODULE fnd_log_messages.module%TYPE;
71: G_PRX_NODE fnd_log_messages.node%TYPE;
72: G_PRX_NODE_IP_ADDRESS fnd_log_messages.node_ip_address%TYPE;
73: G_PRX_PROCESS_ID fnd_log_messages.process_id%TYPE;
74: G_PRX_JVM_ID fnd_log_messages.jvm_id%TYPE;
75: G_PRX_THREAD_ID fnd_log_messages.thread_id%TYPE;
76: G_PRX_AUDSID fnd_log_messages.audsid%TYPE;
77: G_PRX_DB_INSTANCE fnd_log_messages.db_instance%TYPE;
78:
71: G_PRX_NODE fnd_log_messages.node%TYPE;
72: G_PRX_NODE_IP_ADDRESS fnd_log_messages.node_ip_address%TYPE;
73: G_PRX_PROCESS_ID fnd_log_messages.process_id%TYPE;
74: G_PRX_JVM_ID fnd_log_messages.jvm_id%TYPE;
75: G_PRX_THREAD_ID fnd_log_messages.thread_id%TYPE;
76: G_PRX_AUDSID fnd_log_messages.audsid%TYPE;
77: G_PRX_DB_INSTANCE fnd_log_messages.db_instance%TYPE;
78:
79: /*
72: G_PRX_NODE_IP_ADDRESS fnd_log_messages.node_ip_address%TYPE;
73: G_PRX_PROCESS_ID fnd_log_messages.process_id%TYPE;
74: G_PRX_JVM_ID fnd_log_messages.jvm_id%TYPE;
75: G_PRX_THREAD_ID fnd_log_messages.thread_id%TYPE;
76: G_PRX_AUDSID fnd_log_messages.audsid%TYPE;
77: G_PRX_DB_INSTANCE fnd_log_messages.db_instance%TYPE;
78:
79: /*
80: * For Proxy Alerting: Index values to use within CONTEXT_ARRAY.
73: G_PRX_PROCESS_ID fnd_log_messages.process_id%TYPE;
74: G_PRX_JVM_ID fnd_log_messages.jvm_id%TYPE;
75: G_PRX_THREAD_ID fnd_log_messages.thread_id%TYPE;
76: G_PRX_AUDSID fnd_log_messages.audsid%TYPE;
77: G_PRX_DB_INSTANCE fnd_log_messages.db_instance%TYPE;
78:
79: /*
80: * For Proxy Alerting: Index values to use within CONTEXT_ARRAY.
81: * This is mostly for code readability in order to avoid passing
105: CCI_THREAD_ID CONSTANT NUMBER := 16;
106: CCI_AUDSID CONSTANT NUMBER := 17;
107: CCI_DB_INSTANCE CONSTANT NUMBER := 18;
108:
109: /* fnd_log_enabled_tracing BOOLEAN := FALSE; */
110:
111: /***For debugging purpose */
112: PROCEDURE DEBUG(p_msg IN VARCHAR2) is
113: l_num number;
120: --UTL_FILE.PUT_LINE(config_file, l_msg);
121: --UTL_FILE.fclose(config_file);
122:
123: ------Debug using DB
124: --insert into DEBUG_FND_LOG_REPOSITORY(MSG) values(p_msg);
125: --commit;
126: --dbms_output.put_line(p_msg);
127: l_msg := null;
128: end DEBUG;
170:
171:
172: if (l_sys_al_level >= p_msg_sev)THEN
173: l_pr_al_count := fnd_profile.value('OAM_MAX_SYSTEM_ALERT');
174: select count(*) into l_alertCount from FND_LOG_UNIQUE_EXCEPTIONS
175: where STATUS = 'N';
176: DEBUG('IS_ALERTING_ENABLED: can log msg Sevrity lower Next chek:l_pr_al_count' || l_pr_al_count);
177: DEBUG('IS_ALERTING_ENABLED::l_alertCount' || l_alertCount);
178: if (l_alertCount < l_pr_al_count) then
189: end IS_ALERTING_ENABLED;
190:
191:
192: /*
193: ** FND_LOG_REPOSITORY.INIT_TRANSACTION_INTERNAL
194: **
195: ** Description:
196: ** Initializes a log transaction. A log transaction
197: ** corresponds to an instance or invocation of a single
214: P_PARENT_CONTEXT_ID IN NUMBER DEFAULT NULL) is
215: pragma AUTONOMOUS_TRANSACTION;
216: l_transaction_context_id number;
217: begin
218: insert into FND_LOG_TRANSACTION_CONTEXT
219: (TRANSACTION_CONTEXT_ID,
220: SESSION_ID,
221: TRANSACTION_TYPE,
222: TRANSACTION_ID,
229: COMPONENT_ID,
230: CREATION_DATE,
231: PARENT_CONTEXT_ID
232: ) values
233: (FND_LOG_TRANSACTION_CTX_ID_S.nextval,
234: nvl(P_SESSION_ID, -1),
235: P_TRANSACTION_TYPE,
236: nvl(P_TRANSACTION_ID, -1),
237: nvl(P_USER_ID, -1),
245: P_PARENT_CONTEXT_ID
246: ) RETURNING TRANSACTION_CONTEXT_ID into l_transaction_context_id;
247:
248: if (p_parent_context_id is null) then
249: FND_LOG.G_TRANSACTION_CONTEXT_ID := l_transaction_context_id;
250: else
251: -- called for a proxy so set the child transaction context id
252: G_PRX_CHILD_TRANS_CONTEXT_ID := l_transaction_context_id;
253: end if;
258:
259: /*
260: ** GET_CONTEXT- Gathers context info within the session,
261: ** before calling autonomous logging procedures, like
262: ** FND_LOG_REPOSITORY.String_Unchecked_Internal2
263: */
264: PROCEDURE GET_CONTEXT (SESSION_ID IN NUMBER DEFAULT NULL,
265: USER_ID IN NUMBER DEFAULT NULL,
266: NODE IN VARCHAR2 DEFAULT NULL,
381: CONTEXT_OUT(9).a_val := DB_INSTANCE;
382: end if;
383:
384: /* 10. TRANSACTION_CONTEXT_ID */
385: if (FND_LOG.G_TRANSACTION_CONTEXT_ID is NULL) THEN
386:
387: /* create a new transaction context on the fly */
388: FND_LOG.G_TRANSACTION_CONTEXT_ID := init_trans_int_with_context(
389: fnd_global.conc_request_id,
384: /* 10. TRANSACTION_CONTEXT_ID */
385: if (FND_LOG.G_TRANSACTION_CONTEXT_ID is NULL) THEN
386:
387: /* create a new transaction context on the fly */
388: FND_LOG.G_TRANSACTION_CONTEXT_ID := init_trans_int_with_context(
389: fnd_global.conc_request_id,
390: fnd_global.form_id,
391: fnd_global.form_appl_id,
392: fnd_global.conc_process_id,
401:
402:
403: end if;
404:
405: CONTEXT_OUT(10).a_val := FND_LOG.G_TRANSACTION_CONTEXT_ID;
406:
407: end GET_CONTEXT;
408:
409: /*
408:
409: /*
410: ** GET_TRANSACTION_CONTEXT- Gathers transaction context info within
411: ** the session, before calling autonomous procedures, like
412: ** FND_LOG_REPOSITORY.Init_Transaction_Internal
413: */
414: PROCEDURE GET_TRANSACTION_CONTEXT ( SESSION_ID IN NUMBER DEFAULT NULL,
415: USER_ID IN NUMBER DEFAULT NULL,
416: RESP_APPL_ID IN NUMBER DEFAULT NULL,
521: /*
522: ** Private - for ATG only.
523: ** POST_EXCEPTION
524: ** Description:
525: ** Inserts extended exception information into FND_LOG_EXCEPTIONS and
526: ** posts the exception / unexpected error to the Business Event System
527: **
528: ** Arguments:
529: ** Module - Module name (See FND_LOG standards)
525: ** Inserts extended exception information into FND_LOG_EXCEPTIONS and
526: ** posts the exception / unexpected error to the Business Event System
527: **
528: ** Arguments:
529: ** Module - Module name (See FND_LOG standards)
530: ** Message_Id - The unique identifier of the message from
531: ** FND_LOG_MESSAGES.Log_Sequence
532: */
533: FUNCTION POST_EXCEPTION ( P_MODULE IN VARCHAR2,
527: **
528: ** Arguments:
529: ** Module - Module name (See FND_LOG standards)
530: ** Message_Id - The unique identifier of the message from
531: ** FND_LOG_MESSAGES.Log_Sequence
532: */
533: FUNCTION POST_EXCEPTION ( P_MODULE IN VARCHAR2,
534: P_LOG_SEQUENCE IN NUMBER,
535: P_MESSAGE_APP IN VARCHAR2 DEFAULT NULL,
559: begin
560:
561: select MESSAGE_TEXT, TRANSACTION_CONTEXT_ID
562: into l_enc_msg, l_txn_id
563: from FND_LOG_MESSAGES
564: where LOG_SEQUENCE = P_LOG_SEQUENCE;
565:
566: if ((P_MESSAGE_APP IS NOT NULL) and
567: (P_MESSAGE_NAME IS NOT NULL)) then
608: FND_MESSAGE.SET_NAME ('FND', 'SQL-Generic error');
609: FND_MESSAGE.SET_TOKEN ('ERRNO', sqlcode, FALSE);
610: FND_MESSAGE.SET_TOKEN ('REASON', sqlerrm, FALSE);
611: FND_MESSAGE.SET_TOKEN ('ROUTINE',
612: 'FND_LOG_REPOSITORY.POST_EXCEPTION', FALSE);
613:
614: rollback;
615: return FALSE;
616: end;
647: dbms_session.set_nls('NLS_DATE_LANGUAGE', '"' || l_cur_date_lang || '"');
648: dbms_session.set_nls('NLS_SORT', '"' || l_cur_sort || '"');
649:
650:
651: /* Unique exception enhancement: Check fnd_log_unique_exceptions table for a row */
652: /* with this same message. If one exists already, increment the exception count */
653: /* If this is the first one, insert a new row into fnd_log_unique_exceptions */
654: begin
655: l_is_new_alert := false;
649:
650:
651: /* Unique exception enhancement: Check fnd_log_unique_exceptions table for a row */
652: /* with this same message. If one exists already, increment the exception count */
653: /* If this is the first one, insert a new row into fnd_log_unique_exceptions */
654: begin
655: l_is_new_alert := false;
656: select unique_exception_id, count
657: into l_ex_id, l_occ_count
654: begin
655: l_is_new_alert := false;
656: select unique_exception_id, count
657: into l_ex_id, l_occ_count
658: from fnd_log_unique_exceptions
659: where encoded_message = l_enc_msg
660: and status in ('N', 'O');
661:
662: /** Check if limit for occrrences has been reached **/
666: DEBUG('Not Logging occ l_occ_count = l_max_occ_count'|| l_max_occ_count);
667: return FALSE;
668: end if;
669:
670: update fnd_log_unique_exceptions flue
671: set flue.count = flue.count + 1
672: where flue.unique_exception_id = l_ex_id;
673:
674: exception
672: where flue.unique_exception_id = l_ex_id;
673:
674: exception
675: when no_data_found then
676: select fnd_log_unique_exception_s.nextval
677: into l_ex_id
678: from dual;
679:
680: insert into fnd_log_unique_exceptions (
676: select fnd_log_unique_exception_s.nextval
677: into l_ex_id
678: from dual;
679:
680: insert into fnd_log_unique_exceptions (
681: UNIQUE_EXCEPTION_ID,
682: ENCODED_MESSAGE,
683: ENGLISH_MESSAGE,
684: STATUS,
709:
710: end;
711:
712:
713: /* Log extended exception information in FND_LOG_EXCEPTIONS */
714: insert into FND_LOG_EXCEPTIONS (
715: LOG_SEQUENCE,
716: SESSION_MODULE,
717: SESSION_ACTION,
710: end;
711:
712:
713: /* Log extended exception information in FND_LOG_EXCEPTIONS */
714: insert into FND_LOG_EXCEPTIONS (
715: LOG_SEQUENCE,
716: SESSION_MODULE,
717: SESSION_ACTION,
718: UNIQUE_EXCEPTION_ID,
745: FND_MESSAGE.SET_NAME ('FND', 'SQL-Generic error');
746: FND_MESSAGE.SET_TOKEN ('ERRNO', sqlcode, FALSE);
747: FND_MESSAGE.SET_TOKEN ('REASON', sqlerrm, FALSE);
748: FND_MESSAGE.SET_TOKEN ('ROUTINE',
749: 'FND_LOG_REPOSITORY.POST_EXCEPTION', FALSE);
750: rollback;
751: return FALSE;
752:
753: end POST_EXCEPTION;
795: /* log to table */
796: end if;
797:
798:
799: INSERT INTO FND_LOG_MESSAGES (
800: ECID_ID,
801: ECID_SEQ,
802: CALLSTACK,
803: ERRORSTACK,
819: SUBSTRB(MESSAGE_TEXT, 1, 4000),
820: SESSION_ID_Z,
821: USER_ID_Z,
822: SYSDATE,
823: FND_LOG_MESSAGES_S.NEXTVAL
824: );
825:
826: commit;
827: end;
876: when others then
877: AFLOG_BUFFER_MODE_X := 0;
878: G_BUFFER_POS := 1;
879: DELETE_BUFFERED_TABLES;
880: STR_UNCHKED_INT_WITH_CONTEXT(6, 'fnd.plsql.fnd_log_repository', 'Buffered Logging Failed! ' ||
881: 'Please report to Oracle Development. sqlcode=' || sqlcode ||
882: '; sqlerrm=' || sqlerrm);
883: return l_log_seq;
884: end FLUSH;
981:
982: /* This is the default Sequenced mode for AFLOG_BUFFER_MODE */
983: /* if ( AFLOG_BUFFER_MODE_X = 2 ) then */
984: -- Better to always do this so log_level>=4 messages are in sequence
985: select FND_LOG_MESSAGES_S.NEXTVAL
986: into LOG_SEQUENCE_TABLE(G_BUFFER_POS)
987: from dual;
988: /* end if; */
989:
1022: end if;
1023: else
1024:
1025:
1026: INSERT INTO FND_LOG_MESSAGES (
1027: ECID_ID,
1028: ECID_SEQ,
1029: CALLSTACK,
1030: ERRORSTACK,
1055: SUBSTRB(MESSAGE_TEXT, 1, 4000),
1056: SESSION_ID,
1057: nvl(USER_ID, -1),
1058: SYSDATE,
1059: FND_LOG_MESSAGES_S.NEXTVAL,
1060: ENCODED,
1061: substrb(NODE,1,60),
1062: substrb(NODE_IP_ADDRESS,1,30),
1063: substrb(PROCESS_ID,1,120),
1244: CALL_STACK => CALL_STACK,
1245: ERR_STACK => ERR_STACK);
1246:
1247: /* Unexpected errors are posted as exceptions */
1248: if (l_encoded = 'Y') and (LOG_LEVEL = FND_LOG.LEVEL_UNEXPECTED) then
1249: l_posted := POST_EXCEPTION(P_MODULE => l_module,
1250: P_LOG_SEQUENCE => l_log_sequence);
1251: end if;
1252:
1261: PMIMETYPE IN VARCHAR2, PENCODING IN VARCHAR2, PLANG IN VARCHAR2,
1262: PFILE_EXTN IN VARCHAR2, PDESC IN VARCHAR2) is
1263: pragma AUTONOMOUS_TRANSACTION;
1264: begin
1265: INSERT INTO FND_LOG_ATTACHMENTS fla
1266: (
1267: LOG_SEQUENCE,
1268: CHARSET,
1269: MIMETYPE,
1308: end if;
1309:
1310: select content
1311: into LOG_BLOB
1312: from FND_LOG_ATTACHMENTS fla
1313: where fla.log_sequence = P_LOG_SEQUENCE for UPDATE;
1314: return;
1315:
1316: EXCEPTION
1317: WHEN NO_DATA_FOUND THEN
1318: begin
1319: select flm.log_sequence
1320: into l_log_sequence
1321: from fnd_log_messages flm
1322: where flm.log_sequence = P_LOG_SEQUENCE;
1323:
1324: -- If log_sequence does not exist in fnd_log_messages
1325: -- its an invalid log_sequence, return NULL
1320: into l_log_sequence
1321: from fnd_log_messages flm
1322: where flm.log_sequence = P_LOG_SEQUENCE;
1323:
1324: -- If log_sequence does not exist in fnd_log_messages
1325: -- its an invalid log_sequence, return NULL
1326: EXCEPTION
1327: WHEN NO_DATA_FOUND THEN
1328: LOG_BLOB := NULL;
1333: INSERT_BLOB(P_LOG_SEQUENCE, P_CHARSET, P_MIMETYPE, P_ENCODING, P_LANG, P_FILE_EXTN, P_DESC);
1334:
1335: select content
1336: into LOG_BLOB
1337: from FND_LOG_ATTACHMENTS fla
1338: where fla.log_sequence = P_LOG_SEQUENCE for UPDATE;
1339: end GET_BLOB_INTERNAL;
1340:
1341: /*
1338: where fla.log_sequence = P_LOG_SEQUENCE for UPDATE;
1339: end GET_BLOB_INTERNAL;
1340:
1341: /*
1342: ** FND_LOG_REPOSITORY.METRIC_INTERNAL
1343: ** Description:
1344: ** Private -- Should only be called by METRIC_INTERNAL_WITH_CONTEXT
1345: ** Writes a metric value out to the FND tables in an autonomous
1346: ** transaction.
1363: AUDSID IN VARCHAR2,
1364: DB_INSTANCE IN VARCHAR2) is
1365: pragma AUTONOMOUS_TRANSACTION;
1366: begin
1367: insert into FND_LOG_METRICS
1368: (MODULE,
1369: METRIC_CODE,
1370: METRIC_SEQUENCE,
1371: TYPE,
1415: PROCEDURE METRIC_STRING_TO_DATE(DATE_VC IN VARCHAR2 DEFAULT NULL) is
1416: begin
1417:
1418: if (DATE_VC IS NOT NULL) then
1419: FND_LOG_REPOSITORY.G_METRIC_DATE := FND_CONC_DATE.STRING_TO_DATE(DATE_VC);
1420: if (FND_LOG_REPOSITORY.G_METRIC_DATE IS NULL) then
1421: select SYSDATE
1422: into FND_LOG_REPOSITORY.G_METRIC_DATE
1423: from dual;
1416: begin
1417:
1418: if (DATE_VC IS NOT NULL) then
1419: FND_LOG_REPOSITORY.G_METRIC_DATE := FND_CONC_DATE.STRING_TO_DATE(DATE_VC);
1420: if (FND_LOG_REPOSITORY.G_METRIC_DATE IS NULL) then
1421: select SYSDATE
1422: into FND_LOG_REPOSITORY.G_METRIC_DATE
1423: from dual;
1424: end if;
1418: if (DATE_VC IS NOT NULL) then
1419: FND_LOG_REPOSITORY.G_METRIC_DATE := FND_CONC_DATE.STRING_TO_DATE(DATE_VC);
1420: if (FND_LOG_REPOSITORY.G_METRIC_DATE IS NULL) then
1421: select SYSDATE
1422: into FND_LOG_REPOSITORY.G_METRIC_DATE
1423: from dual;
1424: end if;
1425: else
1426: select SYSDATE
1423: from dual;
1424: end if;
1425: else
1426: select SYSDATE
1427: into FND_LOG_REPOSITORY.G_METRIC_DATE
1428: from dual;
1429: end if;
1430:
1431: end METRIC_STRING_TO_DATE;
1482: into l_context(11).a_val, l_context(12).a_val
1483: from v$session
1484: where audsid = TXN_SESSION;
1485:
1486: select FND_LOG_METRICS_S.NEXTVAL
1487: into l_metric_sequence
1488: from dual;
1489:
1490: if (METRIC_VALUE_STRING is NOT NULL) then
1493: l_type := 'N';
1494: else
1495: l_type := 'D';
1496: if (METRIC_VALUE_DATE is NULL) then
1497: l_metric_value_date := FND_LOG_REPOSITORY.G_METRIC_DATE;
1498: else
1499: l_metric_value_date := METRIC_VALUE_DATE;
1500: end if;
1501:
1527:
1528: end METRIC_INTERNAL_WITH_CONTEXT;
1529:
1530: /*
1531: ** FND_LOG_REPOSITORY.METRICS_EVENT_INTERNAL
1532: ** Description:
1533: ** Private -- Should only be called by METRICS_EVENT_INT_WITH_CONTEXT
1534: ** Posts the pending metrics for the current component
1535: ** session to the Business Event system and updates the pending
1550:
1551: begin
1552:
1553: /*
1554: 2983052: Check for rows in FND_LOG_METRICS
1555: If no metrics actually logged, don't raise an event.
1556: */
1557: select count(1)
1558: into cnt
1555: If no metrics actually logged, don't raise an event.
1556: */
1557: select count(1)
1558: into cnt
1559: from FND_LOG_METRICS
1560: where TRANSACTION_CONTEXT_ID = CONTEXT_ID;
1561:
1562: if cnt = 0 then
1563: return;
1566: select FND_METRICS_EVENT_KEY_S.nextval
1567: into l_event_key
1568: from dual;
1569:
1570: update FND_LOG_METRICS
1571: set EVENT_KEY = l_event_key
1572: where EVENT_KEY is NULL
1573: and TRANSACTION_CONTEXT_ID = CONTEXT_ID;
1574:
1581: FND_MESSAGE.SET_NAME ('FND', 'SQL-Generic error');
1582: FND_MESSAGE.SET_TOKEN ('ERRNO', sqlcode, FALSE);
1583: FND_MESSAGE.SET_TOKEN ('REASON', sqlerrm, FALSE);
1584: FND_MESSAGE.SET_TOKEN ('ROUTINE',
1585: 'FND_LOG_REPOSITORY.METRIC_EVENT_INTERNAL', FALSE);
1586: rollback;
1587: end;
1588:
1589: end METRICS_EVENT_INTERNAL;
1588:
1589: end METRICS_EVENT_INTERNAL;
1590:
1591: /*
1592: ** FND_LOG_REPOSITORY.METRICS_EVENT_INT_WITH_CONTEXT
1593: ** Description:
1594: ** A wrapper API that calls Metrics_Event_Internal using the
1595: ** context values from internal cache of the context values.
1596: ** This routine is only to be called from the AOL implementations of
1605: begin
1606: if CONTEXT_ID is NOT NULL then
1607: l_context_id := CONTEXT_ID;
1608: else
1609: l_context_id := FND_LOG.G_TRANSACTION_CONTEXT_ID;
1610: end if;
1611:
1612: METRICS_EVENT_INTERNAL(l_context_id);
1613:
1615:
1616:
1617:
1618: /*
1619: ** FND_LOG_REPOSITORY.INIT_TRANS_INT_WITH_CONTEXT
1620: ** Description:
1621: ** A wrapper API that calls Init_Transaction_Internal using the
1622: ** context values from internal cache of the context values.
1623: ** This routine is only to be called from the AOL implementations of
1701: -- see if a transaction context exists for this process
1702: begin
1703: select transaction_context_id
1704: into l_transaction_context_id
1705: from fnd_log_transaction_context
1706: where transaction_type = 'SERVICE'
1707: and transaction_id = concurrent_process_id;
1708:
1709: return l_transaction_context_id;
1724: -- see if a transaction context exists for this request
1725: begin
1726: select transaction_context_id
1727: into l_transaction_context_id
1728: from fnd_log_transaction_context
1729: where transaction_type = 'REQUEST'
1730: and transaction_id = conc_request_id;
1731:
1732: return l_transaction_context_id;
1757: -- see if a transaction context exists for this form
1758: begin
1759: select transaction_context_id
1760: into l_transaction_context_id
1761: from fnd_log_transaction_context
1762: where transaction_type = 'FORM'
1763: and transaction_id = l_transaction_id;
1764:
1765: return l_transaction_context_id;
1784: if icx_sec.g_transaction_id is not null and icx_sec.g_transaction_id > 0 then
1785: begin
1786: select transaction_context_id
1787: into l_transaction_context_id
1788: from fnd_log_transaction_context
1789: where transaction_type = 'ICX'
1790: and transaction_id = icx_sec.g_transaction_id
1791: and session_id = icx_sec.g_session_id
1792: and user_id = to_number(l_context(2).a_val)
1817: -- Check for coarser ICX Session
1818: begin
1819: select transaction_context_id
1820: into l_transaction_context_id
1821: from fnd_log_transaction_context
1822: where transaction_type = 'ICX'
1823: and session_id = icx_sec.g_session_id
1824: and transaction_id = -1
1825: and user_id = to_number(l_context(2).a_val)
1858:
1859: begin
1860: select transaction_context_id
1861: into l_transaction_context_id
1862: from fnd_log_transaction_context
1863: where transaction_type = 'UNKNOWN'
1864: and session_id = -1
1865: and transaction_id = -1
1866: and user_id = to_number(l_context(2).a_val)
1892: P_RESP_APPL_ID => to_number(l_context(3).a_val),
1893: P_RESPONSIBILITY_ID => to_number(l_context(4).a_val),
1894: P_SECURITY_GROUP_ID => to_number(l_context(5).a_val));
1895:
1896: return FND_LOG.G_TRANSACTION_CONTEXT_ID;
1897:
1898: end INIT_TRANS_INT_WITH_CONTEXT;
1899:
1900:
1947: /* Set up the global level in the log package so it won't have */
1948: /* to call through in order to find out whether logging is */
1949: /* enabled at this level. */
1950: if (AFLOG_ENABLED_X) then
1951: FND_LOG.G_CURRENT_RUNTIME_LEVEL := AFLOG_LEVEL_X;
1952:
1953: /* Tracing disabled for initial 12.0 release
1954: if (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) then
1955: DBMS_TRACE.SET_PLSQL_TRACE(DBMS_TRACE.trace_all_exceptions);
1950: if (AFLOG_ENABLED_X) then
1951: FND_LOG.G_CURRENT_RUNTIME_LEVEL := AFLOG_LEVEL_X;
1952:
1953: /* Tracing disabled for initial 12.0 release
1954: if (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) then
1955: DBMS_TRACE.SET_PLSQL_TRACE(DBMS_TRACE.trace_all_exceptions);
1956: fnd_log_enabled_tracing := true;
1957: elsif (fnd_log_enabled_tracing) then
1958: DBMS_TRACE.CLEAR_PLSQL_TRACE;
1952:
1953: /* Tracing disabled for initial 12.0 release
1954: if (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) then
1955: DBMS_TRACE.SET_PLSQL_TRACE(DBMS_TRACE.trace_all_exceptions);
1956: fnd_log_enabled_tracing := true;
1957: elsif (fnd_log_enabled_tracing) then
1958: DBMS_TRACE.CLEAR_PLSQL_TRACE;
1959: fnd_log_enabled_tracing := false;
1960: end if;
1953: /* Tracing disabled for initial 12.0 release
1954: if (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) then
1955: DBMS_TRACE.SET_PLSQL_TRACE(DBMS_TRACE.trace_all_exceptions);
1956: fnd_log_enabled_tracing := true;
1957: elsif (fnd_log_enabled_tracing) then
1958: DBMS_TRACE.CLEAR_PLSQL_TRACE;
1959: fnd_log_enabled_tracing := false;
1960: end if;
1961: */
1955: DBMS_TRACE.SET_PLSQL_TRACE(DBMS_TRACE.trace_all_exceptions);
1956: fnd_log_enabled_tracing := true;
1957: elsif (fnd_log_enabled_tracing) then
1958: DBMS_TRACE.CLEAR_PLSQL_TRACE;
1959: fnd_log_enabled_tracing := false;
1960: end if;
1961: */
1962: else
1963: FND_LOG.G_CURRENT_RUNTIME_LEVEL := 99999;
1959: fnd_log_enabled_tracing := false;
1960: end if;
1961: */
1962: else
1963: FND_LOG.G_CURRENT_RUNTIME_LEVEL := 99999;
1964: /*
1965: if (fnd_log_enabled_tracing) then
1966: DBMS_TRACE.CLEAR_PLSQL_TRACE;
1967: fnd_log_enabled_tracing := false;
1961: */
1962: else
1963: FND_LOG.G_CURRENT_RUNTIME_LEVEL := 99999;
1964: /*
1965: if (fnd_log_enabled_tracing) then
1966: DBMS_TRACE.CLEAR_PLSQL_TRACE;
1967: fnd_log_enabled_tracing := false;
1968: end if;
1969: */
1963: FND_LOG.G_CURRENT_RUNTIME_LEVEL := 99999;
1964: /*
1965: if (fnd_log_enabled_tracing) then
1966: DBMS_TRACE.CLEAR_PLSQL_TRACE;
1967: fnd_log_enabled_tracing := false;
1968: end if;
1969: */
1970: end if;
1971:
1990:
1991: SELF_INITED_X := TRUE;
1992:
1993: /* Deferred Init: All initialization is now deferred to GET_CONTEXT */
1994: FND_LOG.G_TRANSACTION_CONTEXT_ID := null;
1995:
1996: exception
1997: when OTHERS then
1998: /* Make sure that an exception here does not stop Apps initialization */
2016: begin
2017:
2018: if(NOT SELF_INITED_X) then
2019: SELF_INIT;
2020: if(FND_LOG.G_TRANSACTION_CONTEXT_ID is null) then
2021: GET_CONTEXT(CONTEXT_OUT => l_context);
2022: end if;
2023: end if;
2024:
2021: GET_CONTEXT(CONTEXT_OUT => l_context);
2022: end if;
2023: end if;
2024:
2025: select FND_LOG_MESSAGES_S.NEXTVAL
2026: into LOG_SEQUENCE_OUT
2027: from dual;
2028:
2029: TIMESTAMP_OUT := sysdate;
2028:
2029: TIMESTAMP_OUT := sysdate;
2030: DBSESSIONID_OUT := TXN_SESSION;
2031: DBINSTANCE_OUT := TXN_INSTANCE;
2032: TXN_ID_OUT := FND_LOG.G_TRANSACTION_CONTEXT_ID;
2033:
2034: end GET_BULK_CONTEXT_PVT;
2035:
2036: /**
2071: l_process_id := substrb(nvl(PROCESS_ID_IN, TXN_PROCESS),1,120);
2072: l_jvm_id := substrb(JVM_ID_IN,1,120);
2073:
2074: FORALL i IN 1..SIZE_IN
2075: INSERT INTO FND_LOG_MESSAGES (
2076: MODULE,
2077: LOG_LEVEL,
2078: MESSAGE_TEXT,
2079: SESSION_ID,
2096: MESSAGE_TEXT_IN(i),
2097: SESSION_ID_IN(i),
2098: nvl(USER_ID_IN(i), -1),
2099: nvl(TIMESTAMP_IN(i), sysdate),
2100: nvl(LOG_SEQUENCE_IN(i), FND_LOG_MESSAGES_S.NEXTVAL),
2101: ENCODED_IN(i),
2102: l_node,
2103: l_node_ip_address,
2104: l_process_id,
2115: /* Typically there won't be any UNEXPECTED messages logged using this Function */
2116: /* Unexpected errors are posted as exceptions */
2117: /*
2118: FOR i IN 1..SIZE_IN LOOP
2119: if (ENCODED_IN(i) = 'Y') and (LOG_LEVEL_IN(i) = FND_LOG.LEVEL_UNEXPECTED) then
2120: l_posted := POST_EXCEPTION(P_MODULE => MODULE_IN(i),
2121: P_LOG_SEQUENCE => LOG_SEQUENCE_IN(i),
2122: P_SESSION_MODULE => NULL,
2123: P_SESSION_ACTION => NULL);
2261: --
2262: -- Check if child context already exists
2263: --
2264: select transaction_context_id into G_PRX_CHILD_TRANS_CONTEXT_ID
2265: from fnd_log_transaction_context
2266: where transaction_id = p_transaction_id
2267: and transaction_type = p_transaction_type
2268: and parent_context_id = p_parent_context_id;
2269: exception
2286: end if;
2287:
2288: --
2289: -- Here, call init_transaction_internal to create a new
2290: -- row for child context in fnd_log_transaction_context
2291: --
2292: init_transaction_internal(
2293: p_transaction_type => p_transaction_type,
2294: p_transaction_id => p_transaction_id,
2390: if(NOT SELF_INITED_X) then
2391: SELF_INIT;
2392: end if;
2393:
2394: if(FND_LOG.G_TRANSACTION_CONTEXT_ID is null) then
2395: GET_CONTEXT(CONTEXT_OUT => l_context);
2396: end if;
2397:
2398:
2399: -- Now, initialize the child transaction context if not already
2400: -- initialized.
2401: if (G_PRX_CHILD_TRANS_CONTEXT_ID is null) then
2402: INIT_CHILD_CONTEXT(
2403: p_parent_context_id => fnd_log.g_transaction_context_id,
2404: p_transaction_id => p_request_id,
2405: p_transaction_type => 'REQUEST');
2406: end if;
2407:
2437: * Proxy Alerting related Procedures - End
2438: *===========================================================================*/
2439:
2440:
2441: end FND_LOG_REPOSITORY;