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