[Home] [Help]
PACKAGE BODY: APPS.JA_CN_PS_SI_EAB_EXPORT_PKG
Source
1 PACKAGE BODY JA_CN_PS_SI_EAB_EXPORT_PKG AS
2 --$Header: JACNPABB.pls 120.1 2010/08/25 09:33:10 wuliu noship $
3 --+=======================================================================+
4 --| Copyright (c) 1998 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| JACNPABB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Use this package to export Electronic Accounting Book |
13 --| for Public Sector |
14 --| |
15 --| PROCEDURE LIST |
16 --| PROCEDURE Add_Electronic_Accounting_Book |
17 --| |
18 --| |
19 --| HISTORY |
20 --| 05/AUG/2010 Wuhua Liu Created |
21 --+======================================================================*/
22 --==========================================================================
23 -- PROCEDURE NAME:
24 --
25 -- Add_Electronic_Accounting_Book Public
26 --
27 -- DESCRIPTION:
28 --
29 -- This procedure is to export Electronic Accounting Book for
30 -- public sector
31 --
32 -- PARAMETERS:
33 -- In: pn_legal_entity_id Legal Entity ID
34 -- pn_ledger_id Ledger ID
35 -- pn_accounting_year Accounting year
36 --
37 -- DESIGN REFERENCES:
38 -- TDD_1213_FIN_GL_P_CNAOV2_SI.doc
39 --
40 -- CHANGE HISTORY:
41 --
42 -- 05-AUG-2010 Wuhua Liu created
43
44 PROCEDURE Add_Electronic_Accounting_Book
45 ( pn_legal_entity_id IN NUMBER
46 , pn_ledger_id IN NUMBER
47 , pn_accounting_year IN NUMBER
48 )
49 IS
50 lv_procedure_name VARCHAR2(40) := 'Add_Electronic_Accounting_Book';
51 ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
52 ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
53 ln_row_count NUMBER := 0;
54
55 --To get Electronic Accounting Book
56 CURSOR electronic_accounting_book_cur
57 ( pn_legal_entity NUMBER
58 , pn_ledger NUMBER
59 )
60 IS
61 SELECT
62 jcspa.book_num
63 , jcspa.book_name
64 , jcspa.company_name
65 , jcspa.organization_id
66 , jcspa.ent_quality
67 , jcspa.ent_industry
68 , jcspa.admin_division_code
69 , jcspa.budget_mgmt_level
70 , jcspa.fund_source
71 , jcspa.cnao_stand_ver
72 , ar.major_version || '.' || ar.minor_version || '.'
73 || ar.tape_version software_version
74 , fcv.NAME
75 FROM
76 ja_cn_system_parameters_all jcspa
77 , gl_ledgers gl
78 , ad_releases ar
79 , fnd_currencies_vl fcv
80 WHERE ar.release_id = (SELECT MAX(release_id) FROM ad_releases)
81 AND fcv.currency_code = gl.currency_code
82 AND gl.ledger_id = pn_ledger
83 AND jcspa.legal_entity_id = pn_legal_entity;
84
85 BEGIN
86 --logging for debug
87 IF (ln_proc_level >= ln_dbg_level)
88 THEN
89 FND_LOG.STRING( ln_proc_level
90 , GV_MODULE_PREFIX || '.' || lv_procedure_name || '.begin'
91 , 'Enter procedure');
92 FND_LOG.STRING( ln_proc_level
93 , GV_MODULE_PREFIX || '.' || lv_procedure_name
94 || '.parameters'
95 , 'pn_ledger_id=' || pn_ledger_id || ','
96 || 'pn_legal_entity_id=' || pn_legal_entity_id || ','
97 || 'pn_accounting_year=' || pn_accounting_year);
98 END IF; --ln_proc_level>=ln_dbg_level
99 FND_FILE.put_line( FND_FILE.log
100 , lv_procedure_name || '.parameters:'
101 || 'pn_ledger_id=' || pn_ledger_id || ','
102 || 'pn_legal_entity_id=' || pn_legal_entity_id || ','
103 || 'pn_accounting_year=' || pn_accounting_year);
104 FOR v_row IN electronic_accounting_book_cur( pn_legal_entity_id
105 , pn_ledger_id
106 )
107 LOOP
108 ln_row_count := ln_row_count + 1;
109 JA_CN_UTILITY.Add_Sub_Root_Node( 'ELECTRONIC_ACCOUNTING_BOOK'
110 , JA_CN_UTILITY.GV_TAG_TYPE_START
111 );
112 JA_CN_UTILITY.Add_Child_Node( 'ELECTRONIC_BOOK_NUMBER'
113 , v_row.book_num
114 );
115 JA_CN_UTILITY.Add_Child_Node( 'ELECTRONIC_BOOK_NAME'
116 ,v_row.book_name
117 );
118 JA_CN_UTILITY.Add_Child_Node( 'ENTERPRISE_NAME'
119 , v_row.company_name
120 );
121 JA_CN_UTILITY.Add_Child_Node( 'ORGANIZATION_NUMBER'
122 , v_row.organization_id
123 );
124 JA_CN_UTILITY.Add_Child_Node( 'ENTERPRISE_TYPE'
125 , v_row.ent_quality
126 );
127 JA_CN_UTILITY.Add_Child_Node( 'ENTERPRISE_INDUSTRY'
128 , v_row.ent_industry
129 );
130 JA_CN_UTILITY.Add_Child_Node( 'ADMINISTRATIVE_DIVISION_CODE'
131 , v_row.admin_division_code
132 );
133 JA_CN_UTILITY.Add_Child_Node( 'BUDGET_MANAGEMENT_LEVEL'
134 , v_row.budget_mgmt_level
135 );
136 JA_CN_UTILITY.Add_Child_Node( 'FUND_SOURCE'
137 , v_row.fund_source
138 );
139 JA_CN_UTILITY.Add_Child_Node( 'ERP_SOFTWARE_VENDOR'
140 , 'ORACLE'
141 );
142 JA_CN_UTILITY.Add_Child_Node( 'ERP_SOFTWARE_VERSION'
143 , v_row.software_version
144 );
145 JA_CN_UTILITY.Add_Child_Node( 'FUNCTIONAL_CURRENCY'
146 , v_row.name
147 );
148 JA_CN_UTILITY.Add_Fixed_Child_Node( 'ACCOUNTING_YEAR'
149 , pn_accounting_year
150 , 4
151 );
152 JA_CN_UTILITY.Add_Child_Node( 'CNAO_STANDARD_VERSION'
153 , v_row.cnao_stand_ver
154 );
155 JA_CN_UTILITY.Add_Sub_Root_Node( 'ELECTRONIC_ACCOUNTING_BOOK'
156 , JA_CN_UTILITY.GV_TAG_TYPE_END
157 );
158
159 END LOOP; -- (v_row IN electronic_accounting_book_cur)
160
161 IF (ln_row_count = 0)
162 THEN
163 JA_CN_UTILITY.Print_No_Data_Found_For_Log( 'ELECTRONIC_ACCOUNTING_BOOK');
164 JA_CN_UTILITY.Add_Sub_Root_Node( 'ELECTRONIC_ACCOUNTING_BOOK'
165 , JA_CN_UTILITY.GV_TAG_TYPE_START
166 );
167 JA_CN_UTILITY.Add_Child_Node( 'ELECTRONIC_BOOK_NUMBER'
168 , NULL
169 );
170 JA_CN_UTILITY.Add_Child_Node( 'ELECTRONIC_BOOK_NAME'
171 , NULL
172 );
173 JA_CN_UTILITY.Add_Child_Node( 'ENTERPRISE_NAME'
174 , NULL
175 );
176 JA_CN_UTILITY.Add_Child_Node( 'ORGANIZATION_NUMBER'
177 , NULL
178 );
179 JA_CN_UTILITY.Add_Child_Node( 'ENTERPRISE_TYPE'
180 , NULL
181 );
182 JA_CN_UTILITY.Add_Child_Node( 'ENTERPRISE_INDUSTRY'
183 , NULL
184 );
185 JA_CN_UTILITY.Add_Child_Node( 'ADMINISTRATIVE_DIVISION_CODE'
186 , NULL
187 );
188 JA_CN_UTILITY.Add_Child_Node( 'BUDGET_MANAGEMENT_LEVLE'
189 , NULL
190 );
191 JA_CN_UTILITY.Add_Child_Node( 'FUND_SOURCE'
192 , NULL
193 );
194 JA_CN_UTILITY.Add_Child_Node( 'ERP_SOFTWARE_VENDOR'
195 , NULL
196 );
197 JA_CN_UTILITY.Add_Child_Node( 'ERP_SOFTWARE_VERSION'
198 , NULL
199 );
200 JA_CN_UTILITY.Add_Child_Node( 'FUNCTIONAL_CURRENCY'
201 , NULL
202 );
203 JA_CN_UTILITY.Add_Fixed_Child_Node( 'ACCOUNTING_YEAR'
204 , NULL
205 , 4
206 );
207 JA_CN_UTILITY.Add_Child_Node( 'CNAO_STANDARD_VERSION'
208 , NULL
209 );
210 JA_CN_UTILITY.Add_Sub_Root_Node( 'ELECTRONIC_ACCOUNTING_BOOK'
211 , JA_CN_UTILITY.GV_TAG_TYPE_END
212 );
213 END IF; --(ln_row_count = 0)
214 --logging for debug
215 IF (ln_proc_level >= ln_dbg_level)
216 THEN
217 FND_LOG.STRING( ln_proc_level
218 , GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end'
219 , 'Exit procedure');
220 END IF; -- (ln_proc_level>=ln_dbg_level)
221 EXCEPTION
222 WHEN OTHERS THEN
223 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
224 THEN
225 FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED
226 , GV_MODULE_PREFIX || '.' || lv_procedure_name ||
227 '.Other_Exception '
228 , SQLCODE || SQLERRM);
229 END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
230 FND_FILE.PUT_LINE( FND_FILE.LOG
231 , GV_MODULE_PREFIX || '.' || lv_procedure_name || ','
232 || SQLCODE || SQLERRM );
233 RAISE;
234 END Add_Electronic_Accounting_Book;
235 END JA_CN_PS_SI_EAB_EXPORT_PKG;
236