PACKAGE BODY: APPS.HZ_PHONE_NUMBER_PKG

Source

1 PACKAGE BODY HZ_PHONE_NUMBER_PKG AS
2 /*$Header: ARHPHNMB.pls 120.3 2005/09/01 19:30:56 achung noship $ */
3 
4 FUNCTION transpose (
5         p_phone_number  IN      VARCHAR2)
6 RETURN VARCHAR2 IS
7   l_filtered_number     VARCHAR2(2000);
8   l_ret_number  VARCHAR2(2000);
9   l_changed_number  VARCHAR2(2000);
10 
11 BEGIN
12 
13   l_filtered_number := translate(
14     p_phone_number,
15     '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz()- .+''~`\/@#$%^&*_,|}{[]?<>=";:',
16     '01234567892223334445556667777888999922233344455566677778889999');
17 
18   IF l_filtered_number IS NULL OR l_filtered_number='' THEN
19     RETURN NULL;
20   END IF;
21   IF length(l_filtered_number) > 0 THEN
22     FOR I IN REVERSE 1..length(l_filtered_number) LOOP
23       l_ret_number := l_ret_number || substr(l_filtered_number,I,1);
24     END LOOP;
25 /*    FOR I IN 1..length(l_ret_number) LOOP
26         l_filtered_number := substr(l_ret_number,I,1);
27         select decode(upper(l_filtered_number),'A','2','B','2','C','2',
28                                           'D','3','E','3','F','3',
29                                           'G','4','H','4','I','4',
30                                           'J','5','K','5','L','5',
31                                           'M','6','N','6','O','6',
32                                           'P','7','Q','7','R','7','S','7',
33                                           'T','8','U','8','V','8',
34                                           'W','9','X','9','Y','9','Z','9',l_filtered_number) into l_filtered_number from dual;
35         l_changed_number := l_changed_number||l_filtered_number;
36 
37     END LOOP;
38     l_ret_number := l_changed_number;
39 */  END IF;
40 
41   RETURN l_ret_number;
42 END transpose;
43 
44 END HZ_PHONE_NUMBER_PKG;