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.38.12020000.6 2013/02/07 07:03:38 rmandali 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 125: IF (fa_asset_trace_pkg.g_use_utl_file = 'Y') THEN

121:
122: BEGIN
123: dbms_lock.sleep(3); --sleeping for no reason, but leave it anyway :-)
124:
125: IF (fa_asset_trace_pkg.g_use_utl_file = 'Y') THEN
126: if (nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y') then
127: l_filename := 'GTUSLA_'||replace(ltrim(rtrim(p_book)),' ','_') || '_' || replace(p_asset_number,' ','_') ||'.log';
128: else
129: l_filename := 'GTU_'||replace(ltrim(rtrim(p_book)),' ','_') || '_' || replace(p_asset_number,' ','_') ||'.log';

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

122: BEGIN
123: dbms_lock.sleep(3); --sleeping for no reason, but leave it anyway :-)
124:
125: IF (fa_asset_trace_pkg.g_use_utl_file = 'Y') THEN
126: if (nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y') then
127: l_filename := 'GTUSLA_'||replace(ltrim(rtrim(p_book)),' ','_') || '_' || replace(p_asset_number,' ','_') ||'.log';
128: else
129: l_filename := 'GTU_'||replace(ltrim(rtrim(p_book)),' ','_') || '_' || replace(p_asset_number,' ','_') ||'.log';
130: g_submit_sub := TRUE;

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

132: log(l_calling_fn, 'l_filename: '||l_filename);
133: FA_ASSET_TRACE_PVT.g_use_utl_file := 'Y';
134: FA_ASSET_TRACE_PVT.ocfile (FA_ASSET_TRACE_PVT.g_logfile, l_filename,'O');
135: END IF;
136: log(l_calling_fn, 'use utl file: '|| fa_asset_trace_pkg.g_use_utl_file);
137: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then
138: l_parent_request := fnd_global.conc_request_id;
139: log(l_calling_fn, 'l_parent_request: '|| l_parent_request);
140:

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

133: FA_ASSET_TRACE_PVT.g_use_utl_file := 'Y';
134: FA_ASSET_TRACE_PVT.ocfile (FA_ASSET_TRACE_PVT.g_logfile, l_filename,'O');
135: END IF;
136: log(l_calling_fn, 'use utl file: '|| fa_asset_trace_pkg.g_use_utl_file);
137: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then
138: l_parent_request := fnd_global.conc_request_id;
139: log(l_calling_fn, 'l_parent_request: '|| l_parent_request);
140:
141: open c_playload_mesg;

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

166: l_req_count := FA_ASSET_TRACE_PUB.g_req_tbl.count +1;
167: FA_ASSET_TRACE_PUB.g_req_tbl(l_req_count) := l_parent_request;
168: FA_ASSET_TRACE_PUB.wait_for_req;
169:
170: end if; --(nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') ...
171:
172: g_print_debug := fa_cache_pkg.fa_print_debug;
173:
174: if (not g_log_level_rec.initialized) then

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

230: raise error_found1;
231: END;
232: end if; -- (NVL(l_submit_sub, 'N') = 'S')
233:
234: if (nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y') then
235: l_desc := 'FATRACE - SLA Subrequest from backend: '||g_book||'-'||g_asset_id||'-'||to_char(sysdate);
236: end if;
237:
238: --populate param tbl.

Line 358: p_use_utl_file => fa_asset_trace_pkg.g_use_utl_file,

354: p_exc_tbl => g_col_exclusions,
355: p_tdyn_head => l_banner,
356: p_stmt => l_stmt,
357: p_sys_opt_tbl => 'FA_SYSTEM_CONTROLS',
358: p_use_utl_file => fa_asset_trace_pkg.g_use_utl_file,
359: p_debug_flag => g_print_debug,
360: p_calling_prog => 'Asset Trace Utility',
361: p_retcode => retcode,
362: p_log_level_rec => g_log_level_rec);

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

360: p_calling_prog => 'Asset Trace Utility',
361: p_retcode => retcode,
362: p_log_level_rec => g_log_level_rec);
363:
364: if ((nvl(fa_asset_trace_pkg.g_sla_only, 'Y') = 'N') and
365: (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then
366: submit_subrequest (l_parent_request, retcode, errbuf);
367: end if;
368:

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

361: p_retcode => retcode,
362: p_log_level_rec => g_log_level_rec);
363:
364: if ((nvl(fa_asset_trace_pkg.g_sla_only, 'Y') = 'N') and
365: (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then
366: submit_subrequest (l_parent_request, retcode, errbuf);
367: end if;
368:
369: log(l_calling_fn,'Parent request, retcode is '||retcode);

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

366: submit_subrequest (l_parent_request, retcode, errbuf);
367: end if;
368:
369: log(l_calling_fn,'Parent request, retcode is '||retcode);
370: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'N') = 'Y') then
371: log(l_calling_fn, 'Trying to close log file');
372: FA_ASSET_TRACE_PVT.ocfile (FA_ASSET_TRACE_PVT.g_logfile, null,'C');
373: end if;
374: g_submit_sub := FALSE;

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

371: log(l_calling_fn, 'Trying to close log file');
372: FA_ASSET_TRACE_PVT.ocfile (FA_ASSET_TRACE_PVT.g_logfile, null,'C');
373: end if;
374: g_submit_sub := FALSE;
375: elsif ((NOT g_submit_sub) OR ((nvl(fa_asset_trace_pkg.g_sla_only, 'N') = 'Y'))) then
376:
377: log(l_calling_fn,'Calling load_xla_info.');
378: load_xla_info(l_desc, retcode, g_log_level_rec);
379: log(l_calling_fn,'sla subrequest retcode is '||retcode);

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

377: log(l_calling_fn,'Calling load_xla_info.');
378: load_xla_info(l_desc, retcode, g_log_level_rec);
379: log(l_calling_fn,'sla subrequest retcode is '||retcode);
380:
381: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'N') = 'Y') then
382: FA_ASSET_TRACE_PVT.ocfile (FA_ASSET_TRACE_PVT.g_logfile, null,'C');
383: end if;
384:
385: end if;

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

383: end if;
384:
385: end if;
386:
387: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then
388: if g_print_debug then
389: fa_debug_pkg.add(l_calling_fn, 'retcode', retcode, p_log_level_rec => p_log_level_rec);
390: end if;
391: if (g_print_debug) then

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

399:
400: WHEN ERROR_FOUND1 THEN
401: fa_srvr_msg.add_message(calling_fn => l_calling_fn,
402: p_log_level_rec => p_log_level_rec);
403: if ((g_print_debug) and (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then
404: fa_debug_pkg.Write_Debug_Log;
405: end if;
406: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
407: p_data => l_msg_data);

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

404: fa_debug_pkg.Write_Debug_Log;
405: end if;
406: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
407: p_data => l_msg_data);
408: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then
409: fa_srvr_msg.Write_Msg_Log(l_msg_count, l_msg_data);
410: else
411: log (l_calling_fn,'Others: '||l_msg_count||' - '||l_msg_data);
412: end if;

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

414:
415: WHEN OTHERS THEN
416: fa_srvr_msg.add_sql_error(calling_fn => l_calling_fn,
417: p_log_level_rec => p_log_level_rec);
418: if ((g_print_debug) and (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N')) then
419: fa_debug_pkg.Write_Debug_Log;
420: end if;
421: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
422: p_data => l_msg_data);

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

419: fa_debug_pkg.Write_Debug_Log;
420: end if;
421: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
422: p_data => l_msg_data);
423: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'Y') = 'N') then
424: fa_srvr_msg.Write_Msg_Log(l_msg_count, l_msg_data);
425: else
426: log (l_calling_fn,'Others: '||l_msg_count||' - '||l_msg_data);
427: end if;

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

437: l_check_reval NUMBER;
438: l_idx number := 0;
439: l_options_tbl FA_ASSET_TRACE_PUB.t_options_tbl;
440:
441: l_calling_fn varchar2(40) := 'fa_asset_trace_pkg.load_tbls';
442:
443: BEGIN
444: select count(1)
445: into l_check_reval

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

796: l_counter NUMBER;
797: l_idx number;
798: l_options_tbl FA_ASSET_TRACE_PUB.t_options_tbl;
799:
800: l_calling_fn varchar2(40) := 'fa_asset_trace_pkg.load_setup_tbls';
801:
802: BEGIN
803:
804: l_counter := g_options_tbl.count +1;

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

955: l_idx number;
956: l_count number :=0;
957: l_cnt_stmt number :=0;
958:
959: l_calling_fn varchar2(40) := 'fa_asset_trace_pkg.get_dist_info';
960:
961: CURSOR c_coa_segs IS
962: SELECT APPLICATION_COLUMN_NAME, SEGMENT_NAME
963: from fnd_id_flex_segments

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

1206: l_counter NUMBER;
1207: l_idx number;
1208: l_options_tbl FA_ASSET_TRACE_PUB.t_options_tbl;
1209:
1210: l_calling_fn varchar2(80):= 'fa_asset_trace_pkg.deprn_calc_tbls';
1211:
1212: BEGIN
1213:
1214: l_counter := g_options_tbl.count +1;

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

1337:
1338: l_appid fnd_profile_option_values.level_value_application_id%type;
1339: l_event_list VARCHAR2(32767) := ' in (';
1340:
1341: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.get_event_list';
1342:
1343: BEGIN
1344: l_appid := FND_GLOBAL.resp_appl_id;
1345: if (l_appid = -1) then

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

1435: l_options_tbl FA_ASSET_TRACE_PUB.t_options_tbl;
1436: l_col_exclusions FA_ASSET_TRACE_PUB.t_excl_tbl;
1437: l_appid fnd_profile_option_values.level_value_application_id%type;
1438:
1439: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.load_xla_info';
1440:
1441: BEGIN
1442:
1443: l_counter := g_options_tbl.count +1;

Line 1608: p_use_utl_file => fa_asset_trace_pkg.g_use_utl_file,

1604: p_exc_tbl => l_col_exclusions,
1605: p_tdyn_head => null,
1606: p_stmt => null,
1607: p_sys_opt_tbl => NULL,
1608: p_use_utl_file => fa_asset_trace_pkg.g_use_utl_file,
1609: p_debug_flag => g_print_debug,
1610: p_calling_prog => p_banner,
1611: p_retcode => x_retcode,
1612: p_log_level_rec => g_log_level_rec);

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

1633: l_sub_rule varchar2(200);
1634: l_xla_reqID number;
1635: l_Result boolean;
1636:
1637: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.submit_subrequest';
1638:
1639: BEGIN
1640:
1641: l_desc := 'FATRACE - SLA Subrequest of '||p_parent_request;

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

1640:
1641: l_desc := 'FATRACE - SLA Subrequest of '||p_parent_request;
1642: log(l_calling_fn, 'submit_request: '||l_desc);
1643:
1644: if (nvl(fa_asset_trace_pkg.g_use_utl_file, 'N') = 'N') then
1645: --do not use this method when calling from backend.
1646: l_xla_reqID := FND_REQUEST.SUBMIT_REQUEST(APPLICATION => 'OFA',
1647: PROGRAM => 'FATRACE',
1648: DESCRIPTION => l_desc,

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

1727: pragma exception_init(no_agent, -24047);
1728: no_subscriber exception;
1729: pragma exception_init(no_agent, -24035);
1730:
1731: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.dequeue_request';
1732:
1733: BEGIN
1734: dequeue_options.wait := DBMS_AQ.NO_WAIT;
1735: dequeue_options.consumer_name := p_request;

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

1810: l_status varchar2(100);
1811: l_industry varchar2(100);
1812: schema_err exception;
1813:
1814: l_calling_fn varchar2(80) := 'fa_asset_trace_pkg.get_schema';
1815:
1816: BEGIN
1817:
1818: -- Get schema

Line 1849: END FA_ASSET_TRACE_PKG;

1845: FA_ASSET_TRACE_PVT.LOG(p_calling_fn,p_msg,g_log_level_rec);
1846:
1847: END log;
1848: --
1849: END FA_ASSET_TRACE_PKG;