DBA Data[Home] [Help]

APPS.FA_ASSET_TRACE_PKG dependencies on FA_ASSET_TRACE_PKG

Line 1: PACKAGE BODY FA_ASSET_TRACE_PKG AS

1: PACKAGE BODY FA_ASSET_TRACE_PKG AS
2: /* $Header: faxtrcb.pls 120.27.12010000.4 2008/12/11 19:00:57 hhafid ship $ */
3:
4: FUNCTION fafsc (p_col VARCHAR2) RETURN VARCHAR2;
5: FUNCTION fparse_header(p_in_str VARCHAR2) RETURN VARCHAR2;

Line 103: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.do_trace';

99: l_submit_sub varchar2(1);
100:
101: l_qstarted varchar2(3);
102:
103: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.do_trace';
104: l_msg_count number;
105: l_msg_data varchar2(512);
106:
107: error_found1 EXCEPTION;

Line 113: IF (fa_asset_trace_pkg.g_use_utl_file = 'Y') THEN

109:
110: BEGIN
111: dbms_lock.sleep(3); --sleeping for no reason, but leave it anyway :-)
112:
113: IF (fa_asset_trace_pkg.g_use_utl_file = 'Y') THEN
114: if (nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y') then
115: l_filename := 'GTUSLA_'||replace(ltrim(rtrim(p_book)),' ','_') || '_' || replace(p_asset_number,' ','_') ||'.log';
116: else
117: l_filename := 'GTU_'||replace(ltrim(rtrim(p_book)),' ','_') || '_' || replace(p_asset_number,' ','_') ||'.log';

Line 114: if (nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y') then

110: BEGIN
111: dbms_lock.sleep(3); --sleeping for no reason, but leave it anyway :-)
112:
113: IF (fa_asset_trace_pkg.g_use_utl_file = 'Y') THEN
114: if (nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y') then
115: l_filename := 'GTUSLA_'||replace(ltrim(rtrim(p_book)),' ','_') || '_' || replace(p_asset_number,' ','_') ||'.log';
116: else
117: l_filename := 'GTU_'||replace(ltrim(rtrim(p_book)),' ','_') || '_' || replace(p_asset_number,' ','_') ||'.log';
118: g_submit_sub := TRUE;

Line 124: log(l_calling_fn, 'use utl file: '|| fa_asset_trace_pkg.g_use_utl_file);

120: log(l_calling_fn, 'l_filename: '||l_filename);
121: FA_ASSET_TRACE_PVT.g_use_utl_file := 'Y';
122: FA_ASSET_TRACE_PVT.ocfile (FA_ASSET_TRACE_PVT.g_logfile, l_filename,'O');
123: END IF;
124: log(l_calling_fn, 'use utl file: '|| fa_asset_trace_pkg.g_use_utl_file);
125: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then
126: l_parent_request := fnd_global.conc_request_id;
127: log(l_calling_fn, 'l_parent_request: '|| l_parent_request);
128: l_qstarted := FA_ASSET_TRACE_PUB.start_queue (p_qtable => g_qtable,

Line 125: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then

121: FA_ASSET_TRACE_PVT.g_use_utl_file := 'Y';
122: FA_ASSET_TRACE_PVT.ocfile (FA_ASSET_TRACE_PVT.g_logfile, l_filename,'O');
123: END IF;
124: log(l_calling_fn, 'use utl file: '|| fa_asset_trace_pkg.g_use_utl_file);
125: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then
126: l_parent_request := fnd_global.conc_request_id;
127: log(l_calling_fn, 'l_parent_request: '|| l_parent_request);
128: l_qstarted := FA_ASSET_TRACE_PUB.start_queue (p_qtable => g_qtable,
129: p_qpayload_type => 'GAT_message_type',

Line 150: end if; --(nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') ...

146: l_req_count := FA_ASSET_TRACE_PUB.g_req_tbl.count +1;
147: FA_ASSET_TRACE_PUB.g_req_tbl(l_req_count) := l_parent_request;
148: FA_ASSET_TRACE_PUB.wait_for_req;
149:
150: end if; --(nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') ...
151:
152: g_print_debug := fa_cache_pkg.fa_print_debug;
153:
154: if (not g_log_level_rec.initialized) then

Line 214: if (nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y') then

210: raise error_found1;
211: END;
212: end if; -- (NVL(l_submit_sub, 'N') = 'S')
213:
214: if (nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y') then
215: l_desc := 'FATRACE - SLA Subrequest from backend: '||g_book||'-'||g_asset_id||'-'||to_char(sysdate);
216: end if;
217:
218: --populate param tbl.

Line 338: p_use_utl_file => fa_asset_trace_pkg.g_use_utl_file,

334: p_exc_tbl => g_col_exclusions,
335: p_tdyn_head => l_banner,
336: p_stmt => l_stmt,
337: p_sys_opt_tbl => 'FA_SYSTEM_CONTROLS',
338: p_use_utl_file => fa_asset_trace_pkg.g_use_utl_file,
339: p_debug_flag => g_print_debug,
340: p_calling_prog => 'Asset Trace Utility',
341: p_retcode => retcode,
342: p_log_level_rec => g_log_level_rec);

Line 344: if ((nvl(fa_asset_trace_pkg.g_sla_only, 'Y') = 'N') and

340: p_calling_prog => 'Asset Trace Utility',
341: p_retcode => retcode,
342: p_log_level_rec => g_log_level_rec);
343:
344: if ((nvl(fa_asset_trace_pkg.g_sla_only, 'Y') = 'N') and
345: (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then
346: submit_subrequest (l_parent_request, retcode, errbuf);
347: end if;
348:

Line 345: (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then

341: p_retcode => retcode,
342: p_log_level_rec => g_log_level_rec);
343:
344: if ((nvl(fa_asset_trace_pkg.g_sla_only, 'Y') = 'N') and
345: (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then
346: submit_subrequest (l_parent_request, retcode, errbuf);
347: end if;
348:
349: log(l_calling_fn,'Parent request, retcode is '||retcode);

Line 350: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'N') = 'Y') then

346: submit_subrequest (l_parent_request, retcode, errbuf);
347: end if;
348:
349: log(l_calling_fn,'Parent request, retcode is '||retcode);
350: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'N') = 'Y') then
351: log(l_calling_fn, 'Trying to close log file');
352: FA_ASSET_TRACE_PVT.ocfile (FA_ASSET_TRACE_PVT.g_logfile, null,'C');
353: end if;
354: g_submit_sub := FALSE;

Line 355: elsif ((NOT g_submit_sub) OR ((nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y'))) then

351: log(l_calling_fn, 'Trying to close log file');
352: FA_ASSET_TRACE_PVT.ocfile (FA_ASSET_TRACE_PVT.g_logfile, null,'C');
353: end if;
354: g_submit_sub := FALSE;
355: elsif ((NOT g_submit_sub) OR ((nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y'))) then
356:
357: log(l_calling_fn,'Calling load_xla_info.');
358: load_xla_info(l_desc, retcode, g_log_level_rec);
359: log(l_calling_fn,'sla subrequest retcode is '||retcode);

Line 361: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'N') = 'Y') then

357: log(l_calling_fn,'Calling load_xla_info.');
358: load_xla_info(l_desc, retcode, g_log_level_rec);
359: log(l_calling_fn,'sla subrequest retcode is '||retcode);
360:
361: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'N') = 'Y') then
362: FA_ASSET_TRACE_PVT.ocfile (FA_ASSET_TRACE_PVT.g_logfile, null,'C');
363: end if;
364:
365: end if;

Line 367: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then

363: end if;
364:
365: end if;
366:
367: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then
368: if g_print_debug then
369: fa_debug_pkg.add(l_calling_fn, 'retcode', retcode, p_log_level_rec => p_log_level_rec);
370: end if;
371: if (g_print_debug) then

Line 383: if ((g_print_debug) and (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then

379:
380: WHEN ERROR_FOUND1 THEN
381: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
382: p_log_level_rec => p_log_level_rec);
383: if ((g_print_debug) and (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then
384: fa_debug_pkg.Write_Debug_Log;
385: end if;
386: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
387: p_data => l_msg_data);

Line 388: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then

384: fa_debug_pkg.Write_Debug_Log;
385: end if;
386: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
387: p_data => l_msg_data);
388: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then
389: fa_srvr_msg.Write_Msg_Log(l_msg_count, l_msg_data);
390: else
391: log (l_calling_fn,'Others: '||l_msg_count||' - '||l_msg_data);
392: end if;

Line 398: if ((g_print_debug) and (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then

394:
395: WHEN OTHERS THEN
396: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn,
397: p_log_level_rec => p_log_level_rec);
398: if ((g_print_debug) and (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then
399: fa_debug_pkg.Write_Debug_Log;
400: end if;
401: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
402: p_data => l_msg_data);

Line 403: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then

399: fa_debug_pkg.Write_Debug_Log;
400: end if;
401: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
402: p_data => l_msg_data);
403: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then
404: fa_srvr_msg.Write_Msg_Log(l_msg_count, l_msg_data);
405: else
406: log (l_calling_fn,'Others: '||l_msg_count||' - '||l_msg_data);
407: end if;

Line 421: l_calling_fn varchar2(40) := 'fa_asset_trace_pkg.load_tbls';

417: l_check_reval NUMBER;
418: l_idx number := 0;
419: l_options_tbl FA_ASSET_TRACE_PUB.t_options_tbl;
420:
421: l_calling_fn varchar2(40) := 'fa_asset_trace_pkg.load_tbls';
422:
423: BEGIN
424: select count(1)
425: into l_check_reval

Line 772: l_calling_fn varchar2(40) := 'fa_asset_trace_pkg.load_setup_tbls';

768: l_counter NUMBER;
769: l_idx number;
770: l_options_tbl FA_ASSET_TRACE_PUB.t_options_tbl;
771:
772: l_calling_fn varchar2(40) := 'fa_asset_trace_pkg.load_setup_tbls';
773:
774: BEGIN
775:
776: l_counter := g_options_tbl.count +1;

Line 930: l_calling_fn varchar2(40) := 'fa_asset_trace_pkg.get_dist_info';

926: l_idx number;
927: l_count number :=0;
928: l_cnt_stmt number :=0;
929:
930: l_calling_fn varchar2(40) := 'fa_asset_trace_pkg.get_dist_info';
931:
932: CURSOR c_coa_segs IS
933: SELECT APPLICATION_COLUMN_NAME, SEGMENT_NAME
934: from fnd_id_flex_segments

Line 1177: l_calling_fn varchar2(80):= 'fa_asset_trace_pkg.deprn_calc_tbls';

1173: l_counter NUMBER;
1174: l_idx number;
1175: l_options_tbl FA_ASSET_TRACE_PUB.t_options_tbl;
1176:
1177: l_calling_fn varchar2(80):= 'fa_asset_trace_pkg.deprn_calc_tbls';
1178:
1179: BEGIN
1180:
1181: l_counter := g_options_tbl.count +1;

Line 1308: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.get_event_list';

1304:
1305: l_appid fnd_profile_option_values.level_value_application_id%type;
1306: l_event_list VARCHAR2(2000) := ' in (';
1307:
1308: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.get_event_list';
1309:
1310: Cursor get_events IS
1311: select ev.event_id, en.entity_code
1312: from fa_transaction_headers th, xla_transaction_entities en, xla_events ev

Line 1383: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.load_xla_info';

1379: l_options_tbl FA_ASSET_TRACE_PUB.t_options_tbl;
1380: l_col_exclusions FA_ASSET_TRACE_PUB.t_excl_tbl;
1381: l_appid fnd_profile_option_values.level_value_application_id%type;
1382:
1383: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.load_xla_info';
1384:
1385: BEGIN
1386:
1387: l_counter := g_options_tbl.count +1;

Line 1553: p_use_utl_file => fa_asset_trace_pkg.g_use_utl_file,

1549: p_exc_tbl => l_col_exclusions,
1550: p_tdyn_head => null,
1551: p_stmt => null,
1552: p_sys_opt_tbl => NULL,
1553: p_use_utl_file => fa_asset_trace_pkg.g_use_utl_file,
1554: p_debug_flag => g_print_debug,
1555: p_calling_prog => p_banner,
1556: p_retcode => x_retcode,
1557: p_log_level_rec => g_log_level_rec);

Line 1582: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.submit_subrequest';

1578: l_sub_rule varchar2(200);
1579: l_xla_reqID number;
1580: l_Result boolean;
1581:
1582: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.submit_subrequest';
1583:
1584: BEGIN
1585:
1586: l_desc := 'FATRACE - SLA Subrequest of '||p_parent_request;

Line 1589: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'N') = 'N') then

1585:
1586: l_desc := 'FATRACE - SLA Subrequest of '||p_parent_request;
1587: log(l_calling_fn, 'submit_request: '||l_desc);
1588:
1589: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'N') = 'N') then
1590: --do not use this method when calling from backend.
1591: l_xla_reqID := FND_REQUEST.SUBMIT_REQUEST(APPLICATION => 'OFA',
1592: PROGRAM => 'FATRACE',
1593: DESCRIPTION => l_desc,

Line 1676: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.dequeue_request';

1672: pragma exception_init(no_agent, -24047);
1673: no_subscriber exception;
1674: pragma exception_init(no_agent, -24035);
1675:
1676: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.dequeue_request';
1677:
1678: BEGIN
1679: dequeue_options.wait := DBMS_AQ.NO_WAIT;
1680: dequeue_options.consumer_name := p_request;

Line 1759: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.get_schema';

1755: l_status varchar2(100);
1756: l_industry varchar2(100);
1757: schema_err exception;
1758:
1759: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.get_schema';
1760:
1761: BEGIN
1762:
1763: -- Get schema

Line 1794: END FA_ASSET_TRACE_PKG;

1790: FA_ASSET_TRACE_PVT.LOG(p_calling_fn,p_msg,g_log_level_rec);
1791:
1792: END log;
1793: --
1794: END FA_ASSET_TRACE_PKG;