PACKAGE BODY: APPS.EDW_POA_LN_TYPE_PKG

Source

1 PACKAGE BODY EDW_POA_LN_TYPE_PKG AS
2 /* $Header: poafkltb.pls 120.1 2005/06/13 12:48:28 sriswami noship $  */
3 VERSION	CONSTANT CHAR(80) := '$Header: poafkltb.pls 120.1 2005/06/13 12:48:28 sriswami noship $';
4 
5 Function Line_type_fk(
6 	p_order_type			in VARCHAR2) return VARCHAR2 IS
7 
8 l_linetype VARCHAR2(240) := 'NA_EDW';
9 cursor c is
10 	select line_type_pk
11 	from edw_poa_ln_type_lcv
12 	where order_type = p_order_type;
13 BEGIN
14 return(upper(p_order_type));
15 if(p_order_type is not NULL) then
16 
17 	OPEN c;
18 	FETCH c into l_linetype;
19 	CLOSE c;
20 end if;
21 
22 return (l_linetype);
23 
24 
25 EXCEPTION when others then
26   close c;
27   return('NA_EDW ');
28 END Line_type_fk;
29 
30 
31 END; --package body