PACKAGE BODY: APPS.BIM_PRODUCT_CATEG_PKG

Source

1 PACKAGE BODY BIM_PRODUCT_CATEG_PKG AS
2 /* $Header: bimprodb.pls 115.0 2000/01/07 16:15:18 pkm ship  $ */
3 
4 FUNCTION GET_INTEREST_CODE_ID(
5            p_interest_type_id  IN NUMBER,
6            p_interest_code     IN VARCHAR2,
7            p_code_type         IN VARCHAR2 )
8 RETURN NUMBER IS
9 
10 cursor c_get_pcode
11 IS
12 SELECT interest_code_id
13   FROM bim_dimv_interest_codes
14  WHERE interest_code = p_interest_code
15    AND parent_interest_code_id is NULL
16    AND interest_type_id = p_interest_type_id ;
17 
18 
19 cursor c_get_scode
20 IS
21 SELECT interest_code_id
22   FROM bim_dimv_interest_codes
23  WHERE interest_code = p_interest_code
24    AND parent_interest_code_id is NOT NULL
25    AND interest_type_id = p_interest_type_id ;
26 
27 v_code_id  NUMBER;
28 
29 BEGIN
30       IF p_code_type = 'P'  THEN
31          OPEN c_get_pcode;
32          FETCH c_get_pcode INTO v_code_id;
33          CLOSE c_get_pcode;
34       ELSIF p_code_type = 'S'  THEN
35          OPEN c_get_scode;
36          FETCH c_get_scode INTO v_code_id;
37          CLOSE c_get_scode;
38       END IF;
39 
40       return v_code_id;
41 EXCEPTION
42     WHEN OTHERS THEN
43          raise;
44 END GET_INTEREST_CODE_ID;
45 
46 END BIM_PRODUCT_CATEG_PKG;