1 FUNCTION Get_Contact_Point_Count
2 ( P_PHONE_NUMBER_S1 IN VARCHAR2
3 , P_PHONE_NUMBER_S2 IN VARCHAR2
4 , P_PHONE_NUMBER_S3 IN VARCHAR2
5 , P_PHONE_NUMBER_S4 IN VARCHAR2
6 , P_PHONE_NUMBER_S5 IN VARCHAR2
7 , P_PHONE_NUMBER_S6 IN VARCHAR2
8 )
9 RETURN NUMBER
10 IS
11 l_num_contact_points NUMBER(5);
12 BEGIN
13
14 l_num_contact_points := 0;
15
16 IF P_PHONE_NUMBER_S1 IS NOT NULL THEN
17 l_num_contact_points := l_num_contact_points + 1;
18 END IF;
19
20 IF P_PHONE_NUMBER_S2 IS NOT NULL THEN
21 l_num_contact_points := l_num_contact_points + 1;
22 END IF;
23
24 IF P_PHONE_NUMBER_S3 IS NOT NULL THEN
25 l_num_contact_points := l_num_contact_points + 1;
26 END IF;
27
28 IF P_PHONE_NUMBER_S4 IS NOT NULL THEN
29 l_num_contact_points := l_num_contact_points + 1;
30 END IF;
31
32 IF P_PHONE_NUMBER_S5 IS NOT NULL THEN
33 l_num_contact_points := l_num_contact_points + 1;
34 END IF;
35
36 IF P_PHONE_NUMBER_S6 IS NOT NULL THEN
37 l_num_contact_points := l_num_contact_points + 1;
38 END IF;
39
40 RETURN l_num_contact_points;
41
42 END Get_Contact_Point_Count;