[Home] [Help]
PACKAGE BODY: APPS.OKL_VP_CHANGE_REQUEST_PVT_W
Source
1 package body okl_vp_change_request_pvt_w as
2 /* $Header: OKLEVCRB.pls 120.0 2005/08/03 07:55:22 sjalasut noship $ */
3 procedure create_change_request_header(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 NUMBER
12 , p5_a4 VARCHAR2
13 , p5_a5 VARCHAR2
14 , p5_a6 DATE
15 , p5_a7 DATE
16 , p5_a8 DATE
17 , p5_a9 DATE
18 , p5_a10 DATE
19 , p5_a11 DATE
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 VARCHAR2
34 , p5_a26 VARCHAR2
35 , p5_a27 VARCHAR2
36 , p5_a28 NUMBER
37 , p5_a29 NUMBER
38 , p5_a30 NUMBER
39 , p5_a31 DATE
40 , p5_a32 NUMBER
41 , p5_a33 DATE
42 , p5_a34 NUMBER
43 , p5_a35 DATE
44 , p5_a36 NUMBER
45 , p6_a0 out nocopy NUMBER
46 , p6_a1 out nocopy NUMBER
47 , p6_a2 out nocopy NUMBER
48 , p6_a3 out nocopy NUMBER
49 , p6_a4 out nocopy VARCHAR2
50 , p6_a5 out nocopy VARCHAR2
51 , p6_a6 out nocopy DATE
52 , p6_a7 out nocopy DATE
53 , p6_a8 out nocopy DATE
54 , p6_a9 out nocopy DATE
55 , p6_a10 out nocopy DATE
56 , p6_a11 out nocopy DATE
57 , p6_a12 out nocopy VARCHAR2
58 , p6_a13 out nocopy VARCHAR2
59 , p6_a14 out nocopy VARCHAR2
60 , p6_a15 out nocopy VARCHAR2
61 , p6_a16 out nocopy VARCHAR2
62 , p6_a17 out nocopy VARCHAR2
63 , p6_a18 out nocopy VARCHAR2
64 , p6_a19 out nocopy VARCHAR2
65 , p6_a20 out nocopy VARCHAR2
66 , p6_a21 out nocopy VARCHAR2
67 , p6_a22 out nocopy VARCHAR2
68 , p6_a23 out nocopy VARCHAR2
69 , p6_a24 out nocopy VARCHAR2
70 , p6_a25 out nocopy VARCHAR2
71 , p6_a26 out nocopy VARCHAR2
72 , p6_a27 out nocopy VARCHAR2
73 , p6_a28 out nocopy NUMBER
74 , p6_a29 out nocopy NUMBER
75 , p6_a30 out nocopy NUMBER
76 , p6_a31 out nocopy DATE
77 , p6_a32 out nocopy NUMBER
78 , p6_a33 out nocopy DATE
79 , p6_a34 out nocopy NUMBER
80 , p6_a35 out nocopy DATE
81 , p6_a36 out nocopy NUMBER
82 )
83
84 as
85 ddp_vcrv_rec okl_vp_change_request_pvt.vcrv_rec_type;
86 ddx_vcrv_rec okl_vp_change_request_pvt.vcrv_rec_type;
87 ddindx binary_integer; indx binary_integer;
88 begin
89
90 -- copy data to the local IN or IN-OUT args, if any
91
92
93
94
95
96 ddp_vcrv_rec.id := p5_a0;
97 ddp_vcrv_rec.object_version_number := p5_a1;
98 ddp_vcrv_rec.change_request_number := p5_a2;
99 ddp_vcrv_rec.chr_id := p5_a3;
100 ddp_vcrv_rec.change_type_code := p5_a4;
101 ddp_vcrv_rec.status_code := p5_a5;
102 ddp_vcrv_rec.request_date := p5_a6;
103 ddp_vcrv_rec.effective_date := p5_a7;
104 ddp_vcrv_rec.approved_date := p5_a8;
105 ddp_vcrv_rec.rejected_date := p5_a9;
106 ddp_vcrv_rec.ineffective_date := p5_a10;
107 ddp_vcrv_rec.applied_date := p5_a11;
108 ddp_vcrv_rec.attribute_category := p5_a12;
109 ddp_vcrv_rec.attribute1 := p5_a13;
110 ddp_vcrv_rec.attribute2 := p5_a14;
111 ddp_vcrv_rec.attribute3 := p5_a15;
112 ddp_vcrv_rec.attribute4 := p5_a16;
113 ddp_vcrv_rec.attribute5 := p5_a17;
114 ddp_vcrv_rec.attribute6 := p5_a18;
115 ddp_vcrv_rec.attribute7 := p5_a19;
116 ddp_vcrv_rec.attribute8 := p5_a20;
117 ddp_vcrv_rec.attribute9 := p5_a21;
118 ddp_vcrv_rec.attribute10 := p5_a22;
119 ddp_vcrv_rec.attribute11 := p5_a23;
120 ddp_vcrv_rec.attribute12 := p5_a24;
121 ddp_vcrv_rec.attribute13 := p5_a25;
122 ddp_vcrv_rec.attribute14 := p5_a26;
123 ddp_vcrv_rec.attribute15 := p5_a27;
124 ddp_vcrv_rec.request_id := p5_a28;
125 ddp_vcrv_rec.program_application_id := p5_a29;
126 ddp_vcrv_rec.program_id := p5_a30;
127 ddp_vcrv_rec.program_update_date := p5_a31;
128 ddp_vcrv_rec.created_by := p5_a32;
129 ddp_vcrv_rec.creation_date := p5_a33;
130 ddp_vcrv_rec.last_updated_by := p5_a34;
131 ddp_vcrv_rec.last_update_date := p5_a35;
132 ddp_vcrv_rec.last_update_login := p5_a36;
133
134
135 -- here's the delegated call to the old PL/SQL routine
136 okl_vp_change_request_pvt.create_change_request_header(p_api_version,
137 p_init_msg_list,
138 x_return_status,
139 x_msg_count,
140 x_msg_data,
141 ddp_vcrv_rec,
142 ddx_vcrv_rec);
143
144 -- copy data back from the local variables to OUT or IN-OUT args, if any
145
146
147
148
149
150
151 p6_a0 := ddx_vcrv_rec.id;
152 p6_a1 := ddx_vcrv_rec.object_version_number;
153 p6_a2 := ddx_vcrv_rec.change_request_number;
154 p6_a3 := ddx_vcrv_rec.chr_id;
155 p6_a4 := ddx_vcrv_rec.change_type_code;
156 p6_a5 := ddx_vcrv_rec.status_code;
157 p6_a6 := ddx_vcrv_rec.request_date;
158 p6_a7 := ddx_vcrv_rec.effective_date;
159 p6_a8 := ddx_vcrv_rec.approved_date;
160 p6_a9 := ddx_vcrv_rec.rejected_date;
161 p6_a10 := ddx_vcrv_rec.ineffective_date;
162 p6_a11 := ddx_vcrv_rec.applied_date;
163 p6_a12 := ddx_vcrv_rec.attribute_category;
164 p6_a13 := ddx_vcrv_rec.attribute1;
165 p6_a14 := ddx_vcrv_rec.attribute2;
166 p6_a15 := ddx_vcrv_rec.attribute3;
167 p6_a16 := ddx_vcrv_rec.attribute4;
168 p6_a17 := ddx_vcrv_rec.attribute5;
169 p6_a18 := ddx_vcrv_rec.attribute6;
170 p6_a19 := ddx_vcrv_rec.attribute7;
171 p6_a20 := ddx_vcrv_rec.attribute8;
172 p6_a21 := ddx_vcrv_rec.attribute9;
173 p6_a22 := ddx_vcrv_rec.attribute10;
174 p6_a23 := ddx_vcrv_rec.attribute11;
175 p6_a24 := ddx_vcrv_rec.attribute12;
176 p6_a25 := ddx_vcrv_rec.attribute13;
177 p6_a26 := ddx_vcrv_rec.attribute14;
178 p6_a27 := ddx_vcrv_rec.attribute15;
179 p6_a28 := ddx_vcrv_rec.request_id;
180 p6_a29 := ddx_vcrv_rec.program_application_id;
181 p6_a30 := ddx_vcrv_rec.program_id;
182 p6_a31 := ddx_vcrv_rec.program_update_date;
183 p6_a32 := ddx_vcrv_rec.created_by;
184 p6_a33 := ddx_vcrv_rec.creation_date;
185 p6_a34 := ddx_vcrv_rec.last_updated_by;
186 p6_a35 := ddx_vcrv_rec.last_update_date;
187 p6_a36 := ddx_vcrv_rec.last_update_login;
188 end;
189
190 procedure update_change_request_header(p_api_version NUMBER
191 , p_init_msg_list VARCHAR2
192 , x_return_status out nocopy VARCHAR2
193 , x_msg_count out nocopy NUMBER
194 , x_msg_data out nocopy VARCHAR2
195 , p5_a0 NUMBER
196 , p5_a1 NUMBER
197 , p5_a2 NUMBER
198 , p5_a3 NUMBER
199 , p5_a4 VARCHAR2
200 , p5_a5 VARCHAR2
201 , p5_a6 DATE
202 , p5_a7 DATE
203 , p5_a8 DATE
204 , p5_a9 DATE
205 , p5_a10 DATE
206 , p5_a11 DATE
207 , p5_a12 VARCHAR2
208 , p5_a13 VARCHAR2
209 , p5_a14 VARCHAR2
210 , p5_a15 VARCHAR2
211 , p5_a16 VARCHAR2
212 , p5_a17 VARCHAR2
213 , p5_a18 VARCHAR2
214 , p5_a19 VARCHAR2
215 , p5_a20 VARCHAR2
216 , p5_a21 VARCHAR2
217 , p5_a22 VARCHAR2
218 , p5_a23 VARCHAR2
219 , p5_a24 VARCHAR2
220 , p5_a25 VARCHAR2
221 , p5_a26 VARCHAR2
222 , p5_a27 VARCHAR2
223 , p5_a28 NUMBER
224 , p5_a29 NUMBER
225 , p5_a30 NUMBER
226 , p5_a31 DATE
227 , p5_a32 NUMBER
228 , p5_a33 DATE
229 , p5_a34 NUMBER
230 , p5_a35 DATE
231 , p5_a36 NUMBER
232 , p6_a0 out nocopy NUMBER
233 , p6_a1 out nocopy NUMBER
234 , p6_a2 out nocopy NUMBER
235 , p6_a3 out nocopy NUMBER
236 , p6_a4 out nocopy VARCHAR2
237 , p6_a5 out nocopy VARCHAR2
238 , p6_a6 out nocopy DATE
239 , p6_a7 out nocopy DATE
240 , p6_a8 out nocopy DATE
241 , p6_a9 out nocopy DATE
242 , p6_a10 out nocopy DATE
243 , p6_a11 out nocopy DATE
244 , p6_a12 out nocopy VARCHAR2
245 , p6_a13 out nocopy VARCHAR2
246 , p6_a14 out nocopy VARCHAR2
247 , p6_a15 out nocopy VARCHAR2
248 , p6_a16 out nocopy VARCHAR2
249 , p6_a17 out nocopy VARCHAR2
250 , p6_a18 out nocopy VARCHAR2
251 , p6_a19 out nocopy VARCHAR2
252 , p6_a20 out nocopy VARCHAR2
253 , p6_a21 out nocopy VARCHAR2
254 , p6_a22 out nocopy VARCHAR2
255 , p6_a23 out nocopy VARCHAR2
256 , p6_a24 out nocopy VARCHAR2
257 , p6_a25 out nocopy VARCHAR2
258 , p6_a26 out nocopy VARCHAR2
259 , p6_a27 out nocopy VARCHAR2
260 , p6_a28 out nocopy NUMBER
261 , p6_a29 out nocopy NUMBER
262 , p6_a30 out nocopy NUMBER
263 , p6_a31 out nocopy DATE
264 , p6_a32 out nocopy NUMBER
265 , p6_a33 out nocopy DATE
266 , p6_a34 out nocopy NUMBER
267 , p6_a35 out nocopy DATE
268 , p6_a36 out nocopy NUMBER
269 )
270
271 as
272 ddp_vcrv_rec okl_vp_change_request_pvt.vcrv_rec_type;
273 ddx_vcrv_rec okl_vp_change_request_pvt.vcrv_rec_type;
274 ddindx binary_integer; indx binary_integer;
275 begin
276
277 -- copy data to the local IN or IN-OUT args, if any
278
279
280
281
282
283 ddp_vcrv_rec.id := p5_a0;
284 ddp_vcrv_rec.object_version_number := p5_a1;
285 ddp_vcrv_rec.change_request_number := p5_a2;
286 ddp_vcrv_rec.chr_id := p5_a3;
287 ddp_vcrv_rec.change_type_code := p5_a4;
288 ddp_vcrv_rec.status_code := p5_a5;
289 ddp_vcrv_rec.request_date := p5_a6;
290 ddp_vcrv_rec.effective_date := p5_a7;
291 ddp_vcrv_rec.approved_date := p5_a8;
292 ddp_vcrv_rec.rejected_date := p5_a9;
293 ddp_vcrv_rec.ineffective_date := p5_a10;
294 ddp_vcrv_rec.applied_date := p5_a11;
295 ddp_vcrv_rec.attribute_category := p5_a12;
296 ddp_vcrv_rec.attribute1 := p5_a13;
297 ddp_vcrv_rec.attribute2 := p5_a14;
298 ddp_vcrv_rec.attribute3 := p5_a15;
299 ddp_vcrv_rec.attribute4 := p5_a16;
300 ddp_vcrv_rec.attribute5 := p5_a17;
301 ddp_vcrv_rec.attribute6 := p5_a18;
302 ddp_vcrv_rec.attribute7 := p5_a19;
303 ddp_vcrv_rec.attribute8 := p5_a20;
304 ddp_vcrv_rec.attribute9 := p5_a21;
305 ddp_vcrv_rec.attribute10 := p5_a22;
306 ddp_vcrv_rec.attribute11 := p5_a23;
307 ddp_vcrv_rec.attribute12 := p5_a24;
308 ddp_vcrv_rec.attribute13 := p5_a25;
309 ddp_vcrv_rec.attribute14 := p5_a26;
310 ddp_vcrv_rec.attribute15 := p5_a27;
311 ddp_vcrv_rec.request_id := p5_a28;
312 ddp_vcrv_rec.program_application_id := p5_a29;
313 ddp_vcrv_rec.program_id := p5_a30;
314 ddp_vcrv_rec.program_update_date := p5_a31;
315 ddp_vcrv_rec.created_by := p5_a32;
316 ddp_vcrv_rec.creation_date := p5_a33;
317 ddp_vcrv_rec.last_updated_by := p5_a34;
318 ddp_vcrv_rec.last_update_date := p5_a35;
319 ddp_vcrv_rec.last_update_login := p5_a36;
320
321
322 -- here's the delegated call to the old PL/SQL routine
323 okl_vp_change_request_pvt.update_change_request_header(p_api_version,
324 p_init_msg_list,
325 x_return_status,
326 x_msg_count,
327 x_msg_data,
328 ddp_vcrv_rec,
329 ddx_vcrv_rec);
330
331 -- copy data back from the local variables to OUT or IN-OUT args, if any
332
333
334
335
336
337
338 p6_a0 := ddx_vcrv_rec.id;
339 p6_a1 := ddx_vcrv_rec.object_version_number;
340 p6_a2 := ddx_vcrv_rec.change_request_number;
341 p6_a3 := ddx_vcrv_rec.chr_id;
342 p6_a4 := ddx_vcrv_rec.change_type_code;
343 p6_a5 := ddx_vcrv_rec.status_code;
344 p6_a6 := ddx_vcrv_rec.request_date;
345 p6_a7 := ddx_vcrv_rec.effective_date;
346 p6_a8 := ddx_vcrv_rec.approved_date;
347 p6_a9 := ddx_vcrv_rec.rejected_date;
348 p6_a10 := ddx_vcrv_rec.ineffective_date;
349 p6_a11 := ddx_vcrv_rec.applied_date;
350 p6_a12 := ddx_vcrv_rec.attribute_category;
351 p6_a13 := ddx_vcrv_rec.attribute1;
352 p6_a14 := ddx_vcrv_rec.attribute2;
353 p6_a15 := ddx_vcrv_rec.attribute3;
354 p6_a16 := ddx_vcrv_rec.attribute4;
355 p6_a17 := ddx_vcrv_rec.attribute5;
356 p6_a18 := ddx_vcrv_rec.attribute6;
357 p6_a19 := ddx_vcrv_rec.attribute7;
358 p6_a20 := ddx_vcrv_rec.attribute8;
359 p6_a21 := ddx_vcrv_rec.attribute9;
360 p6_a22 := ddx_vcrv_rec.attribute10;
361 p6_a23 := ddx_vcrv_rec.attribute11;
362 p6_a24 := ddx_vcrv_rec.attribute12;
363 p6_a25 := ddx_vcrv_rec.attribute13;
364 p6_a26 := ddx_vcrv_rec.attribute14;
365 p6_a27 := ddx_vcrv_rec.attribute15;
366 p6_a28 := ddx_vcrv_rec.request_id;
367 p6_a29 := ddx_vcrv_rec.program_application_id;
368 p6_a30 := ddx_vcrv_rec.program_id;
369 p6_a31 := ddx_vcrv_rec.program_update_date;
370 p6_a32 := ddx_vcrv_rec.created_by;
371 p6_a33 := ddx_vcrv_rec.creation_date;
372 p6_a34 := ddx_vcrv_rec.last_updated_by;
373 p6_a35 := ddx_vcrv_rec.last_update_date;
374 p6_a36 := ddx_vcrv_rec.last_update_login;
375 end;
376
377 procedure create_change_request_lines(p_api_version NUMBER
378 , p_init_msg_list VARCHAR2
379 , x_return_status out nocopy VARCHAR2
380 , x_msg_count out nocopy NUMBER
381 , x_msg_data out nocopy VARCHAR2
382 , p5_a0 JTF_NUMBER_TABLE
383 , p5_a1 JTF_NUMBER_TABLE
384 , p5_a2 JTF_NUMBER_TABLE
385 , p5_a3 JTF_VARCHAR2_TABLE_100
386 , p5_a4 JTF_VARCHAR2_TABLE_400
387 , p5_a5 JTF_VARCHAR2_TABLE_2000
388 , p5_a6 JTF_VARCHAR2_TABLE_100
389 , p5_a7 JTF_VARCHAR2_TABLE_500
390 , p5_a8 JTF_VARCHAR2_TABLE_500
391 , p5_a9 JTF_VARCHAR2_TABLE_500
392 , p5_a10 JTF_VARCHAR2_TABLE_500
393 , p5_a11 JTF_VARCHAR2_TABLE_500
394 , p5_a12 JTF_VARCHAR2_TABLE_500
395 , p5_a13 JTF_VARCHAR2_TABLE_500
396 , p5_a14 JTF_VARCHAR2_TABLE_500
397 , p5_a15 JTF_VARCHAR2_TABLE_500
398 , p5_a16 JTF_VARCHAR2_TABLE_500
399 , p5_a17 JTF_VARCHAR2_TABLE_500
400 , p5_a18 JTF_VARCHAR2_TABLE_500
401 , p5_a19 JTF_VARCHAR2_TABLE_500
402 , p5_a20 JTF_VARCHAR2_TABLE_500
403 , p5_a21 JTF_VARCHAR2_TABLE_500
404 , p5_a22 JTF_NUMBER_TABLE
405 , p5_a23 JTF_NUMBER_TABLE
406 , p5_a24 JTF_NUMBER_TABLE
407 , p5_a25 JTF_DATE_TABLE
408 , p5_a26 JTF_NUMBER_TABLE
409 , p5_a27 JTF_DATE_TABLE
410 , p5_a28 JTF_NUMBER_TABLE
411 , p5_a29 JTF_DATE_TABLE
412 , p5_a30 JTF_NUMBER_TABLE
413 , p6_a0 out nocopy JTF_NUMBER_TABLE
414 , p6_a1 out nocopy JTF_NUMBER_TABLE
415 , p6_a2 out nocopy JTF_NUMBER_TABLE
416 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
417 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_400
418 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_2000
419 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
420 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
421 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
422 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
423 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
424 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
425 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
426 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
427 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
428 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
429 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
430 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
431 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
432 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
433 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
434 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
435 , p6_a22 out nocopy JTF_NUMBER_TABLE
436 , p6_a23 out nocopy JTF_NUMBER_TABLE
437 , p6_a24 out nocopy JTF_NUMBER_TABLE
438 , p6_a25 out nocopy JTF_DATE_TABLE
439 , p6_a26 out nocopy JTF_NUMBER_TABLE
440 , p6_a27 out nocopy JTF_DATE_TABLE
441 , p6_a28 out nocopy JTF_NUMBER_TABLE
442 , p6_a29 out nocopy JTF_DATE_TABLE
443 , p6_a30 out nocopy JTF_NUMBER_TABLE
444 , x_request_status out nocopy VARCHAR2
445 )
446
447 as
448 ddp_vrrv_tbl okl_vp_change_request_pvt.vrrv_tbl_type;
449 ddx_vrrv_tbl okl_vp_change_request_pvt.vrrv_tbl_type;
450 ddindx binary_integer; indx binary_integer;
451 begin
452
453 -- copy data to the local IN or IN-OUT args, if any
454
455
456
457
458
459 okl_vrr_pvt_w.rosetta_table_copy_in_p2(ddp_vrrv_tbl, p5_a0
460 , p5_a1
461 , p5_a2
462 , p5_a3
463 , p5_a4
464 , p5_a5
465 , p5_a6
466 , p5_a7
467 , p5_a8
468 , p5_a9
469 , p5_a10
470 , p5_a11
471 , p5_a12
472 , p5_a13
473 , p5_a14
474 , p5_a15
475 , p5_a16
476 , p5_a17
477 , p5_a18
478 , p5_a19
479 , p5_a20
480 , p5_a21
481 , p5_a22
482 , p5_a23
483 , p5_a24
484 , p5_a25
485 , p5_a26
486 , p5_a27
487 , p5_a28
488 , p5_a29
489 , p5_a30
490 );
491
492
493
494 -- here's the delegated call to the old PL/SQL routine
495 okl_vp_change_request_pvt.create_change_request_lines(p_api_version,
496 p_init_msg_list,
497 x_return_status,
498 x_msg_count,
499 x_msg_data,
500 ddp_vrrv_tbl,
501 ddx_vrrv_tbl,
502 x_request_status);
503
504 -- copy data back from the local variables to OUT or IN-OUT args, if any
505
506
507
508
509
510
511 okl_vrr_pvt_w.rosetta_table_copy_out_p2(ddx_vrrv_tbl, p6_a0
512 , p6_a1
513 , p6_a2
514 , p6_a3
515 , p6_a4
516 , p6_a5
517 , p6_a6
518 , p6_a7
519 , p6_a8
520 , p6_a9
521 , p6_a10
522 , p6_a11
523 , p6_a12
524 , p6_a13
525 , p6_a14
526 , p6_a15
527 , p6_a16
528 , p6_a17
529 , p6_a18
530 , p6_a19
531 , p6_a20
532 , p6_a21
533 , p6_a22
534 , p6_a23
535 , p6_a24
536 , p6_a25
537 , p6_a26
538 , p6_a27
539 , p6_a28
540 , p6_a29
541 , p6_a30
542 );
543
544 end;
545
546 procedure update_change_request_lines(p_api_version NUMBER
547 , p_init_msg_list VARCHAR2
548 , x_return_status out nocopy VARCHAR2
549 , x_msg_count out nocopy NUMBER
550 , x_msg_data out nocopy VARCHAR2
551 , p5_a0 JTF_NUMBER_TABLE
552 , p5_a1 JTF_NUMBER_TABLE
553 , p5_a2 JTF_NUMBER_TABLE
554 , p5_a3 JTF_VARCHAR2_TABLE_100
555 , p5_a4 JTF_VARCHAR2_TABLE_400
556 , p5_a5 JTF_VARCHAR2_TABLE_2000
557 , p5_a6 JTF_VARCHAR2_TABLE_100
558 , p5_a7 JTF_VARCHAR2_TABLE_500
559 , p5_a8 JTF_VARCHAR2_TABLE_500
560 , p5_a9 JTF_VARCHAR2_TABLE_500
561 , p5_a10 JTF_VARCHAR2_TABLE_500
562 , p5_a11 JTF_VARCHAR2_TABLE_500
563 , p5_a12 JTF_VARCHAR2_TABLE_500
564 , p5_a13 JTF_VARCHAR2_TABLE_500
565 , p5_a14 JTF_VARCHAR2_TABLE_500
566 , p5_a15 JTF_VARCHAR2_TABLE_500
567 , p5_a16 JTF_VARCHAR2_TABLE_500
568 , p5_a17 JTF_VARCHAR2_TABLE_500
569 , p5_a18 JTF_VARCHAR2_TABLE_500
570 , p5_a19 JTF_VARCHAR2_TABLE_500
571 , p5_a20 JTF_VARCHAR2_TABLE_500
572 , p5_a21 JTF_VARCHAR2_TABLE_500
573 , p5_a22 JTF_NUMBER_TABLE
574 , p5_a23 JTF_NUMBER_TABLE
575 , p5_a24 JTF_NUMBER_TABLE
576 , p5_a25 JTF_DATE_TABLE
577 , p5_a26 JTF_NUMBER_TABLE
578 , p5_a27 JTF_DATE_TABLE
579 , p5_a28 JTF_NUMBER_TABLE
580 , p5_a29 JTF_DATE_TABLE
581 , p5_a30 JTF_NUMBER_TABLE
582 , p6_a0 out nocopy JTF_NUMBER_TABLE
583 , p6_a1 out nocopy JTF_NUMBER_TABLE
584 , p6_a2 out nocopy JTF_NUMBER_TABLE
585 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
586 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_400
587 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_2000
588 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
589 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_500
590 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_500
591 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
592 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
593 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
594 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
595 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
596 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
597 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
598 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
599 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
600 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
601 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
602 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
603 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
604 , p6_a22 out nocopy JTF_NUMBER_TABLE
605 , p6_a23 out nocopy JTF_NUMBER_TABLE
606 , p6_a24 out nocopy JTF_NUMBER_TABLE
607 , p6_a25 out nocopy JTF_DATE_TABLE
608 , p6_a26 out nocopy JTF_NUMBER_TABLE
609 , p6_a27 out nocopy JTF_DATE_TABLE
610 , p6_a28 out nocopy JTF_NUMBER_TABLE
611 , p6_a29 out nocopy JTF_DATE_TABLE
612 , p6_a30 out nocopy JTF_NUMBER_TABLE
613 , x_request_status out nocopy VARCHAR2
614 )
615
616 as
617 ddp_vrrv_tbl okl_vp_change_request_pvt.vrrv_tbl_type;
618 ddx_vrrv_tbl okl_vp_change_request_pvt.vrrv_tbl_type;
619 ddindx binary_integer; indx binary_integer;
620 begin
621
622 -- copy data to the local IN or IN-OUT args, if any
623
624
625
626
627
628 okl_vrr_pvt_w.rosetta_table_copy_in_p2(ddp_vrrv_tbl, p5_a0
629 , p5_a1
630 , p5_a2
631 , p5_a3
632 , p5_a4
633 , p5_a5
634 , p5_a6
635 , p5_a7
636 , p5_a8
637 , p5_a9
638 , p5_a10
639 , p5_a11
640 , p5_a12
641 , p5_a13
642 , p5_a14
643 , p5_a15
644 , p5_a16
645 , p5_a17
646 , p5_a18
647 , p5_a19
648 , p5_a20
649 , p5_a21
650 , p5_a22
651 , p5_a23
652 , p5_a24
653 , p5_a25
654 , p5_a26
655 , p5_a27
656 , p5_a28
657 , p5_a29
658 , p5_a30
659 );
660
661
662
663 -- here's the delegated call to the old PL/SQL routine
664 okl_vp_change_request_pvt.update_change_request_lines(p_api_version,
665 p_init_msg_list,
666 x_return_status,
667 x_msg_count,
668 x_msg_data,
669 ddp_vrrv_tbl,
670 ddx_vrrv_tbl,
671 x_request_status);
672
673 -- copy data back from the local variables to OUT or IN-OUT args, if any
674
675
676
677
678
679
680 okl_vrr_pvt_w.rosetta_table_copy_out_p2(ddx_vrrv_tbl, p6_a0
681 , p6_a1
682 , p6_a2
683 , p6_a3
684 , p6_a4
685 , p6_a5
686 , p6_a6
687 , p6_a7
688 , p6_a8
689 , p6_a9
690 , p6_a10
691 , p6_a11
692 , p6_a12
693 , p6_a13
694 , p6_a14
695 , p6_a15
696 , p6_a16
697 , p6_a17
698 , p6_a18
699 , p6_a19
700 , p6_a20
701 , p6_a21
702 , p6_a22
703 , p6_a23
704 , p6_a24
705 , p6_a25
706 , p6_a26
707 , p6_a27
708 , p6_a28
709 , p6_a29
710 , p6_a30
711 );
712
713 end;
714
715 procedure delete_change_request_lines(p_api_version NUMBER
716 , p_init_msg_list VARCHAR2
717 , x_return_status out nocopy VARCHAR2
718 , x_msg_count out nocopy NUMBER
719 , x_msg_data out nocopy VARCHAR2
720 , p5_a0 JTF_NUMBER_TABLE
721 , p5_a1 JTF_NUMBER_TABLE
722 , p5_a2 JTF_NUMBER_TABLE
723 , p5_a3 JTF_VARCHAR2_TABLE_100
724 , p5_a4 JTF_VARCHAR2_TABLE_400
725 , p5_a5 JTF_VARCHAR2_TABLE_2000
726 , p5_a6 JTF_VARCHAR2_TABLE_100
727 , p5_a7 JTF_VARCHAR2_TABLE_500
728 , p5_a8 JTF_VARCHAR2_TABLE_500
729 , p5_a9 JTF_VARCHAR2_TABLE_500
730 , p5_a10 JTF_VARCHAR2_TABLE_500
731 , p5_a11 JTF_VARCHAR2_TABLE_500
732 , p5_a12 JTF_VARCHAR2_TABLE_500
733 , p5_a13 JTF_VARCHAR2_TABLE_500
734 , p5_a14 JTF_VARCHAR2_TABLE_500
735 , p5_a15 JTF_VARCHAR2_TABLE_500
736 , p5_a16 JTF_VARCHAR2_TABLE_500
737 , p5_a17 JTF_VARCHAR2_TABLE_500
738 , p5_a18 JTF_VARCHAR2_TABLE_500
739 , p5_a19 JTF_VARCHAR2_TABLE_500
740 , p5_a20 JTF_VARCHAR2_TABLE_500
741 , p5_a21 JTF_VARCHAR2_TABLE_500
742 , p5_a22 JTF_NUMBER_TABLE
743 , p5_a23 JTF_NUMBER_TABLE
744 , p5_a24 JTF_NUMBER_TABLE
745 , p5_a25 JTF_DATE_TABLE
746 , p5_a26 JTF_NUMBER_TABLE
747 , p5_a27 JTF_DATE_TABLE
748 , p5_a28 JTF_NUMBER_TABLE
749 , p5_a29 JTF_DATE_TABLE
750 , p5_a30 JTF_NUMBER_TABLE
751 , x_request_status out nocopy VARCHAR2
752 )
753
754 as
755 ddp_vrrv_tbl okl_vp_change_request_pvt.vrrv_tbl_type;
756 ddindx binary_integer; indx binary_integer;
757 begin
758
759 -- copy data to the local IN or IN-OUT args, if any
760
761
762
763
764
765 okl_vrr_pvt_w.rosetta_table_copy_in_p2(ddp_vrrv_tbl, p5_a0
766 , p5_a1
767 , p5_a2
768 , p5_a3
769 , p5_a4
770 , p5_a5
771 , p5_a6
772 , p5_a7
773 , p5_a8
774 , p5_a9
775 , p5_a10
776 , p5_a11
777 , p5_a12
778 , p5_a13
779 , p5_a14
780 , p5_a15
781 , p5_a16
782 , p5_a17
783 , p5_a18
784 , p5_a19
785 , p5_a20
786 , p5_a21
787 , p5_a22
788 , p5_a23
789 , p5_a24
790 , p5_a25
791 , p5_a26
792 , p5_a27
793 , p5_a28
794 , p5_a29
795 , p5_a30
796 );
797
798
799 -- here's the delegated call to the old PL/SQL routine
800 okl_vp_change_request_pvt.delete_change_request_lines(p_api_version,
801 p_init_msg_list,
802 x_return_status,
803 x_msg_count,
804 x_msg_data,
805 ddp_vrrv_tbl,
806 x_request_status);
807
808 -- copy data back from the local variables to OUT or IN-OUT args, if any
809
810
811
812
813
814
815 end;
816
817 procedure create_change_request(p_api_version NUMBER
818 , p_init_msg_list VARCHAR2
819 , x_return_status out nocopy VARCHAR2
820 , x_msg_count out nocopy NUMBER
821 , x_msg_data out nocopy VARCHAR2
822 , p5_a0 NUMBER
823 , p5_a1 NUMBER
824 , p5_a2 NUMBER
825 , p5_a3 NUMBER
826 , p5_a4 VARCHAR2
827 , p5_a5 VARCHAR2
828 , p5_a6 DATE
829 , p5_a7 DATE
830 , p5_a8 DATE
831 , p5_a9 DATE
832 , p5_a10 DATE
833 , p5_a11 DATE
834 , p5_a12 VARCHAR2
835 , p5_a13 VARCHAR2
836 , p5_a14 VARCHAR2
837 , p5_a15 VARCHAR2
838 , p5_a16 VARCHAR2
839 , p5_a17 VARCHAR2
840 , p5_a18 VARCHAR2
841 , p5_a19 VARCHAR2
842 , p5_a20 VARCHAR2
843 , p5_a21 VARCHAR2
844 , p5_a22 VARCHAR2
845 , p5_a23 VARCHAR2
846 , p5_a24 VARCHAR2
847 , p5_a25 VARCHAR2
848 , p5_a26 VARCHAR2
849 , p5_a27 VARCHAR2
850 , p5_a28 NUMBER
851 , p5_a29 NUMBER
852 , p5_a30 NUMBER
853 , p5_a31 DATE
854 , p5_a32 NUMBER
855 , p5_a33 DATE
856 , p5_a34 NUMBER
857 , p5_a35 DATE
858 , p5_a36 NUMBER
859 , p6_a0 JTF_NUMBER_TABLE
860 , p6_a1 JTF_NUMBER_TABLE
861 , p6_a2 JTF_NUMBER_TABLE
862 , p6_a3 JTF_VARCHAR2_TABLE_100
863 , p6_a4 JTF_VARCHAR2_TABLE_400
864 , p6_a5 JTF_VARCHAR2_TABLE_2000
865 , p6_a6 JTF_VARCHAR2_TABLE_100
866 , p6_a7 JTF_VARCHAR2_TABLE_500
867 , p6_a8 JTF_VARCHAR2_TABLE_500
868 , p6_a9 JTF_VARCHAR2_TABLE_500
869 , p6_a10 JTF_VARCHAR2_TABLE_500
870 , p6_a11 JTF_VARCHAR2_TABLE_500
871 , p6_a12 JTF_VARCHAR2_TABLE_500
872 , p6_a13 JTF_VARCHAR2_TABLE_500
873 , p6_a14 JTF_VARCHAR2_TABLE_500
874 , p6_a15 JTF_VARCHAR2_TABLE_500
875 , p6_a16 JTF_VARCHAR2_TABLE_500
876 , p6_a17 JTF_VARCHAR2_TABLE_500
877 , p6_a18 JTF_VARCHAR2_TABLE_500
878 , p6_a19 JTF_VARCHAR2_TABLE_500
879 , p6_a20 JTF_VARCHAR2_TABLE_500
880 , p6_a21 JTF_VARCHAR2_TABLE_500
881 , p6_a22 JTF_NUMBER_TABLE
882 , p6_a23 JTF_NUMBER_TABLE
883 , p6_a24 JTF_NUMBER_TABLE
884 , p6_a25 JTF_DATE_TABLE
885 , p6_a26 JTF_NUMBER_TABLE
886 , p6_a27 JTF_DATE_TABLE
887 , p6_a28 JTF_NUMBER_TABLE
888 , p6_a29 JTF_DATE_TABLE
889 , p6_a30 JTF_NUMBER_TABLE
890 , p7_a0 out nocopy NUMBER
891 , p7_a1 out nocopy NUMBER
892 , p7_a2 out nocopy NUMBER
893 , p7_a3 out nocopy NUMBER
894 , p7_a4 out nocopy VARCHAR2
895 , p7_a5 out nocopy VARCHAR2
896 , p7_a6 out nocopy DATE
897 , p7_a7 out nocopy DATE
898 , p7_a8 out nocopy DATE
899 , p7_a9 out nocopy DATE
900 , p7_a10 out nocopy DATE
901 , p7_a11 out nocopy DATE
902 , p7_a12 out nocopy VARCHAR2
903 , p7_a13 out nocopy VARCHAR2
904 , p7_a14 out nocopy VARCHAR2
905 , p7_a15 out nocopy VARCHAR2
906 , p7_a16 out nocopy VARCHAR2
907 , p7_a17 out nocopy VARCHAR2
908 , p7_a18 out nocopy VARCHAR2
909 , p7_a19 out nocopy VARCHAR2
910 , p7_a20 out nocopy VARCHAR2
911 , p7_a21 out nocopy VARCHAR2
912 , p7_a22 out nocopy VARCHAR2
913 , p7_a23 out nocopy VARCHAR2
914 , p7_a24 out nocopy VARCHAR2
915 , p7_a25 out nocopy VARCHAR2
916 , p7_a26 out nocopy VARCHAR2
917 , p7_a27 out nocopy VARCHAR2
918 , p7_a28 out nocopy NUMBER
919 , p7_a29 out nocopy NUMBER
920 , p7_a30 out nocopy NUMBER
921 , p7_a31 out nocopy DATE
922 , p7_a32 out nocopy NUMBER
923 , p7_a33 out nocopy DATE
924 , p7_a34 out nocopy NUMBER
925 , p7_a35 out nocopy DATE
926 , p7_a36 out nocopy NUMBER
927 , p8_a0 out nocopy JTF_NUMBER_TABLE
928 , p8_a1 out nocopy JTF_NUMBER_TABLE
929 , p8_a2 out nocopy JTF_NUMBER_TABLE
930 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
931 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_400
932 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_2000
933 , p8_a6 out nocopy JTF_VARCHAR2_TABLE_100
934 , p8_a7 out nocopy JTF_VARCHAR2_TABLE_500
935 , p8_a8 out nocopy JTF_VARCHAR2_TABLE_500
936 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_500
937 , p8_a10 out nocopy JTF_VARCHAR2_TABLE_500
938 , p8_a11 out nocopy JTF_VARCHAR2_TABLE_500
939 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_500
940 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_500
941 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_500
942 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_500
943 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_500
944 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_500
945 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_500
946 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_500
947 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_500
948 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
949 , p8_a22 out nocopy JTF_NUMBER_TABLE
950 , p8_a23 out nocopy JTF_NUMBER_TABLE
951 , p8_a24 out nocopy JTF_NUMBER_TABLE
952 , p8_a25 out nocopy JTF_DATE_TABLE
953 , p8_a26 out nocopy JTF_NUMBER_TABLE
954 , p8_a27 out nocopy JTF_DATE_TABLE
955 , p8_a28 out nocopy JTF_NUMBER_TABLE
956 , p8_a29 out nocopy JTF_DATE_TABLE
957 , p8_a30 out nocopy JTF_NUMBER_TABLE
958 )
959
960 as
961 ddp_vcrv_rec okl_vp_change_request_pvt.vcrv_rec_type;
962 ddp_vrrv_tbl okl_vp_change_request_pvt.vrrv_tbl_type;
963 ddx_vcrv_rec okl_vp_change_request_pvt.vcrv_rec_type;
964 ddx_vrrv_tbl okl_vp_change_request_pvt.vrrv_tbl_type;
965 ddindx binary_integer; indx binary_integer;
966 begin
967
968 -- copy data to the local IN or IN-OUT args, if any
969
970
971
972
973
974 ddp_vcrv_rec.id := p5_a0;
975 ddp_vcrv_rec.object_version_number := p5_a1;
976 ddp_vcrv_rec.change_request_number := p5_a2;
977 ddp_vcrv_rec.chr_id := p5_a3;
978 ddp_vcrv_rec.change_type_code := p5_a4;
979 ddp_vcrv_rec.status_code := p5_a5;
980 ddp_vcrv_rec.request_date := p5_a6;
981 ddp_vcrv_rec.effective_date := p5_a7;
982 ddp_vcrv_rec.approved_date := p5_a8;
983 ddp_vcrv_rec.rejected_date := p5_a9;
984 ddp_vcrv_rec.ineffective_date := p5_a10;
985 ddp_vcrv_rec.applied_date := p5_a11;
986 ddp_vcrv_rec.attribute_category := p5_a12;
987 ddp_vcrv_rec.attribute1 := p5_a13;
988 ddp_vcrv_rec.attribute2 := p5_a14;
989 ddp_vcrv_rec.attribute3 := p5_a15;
990 ddp_vcrv_rec.attribute4 := p5_a16;
991 ddp_vcrv_rec.attribute5 := p5_a17;
992 ddp_vcrv_rec.attribute6 := p5_a18;
993 ddp_vcrv_rec.attribute7 := p5_a19;
994 ddp_vcrv_rec.attribute8 := p5_a20;
995 ddp_vcrv_rec.attribute9 := p5_a21;
996 ddp_vcrv_rec.attribute10 := p5_a22;
997 ddp_vcrv_rec.attribute11 := p5_a23;
998 ddp_vcrv_rec.attribute12 := p5_a24;
999 ddp_vcrv_rec.attribute13 := p5_a25;
1000 ddp_vcrv_rec.attribute14 := p5_a26;
1001 ddp_vcrv_rec.attribute15 := p5_a27;
1002 ddp_vcrv_rec.request_id := p5_a28;
1003 ddp_vcrv_rec.program_application_id := p5_a29;
1004 ddp_vcrv_rec.program_id := p5_a30;
1005 ddp_vcrv_rec.program_update_date := p5_a31;
1006 ddp_vcrv_rec.created_by := p5_a32;
1007 ddp_vcrv_rec.creation_date := p5_a33;
1008 ddp_vcrv_rec.last_updated_by := p5_a34;
1009 ddp_vcrv_rec.last_update_date := p5_a35;
1010 ddp_vcrv_rec.last_update_login := p5_a36;
1011
1012 okl_vrr_pvt_w.rosetta_table_copy_in_p2(ddp_vrrv_tbl, p6_a0
1013 , p6_a1
1014 , p6_a2
1015 , p6_a3
1016 , p6_a4
1017 , p6_a5
1018 , p6_a6
1019 , p6_a7
1020 , p6_a8
1021 , p6_a9
1022 , p6_a10
1023 , p6_a11
1024 , p6_a12
1025 , p6_a13
1026 , p6_a14
1027 , p6_a15
1028 , p6_a16
1029 , p6_a17
1030 , p6_a18
1031 , p6_a19
1032 , p6_a20
1033 , p6_a21
1034 , p6_a22
1035 , p6_a23
1036 , p6_a24
1037 , p6_a25
1038 , p6_a26
1039 , p6_a27
1040 , p6_a28
1041 , p6_a29
1042 , p6_a30
1043 );
1044
1045
1046
1047 -- here's the delegated call to the old PL/SQL routine
1048 okl_vp_change_request_pvt.create_change_request(p_api_version,
1049 p_init_msg_list,
1050 x_return_status,
1051 x_msg_count,
1052 x_msg_data,
1053 ddp_vcrv_rec,
1054 ddp_vrrv_tbl,
1055 ddx_vcrv_rec,
1056 ddx_vrrv_tbl);
1057
1058 -- copy data back from the local variables to OUT or IN-OUT args, if any
1059
1060
1061
1062
1063
1064
1065
1066 p7_a0 := ddx_vcrv_rec.id;
1067 p7_a1 := ddx_vcrv_rec.object_version_number;
1068 p7_a2 := ddx_vcrv_rec.change_request_number;
1069 p7_a3 := ddx_vcrv_rec.chr_id;
1070 p7_a4 := ddx_vcrv_rec.change_type_code;
1071 p7_a5 := ddx_vcrv_rec.status_code;
1072 p7_a6 := ddx_vcrv_rec.request_date;
1073 p7_a7 := ddx_vcrv_rec.effective_date;
1074 p7_a8 := ddx_vcrv_rec.approved_date;
1075 p7_a9 := ddx_vcrv_rec.rejected_date;
1076 p7_a10 := ddx_vcrv_rec.ineffective_date;
1077 p7_a11 := ddx_vcrv_rec.applied_date;
1078 p7_a12 := ddx_vcrv_rec.attribute_category;
1079 p7_a13 := ddx_vcrv_rec.attribute1;
1080 p7_a14 := ddx_vcrv_rec.attribute2;
1081 p7_a15 := ddx_vcrv_rec.attribute3;
1082 p7_a16 := ddx_vcrv_rec.attribute4;
1083 p7_a17 := ddx_vcrv_rec.attribute5;
1084 p7_a18 := ddx_vcrv_rec.attribute6;
1085 p7_a19 := ddx_vcrv_rec.attribute7;
1086 p7_a20 := ddx_vcrv_rec.attribute8;
1087 p7_a21 := ddx_vcrv_rec.attribute9;
1088 p7_a22 := ddx_vcrv_rec.attribute10;
1089 p7_a23 := ddx_vcrv_rec.attribute11;
1090 p7_a24 := ddx_vcrv_rec.attribute12;
1091 p7_a25 := ddx_vcrv_rec.attribute13;
1092 p7_a26 := ddx_vcrv_rec.attribute14;
1093 p7_a27 := ddx_vcrv_rec.attribute15;
1094 p7_a28 := ddx_vcrv_rec.request_id;
1095 p7_a29 := ddx_vcrv_rec.program_application_id;
1096 p7_a30 := ddx_vcrv_rec.program_id;
1097 p7_a31 := ddx_vcrv_rec.program_update_date;
1098 p7_a32 := ddx_vcrv_rec.created_by;
1099 p7_a33 := ddx_vcrv_rec.creation_date;
1100 p7_a34 := ddx_vcrv_rec.last_updated_by;
1101 p7_a35 := ddx_vcrv_rec.last_update_date;
1102 p7_a36 := ddx_vcrv_rec.last_update_login;
1103
1104 okl_vrr_pvt_w.rosetta_table_copy_out_p2(ddx_vrrv_tbl, p8_a0
1105 , p8_a1
1106 , p8_a2
1107 , p8_a3
1108 , p8_a4
1109 , p8_a5
1110 , p8_a6
1111 , p8_a7
1112 , p8_a8
1113 , p8_a9
1114 , p8_a10
1115 , p8_a11
1116 , p8_a12
1117 , p8_a13
1118 , p8_a14
1119 , p8_a15
1120 , p8_a16
1121 , p8_a17
1122 , p8_a18
1123 , p8_a19
1124 , p8_a20
1125 , p8_a21
1126 , p8_a22
1127 , p8_a23
1128 , p8_a24
1129 , p8_a25
1130 , p8_a26
1131 , p8_a27
1132 , p8_a28
1133 , p8_a29
1134 , p8_a30
1135 );
1136 end;
1137
1138 procedure abandon_change_request(p_api_version NUMBER
1139 , p_init_msg_list VARCHAR2
1140 , x_return_status out nocopy VARCHAR2
1141 , x_msg_count out nocopy NUMBER
1142 , x_msg_data out nocopy VARCHAR2
1143 , p5_a0 NUMBER
1144 , p5_a1 NUMBER
1145 , p5_a2 NUMBER
1146 , p5_a3 NUMBER
1147 , p5_a4 VARCHAR2
1148 , p5_a5 VARCHAR2
1149 , p5_a6 DATE
1150 , p5_a7 DATE
1151 , p5_a8 DATE
1152 , p5_a9 DATE
1153 , p5_a10 DATE
1154 , p5_a11 DATE
1155 , p5_a12 VARCHAR2
1156 , p5_a13 VARCHAR2
1157 , p5_a14 VARCHAR2
1158 , p5_a15 VARCHAR2
1159 , p5_a16 VARCHAR2
1160 , p5_a17 VARCHAR2
1161 , p5_a18 VARCHAR2
1162 , p5_a19 VARCHAR2
1163 , p5_a20 VARCHAR2
1164 , p5_a21 VARCHAR2
1165 , p5_a22 VARCHAR2
1166 , p5_a23 VARCHAR2
1167 , p5_a24 VARCHAR2
1168 , p5_a25 VARCHAR2
1169 , p5_a26 VARCHAR2
1170 , p5_a27 VARCHAR2
1171 , p5_a28 NUMBER
1172 , p5_a29 NUMBER
1173 , p5_a30 NUMBER
1174 , p5_a31 DATE
1175 , p5_a32 NUMBER
1176 , p5_a33 DATE
1177 , p5_a34 NUMBER
1178 , p5_a35 DATE
1179 , p5_a36 NUMBER
1180 , p6_a0 out nocopy NUMBER
1181 , p6_a1 out nocopy NUMBER
1182 , p6_a2 out nocopy NUMBER
1183 , p6_a3 out nocopy NUMBER
1184 , p6_a4 out nocopy VARCHAR2
1185 , p6_a5 out nocopy VARCHAR2
1186 , p6_a6 out nocopy DATE
1187 , p6_a7 out nocopy DATE
1188 , p6_a8 out nocopy DATE
1189 , p6_a9 out nocopy DATE
1190 , p6_a10 out nocopy DATE
1191 , p6_a11 out nocopy DATE
1192 , p6_a12 out nocopy VARCHAR2
1193 , p6_a13 out nocopy VARCHAR2
1194 , p6_a14 out nocopy VARCHAR2
1195 , p6_a15 out nocopy VARCHAR2
1196 , p6_a16 out nocopy VARCHAR2
1197 , p6_a17 out nocopy VARCHAR2
1198 , p6_a18 out nocopy VARCHAR2
1199 , p6_a19 out nocopy VARCHAR2
1200 , p6_a20 out nocopy VARCHAR2
1201 , p6_a21 out nocopy VARCHAR2
1202 , p6_a22 out nocopy VARCHAR2
1203 , p6_a23 out nocopy VARCHAR2
1204 , p6_a24 out nocopy VARCHAR2
1205 , p6_a25 out nocopy VARCHAR2
1206 , p6_a26 out nocopy VARCHAR2
1207 , p6_a27 out nocopy VARCHAR2
1208 , p6_a28 out nocopy NUMBER
1209 , p6_a29 out nocopy NUMBER
1210 , p6_a30 out nocopy NUMBER
1211 , p6_a31 out nocopy DATE
1212 , p6_a32 out nocopy NUMBER
1213 , p6_a33 out nocopy DATE
1214 , p6_a34 out nocopy NUMBER
1215 , p6_a35 out nocopy DATE
1216 , p6_a36 out nocopy NUMBER
1217 )
1218
1219 as
1220 ddp_vcrv_rec okl_vp_change_request_pvt.vcrv_rec_type;
1221 ddx_vcrv_rec okl_vp_change_request_pvt.vcrv_rec_type;
1222 ddindx binary_integer; indx binary_integer;
1223 begin
1224
1225 -- copy data to the local IN or IN-OUT args, if any
1226
1227
1228
1229
1230
1231 ddp_vcrv_rec.id := p5_a0;
1232 ddp_vcrv_rec.object_version_number := p5_a1;
1233 ddp_vcrv_rec.change_request_number := p5_a2;
1234 ddp_vcrv_rec.chr_id := p5_a3;
1235 ddp_vcrv_rec.change_type_code := p5_a4;
1236 ddp_vcrv_rec.status_code := p5_a5;
1237 ddp_vcrv_rec.request_date := p5_a6;
1238 ddp_vcrv_rec.effective_date := p5_a7;
1239 ddp_vcrv_rec.approved_date := p5_a8;
1240 ddp_vcrv_rec.rejected_date := p5_a9;
1241 ddp_vcrv_rec.ineffective_date := p5_a10;
1242 ddp_vcrv_rec.applied_date := p5_a11;
1243 ddp_vcrv_rec.attribute_category := p5_a12;
1244 ddp_vcrv_rec.attribute1 := p5_a13;
1245 ddp_vcrv_rec.attribute2 := p5_a14;
1246 ddp_vcrv_rec.attribute3 := p5_a15;
1247 ddp_vcrv_rec.attribute4 := p5_a16;
1248 ddp_vcrv_rec.attribute5 := p5_a17;
1249 ddp_vcrv_rec.attribute6 := p5_a18;
1250 ddp_vcrv_rec.attribute7 := p5_a19;
1251 ddp_vcrv_rec.attribute8 := p5_a20;
1252 ddp_vcrv_rec.attribute9 := p5_a21;
1253 ddp_vcrv_rec.attribute10 := p5_a22;
1254 ddp_vcrv_rec.attribute11 := p5_a23;
1255 ddp_vcrv_rec.attribute12 := p5_a24;
1256 ddp_vcrv_rec.attribute13 := p5_a25;
1257 ddp_vcrv_rec.attribute14 := p5_a26;
1258 ddp_vcrv_rec.attribute15 := p5_a27;
1259 ddp_vcrv_rec.request_id := p5_a28;
1260 ddp_vcrv_rec.program_application_id := p5_a29;
1261 ddp_vcrv_rec.program_id := p5_a30;
1262 ddp_vcrv_rec.program_update_date := p5_a31;
1263 ddp_vcrv_rec.created_by := p5_a32;
1264 ddp_vcrv_rec.creation_date := p5_a33;
1265 ddp_vcrv_rec.last_updated_by := p5_a34;
1266 ddp_vcrv_rec.last_update_date := p5_a35;
1267 ddp_vcrv_rec.last_update_login := p5_a36;
1268
1269
1270 -- here's the delegated call to the old PL/SQL routine
1271 okl_vp_change_request_pvt.abandon_change_request(p_api_version,
1272 p_init_msg_list,
1273 x_return_status,
1274 x_msg_count,
1275 x_msg_data,
1276 ddp_vcrv_rec,
1277 ddx_vcrv_rec);
1278
1279 -- copy data back from the local variables to OUT or IN-OUT args, if any
1280
1281
1282
1283
1284
1285
1286 p6_a0 := ddx_vcrv_rec.id;
1287 p6_a1 := ddx_vcrv_rec.object_version_number;
1288 p6_a2 := ddx_vcrv_rec.change_request_number;
1289 p6_a3 := ddx_vcrv_rec.chr_id;
1290 p6_a4 := ddx_vcrv_rec.change_type_code;
1291 p6_a5 := ddx_vcrv_rec.status_code;
1292 p6_a6 := ddx_vcrv_rec.request_date;
1293 p6_a7 := ddx_vcrv_rec.effective_date;
1294 p6_a8 := ddx_vcrv_rec.approved_date;
1295 p6_a9 := ddx_vcrv_rec.rejected_date;
1296 p6_a10 := ddx_vcrv_rec.ineffective_date;
1297 p6_a11 := ddx_vcrv_rec.applied_date;
1298 p6_a12 := ddx_vcrv_rec.attribute_category;
1299 p6_a13 := ddx_vcrv_rec.attribute1;
1300 p6_a14 := ddx_vcrv_rec.attribute2;
1301 p6_a15 := ddx_vcrv_rec.attribute3;
1302 p6_a16 := ddx_vcrv_rec.attribute4;
1303 p6_a17 := ddx_vcrv_rec.attribute5;
1304 p6_a18 := ddx_vcrv_rec.attribute6;
1305 p6_a19 := ddx_vcrv_rec.attribute7;
1306 p6_a20 := ddx_vcrv_rec.attribute8;
1307 p6_a21 := ddx_vcrv_rec.attribute9;
1308 p6_a22 := ddx_vcrv_rec.attribute10;
1309 p6_a23 := ddx_vcrv_rec.attribute11;
1310 p6_a24 := ddx_vcrv_rec.attribute12;
1311 p6_a25 := ddx_vcrv_rec.attribute13;
1312 p6_a26 := ddx_vcrv_rec.attribute14;
1313 p6_a27 := ddx_vcrv_rec.attribute15;
1314 p6_a28 := ddx_vcrv_rec.request_id;
1315 p6_a29 := ddx_vcrv_rec.program_application_id;
1316 p6_a30 := ddx_vcrv_rec.program_id;
1317 p6_a31 := ddx_vcrv_rec.program_update_date;
1318 p6_a32 := ddx_vcrv_rec.created_by;
1319 p6_a33 := ddx_vcrv_rec.creation_date;
1320 p6_a34 := ddx_vcrv_rec.last_updated_by;
1321 p6_a35 := ddx_vcrv_rec.last_update_date;
1322 p6_a36 := ddx_vcrv_rec.last_update_login;
1323 end;
1324
1325 end okl_vp_change_request_pvt_w;