1: PACKAGE BODY xla_acct_setup_pub_pkg AS
2: -- $Header: xlasuaop.pkb 120.1 2003/02/24 07:04:27 sasingha ship $
3: /*===========================================================================+
4: | Copyright (c) 1995-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
5: | Redwood Shores, CA, USA |
6: | All rights reserved. |
7: +============================================================================+
8: | PACKAGE NAME |
9: | xla_acct_setup_pub_pkg |
10: | |
11: | DESCRIPTION |
12: | XLA Accounting Options Setup Public api |
13: | |
34: WHEN xla_exceptions_pkg.application_exception THEN
35: RAISE;
36: WHEN OTHERS THEN
37: xla_exceptions_pkg.raise_message
38: (p_location => 'xla_acct_setup_pub_pkg.trace');
39: END trace;
40:
41:
42: --=============================================================================
49: ,p_ledger_id IN NUMBER) IS
50: l_primary_ledger_id NUMBER(38) := p_primary_ledger_id;
51: l_ledger_id NUMBER(38) := p_ledger_id;
52: BEGIN
53: trace('> xla_acct_setup_pub_pkg.setup_ledger_options', 10);
54: trace('ledger_id = '||p_ledger_id, 20);
55: trace('primary_ledger_id = '||p_primary_ledger_id, 20);
56:
57: xla_acct_setup_pkg.setup_ledger_options
57: xla_acct_setup_pkg.setup_ledger_options
58: (p_primary_ledger_id => l_primary_ledger_id
59: ,p_ledger_id => l_ledger_id);
60:
61: trace('< xla_acct_setup_pub_pkg.setup_ledger_options' , 10);
62: EXCEPTION
63: WHEN xla_exceptions_pkg.application_exception THEN
64: RAISE;
65: WHEN OTHERS THEN
63: WHEN xla_exceptions_pkg.application_exception THEN
64: RAISE;
65: WHEN OTHERS THEN
66: xla_exceptions_pkg.raise_message
67: (p_location => 'xla_acct_setup_pub_pkg.setup_ledger_options');
68: END setup_ledger_options;
69:
70: --=============================================================================
71: --
77: ,p_ledger_id IN NUMBER) IS
78: l_primary_ledger_id NUMBER(38) := p_primary_ledger_id;
79: l_ledger_id NUMBER(38) := p_ledger_id;
80: BEGIN
81: trace('> xla_acct_setup_pub_pkg.check_acctg_method_for_ledger', 10);
82: trace('ledger_id = '||p_ledger_id, 20);
83: trace('primary_ledger_id = '||p_primary_ledger_id, 20);
84:
85: xla_acct_setup_pkg.check_acctg_method_for_ledger
85: xla_acct_setup_pkg.check_acctg_method_for_ledger
86: (p_primary_ledger_id => l_primary_ledger_id
87: ,p_ledger_id => l_ledger_id);
88:
89: trace('< xla_acct_setup_pub_pkg.check_acctg_method_for_ledger' , 10);
90: EXCEPTION
91: WHEN xla_exceptions_pkg.application_exception THEN
92: RAISE;
93: WHEN OTHERS THEN
91: WHEN xla_exceptions_pkg.application_exception THEN
92: RAISE;
93: WHEN OTHERS THEN
94: xla_exceptions_pkg.raise_message
95: (p_location => 'xla_acct_setup_pub_pkg.check_acctg_method_for_ledger');
96: END check_acctg_method_for_ledger;
97:
98: END xla_acct_setup_pub_pkg;
94: xla_exceptions_pkg.raise_message
95: (p_location => 'xla_acct_setup_pub_pkg.check_acctg_method_for_ledger');
96: END check_acctg_method_for_ledger;
97:
98: END xla_acct_setup_pub_pkg;