PACKAGE BODY: APPS.PROJECT_MFG

Source

1 PACKAGE BODY project_mfg AS
2 /* $Header: CSTPJCMB.pls 115.3 2002/11/11 18:59:38 awwang ship $ */
3 
4 FUNCTION matl_subelement (
5 	   I_ITEM_ID                    IN      NUMBER,
6            I_RATES_COST_TYPE_ID         IN      NUMBER,
7            I_ORG_ID                     IN      NUMBER)
8 RETURN VARCHAR2
9 is
10 
11 	   l_expend_type		VARCHAR2(30);
12 
13  BEGIN
14 
15 	BEGIN
16 
17 		select
18 		br.expenditure_type
19  		into l_expend_type
20 		from
21 		BOM_RESOURCES br,
22 		CST_ITEM_COST_DETAILS cicd
23 		where
24 		cicd.inventory_item_id		=	I_ITEM_ID	and
25 		cicd.organization_id		=	I_ORG_ID	and
26 		cicd.cost_type_id		=  nvl(I_RATES_COST_TYPE_ID,-1)	and
27 		cicd.resource_id		=	br.resource_id	and
28 		cicd.cost_element_id		=	1		and
29 		br.organization_id		=	I_ORG_ID	and
30 		rownum 				=	1
31 		order by cicd.resource_id;
32 
33 	EXCEPTION
34 
35 	 WHEN NO_DATA_FOUND then l_expend_type := 'NO Val';
36 
37 	END;
38 
39 
40 	BEGIN
41 
42 
43 	IF (l_expend_type = 'NO Val') then
44 
45 	select nvl(br.expenditure_type,'No Val')
46 	into
47 	l_expend_type
48 	from
49 	BOM_RESOURCES br,
50 	MTL_PARAMETERS mp
51 	where
52 	mp.organization_id	=	I_ORG_ID	and
53 	mp.default_material_cost_id	=	br.resource_id	and
54 	br.organization_id		=	I_ORG_ID;
55 
56 	END IF;
57 
58 	EXCEPTION
59 
60 	WHEN NO_DATA_FOUND then l_expend_type := 'NO Val';
61 
62 	END;
63 
64 	return(l_expend_type);
65 
66 
67 
68  EXCEPTION
69 
70  WHEN OTHERS THEN
71  return('-999');
72 
73 
74 
75  END matl_subelement;
76 
77  END project_mfg;