[Home] [Help]
PACKAGE BODY: APPS.CS_SR_CUST_CONT_MAINT_PVT
Source
1 PACKAGE BODY CS_SR_CUST_CONT_MAINT_PVT AS
2 /* $Header: csxvccmb.pls 120.5 2009/03/25 11:04:29 sshilpam ship $ */
3
4 -- Constants used as tokens for unexpected error messages.
5 G_PVT_NAME CONSTANT VARCHAR2(25):= 'CS_SR_CUST_CONT_MAINT_PKG';
6
7 -- Local Function. Returns the Value of the Constant FND_API.G_MISS_NUM
8 FUNCTION G_MISS_NUM RETURN NUMBER IS
9 BEGIN
10 RETURN FND_API.G_MISS_NUM ;
11 END G_MISS_NUM ;
12
13 -- Local Function. Returns the Value of the Constant FND_API.G_MISS_CHAR to the caller
14 FUNCTION G_MISS_CHAR RETURN VARCHAR2 IS
15 BEGIN
16 RETURN FND_API.G_MISS_CHAR ;
17 END G_MISS_CHAR ;
18
19 -- Local Function. REturns the Value of the Constant FND_API.G_MISS_DATE to the caller
20 FUNCTION G_MISS_DATE RETURN DATE IS
21 BEGIN
22 RETURN FND_API.G_MISS_DATE ;
23 END G_MISS_DATE ;
24
25 -- Local Function. REturns the Value of the Constants
26 -- FND_API.G_VALID_LEVEL_NONE , FND_API.G_VALID_LEVEL_FULL to the caller
27 FUNCTION G_VALID_LEVEL(p_level varchar2) RETURN NUMBER IS
28 BEGIN
29 IF p_level = ('NONE') then
30 RETURN FND_API.G_VALID_LEVEL_NONE ;
31 ELSIF p_level = ('FULL') then
32 RETURN FND_API.G_VALID_LEVEL_FULL ;
33 ELSE
34 -- Unrecognized parameter.
35 FND_MSG_PUB.Add_Exc_Msg
36 ( p_pkg_name => G_PVT_NAME ,
37 p_procedure_name => 'G_VALID_LEVEL' ,
38 p_error_text => 'Unrecognized Value : '||p_level
39 );
40 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41 END IF;
42 END G_VALID_LEVEL ;
43
44 -- Local Function. REturns the Value of the Constants
45 -- FND_API.G_TRUE , FND_API.G_FALSE To the caller
46 FUNCTION G_BOOLEAN(p_FLAG varchar2) RETURN VARCHAR2 IS
47 BEGIN
48 if p_flag = 'TRUE' then
49 return FND_API.G_TRUE ;
50 elsif p_flag = 'FALSE' then
51 return FND_API.G_FALSE ;
52 ELSE
53 -- Unrecognized parameter.
54 FND_MSG_PUB.Add_Exc_Msg
55 ( p_pkg_name => G_PVT_NAME ,
56 p_procedure_name => 'G_BOOLEAN' ,
57 p_error_text => 'Unrecognized Value : '||p_flag
58 );
59 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
60 END if;
61 END G_BOOLEAN;
62
63 FUNCTION GET_ERROR_CONSTANT(err_msg VARCHAR2) RETURN VARCHAR2 IS
64
65 BEGIN
66 IF err_msg = 'G_RET_STS_ERROR' THEN
67 RETURN FND_API.G_RET_STS_ERROR;
68 ELSIF err_msg = 'G_RET_STS_UNEXP_ERROR' THEN
69 RETURN FND_API.G_RET_STS_UNEXP_ERROR;
70 ELSIF err_msg = 'G_RET_STS_SUCCESS' THEN
71 RETURN FND_API.G_RET_STS_SUCCESS;
72 END IF;
73
74 END GET_ERROR_CONSTANT;
75
76 FUNCTION GET_PARTY_REC_TYPE RETURN HZ_PARTY_V2PUB.PARTY_REC_TYPE IS
77 TMP_PARTY_REC_TYPE HZ_PARTY_V2PUB.PARTY_REC_TYPE;
78 BEGIN
79 RETURN TMP_PARTY_REC_TYPE;
80 END GET_PARTY_REC_TYPE;
81
82 FUNCTION GET_PERSON_REC_TYPE RETURN HZ_PARTY_V2PUB.PERSON_REC_TYPE IS
83 TMP_PERSON_REC_TYPE HZ_PARTY_V2PUB.PERSON_REC_TYPE;
84 BEGIN
85 RETURN TMP_PERSON_REC_TYPE;
86 END GET_PERSON_REC_TYPE;
87
88 FUNCTION GET_CONTACT_POINTS_REC_TYPE RETURN HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE IS
89 TMP_CONTACT_POINTS_REC_TYPE HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE;
90 BEGIN
91 RETURN TMP_CONTACT_POINTS_REC_TYPE;
92 END GET_CONTACT_POINTS_REC_TYPE;
93
94 FUNCTION GET_EDI_REC_TYPE RETURN HZ_CONTACT_POINT_V2PUB.EDI_REC_TYPE IS
95 TMP_EDI_REC_TYPE HZ_CONTACT_POINT_V2PUB.EDI_REC_TYPE;
96 BEGIN
97 RETURN TMP_EDI_REC_TYPE;
98 END GET_EDI_REC_TYPE;
99
100 FUNCTION GET_PHONE_REC_TYPE RETURN HZ_CONTACT_POINT_V2PUB.PHONE_REC_TYPE IS
101 TMP_PHONE_REC_TYPE HZ_CONTACT_POINT_V2PUB.PHONE_REC_TYPE;
102 BEGIN
103 RETURN TMP_PHONE_REC_TYPE;
104 END GET_PHONE_REC_TYPE;
105
106 FUNCTION GET_EMAIL_REC_TYPE RETURN HZ_CONTACT_POINT_V2PUB.EMAIL_REC_TYPE IS
107 TMP_EMAIL_REC_TYPE HZ_CONTACT_POINT_V2PUB.EMAIL_REC_TYPE;
108 BEGIN
109 RETURN TMP_EMAIL_REC_TYPE;
110 END GET_EMAIL_REC_TYPE;
111
112 FUNCTION GET_TELEX_REC_TYPE RETURN HZ_CONTACT_POINT_V2PUB.TELEX_REC_TYPE IS
113 TMP_TELEX_REC_TYPE HZ_CONTACT_POINT_V2PUB.TELEX_REC_TYPE;
114 BEGIN
115 RETURN TMP_TELEX_REC_TYPE;
116 END GET_TELEX_REC_TYPE;
117
118 FUNCTION GET_WEB_REC_TYPE RETURN HZ_CONTACT_POINT_V2PUB.WEB_REC_TYPE IS
119 TMP_WEB_REC_TYPE HZ_CONTACT_POINT_V2PUB.WEB_REC_TYPE;
120 BEGIN
121 RETURN TMP_WEB_REC_TYPE;
122 END GET_WEB_REC_TYPE;
123
124 FUNCTION GET_PARTY_REL_REC_TYPE RETURN HZ_RELATIONSHIP_V2PUB.relationship_rec_type IS
125 TMP_PARTY_REL_REC_TYPE HZ_RELATIONSHIP_V2PUB.relationship_rec_type;
126 BEGIN
127 RETURN TMP_PARTY_REL_REC_TYPE;
128 END GET_PARTY_REL_REC_TYPE;
129
130 -- FUNCTION GET_LOCATION_REC_TYPE RETURN HZ_LOCATION_PUB.LOCATION_REC_TYPE IS
131 -- TMP_LOCATION_REC_TYPE HZ_LOCATION_PUB.LOCATION_REC_TYPE;
132 -- BEGIN
133 -- RETURN TMP_LOCATION_REC_TYPE;
134 -- END GET_LOCATION_REC_TYPE;
135
136 FUNCTION GET_ORG_CONTACT_REC_TYPE RETURN HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE IS
137 TMP_ORG_CONTACT_REC_TYPE HZ_PARTY_CONTACT_V2PUB.ORG_CONTACT_REC_TYPE;
138 BEGIN
139 RETURN TMP_ORG_CONTACT_REC_TYPE;
140 END GET_ORG_CONTACT_REC_TYPE;
141
142 -- FUNCTION GET_CONTACT_RESTRICT_REC_TYPE RETURN HZ_CONTACT_POINT_PUB.CONTACT_RESTRICTION_REC_TYPE IS
143 -- TMP_CONTACT_RESTRICT_REC_TYPE HZ_CONTACT_POINT_PUB.CONTACT_RESTRICTION_REC_TYPE;
144 -- BEGIN
145 -- RETURN TMP_CONTACT_RESTRICT_REC_TYPE;
146 -- END GET_CONTACT_RESTRICT_REC_TYPE;
147
148 FUNCTION GET_ADDRESS_REC_TYPE RETURN CS_SR_CUST_CONT_MAINT_PVT.ADDRESS_REC_TYPE IS
149 TMP_ADDRESS_REC_TYPE CS_SR_CUST_CONT_MAINT_PVT.ADDRESS_REC_TYPE;
150 BEGIN
151 RETURN TMP_ADDRESS_REC_TYPE;
152 END GET_ADDRESS_REC_TYPE;
153
154 FUNCTION GET_PARTY_SITE_REC_TYPE RETURN HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE IS
155 TMP_PARTY_SITE_REC_TYPE HZ_PARTY_SITE_V2PUB.PARTY_SITE_REC_TYPE;
156 BEGIN
157 RETURN TMP_PARTY_SITE_REC_TYPE;
158 END GET_PARTY_SITE_REC_TYPE;
159
160 FUNCTION GET_PARTY_SITE_USE_REC_TYPE RETURN HZ_PARTY_SITE_V2PUB.PARTY_SITE_USE_REC_TYPE IS
161 TMP_PARTY_SITE_USE_REC_TYPE HZ_PARTY_SITE_V2PUB.PARTY_SITE_USE_REC_TYPE;
162 BEGIN
163 RETURN TMP_PARTY_SITE_USE_REC_TYPE;
164 END GET_PARTY_SITE_USE_REC_TYPE;
165
166 PROCEDURE Create_Address (
167 p_address_rec IN ADDRESS_REC_TYPE,
168 p_do_addr_val IN VARCHAR2, -- 12.1.2 Address Validation
169 x_msg_count OUT NOCOPY NUMBER,
170 x_msg_data OUT NOCOPY VARCHAR2,
171 x_return_status OUT NOCOPY VARCHAR2,
172 x_addr_val_status OUT NOCOPY VARCHAR2, -- 12.1.2 Address Validation
173 x_addr_warn_msg OUT NOCOPY VARCHAR2, -- 12.1.2 Address Validation
174 x_location_id OUT NOCOPY NUMBER) Is
175
176 l_location_rec HZ_LOCATION_V2PUB.LOCATION_REC_TYPE;
177 l_return_status VARCHAR2(1);
178 l_msg_count NUMBER;
179 l_msg_data VARCHAR2(2000);
180 l_location_id NUMBER;
181
182 l_addr_val_status VARCHAR2(30); -- 12.1.2 Address Validation
183 l_addr_warn_msg VARCHAR2(2000); -- 12.1.2 Address Validation
184
185 Begin
186
187 /* wh_update_date is addded in the record. This is used as last update date in
188 Update address proc. Fix for bug #1567159 */
189
190 l_location_rec.address1 := p_address_rec.address1;
191 l_location_rec.address2 := p_address_rec.address2;
192 l_location_rec.address3 := p_address_rec.address3;
193 l_location_rec.address4 := p_address_rec.address4;
194 l_location_rec.address_lines_phonetic := p_address_rec.address_lines_phonetic;
195 l_location_rec.city := p_address_rec.city;
196 l_location_rec.state := p_address_rec.state;
197 l_location_rec.county := p_address_rec.county;
198 l_location_rec.country := p_address_rec.country;
199 l_location_rec.postal_code := p_address_rec.postal_code;
200 l_location_rec.province := p_address_rec.province;
201 l_location_rec.county := p_address_rec.county;
202 l_location_rec.language := p_address_rec.language;
203 l_location_rec.po_box_number := p_address_rec.po_box_number;
204 l_location_rec.street := p_address_rec.street;
205 l_location_rec.house_number := p_address_rec.house_number;
206 l_location_rec.position := p_address_rec.position;
207 l_location_rec.address_key := p_address_rec.address_key;
208 l_location_rec.street_number := p_address_rec.street_number;
209 l_location_rec.floor := p_address_rec.floor;
210 l_location_rec.suite := p_address_rec.suite;
211 l_location_rec.postal_plus4_code := p_address_rec.postal_plus4_code;
212 l_location_rec.position := p_address_rec.position;
213 l_location_rec.location_directions := p_address_rec.location_directions;
214 l_location_rec.clli_code := p_address_rec.clli_code;
215 l_location_rec.short_description := p_address_rec.short_description;
216 l_location_rec.description := p_address_rec.description;
217 l_location_rec.sales_tax_geocode := p_address_rec.sales_tax_geocode;
218 l_location_rec.sales_tax_inside_city_limits := p_address_rec.sales_tax_inside_city_limits;
219 l_location_rec.timezone_id := p_address_rec.timezone_id;
220 l_location_rec.created_by_module := 'SR';
221
222 HZ_LOCATION_V2PUB.create_location (
223 p_init_msg_list => FND_API.G_FALSE,
224 p_location_rec => l_location_rec,
225 p_do_addr_val => p_do_addr_val, -- 12.1.2 Address Validation
226 x_location_id => l_location_id,
227 x_return_status => l_return_status,
228 x_msg_count => l_msg_count,
229 x_msg_data => l_msg_data,
230 x_addr_val_status => l_addr_val_status, -- 12.1.2 Address Validation
231 x_addr_warn_msg => l_addr_warn_msg); -- 12.1.2 Address Validation
232
233 x_return_status := l_return_status;
234 x_msg_count := l_msg_count;
235 x_msg_data := l_msg_data;
236 x_addr_val_status := l_addr_val_status; -- 12.1.2 Address Validation
237 x_addr_warn_msg := l_addr_warn_msg; -- 12.1.2 Address Validation
238
239
240 If x_return_status = CSC_CORE_UTILS_PVT.G_RET_STS_SUCCESS Then
241 x_location_id := l_location_id;
242 End If;
243
244 End Create_Address;
245
246 PROCEDURE Update_Address (
247 p_address_rec IN ADDRESS_REC_TYPE,
248 p_do_addr_val IN VARCHAR2, -- 12.1.2 Address Validation
249 x_msg_count OUT NOCOPY NUMBER,
250 x_msg_data OUT NOCOPY VARCHAR2,
251 x_object_version_number IN OUT NOCOPY NUMBER,
252 x_return_status OUT NOCOPY VARCHAR2,
253 x_addr_val_status OUT NOCOPY VARCHAR2, -- 12.1.2 Address Validation
254 x_addr_warn_msg OUT NOCOPY VARCHAR2) Is -- 12.1.2 Address Validation
255
256 l_location_rec HZ_LOCATION_V2PUB.LOCATION_REC_TYPE;
257 l_return_status VARCHAR2(1);
258 l_msg_count NUMBER;
259 l_msg_data VARCHAR2(2000);
260
261 l_addr_val_status VARCHAR2(30); -- 12.1.2 Address Validation
262 l_addr_warn_msg VARCHAR2(2000); -- 12.1.2 Address Validation
263
264
265 Begin
266 l_location_rec.address1 := p_address_rec.address1;
267 l_location_rec.address2 := p_address_rec.address2;
268 l_location_rec.address3 := p_address_rec.address3;
269 l_location_rec.address4 := p_address_rec.address4;
270 l_location_rec.address_lines_phonetic := p_address_rec.address_lines_phonetic;
271 l_location_rec.location_id := p_address_rec.location_id;
272 l_location_rec.city := p_address_rec.city;
273 l_location_rec.state := p_address_rec.state;
274 l_location_rec.county := p_address_rec.county;
275 l_location_rec.country := p_address_rec.country;
276 l_location_rec.postal_code := p_address_rec.postal_code;
277 l_location_rec.province := p_address_rec.province;
278 l_location_rec.county := p_address_rec.county;
279 l_location_rec.language := p_address_rec.language;
280 l_location_rec.po_box_number := p_address_rec.po_box_number;
281 l_location_rec.street := p_address_rec.street;
282 l_location_rec.house_number := p_address_rec.house_number;
283 l_location_rec.position := p_address_rec.position;
284 l_location_rec.address_key := p_address_rec.address_key;
285 l_location_rec.street_suffix := p_address_rec.street_suffix;
286 l_location_rec.street_number := p_address_rec.street_number;
287 l_location_rec.floor := p_address_rec.floor;
288 l_location_rec.suite := p_address_rec.suite;
289 l_location_rec.postal_plus4_code := p_address_rec.postal_plus4_code;
290 l_location_rec.position := p_address_rec.position;
291 l_location_rec.location_directions := p_address_rec.location_directions;
292 l_location_rec.clli_code := p_address_rec.clli_code;
293 l_location_rec.short_description := p_address_rec.short_description;
294 l_location_rec.description := p_address_rec.description;
295 l_location_rec.sales_tax_geocode := p_address_rec.sales_tax_geocode;
296 l_location_rec.sales_tax_inside_city_limits := p_address_rec.sales_tax_inside_city_limits;
297 l_location_rec.timezone_id := p_address_rec.timezone_id;
298
299 HZ_LOCATION_V2PUB.update_location (
300 p_init_msg_list => FND_API.G_FALSE,
301 p_location_rec => l_location_rec,
302 p_do_addr_val => p_do_addr_val, -- 12.1.2 Address Validation
303 p_object_version_number => x_object_version_number,
304 x_return_status => l_return_status,
305 x_msg_count => l_msg_count,
306 x_msg_data => l_msg_data,
307 x_addr_val_status => l_addr_val_status, -- 12.1.2 Address Validation
308 x_addr_warn_msg => l_addr_warn_msg); -- 12.1.2 Address Validation
309
310 x_return_status := l_return_status;
311 x_msg_count := l_msg_count;
312 x_msg_data := l_msg_data;
313 x_addr_val_status := l_addr_val_status; -- 12.1.2 Address Validation
314 x_addr_warn_msg := l_addr_warn_msg; -- 12.1.2 Address Validation
315
316 End Update_Address;
317
318
319 -- Wrapper for HZ procedure : phone_format for phone number globalization
320 /* FUNCTION phone_format_Wrap( p_phone_country_code in varchar2,
321 p_phone_area_code in varchar2,
322 p_phone_number in varchar2)
323 RETURN varchar2 is
324 l_return_status VARCHAR2(1);
325 l_msg_count NUMBER;
326 l_msg_data VARCHAR2(2000);
327 l_phone_country_code varchar2(30):= NULL;
328 l_phone_area_code varchar2(30);
329 l_phone_number varchar2(30);
330 l_territory_code varchar2(30):= NULL;
331 l_formatted_phone_number varchar2(100);
332 Begin
333
334 if p_phone_country_code is null then
335 FND_PROFILE.get('CSC_CC_DEFAULT_TERRITORY_CODE',l_territory_code);
336 else
337 l_phone_country_code := p_phone_country_code;
338 end if;
339
340 l_phone_area_code := p_phone_area_code;
341 l_phone_number := p_phone_number;
342
343 HZ_CONTACT_POINT_PUB.phone_format (
344 p_api_version => 1.0,
345 p_init_msg_list => FND_API.G_FALSE,
346 p_territory_code => l_territory_code,
347 x_formatted_phone_number => l_formatted_phone_number,
348 x_phone_country_code => l_phone_country_code,
349 x_phone_area_code => l_phone_area_code,
350 x_phone_number => l_phone_number,
351 x_return_status => l_return_status,
352 x_msg_count => l_msg_count,
353 x_msg_data => l_msg_data);
354
355 -- If procedure does not return success then pass back null (since will be used in view definition)
356 if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
357 -- return FND_MSG_PUB.Get(p_msg_index=>1,p_encoded =>'F' );
358 return null;
359 else
360 return l_formatted_phone_number;
361 end if;
362 End phone_format_wrap;
363 */
364
365 /* New SEARCH window related objects */
366
367 PROCEDURE COMMIT_ROLLBACK( COM_ROLL IN VARCHAR2 := 'ROLL')
368 IS
369 BEGIN
370 if ( COM_ROLL = 'COMMIT' ) then
371 commit;
372 else
373 rollback;
374 end if;
375 END COMMIT_ROLLBACK;
376
377 FUNCTION G_RET_STS_SUCCESS RETURN VARCHAR2 IS
378 BEGIN
379 RETURN FND_API.G_RET_STS_SUCCESS ;
380 END G_RET_STS_SUCCESS ;
381
382
383 FUNCTION G_RET_STS_ERROR RETURN VARCHAR2 IS
384 BEGIN
385 RETURN FND_API.G_RET_STS_ERROR ;
386 END G_RET_STS_ERROR ;
387
388
389 FUNCTION G_RET_STS_UNEXP_ERROR RETURN VARCHAR2 IS
390 BEGIN
391 RETURN FND_API.G_RET_STS_UNEXP_ERROR ;
392 END G_RET_STS_UNEXP_ERROR ;
393
394
395 FUNCTION G_VALID_LEVEL_NONE RETURN NUMBER IS
396 BEGIN
397 RETURN FND_API.G_VALID_LEVEL_NONE ;
398 END;
399
400
401 FUNCTION G_VALID_LEVEL_FULL RETURN NUMBER IS
402 BEGIN
403 RETURN FND_API.G_VALID_LEVEL_FULL ;
404 END;
405
406
407 FUNCTION G_VALID_LEVEL_INT RETURN NUMBER IS
408 BEGIN
409 RETURN CS_INTERACTION_PVT.G_VALID_LEVEL_INT ;
410 END;
411
412
413 FUNCTION G_TRUE RETURN VARCHAR2 IS
414 BEGIN
415 return FND_API.G_TRUE ;
416 END;
417
418
419 FUNCTION G_FALSE RETURN VARCHAR2 IS
420 BEGIN
421 return FND_API.G_FALSE ;
422 END;
423 END CS_SR_CUST_CONT_MAINT_PVT;