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_PS_CNDCLSES_PVT_W

Source


1 package body ams_ps_cndclses_pvt_w as
2   /* $Header: amswcclb.pls 120.0 2005/06/01 01:05:48 appldev 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   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 rosetta_table_copy_in_p3(t OUT NOCOPY ams_ps_cndclses_pvt.ps_cndclses_tbl_type, a0 JTF_NUMBER_TABLE
23     , a1 JTF_DATE_TABLE
24     , a2 JTF_NUMBER_TABLE
25     , a3 JTF_DATE_TABLE
26     , a4 JTF_NUMBER_TABLE
27     , a5 JTF_NUMBER_TABLE
28     , a6 JTF_NUMBER_TABLE
29     , a7 JTF_VARCHAR2_TABLE_100
30     , a8 JTF_VARCHAR2_TABLE_100
31     , a9 JTF_VARCHAR2_TABLE_100
32     , a10 JTF_VARCHAR2_TABLE_100
33     , a11 JTF_VARCHAR2_TABLE_100
34     , a12 JTF_VARCHAR2_TABLE_1000
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).created_by := rosetta_g_miss_num_map(a0(indx));
44           t(ddindx).creation_date := rosetta_g_miss_date_in_map(a1(indx));
45           t(ddindx).last_updated_by := rosetta_g_miss_num_map(a2(indx));
46           t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a3(indx));
47           t(ddindx).last_update_login := rosetta_g_miss_num_map(a4(indx));
48           t(ddindx).object_version_number := rosetta_g_miss_num_map(a5(indx));
49           t(ddindx).cnd_clause_id := rosetta_g_miss_num_map(a6(indx));
50           t(ddindx).cnd_clause_datatype := a7(indx);
51           t(ddindx).cnd_clause_ref_code := a8(indx);
52           t(ddindx).cnd_comp_operator := a9(indx);
53           t(ddindx).cnd_default_value := a10(indx);
54           t(ddindx).cnd_clause_name := a11(indx);
55           t(ddindx).cnd_clause_description := 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_p3;
65   procedure rosetta_table_copy_out_p3(t ams_ps_cndclses_pvt.ps_cndclses_tbl_type, a0 OUT NOCOPY JTF_NUMBER_TABLE
66     , a1 OUT NOCOPY JTF_DATE_TABLE
67     , a2 OUT NOCOPY JTF_NUMBER_TABLE
68     , a3 OUT NOCOPY JTF_DATE_TABLE
69     , a4 OUT NOCOPY JTF_NUMBER_TABLE
70     , a5 OUT NOCOPY JTF_NUMBER_TABLE
71     , a6 OUT NOCOPY JTF_NUMBER_TABLE
72     , a7 OUT NOCOPY JTF_VARCHAR2_TABLE_100
73     , a8 OUT NOCOPY JTF_VARCHAR2_TABLE_100
74     , a9 OUT NOCOPY JTF_VARCHAR2_TABLE_100
75     , a10 OUT NOCOPY JTF_VARCHAR2_TABLE_100
76     , a11 OUT NOCOPY JTF_VARCHAR2_TABLE_100
77     , a12 OUT NOCOPY JTF_VARCHAR2_TABLE_1000
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_DATE_TABLE();
84     a2 := JTF_NUMBER_TABLE();
85     a3 := JTF_DATE_TABLE();
86     a4 := JTF_NUMBER_TABLE();
87     a5 := JTF_NUMBER_TABLE();
88     a6 := JTF_NUMBER_TABLE();
89     a7 := JTF_VARCHAR2_TABLE_100();
90     a8 := JTF_VARCHAR2_TABLE_100();
91     a9 := JTF_VARCHAR2_TABLE_100();
92     a10 := JTF_VARCHAR2_TABLE_100();
93     a11 := JTF_VARCHAR2_TABLE_100();
94     a12 := JTF_VARCHAR2_TABLE_1000();
95   else
96       a0 := JTF_NUMBER_TABLE();
97       a1 := JTF_DATE_TABLE();
98       a2 := JTF_NUMBER_TABLE();
99       a3 := JTF_DATE_TABLE();
100       a4 := JTF_NUMBER_TABLE();
101       a5 := JTF_NUMBER_TABLE();
102       a6 := JTF_NUMBER_TABLE();
103       a7 := JTF_VARCHAR2_TABLE_100();
104       a8 := JTF_VARCHAR2_TABLE_100();
105       a9 := JTF_VARCHAR2_TABLE_100();
106       a10 := JTF_VARCHAR2_TABLE_100();
107       a11 := JTF_VARCHAR2_TABLE_100();
108       a12 := JTF_VARCHAR2_TABLE_1000();
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).created_by);
127           a1(indx) := t(ddindx).creation_date;
128           a2(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
129           a3(indx) := t(ddindx).last_update_date;
130           a4(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
131           a5(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
132           a6(indx) := rosetta_g_miss_num_map(t(ddindx).cnd_clause_id);
133           a7(indx) := t(ddindx).cnd_clause_datatype;
134           a8(indx) := t(ddindx).cnd_clause_ref_code;
135           a9(indx) := t(ddindx).cnd_comp_operator;
136           a10(indx) := t(ddindx).cnd_default_value;
137           a11(indx) := t(ddindx).cnd_clause_name;
138           a12(indx) := t(ddindx).cnd_clause_description;
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_p3;
148 
149   procedure create_ps_cndclses(p_api_version_number  NUMBER
150     , p_init_msg_list  VARCHAR2
151     , p_commit  VARCHAR2
152     , p_validation_level  NUMBER
153     , x_return_status OUT NOCOPY  VARCHAR2
154     , x_msg_count OUT NOCOPY  NUMBER
155     , x_msg_data OUT NOCOPY  VARCHAR2
156     , x_cnd_clause_id OUT NOCOPY  NUMBER
157     , p7_a0  NUMBER := 0-1962.0724
158     , p7_a1  DATE := fnd_api.g_miss_date
159     , p7_a2  NUMBER := 0-1962.0724
160     , p7_a3  DATE := fnd_api.g_miss_date
161     , p7_a4  NUMBER := 0-1962.0724
162     , p7_a5  NUMBER := 0-1962.0724
163     , p7_a6  NUMBER := 0-1962.0724
164     , p7_a7  VARCHAR2 := fnd_api.g_miss_char
165     , p7_a8  VARCHAR2 := fnd_api.g_miss_char
166     , p7_a9  VARCHAR2 := fnd_api.g_miss_char
167     , p7_a10  VARCHAR2 := fnd_api.g_miss_char
168     , p7_a11  VARCHAR2 := fnd_api.g_miss_char
169     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
170   )
171   as
172     ddp_ps_cndclses_rec ams_ps_cndclses_pvt.ps_cndclses_rec_type;
173     ddindx binary_integer; indx binary_integer;
174   begin
175 
176     -- copy data to the local IN or IN-OUT args, if any
177 
178 
179 
180 
181 
182 
183 
184     ddp_ps_cndclses_rec.created_by := rosetta_g_miss_num_map(p7_a0);
185     ddp_ps_cndclses_rec.creation_date := rosetta_g_miss_date_in_map(p7_a1);
186     ddp_ps_cndclses_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
187     ddp_ps_cndclses_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a3);
188     ddp_ps_cndclses_rec.last_update_login := rosetta_g_miss_num_map(p7_a4);
189     ddp_ps_cndclses_rec.object_version_number := rosetta_g_miss_num_map(p7_a5);
190     ddp_ps_cndclses_rec.cnd_clause_id := rosetta_g_miss_num_map(p7_a6);
191     ddp_ps_cndclses_rec.cnd_clause_datatype := p7_a7;
192     ddp_ps_cndclses_rec.cnd_clause_ref_code := p7_a8;
193     ddp_ps_cndclses_rec.cnd_comp_operator := p7_a9;
194     ddp_ps_cndclses_rec.cnd_default_value := p7_a10;
195     ddp_ps_cndclses_rec.cnd_clause_name := p7_a11;
196     ddp_ps_cndclses_rec.cnd_clause_description := p7_a12;
197 
198 
199     -- here's the delegated call to the old PL/SQL routine
200     ams_ps_cndclses_pvt.create_ps_cndclses(p_api_version_number,
201       p_init_msg_list,
202       p_commit,
203       p_validation_level,
204       x_return_status,
205       x_msg_count,
206       x_msg_data,
207       ddp_ps_cndclses_rec,
208       x_cnd_clause_id);
209 
210     -- copy data back from the local OUT or IN-OUT args, if any
211 
212 
213 
214 
215 
216 
217 
218 
219   end;
220 
221   procedure update_ps_cndclses(p_api_version_number  NUMBER
222     , p_init_msg_list  VARCHAR2
223     , p_commit  VARCHAR2
224     , p_validation_level  NUMBER
225     , x_return_status OUT NOCOPY  VARCHAR2
226     , x_msg_count OUT NOCOPY  NUMBER
227     , x_msg_data OUT NOCOPY  VARCHAR2
228     , x_object_version_number OUT NOCOPY  NUMBER
229     , p7_a0  NUMBER := 0-1962.0724
230     , p7_a1  DATE := fnd_api.g_miss_date
231     , p7_a2  NUMBER := 0-1962.0724
232     , p7_a3  DATE := fnd_api.g_miss_date
233     , p7_a4  NUMBER := 0-1962.0724
234     , p7_a5  NUMBER := 0-1962.0724
235     , p7_a6  NUMBER := 0-1962.0724
236     , p7_a7  VARCHAR2 := fnd_api.g_miss_char
237     , p7_a8  VARCHAR2 := fnd_api.g_miss_char
238     , p7_a9  VARCHAR2 := fnd_api.g_miss_char
239     , p7_a10  VARCHAR2 := fnd_api.g_miss_char
240     , p7_a11  VARCHAR2 := fnd_api.g_miss_char
241     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
242   )
243   as
244     ddp_ps_cndclses_rec ams_ps_cndclses_pvt.ps_cndclses_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 
250 
251 
252 
253 
254 
255 
256     ddp_ps_cndclses_rec.created_by := rosetta_g_miss_num_map(p7_a0);
257     ddp_ps_cndclses_rec.creation_date := rosetta_g_miss_date_in_map(p7_a1);
258     ddp_ps_cndclses_rec.last_updated_by := rosetta_g_miss_num_map(p7_a2);
259     ddp_ps_cndclses_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a3);
260     ddp_ps_cndclses_rec.last_update_login := rosetta_g_miss_num_map(p7_a4);
261     ddp_ps_cndclses_rec.object_version_number := rosetta_g_miss_num_map(p7_a5);
262     ddp_ps_cndclses_rec.cnd_clause_id := rosetta_g_miss_num_map(p7_a6);
263     ddp_ps_cndclses_rec.cnd_clause_datatype := p7_a7;
264     ddp_ps_cndclses_rec.cnd_clause_ref_code := p7_a8;
265     ddp_ps_cndclses_rec.cnd_comp_operator := p7_a9;
266     ddp_ps_cndclses_rec.cnd_default_value := p7_a10;
267     ddp_ps_cndclses_rec.cnd_clause_name := p7_a11;
268     ddp_ps_cndclses_rec.cnd_clause_description := p7_a12;
269 
270 
271     -- here's the delegated call to the old PL/SQL routine
272     ams_ps_cndclses_pvt.update_ps_cndclses(p_api_version_number,
273       p_init_msg_list,
274       p_commit,
275       p_validation_level,
276       x_return_status,
277       x_msg_count,
278       x_msg_data,
279       ddp_ps_cndclses_rec,
280       x_object_version_number);
281 
282     -- copy data back from the local OUT or IN-OUT args, if any
283 
284 
285 
286 
287 
288 
289 
290 
291   end;
292 
293   procedure validate_ps_cndclses(p_api_version_number  NUMBER
294     , p_init_msg_list  VARCHAR2
295     , p_validation_level  NUMBER
296     , x_return_status OUT NOCOPY  VARCHAR2
297     , x_msg_count OUT NOCOPY  NUMBER
298     , x_msg_data OUT NOCOPY  VARCHAR2
299     , p3_a0  NUMBER := 0-1962.0724
300     , p3_a1  DATE := fnd_api.g_miss_date
301     , p3_a2  NUMBER := 0-1962.0724
302     , p3_a3  DATE := fnd_api.g_miss_date
303     , p3_a4  NUMBER := 0-1962.0724
304     , p3_a5  NUMBER := 0-1962.0724
305     , p3_a6  NUMBER := 0-1962.0724
306     , p3_a7  VARCHAR2 := fnd_api.g_miss_char
307     , p3_a8  VARCHAR2 := fnd_api.g_miss_char
308     , p3_a9  VARCHAR2 := fnd_api.g_miss_char
309     , p3_a10  VARCHAR2 := fnd_api.g_miss_char
310     , p3_a11  VARCHAR2 := fnd_api.g_miss_char
311     , p3_a12  VARCHAR2 := fnd_api.g_miss_char
312   )
313   as
314     ddp_ps_cndclses_rec ams_ps_cndclses_pvt.ps_cndclses_rec_type;
315     ddindx binary_integer; indx binary_integer;
316   begin
317 
318     -- copy data to the local IN or IN-OUT args, if any
319 
320 
321 
322     ddp_ps_cndclses_rec.created_by := rosetta_g_miss_num_map(p3_a0);
323     ddp_ps_cndclses_rec.creation_date := rosetta_g_miss_date_in_map(p3_a1);
324     ddp_ps_cndclses_rec.last_updated_by := rosetta_g_miss_num_map(p3_a2);
325     ddp_ps_cndclses_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a3);
326     ddp_ps_cndclses_rec.last_update_login := rosetta_g_miss_num_map(p3_a4);
327     ddp_ps_cndclses_rec.object_version_number := rosetta_g_miss_num_map(p3_a5);
328     ddp_ps_cndclses_rec.cnd_clause_id := rosetta_g_miss_num_map(p3_a6);
329     ddp_ps_cndclses_rec.cnd_clause_datatype := p3_a7;
330     ddp_ps_cndclses_rec.cnd_clause_ref_code := p3_a8;
331     ddp_ps_cndclses_rec.cnd_comp_operator := p3_a9;
332     ddp_ps_cndclses_rec.cnd_default_value := p3_a10;
333     ddp_ps_cndclses_rec.cnd_clause_name := p3_a11;
334     ddp_ps_cndclses_rec.cnd_clause_description := p3_a12;
335 
336 
337 
338 
339     -- here's the delegated call to the old PL/SQL routine
340     ams_ps_cndclses_pvt.validate_ps_cndclses(p_api_version_number,
341       p_init_msg_list,
342       p_validation_level,
343       ddp_ps_cndclses_rec,
344       x_return_status,
345       x_msg_count,
346       x_msg_data);
347 
348     -- copy data back from the local OUT or IN-OUT args, if any
349 
350 
351 
352 
353 
354 
355   end;
356 
357   procedure check_ps_cndclses_items(p_validation_mode  VARCHAR2
358     , x_return_status OUT NOCOPY  VARCHAR2
359     , p0_a0  NUMBER := 0-1962.0724
360     , p0_a1  DATE := fnd_api.g_miss_date
361     , p0_a2  NUMBER := 0-1962.0724
362     , p0_a3  DATE := fnd_api.g_miss_date
363     , p0_a4  NUMBER := 0-1962.0724
364     , p0_a5  NUMBER := 0-1962.0724
365     , p0_a6  NUMBER := 0-1962.0724
366     , p0_a7  VARCHAR2 := fnd_api.g_miss_char
367     , p0_a8  VARCHAR2 := fnd_api.g_miss_char
368     , p0_a9  VARCHAR2 := fnd_api.g_miss_char
369     , p0_a10  VARCHAR2 := fnd_api.g_miss_char
370     , p0_a11  VARCHAR2 := fnd_api.g_miss_char
371     , p0_a12  VARCHAR2 := fnd_api.g_miss_char
372   )
373   as
374     ddp_ps_cndclses_rec ams_ps_cndclses_pvt.ps_cndclses_rec_type;
375     ddindx binary_integer; indx binary_integer;
376   begin
377 
378     -- copy data to the local IN or IN-OUT args, if any
379     ddp_ps_cndclses_rec.created_by := rosetta_g_miss_num_map(p0_a0);
380     ddp_ps_cndclses_rec.creation_date := rosetta_g_miss_date_in_map(p0_a1);
381     ddp_ps_cndclses_rec.last_updated_by := rosetta_g_miss_num_map(p0_a2);
382     ddp_ps_cndclses_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a3);
383     ddp_ps_cndclses_rec.last_update_login := rosetta_g_miss_num_map(p0_a4);
384     ddp_ps_cndclses_rec.object_version_number := rosetta_g_miss_num_map(p0_a5);
385     ddp_ps_cndclses_rec.cnd_clause_id := rosetta_g_miss_num_map(p0_a6);
386     ddp_ps_cndclses_rec.cnd_clause_datatype := p0_a7;
387     ddp_ps_cndclses_rec.cnd_clause_ref_code := p0_a8;
388     ddp_ps_cndclses_rec.cnd_comp_operator := p0_a9;
389     ddp_ps_cndclses_rec.cnd_default_value := p0_a10;
390     ddp_ps_cndclses_rec.cnd_clause_name := p0_a11;
391     ddp_ps_cndclses_rec.cnd_clause_description := p0_a12;
392 
393 
394 
395     -- here's the delegated call to the old PL/SQL routine
396     ams_ps_cndclses_pvt.check_ps_cndclses_items(ddp_ps_cndclses_rec,
397       p_validation_mode,
398       x_return_status);
399 
400     -- copy data back from the local OUT or IN-OUT args, if any
401 
402 
403   end;
404 
405   procedure validate_ps_cndclses_rec(p_api_version_number  NUMBER
406     , p_init_msg_list  VARCHAR2
407     , x_return_status OUT NOCOPY  VARCHAR2
408     , x_msg_count OUT NOCOPY  NUMBER
409     , x_msg_data OUT NOCOPY  VARCHAR2
410     , p5_a0  NUMBER := 0-1962.0724
411     , p5_a1  DATE := fnd_api.g_miss_date
412     , p5_a2  NUMBER := 0-1962.0724
413     , p5_a3  DATE := fnd_api.g_miss_date
414     , p5_a4  NUMBER := 0-1962.0724
415     , p5_a5  NUMBER := 0-1962.0724
416     , p5_a6  NUMBER := 0-1962.0724
417     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
418     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
419     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
420     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
421     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
422     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
423   )
424   as
425     ddp_ps_cndclses_rec ams_ps_cndclses_pvt.ps_cndclses_rec_type;
426     ddindx binary_integer; indx binary_integer;
427   begin
428 
429     -- copy data to the local IN or IN-OUT args, if any
430 
431 
432 
433 
434 
435     ddp_ps_cndclses_rec.created_by := rosetta_g_miss_num_map(p5_a0);
436     ddp_ps_cndclses_rec.creation_date := rosetta_g_miss_date_in_map(p5_a1);
437     ddp_ps_cndclses_rec.last_updated_by := rosetta_g_miss_num_map(p5_a2);
438     ddp_ps_cndclses_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a3);
439     ddp_ps_cndclses_rec.last_update_login := rosetta_g_miss_num_map(p5_a4);
440     ddp_ps_cndclses_rec.object_version_number := rosetta_g_miss_num_map(p5_a5);
441     ddp_ps_cndclses_rec.cnd_clause_id := rosetta_g_miss_num_map(p5_a6);
442     ddp_ps_cndclses_rec.cnd_clause_datatype := p5_a7;
443     ddp_ps_cndclses_rec.cnd_clause_ref_code := p5_a8;
444     ddp_ps_cndclses_rec.cnd_comp_operator := p5_a9;
445     ddp_ps_cndclses_rec.cnd_default_value := p5_a10;
446     ddp_ps_cndclses_rec.cnd_clause_name := p5_a11;
447     ddp_ps_cndclses_rec.cnd_clause_description := p5_a12;
448 
449     -- here's the delegated call to the old PL/SQL routine
450     ams_ps_cndclses_pvt.validate_ps_cndclses_rec(p_api_version_number,
451       p_init_msg_list,
452       x_return_status,
453       x_msg_count,
454       x_msg_data,
455       ddp_ps_cndclses_rec);
456 
457     -- copy data back from the local OUT or IN-OUT args, if any
458 
459 
460 
461 
462 
463   end;
464 
465 end ams_ps_cndclses_pvt_w;