PACKAGE BODY: APPS.BIM_TARGET_SEGMENT_PKG

Source

1 PACKAGE BODY BIM_TARGET_SEGMENT_PKG AS
2 /* $Header: bimtrgtb.pls 115.3 2000/02/02 10:08:23 pkm ship  $ */
3 
4 FUNCTION target_segment_fk(p_customer_id number,
5                            p_source_code varchar2) RETURN NUMBER AS
6 
7 /* Since customer_id,p_source_code combinations could occur
8    more than once in AMS_LIST_ENTRIES, we just want the
9    latest
10 */
11 
12 CURSOR LC_CELL IS
13 	SELECT CELL_ID
14 	FROM
15 		AMS_CELLS_ALL_B CELL,
16 		AMS_LIST_ENTRIES LIST
17 	WHERE
18 		LIST.CUSTOMER_ID = P_CUSTOMER_ID AND
19 		LIST.SOURCE_CODE = P_SOURCE_CODE AND
20 		CELL.CELL_CODE = LIST.CELL_CODE AND
21 		MARKED_AS_DUPLICATE_FLAG = 'N'
22 	ORDER BY LIST_ENTRY_ID DESC;
23 
24 ln_cell_id PLS_INTEGER :=  -999;
25 
26 BEGIN
27 
28 OPEN LC_CELL;
29 FETCH LC_CELL INTO ln_cell_id;
30 RETURN ln_cell_id;
31 
32 END;
33 
34 END BIM_TARGET_SEGMENT_PKG;