[Home] [Help]
PACKAGE BODY: APPS.CAC_SYNC_CONTACT_UTIL_PVT
Source
1 PACKAGE BODY CAC_SYNC_CONTACT_UTIL_PVT as
2 /* $Header: cacvscub.pls 120.1 2005/07/02 02:20:51 appldev noship $ */
3
4 FUNCTION FORMAT_PHONE
5 ( p_country_code IN VARCHAR2
6 , p_area_code IN VARCHAR2
7 , p_phone_number IN VARCHAR2
8 , p_phone_extension IN VARCHAR2
9 , p_delimit_country IN VARCHAR2
10 , p_delimit_area_code IN VARCHAR2
11 , p_delimit_phone_number IN VARCHAR2
12 , p_delimit_extension IN VARCHAR2
13 )
14 RETURN VARCHAR2
15 IS
16 l_raw_phone_number VARCHAR2(100);
17 BEGIN
18 cac_sync_contact_util_pvt.log(p_message=>'Entering FORMAT_PHONE...',
19 p_msg_level=>fnd_log.level_procedure,
20 p_module_prefix=>'FORMAT_PHONE');
21
22 IF p_country_code IS NOT NULL THEN
23 l_raw_phone_number := NVL(p_delimit_country,'+') || p_country_code;
24 END IF;
25
26 IF p_area_code IS NOT NULL THEN
27 IF p_delimit_area_code = '( )' THEN
28 IF l_raw_phone_number IS NOT NULL THEN
29 l_raw_phone_number := l_raw_phone_number || ' (' || p_area_code || ') ';
30 ELSE
31 l_raw_phone_number := '(' || p_area_code || ') ';
32 END IF;
33 ELSE
34 IF l_raw_phone_number IS NOT NULL THEN
35 l_raw_phone_number := l_raw_phone_number || NVL(p_delimit_area_code,'-') || p_area_code;
36 ELSE
37 l_raw_phone_number := p_area_code;
38 END IF;
39 END IF;
40 END IF;
41
42 IF p_phone_number IS NOT NULL THEN
43 IF l_raw_phone_number IS NOT NULL THEN
44 l_raw_phone_number := l_raw_phone_number ||
45 NVL(p_delimit_phone_number,'-') || p_phone_number;
46 ELSE
47 l_raw_phone_number := p_phone_number;
48 END IF;
49 END IF;
50
51 IF p_phone_extension IS NOT NULL THEN
52 IF p_delimit_extension IS NULL THEN
53 l_raw_phone_number := l_raw_phone_number ||
54 ' ' || p_phone_extension;
55 ELSIF p_delimit_extension = '< >' THEN
56 l_raw_phone_number := l_raw_phone_number || ' <' ||
57 p_phone_extension || '>';
58 ELSIF p_delimit_extension = '( )' THEN
59 l_raw_phone_number := l_raw_phone_number || ' (' ||
60 p_phone_extension || ')';
61 ELSE
62 l_raw_phone_number := l_raw_phone_number ||
63 p_delimit_extension || p_phone_extension;
64 END IF;
65 END IF;
66
67 IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
68 cac_sync_contact_util_pvt.log(p_message=>'Returning a value '||l_raw_phone_number||'...',
69 p_msg_level=>fnd_log.level_procedure,
70 p_module_prefix=>'FORMAT_PHONE');
71 END IF;
72
73 RETURN l_raw_phone_number;
74
75 END FORMAT_PHONE;
76
77 PROCEDURE LOG
78 (p_message IN VARCHAR2,
79 p_msg_level IN NUMBER,
80 p_prefix IN VARCHAR2,
81 p_module_prefix IN VARCHAR2,
82 p_module IN VARCHAR2
83 )
84 IS
85 l_message VARCHAR2(4000);
86 l_module_prefix VARCHAR2(255);
87 l_module VARCHAR2(80);
88 l_module_text VARCHAR2(255);
89 BEGIN
90 IF p_msg_level >= fnd_log.g_current_runtime_level
91 THEN
92 IF p_module_prefix IS NULL
93 THEN
94 l_module_prefix := 'CAC_SYNC_CONTACT';
95 ELSE
96 l_module_prefix := p_module_prefix;
97 END IF;
98
99 IF p_module IS NULL
100 THEN
101 l_module := 'JTF';
102 ELSE
103 l_module := p_module;
104 END IF;
105
106 l_module_text := SUBSTRB('jtf.cac.sync.contact.plsql.'||l_module_prefix||'.'||l_module,1,255);
107
108 IF p_prefix IS NOT NULL
109 THEN
110 l_message := substrb(p_prefix||'-'||p_message, 1, 4000);
111 ELSE
112 l_message := substrb(p_message,1,4000);
113 END IF;
114
115 fnd_log.string(p_msg_level, l_module_text, l_message);
116 END IF;
117 END LOG;
118
119 END CAC_SYNC_CONTACT_UTIL_PVT;