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