PACKAGE BODY: APPS.PO_AP_TAX_CODES_SV

Source

1 PACKAGE BODY PO_AP_TAX_CODES_SV AS
2 /* $Header: POXPITXB.pls 120.2 2005/09/14 05:02:18 pchintal noship $ */
3 
4 /*================================================================
5 
6   FUNCTION NAME: 	val_tax_name()
7 
8 ==================================================================*/
9  FUNCTION val_tax_name(x_tax_name IN VARCHAR2) RETURN BOOLEAN
10  IS
11 
12    l_progress    varchar2(3) := null;
13    l_temp varchar2(1);
14  BEGIN
15     l_temp:='N';
16     l_progress := '010';
17 
18 
19     Select 'Y' into l_temp from  dual where exists
20      (SELECT  MEANING, LOOKUP_CODE TAX_CLASSIFICATION_CODE
21      FROM    FND_LOOKUPS
22      WHERE   LOOKUP_TYPE =  'ZX_INPUT_CLASSIFICATIONS'
23              AND     NVL(START_DATE_ACTIVE, SYSDATE) <= SYSDATE
24              AND     NVL(END_DATE_ACTIVE, SYSDATE)  >= SYSDATE
25              AND     ENABLED_FLAG = 'Y'
26              AND  LOOKUP_CODE = x_tax_name
27      UNION
28      SELECT   MEANING, LOOKUP_CODE TAX_CLASSIFICATION_CODE
29      FROM    FND_LOOKUPS
30      WHERE   LOOKUP_TYPE = 'ZX_WEB_EXP_TAX_CLASSIFICATIONS'
31              AND     ENABLED_FLAG = 'Y'
32              AND     SYSDATE BETWEEN START_DATE_ACTIVE and
33              NVL(END_DATE_ACTIVE,SYSDATE)
34              AND  LOOKUP_CODE= x_tax_name);
35 
36     /* SELECT count(*)
37      INTO x_temp
38      FROM ap_tax_codes
39     WHERE name = x_tax_name; */
40 
41    IF l_temp = 'Y'  THEN
42       RETURN TRUE;  /*  success */
43    ELSE
44       RETURN FALSE; /* failure */
45    END IF;
46 
47  EXCEPTION
48    WHEN NO_DATA_FOUND THEN
49       RETURN FALSE;
50    WHEN others THEN
51         po_message_s.sql_error('val_tax_name', l_progress, sqlcode);
52         raise;
53  END val_tax_name;
54 
55 END PO_AP_TAX_CODES_SV;