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