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_CONTACT_POINT_PVT_W

Source


1 package body ams_contact_point_pvt_w as
2   /* $Header: amswcptb.pls 115.3 2002/11/22 08:56:59 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_contact_point(p_api_version_number  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_contact_point_id OUT NOCOPY  NUMBER
30     , p7_a0  NUMBER := 0-1962.0724
31     , p7_a1  VARCHAR2 := fnd_api.g_miss_char
32     , p7_a2  VARCHAR2 := fnd_api.g_miss_char
33     , p7_a3  VARCHAR2 := fnd_api.g_miss_char
34     , p7_a4  NUMBER := 0-1962.0724
35     , p7_a5  VARCHAR2 := fnd_api.g_miss_char
36     , p7_a6  VARCHAR2 := fnd_api.g_miss_char
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     , 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     , p7_a14  VARCHAR2 := fnd_api.g_miss_char
45     , p7_a15  VARCHAR2 := fnd_api.g_miss_char
46     , p7_a16  VARCHAR2 := fnd_api.g_miss_char
47     , p7_a17  VARCHAR2 := fnd_api.g_miss_char
48     , p7_a18  VARCHAR2 := fnd_api.g_miss_char
49     , p7_a19  VARCHAR2 := fnd_api.g_miss_char
50     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
51     , p7_a21  VARCHAR2 := fnd_api.g_miss_char
52     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
53     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
54     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
55     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
56     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
57     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
58     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
59     , p7_a29  VARCHAR2 := fnd_api.g_miss_char
60     , p7_a30  VARCHAR2 := fnd_api.g_miss_char
61     , p7_a31  VARCHAR2 := fnd_api.g_miss_char
62     , p7_a32  NUMBER := 0-1962.0724
63     , p7_a33  VARCHAR2 := fnd_api.g_miss_char
64     , p8_a0  VARCHAR2 := fnd_api.g_miss_char
65     , p8_a1  VARCHAR2 := fnd_api.g_miss_char
66     , p8_a2  VARCHAR2 := fnd_api.g_miss_char
67     , p8_a3  VARCHAR2 := fnd_api.g_miss_char
68     , p8_a4  VARCHAR2 := fnd_api.g_miss_char
69     , p8_a5  VARCHAR2 := fnd_api.g_miss_char
70     , p8_a6  NUMBER := 0-1962.0724
71     , p8_a7  VARCHAR2 := fnd_api.g_miss_char
72     , p9_a0  VARCHAR2 := fnd_api.g_miss_char
73     , p9_a1  VARCHAR2 := fnd_api.g_miss_char
74     , p10_a0  VARCHAR2 := fnd_api.g_miss_char
75     , p10_a1  DATE := fnd_api.g_miss_date
76     , p10_a2  NUMBER := 0-1962.0724
77     , p10_a3  VARCHAR2 := fnd_api.g_miss_char
78     , p10_a4  VARCHAR2 := fnd_api.g_miss_char
79     , p10_a5  VARCHAR2 := fnd_api.g_miss_char
80     , p10_a6  VARCHAR2 := fnd_api.g_miss_char
81     , p10_a7  VARCHAR2 := fnd_api.g_miss_char
82     , p10_a8  VARCHAR2 := fnd_api.g_miss_char
83     , p11_a0  VARCHAR2 := fnd_api.g_miss_char
84     , p12_a0  VARCHAR2 := fnd_api.g_miss_char
85     , p12_a1  VARCHAR2 := fnd_api.g_miss_char
86   )
87   as
88     ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
89     ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
90     ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
91     ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
92     ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
93     ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
94     ddindx binary_integer; indx binary_integer;
95   begin
96 
97     -- copy data to the local IN or IN-OUT args, if any
98 
99 
100 
101 
102 
103 
104 
105     ddp_ams_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p7_a0);
106     ddp_ams_contact_point_rec.contact_point_type := p7_a1;
107     ddp_ams_contact_point_rec.status := p7_a2;
108     ddp_ams_contact_point_rec.owner_table_name := p7_a3;
109     ddp_ams_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p7_a4);
110     ddp_ams_contact_point_rec.primary_flag := p7_a5;
111     ddp_ams_contact_point_rec.orig_system_reference := p7_a6;
112     ddp_ams_contact_point_rec.content_source_type := p7_a7;
113     ddp_ams_contact_point_rec.attribute_category := p7_a8;
114     ddp_ams_contact_point_rec.attribute1 := p7_a9;
115     ddp_ams_contact_point_rec.attribute2 := p7_a10;
116     ddp_ams_contact_point_rec.attribute3 := p7_a11;
117     ddp_ams_contact_point_rec.attribute4 := p7_a12;
118     ddp_ams_contact_point_rec.attribute5 := p7_a13;
119     ddp_ams_contact_point_rec.attribute6 := p7_a14;
120     ddp_ams_contact_point_rec.attribute7 := p7_a15;
121     ddp_ams_contact_point_rec.attribute8 := p7_a16;
122     ddp_ams_contact_point_rec.attribute9 := p7_a17;
123     ddp_ams_contact_point_rec.attribute10 := p7_a18;
124     ddp_ams_contact_point_rec.attribute11 := p7_a19;
125     ddp_ams_contact_point_rec.attribute12 := p7_a20;
126     ddp_ams_contact_point_rec.attribute13 := p7_a21;
127     ddp_ams_contact_point_rec.attribute14 := p7_a22;
128     ddp_ams_contact_point_rec.attribute15 := p7_a23;
129     ddp_ams_contact_point_rec.attribute16 := p7_a24;
130     ddp_ams_contact_point_rec.attribute17 := p7_a25;
131     ddp_ams_contact_point_rec.attribute18 := p7_a26;
132     ddp_ams_contact_point_rec.attribute19 := p7_a27;
133     ddp_ams_contact_point_rec.attribute20 := p7_a28;
134     ddp_ams_contact_point_rec.contact_point_purpose := p7_a29;
135     ddp_ams_contact_point_rec.primary_by_purpose := p7_a30;
136     ddp_ams_contact_point_rec.created_by_module := p7_a31;
137     ddp_ams_contact_point_rec.application_id := rosetta_g_miss_num_map(p7_a32);
138     ddp_ams_contact_point_rec.actual_content_source := p7_a33;
139 
140     ddp_ams_edi_rec.edi_transaction_handling := p8_a0;
141     ddp_ams_edi_rec.edi_id_number := p8_a1;
142     ddp_ams_edi_rec.edi_payment_method := p8_a2;
143     ddp_ams_edi_rec.edi_payment_format := p8_a3;
144     ddp_ams_edi_rec.edi_remittance_method := p8_a4;
145     ddp_ams_edi_rec.edi_remittance_instruction := p8_a5;
146     ddp_ams_edi_rec.edi_tp_header_id := rosetta_g_miss_num_map(p8_a6);
147     ddp_ams_edi_rec.edi_ece_tp_location_code := p8_a7;
148 
149     ddp_ams_email_rec.email_format := p9_a0;
150     ddp_ams_email_rec.email_address := p9_a1;
151 
152     ddp_ams_phone_rec.phone_calling_calendar := p10_a0;
153     ddp_ams_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p10_a1);
154     ddp_ams_phone_rec.timezone_id := rosetta_g_miss_num_map(p10_a2);
155     ddp_ams_phone_rec.phone_area_code := p10_a3;
156     ddp_ams_phone_rec.phone_country_code := p10_a4;
157     ddp_ams_phone_rec.phone_number := p10_a5;
158     ddp_ams_phone_rec.phone_extension := p10_a6;
159     ddp_ams_phone_rec.phone_line_type := p10_a7;
160     ddp_ams_phone_rec.raw_phone_number := p10_a8;
161 
162     ddp_ams_telex_rec.telex_number := p11_a0;
163 
164     ddp_ams_web_rec.web_type := p12_a0;
165     ddp_ams_web_rec.url := p12_a1;
166 
167 
168     -- here's the delegated call to the old PL/SQL routine
169     ams_contact_point_pvt.create_contact_point(p_api_version_number,
170       p_init_msg_list,
171       p_commit,
172       p_validation_level,
173       x_return_status,
174       x_msg_count,
175       x_msg_data,
176       ddp_ams_contact_point_rec,
177       ddp_ams_edi_rec,
178       ddp_ams_email_rec,
179       ddp_ams_phone_rec,
180       ddp_ams_telex_rec,
181       ddp_ams_web_rec,
182       x_contact_point_id);
183 
184     -- copy data back from the local OUT or IN-OUT args, if any
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198   end;
199 
200   procedure update_contact_point(p_api_version_number  NUMBER
201     , p_init_msg_list  VARCHAR2
202     , p_commit  VARCHAR2
203     , p_validation_level  NUMBER
204     , x_return_status OUT NOCOPY  VARCHAR2
205     , x_msg_count OUT NOCOPY  NUMBER
206     , x_msg_data OUT NOCOPY  VARCHAR2
207     , px_object_version_number in OUT NOCOPY  NUMBER
208     , p7_a0  NUMBER := 0-1962.0724
209     , p7_a1  VARCHAR2 := fnd_api.g_miss_char
210     , p7_a2  VARCHAR2 := fnd_api.g_miss_char
211     , p7_a3  VARCHAR2 := fnd_api.g_miss_char
212     , p7_a4  NUMBER := 0-1962.0724
213     , p7_a5  VARCHAR2 := fnd_api.g_miss_char
214     , p7_a6  VARCHAR2 := fnd_api.g_miss_char
215     , p7_a7  VARCHAR2 := fnd_api.g_miss_char
216     , p7_a8  VARCHAR2 := fnd_api.g_miss_char
217     , p7_a9  VARCHAR2 := fnd_api.g_miss_char
218     , p7_a10  VARCHAR2 := fnd_api.g_miss_char
219     , p7_a11  VARCHAR2 := fnd_api.g_miss_char
220     , p7_a12  VARCHAR2 := fnd_api.g_miss_char
221     , p7_a13  VARCHAR2 := fnd_api.g_miss_char
222     , p7_a14  VARCHAR2 := fnd_api.g_miss_char
223     , p7_a15  VARCHAR2 := fnd_api.g_miss_char
224     , p7_a16  VARCHAR2 := fnd_api.g_miss_char
225     , p7_a17  VARCHAR2 := fnd_api.g_miss_char
226     , p7_a18  VARCHAR2 := fnd_api.g_miss_char
227     , p7_a19  VARCHAR2 := fnd_api.g_miss_char
228     , p7_a20  VARCHAR2 := fnd_api.g_miss_char
229     , p7_a21  VARCHAR2 := fnd_api.g_miss_char
230     , p7_a22  VARCHAR2 := fnd_api.g_miss_char
231     , p7_a23  VARCHAR2 := fnd_api.g_miss_char
232     , p7_a24  VARCHAR2 := fnd_api.g_miss_char
233     , p7_a25  VARCHAR2 := fnd_api.g_miss_char
234     , p7_a26  VARCHAR2 := fnd_api.g_miss_char
235     , p7_a27  VARCHAR2 := fnd_api.g_miss_char
236     , p7_a28  VARCHAR2 := fnd_api.g_miss_char
237     , p7_a29  VARCHAR2 := fnd_api.g_miss_char
238     , p7_a30  VARCHAR2 := fnd_api.g_miss_char
239     , p7_a31  VARCHAR2 := fnd_api.g_miss_char
240     , p7_a32  NUMBER := 0-1962.0724
241     , p7_a33  VARCHAR2 := fnd_api.g_miss_char
242     , p8_a0  VARCHAR2 := fnd_api.g_miss_char
243     , p8_a1  VARCHAR2 := fnd_api.g_miss_char
244     , p8_a2  VARCHAR2 := fnd_api.g_miss_char
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  NUMBER := 0-1962.0724
249     , p8_a7  VARCHAR2 := fnd_api.g_miss_char
250     , p9_a0  VARCHAR2 := fnd_api.g_miss_char
251     , p9_a1  VARCHAR2 := fnd_api.g_miss_char
252     , p10_a0  VARCHAR2 := fnd_api.g_miss_char
253     , p10_a1  DATE := fnd_api.g_miss_date
254     , p10_a2  NUMBER := 0-1962.0724
255     , p10_a3  VARCHAR2 := fnd_api.g_miss_char
256     , p10_a4  VARCHAR2 := fnd_api.g_miss_char
257     , p10_a5  VARCHAR2 := fnd_api.g_miss_char
258     , p10_a6  VARCHAR2 := fnd_api.g_miss_char
259     , p10_a7  VARCHAR2 := fnd_api.g_miss_char
260     , p10_a8  VARCHAR2 := fnd_api.g_miss_char
261     , p11_a0  VARCHAR2 := fnd_api.g_miss_char
262     , p12_a0  VARCHAR2 := fnd_api.g_miss_char
263     , p12_a1  VARCHAR2 := fnd_api.g_miss_char
264   )
265   as
266     ddp_ams_contact_point_rec ams_contact_point_pvt.contact_point_rec_type;
267     ddp_ams_edi_rec ams_contact_point_pvt.edi_rec_type;
268     ddp_ams_email_rec ams_contact_point_pvt.email_rec_type;
269     ddp_ams_phone_rec ams_contact_point_pvt.phone_rec_type;
270     ddp_ams_telex_rec ams_contact_point_pvt.telex_rec_type;
271     ddp_ams_web_rec ams_contact_point_pvt.web_rec_type;
272     ddindx binary_integer; indx binary_integer;
273   begin
274 
275     -- copy data to the local IN or IN-OUT args, if any
276 
277 
278 
279 
280 
281 
282 
283     ddp_ams_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p7_a0);
284     ddp_ams_contact_point_rec.contact_point_type := p7_a1;
285     ddp_ams_contact_point_rec.status := p7_a2;
286     ddp_ams_contact_point_rec.owner_table_name := p7_a3;
287     ddp_ams_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p7_a4);
288     ddp_ams_contact_point_rec.primary_flag := p7_a5;
289     ddp_ams_contact_point_rec.orig_system_reference := p7_a6;
290     ddp_ams_contact_point_rec.content_source_type := p7_a7;
291     ddp_ams_contact_point_rec.attribute_category := p7_a8;
292     ddp_ams_contact_point_rec.attribute1 := p7_a9;
293     ddp_ams_contact_point_rec.attribute2 := p7_a10;
294     ddp_ams_contact_point_rec.attribute3 := p7_a11;
295     ddp_ams_contact_point_rec.attribute4 := p7_a12;
296     ddp_ams_contact_point_rec.attribute5 := p7_a13;
297     ddp_ams_contact_point_rec.attribute6 := p7_a14;
298     ddp_ams_contact_point_rec.attribute7 := p7_a15;
299     ddp_ams_contact_point_rec.attribute8 := p7_a16;
300     ddp_ams_contact_point_rec.attribute9 := p7_a17;
301     ddp_ams_contact_point_rec.attribute10 := p7_a18;
302     ddp_ams_contact_point_rec.attribute11 := p7_a19;
303     ddp_ams_contact_point_rec.attribute12 := p7_a20;
304     ddp_ams_contact_point_rec.attribute13 := p7_a21;
305     ddp_ams_contact_point_rec.attribute14 := p7_a22;
306     ddp_ams_contact_point_rec.attribute15 := p7_a23;
307     ddp_ams_contact_point_rec.attribute16 := p7_a24;
308     ddp_ams_contact_point_rec.attribute17 := p7_a25;
309     ddp_ams_contact_point_rec.attribute18 := p7_a26;
310     ddp_ams_contact_point_rec.attribute19 := p7_a27;
311     ddp_ams_contact_point_rec.attribute20 := p7_a28;
312     ddp_ams_contact_point_rec.contact_point_purpose := p7_a29;
313     ddp_ams_contact_point_rec.primary_by_purpose := p7_a30;
314     ddp_ams_contact_point_rec.created_by_module := p7_a31;
315     ddp_ams_contact_point_rec.application_id := rosetta_g_miss_num_map(p7_a32);
316     ddp_ams_contact_point_rec.actual_content_source := p7_a33;
317 
318     ddp_ams_edi_rec.edi_transaction_handling := p8_a0;
319     ddp_ams_edi_rec.edi_id_number := p8_a1;
320     ddp_ams_edi_rec.edi_payment_method := p8_a2;
321     ddp_ams_edi_rec.edi_payment_format := p8_a3;
322     ddp_ams_edi_rec.edi_remittance_method := p8_a4;
323     ddp_ams_edi_rec.edi_remittance_instruction := p8_a5;
324     ddp_ams_edi_rec.edi_tp_header_id := rosetta_g_miss_num_map(p8_a6);
325     ddp_ams_edi_rec.edi_ece_tp_location_code := p8_a7;
326 
327     ddp_ams_email_rec.email_format := p9_a0;
328     ddp_ams_email_rec.email_address := p9_a1;
329 
330     ddp_ams_phone_rec.phone_calling_calendar := p10_a0;
331     ddp_ams_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p10_a1);
332     ddp_ams_phone_rec.timezone_id := rosetta_g_miss_num_map(p10_a2);
333     ddp_ams_phone_rec.phone_area_code := p10_a3;
334     ddp_ams_phone_rec.phone_country_code := p10_a4;
335     ddp_ams_phone_rec.phone_number := p10_a5;
336     ddp_ams_phone_rec.phone_extension := p10_a6;
337     ddp_ams_phone_rec.phone_line_type := p10_a7;
338     ddp_ams_phone_rec.raw_phone_number := p10_a8;
339 
340     ddp_ams_telex_rec.telex_number := p11_a0;
341 
342     ddp_ams_web_rec.web_type := p12_a0;
343     ddp_ams_web_rec.url := p12_a1;
344 
345 
346     -- here's the delegated call to the old PL/SQL routine
347     ams_contact_point_pvt.update_contact_point(p_api_version_number,
348       p_init_msg_list,
349       p_commit,
350       p_validation_level,
351       x_return_status,
352       x_msg_count,
353       x_msg_data,
354       ddp_ams_contact_point_rec,
355       ddp_ams_edi_rec,
356       ddp_ams_email_rec,
357       ddp_ams_phone_rec,
358       ddp_ams_telex_rec,
359       ddp_ams_web_rec,
360       px_object_version_number);
361 
362     -- copy data back from the local OUT or IN-OUT args, if any
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376   end;
377 
378 end ams_contact_point_pvt_w;