[Home] [Help]
1: PACKAGE BODY FA_XLA_EXTRACT_DEF_PKG AS
2:
3: /*======================================================================+
4: | Copyright (c) 1997 Oracle Corporation |
5: | Redwood Shores, CA, USA |
5: | Redwood Shores, CA, USA |
6: | All rights reserved. |
7: +=======================================================================+
8: | Package Name |
9: | FA_XLA_EXTRACT_DEF_PKG |
10: | |
11: | DESCRIPTION |
12: | Package generated From FA AAD setups |
13: | |
27: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
29: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
30:
31: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_extract_def_pkg.';
32:
33:
34: --+============================================+
35: --| |
428: l_mesg_count number := 0;
429: l_mesg_len number;
430: l_mesg varchar2(4000);
431:
432: l_procedure_name varchar2(80) := 'fa_xla_extract_def_pkg.load_generated_ccids'; -- BMR make this dynamic on type
433:
434: type char_tab_type is table of varchar2(64) index by binary_integer;
435: type num_tab_type is table of number index by binary_integer;
436:
524: X_rtn_ccid => l_def_deprn_tbl(i).generated_ccid,
525: P_LOG_LEVEL_REC => p_log_level_rec)) then
526: FA_SRVR_MSG.ADD_MESSAGE
527: (NAME => 'FA_GET_ACCOUNT_CCID',
528: CALLING_FN => 'fa_xla_extract_def_pkg.Load_Generated_Ccids',
529: P_LOG_LEVEL_REC => p_log_level_rec);
530: l_def_deprn_tbl(i).generated_ccid := -1;
531: end if;
532: end if;
546: P_LOG_LEVEL_REC => p_log_level_rec)) then
547:
548: FA_SRVR_MSG.ADD_MESSAGE
549: (NAME => 'FA_GET_ACCOUNT_CCID',
550: CALLING_FN => 'fa_xla_extract_def_pkg.Load_Generated_Ccids',
551: P_LOG_LEVEL_REC => p_log_level_rec);
552: l_def_deprn_tbl(i).generated_offset_ccid := -1;
553: end if;
554: end if;
665: END load_data;
666:
667:
668:
669: END FA_XLA_EXTRACT_DEF_PKG;
670: