1: package body FND_CORE_LOG as
2: /* $Header: AFCORLGB.pls 120.7.12000000.1 2007/01/18 13:14:04 appldev ship $ */
3:
4: UTL_DIR varchar2(255);
5: CORELOG_FILE utl_file.file_type;
117: LOG_APPLICATION_ID in number default NULL,
118: LOG_ORG_ID in number default NULL,
119: LOG_SERVER_ID in number default NULL) is
120: begin
121: if (FND_CORE_LOG.IS_ENABLED) then
122:
123: -- Write a line indicating the context for this session.
124: -- The format of this line is based loosely on the event_key format
125: -- used in WF.
143: end WRITE;
144:
145: /*
146: ** WRITE_PROFILE - calls PUT and PUT_LINE to log text with a context
147: ** Will log only when FND_CORE_LOG.ENABLED = 'P'.
148: */
149: procedure WRITE_PROFILE(
150: LOG_PROFNAME in varchar2,
151: LOG_PROFVAL in varchar2 default null,
157: LOG_SERVER_ID in number)is
158:
159: PROF_TO_LOG varchar2(80);
160: begin
161: if (FND_CORE_LOG.ENABLED = 'P') then
162:
163: PROF_TO_LOG := FND_CORE_LOG.PROFILE_TO_LOG;
164:
165: -- Write a line indicating the context for the FND_PROFILE session.
159: PROF_TO_LOG varchar2(80);
160: begin
161: if (FND_CORE_LOG.ENABLED = 'P') then
162:
163: PROF_TO_LOG := FND_CORE_LOG.PROFILE_TO_LOG;
164:
165: -- Write a line indicating the context for the FND_PROFILE session.
166: -- The format of this line is based loosely on the event_key format
167: -- used in WF.
219: end WRITE_PROFILE;
220:
221: /*
222: ** WRITE_PROFILE_SAVE - write API specifically for FND_PROFILE.SAVE
223: ** Will log only when FND_CORE_LOG.ENABLED = 'P'.
224: */
225: procedure WRITE_PROFILE_SAVE(
226: X_NAME in varchar2,
227: /* Profile name */
238:
239: PROF_TO_LOG varchar2(80);
240:
241: begin
242: if (FND_CORE_LOG.ENABLED = 'P') then
243:
244: PROF_TO_LOG := FND_CORE_LOG.PROFILE_TO_LOG;
245:
246: -- Write a line indicating the context for the FND_PROFILE.SAVE call.
240:
241: begin
242: if (FND_CORE_LOG.ENABLED = 'P') then
243:
244: PROF_TO_LOG := FND_CORE_LOG.PROFILE_TO_LOG;
245:
246: -- Write a line indicating the context for the FND_PROFILE.SAVE call.
247: -- The format of this line is based loosely on the event_key format
248: -- used in WF.
437: end if;
438: return CORELOG_IS_ENABLED;
439: end IS_ENABLED;
440:
441: end FND_CORE_LOG;