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