PACKAGE BODY: APPS.BIM_LEADS_PKG

Source

1 PACKAGE BODY BIM_LEADS_PKG AS
2 /* $Header: bimleadb.pls 115.4 2000/02/29 20:18:59 pkm ship  $ */
3 
4 FUNCTION ORDERS_GENERATED(p_lead_id NUMBER) RETURN NUMBER AS
5 	LN_ORDERS_GENERATED PLS_INTEGER;
6 BEGIN
7 
8 	SELECT COUNT(*) INTO LN_ORDERS_GENERATED
9 	FROM
10 	(
11 	SELECT ASO2.OBJECT_ID
12 	FROM
13 			ASO_QUOTE_RELATED_OBJECTS ASO1,
14 			ASO_QUOTE_RELATED_OBJECTS ASO2
15 	WHERE
16 			ASO1.OBJECT_TYPE_CODE = 'LEAD' AND
17 			ASO1.OBJECT_ID = p_lead_id AND
18 			ASO1.RELATIONSHIP_TYPE_CODE = 'LEAD_QUOTE' AND
19 			ASO1.QUOTE_OBJECT_ID = ASO2.QUOTE_OBJECT_ID AND
20 			ASO1.QUOTE_OBJECT_TYPE_CODE = ASO2.QUOTE_OBJECT_TYPE_CODE AND
21 			ASO2.RELATIONSHIP_TYPE_CODE = 'QUOTE_ORDER'
22 	UNION
23 	SELECT ASO2.OBJECT_ID
24 	FROM
25 			AS_SALES_LEAD_OPPORTUNITY ASLO,
26 			ASO_QUOTE_RELATED_OBJECTS ASO1,
27 			ASO_QUOTE_RELATED_OBJECTS ASO2
28 	WHERE
29 			ASLO.SALES_LEAD_ID = p_lead_id AND
30 			ASLO.OPPORTUNITY_ID = ASO1.OBJECT_ID AND
31 			ASO1.OBJECT_TYPE_CODE = 'OPPORTUNITY' AND
32 			ASO1.RELATIONSHIP_TYPE_CODE = 'OPP_QUOTE' AND
33 			ASO1.QUOTE_OBJECT_ID = ASO2.QUOTE_OBJECT_ID AND
34 			ASO1.QUOTE_OBJECT_TYPE_CODE = ASO2.QUOTE_OBJECT_TYPE_CODE AND
35 			ASO2.RELATIONSHIP_TYPE_CODE = 'QUOTE_ORDER'
36 	);
37 
38 	RETURN LN_ORDERS_GENERATED;
39 
40 
41 END ORDERS_GENERATED;
42 
43 END BIM_LEADS_PKG;