PACKAGE BODY: APPS.BIM_OPPORTUNITIES_PKG

Source

1 PACKAGE BODY BIM_OPPORTUNITIES_PKG AS
2 /* $Header: bimopprb.pls 115.3 2000/02/02 10:08:12 pkm ship  $ */
3 
4 FUNCTION ORDERS_GENERATED(p_opportunity_id NUMBER) RETURN NUMBER AS
5 	LN_ORDERS_GENERATED PLS_INTEGER;
6 BEGIN
7 
8 	SELECT COUNT(distinct ASO2.OBJECT_ID) INTO LN_ORDERS_GENERATED
9 	FROM
10 			ASO_QUOTE_RELATED_OBJECTS ASO1,
11 			ASO_QUOTE_RELATED_OBJECTS ASO2
12 	WHERE
13 			ASO1.OBJECT_TYPE_CODE = 'OPPORTUNITY' AND
14 			ASO1.OBJECT_ID = p_opportunity_id AND
15 			ASO1.RELATIONSHIP_TYPE_CODE = 'OPP_QUOTE' AND
16 			ASO1.QUOTE_OBJECT_ID = ASO2.QUOTE_OBJECT_ID AND
17 			ASO1.QUOTE_OBJECT_TYPE_CODE = ASO2.QUOTE_OBJECT_TYPE_CODE AND
18 			ASO2.RELATIONSHIP_TYPE_CODE = 'QUOTE_ORDER';
19 
20 	RETURN LN_ORDERS_GENERATED;
21 
22 END ORDERS_GENERATED;
23 
24 END BIM_OPPORTUNITIES_PKG;