[Home] [Help]
PACKAGE BODY: APPS.IEX_STATUS_RULE_PUB_W
Source
1 package body iex_status_rule_pub_w as
2 /* $Header: iexwcstb.pls 120.1 2005/07/06 14:10:34 schekuri 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_p1(t out nocopy iex_status_rule_pub.status_rule_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_VARCHAR2_TABLE_200
25 , a3 JTF_DATE_TABLE
26 , a4 JTF_DATE_TABLE
27 , a5 JTF_DATE_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_DATE_TABLE
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_NUMBER_TABLE
32 , a10 JTF_NUMBER_TABLE
33 , a11 JTF_NUMBER_TABLE
34 , a12 JTF_NUMBER_TABLE
35 ) as
36 ddindx binary_integer; indx binary_integer;
37 begin
38 if a0 is not null and a0.count > 0 then
39 if a0.count > 0 then
40 indx := a0.first;
41 ddindx := 1;
42 while true loop
43 t(ddindx).status_rule_id := rosetta_g_miss_num_map(a0(indx));
44 t(ddindx).status_rule_name := a1(indx);
45 t(ddindx).status_rule_description := a2(indx);
46 t(ddindx).start_date := rosetta_g_miss_date_in_map(a3(indx));
47 t(ddindx).end_date := rosetta_g_miss_date_in_map(a4(indx));
48 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a5(indx));
49 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a6(indx));
50 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a7(indx));
51 t(ddindx).created_by := rosetta_g_miss_num_map(a8(indx));
52 t(ddindx).last_update_login := rosetta_g_miss_num_map(a9(indx));
53 t(ddindx).program_id := rosetta_g_miss_num_map(a10(indx));
54 t(ddindx).security_group_id := rosetta_g_miss_num_map(a11(indx));
55 t(ddindx).object_version_number := rosetta_g_miss_num_map(a12(indx));
56 ddindx := ddindx+1;
57 if a0.last =indx
58 then exit;
59 end if;
60 indx := a0.next(indx);
61 end loop;
62 end if;
63 end if;
64 end rosetta_table_copy_in_p1;
65 procedure rosetta_table_copy_out_p1(t iex_status_rule_pub.status_rule_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
66 , a1 out nocopy JTF_VARCHAR2_TABLE_100
67 , a2 out nocopy JTF_VARCHAR2_TABLE_200
68 , a3 out nocopy JTF_DATE_TABLE
69 , a4 out nocopy JTF_DATE_TABLE
70 , a5 out nocopy JTF_DATE_TABLE
71 , a6 out nocopy JTF_NUMBER_TABLE
72 , a7 out nocopy JTF_DATE_TABLE
73 , a8 out nocopy JTF_NUMBER_TABLE
74 , a9 out nocopy JTF_NUMBER_TABLE
75 , a10 out nocopy JTF_NUMBER_TABLE
76 , a11 out nocopy JTF_NUMBER_TABLE
77 , a12 out nocopy JTF_NUMBER_TABLE
78 ) as
79 ddindx binary_integer; indx binary_integer;
80 begin
81 if t is null or t.count = 0 then
82 a0 := JTF_NUMBER_TABLE();
83 a1 := JTF_VARCHAR2_TABLE_100();
84 a2 := JTF_VARCHAR2_TABLE_200();
85 a3 := JTF_DATE_TABLE();
86 a4 := JTF_DATE_TABLE();
87 a5 := JTF_DATE_TABLE();
88 a6 := JTF_NUMBER_TABLE();
89 a7 := JTF_DATE_TABLE();
90 a8 := JTF_NUMBER_TABLE();
91 a9 := JTF_NUMBER_TABLE();
92 a10 := JTF_NUMBER_TABLE();
93 a11 := JTF_NUMBER_TABLE();
94 a12 := JTF_NUMBER_TABLE();
95 else
96 a0 := JTF_NUMBER_TABLE();
97 a1 := JTF_VARCHAR2_TABLE_100();
98 a2 := JTF_VARCHAR2_TABLE_200();
99 a3 := JTF_DATE_TABLE();
100 a4 := JTF_DATE_TABLE();
101 a5 := JTF_DATE_TABLE();
102 a6 := JTF_NUMBER_TABLE();
103 a7 := JTF_DATE_TABLE();
104 a8 := JTF_NUMBER_TABLE();
105 a9 := JTF_NUMBER_TABLE();
106 a10 := JTF_NUMBER_TABLE();
107 a11 := JTF_NUMBER_TABLE();
108 a12 := JTF_NUMBER_TABLE();
109 if t.count > 0 then
110 a0.extend(t.count);
111 a1.extend(t.count);
112 a2.extend(t.count);
113 a3.extend(t.count);
114 a4.extend(t.count);
115 a5.extend(t.count);
116 a6.extend(t.count);
117 a7.extend(t.count);
118 a8.extend(t.count);
119 a9.extend(t.count);
120 a10.extend(t.count);
121 a11.extend(t.count);
122 a12.extend(t.count);
123 ddindx := t.first;
124 indx := 1;
125 while true loop
126 a0(indx) := rosetta_g_miss_num_map(t(ddindx).status_rule_id);
127 a1(indx) := t(ddindx).status_rule_name;
128 a2(indx) := t(ddindx).status_rule_description;
129 a3(indx) := t(ddindx).start_date;
130 a4(indx) := t(ddindx).end_date;
131 a5(indx) := t(ddindx).last_update_date;
132 a6(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
133 a7(indx) := t(ddindx).creation_date;
134 a8(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
135 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
136 a10(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
137 a11(indx) := rosetta_g_miss_num_map(t(ddindx).security_group_id);
138 a12(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
139 indx := indx+1;
140 if t.last =ddindx
141 then exit;
142 end if;
143 ddindx := t.next(ddindx);
144 end loop;
145 end if;
146 end if;
147 end rosetta_table_copy_out_p1;
148
149 procedure rosetta_table_copy_in_p3(t out nocopy iex_status_rule_pub.status_rule_line_tbl_type, a0 JTF_NUMBER_TABLE
150 , a1 JTF_VARCHAR2_TABLE_100
151 , a2 JTF_NUMBER_TABLE
152 , a3 JTF_VARCHAR2_TABLE_100
153 , a4 JTF_NUMBER_TABLE
154 , a5 JTF_DATE_TABLE
155 , a6 JTF_NUMBER_TABLE
156 , a7 JTF_DATE_TABLE
157 , a8 JTF_NUMBER_TABLE
158 , a9 JTF_NUMBER_TABLE
159 , a10 JTF_NUMBER_TABLE
160 , a11 JTF_NUMBER_TABLE
161 , a12 JTF_NUMBER_TABLE
162 ) as
163 ddindx binary_integer; indx binary_integer;
164 begin
165 if a0 is not null and a0.count > 0 then
166 if a0.count > 0 then
167 indx := a0.first;
168 ddindx := 1;
169 while true loop
170 t(ddindx).status_rule_line_id := rosetta_g_miss_num_map(a0(indx));
171 t(ddindx).delinquency_status := a1(indx);
172 t(ddindx).priority := rosetta_g_miss_num_map(a2(indx));
173 t(ddindx).enabled_flag := a3(indx);
174 t(ddindx).status_rule_id := rosetta_g_miss_num_map(a4(indx));
175 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a5(indx));
176 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a6(indx));
177 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a7(indx));
178 t(ddindx).created_by := rosetta_g_miss_num_map(a8(indx));
179 t(ddindx).last_update_login := rosetta_g_miss_num_map(a9(indx));
180 t(ddindx).program_id := rosetta_g_miss_num_map(a10(indx));
181 t(ddindx).security_group_id := rosetta_g_miss_num_map(a11(indx));
182 t(ddindx).object_version_number := rosetta_g_miss_num_map(a12(indx));
183 ddindx := ddindx+1;
184 if a0.last =indx
185 then exit;
186 end if;
187 indx := a0.next(indx);
188 end loop;
189 end if;
190 end if;
191 end rosetta_table_copy_in_p3;
192 procedure rosetta_table_copy_out_p3(t iex_status_rule_pub.status_rule_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
193 , a1 out nocopy JTF_VARCHAR2_TABLE_100
194 , a2 out nocopy JTF_NUMBER_TABLE
195 , a3 out nocopy JTF_VARCHAR2_TABLE_100
196 , a4 out nocopy JTF_NUMBER_TABLE
197 , a5 out nocopy JTF_DATE_TABLE
198 , a6 out nocopy JTF_NUMBER_TABLE
199 , a7 out nocopy JTF_DATE_TABLE
200 , a8 out nocopy JTF_NUMBER_TABLE
201 , a9 out nocopy JTF_NUMBER_TABLE
202 , a10 out nocopy JTF_NUMBER_TABLE
203 , a11 out nocopy JTF_NUMBER_TABLE
204 , a12 out nocopy JTF_NUMBER_TABLE
205 ) as
206 ddindx binary_integer; indx binary_integer;
207 begin
208 if t is null or t.count = 0 then
209 a0 := JTF_NUMBER_TABLE();
210 a1 := JTF_VARCHAR2_TABLE_100();
211 a2 := JTF_NUMBER_TABLE();
212 a3 := JTF_VARCHAR2_TABLE_100();
213 a4 := JTF_NUMBER_TABLE();
214 a5 := JTF_DATE_TABLE();
215 a6 := JTF_NUMBER_TABLE();
216 a7 := JTF_DATE_TABLE();
217 a8 := JTF_NUMBER_TABLE();
218 a9 := JTF_NUMBER_TABLE();
219 a10 := JTF_NUMBER_TABLE();
220 a11 := JTF_NUMBER_TABLE();
221 a12 := JTF_NUMBER_TABLE();
222 else
223 a0 := JTF_NUMBER_TABLE();
224 a1 := JTF_VARCHAR2_TABLE_100();
225 a2 := JTF_NUMBER_TABLE();
226 a3 := JTF_VARCHAR2_TABLE_100();
227 a4 := JTF_NUMBER_TABLE();
228 a5 := JTF_DATE_TABLE();
229 a6 := JTF_NUMBER_TABLE();
230 a7 := JTF_DATE_TABLE();
231 a8 := JTF_NUMBER_TABLE();
232 a9 := JTF_NUMBER_TABLE();
233 a10 := JTF_NUMBER_TABLE();
234 a11 := JTF_NUMBER_TABLE();
235 a12 := JTF_NUMBER_TABLE();
236 if t.count > 0 then
237 a0.extend(t.count);
238 a1.extend(t.count);
239 a2.extend(t.count);
240 a3.extend(t.count);
241 a4.extend(t.count);
242 a5.extend(t.count);
243 a6.extend(t.count);
244 a7.extend(t.count);
245 a8.extend(t.count);
246 a9.extend(t.count);
247 a10.extend(t.count);
248 a11.extend(t.count);
249 a12.extend(t.count);
250 ddindx := t.first;
251 indx := 1;
252 while true loop
253 a0(indx) := rosetta_g_miss_num_map(t(ddindx).status_rule_line_id);
254 a1(indx) := t(ddindx).delinquency_status;
255 a2(indx) := rosetta_g_miss_num_map(t(ddindx).priority);
256 a3(indx) := t(ddindx).enabled_flag;
257 a4(indx) := rosetta_g_miss_num_map(t(ddindx).status_rule_id);
258 a5(indx) := t(ddindx).last_update_date;
259 a6(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
260 a7(indx) := t(ddindx).creation_date;
261 a8(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
262 a9(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
263 a10(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
264 a11(indx) := rosetta_g_miss_num_map(t(ddindx).security_group_id);
265 a12(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
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_p3;
275
276 procedure rosetta_table_copy_in_p4(t out nocopy iex_status_rule_pub.status_rule_id_tbl_type, a0 JTF_NUMBER_TABLE) as
277 ddindx binary_integer; indx binary_integer;
278 begin
279 if a0 is not null and a0.count > 0 then
280 if a0.count > 0 then
281 indx := a0.first;
282 ddindx := 1;
283 while true loop
284 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
285 ddindx := ddindx+1;
286 if a0.last =indx
287 then exit;
288 end if;
289 indx := a0.next(indx);
290 end loop;
291 end if;
292 end if;
293 end rosetta_table_copy_in_p4;
294 procedure rosetta_table_copy_out_p4(t iex_status_rule_pub.status_rule_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
295 ddindx binary_integer; indx binary_integer;
296 begin
297 if t is null or t.count = 0 then
298 a0 := JTF_NUMBER_TABLE();
299 else
300 a0 := JTF_NUMBER_TABLE();
301 if t.count > 0 then
302 a0.extend(t.count);
303 ddindx := t.first;
304 indx := 1;
305 while true loop
306 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
307 indx := indx+1;
308 if t.last =ddindx
309 then exit;
310 end if;
311 ddindx := t.next(ddindx);
312 end loop;
313 end if;
314 end if;
315 end rosetta_table_copy_out_p4;
316
317 procedure rosetta_table_copy_in_p5(t out nocopy iex_status_rule_pub.status_rule_line_id_tbl_type, a0 JTF_NUMBER_TABLE) as
318 ddindx binary_integer; indx binary_integer;
319 begin
320 if a0 is not null and a0.count > 0 then
321 if a0.count > 0 then
322 indx := a0.first;
323 ddindx := 1;
324 while true loop
325 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
326 ddindx := ddindx+1;
327 if a0.last =indx
328 then exit;
329 end if;
330 indx := a0.next(indx);
331 end loop;
332 end if;
333 end if;
334 end rosetta_table_copy_in_p5;
335 procedure rosetta_table_copy_out_p5(t iex_status_rule_pub.status_rule_line_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
336 ddindx binary_integer; indx binary_integer;
337 begin
338 if t is null or t.count = 0 then
339 a0 := JTF_NUMBER_TABLE();
340 else
341 a0 := JTF_NUMBER_TABLE();
342 if t.count > 0 then
343 a0.extend(t.count);
344 ddindx := t.first;
345 indx := 1;
346 while true loop
347 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
348 indx := indx+1;
349 if t.last =ddindx
350 then exit;
351 end if;
352 ddindx := t.next(ddindx);
353 end loop;
354 end if;
355 end if;
356 end rosetta_table_copy_out_p5;
357
358 procedure create_status_rule(p_api_version NUMBER
359 , p_init_msg_list VARCHAR2
360 , p_commit VARCHAR2
361 , x_dup_status out nocopy VARCHAR2
362 , x_return_status out nocopy VARCHAR2
363 , x_msg_count out nocopy NUMBER
364 , x_msg_data out nocopy VARCHAR2
365 , x_status_rule_id out nocopy NUMBER
366 , p3_a0 NUMBER := 0-1962.0724
367 , p3_a1 VARCHAR2 := fnd_api.g_miss_char
368 , p3_a2 VARCHAR2 := fnd_api.g_miss_char
369 , p3_a3 DATE := fnd_api.g_miss_date
370 , p3_a4 DATE := fnd_api.g_miss_date
371 , p3_a5 DATE := fnd_api.g_miss_date
372 , p3_a6 NUMBER := 0-1962.0724
373 , p3_a7 DATE := fnd_api.g_miss_date
374 , p3_a8 NUMBER := 0-1962.0724
375 , p3_a9 NUMBER := 0-1962.0724
376 , p3_a10 NUMBER := 0-1962.0724
377 , p3_a11 NUMBER := 0-1962.0724
378 , p3_a12 NUMBER := 0-1962.0724
379 )
380
381 as
382 ddp_status_rule_rec iex_status_rule_pub.status_rule_rec_type;
383 ddindx binary_integer; indx binary_integer;
384 begin
385
386 -- copy data to the local IN or IN-OUT args, if any
387
388
389
390 ddp_status_rule_rec.status_rule_id := rosetta_g_miss_num_map(p3_a0);
391 ddp_status_rule_rec.status_rule_name := p3_a1;
392 ddp_status_rule_rec.status_rule_description := p3_a2;
393 ddp_status_rule_rec.start_date := rosetta_g_miss_date_in_map(p3_a3);
397 ddp_status_rule_rec.creation_date := rosetta_g_miss_date_in_map(p3_a7);
394 ddp_status_rule_rec.end_date := rosetta_g_miss_date_in_map(p3_a4);
395 ddp_status_rule_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a5);
396 ddp_status_rule_rec.last_updated_by := rosetta_g_miss_num_map(p3_a6);
398 ddp_status_rule_rec.created_by := rosetta_g_miss_num_map(p3_a8);
399 ddp_status_rule_rec.last_update_login := rosetta_g_miss_num_map(p3_a9);
400 ddp_status_rule_rec.program_id := rosetta_g_miss_num_map(p3_a10);
401 ddp_status_rule_rec.security_group_id := rosetta_g_miss_num_map(p3_a11);
402 ddp_status_rule_rec.object_version_number := rosetta_g_miss_num_map(p3_a12);
403
404
405
406
407
408
409 -- here's the delegated call to the old PL/SQL routine
410 iex_status_rule_pub.create_status_rule(p_api_version,
411 p_init_msg_list,
412 p_commit,
413 ddp_status_rule_rec,
414 x_dup_status,
415 x_return_status,
416 x_msg_count,
417 x_msg_data,
418 x_status_rule_id);
419
420 -- copy data back from the local variables to OUT or IN-OUT args, if any
421
422
423
424
425
426
427
428
429 end;
430
431 procedure update_status_rule(p_api_version NUMBER
432 , p_init_msg_list VARCHAR2
433 , p_commit VARCHAR2
434 , p3_a0 JTF_NUMBER_TABLE
435 , p3_a1 JTF_VARCHAR2_TABLE_100
436 , p3_a2 JTF_VARCHAR2_TABLE_200
437 , p3_a3 JTF_DATE_TABLE
438 , p3_a4 JTF_DATE_TABLE
439 , p3_a5 JTF_DATE_TABLE
440 , p3_a6 JTF_NUMBER_TABLE
441 , p3_a7 JTF_DATE_TABLE
442 , p3_a8 JTF_NUMBER_TABLE
443 , p3_a9 JTF_NUMBER_TABLE
444 , p3_a10 JTF_NUMBER_TABLE
445 , p3_a11 JTF_NUMBER_TABLE
446 , p3_a12 JTF_NUMBER_TABLE
447 , x_dup_status out nocopy VARCHAR2
448 , x_return_status out nocopy VARCHAR2
449 , x_msg_count out nocopy NUMBER
450 , x_msg_data out nocopy VARCHAR2
451 )
452
453 as
454 ddp_status_rule_tbl iex_status_rule_pub.status_rule_tbl_type;
455 ddindx binary_integer; indx binary_integer;
456 begin
457
458 -- copy data to the local IN or IN-OUT args, if any
459
460
461
462 iex_status_rule_pub_w.rosetta_table_copy_in_p1(ddp_status_rule_tbl, p3_a0
463 , p3_a1
464 , p3_a2
465 , p3_a3
466 , p3_a4
467 , p3_a5
468 , p3_a6
469 , p3_a7
470 , p3_a8
471 , p3_a9
472 , p3_a10
473 , p3_a11
474 , p3_a12
475 );
476
477
478
479
480
481 -- here's the delegated call to the old PL/SQL routine
482 iex_status_rule_pub.update_status_rule(p_api_version,
483 p_init_msg_list,
484 p_commit,
485 ddp_status_rule_tbl,
486 x_dup_status,
487 x_return_status,
488 x_msg_count,
489 x_msg_data);
490
491 -- copy data back from the local variables to OUT or IN-OUT args, if any
492
493
494
495
496
497
498
499 end;
500
501 procedure delete_status_rule(p_api_version NUMBER
502 , p_init_msg_list VARCHAR2
503 , p_commit VARCHAR2
504 , p_status_rule_id_tbl JTF_NUMBER_TABLE
505 , x_return_status out nocopy VARCHAR2
506 , x_msg_count out nocopy NUMBER
507 , x_msg_data out nocopy VARCHAR2
508 )
509
510 as
511 ddp_status_rule_id_tbl iex_status_rule_pub.status_rule_id_tbl_type;
512 ddindx binary_integer; indx binary_integer;
513 begin
514
515 -- copy data to the local IN or IN-OUT args, if any
516
517
518
519 iex_status_rule_pub_w.rosetta_table_copy_in_p4(ddp_status_rule_id_tbl, p_status_rule_id_tbl);
520
521
522
523
524 -- here's the delegated call to the old PL/SQL routine
525 iex_status_rule_pub.delete_status_rule(p_api_version,
526 p_init_msg_list,
527 p_commit,
528 ddp_status_rule_id_tbl,
529 x_return_status,
530 x_msg_count,
531 x_msg_data);
532
533 -- copy data back from the local variables to OUT or IN-OUT args, if any
534
535
536
537
538
539
540 end;
541
542 procedure create_status_rule_line(p_api_version NUMBER
543 , p_init_msg_list VARCHAR2
544 , p_commit VARCHAR2
545 , x_return_status out nocopy VARCHAR2
546 , x_msg_count out nocopy NUMBER
547 , x_msg_data out nocopy VARCHAR2
548 , p3_a0 NUMBER := 0-1962.0724
549 , p3_a1 VARCHAR2 := fnd_api.g_miss_char
550 , p3_a2 NUMBER := 0-1962.0724
551 , p3_a3 VARCHAR2 := fnd_api.g_miss_char
552 , p3_a4 NUMBER := 0-1962.0724
553 , p3_a5 DATE := fnd_api.g_miss_date
554 , p3_a6 NUMBER := 0-1962.0724
555 , p3_a7 DATE := fnd_api.g_miss_date
556 , p3_a8 NUMBER := 0-1962.0724
557 , p3_a9 NUMBER := 0-1962.0724
558 , p3_a10 NUMBER := 0-1962.0724
559 , p3_a11 NUMBER := 0-1962.0724
560 , p3_a12 NUMBER := 0-1962.0724
561 )
562
563 as
567
564 ddp_status_rule_line_rec iex_status_rule_pub.status_rule_line_rec_type;
565 ddindx binary_integer; indx binary_integer;
566 begin
568 -- copy data to the local IN or IN-OUT args, if any
569
570
571
572 ddp_status_rule_line_rec.status_rule_line_id := rosetta_g_miss_num_map(p3_a0);
573 ddp_status_rule_line_rec.delinquency_status := p3_a1;
574 ddp_status_rule_line_rec.priority := rosetta_g_miss_num_map(p3_a2);
575 ddp_status_rule_line_rec.enabled_flag := p3_a3;
576 ddp_status_rule_line_rec.status_rule_id := rosetta_g_miss_num_map(p3_a4);
577 ddp_status_rule_line_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a5);
578 ddp_status_rule_line_rec.last_updated_by := rosetta_g_miss_num_map(p3_a6);
579 ddp_status_rule_line_rec.creation_date := rosetta_g_miss_date_in_map(p3_a7);
580 ddp_status_rule_line_rec.created_by := rosetta_g_miss_num_map(p3_a8);
581 ddp_status_rule_line_rec.last_update_login := rosetta_g_miss_num_map(p3_a9);
582 ddp_status_rule_line_rec.program_id := rosetta_g_miss_num_map(p3_a10);
583 ddp_status_rule_line_rec.security_group_id := rosetta_g_miss_num_map(p3_a11);
584 ddp_status_rule_line_rec.object_version_number := rosetta_g_miss_num_map(p3_a12);
585
586
587
588
589 -- here's the delegated call to the old PL/SQL routine
590 iex_status_rule_pub.create_status_rule_line(p_api_version,
591 p_init_msg_list,
592 p_commit,
593 ddp_status_rule_line_rec,
594 x_return_status,
595 x_msg_count,
596 x_msg_data);
597
598 -- copy data back from the local variables to OUT or IN-OUT args, if any
599
600
601
602
603
604
605 end;
606
607 procedure update_status_rule_line(p_api_version NUMBER
608 , p_init_msg_list VARCHAR2
609 , p_commit VARCHAR2
610 , p3_a0 JTF_NUMBER_TABLE
611 , p3_a1 JTF_VARCHAR2_TABLE_100
612 , p3_a2 JTF_NUMBER_TABLE
613 , p3_a3 JTF_VARCHAR2_TABLE_100
614 , p3_a4 JTF_NUMBER_TABLE
615 , p3_a5 JTF_DATE_TABLE
616 , p3_a6 JTF_NUMBER_TABLE
617 , p3_a7 JTF_DATE_TABLE
618 , p3_a8 JTF_NUMBER_TABLE
619 , p3_a9 JTF_NUMBER_TABLE
620 , p3_a10 JTF_NUMBER_TABLE
621 , p3_a11 JTF_NUMBER_TABLE
622 , p3_a12 JTF_NUMBER_TABLE
623 , x_dup_status out nocopy VARCHAR2
624 , x_return_status out nocopy VARCHAR2
625 , x_msg_count out nocopy NUMBER
626 , x_msg_data out nocopy VARCHAR2
627 )
628
629 as
630 ddp_status_rule_line_tbl iex_status_rule_pub.status_rule_line_tbl_type;
631 ddindx binary_integer; indx binary_integer;
632 begin
633
634 -- copy data to the local IN or IN-OUT args, if any
635
636
637
638 iex_status_rule_pub_w.rosetta_table_copy_in_p3(ddp_status_rule_line_tbl, p3_a0
639 , p3_a1
640 , p3_a2
641 , p3_a3
642 , p3_a4
643 , p3_a5
644 , p3_a6
645 , p3_a7
646 , p3_a8
647 , p3_a9
648 , p3_a10
649 , p3_a11
650 , p3_a12
651 );
652
653
654
655
656
657 -- here's the delegated call to the old PL/SQL routine
658 iex_status_rule_pub.update_status_rule_line(p_api_version,
659 p_init_msg_list,
660 p_commit,
661 ddp_status_rule_line_tbl,
662 x_dup_status,
663 x_return_status,
664 x_msg_count,
665 x_msg_data);
666
667 -- copy data back from the local variables to OUT or IN-OUT args, if any
668
669
670
671
672
673
674
675 end;
676
677 procedure delete_status_rule_line(p_api_version NUMBER
678 , p_init_msg_list VARCHAR2
679 , p_commit VARCHAR2
680 , p_status_rule_id NUMBER
681 , p_status_rule_line_id_tbl JTF_NUMBER_TABLE
682 , x_return_status out nocopy VARCHAR2
683 , x_msg_count out nocopy NUMBER
684 , x_msg_data out nocopy VARCHAR2
685 )
686
687 as
688 ddp_status_rule_line_id_tbl iex_status_rule_pub.status_rule_line_id_tbl_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 iex_status_rule_pub_w.rosetta_table_copy_in_p5(ddp_status_rule_line_id_tbl, p_status_rule_line_id_tbl);
698
699
700
701
702 -- here's the delegated call to the old PL/SQL routine
703 iex_status_rule_pub.delete_status_rule_line(p_api_version,
704 p_init_msg_list,
705 p_commit,
706 p_status_rule_id,
707 ddp_status_rule_line_id_tbl,
708 x_return_status,
709 x_msg_count,
710 x_msg_data);
711
712 -- copy data back from the local variables to OUT or IN-OUT args, if any
713
714
715
716
717
718
719
720 end;
721
722 end iex_status_rule_pub_w;