[Home] [Help]
PACKAGE BODY: APPS.AMS_LIST_WORD_FIELDS_PVT_W
Source
1 package body ams_list_word_fields_pvt_w as
2 /* $Header: amswwdfb.pls 115.5 2002/11/22 08:57:58 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_word_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_wrd_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 VARCHAR2 := fnd_api.g_miss_char
41 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
42 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
43 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
44 )
45 as
46 ddp_wrd_fld_rec ams_list_word_fields_pvt.wrd_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_wrd_fld_rec.list_word_field_id := rosetta_g_miss_num_map(p7_a0);
59 ddp_wrd_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
60 ddp_wrd_fld_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
61 ddp_wrd_fld_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
62 ddp_wrd_fld_rec.created_by := rosetta_g_miss_num_map(p7_a4);
63 ddp_wrd_fld_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
64 ddp_wrd_fld_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
65 ddp_wrd_fld_rec.field_table_name := p7_a7;
66 ddp_wrd_fld_rec.field_column_name := p7_a8;
67 ddp_wrd_fld_rec.list_word_replaces_id := rosetta_g_miss_num_map(p7_a9);
68 ddp_wrd_fld_rec.original_word := p7_a10;
69 ddp_wrd_fld_rec.replacement_word := p7_a11;
70 ddp_wrd_fld_rec.enabled_flag := p7_a12;
71 ddp_wrd_fld_rec.description := p7_a13;
72
73
74 -- here's the delegated call to the old PL/SQL routine
75 ams_list_word_fields_pvt.create_list_word_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_wrd_fld_rec,
83 x_wrd_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_word_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 VARCHAR2 := fnd_api.g_miss_char
114 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
115 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
116 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
117 )
118 as
119 ddp_wrd_fld_rec ams_list_word_fields_pvt.wrd_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_wrd_fld_rec.list_word_field_id := rosetta_g_miss_num_map(p7_a0);
132 ddp_wrd_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
133 ddp_wrd_fld_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
134 ddp_wrd_fld_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
135 ddp_wrd_fld_rec.created_by := rosetta_g_miss_num_map(p7_a4);
136 ddp_wrd_fld_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
137 ddp_wrd_fld_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
138 ddp_wrd_fld_rec.field_table_name := p7_a7;
139 ddp_wrd_fld_rec.field_column_name := p7_a8;
140 ddp_wrd_fld_rec.list_word_replaces_id := rosetta_g_miss_num_map(p7_a9);
141 ddp_wrd_fld_rec.original_word := p7_a10;
142 ddp_wrd_fld_rec.replacement_word := p7_a11;
143 ddp_wrd_fld_rec.enabled_flag := p7_a12;
144 ddp_wrd_fld_rec.description := p7_a13;
145
146 -- here's the delegated call to the old PL/SQL routine
147 ams_list_word_fields_pvt.update_list_word_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_wrd_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_word_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 VARCHAR2 := fnd_api.g_miss_char
183 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
184 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
185 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
186 )
187 as
188 ddp_wrd_fld_rec ams_list_word_fields_pvt.wrd_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_wrd_fld_rec.list_word_field_id := rosetta_g_miss_num_map(p6_a0);
200 ddp_wrd_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
201 ddp_wrd_fld_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
202 ddp_wrd_fld_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
203 ddp_wrd_fld_rec.created_by := rosetta_g_miss_num_map(p6_a4);
204 ddp_wrd_fld_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
205 ddp_wrd_fld_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
206 ddp_wrd_fld_rec.field_table_name := p6_a7;
207 ddp_wrd_fld_rec.field_column_name := p6_a8;
208 ddp_wrd_fld_rec.list_word_replaces_id := rosetta_g_miss_num_map(p6_a9);
209 ddp_wrd_fld_rec.original_word := p6_a10;
210 ddp_wrd_fld_rec.replacement_word := p6_a11;
211 ddp_wrd_fld_rec.enabled_flag := p6_a12;
212 ddp_wrd_fld_rec.description := p6_a13;
213
214 -- here's the delegated call to the old PL/SQL routine
215 ams_list_word_fields_pvt.validate_list_word_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_wrd_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 VARCHAR2 := fnd_api.g_miss_char
245 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
246 , p2_a12 VARCHAR2 := fnd_api.g_miss_char
247 , p2_a13 VARCHAR2 := fnd_api.g_miss_char
248 )
249 as
250 ddp_wrd_fld_rec ams_list_word_fields_pvt.wrd_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_wrd_fld_rec.list_word_field_id := rosetta_g_miss_num_map(p2_a0);
258 ddp_wrd_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p2_a1);
259 ddp_wrd_fld_rec.last_updated_by := rosetta_g_miss_num_map(p2_a2);
260 ddp_wrd_fld_rec.creation_date := rosetta_g_miss_date_in_map(p2_a3);
261 ddp_wrd_fld_rec.created_by := rosetta_g_miss_num_map(p2_a4);
262 ddp_wrd_fld_rec.last_update_login := rosetta_g_miss_num_map(p2_a5);
263 ddp_wrd_fld_rec.object_version_number := rosetta_g_miss_num_map(p2_a6);
264 ddp_wrd_fld_rec.field_table_name := p2_a7;
265 ddp_wrd_fld_rec.field_column_name := p2_a8;
266 ddp_wrd_fld_rec.list_word_replaces_id := rosetta_g_miss_num_map(p2_a9);
267 ddp_wrd_fld_rec.original_word := p2_a10;
268 ddp_wrd_fld_rec.replacement_word := p2_a11;
269 ddp_wrd_fld_rec.enabled_flag := p2_a12;
270 ddp_wrd_fld_rec.description := p2_a13;
271
272 -- here's the delegated call to the old PL/SQL routine
273 ams_list_word_fields_pvt.check_items(p_validation_mode,
274 x_return_status,
275 ddp_wrd_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 VARCHAR2 := fnd_api.g_miss_char
295 , p1_a11 VARCHAR2 := fnd_api.g_miss_char
296 , p1_a12 VARCHAR2 := fnd_api.g_miss_char
297 , p1_a13 VARCHAR2 := fnd_api.g_miss_char
298 )
299 as
300 ddp_wrd_fld_rec ams_list_word_fields_pvt.wrd_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_wrd_fld_rec.list_word_field_id := rosetta_g_miss_num_map(p1_a0);
307 ddp_wrd_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
308 ddp_wrd_fld_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
309 ddp_wrd_fld_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
310 ddp_wrd_fld_rec.created_by := rosetta_g_miss_num_map(p1_a4);
311 ddp_wrd_fld_rec.last_update_login := rosetta_g_miss_num_map(p1_a5);
312 ddp_wrd_fld_rec.object_version_number := rosetta_g_miss_num_map(p1_a6);
313 ddp_wrd_fld_rec.field_table_name := p1_a7;
314 ddp_wrd_fld_rec.field_column_name := p1_a8;
315 ddp_wrd_fld_rec.list_word_replaces_id := rosetta_g_miss_num_map(p1_a9);
316 ddp_wrd_fld_rec.original_word := p1_a10;
317 ddp_wrd_fld_rec.replacement_word := p1_a11;
318 ddp_wrd_fld_rec.enabled_flag := p1_a12;
319 ddp_wrd_fld_rec.description := p1_a13;
320
321
322 -- here's the delegated call to the old PL/SQL routine
323 ams_list_word_fields_pvt.check_req_items(p_validation_mode,
324 ddp_wrd_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 VARCHAR2 := fnd_api.g_miss_char
344 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
345 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
346 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
347 )
348 as
349 ddp_wrd_fld_rec ams_list_word_fields_pvt.wrd_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_wrd_fld_rec.list_word_field_id := rosetta_g_miss_num_map(p0_a0);
355 ddp_wrd_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
356 ddp_wrd_fld_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
357 ddp_wrd_fld_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
358 ddp_wrd_fld_rec.created_by := rosetta_g_miss_num_map(p0_a4);
359 ddp_wrd_fld_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
360 ddp_wrd_fld_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
361 ddp_wrd_fld_rec.field_table_name := p0_a7;
362 ddp_wrd_fld_rec.field_column_name := p0_a8;
363 ddp_wrd_fld_rec.list_word_replaces_id := rosetta_g_miss_num_map(p0_a9);
364 ddp_wrd_fld_rec.original_word := p0_a10;
365 ddp_wrd_fld_rec.replacement_word := p0_a11;
366 ddp_wrd_fld_rec.enabled_flag := p0_a12;
367 ddp_wrd_fld_rec.description := p0_a13;
368
369
370 -- here's the delegated call to the old PL/SQL routine
371 ams_list_word_fields_pvt.check_fk_items(ddp_wrd_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 VARCHAR2 := fnd_api.g_miss_char
391 , p1_a11 VARCHAR2 := fnd_api.g_miss_char
392 , p1_a12 VARCHAR2 := fnd_api.g_miss_char
393 , p1_a13 VARCHAR2 := fnd_api.g_miss_char
394 )
395 as
396 ddp_wrd_fld_rec ams_list_word_fields_pvt.wrd_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_wrd_fld_rec.list_word_field_id := rosetta_g_miss_num_map(p1_a0);
403 ddp_wrd_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
404 ddp_wrd_fld_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
405 ddp_wrd_fld_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
406 ddp_wrd_fld_rec.created_by := rosetta_g_miss_num_map(p1_a4);
407 ddp_wrd_fld_rec.last_update_login := rosetta_g_miss_num_map(p1_a5);
408 ddp_wrd_fld_rec.object_version_number := rosetta_g_miss_num_map(p1_a6);
409 ddp_wrd_fld_rec.field_table_name := p1_a7;
410 ddp_wrd_fld_rec.field_column_name := p1_a8;
411 ddp_wrd_fld_rec.list_word_replaces_id := rosetta_g_miss_num_map(p1_a9);
412 ddp_wrd_fld_rec.original_word := p1_a10;
413 ddp_wrd_fld_rec.replacement_word := p1_a11;
414 ddp_wrd_fld_rec.enabled_flag := p1_a12;
415 ddp_wrd_fld_rec.description := p1_a13;
416
417
418 -- here's the delegated call to the old PL/SQL routine
419 ams_list_word_fields_pvt.check_uk_items(p_validation_mode,
420 ddp_wrd_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 VARCHAR2
439 , p1_a11 OUT NOCOPY VARCHAR2
440 , p1_a12 OUT NOCOPY VARCHAR2
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 VARCHAR2 := fnd_api.g_miss_char
453 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
454 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
455 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
456 )
457 as
458 ddp_wrd_fld_rec ams_list_word_fields_pvt.wrd_fld_rec_type;
459 ddx_complete_rec ams_list_word_fields_pvt.wrd_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_wrd_fld_rec.list_word_field_id := rosetta_g_miss_num_map(p0_a0);
465 ddp_wrd_fld_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
466 ddp_wrd_fld_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
467 ddp_wrd_fld_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
468 ddp_wrd_fld_rec.created_by := rosetta_g_miss_num_map(p0_a4);
469 ddp_wrd_fld_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
470 ddp_wrd_fld_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
471 ddp_wrd_fld_rec.field_table_name := p0_a7;
472 ddp_wrd_fld_rec.field_column_name := p0_a8;
473 ddp_wrd_fld_rec.list_word_replaces_id := rosetta_g_miss_num_map(p0_a9);
474 ddp_wrd_fld_rec.original_word := p0_a10;
475 ddp_wrd_fld_rec.replacement_word := p0_a11;
476 ddp_wrd_fld_rec.enabled_flag := p0_a12;
477 ddp_wrd_fld_rec.description := p0_a13;
478
479
480 -- here's the delegated call to the old PL/SQL routine
481 ams_list_word_fields_pvt.complete_rec(ddp_wrd_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_word_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_word_replaces_id);
496 p1_a10 := ddx_complete_rec.original_word;
497 p1_a11 := ddx_complete_rec.replacement_word;
498 p1_a12 := ddx_complete_rec.enabled_flag;
499 p1_a13 := ddx_complete_rec.description;
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 VARCHAR2
513 , p0_a11 OUT NOCOPY VARCHAR2
514 , p0_a12 OUT NOCOPY VARCHAR2
515 , p0_a13 OUT NOCOPY VARCHAR2
516 )
517 as
518 ddx_wrd_fld_rec ams_list_word_fields_pvt.wrd_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_word_fields_pvt.init_rec(ddx_wrd_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_wrd_fld_rec.list_word_field_id);
529 p0_a1 := ddx_wrd_fld_rec.last_update_date;
530 p0_a2 := rosetta_g_miss_num_map(ddx_wrd_fld_rec.last_updated_by);
531 p0_a3 := ddx_wrd_fld_rec.creation_date;
532 p0_a4 := rosetta_g_miss_num_map(ddx_wrd_fld_rec.created_by);
533 p0_a5 := rosetta_g_miss_num_map(ddx_wrd_fld_rec.last_update_login);
534 p0_a6 := rosetta_g_miss_num_map(ddx_wrd_fld_rec.object_version_number);
535 p0_a7 := ddx_wrd_fld_rec.field_table_name;
536 p0_a8 := ddx_wrd_fld_rec.field_column_name;
537 p0_a9 := rosetta_g_miss_num_map(ddx_wrd_fld_rec.list_word_replaces_id);
538 p0_a10 := ddx_wrd_fld_rec.original_word;
539 p0_a11 := ddx_wrd_fld_rec.replacement_word;
540 p0_a12 := ddx_wrd_fld_rec.enabled_flag;
541 p0_a13 := ddx_wrd_fld_rec.description;
542 end;
543
544 end ams_list_word_fields_pvt_w;