[Home] [Help]
PACKAGE BODY: APPS.GLR03300_PKG
Source
4 X_budget_version_id NUMBER,
1 PACKAGE BODY GLR03300_PKG AS
2 /* $Header: gl03300b.pls 120.8 2005/05/05 02:01:07 kvora ship $ */
3 PROCEDURE set_criteria (X_code_combination_id NUMBER,
5 X_encumbrance_type_id NUMBER,
6 X_template_id NUMBER,
7 X_factor NUMBER,
8 X_currency_code VARCHAR2,
9 X_translated_flag VARCHAR2,
10 X_balance_type VARCHAR2,
11 X_currency_type VARCHAR2,
12 X_actual_flag VARCHAR2,
13 X_ledger_id NUMBER,
14 X_period_name VARCHAR2,
15 X_ledger_currency VARCHAR2) IS
16 BEGIN
17 GLR03300_PKG.code_combination_id := X_code_combination_id;
18 GLR03300_PKG.budget_version_id := X_budget_version_id;
19 GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
20 GLR03300_PKG.template_id := X_template_id;
21 GLR03300_PKG.factor := X_factor;
22 GLR03300_PKG.currency_code := X_currency_code;
23 GLR03300_PKG.translated_flag := X_translated_flag;
24 GLR03300_PKG.balance_type := X_balance_type;
25 GLR03300_PKG.currency_type := X_currency_type;
26 GLR03300_PKG.actual_flag := X_actual_flag;
27 GLR03300_PKG.ledger_id := X_ledger_id;
28 GLR03300_PKG.period_name := X_period_name;
29 GLR03300_PKG.ledger_currency := X_ledger_currency;
30 END set_criteria;
31
32 PROCEDURE set_sec_criteria (X_code_combination_id NUMBER,
36 X_factor NUMBER,
33 X_budget_version_id NUMBER,
34 X_encumbrance_type_id NUMBER,
35 X_template_id NUMBER,
37 X_currency_code VARCHAR2,
38 X_translated_flag VARCHAR2,
39 X_balance_type VARCHAR2,
40 X_currency_type VARCHAR2,
41 X_actual_flag VARCHAR2,
42 X_sec_actual_flag VARCHAR2,
43 X_sec_budget_version_id NUMBER,
44 X_sec_encumbrance_type_id NUMBER,
45 X_ledger_id NUMBER,
46 X_period_name VARCHAR2,
47 X_ledger_currency VARCHAR2) IS
48 BEGIN
49 GLR03300_PKG.code_combination_id := X_code_combination_id;
50 GLR03300_PKG.budget_version_id := X_budget_version_id;
51 GLR03300_PKG.encumbrance_type_id := X_encumbrance_type_id;
52 GLR03300_PKG.template_id := X_template_id;
53 GLR03300_PKG.factor := X_factor;
54 GLR03300_PKG.currency_code := X_currency_code;
55 GLR03300_PKG.translated_flag := X_translated_flag;
56 GLR03300_PKG.balance_type := X_balance_type;
57 GLR03300_PKG.currency_type := X_currency_type;
58 GLR03300_PKG.actual_flag := X_actual_flag;
59 GLR03300_PKG.sec_actual_flag := X_sec_actual_flag;
60 GLR03300_PKG.sec_budget_version_id := X_sec_budget_version_id;
61 GLR03300_PKG.sec_encumbrance_type_id := X_sec_encumbrance_type_id;
62 GLR03300_PKG.ledger_id := X_ledger_id;
63 GLR03300_PKG.period_name := X_period_name;
64 GLR03300_PKG.ledger_currency := X_ledger_currency;
65 END set_sec_criteria;
66
67 PROCEDURE set_ledger_id ( X_ledger_id NUMBER) IS
68 BEGIN
69 GLR03300_PKG.ledger_id := X_ledger_id;
70 END set_ledger_id;
71
72 PROCEDURE set_ar_cc ( X_ar_code_combination_id NUMBER) IS
73 BEGIN
74 GLR03300_PKG.ar_code_combination_id := X_ar_code_combination_id;
75 END set_ar_cc;
76
77
78 -- Procedure
79 -- populate_fields
80 -- PURPOSE Populates the USER_JE_SOURCE_NAME,USER_JE_CATEGORY ,ENCUMBRANCE_TYPE ,
81 -- BUDGET_NAME ,SHOW_BATCH_STATUS , SHOW_BC_STATUS
82 -- History: 16-sep-2002 KAKRISHN Created
83 -- Arguments: X_header_id IN ,
84 -- X_user_je_source_name OUT NOCOPY VARCHAR2,
85 -- X_user_je_category_name OUT NOCOPY VARCHAR2 ,
86 -- X_encumbrance_type OUT NOCOPY VARCHAR2 ,
87 -- X_budget_name OUT NOCOPY VARCHAR2
88 -- X_show_batch_status OUT NOCOPY VARCHAR2 ,
89 -- X_show_bc_status OUT NOCOPY VARCHAR2
90
91 -- Notes:
92 -- This procedure is called in post query trigger of JOURNALS block at GLXIQACC.fmb-- bug fix 2519486
93
94 PROCEDURE populate_fields (X_header_id IN NUMBER ,
95 X_user_je_source_name OUT NOCOPY VARCHAR2,
96 X_user_je_category_name OUT NOCOPY VARCHAR2 ,
97 X_encumbrance_type OUT NOCOPY VARCHAR2 ,
98 X_budget_name OUT NOCOPY VARCHAR2,
99 X_show_batch_status OUT NOCOPY VARCHAR2 ,
100 X_show_bc_status OUT NOCOPY VARCHAR2 ) IS
101
102 CURSOR c_header (lv_header_id gl_je_headers.je_header_id%type ) IS
103 SELECT je_header_id,je_source,je_category,encumbrance_type_id,
104 budget_version_id,currency_conversion_type , je_batch_id
105 FROM gl_je_headers
106 WHERE je_header_id=lv_header_id ;
107
108 CURSOR c_user_source_name (lv_gl_je_source gl_je_headers.je_source%type ) IS
109 SELECT user_je_source_name
110 FROM gl_je_sources
111 WHERE je_source_name= lv_gl_je_source ;
112
113 CURSOR c_user_category_name (lv_gl_je_category gl_je_headers.je_category%type ) IS
114 SELECT user_je_category_name
115 FROM gl_je_categories
116 WHERE je_category_name= lv_gl_je_category ;
117
118 CURSOR c_encumb_type (lv_encumb_type_id gl_je_headers.encumbrance_type_id%type ) IS
119 SELECT encumbrance_type
120 FROM gl_encumbrance_types
121 WHERE encumbrance_type_id= lv_encumb_type_id ;
122
123 CURSOR c_bud_ver (lv_bud_ver_id gl_je_headers.budget_version_id%type ) IS
124 SELECT budget_name
125 FROM gl_budget_versions
126 WHERE budget_version_id= lv_bud_ver_id ;
127
128 CURSOR c_curr_conv (lv_curr_conv_type gl_je_headers.currency_conversion_type%type ) IS
129 SELECT user_conversion_type
130 FROM gl_daily_conversion_types
131 WHERE conversion_type = lv_curr_conv_type ;
132
133 CURSOR c_show_batch_stat (lv_je_header_id gl_je_headers.je_header_id%type ,
134 lv_status gl_je_batches.status%type ) IS
135 SELECT description
136 FROM gl_lookups
137 WHERE lookup_type=decode ( lv_je_header_id,NULL,NULL,'MJE_BATCH_STATUS')
138 AND lookup_code=substr( lv_status , 1 , 1);
139
140
141 CURSOR c_show_bc_stat (lv_je_header_id gl_je_headers.je_header_id%type ,
142 lv_status gl_je_batches.budgetary_control_status%type ) IS
143 SELECT meaning
144 FROM gl_lookups
145 WHERE lookup_type=decode ( lv_je_header_id,NULL,NULL,'JE_BATCH_BC_STATUS')
146 AND lookup_code= lv_status ;
147
151
148 CURSOR c1 (lv_je_batch_id gl_je_headers.je_batch_id%type ) IS
149 select status,budgetary_control_status from gl_je_batches where
150 je_batch_id=lv_je_batch_id ;
152
153 lv_header c_header%rowtype;
154 lv_status c1%rowtype;
155
156 BEGIN
157
158
159 --To Get the value of header columns
160
161 OPEN c_header (X_header_id);
162 FETCH c_header into lv_header;
163 CLOSE c_header;
164
165 --To populate User Source Name
166 OPEN c_user_source_name ( lv_header.je_source);
167 FETCH c_user_source_name INTO X_user_je_source_name;
168 CLOSE c_user_source_name ;
169
170
171 --To populate Category Name
172 OPEN c_user_category_name ( lv_header.je_category);
173 FETCH c_user_category_name INTO X_user_je_category_name;
174 CLOSE c_user_category_name ;
175
176
177 --To popualte encumbrance type
178 OPEN c_encumb_type ( lv_header.encumbrance_type_id);
179 FETCH c_encumb_type INTO X_encumbrance_type;
180 CLOSE c_encumb_type;
181
182 --To popualte budget version
183 OPEN c_bud_ver ( lv_header.budget_version_id);
184 FETCH c_bud_ver INTO X_budget_name;
185 CLOSE c_bud_ver;
186
187
188 --To populate SHOW BATCH STATUS
189 OPEN c1 ( lv_header.je_batch_id);
190 FETCH c1 INTO lv_status;
191 CLOSE c1;
192
193 OPEN c_show_batch_stat ( lv_header.JE_header_id ,lv_status.status );
194 FETCH c_show_batch_stat into X_show_batch_status;
195 CLOSE c_show_batch_stat;
196
197 OPEN c_show_bc_stat ( lv_header.JE_header_id ,lv_status.budgetary_control_status );
198 FETCH c_show_bc_stat into X_show_bc_status;
199 CLOSE c_show_bc_stat;
200
201 END populate_fields;
202
203 FUNCTION get_ar_cc RETURN NUMBER IS
204 BEGIN
205 RETURN GLR03300_pkg.ar_code_combination_id;
206 END get_ar_cc;
207 --
208 -- PUBLIC FUNCTIONS
209 --
210 FUNCTION get_code_combination_id RETURN NUMBER IS
211 BEGIN
212 RETURN GLR03300_pkg.code_combination_id;
213 END get_code_combination_id;
214
215 FUNCTION get_budget_version_id RETURN NUMBER IS
216 BEGIN
217 RETURN GLR03300_pkg.budget_version_id;
218 END get_budget_version_id;
219
220 FUNCTION get_encumbrance_type_id RETURN NUMBER IS
221 BEGIN
222 RETURN GLR03300_pkg.encumbrance_type_id;
223 END get_encumbrance_type_id;
224
225 FUNCTION get_template_id RETURN NUMBER IS
226 BEGIN
227 RETURN GLR03300_pkg.template_id;
228 END get_template_id;
229
230 FUNCTION get_entered_currency_code RETURN VARCHAR2 IS
231 BEGIN
232 RETURN GLR03300_pkg.currency_code;
233 END get_entered_currency_code;
234
235 FUNCTION get_translated_flag RETURN VARCHAR2 IS
236 BEGIN
237 RETURN GLR03300_pkg.translated_flag;
238 END get_translated_flag;
239
240 FUNCTION get_balance_type RETURN VARCHAR2 IS
241 BEGIN
242 RETURN GLR03300_pkg.balance_type;
243 END get_balance_type;
244
245 FUNCTION get_factor RETURN NUMBER IS
246 BEGIN
247 RETURN GLR03300_pkg.factor;
248 END get_factor;
249
250 FUNCTION get_currency_type RETURN VARCHAR2 IS
251 BEGIN
252 RETURN GLR03300_pkg.currency_type;
253 END get_currency_type;
254
255 FUNCTION get_actual_flag RETURN VARCHAR2 IS
256 BEGIN
257 RETURN GLR03300_pkg.actual_flag;
258 END get_actual_flag;
259
260 FUNCTION get_sec_actual_flag RETURN VARCHAR2 IS
261 BEGIN
262 RETURN GLR03300_pkg.sec_actual_flag;
263 END get_sec_actual_flag;
264
265 FUNCTION get_sec_budget_version_id RETURN NUMBER IS
266 BEGIN
267 RETURN GLR03300_pkg.sec_budget_version_id;
268 END get_sec_budget_version_id;
269
270 FUNCTION get_sec_encumbrance_type_id RETURN NUMBER IS
271 BEGIN
272 RETURN GLR03300_pkg.sec_encumbrance_type_id;
273 END get_sec_encumbrance_type_id;
274
275 -- FUNCTION get_functional_currency_code RETURN VARCHAR2 IS
276 -- BEGIN
277 -- RETURN GLR03300_pkg.functional_currency_code;
278 -- END get_functional_currency_code;
279
280 FUNCTION get_ledger_id RETURN NUMBER IS
281 BEGIN
282 RETURN GLR03300_pkg.ledger_id;
283 END get_ledger_id;
284
285 FUNCTION get_period_name RETURN VARCHAR2 IS
286 BEGIN
287 RETURN GLR03300_pkg.period_name;
288 END get_period_name;
289
290 FUNCTION get_ledger_currency RETURN VARCHAR2 IS
291 BEGIN
292 RETURN GLR03300_pkg.ledger_currency;
293 END get_ledger_currency;
294
295 END GLR03300_PKG;