[Home] [Help]
PACKAGE: APPS.VEA_TPA_UTIL_PVT
Source
1 PACKAGE VEA_TPA_UTIL_PVT AUTHID CURRENT_USER as
2 /* $Header: VEATUTLS.pls 115.16 2004/07/27 00:07:38 rvishnuv ship $ */
3 --{
4 /*======================== vea_tpa_util_pvt ==========================*/
5 /*========================================================================
6 PURPOSE:
7
8 NOTES: To run the script:
9
10 sql> start VEATUTLS.pls
11
12 HISTORY
13 Created N PARIKH 09/09/99 10:00 AM
14
15 =========================================================================*/
16
17 G_PUBLIC_API CONSTANT VARCHAR2(3) := 'PUB';
18 G_PRIVATE_API CONSTANT VARCHAR2(3) := 'PVT';
19 G_GROUP_API CONSTANT VARCHAR2(3) := 'GRP';
20 --
21 --
22 G_ERROR CONSTANT VARCHAR2(32767) := 'E';
23 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(32767) := 'U';
24 G_OTHER_ERROR CONSTANT VARCHAR2(32767) := 'O';
25 --
26 --
27 e_unexpected_error EXCEPTION;
28 --
29 --
30 G_ORACLE CONSTANT VARCHAR2(32767) := 'ORCL';
31 G_UNDERSCORE CONSTANT VARCHAR2(32767) := '_';
32 G_WILD_CARD CONSTANT VARCHAR2(32767) := '%';
33 C_INDEX_LIMIT CONSTANT NUMBER := 2147483648; -- power(2,31)
34 --
35 --
36 TYPE g_programUnit_rec_type
37 IS
38 RECORD
39 (
40 program_unit_id vea_program_units.program_unit_id%TYPE,
41 start_position NUMBER
42 );
43 --
44 --
45 TYPE g_programUnit_tbl_type
46 IS
47 TABLE OF g_programUnit_rec_type
48 INDEX BY BINARY_INTEGER;
49 --
50 --
51 TYPE g_layer_rec_type
52 IS
53 RECORD
54 (
55 layer_provider_code vea_program_units.layer_provider_code%TYPE,
56 layer_id vea_layers.layer_id%TYPE,
57 is_layer_active BOOLEAN
58 );
59 --
60 --
61 TYPE g_layer_tbl_type
62 IS
63 TABLE OF g_layer_rec_type
64 INDEX BY BINARY_INTEGER;
65 --
66 --
67 g_programUnit_Tbl g_programUnit_tbl_type;
68 g_programUnitExt_Tbl g_programUnit_tbl_type;
69 g_layer_Tbl g_layer_tbl_type;
70 --
71 --
72 TYPE g_code_conversion_rec_type
73 IS
74 RECORD
75 (
76 layer_provider_code vea_program_units.layer_provider_code%TYPE,
77 parameter_name vea_parameters.name%TYPE,
78 external_value ece_xref_data.xref_ext_value1%TYPE,
79 internal_value ece_xref_data.xref_int_value%TYPE
80 );
81 --
82 --
83 TYPE g_code_conversion_tbl_type
84 IS
85 TABLE OF g_code_conversion_rec_type
86 INDEX BY BINARY_INTEGER;
87 --
88 --
89 TYPE g_branch_criteria_rec_type
90 IS
91 RECORD
92 (
93 layer_provider_code vea_program_units.layer_provider_code%TYPE,
94 parameter_name vea_parameters.name%TYPE,
95 external_value ece_xref_data.xref_ext_value1%TYPE,
96 internal_value ece_xref_data.xref_int_value%TYPE
97 );
98 --
99 --
100 TYPE g_branch_criteria_tbl_type
101 IS
102 TABLE OF g_branch_criteria_rec_type
103 INDEX BY BINARY_INTEGER;
104 --
105 --
106 TYPE g_cache_rec_type
107 IS
108 RECORD
109 (
110 key NUMBER,
111 value NUMBER
112 );
113 --
114 --
115 TYPE g_cache_tbl_type
116 IS
117 TABLE OF g_cache_rec_type
118 INDEX BY BINARY_INTEGER;
119 --
120 --
121 --C_INDEX_LIMIT CONSTANT NUMBER := 2147483648; -- power(2,31)
122 --
123 g_current_layer_provider_code VARCHAR2(100);
124 --
125 g_tpLyr_fileId_dbId_tbl g_cache_tbl_type;
126 g_tpLyr_fileId_dbId_ext_tbl g_cache_tbl_type;
127 g_PU_fileId_dbId_tbl g_cache_tbl_type;
128 g_PU_fileId_dbId_ext_tbl g_cache_tbl_type;
129 g_pend_puId_tpaPUId_tbl g_cache_tbl_type;
130 g_pend_puId_tpaPUId_ext_tbl g_cache_tbl_type;
131 --
132 --
133 PROCEDURE add_message
134 (
135 p_error_name IN VARCHAR2,
136 p_token1 IN VARCHAR2 DEFAULT NULL,
137 p_value1 IN VARCHAR2 DEFAULT NULL,
138 p_token2 IN VARCHAR2 DEFAULT NULL,
139 p_value2 IN VARCHAR2 DEFAULT NULL,
140 p_token3 IN VARCHAR2 DEFAULT NULL,
141 p_value3 IN VARCHAR2 DEFAULT NULL,
142 p_token4 IN VARCHAR2 DEFAULT NULL,
143 p_value4 IN VARCHAR2 DEFAULT NULL,
144 p_token5 IN VARCHAR2 DEFAULT NULL,
145 p_value5 IN VARCHAR2 DEFAULT NULL,
146 p_token6 IN VARCHAR2 DEFAULT NULL,
147 p_value6 IN VARCHAR2 DEFAULT NULL,
148 p_token7 IN VARCHAR2 DEFAULT NULL,
149 p_value7 IN VARCHAR2 DEFAULT NULL,
150 p_token8 IN VARCHAR2 DEFAULT NULL,
151 p_value8 IN VARCHAR2 DEFAULT NULL
152 );
153 --
154 --
155 PROCEDURE add_message_and_raise
156 (
157 p_error_name IN VARCHAR2,
158 p_token1 IN VARCHAR2 DEFAULT NULL,
159 p_value1 IN VARCHAR2 DEFAULT NULL,
160 p_token2 IN VARCHAR2 DEFAULT NULL,
161 p_value2 IN VARCHAR2 DEFAULT NULL,
162 p_token3 IN VARCHAR2 DEFAULT NULL,
163 p_value3 IN VARCHAR2 DEFAULT NULL,
164 p_token4 IN VARCHAR2 DEFAULT NULL,
165 p_value4 IN VARCHAR2 DEFAULT NULL,
166 p_token5 IN VARCHAR2 DEFAULT NULL,
167 p_value5 IN VARCHAR2 DEFAULT NULL,
168 p_token6 IN VARCHAR2 DEFAULT NULL,
169 p_value6 IN VARCHAR2 DEFAULT NULL,
170 p_token7 IN VARCHAR2 DEFAULT NULL,
171 p_value7 IN VARCHAR2 DEFAULT NULL,
172 p_token8 IN VARCHAR2 DEFAULT NULL,
173 p_value8 IN VARCHAR2 DEFAULT NULL
174 );
175 --
176 --
177 PROCEDURE display_message
178 (
179 p_error_name IN VARCHAR2,
180 p_token1 IN VARCHAR2 DEFAULT NULL,
181 p_value1 IN VARCHAR2 DEFAULT NULL,
182 p_token2 IN VARCHAR2 DEFAULT NULL,
183 p_value2 IN VARCHAR2 DEFAULT NULL,
184 p_token3 IN VARCHAR2 DEFAULT NULL,
185 p_value3 IN VARCHAR2 DEFAULT NULL,
186 p_token4 IN VARCHAR2 DEFAULT NULL,
187 p_value4 IN VARCHAR2 DEFAULT NULL,
188 p_token5 IN VARCHAR2 DEFAULT NULL,
189 p_value5 IN VARCHAR2 DEFAULT NULL,
190 p_token6 IN VARCHAR2 DEFAULT NULL,
191 p_value6 IN VARCHAR2 DEFAULT NULL,
192 p_token7 IN VARCHAR2 DEFAULT NULL,
193 p_value7 IN VARCHAR2 DEFAULT NULL,
194 p_token8 IN VARCHAR2 DEFAULT NULL,
195 p_value8 IN VARCHAR2 DEFAULT NULL
196 );
197 --
198 --
199 PROCEDURE add_exc_message_and_raise
200 (
201 p_package_name IN VARCHAR2,
202 p_api_name IN VARCHAR2,
203 p_location IN VARCHAR2
204 );
205 --
206 --
207 PROCEDURE
208 handle_error
209 (
210 p_error_type IN VARCHAR2,
211 p_savepoint_name IN VARCHAR2,
212 p_package_name IN VARCHAR2,
213 p_api_name IN VARCHAR2,
214 p_location IN VARCHAR2,
215 x_msg_count OUT NOCOPY NUMBER,
216 x_msg_data OUT NOCOPY VARCHAR2,
217 x_api_return_status OUT NOCOPY VARCHAR2
218 );
219 --
220 --
221 PROCEDURE
222 api_post_call
223 (
224 p_msg_count IN NUMBER,
225 p_msg_data IN VARCHAR2,
226 p_api_return_status IN VARCHAR2
227 );
228 --
229 --
230 PROCEDURE
231 api_header
232 (
233 p_package_name IN VARCHAR2,
234 p_api_name IN VARCHAR2,
235 p_api_type IN VARCHAR2,
236 p_api_current_version IN NUMBER,
237 p_api_caller_version IN NUMBER,
238 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
239 x_savepoint_name OUT NOCOPY VARCHAR2,
240 x_api_return_status OUT NOCOPY VARCHAR2
241 );
242 --
243 --
244 PROCEDURE
245 api_footer
246 (
247 p_commit IN VARCHAR2 := FND_API.G_FALSE,
248 x_msg_count OUT NOCOPY NUMBER,
249 x_msg_data OUT NOCOPY VARCHAR2
250 );
251 --
252 --
253 FUNCTION
254 get_profile_value
255 (
256 p_profile_name IN VARCHAR2
257 )
258 RETURN VARCHAR2;
259
260 --
261 --
262 FUNCTION
263 get_curr_layer_provider_code
264 RETURN VARCHAR2;
265 --
266 --
267 FUNCTION
268 get_curr_customer_name
269 RETURN VARCHAR2;
270 --
271 --
272 FUNCTION
273 get_user_id
274 RETURN NUMBER;
275 --
276 --
277 FUNCTION
278 get_login_id
279 RETURN NUMBER;
280 --
281 --
282 PROCEDURE
283 get_constants
284 (
285 p_api_version IN NUMBER,
286 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
287 p_commit IN VARCHAR2 := FND_API.G_FALSE,
288 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
289 x_return_status OUT NOCOPY VARCHAR2,
290 x_msg_count OUT NOCOPY NUMBER,
291 x_msg_data OUT NOCOPY VARCHAR2,
292 x_true OUT NOCOPY VARCHAR2,
293 x_false OUT NOCOPY VARCHAR2,
294 x_valid_level_full OUT NOCOPY NUMBER,
295 x_valid_level_none OUT NOCOPY NUMBER,
296 x_success OUT NOCOPY VARCHAR2,
297 x_error OUT NOCOPY VARCHAR2,
298 x_unexpected_error OUT NOCOPY VARCHAR2,
299 x_next OUT NOCOPY NUMBER
300 );
301 --
302 --
303 PROCEDURE
304 isVEAInstalled
305 (
306 p_api_version IN NUMBER,
307 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
308 p_commit IN VARCHAR2 := FND_API.G_FALSE,
309 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
310 x_return_status OUT NOCOPY VARCHAR2,
311 x_msg_count OUT NOCOPY NUMBER,
312 x_msg_data OUT NOCOPY VARCHAR2,
313 x_vea_install_status OUT NOCOPY VARCHAR2
314 );
315 --
316 --
317 FUNCTION
318 is_vea_installed
319 RETURN BOOLEAN;
320 --
321 --
322 PROCEDURE
323 preProcess
324 (
325 p_api_version IN NUMBER,
326 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
327 p_commit IN VARCHAR2 := FND_API.G_FALSE,
331 x_msg_data OUT NOCOPY VARCHAR2,
328 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
329 x_return_status OUT NOCOPY VARCHAR2,
330 x_msg_count OUT NOCOPY NUMBER,
332 p_layer_provider_code IN vea_layers.layer_provider_code%TYPE,
333 p_application_short_name IN vea_packages.application_short_name%TYPE,
334 p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE,
335 p_tp_layer_name IN vea_tp_layers.name%TYPE
336 );
337 --
338 --
339 PROCEDURE
340 postProcess
341 (
342 p_api_version IN NUMBER,
343 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
344 p_commit IN VARCHAR2 := FND_API.G_FALSE,
345 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
346 x_return_status OUT NOCOPY VARCHAR2,
347 x_msg_count OUT NOCOPY NUMBER,
348 x_msg_data OUT NOCOPY VARCHAR2,
349 p_layer_provider_code IN vea_layers.layer_provider_code%TYPE,
350 p_application_short_name IN vea_packages.application_short_name%TYPE,
351 p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE,
352 p_tp_layer_name IN vea_tp_layers.name%TYPE
353 );
354 --
355 --
356 FUNCTION
357 isLayerMergeOn
358 RETURN BOOLEAN;
359 --
360 --
361 PROCEDURE
362 populateLayerActiveTable
363 (
364 p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
365 p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
366 x_layer_table IN OUT NOCOPY g_layer_tbl_type
367 );
368 --
369 --
370 FUNCTION
371 isLayerActive
372 (
373 p_layer_table IN g_layer_tbl_type,
374 p_layer_id IN vea_layers.layer_id%TYPE,
375 p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE
376 )
377 RETURN BOOLEAN;
378 --
379 --
380 PROCEDURE
381 process_code_conversion
382 (
383 p_layer_provider_code IN vea_layers.layer_provider_code%TYPE,
384 p_layer_header_id IN vea_layers.layer_header_id%TYPE,
385 p_tps_parameter_id IN vea_layers.tps_parameter1_id%TYPE,
386 p_tps_parameter_value IN vea_layers.tps_parameter1_value%TYPE
387 );
388 --
389 --
390 FUNCTION convertBranchCriteria
391 (
392 p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
393 p_parameter_name IN vea_parameters.name%TYPE,
394 p_external_value IN ece_xref_data.xref_ext_value1%TYPE,
395 x_code_conversion_tbl IN OUT NOCOPY vea_tpa_util_pvt.g_code_conversion_tbl_type
396 )
397 RETURN ece_xref_data.xref_int_value%TYPE;
398 --
399 --
400 FUNCTION Convert_from_ext_to_int
401 (
402 p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
403 p_parameter_name IN vea_parameters.name%TYPE,
404 p_external_value IN ece_xref_data.xref_ext_value1%TYPE
405 )
406 RETURN ece_xref_data.xref_int_value%TYPE;
407 --
408 --
409 FUNCTION Convert_from_int_to_ext
410 (
411 p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
412 p_parameter_name IN vea_parameters.name%TYPE,
413 p_internal_value IN ece_xref_data.xref_int_value%TYPE
414 )
415 RETURN ece_xref_data.xref_ext_value1%TYPE;
416 --
417 --
418 PROCEDURE debug
419 (
420 p_string IN VARCHAR2
421 );
422 --
423 --
424 FUNCTION validate
425 RETURN BOOLEAN;
426 --
427 --
428 FUNCTION get_message_text
429 (
430 p_error_name IN VARCHAR2,
431 p_token1 IN VARCHAR2 DEFAULT NULL,
432 p_value1 IN VARCHAR2 DEFAULT NULL,
433 p_token2 IN VARCHAR2 DEFAULT NULL,
434 p_value2 IN VARCHAR2 DEFAULT NULL,
435 p_token3 IN VARCHAR2 DEFAULT NULL,
436 p_value3 IN VARCHAR2 DEFAULT NULL,
437 p_token4 IN VARCHAR2 DEFAULT NULL,
438 p_value4 IN VARCHAR2 DEFAULT NULL,
439 p_token5 IN VARCHAR2 DEFAULT NULL,
440 p_value5 IN VARCHAR2 DEFAULT NULL,
441 p_token6 IN VARCHAR2 DEFAULT NULL,
442 p_value6 IN VARCHAR2 DEFAULT NULL,
443 p_token7 IN VARCHAR2 DEFAULT NULL,
444 p_value7 IN VARCHAR2 DEFAULT NULL,
445 p_token8 IN VARCHAR2 DEFAULT NULL,
446 p_value8 IN VARCHAR2 DEFAULT NULL
447
448 )
449 RETURN VARCHAR2;
450 --
451 --
452 PROCEDURE update_lookup_values
453 (
454 p_lookup_type IN fnd_lookup_values.lookup_type%TYPE,
455 p_new_lookup_code IN fnd_lookup_values.lookup_code%TYPE,
456 p_current_lookup_code IN fnd_lookup_values.lookup_code%TYPE,
457 p_meaning IN fnd_lookup_values.meaning%TYPE,
458 p_description IN fnd_lookup_values.description%TYPE
459 );
460 --
461 --
462 PROCEDURE insert_lookup_values
463 (
464 p_lookup_type IN fnd_lookup_values.lookup_type%TYPE,
465 p_lookup_code IN fnd_lookup_values.lookup_code%TYPE,
466 p_meaning IN fnd_lookup_values.meaning%TYPE,
467 p_description IN fnd_lookup_values.description%TYPE
468 );
469 --
470 --
471 PROCEDURE clearLayerActiveTable;
472 /*========================================================================
473
474 PROCEDURE NAME: put
475
476 ========================================================================*/
477 PROCEDURE
478 put
479 (
480 p_key IN NUMBER,
481 p_value IN NUMBER,
482 x_cache_tbl IN OUT NOCOPY g_cache_tbl_type,
483 x_cache_ext_tbl IN OUT NOCOPY g_cache_tbl_type
484 );
485
486 /*========================================================================
487
488 PROCEDURE NAME: get
489
490 ========================================================================*/
491 PROCEDURE
492 get
493 (
494 p_key IN NUMBER,
495 p_cache_tbl IN OUT NOCOPY g_cache_tbl_type,
496 p_cache_ext_tbl IN OUT NOCOPY g_cache_tbl_type,
497 x_value OUT NOCOPY NUMBER
498 );
499
500 --}
501
502 END VEA_TPA_UTIL_PVT;