[Home] [Help]
1: PACKAGE BODY xla_post_acct_progs_f_pkg AS
2: /* $Header: xlathprg.pkb 120.2.12010000.1 2008/07/29 10:10:20 appldev ship $ */
3: /*======================================================================+
4: | Copyright (c) 2001-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
27: C_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
28: C_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
29:
30: C_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
31: C_DEFAULT_MODULE CONSTANT VARCHAR2(240) := 'xla.plsql.xla_post_acct_progs_f_pkg';
32:
33: g_debug_flag VARCHAR2(1) :=
34: NVL(fnd_profile.value('XLA_DEBUG_TRACE'),'N');
35:
55: RAISE;
56:
57: WHEN OTHERS THEN
58: xla_exceptions_pkg.raise_message
59: (p_location => 'xla_post_acct_progs_f_pkg.trace');
60: END trace;
61:
62: /*======================================================================+
63: | |
534: WHERE program_code = p_program_code
535: AND program_owner_code = p_program_owner_code;
536:
537: IF (fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, NULL)) THEN
538: xla_post_acct_progs_f_pkg.update_row
539: (x_application_id => l_application_id
540: ,x_program_code => p_program_code
541: ,x_program_owner_code => p_program_owner_code
542: ,x_name => p_name
548: END IF;
549:
550: EXCEPTION
551: WHEN NO_DATA_FOUND THEN
552: xla_post_acct_progs_f_pkg.insert_row
553: (x_rowid => l_rowid
554: ,x_application_id => l_application_id
555: ,x_program_code => p_program_code
556: ,x_program_owner_code => p_program_owner_code
573: WHEN NO_DATA_FOUND THEN
574: null;
575: WHEN OTHERS THEN
576: xla_exceptions_pkg.raise_message
577: (p_location => 'xla_post_acct_progs_f_pkg.load_row');
578:
579: END load_row;
580:
581: --=============================================================================
671: IF NOT g_log_enabled THEN
672: g_log_level := C_LEVEL_LOG_DISABLED;
673: END IF;
674:
675: end xla_post_acct_progs_f_PKG;