[Home] [Help]
PACKAGE BODY: APPS.CCT_CUSTOMER_LOOKUP_PUB
Source
1 PACKAGE BODY CCT_CUSTOMER_LOOKUP_PUB as
2 /* $Header: cctctmrb.pls 120.3 2005/09/23 15:06:24 appldev noship $ */
3
4
5 FUNCTION ProcessCall(
6 x_key_value_varr IN OUT NOCOPY cct_keyvalue_varr
7 ) return varchar2 IS
8
9 x_oper_succeeded varchar2(1) := cct_collection_util_pub.G_FALSE;
10 l_key_value_varr cct_keyvalue_varr;
11 l_value varchar2(32767) ;
12 l_return_value varchar2(1);
13 l_is_event_raised varchar2(1);
14 i BINARY_INTEGER;
15 begin
16 l_value := cct_collection_util_pub.Get(x_key_value_varr,'occtCustomerLookup', x_oper_succeeded);
17 l_return_value := 'S';
18
19 IF (Upper(l_value) = 'SALES') THEN
20 l_return_value := cct_default_lookup_pub.GetData(x_key_value_varr);
21 ELSIF (Upper(l_value) = 'SERVICE') THEN
22 CSC_ROUTING_UTL.CSC_CUSTOMER_LOOKUP(x_key_value_varr);
23 ELSIF (Upper(l_value) = 'CUSTOM') THEN
24 l_return_value := cct_custom_lookup_pub.GetData(x_key_value_varr);
25 END IF ;
26
27 return l_return_value;
28 EXCEPTION
29 WHEN OTHERS THEN
30 return x_oper_succeeded ;
31 -- end ;
32 END ProcessCall;
33
34 END CCT_CUSTOMER_LOOKUP_PUB;
35