[Home] [Help]
PACKAGE BODY: APPS.OKL_SXP_PVT_W
Source
1 package body okl_sxp_pvt_w as
2 /* $Header: OKLISXPB.pls 120.1 2005/07/15 07:39:47 asawanka 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 rosetta_table_copy_in_p2(t out nocopy okl_sxp_pvt.sxp_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_VARCHAR2_TABLE_300
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_NUMBER_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_DATE_TABLE
34 , a12 JTF_DATE_TABLE
35 , a13 JTF_NUMBER_TABLE
36 ) as
37 ddindx binary_integer; indx binary_integer;
38 begin
39 if a0 is not null and a0.count > 0 then
40 if a0.count > 0 then
41 indx := a0.first;
42 ddindx := 1;
43 while true loop
44 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
45 t(ddindx).index_number1 := rosetta_g_miss_num_map(a1(indx));
46 t(ddindx).index_number2 := rosetta_g_miss_num_map(a2(indx));
47 t(ddindx).value := a3(indx);
48 t(ddindx).khr_id := rosetta_g_miss_num_map(a4(indx));
49 t(ddindx).kle_id := rosetta_g_miss_num_map(a5(indx));
50 t(ddindx).sif_id := rosetta_g_miss_num_map(a6(indx));
51 t(ddindx).spp_id := rosetta_g_miss_num_map(a7(indx));
52 t(ddindx).object_version_number := rosetta_g_miss_num_map(a8(indx));
53 t(ddindx).created_by := rosetta_g_miss_num_map(a9(indx));
54 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a10(indx));
55 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a11(indx));
56 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a12(indx));
57 t(ddindx).last_update_login := rosetta_g_miss_num_map(a13(indx));
58 ddindx := ddindx+1;
59 if a0.last =indx
60 then exit;
61 end if;
62 indx := a0.next(indx);
63 end loop;
64 end if;
65 end if;
66 end rosetta_table_copy_in_p2;
67 procedure rosetta_table_copy_out_p2(t okl_sxp_pvt.sxp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
68 , a1 out nocopy JTF_NUMBER_TABLE
69 , a2 out nocopy JTF_NUMBER_TABLE
70 , a3 out nocopy JTF_VARCHAR2_TABLE_300
71 , a4 out nocopy JTF_NUMBER_TABLE
72 , a5 out nocopy JTF_NUMBER_TABLE
73 , a6 out nocopy JTF_NUMBER_TABLE
74 , a7 out nocopy JTF_NUMBER_TABLE
75 , a8 out nocopy JTF_NUMBER_TABLE
76 , a9 out nocopy JTF_NUMBER_TABLE
77 , a10 out nocopy JTF_NUMBER_TABLE
78 , a11 out nocopy JTF_DATE_TABLE
79 , a12 out nocopy JTF_DATE_TABLE
80 , a13 out nocopy JTF_NUMBER_TABLE
81 ) as
82 ddindx binary_integer; indx binary_integer;
83 begin
84 if t is null or t.count = 0 then
85 a0 := JTF_NUMBER_TABLE();
86 a1 := JTF_NUMBER_TABLE();
87 a2 := JTF_NUMBER_TABLE();
88 a3 := JTF_VARCHAR2_TABLE_300();
89 a4 := JTF_NUMBER_TABLE();
90 a5 := JTF_NUMBER_TABLE();
91 a6 := JTF_NUMBER_TABLE();
92 a7 := JTF_NUMBER_TABLE();
93 a8 := JTF_NUMBER_TABLE();
94 a9 := JTF_NUMBER_TABLE();
95 a10 := JTF_NUMBER_TABLE();
96 a11 := JTF_DATE_TABLE();
97 a12 := JTF_DATE_TABLE();
98 a13 := JTF_NUMBER_TABLE();
99 else
100 a0 := JTF_NUMBER_TABLE();
101 a1 := JTF_NUMBER_TABLE();
102 a2 := JTF_NUMBER_TABLE();
103 a3 := JTF_VARCHAR2_TABLE_300();
104 a4 := JTF_NUMBER_TABLE();
105 a5 := JTF_NUMBER_TABLE();
106 a6 := JTF_NUMBER_TABLE();
107 a7 := JTF_NUMBER_TABLE();
108 a8 := JTF_NUMBER_TABLE();
109 a9 := JTF_NUMBER_TABLE();
110 a10 := JTF_NUMBER_TABLE();
111 a11 := JTF_DATE_TABLE();
112 a12 := JTF_DATE_TABLE();
113 a13 := JTF_NUMBER_TABLE();
114 if t.count > 0 then
115 a0.extend(t.count);
116 a1.extend(t.count);
117 a2.extend(t.count);
118 a3.extend(t.count);
119 a4.extend(t.count);
120 a5.extend(t.count);
121 a6.extend(t.count);
122 a7.extend(t.count);
123 a8.extend(t.count);
124 a9.extend(t.count);
125 a10.extend(t.count);
126 a11.extend(t.count);
127 a12.extend(t.count);
128 a13.extend(t.count);
129 ddindx := t.first;
130 indx := 1;
131 while true loop
132 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
133 a1(indx) := rosetta_g_miss_num_map(t(ddindx).index_number1);
134 a2(indx) := rosetta_g_miss_num_map(t(ddindx).index_number2);
135 a3(indx) := t(ddindx).value;
136 a4(indx) := rosetta_g_miss_num_map(t(ddindx).khr_id);
137 a5(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
138 a6(indx) := rosetta_g_miss_num_map(t(ddindx).sif_id);
139 a7(indx) := rosetta_g_miss_num_map(t(ddindx).spp_id);
140 a8(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
141 a9(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
142 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
143 a11(indx) := t(ddindx).creation_date;
144 a12(indx) := t(ddindx).last_update_date;
145 a13(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
146 indx := indx+1;
147 if t.last =ddindx
148 then exit;
149 end if;
150 ddindx := t.next(ddindx);
151 end loop;
152 end if;
153 end if;
154 end rosetta_table_copy_out_p2;
155
156 procedure rosetta_table_copy_in_p5(t out nocopy okl_sxp_pvt.sxpv_tbl_type, a0 JTF_NUMBER_TABLE
157 , a1 JTF_NUMBER_TABLE
158 , a2 JTF_NUMBER_TABLE
159 , a3 JTF_VARCHAR2_TABLE_300
160 , a4 JTF_NUMBER_TABLE
161 , a5 JTF_NUMBER_TABLE
162 , a6 JTF_NUMBER_TABLE
163 , a7 JTF_NUMBER_TABLE
164 , a8 JTF_NUMBER_TABLE
165 , a9 JTF_NUMBER_TABLE
166 , a10 JTF_NUMBER_TABLE
167 , a11 JTF_DATE_TABLE
168 , a12 JTF_DATE_TABLE
169 , a13 JTF_NUMBER_TABLE
170 ) as
171 ddindx binary_integer; indx binary_integer;
172 begin
173 if a0 is not null and a0.count > 0 then
174 if a0.count > 0 then
175 indx := a0.first;
176 ddindx := 1;
177 while true loop
178 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
179 t(ddindx).index_number1 := rosetta_g_miss_num_map(a1(indx));
180 t(ddindx).index_number2 := rosetta_g_miss_num_map(a2(indx));
181 t(ddindx).value := a3(indx);
182 t(ddindx).khr_id := rosetta_g_miss_num_map(a4(indx));
183 t(ddindx).kle_id := rosetta_g_miss_num_map(a5(indx));
184 t(ddindx).sif_id := rosetta_g_miss_num_map(a6(indx));
185 t(ddindx).spp_id := rosetta_g_miss_num_map(a7(indx));
186 t(ddindx).object_version_number := rosetta_g_miss_num_map(a8(indx));
187 t(ddindx).created_by := rosetta_g_miss_num_map(a9(indx));
188 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a10(indx));
189 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a11(indx));
190 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a12(indx));
191 t(ddindx).last_update_login := rosetta_g_miss_num_map(a13(indx));
192 ddindx := ddindx+1;
193 if a0.last =indx
194 then exit;
195 end if;
196 indx := a0.next(indx);
197 end loop;
198 end if;
199 end if;
200 end rosetta_table_copy_in_p5;
201 procedure rosetta_table_copy_out_p5(t okl_sxp_pvt.sxpv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
202 , a1 out nocopy JTF_NUMBER_TABLE
203 , a2 out nocopy JTF_NUMBER_TABLE
204 , a3 out nocopy JTF_VARCHAR2_TABLE_300
205 , a4 out nocopy JTF_NUMBER_TABLE
206 , a5 out nocopy JTF_NUMBER_TABLE
207 , a6 out nocopy JTF_NUMBER_TABLE
208 , a7 out nocopy JTF_NUMBER_TABLE
209 , a8 out nocopy JTF_NUMBER_TABLE
210 , a9 out nocopy JTF_NUMBER_TABLE
211 , a10 out nocopy JTF_NUMBER_TABLE
212 , a11 out nocopy JTF_DATE_TABLE
213 , a12 out nocopy JTF_DATE_TABLE
214 , a13 out nocopy JTF_NUMBER_TABLE
215 ) as
216 ddindx binary_integer; indx binary_integer;
217 begin
218 if t is null or t.count = 0 then
219 a0 := JTF_NUMBER_TABLE();
220 a1 := JTF_NUMBER_TABLE();
221 a2 := JTF_NUMBER_TABLE();
222 a3 := JTF_VARCHAR2_TABLE_300();
223 a4 := JTF_NUMBER_TABLE();
224 a5 := JTF_NUMBER_TABLE();
225 a6 := JTF_NUMBER_TABLE();
226 a7 := JTF_NUMBER_TABLE();
227 a8 := JTF_NUMBER_TABLE();
228 a9 := JTF_NUMBER_TABLE();
229 a10 := JTF_NUMBER_TABLE();
230 a11 := JTF_DATE_TABLE();
231 a12 := JTF_DATE_TABLE();
232 a13 := JTF_NUMBER_TABLE();
233 else
234 a0 := JTF_NUMBER_TABLE();
235 a1 := JTF_NUMBER_TABLE();
236 a2 := JTF_NUMBER_TABLE();
237 a3 := JTF_VARCHAR2_TABLE_300();
238 a4 := JTF_NUMBER_TABLE();
239 a5 := JTF_NUMBER_TABLE();
240 a6 := JTF_NUMBER_TABLE();
241 a7 := JTF_NUMBER_TABLE();
242 a8 := JTF_NUMBER_TABLE();
243 a9 := JTF_NUMBER_TABLE();
244 a10 := JTF_NUMBER_TABLE();
245 a11 := JTF_DATE_TABLE();
246 a12 := JTF_DATE_TABLE();
247 a13 := JTF_NUMBER_TABLE();
248 if t.count > 0 then
249 a0.extend(t.count);
250 a1.extend(t.count);
251 a2.extend(t.count);
252 a3.extend(t.count);
253 a4.extend(t.count);
254 a5.extend(t.count);
255 a6.extend(t.count);
256 a7.extend(t.count);
257 a8.extend(t.count);
258 a9.extend(t.count);
259 a10.extend(t.count);
260 a11.extend(t.count);
261 a12.extend(t.count);
262 a13.extend(t.count);
263 ddindx := t.first;
264 indx := 1;
265 while true loop
266 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
267 a1(indx) := rosetta_g_miss_num_map(t(ddindx).index_number1);
268 a2(indx) := rosetta_g_miss_num_map(t(ddindx).index_number2);
269 a3(indx) := t(ddindx).value;
270 a4(indx) := rosetta_g_miss_num_map(t(ddindx).khr_id);
271 a5(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
272 a6(indx) := rosetta_g_miss_num_map(t(ddindx).sif_id);
273 a7(indx) := rosetta_g_miss_num_map(t(ddindx).spp_id);
274 a8(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
275 a9(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
276 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
277 a11(indx) := t(ddindx).creation_date;
278 a12(indx) := t(ddindx).last_update_date;
279 a13(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
280 indx := indx+1;
281 if t.last =ddindx
282 then exit;
283 end if;
284 ddindx := t.next(ddindx);
285 end loop;
286 end if;
287 end if;
288 end rosetta_table_copy_out_p5;
289
290 procedure insert_row(p_api_version NUMBER
291 , p_init_msg_list VARCHAR2
292 , x_return_status out nocopy VARCHAR2
293 , x_msg_count out nocopy NUMBER
294 , x_msg_data out nocopy VARCHAR2
295 , p6_a0 out nocopy NUMBER
296 , p6_a1 out nocopy NUMBER
297 , p6_a2 out nocopy NUMBER
298 , p6_a3 out nocopy VARCHAR2
299 , p6_a4 out nocopy NUMBER
300 , p6_a5 out nocopy NUMBER
301 , p6_a6 out nocopy NUMBER
302 , p6_a7 out nocopy NUMBER
303 , p6_a8 out nocopy NUMBER
304 , p6_a9 out nocopy NUMBER
305 , p6_a10 out nocopy NUMBER
306 , p6_a11 out nocopy DATE
307 , p6_a12 out nocopy DATE
308 , p6_a13 out nocopy NUMBER
309 , p5_a0 NUMBER := 0-1962.0724
310 , p5_a1 NUMBER := 0-1962.0724
311 , p5_a2 NUMBER := 0-1962.0724
312 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
313 , p5_a4 NUMBER := 0-1962.0724
314 , p5_a5 NUMBER := 0-1962.0724
315 , p5_a6 NUMBER := 0-1962.0724
316 , p5_a7 NUMBER := 0-1962.0724
317 , p5_a8 NUMBER := 0-1962.0724
318 , p5_a9 NUMBER := 0-1962.0724
319 , p5_a10 NUMBER := 0-1962.0724
320 , p5_a11 DATE := fnd_api.g_miss_date
321 , p5_a12 DATE := fnd_api.g_miss_date
322 , p5_a13 NUMBER := 0-1962.0724
323 )
324
325 as
326 ddp_sxpv_rec okl_sxp_pvt.sxpv_rec_type;
327 ddx_sxpv_rec okl_sxp_pvt.sxpv_rec_type;
328 ddindx binary_integer; indx binary_integer;
329 begin
330
331 -- copy data to the local IN or IN-OUT args, if any
332
333
334
335
336
337 ddp_sxpv_rec.id := rosetta_g_miss_num_map(p5_a0);
338 ddp_sxpv_rec.index_number1 := rosetta_g_miss_num_map(p5_a1);
339 ddp_sxpv_rec.index_number2 := rosetta_g_miss_num_map(p5_a2);
340 ddp_sxpv_rec.value := p5_a3;
341 ddp_sxpv_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
342 ddp_sxpv_rec.kle_id := rosetta_g_miss_num_map(p5_a5);
343 ddp_sxpv_rec.sif_id := rosetta_g_miss_num_map(p5_a6);
344 ddp_sxpv_rec.spp_id := rosetta_g_miss_num_map(p5_a7);
345 ddp_sxpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
346 ddp_sxpv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
347 ddp_sxpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
348 ddp_sxpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
349 ddp_sxpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
350 ddp_sxpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
351
352
353 -- here's the delegated call to the old PL/SQL routine
354 okl_sxp_pvt.insert_row(p_api_version,
355 p_init_msg_list,
356 x_return_status,
357 x_msg_count,
358 x_msg_data,
359 ddp_sxpv_rec,
360 ddx_sxpv_rec);
361
362 -- copy data back from the local variables to OUT or IN-OUT args, if any
363
364
365
366
367
368
369 p6_a0 := rosetta_g_miss_num_map(ddx_sxpv_rec.id);
370 p6_a1 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number1);
371 p6_a2 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number2);
372 p6_a3 := ddx_sxpv_rec.value;
373 p6_a4 := rosetta_g_miss_num_map(ddx_sxpv_rec.khr_id);
374 p6_a5 := rosetta_g_miss_num_map(ddx_sxpv_rec.kle_id);
375 p6_a6 := rosetta_g_miss_num_map(ddx_sxpv_rec.sif_id);
376 p6_a7 := rosetta_g_miss_num_map(ddx_sxpv_rec.spp_id);
377 p6_a8 := rosetta_g_miss_num_map(ddx_sxpv_rec.object_version_number);
378 p6_a9 := rosetta_g_miss_num_map(ddx_sxpv_rec.created_by);
379 p6_a10 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_updated_by);
380 p6_a11 := ddx_sxpv_rec.creation_date;
381 p6_a12 := ddx_sxpv_rec.last_update_date;
382 p6_a13 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_update_login);
383 end;
384
385 procedure insert_row(p_api_version NUMBER
386 , p_init_msg_list VARCHAR2
387 , x_return_status out nocopy VARCHAR2
388 , x_msg_count out nocopy NUMBER
389 , x_msg_data out nocopy VARCHAR2
390 , p5_a0 JTF_NUMBER_TABLE
391 , p5_a1 JTF_NUMBER_TABLE
392 , p5_a2 JTF_NUMBER_TABLE
393 , p5_a3 JTF_VARCHAR2_TABLE_300
394 , p5_a4 JTF_NUMBER_TABLE
395 , p5_a5 JTF_NUMBER_TABLE
396 , p5_a6 JTF_NUMBER_TABLE
397 , p5_a7 JTF_NUMBER_TABLE
398 , p5_a8 JTF_NUMBER_TABLE
399 , p5_a9 JTF_NUMBER_TABLE
400 , p5_a10 JTF_NUMBER_TABLE
401 , p5_a11 JTF_DATE_TABLE
402 , p5_a12 JTF_DATE_TABLE
403 , p5_a13 JTF_NUMBER_TABLE
404 , p6_a0 out nocopy JTF_NUMBER_TABLE
405 , p6_a1 out nocopy JTF_NUMBER_TABLE
406 , p6_a2 out nocopy JTF_NUMBER_TABLE
407 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_300
408 , p6_a4 out nocopy JTF_NUMBER_TABLE
409 , p6_a5 out nocopy JTF_NUMBER_TABLE
410 , p6_a6 out nocopy JTF_NUMBER_TABLE
411 , p6_a7 out nocopy JTF_NUMBER_TABLE
412 , p6_a8 out nocopy JTF_NUMBER_TABLE
413 , p6_a9 out nocopy JTF_NUMBER_TABLE
414 , p6_a10 out nocopy JTF_NUMBER_TABLE
415 , p6_a11 out nocopy JTF_DATE_TABLE
416 , p6_a12 out nocopy JTF_DATE_TABLE
417 , p6_a13 out nocopy JTF_NUMBER_TABLE
418 )
419
420 as
421 ddp_sxpv_tbl okl_sxp_pvt.sxpv_tbl_type;
422 ddx_sxpv_tbl okl_sxp_pvt.sxpv_tbl_type;
423 ddindx binary_integer; indx binary_integer;
424 begin
425
426 -- copy data to the local IN or IN-OUT args, if any
427
428
429
430
431
432 okl_sxp_pvt_w.rosetta_table_copy_in_p5(ddp_sxpv_tbl, p5_a0
433 , p5_a1
434 , p5_a2
435 , p5_a3
436 , p5_a4
437 , p5_a5
438 , p5_a6
439 , p5_a7
440 , p5_a8
441 , p5_a9
442 , p5_a10
443 , p5_a11
444 , p5_a12
445 , p5_a13
446 );
447
448
449 -- here's the delegated call to the old PL/SQL routine
450 okl_sxp_pvt.insert_row(p_api_version,
451 p_init_msg_list,
452 x_return_status,
453 x_msg_count,
454 x_msg_data,
455 ddp_sxpv_tbl,
456 ddx_sxpv_tbl);
457
458 -- copy data back from the local variables to OUT or IN-OUT args, if any
459
460
461
462
463
464
465 okl_sxp_pvt_w.rosetta_table_copy_out_p5(ddx_sxpv_tbl, p6_a0
466 , p6_a1
467 , p6_a2
468 , p6_a3
469 , p6_a4
470 , p6_a5
471 , p6_a6
472 , p6_a7
473 , p6_a8
474 , p6_a9
475 , p6_a10
476 , p6_a11
477 , p6_a12
478 , p6_a13
479 );
480 end;
481
482 procedure lock_row(p_api_version NUMBER
483 , p_init_msg_list VARCHAR2
484 , x_return_status out nocopy VARCHAR2
485 , x_msg_count out nocopy NUMBER
486 , x_msg_data out nocopy VARCHAR2
487 , p5_a0 NUMBER := 0-1962.0724
488 , p5_a1 NUMBER := 0-1962.0724
489 , p5_a2 NUMBER := 0-1962.0724
490 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
491 , p5_a4 NUMBER := 0-1962.0724
492 , p5_a5 NUMBER := 0-1962.0724
493 , p5_a6 NUMBER := 0-1962.0724
494 , p5_a7 NUMBER := 0-1962.0724
495 , p5_a8 NUMBER := 0-1962.0724
496 , p5_a9 NUMBER := 0-1962.0724
497 , p5_a10 NUMBER := 0-1962.0724
498 , p5_a11 DATE := fnd_api.g_miss_date
499 , p5_a12 DATE := fnd_api.g_miss_date
500 , p5_a13 NUMBER := 0-1962.0724
501 )
502
503 as
504 ddp_sxpv_rec okl_sxp_pvt.sxpv_rec_type;
505 ddindx binary_integer; indx binary_integer;
506 begin
507
508 -- copy data to the local IN or IN-OUT args, if any
509
510
511
512
513
514 ddp_sxpv_rec.id := rosetta_g_miss_num_map(p5_a0);
515 ddp_sxpv_rec.index_number1 := rosetta_g_miss_num_map(p5_a1);
516 ddp_sxpv_rec.index_number2 := rosetta_g_miss_num_map(p5_a2);
517 ddp_sxpv_rec.value := p5_a3;
518 ddp_sxpv_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
519 ddp_sxpv_rec.kle_id := rosetta_g_miss_num_map(p5_a5);
520 ddp_sxpv_rec.sif_id := rosetta_g_miss_num_map(p5_a6);
521 ddp_sxpv_rec.spp_id := rosetta_g_miss_num_map(p5_a7);
522 ddp_sxpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
523 ddp_sxpv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
524 ddp_sxpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
525 ddp_sxpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
526 ddp_sxpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
527 ddp_sxpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
528
529 -- here's the delegated call to the old PL/SQL routine
530 okl_sxp_pvt.lock_row(p_api_version,
531 p_init_msg_list,
532 x_return_status,
533 x_msg_count,
534 x_msg_data,
535 ddp_sxpv_rec);
536
537 -- copy data back from the local variables to OUT or IN-OUT args, if any
538
539
540
541
542
543 end;
544
545 procedure lock_row(p_api_version NUMBER
546 , p_init_msg_list VARCHAR2
547 , x_return_status out nocopy VARCHAR2
548 , x_msg_count out nocopy NUMBER
549 , x_msg_data out nocopy VARCHAR2
550 , p5_a0 JTF_NUMBER_TABLE
551 , p5_a1 JTF_NUMBER_TABLE
552 , p5_a2 JTF_NUMBER_TABLE
553 , p5_a3 JTF_VARCHAR2_TABLE_300
554 , p5_a4 JTF_NUMBER_TABLE
555 , p5_a5 JTF_NUMBER_TABLE
556 , p5_a6 JTF_NUMBER_TABLE
557 , p5_a7 JTF_NUMBER_TABLE
558 , p5_a8 JTF_NUMBER_TABLE
559 , p5_a9 JTF_NUMBER_TABLE
560 , p5_a10 JTF_NUMBER_TABLE
561 , p5_a11 JTF_DATE_TABLE
562 , p5_a12 JTF_DATE_TABLE
563 , p5_a13 JTF_NUMBER_TABLE
564 )
565
566 as
567 ddp_sxpv_tbl okl_sxp_pvt.sxpv_tbl_type;
568 ddindx binary_integer; indx binary_integer;
569 begin
570
571 -- copy data to the local IN or IN-OUT args, if any
572
573
574
575
576
577 okl_sxp_pvt_w.rosetta_table_copy_in_p5(ddp_sxpv_tbl, p5_a0
578 , p5_a1
579 , p5_a2
580 , p5_a3
581 , p5_a4
582 , p5_a5
583 , p5_a6
584 , p5_a7
585 , p5_a8
586 , p5_a9
587 , p5_a10
588 , p5_a11
589 , p5_a12
590 , p5_a13
591 );
592
593 -- here's the delegated call to the old PL/SQL routine
594 okl_sxp_pvt.lock_row(p_api_version,
595 p_init_msg_list,
596 x_return_status,
597 x_msg_count,
598 x_msg_data,
599 ddp_sxpv_tbl);
600
601 -- copy data back from the local variables to OUT or IN-OUT args, if any
602
603
604
605
606
607 end;
608
609 procedure update_row(p_api_version NUMBER
610 , p_init_msg_list VARCHAR2
611 , x_return_status out nocopy VARCHAR2
612 , x_msg_count out nocopy NUMBER
613 , x_msg_data out nocopy VARCHAR2
614 , p6_a0 out nocopy NUMBER
615 , p6_a1 out nocopy NUMBER
616 , p6_a2 out nocopy NUMBER
617 , p6_a3 out nocopy VARCHAR2
618 , p6_a4 out nocopy NUMBER
619 , p6_a5 out nocopy NUMBER
620 , p6_a6 out nocopy NUMBER
621 , p6_a7 out nocopy NUMBER
622 , p6_a8 out nocopy NUMBER
623 , p6_a9 out nocopy NUMBER
624 , p6_a10 out nocopy NUMBER
625 , p6_a11 out nocopy DATE
626 , p6_a12 out nocopy DATE
627 , p6_a13 out nocopy NUMBER
628 , p5_a0 NUMBER := 0-1962.0724
629 , p5_a1 NUMBER := 0-1962.0724
630 , p5_a2 NUMBER := 0-1962.0724
631 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
632 , p5_a4 NUMBER := 0-1962.0724
633 , p5_a5 NUMBER := 0-1962.0724
634 , p5_a6 NUMBER := 0-1962.0724
635 , p5_a7 NUMBER := 0-1962.0724
636 , p5_a8 NUMBER := 0-1962.0724
637 , p5_a9 NUMBER := 0-1962.0724
638 , p5_a10 NUMBER := 0-1962.0724
639 , p5_a11 DATE := fnd_api.g_miss_date
640 , p5_a12 DATE := fnd_api.g_miss_date
641 , p5_a13 NUMBER := 0-1962.0724
642 )
643
644 as
645 ddp_sxpv_rec okl_sxp_pvt.sxpv_rec_type;
646 ddx_sxpv_rec okl_sxp_pvt.sxpv_rec_type;
647 ddindx binary_integer; indx binary_integer;
648 begin
649
650 -- copy data to the local IN or IN-OUT args, if any
651
652
653
654
655
656 ddp_sxpv_rec.id := rosetta_g_miss_num_map(p5_a0);
657 ddp_sxpv_rec.index_number1 := rosetta_g_miss_num_map(p5_a1);
658 ddp_sxpv_rec.index_number2 := rosetta_g_miss_num_map(p5_a2);
659 ddp_sxpv_rec.value := p5_a3;
660 ddp_sxpv_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
661 ddp_sxpv_rec.kle_id := rosetta_g_miss_num_map(p5_a5);
662 ddp_sxpv_rec.sif_id := rosetta_g_miss_num_map(p5_a6);
663 ddp_sxpv_rec.spp_id := rosetta_g_miss_num_map(p5_a7);
664 ddp_sxpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
665 ddp_sxpv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
666 ddp_sxpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
667 ddp_sxpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
668 ddp_sxpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
669 ddp_sxpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
670
671
672 -- here's the delegated call to the old PL/SQL routine
673 okl_sxp_pvt.update_row(p_api_version,
674 p_init_msg_list,
675 x_return_status,
676 x_msg_count,
677 x_msg_data,
678 ddp_sxpv_rec,
679 ddx_sxpv_rec);
680
681 -- copy data back from the local variables to OUT or IN-OUT args, if any
682
683
684
685
686
687
688 p6_a0 := rosetta_g_miss_num_map(ddx_sxpv_rec.id);
689 p6_a1 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number1);
690 p6_a2 := rosetta_g_miss_num_map(ddx_sxpv_rec.index_number2);
691 p6_a3 := ddx_sxpv_rec.value;
692 p6_a4 := rosetta_g_miss_num_map(ddx_sxpv_rec.khr_id);
693 p6_a5 := rosetta_g_miss_num_map(ddx_sxpv_rec.kle_id);
694 p6_a6 := rosetta_g_miss_num_map(ddx_sxpv_rec.sif_id);
695 p6_a7 := rosetta_g_miss_num_map(ddx_sxpv_rec.spp_id);
696 p6_a8 := rosetta_g_miss_num_map(ddx_sxpv_rec.object_version_number);
697 p6_a9 := rosetta_g_miss_num_map(ddx_sxpv_rec.created_by);
698 p6_a10 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_updated_by);
699 p6_a11 := ddx_sxpv_rec.creation_date;
700 p6_a12 := ddx_sxpv_rec.last_update_date;
701 p6_a13 := rosetta_g_miss_num_map(ddx_sxpv_rec.last_update_login);
702 end;
703
704 procedure update_row(p_api_version NUMBER
705 , p_init_msg_list VARCHAR2
706 , x_return_status out nocopy VARCHAR2
707 , x_msg_count out nocopy NUMBER
708 , x_msg_data out nocopy VARCHAR2
709 , p5_a0 JTF_NUMBER_TABLE
710 , p5_a1 JTF_NUMBER_TABLE
711 , p5_a2 JTF_NUMBER_TABLE
712 , p5_a3 JTF_VARCHAR2_TABLE_300
713 , p5_a4 JTF_NUMBER_TABLE
714 , p5_a5 JTF_NUMBER_TABLE
715 , p5_a6 JTF_NUMBER_TABLE
716 , p5_a7 JTF_NUMBER_TABLE
717 , p5_a8 JTF_NUMBER_TABLE
718 , p5_a9 JTF_NUMBER_TABLE
719 , p5_a10 JTF_NUMBER_TABLE
720 , p5_a11 JTF_DATE_TABLE
721 , p5_a12 JTF_DATE_TABLE
722 , p5_a13 JTF_NUMBER_TABLE
723 , p6_a0 out nocopy JTF_NUMBER_TABLE
724 , p6_a1 out nocopy JTF_NUMBER_TABLE
725 , p6_a2 out nocopy JTF_NUMBER_TABLE
726 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_300
727 , p6_a4 out nocopy JTF_NUMBER_TABLE
728 , p6_a5 out nocopy JTF_NUMBER_TABLE
729 , p6_a6 out nocopy JTF_NUMBER_TABLE
730 , p6_a7 out nocopy JTF_NUMBER_TABLE
731 , p6_a8 out nocopy JTF_NUMBER_TABLE
732 , p6_a9 out nocopy JTF_NUMBER_TABLE
733 , p6_a10 out nocopy JTF_NUMBER_TABLE
734 , p6_a11 out nocopy JTF_DATE_TABLE
735 , p6_a12 out nocopy JTF_DATE_TABLE
736 , p6_a13 out nocopy JTF_NUMBER_TABLE
737 )
738
739 as
740 ddp_sxpv_tbl okl_sxp_pvt.sxpv_tbl_type;
741 ddx_sxpv_tbl okl_sxp_pvt.sxpv_tbl_type;
742 ddindx binary_integer; indx binary_integer;
743 begin
744
745 -- copy data to the local IN or IN-OUT args, if any
746
747
748
749
750
751 okl_sxp_pvt_w.rosetta_table_copy_in_p5(ddp_sxpv_tbl, p5_a0
752 , p5_a1
753 , p5_a2
754 , p5_a3
755 , p5_a4
756 , p5_a5
757 , p5_a6
758 , p5_a7
759 , p5_a8
760 , p5_a9
761 , p5_a10
762 , p5_a11
763 , p5_a12
764 , p5_a13
765 );
766
767
768 -- here's the delegated call to the old PL/SQL routine
769 okl_sxp_pvt.update_row(p_api_version,
770 p_init_msg_list,
771 x_return_status,
772 x_msg_count,
773 x_msg_data,
774 ddp_sxpv_tbl,
775 ddx_sxpv_tbl);
776
777 -- copy data back from the local variables to OUT or IN-OUT args, if any
778
779
780
781
782
783
784 okl_sxp_pvt_w.rosetta_table_copy_out_p5(ddx_sxpv_tbl, p6_a0
785 , p6_a1
786 , p6_a2
787 , p6_a3
788 , p6_a4
789 , p6_a5
790 , p6_a6
791 , p6_a7
792 , p6_a8
793 , p6_a9
794 , p6_a10
795 , p6_a11
796 , p6_a12
797 , p6_a13
798 );
799 end;
800
801 procedure delete_row(p_api_version NUMBER
802 , p_init_msg_list VARCHAR2
803 , x_return_status out nocopy VARCHAR2
804 , x_msg_count out nocopy NUMBER
805 , x_msg_data out nocopy VARCHAR2
806 , p5_a0 NUMBER := 0-1962.0724
807 , p5_a1 NUMBER := 0-1962.0724
808 , p5_a2 NUMBER := 0-1962.0724
809 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
810 , p5_a4 NUMBER := 0-1962.0724
811 , p5_a5 NUMBER := 0-1962.0724
812 , p5_a6 NUMBER := 0-1962.0724
813 , p5_a7 NUMBER := 0-1962.0724
814 , p5_a8 NUMBER := 0-1962.0724
815 , p5_a9 NUMBER := 0-1962.0724
816 , p5_a10 NUMBER := 0-1962.0724
817 , p5_a11 DATE := fnd_api.g_miss_date
818 , p5_a12 DATE := fnd_api.g_miss_date
819 , p5_a13 NUMBER := 0-1962.0724
820 )
821
822 as
823 ddp_sxpv_rec okl_sxp_pvt.sxpv_rec_type;
824 ddindx binary_integer; indx binary_integer;
825 begin
826
827 -- copy data to the local IN or IN-OUT args, if any
828
829
830
831
832
833 ddp_sxpv_rec.id := rosetta_g_miss_num_map(p5_a0);
834 ddp_sxpv_rec.index_number1 := rosetta_g_miss_num_map(p5_a1);
835 ddp_sxpv_rec.index_number2 := rosetta_g_miss_num_map(p5_a2);
836 ddp_sxpv_rec.value := p5_a3;
837 ddp_sxpv_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
838 ddp_sxpv_rec.kle_id := rosetta_g_miss_num_map(p5_a5);
839 ddp_sxpv_rec.sif_id := rosetta_g_miss_num_map(p5_a6);
840 ddp_sxpv_rec.spp_id := rosetta_g_miss_num_map(p5_a7);
841 ddp_sxpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
842 ddp_sxpv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
843 ddp_sxpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
844 ddp_sxpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
845 ddp_sxpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
846 ddp_sxpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
847
848 -- here's the delegated call to the old PL/SQL routine
849 okl_sxp_pvt.delete_row(p_api_version,
850 p_init_msg_list,
851 x_return_status,
852 x_msg_count,
853 x_msg_data,
854 ddp_sxpv_rec);
855
856 -- copy data back from the local variables to OUT or IN-OUT args, if any
857
858
859
860
861
862 end;
863
864 procedure delete_row(p_api_version NUMBER
865 , p_init_msg_list VARCHAR2
866 , x_return_status out nocopy VARCHAR2
867 , x_msg_count out nocopy NUMBER
868 , x_msg_data out nocopy VARCHAR2
869 , p5_a0 JTF_NUMBER_TABLE
870 , p5_a1 JTF_NUMBER_TABLE
871 , p5_a2 JTF_NUMBER_TABLE
872 , p5_a3 JTF_VARCHAR2_TABLE_300
873 , p5_a4 JTF_NUMBER_TABLE
874 , p5_a5 JTF_NUMBER_TABLE
875 , p5_a6 JTF_NUMBER_TABLE
876 , p5_a7 JTF_NUMBER_TABLE
877 , p5_a8 JTF_NUMBER_TABLE
878 , p5_a9 JTF_NUMBER_TABLE
879 , p5_a10 JTF_NUMBER_TABLE
880 , p5_a11 JTF_DATE_TABLE
881 , p5_a12 JTF_DATE_TABLE
882 , p5_a13 JTF_NUMBER_TABLE
883 )
884
885 as
886 ddp_sxpv_tbl okl_sxp_pvt.sxpv_tbl_type;
887 ddindx binary_integer; indx binary_integer;
888 begin
889
890 -- copy data to the local IN or IN-OUT args, if any
891
892
893
894
895
896 okl_sxp_pvt_w.rosetta_table_copy_in_p5(ddp_sxpv_tbl, p5_a0
897 , p5_a1
898 , p5_a2
899 , p5_a3
900 , p5_a4
901 , p5_a5
902 , p5_a6
903 , p5_a7
904 , p5_a8
905 , p5_a9
906 , p5_a10
907 , p5_a11
908 , p5_a12
909 , p5_a13
910 );
911
912 -- here's the delegated call to the old PL/SQL routine
913 okl_sxp_pvt.delete_row(p_api_version,
914 p_init_msg_list,
915 x_return_status,
916 x_msg_count,
917 x_msg_data,
918 ddp_sxpv_tbl);
919
920 -- copy data back from the local variables to OUT or IN-OUT args, if any
921
922
923
924
925
926 end;
927
928 procedure validate_row(p_api_version NUMBER
929 , p_init_msg_list VARCHAR2
930 , x_return_status out nocopy VARCHAR2
931 , x_msg_count out nocopy NUMBER
932 , x_msg_data out nocopy VARCHAR2
933 , p5_a0 NUMBER := 0-1962.0724
934 , p5_a1 NUMBER := 0-1962.0724
935 , p5_a2 NUMBER := 0-1962.0724
936 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
937 , p5_a4 NUMBER := 0-1962.0724
938 , p5_a5 NUMBER := 0-1962.0724
939 , p5_a6 NUMBER := 0-1962.0724
940 , p5_a7 NUMBER := 0-1962.0724
941 , p5_a8 NUMBER := 0-1962.0724
942 , p5_a9 NUMBER := 0-1962.0724
943 , p5_a10 NUMBER := 0-1962.0724
944 , p5_a11 DATE := fnd_api.g_miss_date
945 , p5_a12 DATE := fnd_api.g_miss_date
946 , p5_a13 NUMBER := 0-1962.0724
947 )
948
949 as
950 ddp_sxpv_rec okl_sxp_pvt.sxpv_rec_type;
951 ddindx binary_integer; indx binary_integer;
952 begin
953
954 -- copy data to the local IN or IN-OUT args, if any
955
956
957
958
959
960 ddp_sxpv_rec.id := rosetta_g_miss_num_map(p5_a0);
961 ddp_sxpv_rec.index_number1 := rosetta_g_miss_num_map(p5_a1);
962 ddp_sxpv_rec.index_number2 := rosetta_g_miss_num_map(p5_a2);
963 ddp_sxpv_rec.value := p5_a3;
964 ddp_sxpv_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
965 ddp_sxpv_rec.kle_id := rosetta_g_miss_num_map(p5_a5);
966 ddp_sxpv_rec.sif_id := rosetta_g_miss_num_map(p5_a6);
967 ddp_sxpv_rec.spp_id := rosetta_g_miss_num_map(p5_a7);
968 ddp_sxpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a8);
969 ddp_sxpv_rec.created_by := rosetta_g_miss_num_map(p5_a9);
970 ddp_sxpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a10);
971 ddp_sxpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a11);
972 ddp_sxpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
973 ddp_sxpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
974
975 -- here's the delegated call to the old PL/SQL routine
976 okl_sxp_pvt.validate_row(p_api_version,
977 p_init_msg_list,
978 x_return_status,
979 x_msg_count,
980 x_msg_data,
981 ddp_sxpv_rec);
982
983 -- copy data back from the local variables to OUT or IN-OUT args, if any
984
985
986
987
988
989 end;
990
991 procedure validate_row(p_api_version NUMBER
992 , p_init_msg_list VARCHAR2
993 , x_return_status out nocopy VARCHAR2
994 , x_msg_count out nocopy NUMBER
995 , x_msg_data out nocopy VARCHAR2
996 , p5_a0 JTF_NUMBER_TABLE
997 , p5_a1 JTF_NUMBER_TABLE
998 , p5_a2 JTF_NUMBER_TABLE
999 , p5_a3 JTF_VARCHAR2_TABLE_300
1000 , p5_a4 JTF_NUMBER_TABLE
1001 , p5_a5 JTF_NUMBER_TABLE
1002 , p5_a6 JTF_NUMBER_TABLE
1003 , p5_a7 JTF_NUMBER_TABLE
1004 , p5_a8 JTF_NUMBER_TABLE
1005 , p5_a9 JTF_NUMBER_TABLE
1006 , p5_a10 JTF_NUMBER_TABLE
1007 , p5_a11 JTF_DATE_TABLE
1008 , p5_a12 JTF_DATE_TABLE
1009 , p5_a13 JTF_NUMBER_TABLE
1010 )
1011
1012 as
1013 ddp_sxpv_tbl okl_sxp_pvt.sxpv_tbl_type;
1014 ddindx binary_integer; indx binary_integer;
1015 begin
1016
1017 -- copy data to the local IN or IN-OUT args, if any
1018
1019
1020
1021
1022
1023 okl_sxp_pvt_w.rosetta_table_copy_in_p5(ddp_sxpv_tbl, p5_a0
1024 , p5_a1
1025 , p5_a2
1026 , p5_a3
1027 , p5_a4
1028 , p5_a5
1029 , p5_a6
1030 , p5_a7
1031 , p5_a8
1032 , p5_a9
1033 , p5_a10
1034 , p5_a11
1035 , p5_a12
1036 , p5_a13
1037 );
1038
1039 -- here's the delegated call to the old PL/SQL routine
1040 okl_sxp_pvt.validate_row(p_api_version,
1041 p_init_msg_list,
1042 x_return_status,
1043 x_msg_count,
1044 x_msg_data,
1045 ddp_sxpv_tbl);
1046
1047 -- copy data back from the local variables to OUT or IN-OUT args, if any
1048
1049
1050
1051
1052
1053 end;
1054
1055 end okl_sxp_pvt_w;