eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.AMS_LIST_WORD_REPLACES_PVT_W

Source


1 package body ams_list_word_replaces_pvt_w as
2   /* $Header: amswwdrb.pls 115.6 2002/11/22 08:58:02 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_replace(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_rpl_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  VARCHAR2 := fnd_api.g_miss_char
40     , p7_a10  VARCHAR2 := fnd_api.g_miss_char
41   )
42   as
43     ddp_wrd_rpl_rec ams_list_word_replaces_pvt.wrd_rpl_rec_type;
44     ddindx binary_integer; indx binary_integer;
45   begin
46 
47     -- copy data to the local IN or IN-OUT args, if any
48 
49 
50 
51 
52 
53 
54 
55     ddp_wrd_rpl_rec.list_word_replaces_id := rosetta_g_miss_num_map(p7_a0);
56     ddp_wrd_rpl_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
57     ddp_wrd_rpl_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
58     ddp_wrd_rpl_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
59     ddp_wrd_rpl_rec.created_by := rosetta_g_miss_num_map(p7_a4);
60     ddp_wrd_rpl_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
61     ddp_wrd_rpl_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
62     ddp_wrd_rpl_rec.original_word := p7_a7;
63     ddp_wrd_rpl_rec.replacement_word := p7_a8;
64     ddp_wrd_rpl_rec.enabled_flag := p7_a9;
65     ddp_wrd_rpl_rec.description := p7_a10;
66 
67 
68     -- here's the delegated call to the old PL/SQL routine
69     ams_list_word_replaces_pvt.create_list_word_replace(p_api_version,
70       p_init_msg_list,
71       p_commit,
72       p_validation_level,
73       x_return_status,
74       x_msg_count,
75       x_msg_data,
76       ddp_wrd_rpl_rec,
77       x_wrd_rpl_id);
78 
79     -- copy data back from the local OUT or IN-OUT args, if any
80 
81 
82 
83 
84 
85 
86 
87 
88   end;
89 
90   procedure update_list_word_replace(p_api_version  NUMBER
91     , p_init_msg_list  VARCHAR2
92     , p_commit  VARCHAR2
93     , p_validation_level  NUMBER
94     , x_return_status OUT NOCOPY  VARCHAR2
95     , x_msg_count OUT NOCOPY  NUMBER
96     , x_msg_data OUT NOCOPY  VARCHAR2
97     , p7_a0  NUMBER := 0-1962.0724
98     , p7_a1  DATE := fnd_api.g_miss_date
99     , p7_a2  NUMBER := 0-1962.0724
100     , p7_a3  DATE := fnd_api.g_miss_date
101     , p7_a4  NUMBER := 0-1962.0724
102     , p7_a5  NUMBER := 0-1962.0724
103     , p7_a6  NUMBER := 0-1962.0724
104     , p7_a7  VARCHAR2 := fnd_api.g_miss_char
105     , p7_a8  VARCHAR2 := fnd_api.g_miss_char
106     , p7_a9  VARCHAR2 := fnd_api.g_miss_char
107     , p7_a10  VARCHAR2 := fnd_api.g_miss_char
108   )
109   as
110     ddp_wrd_rpl_rec ams_list_word_replaces_pvt.wrd_rpl_rec_type;
111     ddindx binary_integer; indx binary_integer;
112   begin
113 
114     -- copy data to the local IN or IN-OUT args, if any
115 
116 
117 
118 
119 
120 
121 
122     ddp_wrd_rpl_rec.list_word_replaces_id := rosetta_g_miss_num_map(p7_a0);
123     ddp_wrd_rpl_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a1);
124     ddp_wrd_rpl_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
125     ddp_wrd_rpl_rec.creation_date := rosetta_g_miss_date_in_map(p7_a3);
126     ddp_wrd_rpl_rec.created_by := rosetta_g_miss_num_map(p7_a4);
127     ddp_wrd_rpl_rec.last_update_login := rosetta_g_miss_num_map(p7_a5);
128     ddp_wrd_rpl_rec.object_version_number := rosetta_g_miss_num_map(p7_a6);
129     ddp_wrd_rpl_rec.original_word := p7_a7;
130     ddp_wrd_rpl_rec.replacement_word := p7_a8;
131     ddp_wrd_rpl_rec.enabled_flag := p7_a9;
132     ddp_wrd_rpl_rec.description := p7_a10;
133 
134     -- here's the delegated call to the old PL/SQL routine
135     ams_list_word_replaces_pvt.update_list_word_replace(p_api_version,
136       p_init_msg_list,
137       p_commit,
138       p_validation_level,
139       x_return_status,
140       x_msg_count,
141       x_msg_data,
142       ddp_wrd_rpl_rec);
143 
144     -- copy data back from the local OUT or IN-OUT args, if any
145 
146 
147 
148 
149 
150 
151 
152   end;
153 
154   procedure validate_list_word_replace(p_api_version  NUMBER
155     , p_init_msg_list  VARCHAR2
156     , p_validation_level  NUMBER
157     , x_return_status OUT NOCOPY  VARCHAR2
158     , x_msg_count OUT NOCOPY  NUMBER
159     , x_msg_data OUT NOCOPY  VARCHAR2
160     , p6_a0  NUMBER := 0-1962.0724
161     , p6_a1  DATE := fnd_api.g_miss_date
162     , p6_a2  NUMBER := 0-1962.0724
163     , p6_a3  DATE := fnd_api.g_miss_date
164     , p6_a4  NUMBER := 0-1962.0724
165     , p6_a5  NUMBER := 0-1962.0724
166     , p6_a6  NUMBER := 0-1962.0724
167     , p6_a7  VARCHAR2 := fnd_api.g_miss_char
168     , p6_a8  VARCHAR2 := fnd_api.g_miss_char
169     , p6_a9  VARCHAR2 := fnd_api.g_miss_char
170     , p6_a10  VARCHAR2 := fnd_api.g_miss_char
171   )
172   as
173     ddp_wrd_rpl_rec ams_list_word_replaces_pvt.wrd_rpl_rec_type;
174     ddindx binary_integer; indx binary_integer;
175   begin
176 
177     -- copy data to the local IN or IN-OUT args, if any
178 
179 
180 
181 
182 
183 
184     ddp_wrd_rpl_rec.list_word_replaces_id := rosetta_g_miss_num_map(p6_a0);
185     ddp_wrd_rpl_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a1);
186     ddp_wrd_rpl_rec.last_updated_by := rosetta_g_miss_num_map(p6_a2);
187     ddp_wrd_rpl_rec.creation_date := rosetta_g_miss_date_in_map(p6_a3);
188     ddp_wrd_rpl_rec.created_by := rosetta_g_miss_num_map(p6_a4);
189     ddp_wrd_rpl_rec.last_update_login := rosetta_g_miss_num_map(p6_a5);
190     ddp_wrd_rpl_rec.object_version_number := rosetta_g_miss_num_map(p6_a6);
191     ddp_wrd_rpl_rec.original_word := p6_a7;
192     ddp_wrd_rpl_rec.replacement_word := p6_a8;
193     ddp_wrd_rpl_rec.enabled_flag := p6_a9;
194     ddp_wrd_rpl_rec.description := p6_a10;
195 
196     -- here's the delegated call to the old PL/SQL routine
197     ams_list_word_replaces_pvt.validate_list_word_replace(p_api_version,
198       p_init_msg_list,
199       p_validation_level,
200       x_return_status,
201       x_msg_count,
202       x_msg_data,
203       ddp_wrd_rpl_rec);
204 
205     -- copy data back from the local OUT or IN-OUT args, if any
206 
207 
208 
209 
210 
211 
212   end;
213 
214   procedure check_items(p_validation_mode  VARCHAR2
215     , x_return_status OUT NOCOPY  VARCHAR2
216     , p2_a0  NUMBER := 0-1962.0724
217     , p2_a1  DATE := fnd_api.g_miss_date
218     , p2_a2  NUMBER := 0-1962.0724
219     , p2_a3  DATE := fnd_api.g_miss_date
220     , p2_a4  NUMBER := 0-1962.0724
221     , p2_a5  NUMBER := 0-1962.0724
222     , p2_a6  NUMBER := 0-1962.0724
223     , p2_a7  VARCHAR2 := fnd_api.g_miss_char
224     , p2_a8  VARCHAR2 := fnd_api.g_miss_char
225     , p2_a9  VARCHAR2 := fnd_api.g_miss_char
226     , p2_a10  VARCHAR2 := fnd_api.g_miss_char
227   )
228   as
229     ddp_wrd_rpl_rec ams_list_word_replaces_pvt.wrd_rpl_rec_type;
230     ddindx binary_integer; indx binary_integer;
231   begin
232 
233     -- copy data to the local IN or IN-OUT args, if any
234 
235 
236     ddp_wrd_rpl_rec.list_word_replaces_id := rosetta_g_miss_num_map(p2_a0);
237     ddp_wrd_rpl_rec.last_update_date := rosetta_g_miss_date_in_map(p2_a1);
238     ddp_wrd_rpl_rec.last_updated_by := rosetta_g_miss_num_map(p2_a2);
239     ddp_wrd_rpl_rec.creation_date := rosetta_g_miss_date_in_map(p2_a3);
240     ddp_wrd_rpl_rec.created_by := rosetta_g_miss_num_map(p2_a4);
241     ddp_wrd_rpl_rec.last_update_login := rosetta_g_miss_num_map(p2_a5);
242     ddp_wrd_rpl_rec.object_version_number := rosetta_g_miss_num_map(p2_a6);
243     ddp_wrd_rpl_rec.original_word := p2_a7;
244     ddp_wrd_rpl_rec.replacement_word := p2_a8;
245     ddp_wrd_rpl_rec.enabled_flag := p2_a9;
246     ddp_wrd_rpl_rec.description := p2_a10;
247 
248     -- here's the delegated call to the old PL/SQL routine
249     ams_list_word_replaces_pvt.check_items(p_validation_mode,
250       x_return_status,
251       ddp_wrd_rpl_rec);
252 
253     -- copy data back from the local OUT or IN-OUT args, if any
254 
255 
256   end;
257 
258   procedure check_req_items(p_validation_mode  VARCHAR2
259     , x_return_status OUT NOCOPY  VARCHAR2
260     , p1_a0  NUMBER := 0-1962.0724
261     , p1_a1  DATE := fnd_api.g_miss_date
262     , p1_a2  NUMBER := 0-1962.0724
263     , p1_a3  DATE := fnd_api.g_miss_date
264     , p1_a4  NUMBER := 0-1962.0724
265     , p1_a5  NUMBER := 0-1962.0724
266     , p1_a6  NUMBER := 0-1962.0724
267     , p1_a7  VARCHAR2 := fnd_api.g_miss_char
268     , p1_a8  VARCHAR2 := fnd_api.g_miss_char
269     , p1_a9  VARCHAR2 := fnd_api.g_miss_char
270     , p1_a10  VARCHAR2 := fnd_api.g_miss_char
271   )
272   as
273     ddp_wrd_rpl_rec ams_list_word_replaces_pvt.wrd_rpl_rec_type;
274     ddindx binary_integer; indx binary_integer;
275   begin
276 
277     -- copy data to the local IN or IN-OUT args, if any
278 
279     ddp_wrd_rpl_rec.list_word_replaces_id := rosetta_g_miss_num_map(p1_a0);
280     ddp_wrd_rpl_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
281     ddp_wrd_rpl_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
282     ddp_wrd_rpl_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
283     ddp_wrd_rpl_rec.created_by := rosetta_g_miss_num_map(p1_a4);
284     ddp_wrd_rpl_rec.last_update_login := rosetta_g_miss_num_map(p1_a5);
285     ddp_wrd_rpl_rec.object_version_number := rosetta_g_miss_num_map(p1_a6);
286     ddp_wrd_rpl_rec.original_word := p1_a7;
287     ddp_wrd_rpl_rec.replacement_word := p1_a8;
288     ddp_wrd_rpl_rec.enabled_flag := p1_a9;
289     ddp_wrd_rpl_rec.description := p1_a10;
290 
291 
292     -- here's the delegated call to the old PL/SQL routine
293     ams_list_word_replaces_pvt.check_req_items(p_validation_mode,
294       ddp_wrd_rpl_rec,
295       x_return_status);
296 
297     -- copy data back from the local OUT or IN-OUT args, if any
298 
299 
300   end;
301 
302   procedure check_uk_items(p_validation_mode  VARCHAR2
303     , x_return_status OUT NOCOPY  VARCHAR2
304     , p1_a0  NUMBER := 0-1962.0724
305     , p1_a1  DATE := fnd_api.g_miss_date
306     , p1_a2  NUMBER := 0-1962.0724
307     , p1_a3  DATE := fnd_api.g_miss_date
308     , p1_a4  NUMBER := 0-1962.0724
309     , p1_a5  NUMBER := 0-1962.0724
310     , p1_a6  NUMBER := 0-1962.0724
311     , p1_a7  VARCHAR2 := fnd_api.g_miss_char
312     , p1_a8  VARCHAR2 := fnd_api.g_miss_char
313     , p1_a9  VARCHAR2 := fnd_api.g_miss_char
314     , p1_a10  VARCHAR2 := fnd_api.g_miss_char
315   )
316   as
317     ddp_wrd_rpl_rec ams_list_word_replaces_pvt.wrd_rpl_rec_type;
318     ddindx binary_integer; indx binary_integer;
319   begin
320 
321     -- copy data to the local IN or IN-OUT args, if any
322 
323     ddp_wrd_rpl_rec.list_word_replaces_id := rosetta_g_miss_num_map(p1_a0);
324     ddp_wrd_rpl_rec.last_update_date := rosetta_g_miss_date_in_map(p1_a1);
325     ddp_wrd_rpl_rec.last_updated_by := rosetta_g_miss_num_map(p1_a2);
326     ddp_wrd_rpl_rec.creation_date := rosetta_g_miss_date_in_map(p1_a3);
327     ddp_wrd_rpl_rec.created_by := rosetta_g_miss_num_map(p1_a4);
328     ddp_wrd_rpl_rec.last_update_login := rosetta_g_miss_num_map(p1_a5);
329     ddp_wrd_rpl_rec.object_version_number := rosetta_g_miss_num_map(p1_a6);
330     ddp_wrd_rpl_rec.original_word := p1_a7;
331     ddp_wrd_rpl_rec.replacement_word := p1_a8;
332     ddp_wrd_rpl_rec.enabled_flag := p1_a9;
333     ddp_wrd_rpl_rec.description := p1_a10;
334 
335 
336     -- here's the delegated call to the old PL/SQL routine
337     ams_list_word_replaces_pvt.check_uk_items(p_validation_mode,
338       ddp_wrd_rpl_rec,
339       x_return_status);
340 
341     -- copy data back from the local OUT or IN-OUT args, if any
342 
343 
344   end;
345 
346   procedure complete_rec(p1_a0 OUT NOCOPY  NUMBER
347     , p1_a1 OUT NOCOPY  DATE
348     , p1_a2 OUT NOCOPY  NUMBER
349     , p1_a3 OUT NOCOPY  DATE
350     , p1_a4 OUT NOCOPY  NUMBER
351     , p1_a5 OUT NOCOPY  NUMBER
352     , p1_a6 OUT NOCOPY  NUMBER
353     , p1_a7 OUT NOCOPY  VARCHAR2
354     , p1_a8 OUT NOCOPY  VARCHAR2
355     , p1_a9 OUT NOCOPY  VARCHAR2
356     , p1_a10 OUT NOCOPY  VARCHAR2
357     , p0_a0  NUMBER := 0-1962.0724
358     , p0_a1  DATE := fnd_api.g_miss_date
359     , p0_a2  NUMBER := 0-1962.0724
360     , p0_a3  DATE := fnd_api.g_miss_date
361     , p0_a4  NUMBER := 0-1962.0724
362     , p0_a5  NUMBER := 0-1962.0724
363     , p0_a6  NUMBER := 0-1962.0724
364     , p0_a7  VARCHAR2 := fnd_api.g_miss_char
365     , p0_a8  VARCHAR2 := fnd_api.g_miss_char
366     , p0_a9  VARCHAR2 := fnd_api.g_miss_char
367     , p0_a10  VARCHAR2 := fnd_api.g_miss_char
368   )
369   as
370     ddp_wrd_rpl_rec ams_list_word_replaces_pvt.wrd_rpl_rec_type;
371     ddx_complete_rec ams_list_word_replaces_pvt.wrd_rpl_rec_type;
372     ddindx binary_integer; indx binary_integer;
373   begin
374 
375     -- copy data to the local IN or IN-OUT args, if any
376     ddp_wrd_rpl_rec.list_word_replaces_id := rosetta_g_miss_num_map(p0_a0);
377     ddp_wrd_rpl_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a1);
378     ddp_wrd_rpl_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
379     ddp_wrd_rpl_rec.creation_date := rosetta_g_miss_date_in_map(p0_a3);
380     ddp_wrd_rpl_rec.created_by := rosetta_g_miss_num_map(p0_a4);
381     ddp_wrd_rpl_rec.last_update_login := rosetta_g_miss_num_map(p0_a5);
382     ddp_wrd_rpl_rec.object_version_number := rosetta_g_miss_num_map(p0_a6);
383     ddp_wrd_rpl_rec.original_word := p0_a7;
384     ddp_wrd_rpl_rec.replacement_word := p0_a8;
385     ddp_wrd_rpl_rec.enabled_flag := p0_a9;
386     ddp_wrd_rpl_rec.description := p0_a10;
387 
388 
389     -- here's the delegated call to the old PL/SQL routine
390     ams_list_word_replaces_pvt.complete_rec(ddp_wrd_rpl_rec,
391       ddx_complete_rec);
392 
393     -- copy data back from the local OUT or IN-OUT args, if any
394 
395     p1_a0 := rosetta_g_miss_num_map(ddx_complete_rec.list_word_replaces_id);
396     p1_a1 := ddx_complete_rec.last_update_date;
397     p1_a2 := rosetta_g_miss_num_map(ddx_complete_rec.last_updated_by);
398     p1_a3 := ddx_complete_rec.creation_date;
399     p1_a4 := rosetta_g_miss_num_map(ddx_complete_rec.created_by);
400     p1_a5 := rosetta_g_miss_num_map(ddx_complete_rec.last_update_login);
401     p1_a6 := rosetta_g_miss_num_map(ddx_complete_rec.object_version_number);
402     p1_a7 := ddx_complete_rec.original_word;
403     p1_a8 := ddx_complete_rec.replacement_word;
404     p1_a9 := ddx_complete_rec.enabled_flag;
405     p1_a10 := ddx_complete_rec.description;
406   end;
407 
408   procedure init_rec(p0_a0 OUT NOCOPY  NUMBER
409     , p0_a1 OUT NOCOPY  DATE
410     , p0_a2 OUT NOCOPY  NUMBER
411     , p0_a3 OUT NOCOPY  DATE
412     , p0_a4 OUT NOCOPY  NUMBER
413     , p0_a5 OUT NOCOPY  NUMBER
414     , p0_a6 OUT NOCOPY  NUMBER
415     , p0_a7 OUT NOCOPY  VARCHAR2
416     , p0_a8 OUT NOCOPY  VARCHAR2
417     , p0_a9 OUT NOCOPY  VARCHAR2
418     , p0_a10 OUT NOCOPY  VARCHAR2
419   )
420   as
421     ddx_wrd_rpl_rec ams_list_word_replaces_pvt.wrd_rpl_rec_type;
422     ddindx binary_integer; indx binary_integer;
423   begin
424 
425     -- copy data to the local IN or IN-OUT args, if any
426 
427     -- here's the delegated call to the old PL/SQL routine
428     ams_list_word_replaces_pvt.init_rec(ddx_wrd_rpl_rec);
429 
430     -- copy data back from the local OUT or IN-OUT args, if any
431     p0_a0 := rosetta_g_miss_num_map(ddx_wrd_rpl_rec.list_word_replaces_id);
432     p0_a1 := ddx_wrd_rpl_rec.last_update_date;
433     p0_a2 := rosetta_g_miss_num_map(ddx_wrd_rpl_rec.last_updated_by);
434     p0_a3 := ddx_wrd_rpl_rec.creation_date;
435     p0_a4 := rosetta_g_miss_num_map(ddx_wrd_rpl_rec.created_by);
436     p0_a5 := rosetta_g_miss_num_map(ddx_wrd_rpl_rec.last_update_login);
437     p0_a6 := rosetta_g_miss_num_map(ddx_wrd_rpl_rec.object_version_number);
438     p0_a7 := ddx_wrd_rpl_rec.original_word;
439     p0_a8 := ddx_wrd_rpl_rec.replacement_word;
440     p0_a9 := ddx_wrd_rpl_rec.enabled_flag;
441     p0_a10 := ddx_wrd_rpl_rec.description;
442   end;
443 
444 end ams_list_word_replaces_pvt_w;