[Home] [Help]
PACKAGE BODY: APPS.JA_CN_GL_EAB_EXPORT_PKG
Source
1 PACKAGE BODY JA_CN_GL_EAB_EXPORT_PKG AS
2 --$Header: JACNEABB.pls 120.3 2010/05/20 03:29:02 choli noship $
3 --+=======================================================================+
4 --| Copyright (c) 1998 Oracle Corporation |
5 --| Redwood Shores, CA, USA |
6 --| All rights reserved. |
7 --+=======================================================================+
8 --| FILENAME |
9 --| JACNEABB.pls |
10 --| |
11 --| DESCRIPTION |
12 --| Use this package to export Electronic Accounting Book |
13 --| |
14 --| PROCEDURE LIST |
15 --| PROCEDURE Add_Electronic_Accounting_Book |
16 --| |
17 --| |
18 --| HISTORY |
19 --| 01/20/2010 Chongwu Li Created |
20 --+======================================================================*/
21 GV_MODULE_PREFIX VARCHAR2(100) := 'JA_CN_GL_EAB_EXPORT_PKG';
22
23 --==========================================================================
24 -- PROCEDURE NAME:
25 --
26 -- Add_Electronic_Accounting_Book Public
27 --
28 -- DESCRIPTION:
29 --
30 -- This procedure is to export Electronic Accounting Book
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 -- DESIGN REFERENCES:
37 -- CNAO_V2_GL_TD.doc
38 --
39 -- CHANGE HISTORY:
40 --
41 -- 20-JAN-2010 Chongwu Li created
42
43 PROCEDURE Add_Electronic_Accounting_Book(pn_legal_entity_id NUMBER
44 ,pn_ledger_id NUMBER
45 ,pn_accounting_year NUMBER) IS
46 lv_procedure_name VARCHAR2(40) := 'Add_Electronic_Accounting_Book';
47 ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
48 ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
49 ln_statement_level NUMBER := FND_LOG.LEVEL_STATEMENT;
50 ln_row_count NUMBER;
51 NO_DATA EXCEPTION;
52
53 -- to get Electronic Accounting Book
54 CURSOR electronic_accounting_book_cur(ln_legal_entity_id NUMBER, ln_ledger_id NUMBER) IS
55 SELECT jcspa.book_num,
56 jcspa.book_name,
57 jcspa.company_name,
58 jcspa.organization_id,
59 jcspa.ent_quality,
60 jcspa.ent_industry,
61 ar.major_version || '.' || ar.minor_version || '.' ||
62 ar.tape_version software_version,
63 fcv.name,
64 jcspa.cnao_stand_ver
65 FROM ja_cn_system_parameters_all jcspa,
66 gl_ledgers gl,
67 ad_releases ar,
68 fnd_currencies_vl fcv
69 WHERE ar.release_id = (SELECT max(release_id) FROM ad_releases)
70 AND fcv.currency_code = gl.currency_code
71 AND gl.ledger_id = ln_ledger_id
72 AND jcspa.legal_entity_id = ln_legal_entity_id;
73
74 BEGIN
75 --logging for debug
76 FND_FILE.PUT_LINE(FND_FILE.log, lv_procedure_name);
77 IF (ln_proc_level >= ln_dbg_level)
78 THEN
79 FND_LOG.STRING(ln_proc_level,
80 GV_MODULE_PREFIX || '.' || lv_procedure_name ||
81 '.begin',
82 'Enter procedure');
83 FND_LOG.STRING(ln_proc_level,
84 lv_procedure_name ||
85 '.parameters',
86 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
87 'pn_ledger_id=' || pn_ledger_id || ',' ||
88 'pn_accounting_year=' || pn_accounting_year);
89
90 END IF; --ln_proc_level>=ln_dbg_level
91 FND_FILE.put_line(FND_FILE.log, lv_procedure_name ||
92 '.parameters:' ||
93 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
94 'pn_ledger_id=' || pn_ledger_id || ',' ||
95 'pn_accounting_year=' || pn_accounting_year);
96
97 ln_row_count := 0;
98 FOR v_row IN electronic_accounting_book_cur(pn_legal_entity_id,
99 pn_ledger_id)
100 LOOP
101 ln_row_count := ln_row_count + 1;
102 Ja_Cn_Utility.Add_Sub_Root_Node('ELECTRONIC_ACCOUNTING_BOOK'
103 ,Ja_Cn_Utility.GV_TAG_TYPE_START);
104
105 Ja_Cn_Utility.Add_Child_Node('ELECTRONIC_BOOK_NUMBER'
106 ,v_row.book_num);
107 Ja_Cn_Utility.Add_Child_Node('ELECTRONIC_BOOK_NAME'
108 ,v_row.book_name);
109 Ja_Cn_Utility.Add_Child_Node('ENTERPRISE_NAME'
110 ,v_row.company_name);
111 Ja_Cn_Utility.Add_Child_Node('ORGANIZATION_NUMBER'
112 ,v_row.organization_id);
113 Ja_Cn_Utility.Add_Fixed_Child_Node('ENTERPRISE_QUALITY'
114 ,v_row.ent_quality
115 ,4);
116 Ja_Cn_Utility.Add_Child_Node('ENTERPRISE_INDUSTRY'
117 ,v_row.ent_industry);
118 Ja_Cn_Utility.Add_Child_Node('ERP_SOFTWARE_VENDOR'
119 ,'ORACLE');
120 Ja_Cn_Utility.Add_Child_Node('ERP_SOFTWARE_VERSION'
121 ,v_row.software_version);
122 Ja_Cn_Utility.Add_Child_Node('FUNCTIONAL_CURRENCY'
123 ,v_row.name);
124 Ja_Cn_Utility.Add_Child_Node('ACCOUNTING_YEAR'
125 ,pn_accounting_year);
126 Ja_Cn_Utility.Add_Child_Node('CNAO_STANDARD_VERSION'
127 ,v_row.cnao_stand_ver);
128 Ja_Cn_Utility.Add_Sub_Root_Node('ELECTRONIC_ACCOUNTING_BOOK'
129 ,Ja_Cn_Utility.GV_TAG_TYPE_END);
130
131 END LOOP;
132
133 IF (ln_row_count = 0)
134 THEN
135 Ja_Cn_Utility.Print_No_Data_Found_For_Log('ELECTRONIC_ACCOUNTING_BOOK');
136 Ja_Cn_Utility.Add_Sub_Root_Node('ELECTRONIC_ACCOUNTING_BOOK'
137 ,Ja_Cn_Utility.GV_TAG_TYPE_START);
138
139 Ja_Cn_Utility.Add_Child_Node('ELECTRONIC_BOOK_NUMBER'
140 ,NULL);
141 Ja_Cn_Utility.Add_Child_Node('ELECTRONIC_BOOK_NAME'
142 ,NULL);
143 Ja_Cn_Utility.Add_Child_Node('ENTERPRISE_NAME'
144 ,NULL);
145 Ja_Cn_Utility.Add_Child_Node('ORGANIZATION_NUMBER'
146 ,NULL);
147 Ja_Cn_Utility.Add_Fixed_Child_Node('ENTERPRISE_QUALITY'
148 ,NULL
149 ,4);
150 Ja_Cn_Utility.Add_Child_Node('ENTERPRISE_INDUSTRY'
151 ,NULL);
152 Ja_Cn_Utility.Add_Child_Node('ERP_SOFTWARE_VENDOR'
153 ,NULL);
154 Ja_Cn_Utility.Add_Child_Node('ERP_SOFTWARE_VERSION'
155 ,NULL);
156 Ja_Cn_Utility.Add_Child_Node('FUNCTIONAL_CURRENCY'
157 ,NULL);
158 Ja_Cn_Utility.Add_Child_Node('ACCOUNTING_YEAR'
159 ,NULL);
160 Ja_Cn_Utility.Add_Child_Node('CNAO_STANDARD_VERSION'
161 ,NULL);
162 Ja_Cn_Utility.Add_Sub_Root_Node('ELECTRONIC_ACCOUNTING_BOOK'
163 ,Ja_Cn_Utility.GV_TAG_TYPE_END);
164 END IF; --ln_row_count = 0
165
166 --logging for debug
167 IF (ln_proc_level >= ln_dbg_level) THEN
168 FND_LOG.STRING(ln_proc_level,
169 GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
170 'Exit procedure');
171 END IF; -- (ln_proc_level>=ln_dbg_level)
172 EXCEPTION
173 WHEN OTHERS THEN
174 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
175 THEN
176 FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
177 GV_MODULE_PREFIX || '.' || lv_procedure_name ||
178 '.Other_Exception ',
179 SQLCODE || SQLERRM);
180 END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
181 FND_FILE.put_line(FND_FILE.log, lv_procedure_name || SQLCODE || SQLERRM);
182 RAISE;
183 END Add_Electronic_Accounting_Book;
184
185 END JA_CN_GL_EAB_EXPORT_PKG;