[Home] [Help]
PACKAGE BODY: APPS.OKL_SIF_RET_STRMS_PUB_W
Source
1 package body okl_sif_ret_strms_pub_w as
2 /* $Header: OKLUSRSB.pls 120.1 2005/07/19 09:45:05 viselvar 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_sif_ret_strms(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 , p6_a0 out nocopy NUMBER
28 , p6_a1 out nocopy VARCHAR2
29 , p6_a2 out nocopy NUMBER
30 , p6_a3 out nocopy VARCHAR2
31 , p6_a4 out nocopy NUMBER
32 , p6_a5 out nocopy DATE
33 , p6_a6 out nocopy NUMBER
34 , p6_a7 out nocopy NUMBER
35 , p6_a8 out nocopy VARCHAR2
36 , p6_a9 out nocopy VARCHAR2
37 , p6_a10 out nocopy VARCHAR2
38 , p6_a11 out nocopy VARCHAR2
39 , p6_a12 out nocopy VARCHAR2
40 , p6_a13 out nocopy VARCHAR2
41 , p6_a14 out nocopy VARCHAR2
42 , p6_a15 out nocopy VARCHAR2
43 , p6_a16 out nocopy VARCHAR2
44 , p6_a17 out nocopy VARCHAR2
45 , p6_a18 out nocopy VARCHAR2
46 , p6_a19 out nocopy VARCHAR2
47 , p6_a20 out nocopy VARCHAR2
48 , p6_a21 out nocopy VARCHAR2
49 , p6_a22 out nocopy VARCHAR2
50 , p6_a23 out nocopy NUMBER
51 , p6_a24 out nocopy NUMBER
52 , p6_a25 out nocopy NUMBER
53 , p6_a26 out nocopy DATE
54 , p6_a27 out nocopy DATE
55 , p6_a28 out nocopy NUMBER
56 , p5_a0 NUMBER := 0-1962.0724
57 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
58 , p5_a2 NUMBER := 0-1962.0724
59 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
60 , p5_a4 NUMBER := 0-1962.0724
61 , p5_a5 DATE := fnd_api.g_miss_date
62 , p5_a6 NUMBER := 0-1962.0724
63 , p5_a7 NUMBER := 0-1962.0724
64 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
65 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
66 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
67 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
68 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
69 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
70 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
71 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
72 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
73 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
74 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
75 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
76 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
77 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
78 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
79 , p5_a23 NUMBER := 0-1962.0724
80 , p5_a24 NUMBER := 0-1962.0724
81 , p5_a25 NUMBER := 0-1962.0724
82 , p5_a26 DATE := fnd_api.g_miss_date
83 , p5_a27 DATE := fnd_api.g_miss_date
84 , p5_a28 NUMBER := 0-1962.0724
85 )
86
87 as
88 ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
89 ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
90 ddindx binary_integer; indx binary_integer;
91 begin
92
93 -- copy data to the local IN or IN-OUT args, if any
94
95
96
97
98
99 ddp_srsv_rec.id := rosetta_g_miss_num_map(p5_a0);
100 ddp_srsv_rec.stream_type_name := p5_a1;
101 ddp_srsv_rec.index_number := rosetta_g_miss_num_map(p5_a2);
102 ddp_srsv_rec.activity_type := p5_a3;
103 ddp_srsv_rec.sequence_number := rosetta_g_miss_num_map(p5_a4);
104 ddp_srsv_rec.sre_date := rosetta_g_miss_date_in_map(p5_a5);
105 ddp_srsv_rec.amount := rosetta_g_miss_num_map(p5_a6);
106 ddp_srsv_rec.sir_id := rosetta_g_miss_num_map(p5_a7);
107 ddp_srsv_rec.stream_interface_attribute01 := p5_a8;
108 ddp_srsv_rec.stream_interface_attribute02 := p5_a9;
109 ddp_srsv_rec.stream_interface_attribute03 := p5_a10;
110 ddp_srsv_rec.stream_interface_attribute04 := p5_a11;
111 ddp_srsv_rec.stream_interface_attribute05 := p5_a12;
112 ddp_srsv_rec.stream_interface_attribute06 := p5_a13;
113 ddp_srsv_rec.stream_interface_attribute07 := p5_a14;
114 ddp_srsv_rec.stream_interface_attribute08 := p5_a15;
115 ddp_srsv_rec.stream_interface_attribute09 := p5_a16;
116 ddp_srsv_rec.stream_interface_attribute10 := p5_a17;
117 ddp_srsv_rec.stream_interface_attribute11 := p5_a18;
118 ddp_srsv_rec.stream_interface_attribute12 := p5_a19;
119 ddp_srsv_rec.stream_interface_attribute13 := p5_a20;
120 ddp_srsv_rec.stream_interface_attribute14 := p5_a21;
121 ddp_srsv_rec.stream_interface_attribute15 := p5_a22;
122 ddp_srsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
123 ddp_srsv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
124 ddp_srsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
125 ddp_srsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
126 ddp_srsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
127 ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
128
129
130 -- here's the delegated call to the old PL/SQL routine
131 okl_sif_ret_strms_pub.insert_sif_ret_strms(p_api_version,
132 p_init_msg_list,
133 x_return_status,
134 x_msg_count,
135 x_msg_data,
136 ddp_srsv_rec,
137 ddx_srsv_rec);
138
139 -- copy data back from the local variables to OUT or IN-OUT args, if any
140
141
142
143
144
145
146 p6_a0 := rosetta_g_miss_num_map(ddx_srsv_rec.id);
147 p6_a1 := ddx_srsv_rec.stream_type_name;
148 p6_a2 := rosetta_g_miss_num_map(ddx_srsv_rec.index_number);
149 p6_a3 := ddx_srsv_rec.activity_type;
150 p6_a4 := rosetta_g_miss_num_map(ddx_srsv_rec.sequence_number);
151 p6_a5 := ddx_srsv_rec.sre_date;
152 p6_a6 := rosetta_g_miss_num_map(ddx_srsv_rec.amount);
153 p6_a7 := rosetta_g_miss_num_map(ddx_srsv_rec.sir_id);
154 p6_a8 := ddx_srsv_rec.stream_interface_attribute01;
155 p6_a9 := ddx_srsv_rec.stream_interface_attribute02;
156 p6_a10 := ddx_srsv_rec.stream_interface_attribute03;
157 p6_a11 := ddx_srsv_rec.stream_interface_attribute04;
158 p6_a12 := ddx_srsv_rec.stream_interface_attribute05;
159 p6_a13 := ddx_srsv_rec.stream_interface_attribute06;
160 p6_a14 := ddx_srsv_rec.stream_interface_attribute07;
161 p6_a15 := ddx_srsv_rec.stream_interface_attribute08;
162 p6_a16 := ddx_srsv_rec.stream_interface_attribute09;
163 p6_a17 := ddx_srsv_rec.stream_interface_attribute10;
164 p6_a18 := ddx_srsv_rec.stream_interface_attribute11;
165 p6_a19 := ddx_srsv_rec.stream_interface_attribute12;
166 p6_a20 := ddx_srsv_rec.stream_interface_attribute13;
167 p6_a21 := ddx_srsv_rec.stream_interface_attribute14;
168 p6_a22 := ddx_srsv_rec.stream_interface_attribute15;
169 p6_a23 := rosetta_g_miss_num_map(ddx_srsv_rec.object_version_number);
170 p6_a24 := rosetta_g_miss_num_map(ddx_srsv_rec.created_by);
171 p6_a25 := rosetta_g_miss_num_map(ddx_srsv_rec.last_updated_by);
172 p6_a26 := ddx_srsv_rec.creation_date;
173 p6_a27 := ddx_srsv_rec.last_update_date;
174 p6_a28 := rosetta_g_miss_num_map(ddx_srsv_rec.last_update_login);
175 end;
176
177 procedure insert_sif_ret_strms_per(p_api_version NUMBER
178 , p_init_msg_list VARCHAR2
179 , x_return_status out nocopy VARCHAR2
180 , x_msg_count out nocopy NUMBER
181 , x_msg_data out nocopy VARCHAR2
182 , p6_a0 out nocopy NUMBER
183 , p6_a1 out nocopy VARCHAR2
184 , p6_a2 out nocopy NUMBER
185 , p6_a3 out nocopy VARCHAR2
186 , p6_a4 out nocopy NUMBER
187 , p6_a5 out nocopy DATE
188 , p6_a6 out nocopy NUMBER
189 , p6_a7 out nocopy NUMBER
190 , p6_a8 out nocopy VARCHAR2
191 , p6_a9 out nocopy VARCHAR2
192 , p6_a10 out nocopy VARCHAR2
193 , p6_a11 out nocopy VARCHAR2
194 , p6_a12 out nocopy VARCHAR2
195 , p6_a13 out nocopy VARCHAR2
196 , p6_a14 out nocopy VARCHAR2
197 , p6_a15 out nocopy VARCHAR2
198 , p6_a16 out nocopy VARCHAR2
199 , p6_a17 out nocopy VARCHAR2
200 , p6_a18 out nocopy VARCHAR2
201 , p6_a19 out nocopy VARCHAR2
202 , p6_a20 out nocopy VARCHAR2
203 , p6_a21 out nocopy VARCHAR2
204 , p6_a22 out nocopy VARCHAR2
205 , p6_a23 out nocopy NUMBER
206 , p6_a24 out nocopy NUMBER
207 , p6_a25 out nocopy NUMBER
208 , p6_a26 out nocopy DATE
209 , p6_a27 out nocopy DATE
210 , p6_a28 out nocopy NUMBER
211 , p5_a0 NUMBER := 0-1962.0724
212 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
213 , p5_a2 NUMBER := 0-1962.0724
214 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
215 , p5_a4 NUMBER := 0-1962.0724
216 , p5_a5 DATE := fnd_api.g_miss_date
217 , p5_a6 NUMBER := 0-1962.0724
218 , p5_a7 NUMBER := 0-1962.0724
219 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
220 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
221 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
222 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
223 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
224 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
225 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
226 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
227 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
228 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
229 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
230 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
231 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
232 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
233 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
234 , p5_a23 NUMBER := 0-1962.0724
235 , p5_a24 NUMBER := 0-1962.0724
236 , p5_a25 NUMBER := 0-1962.0724
237 , p5_a26 DATE := fnd_api.g_miss_date
238 , p5_a27 DATE := fnd_api.g_miss_date
239 , p5_a28 NUMBER := 0-1962.0724
240 )
241
242 as
243 ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
244 ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
245 ddindx binary_integer; indx binary_integer;
246 begin
247
248 -- copy data to the local IN or IN-OUT args, if any
249
250
251
252
253
254 ddp_srsv_rec.id := rosetta_g_miss_num_map(p5_a0);
255 ddp_srsv_rec.stream_type_name := p5_a1;
256 ddp_srsv_rec.index_number := rosetta_g_miss_num_map(p5_a2);
257 ddp_srsv_rec.activity_type := p5_a3;
258 ddp_srsv_rec.sequence_number := rosetta_g_miss_num_map(p5_a4);
259 ddp_srsv_rec.sre_date := rosetta_g_miss_date_in_map(p5_a5);
260 ddp_srsv_rec.amount := rosetta_g_miss_num_map(p5_a6);
261 ddp_srsv_rec.sir_id := rosetta_g_miss_num_map(p5_a7);
262 ddp_srsv_rec.stream_interface_attribute01 := p5_a8;
263 ddp_srsv_rec.stream_interface_attribute02 := p5_a9;
264 ddp_srsv_rec.stream_interface_attribute03 := p5_a10;
265 ddp_srsv_rec.stream_interface_attribute04 := p5_a11;
266 ddp_srsv_rec.stream_interface_attribute05 := p5_a12;
267 ddp_srsv_rec.stream_interface_attribute06 := p5_a13;
268 ddp_srsv_rec.stream_interface_attribute07 := p5_a14;
269 ddp_srsv_rec.stream_interface_attribute08 := p5_a15;
270 ddp_srsv_rec.stream_interface_attribute09 := p5_a16;
271 ddp_srsv_rec.stream_interface_attribute10 := p5_a17;
272 ddp_srsv_rec.stream_interface_attribute11 := p5_a18;
273 ddp_srsv_rec.stream_interface_attribute12 := p5_a19;
274 ddp_srsv_rec.stream_interface_attribute13 := p5_a20;
275 ddp_srsv_rec.stream_interface_attribute14 := p5_a21;
276 ddp_srsv_rec.stream_interface_attribute15 := p5_a22;
277 ddp_srsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
278 ddp_srsv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
279 ddp_srsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
280 ddp_srsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
281 ddp_srsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
282 ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
283
284
285 -- here's the delegated call to the old PL/SQL routine
286 okl_sif_ret_strms_pub.insert_sif_ret_strms_per(p_api_version,
287 p_init_msg_list,
288 x_return_status,
289 x_msg_count,
290 x_msg_data,
291 ddp_srsv_rec,
292 ddx_srsv_rec);
293
294 -- copy data back from the local variables to OUT or IN-OUT args, if any
295
296
297
298
299
300
301 p6_a0 := rosetta_g_miss_num_map(ddx_srsv_rec.id);
302 p6_a1 := ddx_srsv_rec.stream_type_name;
303 p6_a2 := rosetta_g_miss_num_map(ddx_srsv_rec.index_number);
304 p6_a3 := ddx_srsv_rec.activity_type;
305 p6_a4 := rosetta_g_miss_num_map(ddx_srsv_rec.sequence_number);
306 p6_a5 := ddx_srsv_rec.sre_date;
307 p6_a6 := rosetta_g_miss_num_map(ddx_srsv_rec.amount);
308 p6_a7 := rosetta_g_miss_num_map(ddx_srsv_rec.sir_id);
309 p6_a8 := ddx_srsv_rec.stream_interface_attribute01;
310 p6_a9 := ddx_srsv_rec.stream_interface_attribute02;
311 p6_a10 := ddx_srsv_rec.stream_interface_attribute03;
312 p6_a11 := ddx_srsv_rec.stream_interface_attribute04;
313 p6_a12 := ddx_srsv_rec.stream_interface_attribute05;
314 p6_a13 := ddx_srsv_rec.stream_interface_attribute06;
315 p6_a14 := ddx_srsv_rec.stream_interface_attribute07;
316 p6_a15 := ddx_srsv_rec.stream_interface_attribute08;
317 p6_a16 := ddx_srsv_rec.stream_interface_attribute09;
318 p6_a17 := ddx_srsv_rec.stream_interface_attribute10;
319 p6_a18 := ddx_srsv_rec.stream_interface_attribute11;
320 p6_a19 := ddx_srsv_rec.stream_interface_attribute12;
321 p6_a20 := ddx_srsv_rec.stream_interface_attribute13;
322 p6_a21 := ddx_srsv_rec.stream_interface_attribute14;
323 p6_a22 := ddx_srsv_rec.stream_interface_attribute15;
324 p6_a23 := rosetta_g_miss_num_map(ddx_srsv_rec.object_version_number);
325 p6_a24 := rosetta_g_miss_num_map(ddx_srsv_rec.created_by);
326 p6_a25 := rosetta_g_miss_num_map(ddx_srsv_rec.last_updated_by);
327 p6_a26 := ddx_srsv_rec.creation_date;
328 p6_a27 := ddx_srsv_rec.last_update_date;
329 p6_a28 := rosetta_g_miss_num_map(ddx_srsv_rec.last_update_login);
330 end;
331
332 procedure mass_insert_sif_ret(p0_a0 JTF_NUMBER_TABLE
333 , p0_a1 JTF_VARCHAR2_TABLE_200
334 , p0_a2 JTF_NUMBER_TABLE
335 , p0_a3 JTF_VARCHAR2_TABLE_100
336 , p0_a4 JTF_NUMBER_TABLE
337 , p0_a5 JTF_DATE_TABLE
338 , p0_a6 JTF_NUMBER_TABLE
339 , p0_a7 JTF_NUMBER_TABLE
340 , p0_a8 JTF_VARCHAR2_TABLE_500
341 , p0_a9 JTF_VARCHAR2_TABLE_500
342 , p0_a10 JTF_VARCHAR2_TABLE_500
343 , p0_a11 JTF_VARCHAR2_TABLE_500
344 , p0_a12 JTF_VARCHAR2_TABLE_500
345 , p0_a13 JTF_VARCHAR2_TABLE_500
346 , p0_a14 JTF_VARCHAR2_TABLE_500
347 , p0_a15 JTF_VARCHAR2_TABLE_500
348 , p0_a16 JTF_VARCHAR2_TABLE_500
349 , p0_a17 JTF_VARCHAR2_TABLE_500
350 , p0_a18 JTF_VARCHAR2_TABLE_500
351 , p0_a19 JTF_VARCHAR2_TABLE_500
352 , p0_a20 JTF_VARCHAR2_TABLE_500
353 , p0_a21 JTF_VARCHAR2_TABLE_500
354 , p0_a22 JTF_VARCHAR2_TABLE_500
355 , p0_a23 JTF_NUMBER_TABLE
356 , p0_a24 JTF_NUMBER_TABLE
357 , p0_a25 JTF_NUMBER_TABLE
358 , p0_a26 JTF_DATE_TABLE
359 , p0_a27 JTF_DATE_TABLE
360 , p0_a28 JTF_NUMBER_TABLE
361 )
362
363 as
364 ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
365 ddindx binary_integer; indx binary_integer;
366 begin
367
368 -- copy data to the local IN or IN-OUT args, if any
369 okl_srs_pvt_w.rosetta_table_copy_in_p5(ddp_srsv_tbl, p0_a0
370 , p0_a1
371 , p0_a2
372 , p0_a3
373 , p0_a4
374 , p0_a5
375 , p0_a6
376 , p0_a7
377 , p0_a8
378 , p0_a9
379 , p0_a10
380 , p0_a11
381 , p0_a12
382 , p0_a13
383 , p0_a14
384 , p0_a15
385 , p0_a16
386 , p0_a17
387 , p0_a18
388 , p0_a19
389 , p0_a20
390 , p0_a21
391 , p0_a22
392 , p0_a23
393 , p0_a24
394 , p0_a25
395 , p0_a26
396 , p0_a27
397 , p0_a28
398 );
399
400 -- here's the delegated call to the old PL/SQL routine
401 okl_sif_ret_strms_pub.mass_insert_sif_ret(ddp_srsv_tbl);
402
403 -- copy data back from the local variables to OUT or IN-OUT args, if any
404 end;
405
406 procedure insert_sif_ret_strms(p_api_version NUMBER
407 , p_init_msg_list VARCHAR2
408 , x_return_status out nocopy VARCHAR2
409 , x_msg_count out nocopy NUMBER
410 , x_msg_data out nocopy VARCHAR2
411 , p5_a0 JTF_NUMBER_TABLE
412 , p5_a1 JTF_VARCHAR2_TABLE_200
413 , p5_a2 JTF_NUMBER_TABLE
414 , p5_a3 JTF_VARCHAR2_TABLE_100
415 , p5_a4 JTF_NUMBER_TABLE
416 , p5_a5 JTF_DATE_TABLE
417 , p5_a6 JTF_NUMBER_TABLE
418 , p5_a7 JTF_NUMBER_TABLE
419 , p5_a8 JTF_VARCHAR2_TABLE_500
420 , p5_a9 JTF_VARCHAR2_TABLE_500
421 , p5_a10 JTF_VARCHAR2_TABLE_500
422 , p5_a11 JTF_VARCHAR2_TABLE_500
423 , p5_a12 JTF_VARCHAR2_TABLE_500
424 , p5_a13 JTF_VARCHAR2_TABLE_500
425 , p5_a14 JTF_VARCHAR2_TABLE_500
426 , p5_a15 JTF_VARCHAR2_TABLE_500
427 , p5_a16 JTF_VARCHAR2_TABLE_500
428 , p5_a17 JTF_VARCHAR2_TABLE_500
429 , p5_a18 JTF_VARCHAR2_TABLE_500
430 , p5_a19 JTF_VARCHAR2_TABLE_500
431 , p5_a20 JTF_VARCHAR2_TABLE_500
432 , p5_a21 JTF_VARCHAR2_TABLE_500
433 , p5_a22 JTF_VARCHAR2_TABLE_500
434 , p5_a23 JTF_NUMBER_TABLE
435 , p5_a24 JTF_NUMBER_TABLE
436 , p5_a25 JTF_NUMBER_TABLE
437 , p5_a26 JTF_DATE_TABLE
438 , p5_a27 JTF_DATE_TABLE
439 , p5_a28 JTF_NUMBER_TABLE
440 , p6_a0 out nocopy JTF_NUMBER_TABLE
441 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
442 , p6_a2 out nocopy JTF_NUMBER_TABLE
443 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
444 , p6_a4 out nocopy JTF_NUMBER_TABLE
445 , p6_a5 out nocopy JTF_DATE_TABLE
446 , p6_a6 out nocopy JTF_NUMBER_TABLE
447 , p6_a7 out nocopy JTF_NUMBER_TABLE
448 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
449 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
450 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
451 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
452 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
453 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
454 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
455 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
456 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
457 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
458 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
459 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
460 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
461 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
462 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
463 , p6_a23 out nocopy JTF_NUMBER_TABLE
464 , p6_a24 out nocopy JTF_NUMBER_TABLE
465 , p6_a25 out nocopy JTF_NUMBER_TABLE
466 , p6_a26 out nocopy JTF_DATE_TABLE
467 , p6_a27 out nocopy JTF_DATE_TABLE
468 , p6_a28 out nocopy JTF_NUMBER_TABLE
469 )
470
471 as
472 ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
473 ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
474 ddindx binary_integer; indx binary_integer;
475 begin
476
477 -- copy data to the local IN or IN-OUT args, if any
478
479
480
481
482
483 okl_srs_pvt_w.rosetta_table_copy_in_p5(ddp_srsv_tbl, p5_a0
484 , p5_a1
485 , p5_a2
486 , p5_a3
487 , p5_a4
488 , p5_a5
489 , p5_a6
490 , p5_a7
491 , p5_a8
492 , p5_a9
493 , p5_a10
494 , p5_a11
495 , p5_a12
496 , p5_a13
497 , p5_a14
498 , p5_a15
499 , p5_a16
500 , p5_a17
501 , p5_a18
502 , p5_a19
503 , p5_a20
504 , p5_a21
505 , p5_a22
506 , p5_a23
507 , p5_a24
508 , p5_a25
509 , p5_a26
510 , p5_a27
511 , p5_a28
512 );
513
514
515 -- here's the delegated call to the old PL/SQL routine
516 okl_sif_ret_strms_pub.insert_sif_ret_strms(p_api_version,
517 p_init_msg_list,
518 x_return_status,
519 x_msg_count,
520 x_msg_data,
521 ddp_srsv_tbl,
522 ddx_srsv_tbl);
523
524 -- copy data back from the local variables to OUT or IN-OUT args, if any
525
526
527
528
529
530
531 okl_srs_pvt_w.rosetta_table_copy_out_p5(ddx_srsv_tbl, p6_a0
532 , p6_a1
533 , p6_a2
534 , p6_a3
535 , p6_a4
536 , p6_a5
537 , p6_a6
538 , p6_a7
539 , p6_a8
540 , p6_a9
541 , p6_a10
542 , p6_a11
543 , p6_a12
544 , p6_a13
545 , p6_a14
546 , p6_a15
547 , p6_a16
548 , p6_a17
549 , p6_a18
550 , p6_a19
551 , p6_a20
552 , p6_a21
553 , p6_a22
554 , p6_a23
555 , p6_a24
556 , p6_a25
557 , p6_a26
558 , p6_a27
559 , p6_a28
560 );
561 end;
562
563 procedure lock_sif_ret_strms(p_api_version NUMBER
564 , p_init_msg_list VARCHAR2
565 , x_return_status out nocopy VARCHAR2
566 , x_msg_count out nocopy NUMBER
567 , x_msg_data out nocopy VARCHAR2
568 , p5_a0 NUMBER := 0-1962.0724
569 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
570 , p5_a2 NUMBER := 0-1962.0724
571 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
572 , p5_a4 NUMBER := 0-1962.0724
573 , p5_a5 DATE := fnd_api.g_miss_date
574 , p5_a6 NUMBER := 0-1962.0724
575 , p5_a7 NUMBER := 0-1962.0724
576 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
577 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
578 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
579 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
580 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
581 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
582 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
583 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
584 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
585 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
586 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
587 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
588 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
589 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
590 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
591 , p5_a23 NUMBER := 0-1962.0724
592 , p5_a24 NUMBER := 0-1962.0724
593 , p5_a25 NUMBER := 0-1962.0724
594 , p5_a26 DATE := fnd_api.g_miss_date
595 , p5_a27 DATE := fnd_api.g_miss_date
596 , p5_a28 NUMBER := 0-1962.0724
597 )
598
599 as
600 ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
601 ddindx binary_integer; indx binary_integer;
602 begin
603
604 -- copy data to the local IN or IN-OUT args, if any
605
606
607
608
609
610 ddp_srsv_rec.id := rosetta_g_miss_num_map(p5_a0);
611 ddp_srsv_rec.stream_type_name := p5_a1;
612 ddp_srsv_rec.index_number := rosetta_g_miss_num_map(p5_a2);
613 ddp_srsv_rec.activity_type := p5_a3;
614 ddp_srsv_rec.sequence_number := rosetta_g_miss_num_map(p5_a4);
615 ddp_srsv_rec.sre_date := rosetta_g_miss_date_in_map(p5_a5);
616 ddp_srsv_rec.amount := rosetta_g_miss_num_map(p5_a6);
617 ddp_srsv_rec.sir_id := rosetta_g_miss_num_map(p5_a7);
618 ddp_srsv_rec.stream_interface_attribute01 := p5_a8;
619 ddp_srsv_rec.stream_interface_attribute02 := p5_a9;
620 ddp_srsv_rec.stream_interface_attribute03 := p5_a10;
621 ddp_srsv_rec.stream_interface_attribute04 := p5_a11;
622 ddp_srsv_rec.stream_interface_attribute05 := p5_a12;
623 ddp_srsv_rec.stream_interface_attribute06 := p5_a13;
624 ddp_srsv_rec.stream_interface_attribute07 := p5_a14;
625 ddp_srsv_rec.stream_interface_attribute08 := p5_a15;
626 ddp_srsv_rec.stream_interface_attribute09 := p5_a16;
627 ddp_srsv_rec.stream_interface_attribute10 := p5_a17;
628 ddp_srsv_rec.stream_interface_attribute11 := p5_a18;
629 ddp_srsv_rec.stream_interface_attribute12 := p5_a19;
630 ddp_srsv_rec.stream_interface_attribute13 := p5_a20;
631 ddp_srsv_rec.stream_interface_attribute14 := p5_a21;
632 ddp_srsv_rec.stream_interface_attribute15 := p5_a22;
633 ddp_srsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
634 ddp_srsv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
635 ddp_srsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
636 ddp_srsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
637 ddp_srsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
638 ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
639
640 -- here's the delegated call to the old PL/SQL routine
641 okl_sif_ret_strms_pub.lock_sif_ret_strms(p_api_version,
642 p_init_msg_list,
643 x_return_status,
644 x_msg_count,
645 x_msg_data,
646 ddp_srsv_rec);
647
648 -- copy data back from the local variables to OUT or IN-OUT args, if any
649
650
651
652
653
654 end;
655
656 procedure lock_sif_ret_strms(p_api_version NUMBER
657 , p_init_msg_list VARCHAR2
658 , x_return_status out nocopy VARCHAR2
659 , x_msg_count out nocopy NUMBER
660 , x_msg_data out nocopy VARCHAR2
661 , p5_a0 JTF_NUMBER_TABLE
662 , p5_a1 JTF_VARCHAR2_TABLE_200
663 , p5_a2 JTF_NUMBER_TABLE
664 , p5_a3 JTF_VARCHAR2_TABLE_100
665 , p5_a4 JTF_NUMBER_TABLE
666 , p5_a5 JTF_DATE_TABLE
667 , p5_a6 JTF_NUMBER_TABLE
668 , p5_a7 JTF_NUMBER_TABLE
669 , p5_a8 JTF_VARCHAR2_TABLE_500
670 , p5_a9 JTF_VARCHAR2_TABLE_500
671 , p5_a10 JTF_VARCHAR2_TABLE_500
672 , p5_a11 JTF_VARCHAR2_TABLE_500
673 , p5_a12 JTF_VARCHAR2_TABLE_500
674 , p5_a13 JTF_VARCHAR2_TABLE_500
675 , p5_a14 JTF_VARCHAR2_TABLE_500
676 , p5_a15 JTF_VARCHAR2_TABLE_500
677 , p5_a16 JTF_VARCHAR2_TABLE_500
678 , p5_a17 JTF_VARCHAR2_TABLE_500
679 , p5_a18 JTF_VARCHAR2_TABLE_500
680 , p5_a19 JTF_VARCHAR2_TABLE_500
681 , p5_a20 JTF_VARCHAR2_TABLE_500
682 , p5_a21 JTF_VARCHAR2_TABLE_500
683 , p5_a22 JTF_VARCHAR2_TABLE_500
684 , p5_a23 JTF_NUMBER_TABLE
685 , p5_a24 JTF_NUMBER_TABLE
686 , p5_a25 JTF_NUMBER_TABLE
687 , p5_a26 JTF_DATE_TABLE
688 , p5_a27 JTF_DATE_TABLE
689 , p5_a28 JTF_NUMBER_TABLE
690 )
691
692 as
693 ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
694 ddindx binary_integer; indx binary_integer;
695 begin
696
697 -- copy data to the local IN or IN-OUT args, if any
698
699
700
701
702
703 okl_srs_pvt_w.rosetta_table_copy_in_p5(ddp_srsv_tbl, p5_a0
704 , p5_a1
705 , p5_a2
706 , p5_a3
707 , p5_a4
708 , p5_a5
709 , p5_a6
710 , p5_a7
711 , p5_a8
712 , p5_a9
713 , p5_a10
714 , p5_a11
715 , p5_a12
716 , p5_a13
717 , p5_a14
718 , p5_a15
719 , p5_a16
720 , p5_a17
721 , p5_a18
722 , p5_a19
723 , p5_a20
724 , p5_a21
725 , p5_a22
726 , p5_a23
727 , p5_a24
728 , p5_a25
729 , p5_a26
730 , p5_a27
731 , p5_a28
732 );
733
734 -- here's the delegated call to the old PL/SQL routine
735 okl_sif_ret_strms_pub.lock_sif_ret_strms(p_api_version,
736 p_init_msg_list,
737 x_return_status,
738 x_msg_count,
739 x_msg_data,
740 ddp_srsv_tbl);
741
742 -- copy data back from the local variables to OUT or IN-OUT args, if any
743
744
745
746
747
748 end;
749
750 procedure update_sif_ret_strms(p_api_version NUMBER
751 , p_init_msg_list VARCHAR2
752 , x_return_status out nocopy VARCHAR2
753 , x_msg_count out nocopy NUMBER
754 , x_msg_data out nocopy VARCHAR2
755 , p6_a0 out nocopy NUMBER
756 , p6_a1 out nocopy VARCHAR2
757 , p6_a2 out nocopy NUMBER
758 , p6_a3 out nocopy VARCHAR2
759 , p6_a4 out nocopy NUMBER
760 , p6_a5 out nocopy DATE
761 , p6_a6 out nocopy NUMBER
762 , p6_a7 out nocopy NUMBER
763 , p6_a8 out nocopy VARCHAR2
764 , p6_a9 out nocopy VARCHAR2
765 , p6_a10 out nocopy VARCHAR2
766 , p6_a11 out nocopy VARCHAR2
767 , p6_a12 out nocopy VARCHAR2
768 , p6_a13 out nocopy VARCHAR2
769 , p6_a14 out nocopy VARCHAR2
770 , p6_a15 out nocopy VARCHAR2
771 , p6_a16 out nocopy VARCHAR2
772 , p6_a17 out nocopy VARCHAR2
773 , p6_a18 out nocopy VARCHAR2
774 , p6_a19 out nocopy VARCHAR2
775 , p6_a20 out nocopy VARCHAR2
776 , p6_a21 out nocopy VARCHAR2
777 , p6_a22 out nocopy VARCHAR2
778 , p6_a23 out nocopy NUMBER
779 , p6_a24 out nocopy NUMBER
780 , p6_a25 out nocopy NUMBER
781 , p6_a26 out nocopy DATE
782 , p6_a27 out nocopy DATE
783 , p6_a28 out nocopy NUMBER
784 , p5_a0 NUMBER := 0-1962.0724
785 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
786 , p5_a2 NUMBER := 0-1962.0724
787 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
788 , p5_a4 NUMBER := 0-1962.0724
789 , p5_a5 DATE := fnd_api.g_miss_date
790 , p5_a6 NUMBER := 0-1962.0724
791 , p5_a7 NUMBER := 0-1962.0724
792 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
793 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
794 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
795 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
796 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
797 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
798 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
799 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
800 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
801 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
802 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
803 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
804 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
805 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
806 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
807 , p5_a23 NUMBER := 0-1962.0724
808 , p5_a24 NUMBER := 0-1962.0724
809 , p5_a25 NUMBER := 0-1962.0724
810 , p5_a26 DATE := fnd_api.g_miss_date
811 , p5_a27 DATE := fnd_api.g_miss_date
812 , p5_a28 NUMBER := 0-1962.0724
813 )
814
815 as
816 ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
817 ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
818 ddindx binary_integer; indx binary_integer;
819 begin
820
821 -- copy data to the local IN or IN-OUT args, if any
822
823
824
825
826
827 ddp_srsv_rec.id := rosetta_g_miss_num_map(p5_a0);
828 ddp_srsv_rec.stream_type_name := p5_a1;
829 ddp_srsv_rec.index_number := rosetta_g_miss_num_map(p5_a2);
830 ddp_srsv_rec.activity_type := p5_a3;
831 ddp_srsv_rec.sequence_number := rosetta_g_miss_num_map(p5_a4);
832 ddp_srsv_rec.sre_date := rosetta_g_miss_date_in_map(p5_a5);
833 ddp_srsv_rec.amount := rosetta_g_miss_num_map(p5_a6);
834 ddp_srsv_rec.sir_id := rosetta_g_miss_num_map(p5_a7);
835 ddp_srsv_rec.stream_interface_attribute01 := p5_a8;
836 ddp_srsv_rec.stream_interface_attribute02 := p5_a9;
837 ddp_srsv_rec.stream_interface_attribute03 := p5_a10;
838 ddp_srsv_rec.stream_interface_attribute04 := p5_a11;
839 ddp_srsv_rec.stream_interface_attribute05 := p5_a12;
840 ddp_srsv_rec.stream_interface_attribute06 := p5_a13;
841 ddp_srsv_rec.stream_interface_attribute07 := p5_a14;
842 ddp_srsv_rec.stream_interface_attribute08 := p5_a15;
843 ddp_srsv_rec.stream_interface_attribute09 := p5_a16;
844 ddp_srsv_rec.stream_interface_attribute10 := p5_a17;
845 ddp_srsv_rec.stream_interface_attribute11 := p5_a18;
846 ddp_srsv_rec.stream_interface_attribute12 := p5_a19;
847 ddp_srsv_rec.stream_interface_attribute13 := p5_a20;
848 ddp_srsv_rec.stream_interface_attribute14 := p5_a21;
849 ddp_srsv_rec.stream_interface_attribute15 := p5_a22;
850 ddp_srsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
851 ddp_srsv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
852 ddp_srsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
853 ddp_srsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
854 ddp_srsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
855 ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
856
857
858 -- here's the delegated call to the old PL/SQL routine
859 okl_sif_ret_strms_pub.update_sif_ret_strms(p_api_version,
860 p_init_msg_list,
861 x_return_status,
862 x_msg_count,
863 x_msg_data,
864 ddp_srsv_rec,
865 ddx_srsv_rec);
866
867 -- copy data back from the local variables to OUT or IN-OUT args, if any
868
869
870
871
872
873
874 p6_a0 := rosetta_g_miss_num_map(ddx_srsv_rec.id);
875 p6_a1 := ddx_srsv_rec.stream_type_name;
876 p6_a2 := rosetta_g_miss_num_map(ddx_srsv_rec.index_number);
877 p6_a3 := ddx_srsv_rec.activity_type;
878 p6_a4 := rosetta_g_miss_num_map(ddx_srsv_rec.sequence_number);
879 p6_a5 := ddx_srsv_rec.sre_date;
880 p6_a6 := rosetta_g_miss_num_map(ddx_srsv_rec.amount);
881 p6_a7 := rosetta_g_miss_num_map(ddx_srsv_rec.sir_id);
882 p6_a8 := ddx_srsv_rec.stream_interface_attribute01;
883 p6_a9 := ddx_srsv_rec.stream_interface_attribute02;
884 p6_a10 := ddx_srsv_rec.stream_interface_attribute03;
885 p6_a11 := ddx_srsv_rec.stream_interface_attribute04;
886 p6_a12 := ddx_srsv_rec.stream_interface_attribute05;
887 p6_a13 := ddx_srsv_rec.stream_interface_attribute06;
888 p6_a14 := ddx_srsv_rec.stream_interface_attribute07;
889 p6_a15 := ddx_srsv_rec.stream_interface_attribute08;
890 p6_a16 := ddx_srsv_rec.stream_interface_attribute09;
891 p6_a17 := ddx_srsv_rec.stream_interface_attribute10;
892 p6_a18 := ddx_srsv_rec.stream_interface_attribute11;
893 p6_a19 := ddx_srsv_rec.stream_interface_attribute12;
894 p6_a20 := ddx_srsv_rec.stream_interface_attribute13;
895 p6_a21 := ddx_srsv_rec.stream_interface_attribute14;
896 p6_a22 := ddx_srsv_rec.stream_interface_attribute15;
897 p6_a23 := rosetta_g_miss_num_map(ddx_srsv_rec.object_version_number);
898 p6_a24 := rosetta_g_miss_num_map(ddx_srsv_rec.created_by);
899 p6_a25 := rosetta_g_miss_num_map(ddx_srsv_rec.last_updated_by);
900 p6_a26 := ddx_srsv_rec.creation_date;
901 p6_a27 := ddx_srsv_rec.last_update_date;
902 p6_a28 := rosetta_g_miss_num_map(ddx_srsv_rec.last_update_login);
903 end;
904
905 procedure update_sif_ret_strms(p_api_version NUMBER
906 , p_init_msg_list VARCHAR2
907 , x_return_status out nocopy VARCHAR2
908 , x_msg_count out nocopy NUMBER
909 , x_msg_data out nocopy VARCHAR2
910 , p5_a0 JTF_NUMBER_TABLE
911 , p5_a1 JTF_VARCHAR2_TABLE_200
912 , p5_a2 JTF_NUMBER_TABLE
913 , p5_a3 JTF_VARCHAR2_TABLE_100
914 , p5_a4 JTF_NUMBER_TABLE
915 , p5_a5 JTF_DATE_TABLE
916 , p5_a6 JTF_NUMBER_TABLE
917 , p5_a7 JTF_NUMBER_TABLE
918 , p5_a8 JTF_VARCHAR2_TABLE_500
919 , p5_a9 JTF_VARCHAR2_TABLE_500
920 , p5_a10 JTF_VARCHAR2_TABLE_500
921 , p5_a11 JTF_VARCHAR2_TABLE_500
922 , p5_a12 JTF_VARCHAR2_TABLE_500
923 , p5_a13 JTF_VARCHAR2_TABLE_500
924 , p5_a14 JTF_VARCHAR2_TABLE_500
925 , p5_a15 JTF_VARCHAR2_TABLE_500
926 , p5_a16 JTF_VARCHAR2_TABLE_500
927 , p5_a17 JTF_VARCHAR2_TABLE_500
928 , p5_a18 JTF_VARCHAR2_TABLE_500
929 , p5_a19 JTF_VARCHAR2_TABLE_500
930 , p5_a20 JTF_VARCHAR2_TABLE_500
931 , p5_a21 JTF_VARCHAR2_TABLE_500
932 , p5_a22 JTF_VARCHAR2_TABLE_500
933 , p5_a23 JTF_NUMBER_TABLE
934 , p5_a24 JTF_NUMBER_TABLE
935 , p5_a25 JTF_NUMBER_TABLE
936 , p5_a26 JTF_DATE_TABLE
937 , p5_a27 JTF_DATE_TABLE
938 , p5_a28 JTF_NUMBER_TABLE
939 , p6_a0 out nocopy JTF_NUMBER_TABLE
940 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
941 , p6_a2 out nocopy JTF_NUMBER_TABLE
942 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
943 , p6_a4 out nocopy JTF_NUMBER_TABLE
944 , p6_a5 out nocopy JTF_DATE_TABLE
945 , p6_a6 out nocopy JTF_NUMBER_TABLE
946 , p6_a7 out nocopy JTF_NUMBER_TABLE
947 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
948 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
949 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
950 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
951 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
952 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
953 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
954 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
955 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
956 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
957 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
958 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
959 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
960 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
961 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
962 , p6_a23 out nocopy JTF_NUMBER_TABLE
963 , p6_a24 out nocopy JTF_NUMBER_TABLE
964 , p6_a25 out nocopy JTF_NUMBER_TABLE
965 , p6_a26 out nocopy JTF_DATE_TABLE
966 , p6_a27 out nocopy JTF_DATE_TABLE
967 , p6_a28 out nocopy JTF_NUMBER_TABLE
968 )
969
970 as
971 ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
972 ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
973 ddindx binary_integer; indx binary_integer;
974 begin
975
976 -- copy data to the local IN or IN-OUT args, if any
977
978
979
980
981
982 okl_srs_pvt_w.rosetta_table_copy_in_p5(ddp_srsv_tbl, p5_a0
983 , p5_a1
984 , p5_a2
985 , p5_a3
986 , p5_a4
987 , p5_a5
988 , p5_a6
989 , p5_a7
990 , p5_a8
991 , p5_a9
992 , p5_a10
993 , p5_a11
994 , p5_a12
995 , p5_a13
996 , p5_a14
997 , p5_a15
998 , p5_a16
999 , p5_a17
1000 , p5_a18
1001 , p5_a19
1002 , p5_a20
1003 , p5_a21
1004 , p5_a22
1005 , p5_a23
1006 , p5_a24
1007 , p5_a25
1008 , p5_a26
1009 , p5_a27
1010 , p5_a28
1011 );
1012
1013
1014 -- here's the delegated call to the old PL/SQL routine
1015 okl_sif_ret_strms_pub.update_sif_ret_strms(p_api_version,
1016 p_init_msg_list,
1017 x_return_status,
1018 x_msg_count,
1019 x_msg_data,
1020 ddp_srsv_tbl,
1021 ddx_srsv_tbl);
1022
1023 -- copy data back from the local variables to OUT or IN-OUT args, if any
1024
1025
1026
1027
1028
1029
1030 okl_srs_pvt_w.rosetta_table_copy_out_p5(ddx_srsv_tbl, p6_a0
1031 , p6_a1
1032 , p6_a2
1033 , p6_a3
1034 , p6_a4
1035 , p6_a5
1036 , p6_a6
1037 , p6_a7
1038 , p6_a8
1039 , p6_a9
1040 , p6_a10
1041 , p6_a11
1042 , p6_a12
1043 , p6_a13
1044 , p6_a14
1045 , p6_a15
1046 , p6_a16
1047 , p6_a17
1048 , p6_a18
1049 , p6_a19
1050 , p6_a20
1051 , p6_a21
1052 , p6_a22
1053 , p6_a23
1054 , p6_a24
1055 , p6_a25
1056 , p6_a26
1057 , p6_a27
1058 , p6_a28
1059 );
1060 end;
1061
1062 procedure delete_sif_ret_strms(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 , p6_a0 out nocopy NUMBER
1068 , p6_a1 out nocopy VARCHAR2
1069 , p6_a2 out nocopy NUMBER
1070 , p6_a3 out nocopy VARCHAR2
1071 , p6_a4 out nocopy NUMBER
1072 , p6_a5 out nocopy DATE
1073 , p6_a6 out nocopy NUMBER
1074 , p6_a7 out nocopy NUMBER
1075 , p6_a8 out nocopy VARCHAR2
1076 , p6_a9 out nocopy VARCHAR2
1077 , p6_a10 out nocopy VARCHAR2
1078 , p6_a11 out nocopy VARCHAR2
1079 , p6_a12 out nocopy VARCHAR2
1080 , p6_a13 out nocopy VARCHAR2
1081 , p6_a14 out nocopy VARCHAR2
1082 , p6_a15 out nocopy VARCHAR2
1083 , p6_a16 out nocopy VARCHAR2
1084 , p6_a17 out nocopy VARCHAR2
1085 , p6_a18 out nocopy VARCHAR2
1086 , p6_a19 out nocopy VARCHAR2
1087 , p6_a20 out nocopy VARCHAR2
1088 , p6_a21 out nocopy VARCHAR2
1089 , p6_a22 out nocopy VARCHAR2
1090 , p6_a23 out nocopy NUMBER
1091 , p6_a24 out nocopy NUMBER
1092 , p6_a25 out nocopy NUMBER
1093 , p6_a26 out nocopy DATE
1094 , p6_a27 out nocopy DATE
1095 , p6_a28 out nocopy NUMBER
1096 , p5_a0 NUMBER := 0-1962.0724
1097 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1098 , p5_a2 NUMBER := 0-1962.0724
1099 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1100 , p5_a4 NUMBER := 0-1962.0724
1101 , p5_a5 DATE := fnd_api.g_miss_date
1102 , p5_a6 NUMBER := 0-1962.0724
1103 , p5_a7 NUMBER := 0-1962.0724
1104 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1105 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1106 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1107 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1108 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1109 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1110 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1111 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1112 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1113 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1114 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1115 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1116 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1117 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1118 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1119 , p5_a23 NUMBER := 0-1962.0724
1120 , p5_a24 NUMBER := 0-1962.0724
1121 , p5_a25 NUMBER := 0-1962.0724
1122 , p5_a26 DATE := fnd_api.g_miss_date
1123 , p5_a27 DATE := fnd_api.g_miss_date
1124 , p5_a28 NUMBER := 0-1962.0724
1125 )
1126
1127 as
1128 ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1129 ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1130 ddindx binary_integer; indx binary_integer;
1131 begin
1132
1133 -- copy data to the local IN or IN-OUT args, if any
1134
1135
1136
1137
1138
1139 ddp_srsv_rec.id := rosetta_g_miss_num_map(p5_a0);
1140 ddp_srsv_rec.stream_type_name := p5_a1;
1141 ddp_srsv_rec.index_number := rosetta_g_miss_num_map(p5_a2);
1142 ddp_srsv_rec.activity_type := p5_a3;
1143 ddp_srsv_rec.sequence_number := rosetta_g_miss_num_map(p5_a4);
1144 ddp_srsv_rec.sre_date := rosetta_g_miss_date_in_map(p5_a5);
1145 ddp_srsv_rec.amount := rosetta_g_miss_num_map(p5_a6);
1146 ddp_srsv_rec.sir_id := rosetta_g_miss_num_map(p5_a7);
1147 ddp_srsv_rec.stream_interface_attribute01 := p5_a8;
1148 ddp_srsv_rec.stream_interface_attribute02 := p5_a9;
1149 ddp_srsv_rec.stream_interface_attribute03 := p5_a10;
1150 ddp_srsv_rec.stream_interface_attribute04 := p5_a11;
1151 ddp_srsv_rec.stream_interface_attribute05 := p5_a12;
1152 ddp_srsv_rec.stream_interface_attribute06 := p5_a13;
1153 ddp_srsv_rec.stream_interface_attribute07 := p5_a14;
1154 ddp_srsv_rec.stream_interface_attribute08 := p5_a15;
1155 ddp_srsv_rec.stream_interface_attribute09 := p5_a16;
1156 ddp_srsv_rec.stream_interface_attribute10 := p5_a17;
1157 ddp_srsv_rec.stream_interface_attribute11 := p5_a18;
1158 ddp_srsv_rec.stream_interface_attribute12 := p5_a19;
1159 ddp_srsv_rec.stream_interface_attribute13 := p5_a20;
1160 ddp_srsv_rec.stream_interface_attribute14 := p5_a21;
1161 ddp_srsv_rec.stream_interface_attribute15 := p5_a22;
1162 ddp_srsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
1163 ddp_srsv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
1164 ddp_srsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
1165 ddp_srsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
1166 ddp_srsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
1167 ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
1168
1169
1170 -- here's the delegated call to the old PL/SQL routine
1171 okl_sif_ret_strms_pub.delete_sif_ret_strms(p_api_version,
1172 p_init_msg_list,
1173 x_return_status,
1174 x_msg_count,
1175 x_msg_data,
1176 ddp_srsv_rec,
1177 ddx_srsv_rec);
1178
1179 -- copy data back from the local variables to OUT or IN-OUT args, if any
1180
1181
1182
1183
1184
1185
1186 p6_a0 := rosetta_g_miss_num_map(ddx_srsv_rec.id);
1187 p6_a1 := ddx_srsv_rec.stream_type_name;
1188 p6_a2 := rosetta_g_miss_num_map(ddx_srsv_rec.index_number);
1189 p6_a3 := ddx_srsv_rec.activity_type;
1190 p6_a4 := rosetta_g_miss_num_map(ddx_srsv_rec.sequence_number);
1191 p6_a5 := ddx_srsv_rec.sre_date;
1192 p6_a6 := rosetta_g_miss_num_map(ddx_srsv_rec.amount);
1193 p6_a7 := rosetta_g_miss_num_map(ddx_srsv_rec.sir_id);
1194 p6_a8 := ddx_srsv_rec.stream_interface_attribute01;
1195 p6_a9 := ddx_srsv_rec.stream_interface_attribute02;
1196 p6_a10 := ddx_srsv_rec.stream_interface_attribute03;
1197 p6_a11 := ddx_srsv_rec.stream_interface_attribute04;
1198 p6_a12 := ddx_srsv_rec.stream_interface_attribute05;
1199 p6_a13 := ddx_srsv_rec.stream_interface_attribute06;
1200 p6_a14 := ddx_srsv_rec.stream_interface_attribute07;
1201 p6_a15 := ddx_srsv_rec.stream_interface_attribute08;
1202 p6_a16 := ddx_srsv_rec.stream_interface_attribute09;
1203 p6_a17 := ddx_srsv_rec.stream_interface_attribute10;
1204 p6_a18 := ddx_srsv_rec.stream_interface_attribute11;
1205 p6_a19 := ddx_srsv_rec.stream_interface_attribute12;
1206 p6_a20 := ddx_srsv_rec.stream_interface_attribute13;
1207 p6_a21 := ddx_srsv_rec.stream_interface_attribute14;
1208 p6_a22 := ddx_srsv_rec.stream_interface_attribute15;
1209 p6_a23 := rosetta_g_miss_num_map(ddx_srsv_rec.object_version_number);
1210 p6_a24 := rosetta_g_miss_num_map(ddx_srsv_rec.created_by);
1211 p6_a25 := rosetta_g_miss_num_map(ddx_srsv_rec.last_updated_by);
1212 p6_a26 := ddx_srsv_rec.creation_date;
1213 p6_a27 := ddx_srsv_rec.last_update_date;
1214 p6_a28 := rosetta_g_miss_num_map(ddx_srsv_rec.last_update_login);
1215 end;
1216
1217 procedure delete_sif_ret_strms(p_api_version NUMBER
1218 , p_init_msg_list VARCHAR2
1219 , x_return_status out nocopy VARCHAR2
1220 , x_msg_count out nocopy NUMBER
1221 , x_msg_data out nocopy VARCHAR2
1222 , p5_a0 JTF_NUMBER_TABLE
1223 , p5_a1 JTF_VARCHAR2_TABLE_200
1224 , p5_a2 JTF_NUMBER_TABLE
1225 , p5_a3 JTF_VARCHAR2_TABLE_100
1226 , p5_a4 JTF_NUMBER_TABLE
1227 , p5_a5 JTF_DATE_TABLE
1228 , p5_a6 JTF_NUMBER_TABLE
1229 , p5_a7 JTF_NUMBER_TABLE
1230 , p5_a8 JTF_VARCHAR2_TABLE_500
1231 , p5_a9 JTF_VARCHAR2_TABLE_500
1232 , p5_a10 JTF_VARCHAR2_TABLE_500
1233 , p5_a11 JTF_VARCHAR2_TABLE_500
1234 , p5_a12 JTF_VARCHAR2_TABLE_500
1235 , p5_a13 JTF_VARCHAR2_TABLE_500
1236 , p5_a14 JTF_VARCHAR2_TABLE_500
1237 , p5_a15 JTF_VARCHAR2_TABLE_500
1238 , p5_a16 JTF_VARCHAR2_TABLE_500
1239 , p5_a17 JTF_VARCHAR2_TABLE_500
1240 , p5_a18 JTF_VARCHAR2_TABLE_500
1241 , p5_a19 JTF_VARCHAR2_TABLE_500
1242 , p5_a20 JTF_VARCHAR2_TABLE_500
1243 , p5_a21 JTF_VARCHAR2_TABLE_500
1244 , p5_a22 JTF_VARCHAR2_TABLE_500
1245 , p5_a23 JTF_NUMBER_TABLE
1246 , p5_a24 JTF_NUMBER_TABLE
1247 , p5_a25 JTF_NUMBER_TABLE
1248 , p5_a26 JTF_DATE_TABLE
1249 , p5_a27 JTF_DATE_TABLE
1250 , p5_a28 JTF_NUMBER_TABLE
1251 , p6_a0 out nocopy JTF_NUMBER_TABLE
1252 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
1253 , p6_a2 out nocopy JTF_NUMBER_TABLE
1254 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
1255 , p6_a4 out nocopy JTF_NUMBER_TABLE
1256 , p6_a5 out nocopy JTF_DATE_TABLE
1257 , p6_a6 out nocopy JTF_NUMBER_TABLE
1258 , p6_a7 out nocopy JTF_NUMBER_TABLE
1259 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
1260 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
1261 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
1262 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1263 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1264 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1265 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1266 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1267 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1268 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1269 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1270 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1271 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1272 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1273 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1274 , p6_a23 out nocopy JTF_NUMBER_TABLE
1275 , p6_a24 out nocopy JTF_NUMBER_TABLE
1276 , p6_a25 out nocopy JTF_NUMBER_TABLE
1277 , p6_a26 out nocopy JTF_DATE_TABLE
1278 , p6_a27 out nocopy JTF_DATE_TABLE
1279 , p6_a28 out nocopy JTF_NUMBER_TABLE
1280 )
1281
1282 as
1283 ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1284 ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1285 ddindx binary_integer; indx binary_integer;
1286 begin
1287
1288 -- copy data to the local IN or IN-OUT args, if any
1289
1290
1291
1292
1293
1294 okl_srs_pvt_w.rosetta_table_copy_in_p5(ddp_srsv_tbl, p5_a0
1295 , p5_a1
1296 , p5_a2
1297 , p5_a3
1298 , p5_a4
1299 , p5_a5
1300 , p5_a6
1301 , p5_a7
1302 , p5_a8
1303 , p5_a9
1304 , p5_a10
1305 , p5_a11
1306 , p5_a12
1307 , p5_a13
1308 , p5_a14
1309 , p5_a15
1310 , p5_a16
1311 , p5_a17
1312 , p5_a18
1313 , p5_a19
1314 , p5_a20
1315 , p5_a21
1316 , p5_a22
1317 , p5_a23
1318 , p5_a24
1319 , p5_a25
1320 , p5_a26
1321 , p5_a27
1322 , p5_a28
1323 );
1324
1325
1326 -- here's the delegated call to the old PL/SQL routine
1327 okl_sif_ret_strms_pub.delete_sif_ret_strms(p_api_version,
1328 p_init_msg_list,
1329 x_return_status,
1330 x_msg_count,
1331 x_msg_data,
1332 ddp_srsv_tbl,
1333 ddx_srsv_tbl);
1334
1335 -- copy data back from the local variables to OUT or IN-OUT args, if any
1336
1337
1338
1339
1340
1341
1342 okl_srs_pvt_w.rosetta_table_copy_out_p5(ddx_srsv_tbl, p6_a0
1343 , p6_a1
1344 , p6_a2
1345 , p6_a3
1346 , p6_a4
1347 , p6_a5
1348 , p6_a6
1349 , p6_a7
1350 , p6_a8
1351 , p6_a9
1352 , p6_a10
1353 , p6_a11
1354 , p6_a12
1355 , p6_a13
1356 , p6_a14
1357 , p6_a15
1358 , p6_a16
1359 , p6_a17
1360 , p6_a18
1361 , p6_a19
1362 , p6_a20
1363 , p6_a21
1364 , p6_a22
1365 , p6_a23
1366 , p6_a24
1367 , p6_a25
1368 , p6_a26
1369 , p6_a27
1370 , p6_a28
1371 );
1372 end;
1373
1374 procedure validate_sif_ret_strms(p_api_version NUMBER
1375 , p_init_msg_list VARCHAR2
1376 , x_return_status out nocopy VARCHAR2
1377 , x_msg_count out nocopy NUMBER
1378 , x_msg_data out nocopy VARCHAR2
1379 , p6_a0 out nocopy NUMBER
1380 , p6_a1 out nocopy VARCHAR2
1381 , p6_a2 out nocopy NUMBER
1382 , p6_a3 out nocopy VARCHAR2
1383 , p6_a4 out nocopy NUMBER
1384 , p6_a5 out nocopy DATE
1385 , p6_a6 out nocopy NUMBER
1386 , p6_a7 out nocopy NUMBER
1387 , p6_a8 out nocopy VARCHAR2
1388 , p6_a9 out nocopy VARCHAR2
1389 , p6_a10 out nocopy VARCHAR2
1390 , p6_a11 out nocopy VARCHAR2
1391 , p6_a12 out nocopy VARCHAR2
1392 , p6_a13 out nocopy VARCHAR2
1393 , p6_a14 out nocopy VARCHAR2
1394 , p6_a15 out nocopy VARCHAR2
1395 , p6_a16 out nocopy VARCHAR2
1396 , p6_a17 out nocopy VARCHAR2
1397 , p6_a18 out nocopy VARCHAR2
1398 , p6_a19 out nocopy VARCHAR2
1399 , p6_a20 out nocopy VARCHAR2
1400 , p6_a21 out nocopy VARCHAR2
1401 , p6_a22 out nocopy VARCHAR2
1402 , p6_a23 out nocopy NUMBER
1403 , p6_a24 out nocopy NUMBER
1404 , p6_a25 out nocopy NUMBER
1405 , p6_a26 out nocopy DATE
1406 , p6_a27 out nocopy DATE
1407 , p6_a28 out nocopy NUMBER
1408 , p5_a0 NUMBER := 0-1962.0724
1409 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1410 , p5_a2 NUMBER := 0-1962.0724
1411 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1412 , p5_a4 NUMBER := 0-1962.0724
1413 , p5_a5 DATE := fnd_api.g_miss_date
1414 , p5_a6 NUMBER := 0-1962.0724
1415 , p5_a7 NUMBER := 0-1962.0724
1416 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1417 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1418 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1419 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1420 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1421 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1422 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1423 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1424 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1425 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1426 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1427 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1428 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1429 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
1430 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1431 , p5_a23 NUMBER := 0-1962.0724
1432 , p5_a24 NUMBER := 0-1962.0724
1433 , p5_a25 NUMBER := 0-1962.0724
1434 , p5_a26 DATE := fnd_api.g_miss_date
1435 , p5_a27 DATE := fnd_api.g_miss_date
1436 , p5_a28 NUMBER := 0-1962.0724
1437 )
1438
1439 as
1440 ddp_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1441 ddx_srsv_rec okl_sif_ret_strms_pub.srsv_rec_type;
1442 ddindx binary_integer; indx binary_integer;
1443 begin
1444
1445 -- copy data to the local IN or IN-OUT args, if any
1446
1447
1448
1449
1450
1451 ddp_srsv_rec.id := rosetta_g_miss_num_map(p5_a0);
1452 ddp_srsv_rec.stream_type_name := p5_a1;
1453 ddp_srsv_rec.index_number := rosetta_g_miss_num_map(p5_a2);
1454 ddp_srsv_rec.activity_type := p5_a3;
1455 ddp_srsv_rec.sequence_number := rosetta_g_miss_num_map(p5_a4);
1456 ddp_srsv_rec.sre_date := rosetta_g_miss_date_in_map(p5_a5);
1457 ddp_srsv_rec.amount := rosetta_g_miss_num_map(p5_a6);
1458 ddp_srsv_rec.sir_id := rosetta_g_miss_num_map(p5_a7);
1459 ddp_srsv_rec.stream_interface_attribute01 := p5_a8;
1460 ddp_srsv_rec.stream_interface_attribute02 := p5_a9;
1461 ddp_srsv_rec.stream_interface_attribute03 := p5_a10;
1462 ddp_srsv_rec.stream_interface_attribute04 := p5_a11;
1463 ddp_srsv_rec.stream_interface_attribute05 := p5_a12;
1464 ddp_srsv_rec.stream_interface_attribute06 := p5_a13;
1465 ddp_srsv_rec.stream_interface_attribute07 := p5_a14;
1466 ddp_srsv_rec.stream_interface_attribute08 := p5_a15;
1467 ddp_srsv_rec.stream_interface_attribute09 := p5_a16;
1468 ddp_srsv_rec.stream_interface_attribute10 := p5_a17;
1469 ddp_srsv_rec.stream_interface_attribute11 := p5_a18;
1470 ddp_srsv_rec.stream_interface_attribute12 := p5_a19;
1471 ddp_srsv_rec.stream_interface_attribute13 := p5_a20;
1472 ddp_srsv_rec.stream_interface_attribute14 := p5_a21;
1473 ddp_srsv_rec.stream_interface_attribute15 := p5_a22;
1474 ddp_srsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a23);
1475 ddp_srsv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
1476 ddp_srsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a25);
1477 ddp_srsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
1478 ddp_srsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
1479 ddp_srsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
1480
1481
1482 -- here's the delegated call to the old PL/SQL routine
1483 okl_sif_ret_strms_pub.validate_sif_ret_strms(p_api_version,
1484 p_init_msg_list,
1485 x_return_status,
1486 x_msg_count,
1487 x_msg_data,
1488 ddp_srsv_rec,
1489 ddx_srsv_rec);
1490
1491 -- copy data back from the local variables to OUT or IN-OUT args, if any
1492
1493
1494
1495
1496
1497
1498 p6_a0 := rosetta_g_miss_num_map(ddx_srsv_rec.id);
1499 p6_a1 := ddx_srsv_rec.stream_type_name;
1500 p6_a2 := rosetta_g_miss_num_map(ddx_srsv_rec.index_number);
1501 p6_a3 := ddx_srsv_rec.activity_type;
1502 p6_a4 := rosetta_g_miss_num_map(ddx_srsv_rec.sequence_number);
1503 p6_a5 := ddx_srsv_rec.sre_date;
1504 p6_a6 := rosetta_g_miss_num_map(ddx_srsv_rec.amount);
1505 p6_a7 := rosetta_g_miss_num_map(ddx_srsv_rec.sir_id);
1506 p6_a8 := ddx_srsv_rec.stream_interface_attribute01;
1507 p6_a9 := ddx_srsv_rec.stream_interface_attribute02;
1508 p6_a10 := ddx_srsv_rec.stream_interface_attribute03;
1509 p6_a11 := ddx_srsv_rec.stream_interface_attribute04;
1510 p6_a12 := ddx_srsv_rec.stream_interface_attribute05;
1511 p6_a13 := ddx_srsv_rec.stream_interface_attribute06;
1512 p6_a14 := ddx_srsv_rec.stream_interface_attribute07;
1513 p6_a15 := ddx_srsv_rec.stream_interface_attribute08;
1514 p6_a16 := ddx_srsv_rec.stream_interface_attribute09;
1515 p6_a17 := ddx_srsv_rec.stream_interface_attribute10;
1516 p6_a18 := ddx_srsv_rec.stream_interface_attribute11;
1517 p6_a19 := ddx_srsv_rec.stream_interface_attribute12;
1518 p6_a20 := ddx_srsv_rec.stream_interface_attribute13;
1519 p6_a21 := ddx_srsv_rec.stream_interface_attribute14;
1520 p6_a22 := ddx_srsv_rec.stream_interface_attribute15;
1521 p6_a23 := rosetta_g_miss_num_map(ddx_srsv_rec.object_version_number);
1522 p6_a24 := rosetta_g_miss_num_map(ddx_srsv_rec.created_by);
1523 p6_a25 := rosetta_g_miss_num_map(ddx_srsv_rec.last_updated_by);
1524 p6_a26 := ddx_srsv_rec.creation_date;
1525 p6_a27 := ddx_srsv_rec.last_update_date;
1526 p6_a28 := rosetta_g_miss_num_map(ddx_srsv_rec.last_update_login);
1527 end;
1528
1529 procedure validate_sif_ret_strms(p_api_version NUMBER
1530 , p_init_msg_list VARCHAR2
1531 , x_return_status out nocopy VARCHAR2
1532 , x_msg_count out nocopy NUMBER
1533 , x_msg_data out nocopy VARCHAR2
1534 , p5_a0 JTF_NUMBER_TABLE
1535 , p5_a1 JTF_VARCHAR2_TABLE_200
1536 , p5_a2 JTF_NUMBER_TABLE
1537 , p5_a3 JTF_VARCHAR2_TABLE_100
1538 , p5_a4 JTF_NUMBER_TABLE
1539 , p5_a5 JTF_DATE_TABLE
1540 , p5_a6 JTF_NUMBER_TABLE
1541 , p5_a7 JTF_NUMBER_TABLE
1542 , p5_a8 JTF_VARCHAR2_TABLE_500
1543 , p5_a9 JTF_VARCHAR2_TABLE_500
1544 , p5_a10 JTF_VARCHAR2_TABLE_500
1545 , p5_a11 JTF_VARCHAR2_TABLE_500
1546 , p5_a12 JTF_VARCHAR2_TABLE_500
1547 , p5_a13 JTF_VARCHAR2_TABLE_500
1548 , p5_a14 JTF_VARCHAR2_TABLE_500
1549 , p5_a15 JTF_VARCHAR2_TABLE_500
1550 , p5_a16 JTF_VARCHAR2_TABLE_500
1551 , p5_a17 JTF_VARCHAR2_TABLE_500
1552 , p5_a18 JTF_VARCHAR2_TABLE_500
1553 , p5_a19 JTF_VARCHAR2_TABLE_500
1554 , p5_a20 JTF_VARCHAR2_TABLE_500
1555 , p5_a21 JTF_VARCHAR2_TABLE_500
1556 , p5_a22 JTF_VARCHAR2_TABLE_500
1557 , p5_a23 JTF_NUMBER_TABLE
1558 , p5_a24 JTF_NUMBER_TABLE
1559 , p5_a25 JTF_NUMBER_TABLE
1560 , p5_a26 JTF_DATE_TABLE
1561 , p5_a27 JTF_DATE_TABLE
1562 , p5_a28 JTF_NUMBER_TABLE
1563 , p6_a0 out nocopy JTF_NUMBER_TABLE
1564 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_200
1565 , p6_a2 out nocopy JTF_NUMBER_TABLE
1566 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
1567 , p6_a4 out nocopy JTF_NUMBER_TABLE
1568 , p6_a5 out nocopy JTF_DATE_TABLE
1569 , p6_a6 out nocopy JTF_NUMBER_TABLE
1570 , p6_a7 out nocopy JTF_NUMBER_TABLE
1571 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
1572 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
1573 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
1574 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
1575 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
1576 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
1577 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
1578 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
1579 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
1580 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
1581 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
1582 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
1583 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1584 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1585 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1586 , p6_a23 out nocopy JTF_NUMBER_TABLE
1587 , p6_a24 out nocopy JTF_NUMBER_TABLE
1588 , p6_a25 out nocopy JTF_NUMBER_TABLE
1589 , p6_a26 out nocopy JTF_DATE_TABLE
1590 , p6_a27 out nocopy JTF_DATE_TABLE
1591 , p6_a28 out nocopy JTF_NUMBER_TABLE
1592 )
1593
1594 as
1595 ddp_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1596 ddx_srsv_tbl okl_sif_ret_strms_pub.srsv_tbl_type;
1597 ddindx binary_integer; indx binary_integer;
1598 begin
1599
1600 -- copy data to the local IN or IN-OUT args, if any
1601
1602
1603
1604
1605
1606 okl_srs_pvt_w.rosetta_table_copy_in_p5(ddp_srsv_tbl, p5_a0
1607 , p5_a1
1608 , p5_a2
1609 , p5_a3
1610 , p5_a4
1611 , p5_a5
1612 , p5_a6
1613 , p5_a7
1614 , p5_a8
1615 , p5_a9
1616 , p5_a10
1617 , p5_a11
1618 , p5_a12
1619 , p5_a13
1620 , p5_a14
1621 , p5_a15
1622 , p5_a16
1623 , p5_a17
1624 , p5_a18
1625 , p5_a19
1626 , p5_a20
1627 , p5_a21
1628 , p5_a22
1629 , p5_a23
1630 , p5_a24
1631 , p5_a25
1632 , p5_a26
1633 , p5_a27
1634 , p5_a28
1635 );
1636
1637
1638 -- here's the delegated call to the old PL/SQL routine
1639 okl_sif_ret_strms_pub.validate_sif_ret_strms(p_api_version,
1640 p_init_msg_list,
1641 x_return_status,
1642 x_msg_count,
1643 x_msg_data,
1644 ddp_srsv_tbl,
1645 ddx_srsv_tbl);
1646
1647 -- copy data back from the local variables to OUT or IN-OUT args, if any
1648
1649
1650
1651
1652
1653
1654 okl_srs_pvt_w.rosetta_table_copy_out_p5(ddx_srsv_tbl, p6_a0
1655 , p6_a1
1656 , p6_a2
1657 , p6_a3
1658 , p6_a4
1659 , p6_a5
1660 , p6_a6
1661 , p6_a7
1662 , p6_a8
1663 , p6_a9
1664 , p6_a10
1665 , p6_a11
1666 , p6_a12
1667 , p6_a13
1668 , p6_a14
1669 , p6_a15
1670 , p6_a16
1671 , p6_a17
1672 , p6_a18
1673 , p6_a19
1674 , p6_a20
1675 , p6_a21
1676 , p6_a22
1677 , p6_a23
1678 , p6_a24
1679 , p6_a25
1680 , p6_a26
1681 , p6_a27
1682 , p6_a28
1683 );
1684 end;
1685
1686 end okl_sif_ret_strms_pub_w;