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

Source


1 PACKAGE BODY CS_SR_CUST_CONT_MAINT_PVT   AS
2 /* $Header: csxvccmb.pls 120.4 2006/04/06 17:00:13 pskannan noship $ */
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 x_msg_count           OUT    NOCOPY NUMBER,
169 x_msg_data            OUT    NOCOPY VARCHAR2,
170 x_return_status       OUT    NOCOPY VARCHAR2,
171 x_location_id         OUT    NOCOPY NUMBER) Is
172 
173    l_location_rec HZ_LOCATION_V2PUB.LOCATION_REC_TYPE;
174    l_return_status VARCHAR2(1);
175    l_msg_count NUMBER;
176    l_msg_data  VARCHAR2(2000);
177    l_location_id NUMBER;
178 
179  Begin
180 
181 /* wh_update_date is addded in the record. This is used as last update date  in
182  Update address proc. Fix for bug #1567159 */
183 
184    l_location_rec.address1 := p_address_rec.address1;
185    l_location_rec.address2 := p_address_rec.address2;
186    l_location_rec.address3 := p_address_rec.address3;
187    l_location_rec.address4 := p_address_rec.address4;
188    l_location_rec.address_lines_phonetic := p_address_rec.address_lines_phonetic;
189    l_location_rec.city     := p_address_rec.city;
190    l_location_rec.state    := p_address_rec.state;
191    l_location_rec.county   := p_address_rec.county;
192    l_location_rec.country  := p_address_rec.country;
193    l_location_rec.postal_code := p_address_rec.postal_code;
194    l_location_rec.province := p_address_rec.province;
195    l_location_rec.county   := p_address_rec.county;
196    l_location_rec.language := p_address_rec.language;
197    l_location_rec.po_box_number := p_address_rec.po_box_number;
198    l_location_rec.street   := p_address_rec.street;
199    l_location_rec.house_number  := p_address_rec.house_number;
200    l_location_rec.position := p_address_rec.position;
201    l_location_rec.address_key := p_address_rec.address_key;
202    l_location_rec.street_number := p_address_rec.street_number;
203    l_location_rec.floor := p_address_rec.floor;
204    l_location_rec.suite := p_address_rec.suite;
205    l_location_rec.postal_plus4_code := p_address_rec.postal_plus4_code;
206    l_location_rec.position := p_address_rec.position;
207    l_location_rec.location_directions := p_address_rec.location_directions;
208    l_location_rec.clli_code := p_address_rec.clli_code;
209    l_location_rec.short_description := p_address_rec.short_description;
210    l_location_rec.description := p_address_rec.description;
211    l_location_rec.sales_tax_geocode := p_address_rec.sales_tax_geocode;
212    l_location_rec.sales_tax_inside_city_limits := p_address_rec.sales_tax_inside_city_limits;
213    l_location_rec.timezone_id := p_address_rec.timezone_id;
214    l_location_rec.created_by_module := 'SR';
215 
216      HZ_LOCATION_V2PUB.create_location (
217         p_init_msg_list     => FND_API.G_FALSE,
218         p_location_rec      => l_location_rec,
219         x_location_id       => l_location_id,
220         x_return_status     => l_return_status,
221         x_msg_count         => l_msg_count,
222         x_msg_data          => l_msg_data);
223 
224      x_return_status := l_return_status;
225 	x_msg_count     := l_msg_count;
226 	x_msg_data      := l_msg_data;
227 
228 	If x_return_status = CSC_CORE_UTILS_PVT.G_RET_STS_SUCCESS Then
229 		x_location_id	 := l_location_id;
230 	End If;
231 
232  End Create_Address;
233 
234  PROCEDURE Update_Address (
235    p_address_rec       IN	             ADDRESS_REC_TYPE,
236    x_msg_count         OUT     NOCOPY   NUMBER,
237    x_msg_data          OUT     NOCOPY   VARCHAR2,
238    x_object_version_number IN OUT NOCOPY NUMBER,
239    x_return_status     OUT     NOCOPY   VARCHAR2) Is
240 
241    l_location_rec HZ_LOCATION_V2PUB.LOCATION_REC_TYPE;
242    l_return_status VARCHAR2(1);
243    l_msg_count NUMBER;
244    l_msg_data  VARCHAR2(2000);
245 
246  Begin
247    l_location_rec.address1 := p_address_rec.address1;
248    l_location_rec.address2 := p_address_rec.address2;
249    l_location_rec.address3 := p_address_rec.address3;
250    l_location_rec.address4 := p_address_rec.address4;
251    l_location_rec.address_lines_phonetic := p_address_rec.address_lines_phonetic;
252    l_location_rec.location_id := p_address_rec.location_id;
253    l_location_rec.city     := p_address_rec.city;
254    l_location_rec.state 	  := p_address_rec.state;
255    l_location_rec.county   := p_address_rec.county;
256    l_location_rec.country  := p_address_rec.country;
257    l_location_rec.postal_code := p_address_rec.postal_code;
258    l_location_rec.province := p_address_rec.province;
259    l_location_rec.county := p_address_rec.county;
260    l_location_rec.language := p_address_rec.language;
261    l_location_rec.po_box_number := p_address_rec.po_box_number;
262    l_location_rec.street := p_address_rec.street;
263    l_location_rec.house_number := p_address_rec.house_number;
264    l_location_rec.position := p_address_rec.position;
265    l_location_rec.address_key := p_address_rec.address_key;
266    l_location_rec.street_suffix := p_address_rec.street_suffix;
267    l_location_rec.street_number := p_address_rec.street_number;
268    l_location_rec.floor := p_address_rec.floor;
269    l_location_rec.suite := p_address_rec.suite;
270    l_location_rec.postal_plus4_code := p_address_rec.postal_plus4_code;
271    l_location_rec.position := p_address_rec.position;
272    l_location_rec.location_directions := p_address_rec.location_directions;
273    l_location_rec.clli_code := p_address_rec.clli_code;
274    l_location_rec.short_description := p_address_rec.short_description;
275    l_location_rec.description := p_address_rec.description;
276    l_location_rec.sales_tax_geocode := p_address_rec.sales_tax_geocode;
277    l_location_rec.sales_tax_inside_city_limits := p_address_rec.sales_tax_inside_city_limits;
278    l_location_rec.timezone_id := p_address_rec.timezone_id;
279 
280      HZ_LOCATION_V2PUB.update_location (
281         p_init_msg_list          => FND_API.G_FALSE,
282         p_location_rec           => l_location_rec,
283         p_object_version_number  => x_object_version_number,
284         x_return_status          => l_return_status,
285         x_msg_count              => l_msg_count,
286         x_msg_data               => l_msg_data);
287 
288 	x_return_status := l_return_status;
289 	x_msg_count     := l_msg_count;
290 	x_msg_data      := l_msg_data;
291 
292  End Update_Address;
293 
294 
295 	-- Wrapper for HZ procedure : phone_format for phone number globalization
296 /*	FUNCTION phone_format_Wrap(	p_phone_country_code 	in varchar2,
297 							p_phone_area_code 		in varchar2,
298 							p_phone_number 		in varchar2)
299 	RETURN varchar2 is
300    		l_return_status VARCHAR2(1);
301    		l_msg_count NUMBER;
302    		l_msg_data  VARCHAR2(2000);
303 		l_phone_country_code varchar2(30):= NULL;
304 		l_phone_area_code varchar2(30);
305 		l_phone_number varchar2(30);
306 		l_territory_code varchar2(30):= NULL;
307 		l_formatted_phone_number varchar2(100);
308 	Begin
309 
310 		if p_phone_country_code is null then
311 			FND_PROFILE.get('CSC_CC_DEFAULT_TERRITORY_CODE',l_territory_code);
312 		else
313 			l_phone_country_code := p_phone_country_code;
314 		end if;
315 
316 		l_phone_area_code := p_phone_area_code;
317 		l_phone_number := p_phone_number;
318 
319 	     HZ_CONTACT_POINT_PUB.phone_format (
320 									p_api_version				=> 1.0,
321 									p_init_msg_list    			=> FND_API.G_FALSE,
322 									p_territory_code 			=> l_territory_code,
323 									x_formatted_phone_number 	=> l_formatted_phone_number,
324 									x_phone_country_code 		=> l_phone_country_code,
325 									x_phone_area_code 			=> l_phone_area_code,
326 									x_phone_number 			=> l_phone_number,
327 									x_return_status			=> l_return_status,
328 									x_msg_count				=> l_msg_count,
329 									x_msg_data				=> l_msg_data);
330 
331 		-- If procedure does not return success then pass back null (since will be used in view definition)
332 		if (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
333 		-- return FND_MSG_PUB.Get(p_msg_index=>1,p_encoded =>'F' );
334 			return null;
335 		else
336 			return l_formatted_phone_number;
337 		end if;
338 	End phone_format_wrap;
339 */
340 
341 /* New SEARCH window related objects */
342 
343   PROCEDURE COMMIT_ROLLBACK( COM_ROLL       IN   VARCHAR2 := 'ROLL')
344   IS
345   BEGIN
346      if ( COM_ROLL = 'COMMIT' ) then
347 	   commit;
348      else
349 	   rollback;
350      end if;
351   END COMMIT_ROLLBACK;
352 
353   FUNCTION G_RET_STS_SUCCESS RETURN VARCHAR2 IS
354   BEGIN
355      RETURN FND_API.G_RET_STS_SUCCESS ;
356   END G_RET_STS_SUCCESS ;
357 
358 
359   FUNCTION G_RET_STS_ERROR RETURN VARCHAR2 IS
360   BEGIN
361      RETURN FND_API.G_RET_STS_ERROR ;
362   END G_RET_STS_ERROR ;
363 
364 
365   FUNCTION G_RET_STS_UNEXP_ERROR RETURN VARCHAR2 IS
366   BEGIN
367      RETURN FND_API.G_RET_STS_UNEXP_ERROR ;
368   END G_RET_STS_UNEXP_ERROR ;
369 
370 
371   FUNCTION G_VALID_LEVEL_NONE RETURN NUMBER IS
372   BEGIN
373      RETURN FND_API.G_VALID_LEVEL_NONE ;
374   END;
375 
376 
377   FUNCTION G_VALID_LEVEL_FULL RETURN NUMBER IS
378   BEGIN
379      RETURN FND_API.G_VALID_LEVEL_FULL ;
380   END;
381 
382 
383   FUNCTION G_VALID_LEVEL_INT RETURN NUMBER IS
384   BEGIN
385      RETURN CS_INTERACTION_PVT.G_VALID_LEVEL_INT ;
386   END;
387 
388 
389   FUNCTION G_TRUE RETURN VARCHAR2 IS
390   BEGIN
391      return FND_API.G_TRUE ;
392   END;
393 
394 
395   FUNCTION G_FALSE RETURN VARCHAR2 IS
396   BEGIN
397      return FND_API.G_FALSE ;
398   END;
399 END CS_SR_CUST_CONT_MAINT_PVT;