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