[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_STRMS_TRANS_PVT_W
Source
1 package body okl_setup_strms_trans_pvt_w as
2 /* $Header: OKLESMNB.pls 120.1 2005/07/12 09:10:12 dkagrawa noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure insert_translations(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p2_a0 JTF_NUMBER_TABLE
25 , p2_a1 JTF_VARCHAR2_TABLE_100
26 , p2_a2 JTF_VARCHAR2_TABLE_100
27 , p2_a3 JTF_VARCHAR2_TABLE_400
28 , p2_a4 JTF_VARCHAR2_TABLE_100
29 , p2_a5 JTF_VARCHAR2_TABLE_400
30 , p2_a6 JTF_NUMBER_TABLE
31 , p2_a7 JTF_VARCHAR2_TABLE_400
32 , p2_a8 JTF_VARCHAR2_TABLE_100
33 , p2_a9 JTF_DATE_TABLE
34 , p2_a10 JTF_DATE_TABLE
35 , p2_a11 JTF_VARCHAR2_TABLE_300
36 , p2_a12 JTF_VARCHAR2_TABLE_300
37 , p2_a13 JTF_VARCHAR2_TABLE_300
38 , p2_a14 JTF_VARCHAR2_TABLE_300
39 , p2_a15 JTF_VARCHAR2_TABLE_300
40 , p2_a16 JTF_VARCHAR2_TABLE_300
41 , p2_a17 JTF_VARCHAR2_TABLE_300
42 , p2_a18 JTF_VARCHAR2_TABLE_300
43 , p2_a19 JTF_VARCHAR2_TABLE_300
44 , p2_a20 JTF_VARCHAR2_TABLE_300
45 , p2_a21 JTF_VARCHAR2_TABLE_300
46 , p2_a22 JTF_VARCHAR2_TABLE_300
47 , p2_a23 JTF_VARCHAR2_TABLE_300
48 , p2_a24 JTF_VARCHAR2_TABLE_300
49 , p2_a25 JTF_VARCHAR2_TABLE_300
50 , p2_a26 JTF_NUMBER_TABLE
51 , p2_a27 JTF_DATE_TABLE
52 , p2_a28 JTF_NUMBER_TABLE
53 , p2_a29 JTF_DATE_TABLE
54 , p2_a30 JTF_NUMBER_TABLE
55 , p3_a0 out nocopy JTF_NUMBER_TABLE
56 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
57 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_100
58 , p3_a3 out nocopy JTF_VARCHAR2_TABLE_400
59 , p3_a4 out nocopy JTF_VARCHAR2_TABLE_100
60 , p3_a5 out nocopy JTF_VARCHAR2_TABLE_400
61 , p3_a6 out nocopy JTF_NUMBER_TABLE
62 , p3_a7 out nocopy JTF_VARCHAR2_TABLE_400
63 , p3_a8 out nocopy JTF_VARCHAR2_TABLE_100
64 , p3_a9 out nocopy JTF_DATE_TABLE
65 , p3_a10 out nocopy JTF_DATE_TABLE
66 , p3_a11 out nocopy JTF_VARCHAR2_TABLE_300
67 , p3_a12 out nocopy JTF_VARCHAR2_TABLE_300
68 , p3_a13 out nocopy JTF_VARCHAR2_TABLE_300
69 , p3_a14 out nocopy JTF_VARCHAR2_TABLE_300
70 , p3_a15 out nocopy JTF_VARCHAR2_TABLE_300
71 , p3_a16 out nocopy JTF_VARCHAR2_TABLE_300
72 , p3_a17 out nocopy JTF_VARCHAR2_TABLE_300
73 , p3_a18 out nocopy JTF_VARCHAR2_TABLE_300
74 , p3_a19 out nocopy JTF_VARCHAR2_TABLE_300
75 , p3_a20 out nocopy JTF_VARCHAR2_TABLE_300
76 , p3_a21 out nocopy JTF_VARCHAR2_TABLE_300
77 , p3_a22 out nocopy JTF_VARCHAR2_TABLE_300
78 , p3_a23 out nocopy JTF_VARCHAR2_TABLE_300
79 , p3_a24 out nocopy JTF_VARCHAR2_TABLE_300
80 , p3_a25 out nocopy JTF_VARCHAR2_TABLE_300
81 , p3_a26 out nocopy JTF_NUMBER_TABLE
82 , p3_a27 out nocopy JTF_DATE_TABLE
83 , p3_a28 out nocopy JTF_NUMBER_TABLE
84 , p3_a29 out nocopy JTF_DATE_TABLE
85 , p3_a30 out nocopy JTF_NUMBER_TABLE
86 , x_return_status out nocopy VARCHAR2
87 , x_msg_count out nocopy NUMBER
88 , x_msg_data out nocopy VARCHAR2
89 )
90
91 as
92 ddp_sgnv_tbl okl_setup_strms_trans_pvt.sgnv_tbl_type;
93 ddx_sgnv_tbl okl_setup_strms_trans_pvt.sgnv_tbl_type;
94 ddindx binary_integer; indx binary_integer;
95 begin
96
97 -- copy data to the local IN or IN-OUT args, if any
98
99
100 okl_sgt_pvt_w.rosetta_table_copy_in_p2(ddp_sgnv_tbl, p2_a0
101 , p2_a1
102 , p2_a2
103 , p2_a3
104 , p2_a4
105 , p2_a5
106 , p2_a6
107 , p2_a7
108 , p2_a8
109 , p2_a9
110 , p2_a10
111 , p2_a11
112 , p2_a12
113 , p2_a13
114 , p2_a14
115 , p2_a15
116 , p2_a16
117 , p2_a17
118 , p2_a18
119 , p2_a19
120 , p2_a20
121 , p2_a21
122 , p2_a22
123 , p2_a23
124 , p2_a24
125 , p2_a25
126 , p2_a26
127 , p2_a27
128 , p2_a28
129 , p2_a29
130 , p2_a30
131 );
132
133
134
135
136
137 -- here's the delegated call to the old PL/SQL routine
138 okl_setup_strms_trans_pvt.insert_translations(p_api_version,
139 p_init_msg_list,
140 ddp_sgnv_tbl,
141 ddx_sgnv_tbl,
142 x_return_status,
143 x_msg_count,
144 x_msg_data);
145
146 -- copy data back from the local variables to OUT or IN-OUT args, if any
147
148
149
150 okl_sgt_pvt_w.rosetta_table_copy_out_p2(ddx_sgnv_tbl, p3_a0
151 , p3_a1
152 , p3_a2
153 , p3_a3
154 , p3_a4
155 , p3_a5
156 , p3_a6
157 , p3_a7
158 , p3_a8
159 , p3_a9
160 , p3_a10
161 , p3_a11
162 , p3_a12
163 , p3_a13
164 , p3_a14
165 , p3_a15
166 , p3_a16
167 , p3_a17
168 , p3_a18
169 , p3_a19
170 , p3_a20
171 , p3_a21
172 , p3_a22
173 , p3_a23
174 , p3_a24
175 , p3_a25
176 , p3_a26
177 , p3_a27
178 , p3_a28
179 , p3_a29
180 , p3_a30
181 );
182
183
184
185 end;
186
187 procedure update_translations(p_api_version NUMBER
188 , p_init_msg_list VARCHAR2
189 , p2_a0 JTF_NUMBER_TABLE
190 , p2_a1 JTF_VARCHAR2_TABLE_100
191 , p2_a2 JTF_VARCHAR2_TABLE_100
192 , p2_a3 JTF_VARCHAR2_TABLE_400
193 , p2_a4 JTF_VARCHAR2_TABLE_100
194 , p2_a5 JTF_VARCHAR2_TABLE_400
195 , p2_a6 JTF_NUMBER_TABLE
196 , p2_a7 JTF_VARCHAR2_TABLE_400
197 , p2_a8 JTF_VARCHAR2_TABLE_100
198 , p2_a9 JTF_DATE_TABLE
199 , p2_a10 JTF_DATE_TABLE
200 , p2_a11 JTF_VARCHAR2_TABLE_300
201 , p2_a12 JTF_VARCHAR2_TABLE_300
202 , p2_a13 JTF_VARCHAR2_TABLE_300
203 , p2_a14 JTF_VARCHAR2_TABLE_300
204 , p2_a15 JTF_VARCHAR2_TABLE_300
205 , p2_a16 JTF_VARCHAR2_TABLE_300
206 , p2_a17 JTF_VARCHAR2_TABLE_300
207 , p2_a18 JTF_VARCHAR2_TABLE_300
208 , p2_a19 JTF_VARCHAR2_TABLE_300
209 , p2_a20 JTF_VARCHAR2_TABLE_300
210 , p2_a21 JTF_VARCHAR2_TABLE_300
211 , p2_a22 JTF_VARCHAR2_TABLE_300
212 , p2_a23 JTF_VARCHAR2_TABLE_300
213 , p2_a24 JTF_VARCHAR2_TABLE_300
214 , p2_a25 JTF_VARCHAR2_TABLE_300
215 , p2_a26 JTF_NUMBER_TABLE
216 , p2_a27 JTF_DATE_TABLE
217 , p2_a28 JTF_NUMBER_TABLE
218 , p2_a29 JTF_DATE_TABLE
219 , p2_a30 JTF_NUMBER_TABLE
220 , p3_a0 out nocopy JTF_NUMBER_TABLE
221 , p3_a1 out nocopy JTF_VARCHAR2_TABLE_100
222 , p3_a2 out nocopy JTF_VARCHAR2_TABLE_100
223 , p3_a3 out nocopy JTF_VARCHAR2_TABLE_400
224 , p3_a4 out nocopy JTF_VARCHAR2_TABLE_100
225 , p3_a5 out nocopy JTF_VARCHAR2_TABLE_400
226 , p3_a6 out nocopy JTF_NUMBER_TABLE
227 , p3_a7 out nocopy JTF_VARCHAR2_TABLE_400
228 , p3_a8 out nocopy JTF_VARCHAR2_TABLE_100
229 , p3_a9 out nocopy JTF_DATE_TABLE
230 , p3_a10 out nocopy JTF_DATE_TABLE
231 , p3_a11 out nocopy JTF_VARCHAR2_TABLE_300
232 , p3_a12 out nocopy JTF_VARCHAR2_TABLE_300
233 , p3_a13 out nocopy JTF_VARCHAR2_TABLE_300
234 , p3_a14 out nocopy JTF_VARCHAR2_TABLE_300
235 , p3_a15 out nocopy JTF_VARCHAR2_TABLE_300
236 , p3_a16 out nocopy JTF_VARCHAR2_TABLE_300
237 , p3_a17 out nocopy JTF_VARCHAR2_TABLE_300
238 , p3_a18 out nocopy JTF_VARCHAR2_TABLE_300
239 , p3_a19 out nocopy JTF_VARCHAR2_TABLE_300
240 , p3_a20 out nocopy JTF_VARCHAR2_TABLE_300
241 , p3_a21 out nocopy JTF_VARCHAR2_TABLE_300
242 , p3_a22 out nocopy JTF_VARCHAR2_TABLE_300
243 , p3_a23 out nocopy JTF_VARCHAR2_TABLE_300
244 , p3_a24 out nocopy JTF_VARCHAR2_TABLE_300
245 , p3_a25 out nocopy JTF_VARCHAR2_TABLE_300
246 , p3_a26 out nocopy JTF_NUMBER_TABLE
247 , p3_a27 out nocopy JTF_DATE_TABLE
248 , p3_a28 out nocopy JTF_NUMBER_TABLE
249 , p3_a29 out nocopy JTF_DATE_TABLE
250 , p3_a30 out nocopy JTF_NUMBER_TABLE
251 , x_return_status out nocopy VARCHAR2
252 , x_msg_count out nocopy NUMBER
253 , x_msg_data out nocopy VARCHAR2
254 )
255
256 as
257 ddp_sgnv_tbl okl_setup_strms_trans_pvt.sgnv_tbl_type;
258 ddx_sgnv_tbl okl_setup_strms_trans_pvt.sgnv_tbl_type;
259 ddindx binary_integer; indx binary_integer;
260 begin
261
262 -- copy data to the local IN or IN-OUT args, if any
263
264
265 okl_sgt_pvt_w.rosetta_table_copy_in_p2(ddp_sgnv_tbl, p2_a0
266 , p2_a1
267 , p2_a2
268 , p2_a3
269 , p2_a4
270 , p2_a5
271 , p2_a6
272 , p2_a7
273 , p2_a8
274 , p2_a9
275 , p2_a10
276 , p2_a11
277 , p2_a12
278 , p2_a13
279 , p2_a14
280 , p2_a15
281 , p2_a16
282 , p2_a17
283 , p2_a18
284 , p2_a19
285 , p2_a20
286 , p2_a21
287 , p2_a22
288 , p2_a23
289 , p2_a24
290 , p2_a25
291 , p2_a26
292 , p2_a27
293 , p2_a28
294 , p2_a29
295 , p2_a30
296 );
297
298
299
300
301
302 -- here's the delegated call to the old PL/SQL routine
303 okl_setup_strms_trans_pvt.update_translations(p_api_version,
304 p_init_msg_list,
305 ddp_sgnv_tbl,
306 ddx_sgnv_tbl,
307 x_return_status,
308 x_msg_count,
309 x_msg_data);
310
311 -- copy data back from the local variables to OUT or IN-OUT args, if any
312
313
314
315 okl_sgt_pvt_w.rosetta_table_copy_out_p2(ddx_sgnv_tbl, p3_a0
316 , p3_a1
317 , p3_a2
318 , p3_a3
319 , p3_a4
320 , p3_a5
321 , p3_a6
322 , p3_a7
323 , p3_a8
324 , p3_a9
325 , p3_a10
326 , p3_a11
327 , p3_a12
328 , p3_a13
329 , p3_a14
330 , p3_a15
331 , p3_a16
332 , p3_a17
333 , p3_a18
334 , p3_a19
335 , p3_a20
336 , p3_a21
337 , p3_a22
338 , p3_a23
339 , p3_a24
340 , p3_a25
341 , p3_a26
342 , p3_a27
343 , p3_a28
344 , p3_a29
345 , p3_a30
346 );
347
348
349
350 end;
351
352 procedure delete_translations(p_api_version NUMBER
353 , p_init_msg_list VARCHAR2
354 , p2_a0 JTF_NUMBER_TABLE
355 , p2_a1 JTF_VARCHAR2_TABLE_100
356 , p2_a2 JTF_VARCHAR2_TABLE_100
357 , p2_a3 JTF_VARCHAR2_TABLE_400
358 , p2_a4 JTF_VARCHAR2_TABLE_100
359 , p2_a5 JTF_VARCHAR2_TABLE_400
360 , p2_a6 JTF_NUMBER_TABLE
361 , p2_a7 JTF_VARCHAR2_TABLE_400
362 , p2_a8 JTF_VARCHAR2_TABLE_100
363 , p2_a9 JTF_DATE_TABLE
364 , p2_a10 JTF_DATE_TABLE
365 , p2_a11 JTF_VARCHAR2_TABLE_300
366 , p2_a12 JTF_VARCHAR2_TABLE_300
367 , p2_a13 JTF_VARCHAR2_TABLE_300
368 , p2_a14 JTF_VARCHAR2_TABLE_300
369 , p2_a15 JTF_VARCHAR2_TABLE_300
370 , p2_a16 JTF_VARCHAR2_TABLE_300
371 , p2_a17 JTF_VARCHAR2_TABLE_300
372 , p2_a18 JTF_VARCHAR2_TABLE_300
373 , p2_a19 JTF_VARCHAR2_TABLE_300
374 , p2_a20 JTF_VARCHAR2_TABLE_300
375 , p2_a21 JTF_VARCHAR2_TABLE_300
376 , p2_a22 JTF_VARCHAR2_TABLE_300
377 , p2_a23 JTF_VARCHAR2_TABLE_300
378 , p2_a24 JTF_VARCHAR2_TABLE_300
379 , p2_a25 JTF_VARCHAR2_TABLE_300
380 , p2_a26 JTF_NUMBER_TABLE
381 , p2_a27 JTF_DATE_TABLE
382 , p2_a28 JTF_NUMBER_TABLE
383 , p2_a29 JTF_DATE_TABLE
384 , p2_a30 JTF_NUMBER_TABLE
385 , x_return_status out nocopy VARCHAR2
386 , x_msg_count out nocopy NUMBER
387 , x_msg_data out nocopy VARCHAR2
388 )
389
390 as
391 ddp_sgnv_tbl okl_setup_strms_trans_pvt.sgnv_tbl_type;
392 ddindx binary_integer; indx binary_integer;
393 begin
394
395 -- copy data to the local IN or IN-OUT args, if any
396
397
398 okl_sgt_pvt_w.rosetta_table_copy_in_p2(ddp_sgnv_tbl, p2_a0
399 , p2_a1
400 , p2_a2
401 , p2_a3
402 , p2_a4
403 , p2_a5
404 , p2_a6
405 , p2_a7
406 , p2_a8
407 , p2_a9
408 , p2_a10
409 , p2_a11
410 , p2_a12
411 , p2_a13
412 , p2_a14
413 , p2_a15
414 , p2_a16
415 , p2_a17
416 , p2_a18
417 , p2_a19
418 , p2_a20
419 , p2_a21
420 , p2_a22
421 , p2_a23
422 , p2_a24
423 , p2_a25
424 , p2_a26
425 , p2_a27
426 , p2_a28
427 , p2_a29
428 , p2_a30
429 );
430
431
432
433
434 -- here's the delegated call to the old PL/SQL routine
435 okl_setup_strms_trans_pvt.delete_translations(p_api_version,
436 p_init_msg_list,
437 ddp_sgnv_tbl,
438 x_return_status,
439 x_msg_count,
440 x_msg_data);
441
442 -- copy data back from the local variables to OUT or IN-OUT args, if any
443
444
445
446
447
448 end;
449
450 end okl_setup_strms_trans_pvt_w;