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