[Home] [Help]
PACKAGE BODY: APPS.AMS_LIST_RULE_FIELDS_PVT_W
Source
1 package body ams_list_rule_fields_pvt_w as
2 /* $Header: amswrufb.pls 115.8 2002/11/22 08:57:51 jieli ship $ */
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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure create_list_rule_field(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , p_commit VARCHAR2
25 , p_validation_level NUMBER
26 , x_return_status OUT NOCOPY VARCHAR2
27 , x_msg_count OUT NOCOPY NUMBER
28 , x_msg_data OUT NOCOPY VARCHAR2
29 , x_rule_fld_id OUT NOCOPY NUMBER
30 , p7_a0 NUMBER := 0-1962.0724
31 , p7_a1 DATE := fnd_api.g_miss_date
32 , p7_a2 NUMBER := 0-1962.0724
33 , p7_a3 DATE := fnd_api.g_miss_date
34 , p7_a4 NUMBER := 0-1962.0724
35 , p7_a5 NUMBER := 0-1962.0724
36 , p7_a6 NUMBER := 0-1962.0724
37 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
38 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
39 , p7_a9 NUMBER := 0-1962.0724
40 , p7_a10 NUMBER := 0-1962.0724
41 , p7_a11 NUMBER := 0-1962.0724
42 , p7_a12 NUMBER := 0-1962.0724
43 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
44 )
45 as
46 ddp_rule_fld_rec ams_list_rule_fields_pvt.rule_fld_rec_type;
47 ddindx binary_integer; indx binary_integer;
48 begin
49
50 -- copy data to the local IN or IN-OUT args, if any
51
52
53
54
55
56
57
58 ddp_rule_fld_rec.list_rule_field_id := rosetta_g_miss_num_map(p7_a0);
59 ddp_rule_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
60 ddp_rule_fld_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
61 ddp_rule_fld_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
62 ddp_rule_fld_rec.created_by := rosetta_g_miss_num_map(p7_a4);
63 ddp_rule_fld_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
64 ddp_rule_fld_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
65 ddp_rule_fld_rec.field_table_name := p7_a7;
66 ddp_rule_fld_rec.field_column_name := p7_a8;
67 ddp_rule_fld_rec.list_rule_id := rosetta_g_miss_num_map(p7_a9);
68 ddp_rule_fld_rec.substring_length := rosetta_g_miss_num_map(p7_a10);
69 ddp_rule_fld_rec.weightage := rosetta_g_miss_num_map(p7_a11);
70 ddp_rule_fld_rec.sequence_number := rosetta_g_miss_num_map(p7_a12);
71 ddp_rule_fld_rec.word_replacement_code := p7_a13;
72
73
74 -- here's the delegated call to the old PL/SQL routine
75 ams_list_rule_fields_pvt.create_list_rule_field(p_api_version,
76 p_init_msg_list,
77 p_commit,
78 p_validation_level,
79 x_return_status,
80 x_msg_count,
81 x_msg_data,
82 ddp_rule_fld_rec,
83 x_rule_fld_id);
84
85 -- copy data back from the local OUT or IN-OUT args, if any
86
87
88
89
90
91
92
93
94 end;
95
96 procedure update_list_rule_field(p_api_version NUMBER
97 , p_init_msg_list VARCHAR2
98 , p_commit VARCHAR2
99 , p_validation_level NUMBER
100 , x_return_status OUT NOCOPY VARCHAR2
101 , x_msg_count OUT NOCOPY NUMBER
102 , x_msg_data OUT NOCOPY VARCHAR2
103 , p7_a0 NUMBER := 0-1962.0724
104 , p7_a1 DATE := fnd_api.g_miss_date
105 , p7_a2 NUMBER := 0-1962.0724
106 , p7_a3 DATE := fnd_api.g_miss_date
107 , p7_a4 NUMBER := 0-1962.0724
108 , p7_a5 NUMBER := 0-1962.0724
109 , p7_a6 NUMBER := 0-1962.0724
110 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
111 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
112 , p7_a9 NUMBER := 0-1962.0724
113 , p7_a10 NUMBER := 0-1962.0724
114 , p7_a11 NUMBER := 0-1962.0724
115 , p7_a12 NUMBER := 0-1962.0724
116 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
117 )
118 as
119 ddp_rule_fld_rec ams_list_rule_fields_pvt.rule_fld_rec_type;
120 ddindx binary_integer; indx binary_integer;
121 begin
122
123 -- copy data to the local IN or IN-OUT args, if any
124
125
126
127
128
129
130
131 ddp_rule_fld_rec.list_rule_field_id := rosetta_g_miss_num_map(p7_a0);
132 ddp_rule_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
133 ddp_rule_fld_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
134 ddp_rule_fld_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
135 ddp_rule_fld_rec.created_by := rosetta_g_miss_num_map(p7_a4);
136 ddp_rule_fld_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
137 ddp_rule_fld_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
138 ddp_rule_fld_rec.field_table_name := p7_a7;
139 ddp_rule_fld_rec.field_column_name := p7_a8;
140 ddp_rule_fld_rec.list_rule_id := rosetta_g_miss_num_map(p7_a9);
141 ddp_rule_fld_rec.substring_length := rosetta_g_miss_num_map(p7_a10);
142 ddp_rule_fld_rec.weightage := rosetta_g_miss_num_map(p7_a11);
143 ddp_rule_fld_rec.sequence_number := rosetta_g_miss_num_map(p7_a12);
144 ddp_rule_fld_rec.word_replacement_code := p7_a13;
145
146 -- here's the delegated call to the old PL/SQL routine
147 ams_list_rule_fields_pvt.update_list_rule_field(p_api_version,
148 p_init_msg_list,
149 p_commit,
150 p_validation_level,
151 x_return_status,
152 x_msg_count,
153 x_msg_data,
154 ddp_rule_fld_rec);
155
156 -- copy data back from the local OUT or IN-OUT args, if any
157
158
159
160
161
162
163
164 end;
165
166 procedure validate_list_rule_field(p_api_version NUMBER
167 , p_init_msg_list VARCHAR2
168 , p_validation_level NUMBER
169 , x_return_status OUT NOCOPY VARCHAR2
170 , x_msg_count OUT NOCOPY NUMBER
171 , x_msg_data OUT NOCOPY VARCHAR2
172 , p6_a0 NUMBER := 0-1962.0724
173 , p6_a1 DATE := fnd_api.g_miss_date
174 , p6_a2 NUMBER := 0-1962.0724
175 , p6_a3 DATE := fnd_api.g_miss_date
176 , p6_a4 NUMBER := 0-1962.0724
177 , p6_a5 NUMBER := 0-1962.0724
178 , p6_a6 NUMBER := 0-1962.0724
179 , p6_a7 VARCHAR2 := fnd_api.g_miss_char
180 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
181 , p6_a9 NUMBER := 0-1962.0724
182 , p6_a10 NUMBER := 0-1962.0724
183 , p6_a11 NUMBER := 0-1962.0724
184 , p6_a12 NUMBER := 0-1962.0724
185 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
186 )
187 as
188 ddp_rule_fld_rec ams_list_rule_fields_pvt.rule_fld_rec_type;
189 ddindx binary_integer; indx binary_integer;
190 begin
191
192 -- copy data to the local IN or IN-OUT args, if any
193
194
195
196
197
198
199 ddp_rule_fld_rec.list_rule_field_id := rosetta_g_miss_num_map(p6_a0);
200 ddp_rule_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
201 ddp_rule_fld_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
202 ddp_rule_fld_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
203 ddp_rule_fld_rec.created_by := rosetta_g_miss_num_map(p6_a4);
204 ddp_rule_fld_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
205 ddp_rule_fld_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
206 ddp_rule_fld_rec.field_table_name := p6_a7;
207 ddp_rule_fld_rec.field_column_name := p6_a8;
208 ddp_rule_fld_rec.list_rule_id := rosetta_g_miss_num_map(p6_a9);
209 ddp_rule_fld_rec.substring_length := rosetta_g_miss_num_map(p6_a10);
210 ddp_rule_fld_rec.weightage := rosetta_g_miss_num_map(p6_a11);
211 ddp_rule_fld_rec.sequence_number := rosetta_g_miss_num_map(p6_a12);
212 ddp_rule_fld_rec.word_replacement_code := p6_a13;
213
214 -- here's the delegated call to the old PL/SQL routine
215 ams_list_rule_fields_pvt.validate_list_rule_field(p_api_version,
216 p_init_msg_list,
217 p_validation_level,
218 x_return_status,
219 x_msg_count,
220 x_msg_data,
221 ddp_rule_fld_rec);
222
223 -- copy data back from the local OUT or IN-OUT args, if any
224
225
226
227
228
229
230 end;
231
232 procedure check_items(p_validation_mode VARCHAR2
233 , x_return_status OUT NOCOPY VARCHAR2
234 , p2_a0 NUMBER := 0-1962.0724
235 , p2_a1 DATE := fnd_api.g_miss_date
236 , p2_a2 NUMBER := 0-1962.0724
237 , p2_a3 DATE := fnd_api.g_miss_date
238 , p2_a4 NUMBER := 0-1962.0724
239 , p2_a5 NUMBER := 0-1962.0724
240 , p2_a6 NUMBER := 0-1962.0724
241 , p2_a7 VARCHAR2 := fnd_api.g_miss_char
242 , p2_a8 VARCHAR2 := fnd_api.g_miss_char
243 , p2_a9 NUMBER := 0-1962.0724
244 , p2_a10 NUMBER := 0-1962.0724
245 , p2_a11 NUMBER := 0-1962.0724
246 , p2_a12 NUMBER := 0-1962.0724
247 , p2_a13 VARCHAR2 := fnd_api.g_miss_char
248 )
249 as
250 ddp_rule_fld_rec ams_list_rule_fields_pvt.rule_fld_rec_type;
251 ddindx binary_integer; indx binary_integer;
252 begin
253
254 -- copy data to the local IN or IN-OUT args, if any
255
256
257 ddp_rule_fld_rec.list_rule_field_id := rosetta_g_miss_num_map(p2_a0);
258 ddp_rule_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p2_a1);
259 ddp_rule_fld_rec.last_updated_by := rosetta_g_miss_num_map(p2_a2);
260 ddp_rule_fld_rec.creation_date := rosetta_g_miss_date_in_map(p2_a3);
261 ddp_rule_fld_rec.created_by := rosetta_g_miss_num_map(p2_a4);
262 ddp_rule_fld_rec.last_update_login := rosetta_g_miss_num_map(p2_a5);
263 ddp_rule_fld_rec.object_version_number := rosetta_g_miss_num_map(p2_a6);
264 ddp_rule_fld_rec.field_table_name := p2_a7;
265 ddp_rule_fld_rec.field_column_name := p2_a8;
266 ddp_rule_fld_rec.list_rule_id := rosetta_g_miss_num_map(p2_a9);
267 ddp_rule_fld_rec.substring_length := rosetta_g_miss_num_map(p2_a10);
268 ddp_rule_fld_rec.weightage := rosetta_g_miss_num_map(p2_a11);
269 ddp_rule_fld_rec.sequence_number := rosetta_g_miss_num_map(p2_a12);
270 ddp_rule_fld_rec.word_replacement_code := p2_a13;
271
272 -- here's the delegated call to the old PL/SQL routine
273 ams_list_rule_fields_pvt.check_items(p_validation_mode,
274 x_return_status,
275 ddp_rule_fld_rec);
276
277 -- copy data back from the local OUT or IN-OUT args, if any
278
279
280 end;
281
282 procedure check_req_items(p_validation_mode VARCHAR2
283 , x_return_status OUT NOCOPY VARCHAR2
284 , p1_a0 NUMBER := 0-1962.0724
285 , p1_a1 DATE := fnd_api.g_miss_date
286 , p1_a2 NUMBER := 0-1962.0724
287 , p1_a3 DATE := fnd_api.g_miss_date
288 , p1_a4 NUMBER := 0-1962.0724
289 , p1_a5 NUMBER := 0-1962.0724
290 , p1_a6 NUMBER := 0-1962.0724
291 , p1_a7 VARCHAR2 := fnd_api.g_miss_char
292 , p1_a8 VARCHAR2 := fnd_api.g_miss_char
293 , p1_a9 NUMBER := 0-1962.0724
294 , p1_a10 NUMBER := 0-1962.0724
295 , p1_a11 NUMBER := 0-1962.0724
296 , p1_a12 NUMBER := 0-1962.0724
297 , p1_a13 VARCHAR2 := fnd_api.g_miss_char
298 )
299 as
300 ddp_rule_fld_rec ams_list_rule_fields_pvt.rule_fld_rec_type;
301 ddindx binary_integer; indx binary_integer;
302 begin
303
304 -- copy data to the local IN or IN-OUT args, if any
305
306 ddp_rule_fld_rec.list_rule_field_id := rosetta_g_miss_num_map(p1_a0);
307 ddp_rule_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
308 ddp_rule_fld_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
309 ddp_rule_fld_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
310 ddp_rule_fld_rec.created_by := rosetta_g_miss_num_map(p1_a4);
311 ddp_rule_fld_rec.last_update_login := rosetta_g_miss_num_map(p1_a5);
312 ddp_rule_fld_rec.object_version_number := rosetta_g_miss_num_map(p1_a6);
313 ddp_rule_fld_rec.field_table_name := p1_a7;
314 ddp_rule_fld_rec.field_column_name := p1_a8;
315 ddp_rule_fld_rec.list_rule_id := rosetta_g_miss_num_map(p1_a9);
316 ddp_rule_fld_rec.substring_length := rosetta_g_miss_num_map(p1_a10);
317 ddp_rule_fld_rec.weightage := rosetta_g_miss_num_map(p1_a11);
318 ddp_rule_fld_rec.sequence_number := rosetta_g_miss_num_map(p1_a12);
319 ddp_rule_fld_rec.word_replacement_code := p1_a13;
320
321
322 -- here's the delegated call to the old PL/SQL routine
323 ams_list_rule_fields_pvt.check_req_items(p_validation_mode,
324 ddp_rule_fld_rec,
325 x_return_status);
326
327 -- copy data back from the local OUT or IN-OUT args, if any
328
329
330 end;
331
332 procedure check_fk_items(x_return_status OUT NOCOPY VARCHAR2
333 , p0_a0 NUMBER := 0-1962.0724
334 , p0_a1 DATE := fnd_api.g_miss_date
335 , p0_a2 NUMBER := 0-1962.0724
336 , p0_a3 DATE := fnd_api.g_miss_date
337 , p0_a4 NUMBER := 0-1962.0724
338 , p0_a5 NUMBER := 0-1962.0724
339 , p0_a6 NUMBER := 0-1962.0724
340 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
341 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
342 , p0_a9 NUMBER := 0-1962.0724
343 , p0_a10 NUMBER := 0-1962.0724
344 , p0_a11 NUMBER := 0-1962.0724
345 , p0_a12 NUMBER := 0-1962.0724
346 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
347 )
348 as
349 ddp_rule_fld_rec ams_list_rule_fields_pvt.rule_fld_rec_type;
350 ddindx binary_integer; indx binary_integer;
351 begin
352
353 -- copy data to the local IN or IN-OUT args, if any
354 ddp_rule_fld_rec.list_rule_field_id := rosetta_g_miss_num_map(p0_a0);
355 ddp_rule_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
356 ddp_rule_fld_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
357 ddp_rule_fld_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
358 ddp_rule_fld_rec.created_by := rosetta_g_miss_num_map(p0_a4);
359 ddp_rule_fld_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
360 ddp_rule_fld_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
361 ddp_rule_fld_rec.field_table_name := p0_a7;
362 ddp_rule_fld_rec.field_column_name := p0_a8;
363 ddp_rule_fld_rec.list_rule_id := rosetta_g_miss_num_map(p0_a9);
364 ddp_rule_fld_rec.substring_length := rosetta_g_miss_num_map(p0_a10);
365 ddp_rule_fld_rec.weightage := rosetta_g_miss_num_map(p0_a11);
366 ddp_rule_fld_rec.sequence_number := rosetta_g_miss_num_map(p0_a12);
367 ddp_rule_fld_rec.word_replacement_code := p0_a13;
368
369
370 -- here's the delegated call to the old PL/SQL routine
371 ams_list_rule_fields_pvt.check_fk_items(ddp_rule_fld_rec,
372 x_return_status);
373
374 -- copy data back from the local OUT or IN-OUT args, if any
375
376 end;
377
378 procedure check_uk_items(p_validation_mode VARCHAR2
379 , x_return_status OUT NOCOPY VARCHAR2
380 , p1_a0 NUMBER := 0-1962.0724
381 , p1_a1 DATE := fnd_api.g_miss_date
382 , p1_a2 NUMBER := 0-1962.0724
383 , p1_a3 DATE := fnd_api.g_miss_date
384 , p1_a4 NUMBER := 0-1962.0724
385 , p1_a5 NUMBER := 0-1962.0724
386 , p1_a6 NUMBER := 0-1962.0724
387 , p1_a7 VARCHAR2 := fnd_api.g_miss_char
388 , p1_a8 VARCHAR2 := fnd_api.g_miss_char
389 , p1_a9 NUMBER := 0-1962.0724
390 , p1_a10 NUMBER := 0-1962.0724
391 , p1_a11 NUMBER := 0-1962.0724
392 , p1_a12 NUMBER := 0-1962.0724
393 , p1_a13 VARCHAR2 := fnd_api.g_miss_char
394 )
395 as
396 ddp_rule_fld_rec ams_list_rule_fields_pvt.rule_fld_rec_type;
397 ddindx binary_integer; indx binary_integer;
398 begin
399
400 -- copy data to the local IN or IN-OUT args, if any
401
402 ddp_rule_fld_rec.list_rule_field_id := rosetta_g_miss_num_map(p1_a0);
403 ddp_rule_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
404 ddp_rule_fld_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
405 ddp_rule_fld_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
406 ddp_rule_fld_rec.created_by := rosetta_g_miss_num_map(p1_a4);
407 ddp_rule_fld_rec.last_update_login := rosetta_g_miss_num_map(p1_a5);
408 ddp_rule_fld_rec.object_version_number := rosetta_g_miss_num_map(p1_a6);
409 ddp_rule_fld_rec.field_table_name := p1_a7;
410 ddp_rule_fld_rec.field_column_name := p1_a8;
411 ddp_rule_fld_rec.list_rule_id := rosetta_g_miss_num_map(p1_a9);
412 ddp_rule_fld_rec.substring_length := rosetta_g_miss_num_map(p1_a10);
413 ddp_rule_fld_rec.weightage := rosetta_g_miss_num_map(p1_a11);
414 ddp_rule_fld_rec.sequence_number := rosetta_g_miss_num_map(p1_a12);
415 ddp_rule_fld_rec.word_replacement_code := p1_a13;
416
417
418 -- here's the delegated call to the old PL/SQL routine
419 ams_list_rule_fields_pvt.check_uk_items(p_validation_mode,
420 ddp_rule_fld_rec,
421 x_return_status);
422
423 -- copy data back from the local OUT or IN-OUT args, if any
424
425
426 end;
427
428 procedure complete_rec(p1_a0 OUT NOCOPY NUMBER
429 , p1_a1 OUT NOCOPY DATE
430 , p1_a2 OUT NOCOPY NUMBER
431 , p1_a3 OUT NOCOPY DATE
432 , p1_a4 OUT NOCOPY NUMBER
433 , p1_a5 OUT NOCOPY NUMBER
434 , p1_a6 OUT NOCOPY NUMBER
435 , p1_a7 OUT NOCOPY VARCHAR2
436 , p1_a8 OUT NOCOPY VARCHAR2
437 , p1_a9 OUT NOCOPY NUMBER
438 , p1_a10 OUT NOCOPY NUMBER
439 , p1_a11 OUT NOCOPY NUMBER
440 , p1_a12 OUT NOCOPY NUMBER
441 , p1_a13 OUT NOCOPY VARCHAR2
442 , p0_a0 NUMBER := 0-1962.0724
443 , p0_a1 DATE := fnd_api.g_miss_date
444 , p0_a2 NUMBER := 0-1962.0724
445 , p0_a3 DATE := fnd_api.g_miss_date
446 , p0_a4 NUMBER := 0-1962.0724
447 , p0_a5 NUMBER := 0-1962.0724
448 , p0_a6 NUMBER := 0-1962.0724
449 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
450 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
451 , p0_a9 NUMBER := 0-1962.0724
452 , p0_a10 NUMBER := 0-1962.0724
453 , p0_a11 NUMBER := 0-1962.0724
454 , p0_a12 NUMBER := 0-1962.0724
455 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
456 )
457 as
458 ddp_rule_fld_rec ams_list_rule_fields_pvt.rule_fld_rec_type;
459 ddx_complete_rec ams_list_rule_fields_pvt.rule_fld_rec_type;
460 ddindx binary_integer; indx binary_integer;
461 begin
462
463 -- copy data to the local IN or IN-OUT args, if any
464 ddp_rule_fld_rec.list_rule_field_id := rosetta_g_miss_num_map(p0_a0);
465 ddp_rule_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
466 ddp_rule_fld_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
467 ddp_rule_fld_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
468 ddp_rule_fld_rec.created_by := rosetta_g_miss_num_map(p0_a4);
469 ddp_rule_fld_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
470 ddp_rule_fld_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
471 ddp_rule_fld_rec.field_table_name := p0_a7;
472 ddp_rule_fld_rec.field_column_name := p0_a8;
473 ddp_rule_fld_rec.list_rule_id := rosetta_g_miss_num_map(p0_a9);
474 ddp_rule_fld_rec.substring_length := rosetta_g_miss_num_map(p0_a10);
475 ddp_rule_fld_rec.weightage := rosetta_g_miss_num_map(p0_a11);
476 ddp_rule_fld_rec.sequence_number := rosetta_g_miss_num_map(p0_a12);
477 ddp_rule_fld_rec.word_replacement_code := p0_a13;
478
479
480 -- here's the delegated call to the old PL/SQL routine
481 ams_list_rule_fields_pvt.complete_rec(ddp_rule_fld_rec,
482 ddx_complete_rec);
483
484 -- copy data back from the local OUT or IN-OUT args, if any
485
486 p1_a0 := rosetta_g_miss_num_map(ddx_complete_rec.list_rule_field_id);
487 p1_a1 := ddx_complete_rec.last_update_date;
488 p1_a2 := rosetta_g_miss_num_map(ddx_complete_rec.last_updated_by);
489 p1_a3 := ddx_complete_rec.creation_date;
490 p1_a4 := rosetta_g_miss_num_map(ddx_complete_rec.created_by);
491 p1_a5 := rosetta_g_miss_num_map(ddx_complete_rec.last_update_login);
492 p1_a6 := rosetta_g_miss_num_map(ddx_complete_rec.object_version_number);
493 p1_a7 := ddx_complete_rec.field_table_name;
494 p1_a8 := ddx_complete_rec.field_column_name;
495 p1_a9 := rosetta_g_miss_num_map(ddx_complete_rec.list_rule_id);
496 p1_a10 := rosetta_g_miss_num_map(ddx_complete_rec.substring_length);
497 p1_a11 := rosetta_g_miss_num_map(ddx_complete_rec.weightage);
498 p1_a12 := rosetta_g_miss_num_map(ddx_complete_rec.sequence_number);
499 p1_a13 := ddx_complete_rec.word_replacement_code;
500 end;
501
502 procedure init_rec(p0_a0 OUT NOCOPY NUMBER
503 , p0_a1 OUT NOCOPY DATE
504 , p0_a2 OUT NOCOPY NUMBER
505 , p0_a3 OUT NOCOPY DATE
506 , p0_a4 OUT NOCOPY NUMBER
507 , p0_a5 OUT NOCOPY NUMBER
508 , p0_a6 OUT NOCOPY NUMBER
509 , p0_a7 OUT NOCOPY VARCHAR2
510 , p0_a8 OUT NOCOPY VARCHAR2
511 , p0_a9 OUT NOCOPY NUMBER
512 , p0_a10 OUT NOCOPY NUMBER
513 , p0_a11 OUT NOCOPY NUMBER
514 , p0_a12 OUT NOCOPY NUMBER
515 , p0_a13 OUT NOCOPY VARCHAR2
516 )
517 as
518 ddx_rule_fld_rec ams_list_rule_fields_pvt.rule_fld_rec_type;
519 ddindx binary_integer; indx binary_integer;
520 begin
521
522 -- copy data to the local IN or IN-OUT args, if any
523
524 -- here's the delegated call to the old PL/SQL routine
525 ams_list_rule_fields_pvt.init_rec(ddx_rule_fld_rec);
526
527 -- copy data back from the local OUT or IN-OUT args, if any
528 p0_a0 := rosetta_g_miss_num_map(ddx_rule_fld_rec.list_rule_field_id);
529 p0_a1 := ddx_rule_fld_rec.last_update_date;
530 p0_a2 := rosetta_g_miss_num_map(ddx_rule_fld_rec.last_updated_by);
531 p0_a3 := ddx_rule_fld_rec.creation_date;
532 p0_a4 := rosetta_g_miss_num_map(ddx_rule_fld_rec.created_by);
533 p0_a5 := rosetta_g_miss_num_map(ddx_rule_fld_rec.last_update_login);
534 p0_a6 := rosetta_g_miss_num_map(ddx_rule_fld_rec.object_version_number);
535 p0_a7 := ddx_rule_fld_rec.field_table_name;
536 p0_a8 := ddx_rule_fld_rec.field_column_name;
537 p0_a9 := rosetta_g_miss_num_map(ddx_rule_fld_rec.list_rule_id);
538 p0_a10 := rosetta_g_miss_num_map(ddx_rule_fld_rec.substring_length);
539 p0_a11 := rosetta_g_miss_num_map(ddx_rule_fld_rec.weightage);
540 p0_a12 := rosetta_g_miss_num_map(ddx_rule_fld_rec.sequence_number);
541 p0_a13 := ddx_rule_fld_rec.word_replacement_code;
542 end;
543
544 end ams_list_rule_fields_pvt_w;