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