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