[Home] [Help]
PACKAGE BODY: APPS.AMS_LISTFIELD_PVT_W
Source
1 package body ams_listfield_pvt_w as
2 /* $Header: amswlfdb.pls 115.5 2002/11/22 08:57:07 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 update_listfield(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 , p7_a0 NUMBER := 0-1962.0724
30 , p7_a1 DATE := fnd_api.g_miss_date
31 , p7_a2 NUMBER := 0-1962.0724
32 , p7_a3 DATE := fnd_api.g_miss_date
33 , p7_a4 NUMBER := 0-1962.0724
34 , p7_a5 NUMBER := 0-1962.0724
35 , p7_a6 NUMBER := 0-1962.0724
36 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
37 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
38 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
39 , p7_a10 NUMBER := 0-1962.0724
40 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
41 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
42 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
43 )
44 as
45 ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
46 ddindx binary_integer; indx binary_integer;
47 begin
48
49 -- copy data to the local IN or IN-OUT args, if any
50
51
52
53
54
55
56
57 ddp_listfield_rec.list_field_id := rosetta_g_miss_num_map(p7_a0);
58 ddp_listfield_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
59 ddp_listfield_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
60 ddp_listfield_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
61 ddp_listfield_rec.created_by := rosetta_g_miss_num_map(p7_a4);
62 ddp_listfield_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
63 ddp_listfield_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
64 ddp_listfield_rec.field_table_name := p7_a7;
65 ddp_listfield_rec.field_column_name := p7_a8;
66 ddp_listfield_rec.column_data_type := p7_a9;
67 ddp_listfield_rec.column_data_length := rosetta_g_miss_num_map(p7_a10);
68 ddp_listfield_rec.enabled_flag := p7_a11;
69 ddp_listfield_rec.list_type_field_apply_on := p7_a12;
70 ddp_listfield_rec.description := p7_a13;
71
72 -- here's the delegated call to the old PL/SQL routine
73 ams_listfield_pvt.update_listfield(p_api_version,
74 p_init_msg_list,
75 p_commit,
76 p_validation_level,
77 x_return_status,
78 x_msg_count,
79 x_msg_data,
80 ddp_listfield_rec);
81
82 -- copy data back from the local OUT or IN-OUT args, if any
83
84
85
86
87
88
89
90 end;
91
92 procedure validate_listfield(p_api_version NUMBER
93 , p_init_msg_list VARCHAR2
94 , p_commit VARCHAR2
95 , p_validation_level NUMBER
96 , x_return_status OUT NOCOPY VARCHAR2
97 , x_msg_count OUT NOCOPY NUMBER
98 , x_msg_data OUT NOCOPY VARCHAR2
99 , p7_a0 NUMBER := 0-1962.0724
100 , p7_a1 DATE := fnd_api.g_miss_date
101 , p7_a2 NUMBER := 0-1962.0724
102 , p7_a3 DATE := fnd_api.g_miss_date
103 , p7_a4 NUMBER := 0-1962.0724
104 , p7_a5 NUMBER := 0-1962.0724
105 , p7_a6 NUMBER := 0-1962.0724
106 , p7_a7 VARCHAR2 := fnd_api.g_miss_char
107 , p7_a8 VARCHAR2 := fnd_api.g_miss_char
108 , p7_a9 VARCHAR2 := fnd_api.g_miss_char
109 , p7_a10 NUMBER := 0-1962.0724
110 , p7_a11 VARCHAR2 := fnd_api.g_miss_char
111 , p7_a12 VARCHAR2 := fnd_api.g_miss_char
112 , p7_a13 VARCHAR2 := fnd_api.g_miss_char
113 )
114 as
115 ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
116 ddindx binary_integer; indx binary_integer;
117 begin
118
119 -- copy data to the local IN or IN-OUT args, if any
120
121
122
123
124
125
126
127 ddp_listfield_rec.list_field_id := rosetta_g_miss_num_map(p7_a0);
128 ddp_listfield_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
129 ddp_listfield_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
130 ddp_listfield_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
131 ddp_listfield_rec.created_by := rosetta_g_miss_num_map(p7_a4);
132 ddp_listfield_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
133 ddp_listfield_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
134 ddp_listfield_rec.field_table_name := p7_a7;
135 ddp_listfield_rec.field_column_name := p7_a8;
136 ddp_listfield_rec.column_data_type := p7_a9;
137 ddp_listfield_rec.column_data_length := rosetta_g_miss_num_map(p7_a10);
138 ddp_listfield_rec.enabled_flag := p7_a11;
139 ddp_listfield_rec.list_type_field_apply_on := p7_a12;
140 ddp_listfield_rec.description := p7_a13;
141
142 -- here's the delegated call to the old PL/SQL routine
143 ams_listfield_pvt.validate_listfield(p_api_version,
144 p_init_msg_list,
145 p_commit,
146 p_validation_level,
147 x_return_status,
148 x_msg_count,
149 x_msg_data,
150 ddp_listfield_rec);
151
152 -- copy data back from the local OUT or IN-OUT args, if any
153
154
155
156
157
158
159
160 end;
161
162 procedure check_listfield_items(p_validation_mode VARCHAR2
163 , x_return_status OUT NOCOPY VARCHAR2
164 , p0_a0 NUMBER := 0-1962.0724
165 , p0_a1 DATE := fnd_api.g_miss_date
166 , p0_a2 NUMBER := 0-1962.0724
167 , p0_a3 DATE := fnd_api.g_miss_date
168 , p0_a4 NUMBER := 0-1962.0724
169 , p0_a5 NUMBER := 0-1962.0724
170 , p0_a6 NUMBER := 0-1962.0724
171 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
172 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
173 , p0_a9 VARCHAR2 := fnd_api.g_miss_char
174 , p0_a10 NUMBER := 0-1962.0724
175 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
176 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
177 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
178 )
179 as
180 ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
181 ddindx binary_integer; indx binary_integer;
182 begin
183
184 -- copy data to the local IN or IN-OUT args, if any
185 ddp_listfield_rec.list_field_id := rosetta_g_miss_num_map(p0_a0);
186 ddp_listfield_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
187 ddp_listfield_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
188 ddp_listfield_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
189 ddp_listfield_rec.created_by := rosetta_g_miss_num_map(p0_a4);
190 ddp_listfield_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
191 ddp_listfield_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
192 ddp_listfield_rec.field_table_name := p0_a7;
193 ddp_listfield_rec.field_column_name := p0_a8;
194 ddp_listfield_rec.column_data_type := p0_a9;
195 ddp_listfield_rec.column_data_length := rosetta_g_miss_num_map(p0_a10);
196 ddp_listfield_rec.enabled_flag := p0_a11;
197 ddp_listfield_rec.list_type_field_apply_on := p0_a12;
198 ddp_listfield_rec.description := p0_a13;
199
200
201
202 -- here's the delegated call to the old PL/SQL routine
203 ams_listfield_pvt.check_listfield_items(ddp_listfield_rec,
204 p_validation_mode,
205 x_return_status);
206
207 -- copy data back from the local OUT or IN-OUT args, if any
208
209
210 end;
211
212 procedure check_listfield_record(x_return_status OUT NOCOPY VARCHAR2
213 , p0_a0 NUMBER := 0-1962.0724
214 , p0_a1 DATE := fnd_api.g_miss_date
215 , p0_a2 NUMBER := 0-1962.0724
216 , p0_a3 DATE := fnd_api.g_miss_date
217 , p0_a4 NUMBER := 0-1962.0724
218 , p0_a5 NUMBER := 0-1962.0724
219 , p0_a6 NUMBER := 0-1962.0724
220 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
221 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
222 , p0_a9 VARCHAR2 := fnd_api.g_miss_char
223 , p0_a10 NUMBER := 0-1962.0724
224 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
225 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
226 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
227 , p1_a0 NUMBER := 0-1962.0724
228 , p1_a1 DATE := fnd_api.g_miss_date
229 , p1_a2 NUMBER := 0-1962.0724
230 , p1_a3 DATE := fnd_api.g_miss_date
231 , p1_a4 NUMBER := 0-1962.0724
232 , p1_a5 NUMBER := 0-1962.0724
233 , p1_a6 NUMBER := 0-1962.0724
234 , p1_a7 VARCHAR2 := fnd_api.g_miss_char
235 , p1_a8 VARCHAR2 := fnd_api.g_miss_char
236 , p1_a9 VARCHAR2 := fnd_api.g_miss_char
237 , p1_a10 NUMBER := 0-1962.0724
238 , p1_a11 VARCHAR2 := fnd_api.g_miss_char
239 , p1_a12 VARCHAR2 := fnd_api.g_miss_char
240 , p1_a13 VARCHAR2 := fnd_api.g_miss_char
241 )
242 as
243 ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
244 ddp_complete_rec ams_listfield_pvt.list_field_rec_type;
245 ddindx binary_integer; indx binary_integer;
246 begin
247
248 -- copy data to the local IN or IN-OUT args, if any
249 ddp_listfield_rec.list_field_id := rosetta_g_miss_num_map(p0_a0);
250 ddp_listfield_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
251 ddp_listfield_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
252 ddp_listfield_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
253 ddp_listfield_rec.created_by := rosetta_g_miss_num_map(p0_a4);
254 ddp_listfield_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
255 ddp_listfield_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
256 ddp_listfield_rec.field_table_name := p0_a7;
257 ddp_listfield_rec.field_column_name := p0_a8;
258 ddp_listfield_rec.column_data_type := p0_a9;
259 ddp_listfield_rec.column_data_length := rosetta_g_miss_num_map(p0_a10);
260 ddp_listfield_rec.enabled_flag := p0_a11;
261 ddp_listfield_rec.list_type_field_apply_on := p0_a12;
262 ddp_listfield_rec.description := p0_a13;
263
264 ddp_complete_rec.list_field_id := rosetta_g_miss_num_map(p1_a0);
265 ddp_complete_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
266 ddp_complete_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
267 ddp_complete_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
268 ddp_complete_rec.created_by := rosetta_g_miss_num_map(p1_a4);
269 ddp_complete_rec.last_update_login := rosetta_g_miss_num_map(p1_a5);
270 ddp_complete_rec.object_version_number := rosetta_g_miss_num_map(p1_a6);
271 ddp_complete_rec.field_table_name := p1_a7;
272 ddp_complete_rec.field_column_name := p1_a8;
273 ddp_complete_rec.column_data_type := p1_a9;
274 ddp_complete_rec.column_data_length := rosetta_g_miss_num_map(p1_a10);
275 ddp_complete_rec.enabled_flag := p1_a11;
276 ddp_complete_rec.list_type_field_apply_on := p1_a12;
277 ddp_complete_rec.description := p1_a13;
278
279
280 -- here's the delegated call to the old PL/SQL routine
281 ams_listfield_pvt.check_listfield_record(ddp_listfield_rec,
282 ddp_complete_rec,
283 x_return_status);
284
285 -- copy data back from the local OUT or IN-OUT args, if any
286
287
288 end;
289
290 procedure init_listfield_rec(p0_a0 OUT NOCOPY NUMBER
291 , p0_a1 OUT NOCOPY DATE
292 , p0_a2 OUT NOCOPY NUMBER
293 , p0_a3 OUT NOCOPY DATE
294 , p0_a4 OUT NOCOPY NUMBER
295 , p0_a5 OUT NOCOPY NUMBER
296 , p0_a6 OUT NOCOPY NUMBER
297 , p0_a7 OUT NOCOPY VARCHAR2
298 , p0_a8 OUT NOCOPY VARCHAR2
299 , p0_a9 OUT NOCOPY VARCHAR2
300 , p0_a10 OUT NOCOPY NUMBER
301 , p0_a11 OUT NOCOPY VARCHAR2
302 , p0_a12 OUT NOCOPY VARCHAR2
303 , p0_a13 OUT NOCOPY VARCHAR2
304 )
305 as
306 ddx_listfield_rec ams_listfield_pvt.list_field_rec_type;
307 ddindx binary_integer; indx binary_integer;
308 begin
309
310 -- copy data to the local IN or IN-OUT args, if any
311
312 -- here's the delegated call to the old PL/SQL routine
313 ams_listfield_pvt.init_listfield_rec(ddx_listfield_rec);
314
315 -- copy data back from the local OUT or IN-OUT args, if any
316 p0_a0 := rosetta_g_miss_num_map(ddx_listfield_rec.list_field_id);
317 p0_a1 := ddx_listfield_rec.last_update_date;
318 p0_a2 := rosetta_g_miss_num_map(ddx_listfield_rec.last_updated_by);
319 p0_a3 := ddx_listfield_rec.creation_date;
320 p0_a4 := rosetta_g_miss_num_map(ddx_listfield_rec.created_by);
321 p0_a5 := rosetta_g_miss_num_map(ddx_listfield_rec.last_update_login);
322 p0_a6 := rosetta_g_miss_num_map(ddx_listfield_rec.object_version_number);
323 p0_a7 := ddx_listfield_rec.field_table_name;
324 p0_a8 := ddx_listfield_rec.field_column_name;
325 p0_a9 := ddx_listfield_rec.column_data_type;
326 p0_a10 := rosetta_g_miss_num_map(ddx_listfield_rec.column_data_length);
327 p0_a11 := ddx_listfield_rec.enabled_flag;
328 p0_a12 := ddx_listfield_rec.list_type_field_apply_on;
329 p0_a13 := ddx_listfield_rec.description;
330 end;
331
332 procedure complete_listfield_rec(p1_a0 OUT NOCOPY NUMBER
333 , p1_a1 OUT NOCOPY DATE
334 , p1_a2 OUT NOCOPY NUMBER
335 , p1_a3 OUT NOCOPY DATE
336 , p1_a4 OUT NOCOPY NUMBER
337 , p1_a5 OUT NOCOPY NUMBER
338 , p1_a6 OUT NOCOPY NUMBER
339 , p1_a7 OUT NOCOPY VARCHAR2
340 , p1_a8 OUT NOCOPY VARCHAR2
341 , p1_a9 OUT NOCOPY VARCHAR2
342 , p1_a10 OUT NOCOPY NUMBER
343 , p1_a11 OUT NOCOPY VARCHAR2
344 , p1_a12 OUT NOCOPY VARCHAR2
345 , p1_a13 OUT NOCOPY VARCHAR2
346 , p0_a0 NUMBER := 0-1962.0724
347 , p0_a1 DATE := fnd_api.g_miss_date
348 , p0_a2 NUMBER := 0-1962.0724
349 , p0_a3 DATE := fnd_api.g_miss_date
350 , p0_a4 NUMBER := 0-1962.0724
351 , p0_a5 NUMBER := 0-1962.0724
352 , p0_a6 NUMBER := 0-1962.0724
353 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
354 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
355 , p0_a9 VARCHAR2 := fnd_api.g_miss_char
356 , p0_a10 NUMBER := 0-1962.0724
357 , p0_a11 VARCHAR2 := fnd_api.g_miss_char
358 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
359 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
360 )
361 as
362 ddp_listfield_rec ams_listfield_pvt.list_field_rec_type;
363 ddx_complete_rec ams_listfield_pvt.list_field_rec_type;
364 ddindx binary_integer; indx binary_integer;
365 begin
366
367 -- copy data to the local IN or IN-OUT args, if any
368 ddp_listfield_rec.list_field_id := rosetta_g_miss_num_map(p0_a0);
369 ddp_listfield_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
370 ddp_listfield_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
371 ddp_listfield_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
372 ddp_listfield_rec.created_by := rosetta_g_miss_num_map(p0_a4);
373 ddp_listfield_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
374 ddp_listfield_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
375 ddp_listfield_rec.field_table_name := p0_a7;
376 ddp_listfield_rec.field_column_name := p0_a8;
377 ddp_listfield_rec.column_data_type := p0_a9;
378 ddp_listfield_rec.column_data_length := rosetta_g_miss_num_map(p0_a10);
379 ddp_listfield_rec.enabled_flag := p0_a11;
380 ddp_listfield_rec.list_type_field_apply_on := p0_a12;
381 ddp_listfield_rec.description := p0_a13;
382
383
384 -- here's the delegated call to the old PL/SQL routine
385 ams_listfield_pvt.complete_listfield_rec(ddp_listfield_rec,
386 ddx_complete_rec);
387
388 -- copy data back from the local OUT or IN-OUT args, if any
389
390 p1_a0 := rosetta_g_miss_num_map(ddx_complete_rec.list_field_id);
391 p1_a1 := ddx_complete_rec.last_update_date;
392 p1_a2 := rosetta_g_miss_num_map(ddx_complete_rec.last_updated_by);
393 p1_a3 := ddx_complete_rec.creation_date;
394 p1_a4 := rosetta_g_miss_num_map(ddx_complete_rec.created_by);
395 p1_a5 := rosetta_g_miss_num_map(ddx_complete_rec.last_update_login);
396 p1_a6 := rosetta_g_miss_num_map(ddx_complete_rec.object_version_number);
397 p1_a7 := ddx_complete_rec.field_table_name;
398 p1_a8 := ddx_complete_rec.field_column_name;
399 p1_a9 := ddx_complete_rec.column_data_type;
400 p1_a10 := rosetta_g_miss_num_map(ddx_complete_rec.column_data_length);
401 p1_a11 := ddx_complete_rec.enabled_flag;
402 p1_a12 := ddx_complete_rec.list_type_field_apply_on;
403 p1_a13 := ddx_complete_rec.description;
404 end;
405
406 end ams_listfield_pvt_w;