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