[Home] [Help]
PACKAGE BODY: APPS.OKL_QLS_PVT_W
Source
1 package body okl_qls_pvt_w as
2 /* $Header: OKLIQLSB.pls 120.2 2005/07/18 15:54:56 viselvar noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p2(t out nocopy okl_qls_pvt.qlsv_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_VARCHAR2_TABLE_100
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_NUMBER_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_DATE_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_DATE_TABLE
32 , a10 JTF_NUMBER_TABLE
33 ) as
34 ddindx binary_integer; indx binary_integer;
35 begin
36 if a0 is not null and a0.count > 0 then
37 if a0.count > 0 then
38 indx := a0.first;
39 ddindx := 1;
40 while true loop
41 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
42 t(ddindx).quote_line_type_code := a1(indx);
43 t(ddindx).sty_id := rosetta_g_miss_num_map(a2(indx));
44 t(ddindx).invoicable_yn := a3(indx);
45 t(ddindx).object_version_number := rosetta_g_miss_num_map(a4(indx));
46 t(ddindx).org_id := rosetta_g_miss_num_map(a5(indx));
47 t(ddindx).created_by := rosetta_g_miss_num_map(a6(indx));
48 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a7(indx));
49 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a8(indx));
50 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a9(indx));
51 t(ddindx).last_update_login := rosetta_g_miss_num_map(a10(indx));
52 ddindx := ddindx+1;
53 if a0.last =indx
54 then exit;
55 end if;
56 indx := a0.next(indx);
57 end loop;
58 end if;
59 end if;
60 end rosetta_table_copy_in_p2;
61 procedure rosetta_table_copy_out_p2(t okl_qls_pvt.qlsv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
62 , a1 out nocopy JTF_VARCHAR2_TABLE_100
63 , a2 out nocopy JTF_NUMBER_TABLE
64 , a3 out nocopy JTF_VARCHAR2_TABLE_100
65 , a4 out nocopy JTF_NUMBER_TABLE
66 , a5 out nocopy JTF_NUMBER_TABLE
67 , a6 out nocopy JTF_NUMBER_TABLE
68 , a7 out nocopy JTF_DATE_TABLE
69 , a8 out nocopy JTF_NUMBER_TABLE
70 , a9 out nocopy JTF_DATE_TABLE
71 , a10 out nocopy JTF_NUMBER_TABLE
72 ) as
73 ddindx binary_integer; indx binary_integer;
74 begin
75 if t is null or t.count = 0 then
76 a0 := JTF_NUMBER_TABLE();
77 a1 := JTF_VARCHAR2_TABLE_100();
78 a2 := JTF_NUMBER_TABLE();
79 a3 := JTF_VARCHAR2_TABLE_100();
80 a4 := JTF_NUMBER_TABLE();
81 a5 := JTF_NUMBER_TABLE();
82 a6 := JTF_NUMBER_TABLE();
83 a7 := JTF_DATE_TABLE();
84 a8 := JTF_NUMBER_TABLE();
85 a9 := JTF_DATE_TABLE();
86 a10 := JTF_NUMBER_TABLE();
87 else
88 a0 := JTF_NUMBER_TABLE();
89 a1 := JTF_VARCHAR2_TABLE_100();
90 a2 := JTF_NUMBER_TABLE();
91 a3 := JTF_VARCHAR2_TABLE_100();
92 a4 := JTF_NUMBER_TABLE();
93 a5 := JTF_NUMBER_TABLE();
94 a6 := JTF_NUMBER_TABLE();
95 a7 := JTF_DATE_TABLE();
96 a8 := JTF_NUMBER_TABLE();
97 a9 := JTF_DATE_TABLE();
98 a10 := JTF_NUMBER_TABLE();
99 if t.count > 0 then
100 a0.extend(t.count);
101 a1.extend(t.count);
102 a2.extend(t.count);
103 a3.extend(t.count);
104 a4.extend(t.count);
105 a5.extend(t.count);
106 a6.extend(t.count);
107 a7.extend(t.count);
108 a8.extend(t.count);
109 a9.extend(t.count);
110 a10.extend(t.count);
111 ddindx := t.first;
112 indx := 1;
113 while true loop
114 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
115 a1(indx) := t(ddindx).quote_line_type_code;
116 a2(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
117 a3(indx) := t(ddindx).invoicable_yn;
118 a4(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
119 a5(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
120 a6(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
121 a7(indx) := t(ddindx).creation_date;
122 a8(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
123 a9(indx) := t(ddindx).last_update_date;
124 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
125 indx := indx+1;
126 if t.last =ddindx
127 then exit;
128 end if;
129 ddindx := t.next(ddindx);
130 end loop;
131 end if;
132 end if;
133 end rosetta_table_copy_out_p2;
134
135 procedure rosetta_table_copy_in_p5(t out nocopy okl_qls_pvt.qls_tbl_type, a0 JTF_NUMBER_TABLE
136 , a1 JTF_VARCHAR2_TABLE_100
137 , a2 JTF_NUMBER_TABLE
138 , a3 JTF_VARCHAR2_TABLE_100
139 , a4 JTF_NUMBER_TABLE
140 , a5 JTF_NUMBER_TABLE
141 , a6 JTF_NUMBER_TABLE
142 , a7 JTF_DATE_TABLE
143 , a8 JTF_NUMBER_TABLE
144 , a9 JTF_DATE_TABLE
145 , a10 JTF_NUMBER_TABLE
146 ) as
147 ddindx binary_integer; indx binary_integer;
148 begin
149 if a0 is not null and a0.count > 0 then
150 if a0.count > 0 then
151 indx := a0.first;
152 ddindx := 1;
153 while true loop
154 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
155 t(ddindx).quote_line_type_code := a1(indx);
156 t(ddindx).sty_id := rosetta_g_miss_num_map(a2(indx));
157 t(ddindx).invoicable_yn := a3(indx);
158 t(ddindx).object_version_number := rosetta_g_miss_num_map(a4(indx));
159 t(ddindx).org_id := rosetta_g_miss_num_map(a5(indx));
160 t(ddindx).created_by := rosetta_g_miss_num_map(a6(indx));
161 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a7(indx));
162 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a8(indx));
163 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a9(indx));
164 t(ddindx).last_update_login := rosetta_g_miss_num_map(a10(indx));
165 ddindx := ddindx+1;
166 if a0.last =indx
167 then exit;
168 end if;
169 indx := a0.next(indx);
170 end loop;
171 end if;
172 end if;
173 end rosetta_table_copy_in_p5;
174 procedure rosetta_table_copy_out_p5(t okl_qls_pvt.qls_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
175 , a1 out nocopy JTF_VARCHAR2_TABLE_100
176 , a2 out nocopy JTF_NUMBER_TABLE
177 , a3 out nocopy JTF_VARCHAR2_TABLE_100
178 , a4 out nocopy JTF_NUMBER_TABLE
179 , a5 out nocopy JTF_NUMBER_TABLE
180 , a6 out nocopy JTF_NUMBER_TABLE
181 , a7 out nocopy JTF_DATE_TABLE
182 , a8 out nocopy JTF_NUMBER_TABLE
183 , a9 out nocopy JTF_DATE_TABLE
184 , a10 out nocopy JTF_NUMBER_TABLE
185 ) as
186 ddindx binary_integer; indx binary_integer;
187 begin
188 if t is null or t.count = 0 then
189 a0 := JTF_NUMBER_TABLE();
190 a1 := JTF_VARCHAR2_TABLE_100();
191 a2 := JTF_NUMBER_TABLE();
192 a3 := JTF_VARCHAR2_TABLE_100();
193 a4 := JTF_NUMBER_TABLE();
194 a5 := JTF_NUMBER_TABLE();
195 a6 := JTF_NUMBER_TABLE();
196 a7 := JTF_DATE_TABLE();
197 a8 := JTF_NUMBER_TABLE();
198 a9 := JTF_DATE_TABLE();
199 a10 := JTF_NUMBER_TABLE();
200 else
201 a0 := JTF_NUMBER_TABLE();
202 a1 := JTF_VARCHAR2_TABLE_100();
203 a2 := JTF_NUMBER_TABLE();
204 a3 := JTF_VARCHAR2_TABLE_100();
205 a4 := JTF_NUMBER_TABLE();
206 a5 := JTF_NUMBER_TABLE();
207 a6 := JTF_NUMBER_TABLE();
208 a7 := JTF_DATE_TABLE();
209 a8 := JTF_NUMBER_TABLE();
210 a9 := JTF_DATE_TABLE();
211 a10 := JTF_NUMBER_TABLE();
212 if t.count > 0 then
213 a0.extend(t.count);
214 a1.extend(t.count);
215 a2.extend(t.count);
216 a3.extend(t.count);
217 a4.extend(t.count);
218 a5.extend(t.count);
219 a6.extend(t.count);
220 a7.extend(t.count);
221 a8.extend(t.count);
222 a9.extend(t.count);
223 a10.extend(t.count);
224 ddindx := t.first;
225 indx := 1;
226 while true loop
227 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
228 a1(indx) := t(ddindx).quote_line_type_code;
229 a2(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
230 a3(indx) := t(ddindx).invoicable_yn;
231 a4(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
232 a5(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
233 a6(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
234 a7(indx) := t(ddindx).creation_date;
235 a8(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
236 a9(indx) := t(ddindx).last_update_date;
237 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
238 indx := indx+1;
239 if t.last =ddindx
240 then exit;
241 end if;
242 ddindx := t.next(ddindx);
243 end loop;
244 end if;
245 end if;
246 end rosetta_table_copy_out_p5;
247
248 procedure insert_row(p_api_version NUMBER
249 , p_init_msg_list VARCHAR2
250 , x_return_status out nocopy VARCHAR2
251 , x_msg_count out nocopy NUMBER
252 , x_msg_data out nocopy VARCHAR2
253 , p6_a0 out nocopy NUMBER
254 , p6_a1 out nocopy VARCHAR2
255 , p6_a2 out nocopy NUMBER
256 , p6_a3 out nocopy VARCHAR2
257 , p6_a4 out nocopy NUMBER
258 , p6_a5 out nocopy NUMBER
259 , p6_a6 out nocopy NUMBER
260 , p6_a7 out nocopy DATE
261 , p6_a8 out nocopy NUMBER
262 , p6_a9 out nocopy DATE
263 , p6_a10 out nocopy NUMBER
264 , p5_a0 NUMBER := 0-1962.0724
265 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
266 , p5_a2 NUMBER := 0-1962.0724
267 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
268 , p5_a4 NUMBER := 0-1962.0724
269 , p5_a5 NUMBER := 0-1962.0724
270 , p5_a6 NUMBER := 0-1962.0724
271 , p5_a7 DATE := fnd_api.g_miss_date
272 , p5_a8 NUMBER := 0-1962.0724
273 , p5_a9 DATE := fnd_api.g_miss_date
274 , p5_a10 NUMBER := 0-1962.0724
275 )
276
277 as
278 ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
279 ddx_qlsv_rec okl_qls_pvt.qlsv_rec_type;
280 ddindx binary_integer; indx binary_integer;
281 begin
282
283 -- copy data to the local IN or IN-OUT args, if any
284
285
286
287
288
289 ddp_qlsv_rec.id := rosetta_g_miss_num_map(p5_a0);
290 ddp_qlsv_rec.quote_line_type_code := p5_a1;
291 ddp_qlsv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
292 ddp_qlsv_rec.invoicable_yn := p5_a3;
293 ddp_qlsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a4);
294 ddp_qlsv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
295 ddp_qlsv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
296 ddp_qlsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
297 ddp_qlsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
298 ddp_qlsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
299 ddp_qlsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
300
301
302 -- here's the delegated call to the old PL/SQL routine
303 okl_qls_pvt.insert_row(p_api_version,
304 p_init_msg_list,
305 x_return_status,
306 x_msg_count,
307 x_msg_data,
308 ddp_qlsv_rec,
309 ddx_qlsv_rec);
310
311 -- copy data back from the local variables to OUT or IN-OUT args, if any
312
313
314
315
316
317
318 p6_a0 := rosetta_g_miss_num_map(ddx_qlsv_rec.id);
319 p6_a1 := ddx_qlsv_rec.quote_line_type_code;
320 p6_a2 := rosetta_g_miss_num_map(ddx_qlsv_rec.sty_id);
321 p6_a3 := ddx_qlsv_rec.invoicable_yn;
322 p6_a4 := rosetta_g_miss_num_map(ddx_qlsv_rec.object_version_number);
323 p6_a5 := rosetta_g_miss_num_map(ddx_qlsv_rec.org_id);
324 p6_a6 := rosetta_g_miss_num_map(ddx_qlsv_rec.created_by);
325 p6_a7 := ddx_qlsv_rec.creation_date;
326 p6_a8 := rosetta_g_miss_num_map(ddx_qlsv_rec.last_updated_by);
327 p6_a9 := ddx_qlsv_rec.last_update_date;
328 p6_a10 := rosetta_g_miss_num_map(ddx_qlsv_rec.last_update_login);
329 end;
330
331 procedure insert_row(p_api_version NUMBER
332 , p_init_msg_list VARCHAR2
333 , x_return_status out nocopy VARCHAR2
334 , x_msg_count out nocopy NUMBER
335 , x_msg_data out nocopy VARCHAR2
336 , p5_a0 JTF_NUMBER_TABLE
337 , p5_a1 JTF_VARCHAR2_TABLE_100
338 , p5_a2 JTF_NUMBER_TABLE
339 , p5_a3 JTF_VARCHAR2_TABLE_100
340 , p5_a4 JTF_NUMBER_TABLE
341 , p5_a5 JTF_NUMBER_TABLE
342 , p5_a6 JTF_NUMBER_TABLE
343 , p5_a7 JTF_DATE_TABLE
344 , p5_a8 JTF_NUMBER_TABLE
345 , p5_a9 JTF_DATE_TABLE
346 , p5_a10 JTF_NUMBER_TABLE
347 , p6_a0 out nocopy JTF_NUMBER_TABLE
348 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
349 , p6_a2 out nocopy JTF_NUMBER_TABLE
350 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
351 , p6_a4 out nocopy JTF_NUMBER_TABLE
352 , p6_a5 out nocopy JTF_NUMBER_TABLE
353 , p6_a6 out nocopy JTF_NUMBER_TABLE
354 , p6_a7 out nocopy JTF_DATE_TABLE
355 , p6_a8 out nocopy JTF_NUMBER_TABLE
356 , p6_a9 out nocopy JTF_DATE_TABLE
357 , p6_a10 out nocopy JTF_NUMBER_TABLE
358 , p7_a0 in out nocopy JTF_NUMBER_TABLE
359 , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
360 , p7_a2 in out nocopy JTF_NUMBER_TABLE
361 , p7_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
362 , p7_a4 in out nocopy JTF_NUMBER_TABLE
363 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
364 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
365 )
366
367 as
368 ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
369 ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
370 ddpx_error_tbl okl_api.error_tbl_type;
371 ddindx binary_integer; indx binary_integer;
372 begin
373
374 -- copy data to the local IN or IN-OUT args, if any
375
376
377
378
379
380 okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
381 , p5_a1
382 , p5_a2
383 , p5_a3
384 , p5_a4
385 , p5_a5
386 , p5_a6
387 , p5_a7
388 , p5_a8
389 , p5_a9
390 , p5_a10
391 );
392
393
394 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p7_a0
395 , p7_a1
396 , p7_a2
397 , p7_a3
398 , p7_a4
399 , p7_a5
400 , p7_a6
401 );
402
403 -- here's the delegated call to the old PL/SQL routine
404 okl_qls_pvt.insert_row(p_api_version,
405 p_init_msg_list,
406 x_return_status,
407 x_msg_count,
408 x_msg_data,
409 ddp_qlsv_tbl,
410 ddx_qlsv_tbl,
411 ddpx_error_tbl);
412
413 -- copy data back from the local variables to OUT or IN-OUT args, if any
414
415
416
417
418
419
420 okl_qls_pvt_w.rosetta_table_copy_out_p2(ddx_qlsv_tbl, p6_a0
421 , p6_a1
422 , p6_a2
423 , p6_a3
424 , p6_a4
425 , p6_a5
426 , p6_a6
427 , p6_a7
428 , p6_a8
429 , p6_a9
430 , p6_a10
431 );
432
433 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p7_a0
434 , p7_a1
435 , p7_a2
436 , p7_a3
437 , p7_a4
438 , p7_a5
439 , p7_a6
440 );
441 end;
442
443 procedure insert_row(p_api_version NUMBER
444 , p_init_msg_list VARCHAR2
445 , x_return_status out nocopy VARCHAR2
446 , x_msg_count out nocopy NUMBER
447 , x_msg_data out nocopy VARCHAR2
448 , p5_a0 JTF_NUMBER_TABLE
449 , p5_a1 JTF_VARCHAR2_TABLE_100
450 , p5_a2 JTF_NUMBER_TABLE
451 , p5_a3 JTF_VARCHAR2_TABLE_100
452 , p5_a4 JTF_NUMBER_TABLE
453 , p5_a5 JTF_NUMBER_TABLE
454 , p5_a6 JTF_NUMBER_TABLE
455 , p5_a7 JTF_DATE_TABLE
456 , p5_a8 JTF_NUMBER_TABLE
457 , p5_a9 JTF_DATE_TABLE
458 , p5_a10 JTF_NUMBER_TABLE
459 , p6_a0 out nocopy JTF_NUMBER_TABLE
460 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
461 , p6_a2 out nocopy JTF_NUMBER_TABLE
462 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
463 , p6_a4 out nocopy JTF_NUMBER_TABLE
464 , p6_a5 out nocopy JTF_NUMBER_TABLE
465 , p6_a6 out nocopy JTF_NUMBER_TABLE
466 , p6_a7 out nocopy JTF_DATE_TABLE
467 , p6_a8 out nocopy JTF_NUMBER_TABLE
468 , p6_a9 out nocopy JTF_DATE_TABLE
469 , p6_a10 out nocopy JTF_NUMBER_TABLE
470 )
471
472 as
473 ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
474 ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
475 ddindx binary_integer; indx binary_integer;
476 begin
477
478 -- copy data to the local IN or IN-OUT args, if any
479
480
481
482
483
484 okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
485 , p5_a1
486 , p5_a2
487 , p5_a3
488 , p5_a4
489 , p5_a5
490 , p5_a6
491 , p5_a7
492 , p5_a8
493 , p5_a9
494 , p5_a10
495 );
496
497
498 -- here's the delegated call to the old PL/SQL routine
499 okl_qls_pvt.insert_row(p_api_version,
500 p_init_msg_list,
501 x_return_status,
502 x_msg_count,
503 x_msg_data,
504 ddp_qlsv_tbl,
505 ddx_qlsv_tbl);
506
507 -- copy data back from the local variables to OUT or IN-OUT args, if any
508
509
510
511
512
513
514 okl_qls_pvt_w.rosetta_table_copy_out_p2(ddx_qlsv_tbl, p6_a0
515 , p6_a1
516 , p6_a2
517 , p6_a3
518 , p6_a4
519 , p6_a5
520 , p6_a6
521 , p6_a7
522 , p6_a8
523 , p6_a9
524 , p6_a10
525 );
526 end;
527
528 procedure lock_row(p_api_version NUMBER
529 , p_init_msg_list VARCHAR2
530 , x_return_status out nocopy VARCHAR2
531 , x_msg_count out nocopy NUMBER
532 , x_msg_data out nocopy VARCHAR2
533 , p5_a0 NUMBER := 0-1962.0724
534 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
535 , p5_a2 NUMBER := 0-1962.0724
536 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
537 , p5_a4 NUMBER := 0-1962.0724
538 , p5_a5 NUMBER := 0-1962.0724
539 , p5_a6 NUMBER := 0-1962.0724
540 , p5_a7 DATE := fnd_api.g_miss_date
541 , p5_a8 NUMBER := 0-1962.0724
542 , p5_a9 DATE := fnd_api.g_miss_date
543 , p5_a10 NUMBER := 0-1962.0724
544 )
545
546 as
547 ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
548 ddindx binary_integer; indx binary_integer;
549 begin
550
551 -- copy data to the local IN or IN-OUT args, if any
552
553
554
555
556
557 ddp_qlsv_rec.id := rosetta_g_miss_num_map(p5_a0);
558 ddp_qlsv_rec.quote_line_type_code := p5_a1;
559 ddp_qlsv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
560 ddp_qlsv_rec.invoicable_yn := p5_a3;
561 ddp_qlsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a4);
562 ddp_qlsv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
563 ddp_qlsv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
564 ddp_qlsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
565 ddp_qlsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
566 ddp_qlsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
567 ddp_qlsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
568
569 -- here's the delegated call to the old PL/SQL routine
570 okl_qls_pvt.lock_row(p_api_version,
571 p_init_msg_list,
572 x_return_status,
573 x_msg_count,
574 x_msg_data,
575 ddp_qlsv_rec);
576
577 -- copy data back from the local variables to OUT or IN-OUT args, if any
578
579
580
581
582
583 end;
584
585 procedure lock_row(p_api_version NUMBER
586 , p_init_msg_list VARCHAR2
587 , x_return_status out nocopy VARCHAR2
588 , x_msg_count out nocopy NUMBER
589 , x_msg_data out nocopy VARCHAR2
590 , p5_a0 JTF_NUMBER_TABLE
591 , p5_a1 JTF_VARCHAR2_TABLE_100
592 , p5_a2 JTF_NUMBER_TABLE
593 , p5_a3 JTF_VARCHAR2_TABLE_100
594 , p5_a4 JTF_NUMBER_TABLE
595 , p5_a5 JTF_NUMBER_TABLE
596 , p5_a6 JTF_NUMBER_TABLE
597 , p5_a7 JTF_DATE_TABLE
598 , p5_a8 JTF_NUMBER_TABLE
599 , p5_a9 JTF_DATE_TABLE
600 , p5_a10 JTF_NUMBER_TABLE
601 , p6_a0 in out nocopy JTF_NUMBER_TABLE
602 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
603 , p6_a2 in out nocopy JTF_NUMBER_TABLE
604 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
605 , p6_a4 in out nocopy JTF_NUMBER_TABLE
606 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
607 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
608 )
609
610 as
611 ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
612 ddpx_error_tbl okl_api.error_tbl_type;
613 ddindx binary_integer; indx binary_integer;
614 begin
615
616 -- copy data to the local IN or IN-OUT args, if any
617
618
619
620
621
622 okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
623 , p5_a1
624 , p5_a2
625 , p5_a3
626 , p5_a4
627 , p5_a5
628 , p5_a6
629 , p5_a7
630 , p5_a8
631 , p5_a9
632 , p5_a10
633 );
634
635 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
636 , p6_a1
637 , p6_a2
638 , p6_a3
639 , p6_a4
640 , p6_a5
641 , p6_a6
642 );
643
644 -- here's the delegated call to the old PL/SQL routine
645 okl_qls_pvt.lock_row(p_api_version,
646 p_init_msg_list,
647 x_return_status,
648 x_msg_count,
649 x_msg_data,
650 ddp_qlsv_tbl,
651 ddpx_error_tbl);
652
653 -- copy data back from the local variables to OUT or IN-OUT args, if any
654
655
656
657
658
659
660 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
661 , p6_a1
662 , p6_a2
663 , p6_a3
664 , p6_a4
665 , p6_a5
666 , p6_a6
667 );
668 end;
669
670 procedure lock_row(p_api_version NUMBER
671 , p_init_msg_list VARCHAR2
672 , x_return_status out nocopy VARCHAR2
673 , x_msg_count out nocopy NUMBER
674 , x_msg_data out nocopy VARCHAR2
675 , p5_a0 JTF_NUMBER_TABLE
676 , p5_a1 JTF_VARCHAR2_TABLE_100
677 , p5_a2 JTF_NUMBER_TABLE
678 , p5_a3 JTF_VARCHAR2_TABLE_100
679 , p5_a4 JTF_NUMBER_TABLE
680 , p5_a5 JTF_NUMBER_TABLE
681 , p5_a6 JTF_NUMBER_TABLE
682 , p5_a7 JTF_DATE_TABLE
683 , p5_a8 JTF_NUMBER_TABLE
684 , p5_a9 JTF_DATE_TABLE
685 , p5_a10 JTF_NUMBER_TABLE
686 )
687
688 as
689 ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
690 ddindx binary_integer; indx binary_integer;
691 begin
692
693 -- copy data to the local IN or IN-OUT args, if any
694
695
696
697
698
699 okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
700 , p5_a1
701 , p5_a2
702 , p5_a3
703 , p5_a4
704 , p5_a5
705 , p5_a6
706 , p5_a7
707 , p5_a8
708 , p5_a9
709 , p5_a10
710 );
711
712 -- here's the delegated call to the old PL/SQL routine
713 okl_qls_pvt.lock_row(p_api_version,
714 p_init_msg_list,
715 x_return_status,
716 x_msg_count,
717 x_msg_data,
718 ddp_qlsv_tbl);
719
720 -- copy data back from the local variables to OUT or IN-OUT args, if any
721
722
723
724
725
726 end;
727
728 procedure update_row(p_api_version NUMBER
729 , p_init_msg_list VARCHAR2
730 , x_return_status out nocopy VARCHAR2
731 , x_msg_count out nocopy NUMBER
732 , x_msg_data out nocopy VARCHAR2
733 , p6_a0 out nocopy NUMBER
734 , p6_a1 out nocopy VARCHAR2
735 , p6_a2 out nocopy NUMBER
736 , p6_a3 out nocopy VARCHAR2
737 , p6_a4 out nocopy NUMBER
738 , p6_a5 out nocopy NUMBER
739 , p6_a6 out nocopy NUMBER
740 , p6_a7 out nocopy DATE
741 , p6_a8 out nocopy NUMBER
742 , p6_a9 out nocopy DATE
743 , p6_a10 out nocopy NUMBER
744 , p5_a0 NUMBER := 0-1962.0724
745 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
746 , p5_a2 NUMBER := 0-1962.0724
747 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
748 , p5_a4 NUMBER := 0-1962.0724
749 , p5_a5 NUMBER := 0-1962.0724
750 , p5_a6 NUMBER := 0-1962.0724
751 , p5_a7 DATE := fnd_api.g_miss_date
752 , p5_a8 NUMBER := 0-1962.0724
753 , p5_a9 DATE := fnd_api.g_miss_date
754 , p5_a10 NUMBER := 0-1962.0724
755 )
756
757 as
758 ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
759 ddx_qlsv_rec okl_qls_pvt.qlsv_rec_type;
760 ddindx binary_integer; indx binary_integer;
761 begin
762
763 -- copy data to the local IN or IN-OUT args, if any
764
765
766
767
768
769 ddp_qlsv_rec.id := rosetta_g_miss_num_map(p5_a0);
770 ddp_qlsv_rec.quote_line_type_code := p5_a1;
771 ddp_qlsv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
772 ddp_qlsv_rec.invoicable_yn := p5_a3;
773 ddp_qlsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a4);
774 ddp_qlsv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
775 ddp_qlsv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
776 ddp_qlsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
777 ddp_qlsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
778 ddp_qlsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
779 ddp_qlsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
780
781
782 -- here's the delegated call to the old PL/SQL routine
783 okl_qls_pvt.update_row(p_api_version,
784 p_init_msg_list,
785 x_return_status,
786 x_msg_count,
787 x_msg_data,
788 ddp_qlsv_rec,
789 ddx_qlsv_rec);
790
791 -- copy data back from the local variables to OUT or IN-OUT args, if any
792
793
794
795
796
797
798 p6_a0 := rosetta_g_miss_num_map(ddx_qlsv_rec.id);
799 p6_a1 := ddx_qlsv_rec.quote_line_type_code;
800 p6_a2 := rosetta_g_miss_num_map(ddx_qlsv_rec.sty_id);
801 p6_a3 := ddx_qlsv_rec.invoicable_yn;
802 p6_a4 := rosetta_g_miss_num_map(ddx_qlsv_rec.object_version_number);
803 p6_a5 := rosetta_g_miss_num_map(ddx_qlsv_rec.org_id);
804 p6_a6 := rosetta_g_miss_num_map(ddx_qlsv_rec.created_by);
805 p6_a7 := ddx_qlsv_rec.creation_date;
806 p6_a8 := rosetta_g_miss_num_map(ddx_qlsv_rec.last_updated_by);
807 p6_a9 := ddx_qlsv_rec.last_update_date;
808 p6_a10 := rosetta_g_miss_num_map(ddx_qlsv_rec.last_update_login);
809 end;
810
811 procedure update_row(p_api_version NUMBER
812 , p_init_msg_list VARCHAR2
813 , x_return_status out nocopy VARCHAR2
814 , x_msg_count out nocopy NUMBER
815 , x_msg_data out nocopy VARCHAR2
816 , p5_a0 JTF_NUMBER_TABLE
817 , p5_a1 JTF_VARCHAR2_TABLE_100
818 , p5_a2 JTF_NUMBER_TABLE
819 , p5_a3 JTF_VARCHAR2_TABLE_100
820 , p5_a4 JTF_NUMBER_TABLE
821 , p5_a5 JTF_NUMBER_TABLE
822 , p5_a6 JTF_NUMBER_TABLE
823 , p5_a7 JTF_DATE_TABLE
824 , p5_a8 JTF_NUMBER_TABLE
825 , p5_a9 JTF_DATE_TABLE
826 , p5_a10 JTF_NUMBER_TABLE
827 , p6_a0 out nocopy JTF_NUMBER_TABLE
828 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
829 , p6_a2 out nocopy JTF_NUMBER_TABLE
830 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
831 , p6_a4 out nocopy JTF_NUMBER_TABLE
832 , p6_a5 out nocopy JTF_NUMBER_TABLE
833 , p6_a6 out nocopy JTF_NUMBER_TABLE
834 , p6_a7 out nocopy JTF_DATE_TABLE
835 , p6_a8 out nocopy JTF_NUMBER_TABLE
836 , p6_a9 out nocopy JTF_DATE_TABLE
837 , p6_a10 out nocopy JTF_NUMBER_TABLE
838 , p7_a0 in out nocopy JTF_NUMBER_TABLE
839 , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
840 , p7_a2 in out nocopy JTF_NUMBER_TABLE
841 , p7_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
842 , p7_a4 in out nocopy JTF_NUMBER_TABLE
843 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
844 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
845 )
846
847 as
848 ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
849 ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
850 ddpx_error_tbl okl_api.error_tbl_type;
851 ddindx binary_integer; indx binary_integer;
852 begin
853
854 -- copy data to the local IN or IN-OUT args, if any
855
856
857
858
859
860 okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
861 , p5_a1
862 , p5_a2
863 , p5_a3
864 , p5_a4
865 , p5_a5
866 , p5_a6
867 , p5_a7
868 , p5_a8
869 , p5_a9
870 , p5_a10
871 );
872
873
874 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p7_a0
875 , p7_a1
876 , p7_a2
877 , p7_a3
878 , p7_a4
879 , p7_a5
880 , p7_a6
881 );
882
883 -- here's the delegated call to the old PL/SQL routine
884 okl_qls_pvt.update_row(p_api_version,
885 p_init_msg_list,
886 x_return_status,
887 x_msg_count,
888 x_msg_data,
889 ddp_qlsv_tbl,
890 ddx_qlsv_tbl,
891 ddpx_error_tbl);
892
893 -- copy data back from the local variables to OUT or IN-OUT args, if any
894
895
896
897
898
899
900 okl_qls_pvt_w.rosetta_table_copy_out_p2(ddx_qlsv_tbl, p6_a0
901 , p6_a1
902 , p6_a2
903 , p6_a3
904 , p6_a4
905 , p6_a5
906 , p6_a6
907 , p6_a7
908 , p6_a8
909 , p6_a9
910 , p6_a10
911 );
912
913 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p7_a0
914 , p7_a1
915 , p7_a2
916 , p7_a3
917 , p7_a4
918 , p7_a5
919 , p7_a6
920 );
921 end;
922
923 procedure update_row(p_api_version NUMBER
924 , p_init_msg_list VARCHAR2
925 , x_return_status out nocopy VARCHAR2
926 , x_msg_count out nocopy NUMBER
927 , x_msg_data out nocopy VARCHAR2
928 , p5_a0 JTF_NUMBER_TABLE
929 , p5_a1 JTF_VARCHAR2_TABLE_100
930 , p5_a2 JTF_NUMBER_TABLE
931 , p5_a3 JTF_VARCHAR2_TABLE_100
932 , p5_a4 JTF_NUMBER_TABLE
933 , p5_a5 JTF_NUMBER_TABLE
934 , p5_a6 JTF_NUMBER_TABLE
935 , p5_a7 JTF_DATE_TABLE
936 , p5_a8 JTF_NUMBER_TABLE
937 , p5_a9 JTF_DATE_TABLE
938 , p5_a10 JTF_NUMBER_TABLE
939 , p6_a0 out nocopy JTF_NUMBER_TABLE
940 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
941 , p6_a2 out nocopy JTF_NUMBER_TABLE
942 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
943 , p6_a4 out nocopy JTF_NUMBER_TABLE
944 , p6_a5 out nocopy JTF_NUMBER_TABLE
945 , p6_a6 out nocopy JTF_NUMBER_TABLE
946 , p6_a7 out nocopy JTF_DATE_TABLE
947 , p6_a8 out nocopy JTF_NUMBER_TABLE
948 , p6_a9 out nocopy JTF_DATE_TABLE
949 , p6_a10 out nocopy JTF_NUMBER_TABLE
950 )
951
952 as
953 ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
954 ddx_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
955 ddindx binary_integer; indx binary_integer;
956 begin
957
958 -- copy data to the local IN or IN-OUT args, if any
959
960
961
962
963
964 okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
965 , p5_a1
966 , p5_a2
967 , p5_a3
968 , p5_a4
969 , p5_a5
970 , p5_a6
971 , p5_a7
972 , p5_a8
973 , p5_a9
974 , p5_a10
975 );
976
977
978 -- here's the delegated call to the old PL/SQL routine
979 okl_qls_pvt.update_row(p_api_version,
980 p_init_msg_list,
981 x_return_status,
982 x_msg_count,
983 x_msg_data,
984 ddp_qlsv_tbl,
985 ddx_qlsv_tbl);
986
987 -- copy data back from the local variables to OUT or IN-OUT args, if any
988
989
990
991
992
993
994 okl_qls_pvt_w.rosetta_table_copy_out_p2(ddx_qlsv_tbl, p6_a0
995 , p6_a1
996 , p6_a2
997 , p6_a3
998 , p6_a4
999 , p6_a5
1000 , p6_a6
1001 , p6_a7
1002 , p6_a8
1003 , p6_a9
1004 , p6_a10
1005 );
1006 end;
1007
1008 procedure delete_row(p_api_version NUMBER
1009 , p_init_msg_list VARCHAR2
1010 , x_return_status out nocopy VARCHAR2
1011 , x_msg_count out nocopy NUMBER
1012 , x_msg_data out nocopy VARCHAR2
1013 , p5_a0 NUMBER := 0-1962.0724
1014 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1015 , p5_a2 NUMBER := 0-1962.0724
1016 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1017 , p5_a4 NUMBER := 0-1962.0724
1018 , p5_a5 NUMBER := 0-1962.0724
1019 , p5_a6 NUMBER := 0-1962.0724
1020 , p5_a7 DATE := fnd_api.g_miss_date
1021 , p5_a8 NUMBER := 0-1962.0724
1022 , p5_a9 DATE := fnd_api.g_miss_date
1023 , p5_a10 NUMBER := 0-1962.0724
1024 )
1025
1026 as
1027 ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
1028 ddindx binary_integer; indx binary_integer;
1029 begin
1030
1031 -- copy data to the local IN or IN-OUT args, if any
1032
1033
1034
1035
1036
1037 ddp_qlsv_rec.id := rosetta_g_miss_num_map(p5_a0);
1038 ddp_qlsv_rec.quote_line_type_code := p5_a1;
1039 ddp_qlsv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
1040 ddp_qlsv_rec.invoicable_yn := p5_a3;
1041 ddp_qlsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a4);
1042 ddp_qlsv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
1043 ddp_qlsv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
1044 ddp_qlsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
1045 ddp_qlsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
1046 ddp_qlsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
1047 ddp_qlsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
1048
1049 -- here's the delegated call to the old PL/SQL routine
1050 okl_qls_pvt.delete_row(p_api_version,
1051 p_init_msg_list,
1052 x_return_status,
1053 x_msg_count,
1054 x_msg_data,
1055 ddp_qlsv_rec);
1056
1057 -- copy data back from the local variables to OUT or IN-OUT args, if any
1058
1059
1060
1061
1062
1063 end;
1064
1065 procedure delete_row(p_api_version NUMBER
1066 , p_init_msg_list VARCHAR2
1067 , x_return_status out nocopy VARCHAR2
1068 , x_msg_count out nocopy NUMBER
1069 , x_msg_data out nocopy VARCHAR2
1070 , p5_a0 JTF_NUMBER_TABLE
1071 , p5_a1 JTF_VARCHAR2_TABLE_100
1072 , p5_a2 JTF_NUMBER_TABLE
1073 , p5_a3 JTF_VARCHAR2_TABLE_100
1074 , p5_a4 JTF_NUMBER_TABLE
1075 , p5_a5 JTF_NUMBER_TABLE
1076 , p5_a6 JTF_NUMBER_TABLE
1077 , p5_a7 JTF_DATE_TABLE
1078 , p5_a8 JTF_NUMBER_TABLE
1079 , p5_a9 JTF_DATE_TABLE
1080 , p5_a10 JTF_NUMBER_TABLE
1081 , p6_a0 in out nocopy JTF_NUMBER_TABLE
1082 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1083 , p6_a2 in out nocopy JTF_NUMBER_TABLE
1084 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
1085 , p6_a4 in out nocopy JTF_NUMBER_TABLE
1086 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1087 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1088 )
1089
1090 as
1091 ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
1092 ddpx_error_tbl okl_api.error_tbl_type;
1093 ddindx binary_integer; indx binary_integer;
1094 begin
1095
1096 -- copy data to the local IN or IN-OUT args, if any
1097
1098
1099
1100
1101
1102 okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
1103 , p5_a1
1104 , p5_a2
1105 , p5_a3
1106 , p5_a4
1107 , p5_a5
1108 , p5_a6
1109 , p5_a7
1110 , p5_a8
1111 , p5_a9
1112 , p5_a10
1113 );
1114
1115 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
1116 , p6_a1
1117 , p6_a2
1118 , p6_a3
1119 , p6_a4
1120 , p6_a5
1121 , p6_a6
1122 );
1123
1124 -- here's the delegated call to the old PL/SQL routine
1125 okl_qls_pvt.delete_row(p_api_version,
1126 p_init_msg_list,
1127 x_return_status,
1128 x_msg_count,
1129 x_msg_data,
1130 ddp_qlsv_tbl,
1131 ddpx_error_tbl);
1132
1133 -- copy data back from the local variables to OUT or IN-OUT args, if any
1134
1135
1136
1137
1138
1139
1140 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
1141 , p6_a1
1142 , p6_a2
1143 , p6_a3
1144 , p6_a4
1145 , p6_a5
1146 , p6_a6
1147 );
1148 end;
1149
1150 procedure delete_row(p_api_version NUMBER
1151 , p_init_msg_list VARCHAR2
1152 , x_return_status out nocopy VARCHAR2
1153 , x_msg_count out nocopy NUMBER
1154 , x_msg_data out nocopy VARCHAR2
1155 , p5_a0 JTF_NUMBER_TABLE
1156 , p5_a1 JTF_VARCHAR2_TABLE_100
1157 , p5_a2 JTF_NUMBER_TABLE
1158 , p5_a3 JTF_VARCHAR2_TABLE_100
1159 , p5_a4 JTF_NUMBER_TABLE
1160 , p5_a5 JTF_NUMBER_TABLE
1161 , p5_a6 JTF_NUMBER_TABLE
1162 , p5_a7 JTF_DATE_TABLE
1163 , p5_a8 JTF_NUMBER_TABLE
1164 , p5_a9 JTF_DATE_TABLE
1165 , p5_a10 JTF_NUMBER_TABLE
1166 )
1167
1168 as
1169 ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
1170 ddindx binary_integer; indx binary_integer;
1171 begin
1172
1173 -- copy data to the local IN or IN-OUT args, if any
1174
1175
1176
1177
1178
1179 okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
1180 , p5_a1
1181 , p5_a2
1182 , p5_a3
1183 , p5_a4
1184 , p5_a5
1185 , p5_a6
1186 , p5_a7
1187 , p5_a8
1188 , p5_a9
1189 , p5_a10
1190 );
1191
1192 -- here's the delegated call to the old PL/SQL routine
1193 okl_qls_pvt.delete_row(p_api_version,
1194 p_init_msg_list,
1195 x_return_status,
1196 x_msg_count,
1197 x_msg_data,
1198 ddp_qlsv_tbl);
1199
1200 -- copy data back from the local variables to OUT or IN-OUT args, if any
1201
1202
1203
1204
1205
1206 end;
1207
1208 procedure validate_row(p_api_version NUMBER
1209 , p_init_msg_list VARCHAR2
1210 , x_return_status out nocopy VARCHAR2
1211 , x_msg_count out nocopy NUMBER
1212 , x_msg_data out nocopy VARCHAR2
1213 , p5_a0 NUMBER := 0-1962.0724
1214 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1215 , p5_a2 NUMBER := 0-1962.0724
1216 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1217 , p5_a4 NUMBER := 0-1962.0724
1218 , p5_a5 NUMBER := 0-1962.0724
1219 , p5_a6 NUMBER := 0-1962.0724
1220 , p5_a7 DATE := fnd_api.g_miss_date
1221 , p5_a8 NUMBER := 0-1962.0724
1222 , p5_a9 DATE := fnd_api.g_miss_date
1223 , p5_a10 NUMBER := 0-1962.0724
1224 )
1225
1226 as
1227 ddp_qlsv_rec okl_qls_pvt.qlsv_rec_type;
1228 ddindx binary_integer; indx binary_integer;
1229 begin
1230
1231 -- copy data to the local IN or IN-OUT args, if any
1232
1233
1234
1235
1236
1237 ddp_qlsv_rec.id := rosetta_g_miss_num_map(p5_a0);
1238 ddp_qlsv_rec.quote_line_type_code := p5_a1;
1239 ddp_qlsv_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
1240 ddp_qlsv_rec.invoicable_yn := p5_a3;
1241 ddp_qlsv_rec.object_version_number := rosetta_g_miss_num_map(p5_a4);
1242 ddp_qlsv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
1243 ddp_qlsv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
1244 ddp_qlsv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
1245 ddp_qlsv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
1246 ddp_qlsv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
1247 ddp_qlsv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
1248
1249 -- here's the delegated call to the old PL/SQL routine
1250 okl_qls_pvt.validate_row(p_api_version,
1251 p_init_msg_list,
1252 x_return_status,
1253 x_msg_count,
1254 x_msg_data,
1255 ddp_qlsv_rec);
1256
1257 -- copy data back from the local variables to OUT or IN-OUT args, if any
1258
1259
1260
1261
1262
1263 end;
1264
1265 procedure validate_row(p_api_version NUMBER
1266 , p_init_msg_list VARCHAR2
1267 , x_return_status out nocopy VARCHAR2
1268 , x_msg_count out nocopy NUMBER
1269 , x_msg_data out nocopy VARCHAR2
1270 , p5_a0 JTF_NUMBER_TABLE
1271 , p5_a1 JTF_VARCHAR2_TABLE_100
1272 , p5_a2 JTF_NUMBER_TABLE
1273 , p5_a3 JTF_VARCHAR2_TABLE_100
1274 , p5_a4 JTF_NUMBER_TABLE
1275 , p5_a5 JTF_NUMBER_TABLE
1276 , p5_a6 JTF_NUMBER_TABLE
1277 , p5_a7 JTF_DATE_TABLE
1278 , p5_a8 JTF_NUMBER_TABLE
1279 , p5_a9 JTF_DATE_TABLE
1280 , p5_a10 JTF_NUMBER_TABLE
1281 , p6_a0 in out nocopy JTF_NUMBER_TABLE
1282 , p6_a1 in out nocopy JTF_VARCHAR2_TABLE_100
1283 , p6_a2 in out nocopy JTF_NUMBER_TABLE
1284 , p6_a3 in out nocopy JTF_VARCHAR2_TABLE_2000
1285 , p6_a4 in out nocopy JTF_NUMBER_TABLE
1286 , p6_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1287 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1288 )
1289
1290 as
1291 ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
1292 ddpx_error_tbl okl_api.error_tbl_type;
1293 ddindx binary_integer; indx binary_integer;
1294 begin
1295
1296 -- copy data to the local IN or IN-OUT args, if any
1297
1298
1299
1300
1301
1302 okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
1303 , p5_a1
1304 , p5_a2
1305 , p5_a3
1306 , p5_a4
1307 , p5_a5
1308 , p5_a6
1309 , p5_a7
1310 , p5_a8
1311 , p5_a9
1312 , p5_a10
1313 );
1314
1315 okl_api_w.rosetta_table_copy_in_p3(ddpx_error_tbl, p6_a0
1316 , p6_a1
1317 , p6_a2
1318 , p6_a3
1319 , p6_a4
1320 , p6_a5
1321 , p6_a6
1322 );
1323
1324 -- here's the delegated call to the old PL/SQL routine
1325 okl_qls_pvt.validate_row(p_api_version,
1326 p_init_msg_list,
1327 x_return_status,
1328 x_msg_count,
1329 x_msg_data,
1330 ddp_qlsv_tbl,
1331 ddpx_error_tbl);
1332
1333 -- copy data back from the local variables to OUT or IN-OUT args, if any
1334
1335
1336
1337
1338
1339
1340 okl_api_w.rosetta_table_copy_out_p3(ddpx_error_tbl, p6_a0
1341 , p6_a1
1342 , p6_a2
1343 , p6_a3
1344 , p6_a4
1345 , p6_a5
1346 , p6_a6
1347 );
1348 end;
1349
1350 procedure validate_row(p_api_version NUMBER
1351 , p_init_msg_list VARCHAR2
1352 , x_return_status out nocopy VARCHAR2
1353 , x_msg_count out nocopy NUMBER
1354 , x_msg_data out nocopy VARCHAR2
1355 , p5_a0 JTF_NUMBER_TABLE
1356 , p5_a1 JTF_VARCHAR2_TABLE_100
1357 , p5_a2 JTF_NUMBER_TABLE
1358 , p5_a3 JTF_VARCHAR2_TABLE_100
1359 , p5_a4 JTF_NUMBER_TABLE
1360 , p5_a5 JTF_NUMBER_TABLE
1361 , p5_a6 JTF_NUMBER_TABLE
1362 , p5_a7 JTF_DATE_TABLE
1363 , p5_a8 JTF_NUMBER_TABLE
1364 , p5_a9 JTF_DATE_TABLE
1365 , p5_a10 JTF_NUMBER_TABLE
1366 )
1367
1368 as
1369 ddp_qlsv_tbl okl_qls_pvt.qlsv_tbl_type;
1370 ddindx binary_integer; indx binary_integer;
1371 begin
1372
1373 -- copy data to the local IN or IN-OUT args, if any
1374
1375
1376
1377
1378
1379 okl_qls_pvt_w.rosetta_table_copy_in_p2(ddp_qlsv_tbl, p5_a0
1380 , p5_a1
1381 , p5_a2
1382 , p5_a3
1383 , p5_a4
1384 , p5_a5
1385 , p5_a6
1386 , p5_a7
1387 , p5_a8
1388 , p5_a9
1389 , p5_a10
1390 );
1391
1392 -- here's the delegated call to the old PL/SQL routine
1393 okl_qls_pvt.validate_row(p_api_version,
1394 p_init_msg_list,
1395 x_return_status,
1396 x_msg_count,
1397 x_msg_data,
1398 ddp_qlsv_tbl);
1399
1400 -- copy data back from the local variables to OUT or IN-OUT args, if any
1401
1402
1403
1404
1405
1406 end;
1407
1408 end okl_qls_pvt_w;