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.IEX_WEBSWITCH_PVT_W

Source


1 package body iex_webswitch_pvt_w as
2   /* $Header: iexvadtb.pls 120.1 2005/07/06 15:14:19 schekuri 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   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   function rosetta_g_miss_num_map(n number) return number as
14     a number := fnd_api.g_miss_num;
15     b number := 0-1962.0724;
16   begin
17     if n=a then return b; end if;
18     if n=b then return a; end if;
19     return n;
20   end;
21 
22   procedure create_webswitch(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  NUMBER := 0-1962.0724
31     , p7_a2  NUMBER := 0-1962.0724
32     , p7_a3  VARCHAR2 := fnd_api.g_miss_char
33     , p7_a4  VARCHAR2 := fnd_api.g_miss_char
34     , p7_a5  VARCHAR2 := fnd_api.g_miss_char
35     , p7_a6  VARCHAR2 := fnd_api.g_miss_char
36     , p7_a7  NUMBER := 0-1962.0724
37     , p7_a8  VARCHAR2 := fnd_api.g_miss_char
38     , p7_a9  NUMBER := 0-1962.0724
39     , p7_a10  DATE := fnd_api.g_miss_date
40     , p7_a11  NUMBER := 0-1962.0724
41     , p7_a12  DATE := fnd_api.g_miss_date
42     , p7_a13  NUMBER := 0-1962.0724
43     , p7_a14  NUMBER := 0-1962.0724
44     , p7_a15  NUMBER := 0-1962.0724
45     , p7_a16  VARCHAR2 := fnd_api.g_miss_char
46     , p7_a17  VARCHAR2 := fnd_api.g_miss_char
47     , p7_a18  VARCHAR2 := fnd_api.g_miss_char
48     , p7_a19  VARCHAR2 := fnd_api.g_miss_char
49     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
50     , p7_a21  VARCHAR2 := fnd_api.g_miss_char
51     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
52     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
53     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
54     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
55     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
56     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
57     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
58     , p7_a29  VARCHAR2 := fnd_api.g_miss_char
59     , p7_a30  VARCHAR2 := fnd_api.g_miss_char
60     , p7_a31  VARCHAR2 := fnd_api.g_miss_char
61     , p8_a0  NUMBER := 0-1962.0724
62     , p8_a1  NUMBER := 0-1962.0724
63     , p8_a2  NUMBER := 0-1962.0724
64     , p8_a3  VARCHAR2 := fnd_api.g_miss_char
65     , p8_a4  VARCHAR2 := fnd_api.g_miss_char
66     , p8_a5  VARCHAR2 := fnd_api.g_miss_char
67     , p8_a6  VARCHAR2 := fnd_api.g_miss_char
68     , p8_a7  VARCHAR2 := fnd_api.g_miss_char
69     , p8_a8  VARCHAR2 := fnd_api.g_miss_char
70     , p8_a9  VARCHAR2 := fnd_api.g_miss_char
71     , p8_a10  NUMBER := 0-1962.0724
72     , p8_a11  VARCHAR2 := fnd_api.g_miss_char
73     , p8_a12  NUMBER := 0-1962.0724
74     , p8_a13  DATE := fnd_api.g_miss_date
75     , p8_a14  NUMBER := 0-1962.0724
76     , p8_a15  DATE := fnd_api.g_miss_date
77     , p8_a16  NUMBER := 0-1962.0724
78     , p8_a17  NUMBER := 0-1962.0724
79     , p8_a18  NUMBER := 0-1962.0724
80     , p8_a19  VARCHAR2 := fnd_api.g_miss_char
81     , p8_a20  VARCHAR2 := fnd_api.g_miss_char
82     , p8_a21  VARCHAR2 := fnd_api.g_miss_char
83     , p8_a22  VARCHAR2 := fnd_api.g_miss_char
84     , p8_a23  VARCHAR2 := fnd_api.g_miss_char
85     , p8_a24  VARCHAR2 := fnd_api.g_miss_char
86     , p8_a25  VARCHAR2 := fnd_api.g_miss_char
87     , p8_a26  VARCHAR2 := fnd_api.g_miss_char
88     , p8_a27  VARCHAR2 := fnd_api.g_miss_char
89     , p8_a28  VARCHAR2 := fnd_api.g_miss_char
90     , p8_a29  VARCHAR2 := fnd_api.g_miss_char
91     , p8_a30  VARCHAR2 := fnd_api.g_miss_char
92     , p8_a31  VARCHAR2 := fnd_api.g_miss_char
93     , p8_a32  VARCHAR2 := fnd_api.g_miss_char
94     , p8_a33  VARCHAR2 := fnd_api.g_miss_char
95     , p8_a34  VARCHAR2 := fnd_api.g_miss_char
96   )
97 
98   as
99     ddp_cgi_switch_rec iex_webswitch_pvt.cgi_switch_rec_type;
100     ddp_switch_data_rec iex_webswitch_pvt.switch_data_rec_type;
101     ddindx binary_integer; indx binary_integer;
102   begin
103 
104     -- copy data to the local IN or IN-OUT args, if any
105 
106 
107 
108 
109 
110 
111 
112     ddp_cgi_switch_rec.cgi_switch_id := rosetta_g_miss_num_map(p7_a0);
113     ddp_cgi_switch_rec.object_version_number := rosetta_g_miss_num_map(p7_a1);
114     ddp_cgi_switch_rec.program_id := rosetta_g_miss_num_map(p7_a2);
115     ddp_cgi_switch_rec.enabled_flag := p7_a3;
116     ddp_cgi_switch_rec.switch_code := p7_a4;
117     ddp_cgi_switch_rec.switch_type := p7_a5;
118     ddp_cgi_switch_rec.is_required_yn := p7_a6;
119     ddp_cgi_switch_rec.sort_order := rosetta_g_miss_num_map(p7_a7);
120     ddp_cgi_switch_rec.data_separator := p7_a8;
121     ddp_cgi_switch_rec.query_string_id := rosetta_g_miss_num_map(p7_a9);
122     ddp_cgi_switch_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a10);
123     ddp_cgi_switch_rec.last_updated_by := rosetta_g_miss_num_map(p7_a11);
124     ddp_cgi_switch_rec.creation_date := rosetta_g_miss_date_in_map(p7_a12);
125     ddp_cgi_switch_rec.created_by := rosetta_g_miss_num_map(p7_a13);
126     ddp_cgi_switch_rec.last_update_login := rosetta_g_miss_num_map(p7_a14);
127     ddp_cgi_switch_rec.org_id := rosetta_g_miss_num_map(p7_a15);
128     ddp_cgi_switch_rec.attribute_category := p7_a16;
129     ddp_cgi_switch_rec.attribute1 := p7_a17;
130     ddp_cgi_switch_rec.attribute2 := p7_a18;
131     ddp_cgi_switch_rec.attribute3 := p7_a19;
132     ddp_cgi_switch_rec.attribute4 := p7_a20;
133     ddp_cgi_switch_rec.attribute5 := p7_a21;
134     ddp_cgi_switch_rec.attribute6 := p7_a22;
135     ddp_cgi_switch_rec.attribute7 := p7_a23;
136     ddp_cgi_switch_rec.attribute8 := p7_a24;
137     ddp_cgi_switch_rec.attribute9 := p7_a25;
138     ddp_cgi_switch_rec.attribute10 := p7_a26;
139     ddp_cgi_switch_rec.attribute11 := p7_a27;
140     ddp_cgi_switch_rec.attribute12 := p7_a28;
141     ddp_cgi_switch_rec.attribute13 := p7_a29;
142     ddp_cgi_switch_rec.attribute14 := p7_a30;
143     ddp_cgi_switch_rec.attribute15 := p7_a31;
144 
145     ddp_switch_data_rec.switch_data_id := rosetta_g_miss_num_map(p8_a0);
146     ddp_switch_data_rec.program_id := rosetta_g_miss_num_map(p8_a1);
147     ddp_switch_data_rec.object_version_number := rosetta_g_miss_num_map(p8_a2);
148     ddp_switch_data_rec.first_name_yn := p8_a3;
149     ddp_switch_data_rec.last_name_yn := p8_a4;
150     ddp_switch_data_rec.address_yn := p8_a5;
151     ddp_switch_data_rec.city_yn := p8_a6;
152     ddp_switch_data_rec.state_yn := p8_a7;
153     ddp_switch_data_rec.zip_yn := p8_a8;
154     ddp_switch_data_rec.country_yn := p8_a9;
155     ddp_switch_data_rec.sort_order := rosetta_g_miss_num_map(p8_a10);
156     ddp_switch_data_rec.enabled_flag := p8_a11;
157     ddp_switch_data_rec.cgi_switch_id := rosetta_g_miss_num_map(p8_a12);
158     ddp_switch_data_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a13);
159     ddp_switch_data_rec.last_updated_by := rosetta_g_miss_num_map(p8_a14);
160     ddp_switch_data_rec.creation_date := rosetta_g_miss_date_in_map(p8_a15);
161     ddp_switch_data_rec.created_by := rosetta_g_miss_num_map(p8_a16);
162     ddp_switch_data_rec.last_update_login := rosetta_g_miss_num_map(p8_a17);
163     ddp_switch_data_rec.org_id := rosetta_g_miss_num_map(p8_a18);
164     ddp_switch_data_rec.attribute_category := p8_a19;
165     ddp_switch_data_rec.attribute1 := p8_a20;
166     ddp_switch_data_rec.attribute2 := p8_a21;
167     ddp_switch_data_rec.attribute3 := p8_a22;
168     ddp_switch_data_rec.attribute4 := p8_a23;
169     ddp_switch_data_rec.attribute5 := p8_a24;
170     ddp_switch_data_rec.attribute6 := p8_a25;
171     ddp_switch_data_rec.attribute7 := p8_a26;
172     ddp_switch_data_rec.attribute8 := p8_a27;
173     ddp_switch_data_rec.attribute9 := p8_a28;
174     ddp_switch_data_rec.attribute10 := p8_a29;
175     ddp_switch_data_rec.attribute11 := p8_a30;
176     ddp_switch_data_rec.attribute12 := p8_a31;
177     ddp_switch_data_rec.attribute13 := p8_a32;
178     ddp_switch_data_rec.attribute14 := p8_a33;
179     ddp_switch_data_rec.attribute15 := p8_a34;
180 
181     -- here's the delegated call to the old PL/SQL routine
182     iex_webswitch_pvt.create_webswitch(p_api_version,
183       p_init_msg_list,
184       p_commit,
185       p_validation_level,
186       x_return_status,
187       x_msg_count,
188       x_msg_data,
189       ddp_cgi_switch_rec,
190       ddp_switch_data_rec);
191 
192     -- copy data back from the local variables to OUT or IN-OUT args, if any
193 
194 
195 
196 
197 
198 
199 
200 
201   end;
202 
203   procedure update_webswitch(p_api_version  NUMBER
204     , p_init_msg_list  VARCHAR2
205     , p_commit  VARCHAR2
206     , p_validation_level  NUMBER
207     , x_return_status out nocopy  VARCHAR2
208     , x_msg_count out nocopy  NUMBER
209     , x_msg_data out nocopy  VARCHAR2
210     , p7_a0  NUMBER := 0-1962.0724
211     , p7_a1  NUMBER := 0-1962.0724
212     , p7_a2  NUMBER := 0-1962.0724
213     , p7_a3  VARCHAR2 := fnd_api.g_miss_char
214     , p7_a4  VARCHAR2 := fnd_api.g_miss_char
215     , p7_a5  VARCHAR2 := fnd_api.g_miss_char
216     , p7_a6  VARCHAR2 := fnd_api.g_miss_char
217     , p7_a7  NUMBER := 0-1962.0724
218     , p7_a8  VARCHAR2 := fnd_api.g_miss_char
219     , p7_a9  NUMBER := 0-1962.0724
220     , p7_a10  DATE := fnd_api.g_miss_date
221     , p7_a11  NUMBER := 0-1962.0724
222     , p7_a12  DATE := fnd_api.g_miss_date
223     , p7_a13  NUMBER := 0-1962.0724
224     , p7_a14  NUMBER := 0-1962.0724
225     , p7_a15  NUMBER := 0-1962.0724
226     , p7_a16  VARCHAR2 := fnd_api.g_miss_char
227     , p7_a17  VARCHAR2 := fnd_api.g_miss_char
228     , p7_a18  VARCHAR2 := fnd_api.g_miss_char
229     , p7_a19  VARCHAR2 := fnd_api.g_miss_char
230     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
231     , p7_a21  VARCHAR2 := fnd_api.g_miss_char
232     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
233     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
234     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
235     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
236     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
237     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
238     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
239     , p7_a29  VARCHAR2 := fnd_api.g_miss_char
240     , p7_a30  VARCHAR2 := fnd_api.g_miss_char
241     , p7_a31  VARCHAR2 := fnd_api.g_miss_char
242     , p8_a0  NUMBER := 0-1962.0724
243     , p8_a1  NUMBER := 0-1962.0724
244     , p8_a2  NUMBER := 0-1962.0724
245     , p8_a3  VARCHAR2 := fnd_api.g_miss_char
246     , p8_a4  VARCHAR2 := fnd_api.g_miss_char
247     , p8_a5  VARCHAR2 := fnd_api.g_miss_char
248     , p8_a6  VARCHAR2 := fnd_api.g_miss_char
249     , p8_a7  VARCHAR2 := fnd_api.g_miss_char
250     , p8_a8  VARCHAR2 := fnd_api.g_miss_char
251     , p8_a9  VARCHAR2 := fnd_api.g_miss_char
252     , p8_a10  NUMBER := 0-1962.0724
253     , p8_a11  VARCHAR2 := fnd_api.g_miss_char
254     , p8_a12  NUMBER := 0-1962.0724
255     , p8_a13  DATE := fnd_api.g_miss_date
256     , p8_a14  NUMBER := 0-1962.0724
257     , p8_a15  DATE := fnd_api.g_miss_date
258     , p8_a16  NUMBER := 0-1962.0724
259     , p8_a17  NUMBER := 0-1962.0724
260     , p8_a18  NUMBER := 0-1962.0724
261     , p8_a19  VARCHAR2 := fnd_api.g_miss_char
262     , p8_a20  VARCHAR2 := fnd_api.g_miss_char
263     , p8_a21  VARCHAR2 := fnd_api.g_miss_char
264     , p8_a22  VARCHAR2 := fnd_api.g_miss_char
265     , p8_a23  VARCHAR2 := fnd_api.g_miss_char
266     , p8_a24  VARCHAR2 := fnd_api.g_miss_char
267     , p8_a25  VARCHAR2 := fnd_api.g_miss_char
268     , p8_a26  VARCHAR2 := fnd_api.g_miss_char
269     , p8_a27  VARCHAR2 := fnd_api.g_miss_char
270     , p8_a28  VARCHAR2 := fnd_api.g_miss_char
271     , p8_a29  VARCHAR2 := fnd_api.g_miss_char
272     , p8_a30  VARCHAR2 := fnd_api.g_miss_char
273     , p8_a31  VARCHAR2 := fnd_api.g_miss_char
274     , p8_a32  VARCHAR2 := fnd_api.g_miss_char
275     , p8_a33  VARCHAR2 := fnd_api.g_miss_char
276     , p8_a34  VARCHAR2 := fnd_api.g_miss_char
277   )
278 
279   as
280     ddp_cgi_switch_rec iex_webswitch_pvt.cgi_switch_rec_type;
281     ddp_switch_data_rec iex_webswitch_pvt.switch_data_rec_type;
282     ddindx binary_integer; indx binary_integer;
283   begin
284 
285     -- copy data to the local IN or IN-OUT args, if any
286 
287 
288 
289 
290 
291 
292 
293     ddp_cgi_switch_rec.cgi_switch_id := rosetta_g_miss_num_map(p7_a0);
294     ddp_cgi_switch_rec.object_version_number := rosetta_g_miss_num_map(p7_a1);
295     ddp_cgi_switch_rec.program_id := rosetta_g_miss_num_map(p7_a2);
296     ddp_cgi_switch_rec.enabled_flag := p7_a3;
297     ddp_cgi_switch_rec.switch_code := p7_a4;
298     ddp_cgi_switch_rec.switch_type := p7_a5;
299     ddp_cgi_switch_rec.is_required_yn := p7_a6;
300     ddp_cgi_switch_rec.sort_order := rosetta_g_miss_num_map(p7_a7);
301     ddp_cgi_switch_rec.data_separator := p7_a8;
302     ddp_cgi_switch_rec.query_string_id := rosetta_g_miss_num_map(p7_a9);
303     ddp_cgi_switch_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a10);
304     ddp_cgi_switch_rec.last_updated_by := rosetta_g_miss_num_map(p7_a11);
305     ddp_cgi_switch_rec.creation_date := rosetta_g_miss_date_in_map(p7_a12);
306     ddp_cgi_switch_rec.created_by := rosetta_g_miss_num_map(p7_a13);
307     ddp_cgi_switch_rec.last_update_login := rosetta_g_miss_num_map(p7_a14);
308     ddp_cgi_switch_rec.org_id := rosetta_g_miss_num_map(p7_a15);
309     ddp_cgi_switch_rec.attribute_category := p7_a16;
310     ddp_cgi_switch_rec.attribute1 := p7_a17;
311     ddp_cgi_switch_rec.attribute2 := p7_a18;
312     ddp_cgi_switch_rec.attribute3 := p7_a19;
313     ddp_cgi_switch_rec.attribute4 := p7_a20;
314     ddp_cgi_switch_rec.attribute5 := p7_a21;
315     ddp_cgi_switch_rec.attribute6 := p7_a22;
316     ddp_cgi_switch_rec.attribute7 := p7_a23;
317     ddp_cgi_switch_rec.attribute8 := p7_a24;
318     ddp_cgi_switch_rec.attribute9 := p7_a25;
319     ddp_cgi_switch_rec.attribute10 := p7_a26;
320     ddp_cgi_switch_rec.attribute11 := p7_a27;
321     ddp_cgi_switch_rec.attribute12 := p7_a28;
322     ddp_cgi_switch_rec.attribute13 := p7_a29;
323     ddp_cgi_switch_rec.attribute14 := p7_a30;
324     ddp_cgi_switch_rec.attribute15 := p7_a31;
325 
326     ddp_switch_data_rec.switch_data_id := rosetta_g_miss_num_map(p8_a0);
327     ddp_switch_data_rec.program_id := rosetta_g_miss_num_map(p8_a1);
328     ddp_switch_data_rec.object_version_number := rosetta_g_miss_num_map(p8_a2);
329     ddp_switch_data_rec.first_name_yn := p8_a3;
330     ddp_switch_data_rec.last_name_yn := p8_a4;
331     ddp_switch_data_rec.address_yn := p8_a5;
332     ddp_switch_data_rec.city_yn := p8_a6;
333     ddp_switch_data_rec.state_yn := p8_a7;
334     ddp_switch_data_rec.zip_yn := p8_a8;
335     ddp_switch_data_rec.country_yn := p8_a9;
336     ddp_switch_data_rec.sort_order := rosetta_g_miss_num_map(p8_a10);
337     ddp_switch_data_rec.enabled_flag := p8_a11;
338     ddp_switch_data_rec.cgi_switch_id := rosetta_g_miss_num_map(p8_a12);
339     ddp_switch_data_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a13);
340     ddp_switch_data_rec.last_updated_by := rosetta_g_miss_num_map(p8_a14);
341     ddp_switch_data_rec.creation_date := rosetta_g_miss_date_in_map(p8_a15);
342     ddp_switch_data_rec.created_by := rosetta_g_miss_num_map(p8_a16);
343     ddp_switch_data_rec.last_update_login := rosetta_g_miss_num_map(p8_a17);
344     ddp_switch_data_rec.org_id := rosetta_g_miss_num_map(p8_a18);
345     ddp_switch_data_rec.attribute_category := p8_a19;
346     ddp_switch_data_rec.attribute1 := p8_a20;
347     ddp_switch_data_rec.attribute2 := p8_a21;
348     ddp_switch_data_rec.attribute3 := p8_a22;
349     ddp_switch_data_rec.attribute4 := p8_a23;
350     ddp_switch_data_rec.attribute5 := p8_a24;
351     ddp_switch_data_rec.attribute6 := p8_a25;
352     ddp_switch_data_rec.attribute7 := p8_a26;
353     ddp_switch_data_rec.attribute8 := p8_a27;
354     ddp_switch_data_rec.attribute9 := p8_a28;
355     ddp_switch_data_rec.attribute10 := p8_a29;
356     ddp_switch_data_rec.attribute11 := p8_a30;
357     ddp_switch_data_rec.attribute12 := p8_a31;
358     ddp_switch_data_rec.attribute13 := p8_a32;
359     ddp_switch_data_rec.attribute14 := p8_a33;
360     ddp_switch_data_rec.attribute15 := p8_a34;
361 
362     -- here's the delegated call to the old PL/SQL routine
363     iex_webswitch_pvt.update_webswitch(p_api_version,
364       p_init_msg_list,
365       p_commit,
366       p_validation_level,
367       x_return_status,
368       x_msg_count,
369       x_msg_data,
370       ddp_cgi_switch_rec,
371       ddp_switch_data_rec);
372 
373     -- copy data back from the local variables to OUT or IN-OUT args, if any
374 
375 
376 
377 
378 
379 
380 
381 
382   end;
383 
384 end iex_webswitch_pvt_w;