[Home] [Help]
PACKAGE BODY: APPS.XLA_ACCT_SETUP_PUB_PKG
Source
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 |
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 | |
14 | HISTORY |
15 | 06-Feb-03 Dimple Shah Created |
16 | |
17 +===========================================================================*/
18
19 --=============================================================================
20 -- *********** Local Trace Routine **********
21 --=============================================================================
22 g_debug_flag VARCHAR2(1) := NVL(fnd_profile.value('XLA_DEBUG_TRACE'),'N');
23
24 PROCEDURE trace
25 (p_msg IN VARCHAR2
26 ,p_level IN NUMBER) IS
27 BEGIN
28 IF g_debug_flag = 'Y' THEN
29 xla_utility_pkg.trace
30 (p_msg
31 ,p_level);
32 END IF;
33 EXCEPTION
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 --=============================================================================
43 --
44 -- Sets up ledger options for all subledger applications and given ledger
45 --
46 --=============================================================================
47 PROCEDURE setup_ledger_options
48 (p_primary_ledger_id IN NUMBER
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
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
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 --
72 -- Checks if a valid accounting method is attached to the ledger
73 --
74 --=============================================================================
75 PROCEDURE check_acctg_method_for_ledger
76 (p_primary_ledger_id IN NUMBER
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
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
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;