[Home] [Help]
PACKAGE BODY: APPS.OKL_BCT_PVT_W
Source
1 package body okl_bct_pvt_w as
2 /* $Header: OKLEBCTB.pls 120.0 2007/05/17 16:55:53 hariven 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure rosetta_table_copy_in_p1(t out nocopy okl_bct_pvt.okl_bct_tbl, a0 JTF_NUMBER_TABLE
26 , a1 JTF_NUMBER_TABLE
27 , a2 JTF_NUMBER_TABLE
28 , a3 JTF_NUMBER_TABLE
29 , a4 JTF_NUMBER_TABLE
30 , a5 JTF_VARCHAR2_TABLE_100
31 , a6 JTF_VARCHAR2_TABLE_100
32 , a7 JTF_NUMBER_TABLE
33 , a8 JTF_VARCHAR2_TABLE_100
34 , a9 JTF_NUMBER_TABLE
35 , a10 JTF_DATE_TABLE
36 , a11 JTF_NUMBER_TABLE
37 , a12 JTF_DATE_TABLE
38 , a13 JTF_NUMBER_TABLE
39 , a14 JTF_VARCHAR2_TABLE_100
40 ) as
41 ddindx binary_integer; indx binary_integer;
42 begin
43 if a0 is not null and a0.count > 0 then
44 if a0.count > 0 then
45 indx := a0.first;
46 ddindx := 1;
47 while true loop
48 t(ddindx).user_id := rosetta_g_miss_num_map(a0(indx));
49 t(ddindx).org_id := rosetta_g_miss_num_map(a1(indx));
50 t(ddindx).batch_number := rosetta_g_miss_num_map(a2(indx));
51 t(ddindx).processing_srl_number := rosetta_g_miss_num_map(a3(indx));
52 t(ddindx).khr_id := rosetta_g_miss_num_map(a4(indx));
53 t(ddindx).program_name := a5(indx);
54 t(ddindx).prog_short_name := a6(indx);
55 t(ddindx).conc_req_id := rosetta_g_miss_num_map(a7(indx));
56 t(ddindx).progress_status := a8(indx);
57 t(ddindx).created_by := rosetta_g_miss_num_map(a9(indx));
58 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a10(indx));
59 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a11(indx));
60 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a12(indx));
61 t(ddindx).last_update_login := rosetta_g_miss_num_map(a13(indx));
62 t(ddindx).active_flag := a14(indx);
63 ddindx := ddindx+1;
64 if a0.last =indx
65 then exit;
66 end if;
67 indx := a0.next(indx);
68 end loop;
69 end if;
70 end if;
71 end rosetta_table_copy_in_p1;
72 procedure rosetta_table_copy_out_p1(t okl_bct_pvt.okl_bct_tbl, a0 out nocopy JTF_NUMBER_TABLE
73 , a1 out nocopy JTF_NUMBER_TABLE
74 , a2 out nocopy JTF_NUMBER_TABLE
75 , a3 out nocopy JTF_NUMBER_TABLE
76 , a4 out nocopy JTF_NUMBER_TABLE
77 , a5 out nocopy JTF_VARCHAR2_TABLE_100
78 , a6 out nocopy JTF_VARCHAR2_TABLE_100
79 , a7 out nocopy JTF_NUMBER_TABLE
80 , a8 out nocopy JTF_VARCHAR2_TABLE_100
81 , a9 out nocopy JTF_NUMBER_TABLE
82 , a10 out nocopy JTF_DATE_TABLE
83 , a11 out nocopy JTF_NUMBER_TABLE
84 , a12 out nocopy JTF_DATE_TABLE
85 , a13 out nocopy JTF_NUMBER_TABLE
86 , a14 out nocopy JTF_VARCHAR2_TABLE_100
87 ) as
88 ddindx binary_integer; indx binary_integer;
89 begin
90 if t is null or t.count = 0 then
91 a0 := JTF_NUMBER_TABLE();
92 a1 := JTF_NUMBER_TABLE();
93 a2 := JTF_NUMBER_TABLE();
94 a3 := JTF_NUMBER_TABLE();
95 a4 := JTF_NUMBER_TABLE();
96 a5 := JTF_VARCHAR2_TABLE_100();
97 a6 := JTF_VARCHAR2_TABLE_100();
98 a7 := JTF_NUMBER_TABLE();
99 a8 := JTF_VARCHAR2_TABLE_100();
100 a9 := JTF_NUMBER_TABLE();
101 a10 := JTF_DATE_TABLE();
102 a11 := JTF_NUMBER_TABLE();
103 a12 := JTF_DATE_TABLE();
104 a13 := JTF_NUMBER_TABLE();
105 a14 := JTF_VARCHAR2_TABLE_100();
106 else
107 a0 := JTF_NUMBER_TABLE();
108 a1 := JTF_NUMBER_TABLE();
109 a2 := JTF_NUMBER_TABLE();
110 a3 := JTF_NUMBER_TABLE();
111 a4 := JTF_NUMBER_TABLE();
112 a5 := JTF_VARCHAR2_TABLE_100();
113 a6 := JTF_VARCHAR2_TABLE_100();
114 a7 := JTF_NUMBER_TABLE();
115 a8 := JTF_VARCHAR2_TABLE_100();
116 a9 := JTF_NUMBER_TABLE();
117 a10 := JTF_DATE_TABLE();
118 a11 := JTF_NUMBER_TABLE();
119 a12 := JTF_DATE_TABLE();
120 a13 := JTF_NUMBER_TABLE();
121 a14 := JTF_VARCHAR2_TABLE_100();
122 if t.count > 0 then
123 a0.extend(t.count);
124 a1.extend(t.count);
125 a2.extend(t.count);
126 a3.extend(t.count);
127 a4.extend(t.count);
128 a5.extend(t.count);
129 a6.extend(t.count);
130 a7.extend(t.count);
131 a8.extend(t.count);
132 a9.extend(t.count);
133 a10.extend(t.count);
134 a11.extend(t.count);
135 a12.extend(t.count);
136 a13.extend(t.count);
137 a14.extend(t.count);
138 ddindx := t.first;
139 indx := 1;
140 while true loop
141 a0(indx) := rosetta_g_miss_num_map(t(ddindx).user_id);
142 a1(indx) := rosetta_g_miss_num_map(t(ddindx).org_id);
143 a2(indx) := rosetta_g_miss_num_map(t(ddindx).batch_number);
144 a3(indx) := rosetta_g_miss_num_map(t(ddindx).processing_srl_number);
145 a4(indx) := rosetta_g_miss_num_map(t(ddindx).khr_id);
146 a5(indx) := t(ddindx).program_name;
147 a6(indx) := t(ddindx).prog_short_name;
148 a7(indx) := rosetta_g_miss_num_map(t(ddindx).conc_req_id);
149 a8(indx) := t(ddindx).progress_status;
150 a9(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
151 a10(indx) := t(ddindx).creation_date;
152 a11(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
153 a12(indx) := t(ddindx).last_update_date;
154 a13(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
155 a14(indx) := t(ddindx).active_flag;
156 indx := indx+1;
157 if t.last =ddindx
158 then exit;
159 end if;
160 ddindx := t.next(ddindx);
161 end loop;
162 end if;
163 end if;
164 end rosetta_table_copy_out_p1;
165
166 procedure insert_row(p_api_version NUMBER
167 , p_init_msg_list VARCHAR2
168 , x_return_status out nocopy VARCHAR2
169 , x_msg_count out nocopy NUMBER
170 , x_msg_data out nocopy VARCHAR2
171 , p6_a0 out nocopy NUMBER
172 , p6_a1 out nocopy NUMBER
173 , p6_a2 out nocopy NUMBER
174 , p6_a3 out nocopy NUMBER
175 , p6_a4 out nocopy NUMBER
176 , p6_a5 out nocopy VARCHAR2
177 , p6_a6 out nocopy VARCHAR2
178 , p6_a7 out nocopy NUMBER
179 , p6_a8 out nocopy VARCHAR2
180 , p6_a9 out nocopy NUMBER
181 , p6_a10 out nocopy DATE
182 , p6_a11 out nocopy NUMBER
183 , p6_a12 out nocopy DATE
184 , p6_a13 out nocopy NUMBER
185 , p6_a14 out nocopy VARCHAR2
186 , p5_a0 NUMBER := 0-1962.0724
187 , p5_a1 NUMBER := 0-1962.0724
188 , p5_a2 NUMBER := 0-1962.0724
189 , p5_a3 NUMBER := 0-1962.0724
190 , p5_a4 NUMBER := 0-1962.0724
191 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
192 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
193 , p5_a7 NUMBER := 0-1962.0724
194 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
195 , p5_a9 NUMBER := 0-1962.0724
196 , p5_a10 DATE := fnd_api.g_miss_date
197 , p5_a11 NUMBER := 0-1962.0724
198 , p5_a12 DATE := fnd_api.g_miss_date
199 , p5_a13 NUMBER := 0-1962.0724
200 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
201 )
202
203 as
204 ddp_bct_rec okl_bct_pvt.okl_bct_rec;
205 ddx_bct_rec okl_bct_pvt.okl_bct_rec;
206 ddindx binary_integer; indx binary_integer;
207 begin
208
209 -- copy data to the local IN or IN-OUT args, if any
210
211
212
213
214
215 ddp_bct_rec.user_id := rosetta_g_miss_num_map(p5_a0);
216 ddp_bct_rec.org_id := rosetta_g_miss_num_map(p5_a1);
217 ddp_bct_rec.batch_number := rosetta_g_miss_num_map(p5_a2);
218 ddp_bct_rec.processing_srl_number := rosetta_g_miss_num_map(p5_a3);
219 ddp_bct_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
220 ddp_bct_rec.program_name := p5_a5;
221 ddp_bct_rec.prog_short_name := p5_a6;
222 ddp_bct_rec.conc_req_id := rosetta_g_miss_num_map(p5_a7);
223 ddp_bct_rec.progress_status := p5_a8;
224 ddp_bct_rec.created_by := rosetta_g_miss_num_map(p5_a9);
225 ddp_bct_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
226 ddp_bct_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
227 ddp_bct_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
228 ddp_bct_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
229 ddp_bct_rec.active_flag := p5_a14;
230
231
232 -- here's the delegated call to the old PL/SQL routine
233 okl_bct_pvt.insert_row(p_api_version,
234 p_init_msg_list,
235 x_return_status,
236 x_msg_count,
237 x_msg_data,
238 ddp_bct_rec,
239 ddx_bct_rec);
240
241 -- copy data back from the local variables to OUT or IN-OUT args, if any
242
243
244
245
246
247
248 p6_a0 := rosetta_g_miss_num_map(ddx_bct_rec.user_id);
249 p6_a1 := rosetta_g_miss_num_map(ddx_bct_rec.org_id);
250 p6_a2 := rosetta_g_miss_num_map(ddx_bct_rec.batch_number);
251 p6_a3 := rosetta_g_miss_num_map(ddx_bct_rec.processing_srl_number);
252 p6_a4 := rosetta_g_miss_num_map(ddx_bct_rec.khr_id);
253 p6_a5 := ddx_bct_rec.program_name;
254 p6_a6 := ddx_bct_rec.prog_short_name;
255 p6_a7 := rosetta_g_miss_num_map(ddx_bct_rec.conc_req_id);
256 p6_a8 := ddx_bct_rec.progress_status;
257 p6_a9 := rosetta_g_miss_num_map(ddx_bct_rec.created_by);
258 p6_a10 := ddx_bct_rec.creation_date;
259 p6_a11 := rosetta_g_miss_num_map(ddx_bct_rec.last_updated_by);
260 p6_a12 := ddx_bct_rec.last_update_date;
261 p6_a13 := rosetta_g_miss_num_map(ddx_bct_rec.last_update_login);
262 p6_a14 := ddx_bct_rec.active_flag;
263 end;
264
265 procedure insert_row(p_api_version NUMBER
266 , p_init_msg_list VARCHAR2
267 , x_return_status out nocopy VARCHAR2
268 , x_msg_count out nocopy NUMBER
269 , x_msg_data out nocopy VARCHAR2
270 , p5_a0 JTF_NUMBER_TABLE
271 , p5_a1 JTF_NUMBER_TABLE
272 , p5_a2 JTF_NUMBER_TABLE
273 , p5_a3 JTF_NUMBER_TABLE
274 , p5_a4 JTF_NUMBER_TABLE
275 , p5_a5 JTF_VARCHAR2_TABLE_100
276 , p5_a6 JTF_VARCHAR2_TABLE_100
277 , p5_a7 JTF_NUMBER_TABLE
278 , p5_a8 JTF_VARCHAR2_TABLE_100
279 , p5_a9 JTF_NUMBER_TABLE
280 , p5_a10 JTF_DATE_TABLE
281 , p5_a11 JTF_NUMBER_TABLE
282 , p5_a12 JTF_DATE_TABLE
283 , p5_a13 JTF_NUMBER_TABLE
284 , p5_a14 JTF_VARCHAR2_TABLE_100
285 , p6_a0 out nocopy JTF_NUMBER_TABLE
286 , p6_a1 out nocopy JTF_NUMBER_TABLE
287 , p6_a2 out nocopy JTF_NUMBER_TABLE
288 , p6_a3 out nocopy JTF_NUMBER_TABLE
289 , p6_a4 out nocopy JTF_NUMBER_TABLE
290 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
291 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
292 , p6_a7 out nocopy JTF_NUMBER_TABLE
293 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
294 , p6_a9 out nocopy JTF_NUMBER_TABLE
295 , p6_a10 out nocopy JTF_DATE_TABLE
296 , p6_a11 out nocopy JTF_NUMBER_TABLE
297 , p6_a12 out nocopy JTF_DATE_TABLE
298 , p6_a13 out nocopy JTF_NUMBER_TABLE
299 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
300 )
301
302 as
303 ddp_bct_tbl okl_bct_pvt.okl_bct_tbl;
304 ddx_bct_tbl okl_bct_pvt.okl_bct_tbl;
305 ddindx binary_integer; indx binary_integer;
306 begin
307
308 -- copy data to the local IN or IN-OUT args, if any
309
310
311
312
313
314 okl_bct_pvt_w.rosetta_table_copy_in_p1(ddp_bct_tbl, p5_a0
315 , p5_a1
316 , p5_a2
317 , p5_a3
318 , p5_a4
319 , p5_a5
320 , p5_a6
321 , p5_a7
322 , p5_a8
323 , p5_a9
324 , p5_a10
325 , p5_a11
326 , p5_a12
327 , p5_a13
328 , p5_a14
329 );
330
331
332 -- here's the delegated call to the old PL/SQL routine
333 okl_bct_pvt.insert_row(p_api_version,
334 p_init_msg_list,
335 x_return_status,
336 x_msg_count,
337 x_msg_data,
338 ddp_bct_tbl,
339 ddx_bct_tbl);
340
341 -- copy data back from the local variables to OUT or IN-OUT args, if any
342
343
344
345
346
347
348 okl_bct_pvt_w.rosetta_table_copy_out_p1(ddx_bct_tbl, p6_a0
349 , p6_a1
350 , p6_a2
351 , p6_a3
352 , p6_a4
353 , p6_a5
354 , p6_a6
355 , p6_a7
356 , p6_a8
357 , p6_a9
358 , p6_a10
359 , p6_a11
360 , p6_a12
361 , p6_a13
362 , p6_a14
363 );
364 end;
365
366 procedure update_row(p_api_version NUMBER
367 , p_init_msg_list VARCHAR2
368 , x_return_status out nocopy VARCHAR2
369 , x_msg_count out nocopy NUMBER
370 , x_msg_data out nocopy VARCHAR2
371 , p6_a0 out nocopy NUMBER
372 , p6_a1 out nocopy NUMBER
373 , p6_a2 out nocopy NUMBER
374 , p6_a3 out nocopy NUMBER
375 , p6_a4 out nocopy NUMBER
376 , p6_a5 out nocopy VARCHAR2
377 , p6_a6 out nocopy VARCHAR2
378 , p6_a7 out nocopy NUMBER
379 , p6_a8 out nocopy VARCHAR2
380 , p6_a9 out nocopy NUMBER
381 , p6_a10 out nocopy DATE
382 , p6_a11 out nocopy NUMBER
383 , p6_a12 out nocopy DATE
384 , p6_a13 out nocopy NUMBER
385 , p6_a14 out nocopy VARCHAR2
386 , p5_a0 NUMBER := 0-1962.0724
387 , p5_a1 NUMBER := 0-1962.0724
388 , p5_a2 NUMBER := 0-1962.0724
389 , p5_a3 NUMBER := 0-1962.0724
390 , p5_a4 NUMBER := 0-1962.0724
391 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
392 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
393 , p5_a7 NUMBER := 0-1962.0724
394 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
395 , p5_a9 NUMBER := 0-1962.0724
396 , p5_a10 DATE := fnd_api.g_miss_date
397 , p5_a11 NUMBER := 0-1962.0724
398 , p5_a12 DATE := fnd_api.g_miss_date
399 , p5_a13 NUMBER := 0-1962.0724
400 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
401 )
402
403 as
404 ddp_bct_rec okl_bct_pvt.okl_bct_rec;
405 ddx_bct_rec okl_bct_pvt.okl_bct_rec;
406 ddindx binary_integer; indx binary_integer;
407 begin
408
409 -- copy data to the local IN or IN-OUT args, if any
410
411
412
413
414
415 ddp_bct_rec.user_id := rosetta_g_miss_num_map(p5_a0);
416 ddp_bct_rec.org_id := rosetta_g_miss_num_map(p5_a1);
417 ddp_bct_rec.batch_number := rosetta_g_miss_num_map(p5_a2);
418 ddp_bct_rec.processing_srl_number := rosetta_g_miss_num_map(p5_a3);
419 ddp_bct_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
420 ddp_bct_rec.program_name := p5_a5;
421 ddp_bct_rec.prog_short_name := p5_a6;
422 ddp_bct_rec.conc_req_id := rosetta_g_miss_num_map(p5_a7);
423 ddp_bct_rec.progress_status := p5_a8;
424 ddp_bct_rec.created_by := rosetta_g_miss_num_map(p5_a9);
425 ddp_bct_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
426 ddp_bct_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
427 ddp_bct_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
428 ddp_bct_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
429 ddp_bct_rec.active_flag := p5_a14;
430
431
432 -- here's the delegated call to the old PL/SQL routine
433 okl_bct_pvt.update_row(p_api_version,
434 p_init_msg_list,
435 x_return_status,
436 x_msg_count,
437 x_msg_data,
438 ddp_bct_rec,
439 ddx_bct_rec);
440
441 -- copy data back from the local variables to OUT or IN-OUT args, if any
442
443
444
445
446
447
448 p6_a0 := rosetta_g_miss_num_map(ddx_bct_rec.user_id);
449 p6_a1 := rosetta_g_miss_num_map(ddx_bct_rec.org_id);
450 p6_a2 := rosetta_g_miss_num_map(ddx_bct_rec.batch_number);
451 p6_a3 := rosetta_g_miss_num_map(ddx_bct_rec.processing_srl_number);
452 p6_a4 := rosetta_g_miss_num_map(ddx_bct_rec.khr_id);
453 p6_a5 := ddx_bct_rec.program_name;
454 p6_a6 := ddx_bct_rec.prog_short_name;
455 p6_a7 := rosetta_g_miss_num_map(ddx_bct_rec.conc_req_id);
456 p6_a8 := ddx_bct_rec.progress_status;
457 p6_a9 := rosetta_g_miss_num_map(ddx_bct_rec.created_by);
458 p6_a10 := ddx_bct_rec.creation_date;
459 p6_a11 := rosetta_g_miss_num_map(ddx_bct_rec.last_updated_by);
460 p6_a12 := ddx_bct_rec.last_update_date;
461 p6_a13 := rosetta_g_miss_num_map(ddx_bct_rec.last_update_login);
462 p6_a14 := ddx_bct_rec.active_flag;
463 end;
464
465 procedure update_row(p_api_version NUMBER
466 , p_init_msg_list VARCHAR2
467 , x_return_status out nocopy VARCHAR2
468 , x_msg_count out nocopy NUMBER
469 , x_msg_data out nocopy VARCHAR2
470 , p5_a0 JTF_NUMBER_TABLE
471 , p5_a1 JTF_NUMBER_TABLE
472 , p5_a2 JTF_NUMBER_TABLE
473 , p5_a3 JTF_NUMBER_TABLE
474 , p5_a4 JTF_NUMBER_TABLE
475 , p5_a5 JTF_VARCHAR2_TABLE_100
476 , p5_a6 JTF_VARCHAR2_TABLE_100
477 , p5_a7 JTF_NUMBER_TABLE
478 , p5_a8 JTF_VARCHAR2_TABLE_100
479 , p5_a9 JTF_NUMBER_TABLE
480 , p5_a10 JTF_DATE_TABLE
481 , p5_a11 JTF_NUMBER_TABLE
482 , p5_a12 JTF_DATE_TABLE
483 , p5_a13 JTF_NUMBER_TABLE
484 , p5_a14 JTF_VARCHAR2_TABLE_100
485 , p6_a0 out nocopy JTF_NUMBER_TABLE
486 , p6_a1 out nocopy JTF_NUMBER_TABLE
487 , p6_a2 out nocopy JTF_NUMBER_TABLE
488 , p6_a3 out nocopy JTF_NUMBER_TABLE
489 , p6_a4 out nocopy JTF_NUMBER_TABLE
490 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
491 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
492 , p6_a7 out nocopy JTF_NUMBER_TABLE
493 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
494 , p6_a9 out nocopy JTF_NUMBER_TABLE
495 , p6_a10 out nocopy JTF_DATE_TABLE
496 , p6_a11 out nocopy JTF_NUMBER_TABLE
497 , p6_a12 out nocopy JTF_DATE_TABLE
498 , p6_a13 out nocopy JTF_NUMBER_TABLE
499 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
500 )
501
502 as
503 ddp_bct_tbl okl_bct_pvt.okl_bct_tbl;
504 ddx_bct_tbl okl_bct_pvt.okl_bct_tbl;
505 ddindx binary_integer; indx binary_integer;
506 begin
507
508 -- copy data to the local IN or IN-OUT args, if any
509
510
511
512
513
514 okl_bct_pvt_w.rosetta_table_copy_in_p1(ddp_bct_tbl, p5_a0
515 , p5_a1
516 , p5_a2
517 , p5_a3
518 , p5_a4
519 , p5_a5
520 , p5_a6
521 , p5_a7
522 , p5_a8
523 , p5_a9
524 , p5_a10
525 , p5_a11
526 , p5_a12
527 , p5_a13
528 , p5_a14
529 );
530
531
532 -- here's the delegated call to the old PL/SQL routine
533 okl_bct_pvt.update_row(p_api_version,
534 p_init_msg_list,
535 x_return_status,
536 x_msg_count,
537 x_msg_data,
538 ddp_bct_tbl,
539 ddx_bct_tbl);
540
541 -- copy data back from the local variables to OUT or IN-OUT args, if any
542
543
544
545
546
547
548 okl_bct_pvt_w.rosetta_table_copy_out_p1(ddx_bct_tbl, p6_a0
549 , p6_a1
550 , p6_a2
551 , p6_a3
552 , p6_a4
553 , p6_a5
554 , p6_a6
555 , p6_a7
556 , p6_a8
557 , p6_a9
558 , p6_a10
559 , p6_a11
560 , p6_a12
561 , p6_a13
562 , p6_a14
563 );
564 end;
565
566 procedure delete_row(p_api_version NUMBER
567 , p_init_msg_list VARCHAR2
568 , x_return_status out nocopy VARCHAR2
569 , x_msg_count out nocopy NUMBER
570 , x_msg_data out nocopy VARCHAR2
571 , p5_a0 NUMBER := 0-1962.0724
572 , p5_a1 NUMBER := 0-1962.0724
573 , p5_a2 NUMBER := 0-1962.0724
574 , p5_a3 NUMBER := 0-1962.0724
575 , p5_a4 NUMBER := 0-1962.0724
576 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
577 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
578 , p5_a7 NUMBER := 0-1962.0724
579 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
580 , p5_a9 NUMBER := 0-1962.0724
581 , p5_a10 DATE := fnd_api.g_miss_date
582 , p5_a11 NUMBER := 0-1962.0724
583 , p5_a12 DATE := fnd_api.g_miss_date
584 , p5_a13 NUMBER := 0-1962.0724
585 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
586 )
587
588 as
589 ddp_bct_rec okl_bct_pvt.okl_bct_rec;
590 ddindx binary_integer; indx binary_integer;
591 begin
592
593 -- copy data to the local IN or IN-OUT args, if any
594
595
596
597
598
599 ddp_bct_rec.user_id := rosetta_g_miss_num_map(p5_a0);
600 ddp_bct_rec.org_id := rosetta_g_miss_num_map(p5_a1);
601 ddp_bct_rec.batch_number := rosetta_g_miss_num_map(p5_a2);
602 ddp_bct_rec.processing_srl_number := rosetta_g_miss_num_map(p5_a3);
603 ddp_bct_rec.khr_id := rosetta_g_miss_num_map(p5_a4);
604 ddp_bct_rec.program_name := p5_a5;
605 ddp_bct_rec.prog_short_name := p5_a6;
606 ddp_bct_rec.conc_req_id := rosetta_g_miss_num_map(p5_a7);
607 ddp_bct_rec.progress_status := p5_a8;
608 ddp_bct_rec.created_by := rosetta_g_miss_num_map(p5_a9);
609 ddp_bct_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
610 ddp_bct_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
611 ddp_bct_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
612 ddp_bct_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
613 ddp_bct_rec.active_flag := p5_a14;
614
615 -- here's the delegated call to the old PL/SQL routine
616 okl_bct_pvt.delete_row(p_api_version,
617 p_init_msg_list,
618 x_return_status,
619 x_msg_count,
620 x_msg_data,
621 ddp_bct_rec);
622
623 -- copy data back from the local variables to OUT or IN-OUT args, if any
624
625
626
627
628
629 end;
630
631 procedure delete_row(p_api_version NUMBER
632 , p_init_msg_list VARCHAR2
633 , x_return_status out nocopy VARCHAR2
634 , x_msg_count out nocopy NUMBER
635 , x_msg_data out nocopy VARCHAR2
636 , p5_a0 JTF_NUMBER_TABLE
637 , p5_a1 JTF_NUMBER_TABLE
638 , p5_a2 JTF_NUMBER_TABLE
639 , p5_a3 JTF_NUMBER_TABLE
640 , p5_a4 JTF_NUMBER_TABLE
641 , p5_a5 JTF_VARCHAR2_TABLE_100
642 , p5_a6 JTF_VARCHAR2_TABLE_100
643 , p5_a7 JTF_NUMBER_TABLE
644 , p5_a8 JTF_VARCHAR2_TABLE_100
645 , p5_a9 JTF_NUMBER_TABLE
646 , p5_a10 JTF_DATE_TABLE
647 , p5_a11 JTF_NUMBER_TABLE
648 , p5_a12 JTF_DATE_TABLE
649 , p5_a13 JTF_NUMBER_TABLE
650 , p5_a14 JTF_VARCHAR2_TABLE_100
651 )
652
653 as
654 ddp_bct_tbl okl_bct_pvt.okl_bct_tbl;
655 ddindx binary_integer; indx binary_integer;
656 begin
657
658 -- copy data to the local IN or IN-OUT args, if any
659
660
661
662
663
664 okl_bct_pvt_w.rosetta_table_copy_in_p1(ddp_bct_tbl, p5_a0
665 , p5_a1
666 , p5_a2
667 , p5_a3
668 , p5_a4
669 , p5_a5
670 , p5_a6
671 , p5_a7
672 , p5_a8
673 , p5_a9
674 , p5_a10
675 , p5_a11
676 , p5_a12
677 , p5_a13
678 , p5_a14
679 );
680
681 -- here's the delegated call to the old PL/SQL routine
682 okl_bct_pvt.delete_row(p_api_version,
683 p_init_msg_list,
684 x_return_status,
685 x_msg_count,
686 x_msg_data,
687 ddp_bct_tbl);
688
689 -- copy data back from the local variables to OUT or IN-OUT args, if any
690
691
692
693
694
695 end;
696
697 end okl_bct_pvt_w;