PACKAGE BODY: APPS.BOM_COMPARISON_TEMP_PKG

Source

1 PACKAGE BODY BOM_COMPARISON_TEMP_PKG as
2 /* $Header: bompbcpb.pls 115.1 99/07/16 05:47:16 porting ship $ */
3 /*===========================================================================+
4  |               Copyright (c) 1993 Oracle Corporation                       |
5  |                  Redwood Shores, California, USA                          |
6  |                       All rights reserved.                                |
7  +===========================================================================*/
8 
9 PROCEDURE Get_Sequence_and_Commons ( X_Sequence_Id               IN OUT NUMBER,
10                                      X_Common_Bill_Sequence_Id1  IN OUT NUMBER,
11                                      X_Common_Bill_Sequence_Id2  IN OUT NUMBER,
12                                      X_Organization_Id1 NUMBER,
13                                      X_Organization_Id2 NUMBER,
14                                      X_Assembly_Item_Id1 NUMBER,
15                                      X_Assembly_Item_Id2 NUMBER,
16                                      X_Alternate1 VARCHAR2,
17                                      X_alternate2 VARCHAR2 ) IS
18   cursor c1 is select bom1.common_bill_sequence_id
19 		 from BOM_BILL_OF_MATERIALS bom1
20 		where bom1.organization_id = X_Organization_Id1
21 	 	  and bom1.assembly_item_id = X_Assembly_Item_Id1
22 		  and nvl(bom1.alternate_bom_designator, 'NONE') =
23 		      nvl(X_Alternate1, 'NONE');
24   cursor c2 is select bom2.common_bill_sequence_id
25 		 from BOM_BILL_OF_MATERIALS bom2
26 		where bom2.organization_id = X_Organization_Id2
27 	 	  and bom2.assembly_item_id = X_Assembly_Item_Id2
28 		  and nvl(bom2.alternate_bom_designator, 'NONE') =
29 		      nvl(X_Alternate2, 'NONE');
30 BEGIN
31   select bom_comparison_temp_s.nextval
32     into X_Sequence_Id
33     from sys.dual;
34   open c1;
35   fetch c1 into X_Common_Bill_Sequence_Id1;
36   close c1;
37   open c2;
38   fetch c2 into X_Common_Bill_Sequence_Id2;
39   close c2;
40 END Get_Sequence_and_Commons;
41 
42 
43 
44 FUNCTION Get_Bill_Type ( X_Organization_Id NUMBER,
45 			 X_Assembly_Item_Id NUMBER,
46 			 X_Alternate VARCHAR2 ) RETURN NUMBER IS
47   cursor c1 is
48 	select assembly_type from bom_bill_of_materials bom
49 	 where bom.organization_id = X_Organization_Id
50 	   and bom.assembly_item_id = X_Assembly_Item_Id
51 	   and nvl(bom.alternate_bom_designator,'NONE') =
52 	       nvl(X_Alternate,'NONE');
53   bill_type NUMBER;
54 BEGIN
55   open c1;
56   fetch c1 into bill_type;
57   close c1;
58   return(bill_type);
59 END Get_Bill_Type;
60 
61 END BOM_COMPARISON_TEMP_PKG;