PACKAGE BODY: APPS.CCT_CUSTOM_LOOKUP_PUB

Source

1 PACKAGE BODY CCT_CUSTOM_LOOKUP_PUB as
2 /* $Header: cctcuslb.pls 120.0 2005/06/02 09:53:17 appldev noship $ */
3 
4 FUNCTION	 GetData(
5      x_key_value_varr  IN OUT NOCOPY cct_keyvalue_varr
6  ) return varchar2 IS
7 
8    x_oper_succeeded varchar2(1) := cct_collection_util_pub.G_FALSE;
9    l_key_value_varr cct_keyvalue_varr;
10    l_value varchar2(32767) ;
11    i BINARY_INTEGER;
12  begin
13 	l_value := cct_collection_util_pub.Get(x_key_value_varr,'occtCustomLookup',								 x_oper_succeeded);
14     return  cct_collection_util_pub.G_TRUE;
15     EXCEPTION
16      WHEN OTHERS THEN
17       return x_oper_succeeded ;
18 END GetData;
19 
20 END CCT_CUSTOM_LOOKUP_PUB;
21