[Home] [Help]
PACKAGE BODY: APPS.JA_CN_FA_DM_EXPORT_PKG
Source
1 PACKAGE BODY JA_CN_FA_DM_EXPORT_PKG AS
2 --$Header: JACNDMEB.pls 120.1 2010/05/19 09:16:32 qingywan noship $
3 --+=======================================================================+
4 --| Copyright (c) 1998 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| JACNDMEB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Use this package to export asset Depreciation Method. |
13 --| |
14 --| PROCEDURE LIST |
15 --| Add_FA_Depreciation_Method Export asset Depreciation Method |
16 --| |
17 --| |
18 --| HISTORY |
19 --| 04/08/2010 Qingyi Wang created |
20 --+======================================================================*/
21 GV_MODULE_PREFIX VARCHAR2(100) := 'JA_CN_FA_DM_EXPORT';
22 --==========================================================================
23 -- PROCEDURE NAME:
24 --
25 -- Add_FA_Depreciation_Method Public
26 --
27 -- DESCRIPTION:
28 --
29 -- This procedure is used to export Depreciation Method in Fixed Asset.
30 --
31 -- PARAMETERS:
32 -- In: pn_legal_entity_id LEGAL_ENTITY_ID
33 -- pv_accounting_year Accounting Year
34 -- DESIGN REFERENCES:
35 -- CNAO_V2_FA_TD.doc
36 --
37 -- CHANGE HISTORY:
38 -- 04/08/2010 Qingyi Wang created
39 --==========================================================================
40 PROCEDURE Add_FA_Depreciation_Method
41 ( pn_legal_entity_id IN NUMBER
42 , pv_accounting_year IN VARCHAR2
43 )
44 IS
45 ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
46 ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
47 lv_procedure_name VARCHAR2(40) := 'Add_FA_Depreciation_Method';
48 lv_depr_method_code VARCHAR2(12);
49 lv_depr_method_name VARCHAR2(80);
50 lv_depr_method_formular VARCHAR2(200);
51 ln_row_count NUMBER; -- row count for depreciation method
52 NO_DATA EXCEPTION;
53
54 CURSOR depreciation_history_cur IS
55 SELECT
56 method_code
57 , method_name
58 , depreciation_formula
59 FROM
60 ja_cn_dep_meth_assignment
61 WHERE
62 legal_entity_id = pn_legal_entity_id
63 AND
64 (effective_date_to IS NULL
65 OR
66 TRUNC(effective_date_to) >= TRUNC(TO_DATE(pv_accounting_year || '0101','YYYYMMDD')));
67
68 BEGIN
69
70 --logging for debug
71 IF (ln_proc_level>=ln_dbg_level)
72 THEN
73 FND_LOG.STRING( ln_proc_level
74 , GV_MODULE_PREFIX ||'.' || lv_procedure_name ||
75 '.begin'
76 , 'Enter procedure'
77 );
78
79 -- logging the parameters
80 FND_LOG.STRING(ln_proc_level,
81 lv_procedure_name ||
82 '.parameters',
83 'pn_legal_entity_id=' || pn_legal_entity_id|| ',' ||
84 'pv_accounting_year=' || pv_accounting_year);
85 END IF; --l_proc_level>=l_dbg_level
86
87 FND_FILE.put_line(FND_FILE.log, lv_procedure_name ||
88 '.parameters:' ||
89 'pn_legal_entity_id=' || pn_legal_entity_id|| ',' ||
90 'pv_accounting_year=' || pv_accounting_year);
91 ln_row_count := 0;
92 OPEN depreciation_history_cur;
93 LOOP
94 FETCH depreciation_history_cur INTO lv_depr_method_code
95 , lv_depr_method_name
96 , lv_depr_method_formular;
97 EXIT WHEN depreciation_history_cur%NOTFOUND;
98 ln_row_count := ln_row_count + 1;
99 Ja_Cn_Utility.Add_Sub_Root_Node( pv_sub_root_tag_name => 'FIXED_ASSET_DEPRN_METHOD'
100 , pv_tag_type => Ja_Cn_Utility.GV_TAG_TYPE_START
101 , pv_module_name => Ja_Cn_Utility.GV_MODULE_FA
102 );
103 Ja_Cn_Utility.Add_Child_Node( pv_child_tag_name => 'DEPRECIATION_METHOD_CODE'
104 , pv_text_node_value => lv_depr_method_code
105 , pv_data_type => Ja_Cn_Utility.GV_TYPE_VARCHAR2
106 , pv_required => Ja_Cn_Utility.GV_REQUIRED_YES
107 , pv_module_name => Ja_Cn_Utility.GV_MODULE_FA
108 );
109 Ja_Cn_Utility.Add_Child_Node( pv_child_tag_name => 'DEPRECIATION_METHOD_NAME'
110 , pv_text_node_value => lv_depr_method_name
111 , pv_data_type => Ja_Cn_Utility.GV_TYPE_VARCHAR2
112 , pv_required => Ja_Cn_Utility.GV_REQUIRED_YES
113 , pv_module_name => Ja_Cn_Utility.GV_MODULE_FA
114 );
115
116 Ja_Cn_Utility.Add_Child_Node( pv_child_tag_name => 'DEPRECIATION_FORMULA'
117 , pv_text_node_value => lv_depr_method_formular
118 , pv_data_type => Ja_Cn_Utility.GV_TYPE_VARCHAR2
119 , pv_required => Ja_Cn_Utility.GV_REQUIRED_YES
120 , pv_module_name => Ja_Cn_Utility.GV_MODULE_FA
121 );
122 Ja_Cn_Utility.Add_Sub_Root_Node( pv_sub_root_tag_name => 'FIXED_ASSET_DEPRN_METHOD'
123 , pv_tag_type => Ja_Cn_Utility.GV_TAG_TYPE_END
124 , pv_module_name => Ja_Cn_Utility.GV_MODULE_FA
125 );
126
127 END LOOP;
128 CLOSE depreciation_history_cur;
129
130 IF (ln_row_count = 0)
131 THEN
132
133 Ja_Cn_Utility.Print_No_Data_Found_For_Log('FIXED_ASSET_DEPRN_METHOD',
134 Ja_Cn_Utility.GV_MODULE_FA);
135
136 Ja_Cn_Utility.Add_Sub_Root_Node( pv_sub_root_tag_name => 'FIXED_ASSET_DEPRN_METHOD'
137 , pv_tag_type => Ja_Cn_Utility.GV_TAG_TYPE_START
138 , pv_module_name => Ja_Cn_Utility.GV_MODULE_FA
139 );
140 Ja_Cn_Utility.Add_Child_Node( pv_child_tag_name => 'DEPRECIATION_METHOD_CODE'
141 , pv_text_node_value => NULL
142 , pv_data_type => Ja_Cn_Utility.GV_TYPE_VARCHAR2
143 , pv_required => Ja_Cn_Utility.GV_REQUIRED_YES
144 , pv_module_name => Ja_Cn_Utility.GV_MODULE_FA
145 );
146 Ja_Cn_Utility.Add_Child_Node( pv_child_tag_name => 'DEPRECIATION_METHOD_NAME'
147 , pv_text_node_value => NULL
148 , pv_data_type => Ja_Cn_Utility.GV_TYPE_VARCHAR2
149 , pv_required => Ja_Cn_Utility.GV_REQUIRED_YES
150 , pv_module_name => Ja_Cn_Utility.GV_MODULE_FA
151 );
152
153 Ja_Cn_Utility.Add_Child_Node( pv_child_tag_name => 'DEPRECIATION_FORMULA'
154 , pv_text_node_value => NULL
155 , pv_data_type => Ja_Cn_Utility.GV_TYPE_VARCHAR2
156 , pv_required => Ja_Cn_Utility.GV_REQUIRED_YES
157 , pv_module_name => Ja_Cn_Utility.GV_MODULE_FA
158 );
159 Ja_Cn_Utility.Add_Sub_Root_Node( pv_sub_root_tag_name => 'FIXED_ASSET_DEPRN_METHOD'
160 , pv_tag_type => Ja_Cn_Utility.GV_TAG_TYPE_END
161 , pv_module_name => Ja_Cn_Utility.GV_MODULE_FA
162 );
163 END IF; --(ln_row_count = 0)
164
165 --logging for debug
166 IF (ln_proc_level>=ln_dbg_level)
167 THEN
168 FND_LOG.STRING( ln_proc_level
169 , GV_MODULE_PREFIX ||'.' || lv_procedure_name || '.end'
170 , 'Exit procedure'
171 );
172 END IF; -- (ln_proc_level>=ln_dbg_level)
173
174 EXCEPTION
175 WHEN OTHERS THEN
176 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
177 THEN
178 FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
179 GV_MODULE_PREFIX || '.' || lv_procedure_name ||
180 '.Other_Exception ',
181 SQLCODE || SQLERRM);
182 END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
183 FND_FILE.put_line(FND_FILE.log, lv_procedure_name || SQLCODE || SQLERRM);
184
185 END Add_FA_Depreciation_Method;
186 END JA_CN_FA_DM_EXPORT_PKG;
187