PACKAGE BODY: APPS.AP_WEB_DB_ETAX_INT_PKG

Source

1 PACKAGE BODY AP_WEB_DB_ETAX_INT_PKG AS
2 /* $Header: apwdbtxb.pls 120.1 2005/06/03 22:25:25 qle noship $ */
3 
4 -------------------------------------------------------------------
5 FUNCTION IsTaxCodeWebEnabled(
6 	P_ExpTypeDefaultTaxCode IN  taxClassification) RETURN BOOLEAN
7 IS
8   l_taxCode  taxClassification;
9   l_lt       fnd_lookups.lookup_type%type;
10 -------------------------------------------------------------------
11 BEGIN
12   l_lt := 'ZX_WEB_EXP_TAX_CLASSIFICATIONS';
13 
14     select lookup_code
15     into l_taxCode
16     from fnd_lookups
17     WHERE lookup_type = l_lt and
18           lookup_code = P_ExpTypeDefaultTaxCode;
19 
20     RETURN TRUE;
21 
22 EXCEPTION
23 
24 	WHEN TOO_MANY_ROWS THEN
25                 RETURN TRUE;
26 
27 	WHEN NO_DATA_FOUND THEN
28 		RETURN FALSE;
29 
30 	WHEN OTHERS THEN
31 		AP_WEB_DB_UTIL_PKG.RaiseException( 'IsTaxCodeWebEnabled' );
32     		APP_EXCEPTION.RAISE_EXCEPTION;
33     		return FALSE;
34 
35 END IsTaxCodeWebEnabled;
36 
37 END AP_WEB_DB_ETAX_INT_PKG;