[Home] [Help]
PACKAGE BODY: APPS.IGS_PE_CONTACT_POINT_PKG
Source
1 PACKAGE BODY IGS_PE_CONTACT_POINT_PKG AS
2 /* $Header: IGSNI78B.pls 115.12 2003/05/05 14:56:42 kpadiyar ship $ */
3
4 PROCEDURE HZ_CONTACT_POINTS_AKE(
5 p_action IN VARCHAR2,
6 p_rowid IN OUT NOCOPY VARCHAR2,
7 p_status IN VARCHAR2,
8 p_owner_table_name IN VARCHAR2,
9 p_owner_table_id IN NUMBER,
10 P_primary_flag IN VARCHAR2,
11 p_email_format IN VARCHAR2,
12 p_email_address IN VARCHAR2,
13 p_return_status OUT NOCOPY VARCHAR2,
14 p_msg_data OUT NOCOPY VARCHAR2,
15 p_last_update_date IN OUT NOCOPY DATE ,
16 p_contact_point_id IN OUT NOCOPY NUMBER,
17 p_contact_point_ovn IN OUT NOCOPY NUMBER,
18 p_attribute_category IN VARCHAR2,
19 p_attribute1 IN VARCHAR2,
20 p_attribute2 IN VARCHAR2,
21 p_attribute3 IN VARCHAR2,
22 p_attribute4 IN VARCHAR2,
23 p_attribute5 IN VARCHAR2,
24 p_attribute6 IN VARCHAR2,
25 p_attribute7 IN VARCHAR2,
26 p_attribute8 IN VARCHAR2,
27 p_attribute9 IN VARCHAR2,
28 p_attribute10 IN VARCHAR2,
29 p_attribute11 IN VARCHAR2,
30 p_attribute12 IN VARCHAR2,
31 p_attribute13 IN VARCHAR2,
32 p_attribute14 IN VARCHAR2,
33 p_attribute15 IN VARCHAR2,
34 p_attribute16 IN VARCHAR2,
35 p_attribute17 IN VARCHAR2,
36 p_attribute18 IN VARCHAR2,
37 p_attribute19 IN VARCHAR2,
38 p_attribute20 IN VARCHAR2
39
40 ) AS
41 /*************************************************************
42 Created By : kumaravel
43 Date Created By : Sep 15 2000
44 Purpose :
45 Know limitations, enhancements or remarks
46 Change History
47 Who When What
48
49 (reverse chronological order - newest change first)
50 ***************************************************************/
51
52 p_api_version NUMBER(15) := 1.0;
53 p_init_msg_list VARCHAR2(30) := FND_API.G_FALSE;
54 p_commit VARCHAR2(30) := FND_API.G_FALSE;
55 l_msg_count NUMBER(15);
56 l_contact_point_rec HZ_CONTACT_POINT_V2PUB.contact_point_rec_type;
57 l_email_rec HZ_CONTACT_POINT_V2PUB.email_rec_type;
58 l_last_update_date hz_contact_points.last_update_date%TYPE;
59 l_obj_ver hz_contact_points.object_version_number%TYPE;
60
61 tmp_var1 VARCHAR2(2000);
62 tmp_var VARCHAR2(2000);
63
64 CURSOR get_lupd_date(p_contact_point_id NUMBER ) IS
65 SELECT last_update_date
66 FROM hz_contact_points
67 WHERE contact_point_id = p_contact_point_id;
68
69
70 BEGIN
71 IF p_action = 'INSERT' THEN
72 l_CONTACT_POINT_REC.CONTACT_POINT_ID := p_contact_point_id;
73 l_CONTACT_POINT_REC.CONTACT_POINT_TYPE := 'EMAIL';
74 l_CONTACT_POINT_REC.STATUS := p_status;
75 l_CONTACT_POINT_REC.OWNER_TABLE_NAME := p_owner_table_name;
76 l_CONTACT_POINT_REC.OWNER_TABLE_ID := p_owner_table_id;
77 l_CONTACT_POINT_REC.PRIMARY_FLAG := p_primary_flag;
78 l_CONTACT_POINT_REC.CONTENT_SOURCE_TYPE := 'USER_ENTERED';
79 l_CONTACT_POINT_REC.attribute_category := p_attribute_category ;
80 l_CONTACT_POINT_REC.attribute1 := p_attribute1;
81 l_CONTACT_POINT_REC.attribute2 := p_attribute2;
82 l_CONTACT_POINT_REC.attribute3 := p_attribute3;
83 l_CONTACT_POINT_REC.attribute4 := p_attribute4 ;
84 l_CONTACT_POINT_REC.attribute5 := p_attribute5;
85 l_CONTACT_POINT_REC.attribute6 := p_attribute6;
86 l_CONTACT_POINT_REC.attribute7 := p_attribute7;
87 l_CONTACT_POINT_REC.attribute8 := p_attribute8;
88 l_CONTACT_POINT_REC.attribute9 := p_attribute9 ;
89 l_CONTACT_POINT_REC.attribute10 := p_attribute10 ;
90 l_CONTACT_POINT_REC.attribute11 := p_attribute11;
91 l_CONTACT_POINT_REC.attribute12 := p_attribute12;
92 l_CONTACT_POINT_REC.attribute13 := p_attribute13 ;
93 l_CONTACT_POINT_REC.attribute14 := p_attribute14;
94 l_CONTACT_POINT_REC.attribute15 := p_attribute15;
95 l_CONTACT_POINT_REC.attribute16 := p_attribute16;
96 l_CONTACT_POINT_REC.attribute17 := p_attribute17;
97 l_CONTACT_POINT_REC.attribute18 := p_attribute18;
98 l_CONTACT_POINT_REC.attribute19 := p_attribute19;
99 l_CONTACT_POINT_REC.attribute20 := p_attribute20;
100 l_CONTACT_POINT_REC.created_by_module := 'IGS';
101
102 l_EMAIL_REC.EMAIL_FORMAT := p_email_format;
103 l_EMAIL_REC.EMAIL_ADDRESS := p_email_address;
104
105
106 HZ_CONTACT_POINT_V2PUB.create_contact_point(
107 p_init_msg_list => p_init_msg_list ,
108 p_contact_point_rec => l_contact_point_rec ,
109 p_email_rec => l_EMAIL_REC,
110 x_contact_point_id => p_contact_point_id,
111 x_return_status => p_return_status ,
112 x_msg_count => l_msg_count,
113 x_msg_data => p_msg_data);
114
115 IF p_return_status = 'S' THEN
116 p_contact_point_ovn := 1;
117 ELSIF p_return_status <> 'S' THEN
118 -- bug 2338473 logic to display more than one error modified.
119 IF l_msg_count > 1 THEN
120 FOR i IN 1..l_msg_count LOOP
121 tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
122 tmp_var1 := tmp_var1 || ' '|| tmp_var;
123 END LOOP;
124 p_msg_data := tmp_var1;
125 END IF;
126 RETURN;
127 END IF;
128
129 ELSIF p_action = 'UPDATE' THEN
130
131
132 l_CONTACT_POINT_REC.CONTACT_POINT_ID := p_contact_point_id;
133 l_CONTACT_POINT_REC.CONTACT_POINT_TYPE := 'EMAIL';
134 l_CONTACT_POINT_REC.STATUS := p_status;
135 l_CONTACT_POINT_REC.OWNER_TABLE_NAME := p_owner_table_name;
136 l_CONTACT_POINT_REC.OWNER_TABLE_ID := p_owner_table_id;
137 l_CONTACT_POINT_REC.PRIMARY_FLAG := NVL(p_primary_flag,FND_API.G_MISS_CHAR);
138 -- l_CONTACT_POINT_REC.CONTENT_SOURCE_TYPE := 'USER_ENTERED';
139 l_CONTACT_POINT_REC.attribute_category := NVL(p_attribute_category,FND_API.G_MISS_CHAR);
140 l_CONTACT_POINT_REC.attribute1 := NVL(p_attribute1,FND_API.G_MISS_CHAR);
141 l_CONTACT_POINT_REC.attribute2 := NVL(p_attribute2,FND_API.G_MISS_CHAR);
142 l_CONTACT_POINT_REC.attribute3 := NVL(p_attribute3,FND_API.G_MISS_CHAR);
143 l_CONTACT_POINT_REC.attribute4 := NVL(p_attribute4,FND_API.G_MISS_CHAR);
144 l_CONTACT_POINT_REC.attribute5 := NVL(p_attribute5,FND_API.G_MISS_CHAR);
145 l_CONTACT_POINT_REC.attribute6 := NVL(p_attribute6,FND_API.G_MISS_CHAR);
146 l_CONTACT_POINT_REC.attribute7 := NVL(p_attribute7,FND_API.G_MISS_CHAR);
147 l_CONTACT_POINT_REC.attribute8 := NVL(p_attribute8,FND_API.G_MISS_CHAR);
148 l_CONTACT_POINT_REC.attribute9 := NVL(p_attribute9,FND_API.G_MISS_CHAR);
149 l_CONTACT_POINT_REC.attribute10 := NVL(p_attribute10,FND_API.G_MISS_CHAR);
150 l_CONTACT_POINT_REC.attribute11 := NVL(p_attribute11,FND_API.G_MISS_CHAR);
151 l_CONTACT_POINT_REC.attribute12 := NVL(p_attribute12,FND_API.G_MISS_CHAR);
152 l_CONTACT_POINT_REC.attribute13 := NVL(p_attribute13,FND_API.G_MISS_CHAR);
153 l_CONTACT_POINT_REC.attribute14 := NVL(p_attribute14,FND_API.G_MISS_CHAR);
154 l_CONTACT_POINT_REC.attribute15 := NVL(p_attribute15,FND_API.G_MISS_CHAR);
155 l_CONTACT_POINT_REC.attribute16 := NVL(p_attribute16,FND_API.G_MISS_CHAR);
156 l_CONTACT_POINT_REC.attribute17 := NVL(p_attribute17,FND_API.G_MISS_CHAR);
157 l_CONTACT_POINT_REC.attribute18 := NVL(p_attribute18,FND_API.G_MISS_CHAR);
158 l_CONTACT_POINT_REC.attribute19 := NVL(p_attribute19,FND_API.G_MISS_CHAR);
159 l_CONTACT_POINT_REC.attribute20 := NVL(p_attribute20,FND_API.G_MISS_CHAR);
160 -- l_CONTACT_POINT_REC.created_by_module := 'IGS';
161
162 l_EMAIL_REC.EMAIL_FORMAT := NVL(p_email_format,FND_API.G_MISS_CHAR);
163 l_EMAIL_REC.EMAIL_ADDRESS := NVL(p_email_address,FND_API.G_MISS_CHAR);
164
165 HZ_CONTACT_POINT_V2PUB.update_contact_point(
166 p_init_msg_list => p_init_msg_list ,
167 p_contact_point_rec => l_contact_point_rec ,
168 p_email_rec => l_EMAIL_REC ,
169 p_object_version_number => p_contact_point_ovn,
170 x_return_status => p_return_status,
171 x_msg_count => l_msg_count ,
172 x_msg_data => p_msg_data
173
174 );
175
176
177
178 IF p_return_status <> 'S' THEN
179 -- bug 2338473 logic to display more than one error modified.
180 IF l_msg_count > 1 THEN
181 FOR i IN 1..l_msg_count LOOP
182 tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
183 tmp_var1 := tmp_var1 || ' '|| tmp_var;
184 END LOOP;
185 p_msg_data := tmp_var1;
186 END IF;
187 RETURN;
188 END IF;
189
190 END IF;
191
192 END HZ_CONTACT_POINTS_AKE;
193
194 PROCEDURE HZ_CONTACT_POINTS_AKP(
195 p_action IN VARCHAR2,
196 p_rowid IN OUT NOCOPY VARCHAR2,
197 p_status IN VARCHAR2,
198 p_owner_table_name IN VARCHAR2,
199 p_owner_table_id IN NUMBER,
200 P_primary_flag IN VARCHAR2,
201 p_phone_country_code IN VARCHAR2,
202 p_phone_area_code IN VARCHAR2,
203 p_phone_number IN VARCHAR2,
204 p_phone_extension IN VARCHAR2,
205 p_phone_line_type IN VARCHAR2,
206 p_return_status OUT NOCOPY VARCHAR2,
207 p_msg_data OUT NOCOPY VARCHAR2,
208 p_last_update_date IN OUT NOCOPY DATE,
209 p_contact_point_id IN OUT NOCOPY NUMBER,
210 p_contact_point_ovn IN OUT NOCOPY NUMBER,
211 p_attribute_category IN VARCHAR2,
212 p_attribute1 IN VARCHAR2,
213 p_attribute2 IN VARCHAR2,
214 p_attribute3 IN VARCHAR2,
215 p_attribute4 IN VARCHAR2,
216 p_attribute5 IN VARCHAR2,
217 p_attribute6 IN VARCHAR2,
218 p_attribute7 IN VARCHAR2,
219 p_attribute8 IN VARCHAR2,
220 p_attribute9 IN VARCHAR2,
221 p_attribute10 IN VARCHAR2,
222 p_attribute11 IN VARCHAR2,
223 p_attribute12 IN VARCHAR2,
224 p_attribute13 IN VARCHAR2,
225 p_attribute14 IN VARCHAR2,
226 p_attribute15 IN VARCHAR2,
227 p_attribute16 IN VARCHAR2,
228 p_attribute17 IN VARCHAR2,
229 p_attribute18 IN VARCHAR2,
230 p_attribute19 IN VARCHAR2,
231 p_attribute20 IN VARCHAR2
232 ) AS
233 /*************************************************************
234 Created By : Kumaravel
235 Date Created By : Sep 15 2000
236 Purpose :
237 Know limitations, enhancements or remarks
238 Change History
239 Who When What
240
241 (reverse chronological order - newest change first)
242 ***************************************************************/
243
244 p_api_version NUMBER(15) := 1.0;
245 p_init_msg_list VARCHAR2(30) := FND_API.G_FALSE;
246 p_commit VARCHAR2(30) := FND_API.G_FALSE;
247 l_msg_count NUMBER(15);
248 l_last_update_date hz_contact_points.last_update_date%TYPE;
249
250 l_contact_point_rec HZ_CONTACT_POINT_V2PUB.contact_point_rec_type;
251 l_phone_rec HZ_CONTACT_POINT_V2PUB.phone_rec_type;
252
253
254 CURSOR get_lupd_date(p_contact_point_id NUMBER ) IS
255 SELECT last_update_date
256 FROM hz_contact_points
257 WHERE contact_point_id = p_contact_point_id;
258
259
260 tmp_var1 VARCHAR2(2000);
261 tmp_var VARCHAR2(2000);
262
263 BEGIN
264
265 IF p_action = 'INSERT' THEN
266 l_CONTACT_POINT_REC.CONTACT_POINT_ID := p_contact_point_id;
267 l_CONTACT_POINT_REC.CONTACT_POINT_TYPE := 'PHONE';
268 l_CONTACT_POINT_REC.STATUS := p_status;
269 l_CONTACT_POINT_REC.OWNER_TABLE_NAME := P_owner_table_name;
270 l_CONTACT_POINT_REC.OWNER_TABLE_ID := p_owner_table_id;
271 l_CONTACT_POINT_REC.PRIMARY_FLAG := p_primary_flag;
272 l_CONTACT_POINT_REC.CONTENT_SOURCE_TYPE := 'USER_ENTERED';
273 l_CONTACT_POINT_REC.attribute_category := p_attribute_category ;
274 l_CONTACT_POINT_REC.attribute1 := p_attribute1;
275 l_CONTACT_POINT_REC.attribute2 := p_attribute2;
276 l_CONTACT_POINT_REC.attribute3 := p_attribute3;
277 l_CONTACT_POINT_REC.attribute4 := p_attribute4 ;
281 l_CONTACT_POINT_REC.attribute8 := p_attribute8;
278 l_CONTACT_POINT_REC.attribute5 := p_attribute5;
279 l_CONTACT_POINT_REC.attribute6 := p_attribute6;
280 l_CONTACT_POINT_REC.attribute7 := p_attribute7;
282 l_CONTACT_POINT_REC.attribute9 := p_attribute9 ;
283 l_CONTACT_POINT_REC.attribute10 := p_attribute10 ;
284 l_CONTACT_POINT_REC.attribute11 := p_attribute11;
285 l_CONTACT_POINT_REC.attribute12 := p_attribute12;
286 l_CONTACT_POINT_REC.attribute13 := p_attribute13 ;
287 l_CONTACT_POINT_REC.attribute14 := p_attribute14;
288 l_CONTACT_POINT_REC.attribute15 := p_attribute15;
289 l_CONTACT_POINT_REC.attribute16 := p_attribute16;
290 l_CONTACT_POINT_REC.attribute17 := p_attribute17;
291 l_CONTACT_POINT_REC.attribute18 := p_attribute18;
292 l_CONTACT_POINT_REC.attribute19 := p_attribute19;
293 l_CONTACT_POINT_REC.attribute20 := p_attribute20;
294 l_CONTACT_POINT_REC.created_by_module := 'IGS';
295
296
297 l_PHONE_REC.PHONE_COUNTRY_CODE := p_phone_country_code;
298 l_PHONE_REC.PHONE_AREA_CODE := p_phone_area_code;
299 l_PHONE_REC.PHONE_NUMBER := p_phone_number;
300 l_PHONE_REC.PHONE_EXTENSION := p_phone_extension;
301 l_PHONE_REC.PHONE_LINE_TYPE := p_phone_line_type;
302
303 HZ_CONTACT_POINT_V2PUB.create_contact_point(
304 p_init_msg_list => p_init_msg_list ,
305 p_contact_point_rec => l_contact_point_rec ,
306 p_phone_rec => l_phone_rec ,
307 x_contact_point_id => p_contact_point_id,
308 x_return_status => p_return_status ,
309 x_msg_count => l_msg_count,
310 x_msg_data => p_msg_data );
311
312
313 IF p_return_status = 'S' THEN
314 p_contact_point_ovn := 1;
315 ELSIF p_return_status <> 'S' THEN
316 -- bug 2338473 logic to display more than one error modified.
317 IF l_msg_count > 1 THEN
318 FOR i IN 1..l_msg_count LOOP
319 tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
320 tmp_var1 := tmp_var1 || ' '|| tmp_var;
321 END LOOP;
322 p_msg_data := tmp_var1;
323 END IF;
324 RETURN;
325 END IF;
326
327
328 ELSIF p_action = 'UPDATE' THEN
329
330
331 l_CONTACT_POINT_REC.CONTACT_POINT_ID := p_contact_point_id;
332 l_CONTACT_POINT_REC.CONTACT_POINT_TYPE := 'PHONE';
333 l_CONTACT_POINT_REC.STATUS := p_status;
334 l_CONTACT_POINT_REC.OWNER_TABLE_NAME := P_owner_table_name;
335 l_CONTACT_POINT_REC.OWNER_TABLE_ID := p_owner_table_id;
336 l_CONTACT_POINT_REC.PRIMARY_FLAG := NVL(p_primary_flag,FND_API.G_MISS_CHAR);
337 -- l_CONTACT_POINT_REC.CONTENT_SOURCE_TYPE := 'USER_ENTERED';
338 l_CONTACT_POINT_REC.attribute_category := NVL(p_attribute_category,FND_API.G_MISS_CHAR);
339 l_CONTACT_POINT_REC.attribute1 := NVL(p_attribute1,FND_API.G_MISS_CHAR);
340 l_CONTACT_POINT_REC.attribute2 := NVL(p_attribute2,FND_API.G_MISS_CHAR);
341 l_CONTACT_POINT_REC.attribute3 := NVL(p_attribute3,FND_API.G_MISS_CHAR);
342 l_CONTACT_POINT_REC.attribute4 := NVL(p_attribute4,FND_API.G_MISS_CHAR);
343 l_CONTACT_POINT_REC.attribute5 := NVL(p_attribute5,FND_API.G_MISS_CHAR);
344 l_CONTACT_POINT_REC.attribute6 := NVL(p_attribute6,FND_API.G_MISS_CHAR);
345 l_CONTACT_POINT_REC.attribute7 := NVL(p_attribute7,FND_API.G_MISS_CHAR);
346 l_CONTACT_POINT_REC.attribute8 := NVL(p_attribute8,FND_API.G_MISS_CHAR);
347 l_CONTACT_POINT_REC.attribute9 := NVL(p_attribute9,FND_API.G_MISS_CHAR);
348 l_CONTACT_POINT_REC.attribute10 := NVL(p_attribute10,FND_API.G_MISS_CHAR);
349 l_CONTACT_POINT_REC.attribute11 := NVL(p_attribute11,FND_API.G_MISS_CHAR);
350 l_CONTACT_POINT_REC.attribute12 := NVL(p_attribute12,FND_API.G_MISS_CHAR);
351 l_CONTACT_POINT_REC.attribute13 := NVL(p_attribute13,FND_API.G_MISS_CHAR);
352 l_CONTACT_POINT_REC.attribute14 := NVL(p_attribute14,FND_API.G_MISS_CHAR);
353 l_CONTACT_POINT_REC.attribute15 := NVL(p_attribute15,FND_API.G_MISS_CHAR);
354 l_CONTACT_POINT_REC.attribute16 := NVL(p_attribute16,FND_API.G_MISS_CHAR);
355 l_CONTACT_POINT_REC.attribute17 := NVL(p_attribute17,FND_API.G_MISS_CHAR);
356 l_CONTACT_POINT_REC.attribute18 := NVL(p_attribute18,FND_API.G_MISS_CHAR);
357 l_CONTACT_POINT_REC.attribute19 := NVL(p_attribute19,FND_API.G_MISS_CHAR);
358 l_CONTACT_POINT_REC.attribute20 := NVL(p_attribute20,FND_API.G_MISS_CHAR);
359 -- l_CONTACT_POINT_REC.created_by_module := 'IGS';
360
361
362 l_PHONE_REC.PHONE_COUNTRY_CODE := NVL(p_phone_country_code,FND_API.G_MISS_CHAR);
363 l_PHONE_REC.PHONE_AREA_CODE := NVL(p_phone_area_code,FND_API.G_MISS_CHAR);
367
364 l_PHONE_REC.PHONE_NUMBER := NVL( p_phone_number,FND_API.G_MISS_CHAR);
365 l_PHONE_REC.PHONE_EXTENSION := NVL( p_phone_extension,FND_API.G_MISS_CHAR);
366 l_PHONE_REC.PHONE_LINE_TYPE := NVL( p_phone_line_type,FND_API.G_MISS_CHAR);
368 HZ_CONTACT_POINT_V2PUB.update_contact_point(
369 p_init_msg_list => p_init_msg_list ,
370 p_contact_point_rec => l_contact_point_rec ,
371 p_phone_rec => l_PHONE_REC,
372 p_object_version_number => p_contact_point_ovn,
373 x_return_status => p_return_status,
374 x_msg_count => l_msg_count ,
375 x_msg_data => p_msg_data
376
377 );
378
379
380
381 IF p_return_status <> 'S' THEN
382 -- bug 2338473 logic to display more than one error modified.
383 IF l_msg_count > 1 THEN
384 FOR i IN 1..l_msg_count LOOP
385 tmp_var := fnd_msg_pub.get(p_encoded => fnd_api.g_false);
386 tmp_var1 := tmp_var1 || ' '|| tmp_var;
387 END LOOP;
388 p_msg_data := tmp_var1;
389 END IF;
390 RETURN;
391 END IF;
392
393 END IF;
394
395 END HZ_CONTACT_POINTS_AKP;
396
397 END IGS_PE_CONTACT_POINT_PKG;