PACKAGE BODY: APPS.BIM_MARKET_SEGMENT_PKG

Source

1 PACKAGE BODY BIM_MARKET_SEGMENT_PKG AS
2 /* $Header: bimmktb.pls 115.3 2000/02/02 10:08:08 pkm ship  $ */
3 
4 FUNCTION market_segment_fk(p_customer_id number,
5                            p_trx_date    date) RETURN NUMBER AS
6 
7 CURSOR C_GET_MKTSEG_ID
8 IS
9 	SELECT PMKT.MARKET_SEGMENT_ID
10 	FROM   AMS_PARTY_MARKET_SEGMENTS PMKT
11 	WHERE
12 		PMKT.PARTY_ID = p_customer_id
13         AND PMKT.MARKET_SEGMENT_FLAG = 'Y';
14        -- AND  p_trx_date    >=   PMKT.START_DATE_ACTIVE
15        -- AND  p_trx_date    <=   nvl( PMKT.END_DATE_ACTIVE,  SYSDATE ) ;
16 
17 v_mktseg_id PLS_INTEGER := -999 ;
18 
19 BEGIN
20 
21    IF p_customer_id IS NOT NULL
22    THEN
23     OPEN   C_GET_MKTSEG_ID;
24     FETCH  C_GET_MKTSEG_ID INTO v_mktseg_id;
25     CLOSE  C_GET_MKTSEG_ID;
26    END IF;
27 
28    RETURN v_mktseg_id;
29 
30 EXCEPTION
31     WHEN OTHERS THEN
32          IF c_get_mktseg_id%ISOPEN
33          THEN
34               close c_get_mktseg_id;
35          END IF;
36          raise;
37 END;
38 
39 END BIM_MARKET_SEGMENT_PKG;