[Home] [Help]
PACKAGE BODY: APPS.BOM_COMMON_UTILS
Source
1 PACKAGE BODY BOM_Common_Utils AS
2 /* $Header: BOMCUTLB.pls 120.1 2005/08/12 12:13:04 seradhak noship $ */
3 /*==========================================================================+
4 | Copyright (c) 1995 Oracle Corporation, California, USA |
5 | All rights reserved. |
6 +===========================================================================+
7 | |
8 | File Name : BOMCUTLB.pls |
9 | Description : Bom Util Package |
10 | Created By : Selvakumaran Radhakrishnan |
11 | |
12 +==========================================================================*/
13
14 FUNCTION CST_ROLLUP (
15 X_Cost_Type_Id IN NUMBER,
16 X_Inventory_Item_Id IN NUMBER,
17 X_Effective_Date IN DATE,
18 X_Include_Unimp_ECO IN NUMBER,
19 X_Alternate_Bill IN VARCHAR2,
20 X_Alternate_Routing IN VARCHAR2,
21 X_Eng_Bill IN NUMBER,
22 X_Org_Id IN NUMBER) Return NUMBER IS
23 PRAGMA autonomous_transaction;
24
25
26 L_Lock_Flag VARCHAR2(10);
27 L_default_org number;
28 L_Default_Cost_Type NUMBER;
29 L_Quantity_Precision VARCHAR2(2);
30 L_Trace_Mode VARCHAR2(1);
31 l_req_id NUMBER;
32
33 Cursor Default_Cost_Type_Id
34 (X_Cost_Type_Id IN NUMBER) IS
35 Select default_cost_type_id
36 From CST_COST_TYPES CCT
37 Where CCT.cost_type_id = X_Cost_Type_Id;
38
39 BEGIN
40 /* Getting all the parameters set for Rollup. */
41 FND_PROFILE.Get('CST_RU_WAIT_FOR_LOCKS', L_Lock_Flag);
42 Open Default_Cost_Type_Id(X_Cost_Type_Id);
43 Fetch Default_Cost_Type_Id into L_Default_Cost_Type;
44 Close Default_Cost_Type_Id;
45
46 FND_PROFILE.Get('REPORT_QUANTITY_PRECISION',L_Quantity_Precision);
47 FND_PROFILE.Get('MRP_TRACE', L_Trace_Mode);
48 FND_PROFILE.GET('MFG_ORGANIZATION_ID',L_default_org);
49
50
51 --dbms_output.put_line('date is '|| X_Effective_Date);
52 --dbms_output.put_line('defaul cost_type is '|| L_Default_Cost_Type);
53 --dbms_output.put_line('defaul L_Quantity_Precision is '|| L_Quantity_Precision);
54 --dbms_output.put_line('defaul L_Lock_Flag is '|| L_Lock_Flag);
55 --dbms_output.put_line('defaul L_default_org is '|| L_default_org);
56 --dbms_output.put_line('defaul L_Trace_Mode is '|| L_Trace_Mode);
57 --dbms_output.put_line('X_Cost_Type_Id is '|| X_Cost_Type_Id);
58 --dbms_output.put_line('X_Inventory_Item_Id is '|| X_Inventory_Item_Id);
59 --dbms_output.put_line('X_Include_Unimp_ECO is '|| X_Include_Unimp_ECO);
60 --dbms_output.put_line('X_Alternate_Bill is '|| X_Alternate_Bill);
61 --dbms_output.put_line('X_Eng_Bill is '|| X_Eng_Bill);
62 --dbms_output.put_line('X_Org_Id is '|| X_Org_Id);
63
64
65
66 /*
67 ** YEAR 2000 NOTE: There is a "YY" here. I know that. The
68 ** reason is this. First of all, the PL/SQL (version 1.0)
69 ** embedded within Forms 4.5.6 is *NOT* aware of how to
70 ** resolve the "RR" date mask. Secondly, using "YY" and
71 ** "RR" in a call to to_char (as we're doing here) is
72 ** functionally the same. So, to hit the database just to
73 ** remove the reference to "YY" is not worth it. We'll
74 ** live. (BTW, Eric said this is OK.)
75 */
76 l_req_id := FND_REQUEST.SUBMIT_REQUEST('BOM', 'CSTRSCCRP',
77 NULL, NULL, NULL, L_Lock_Flag,L_default_org,
78 NULL,To_Char(X_Cost_Type_Id),To_Char(X_Org_Id),NULL,NULL,NULL,'Corporate',
79 To_Char(L_Default_Cost_Type), '1','2','1',
80 '1', '1', '1', '1', '1',
81 To_Char(X_Effective_Date,'YYYY/MM/DD HH24:MI'),
82 To_Char(X_Include_Unimp_ECO), X_Alternate_Bill, X_Alternate_Routing,
83 To_Char(X_Eng_Bill), '1',NULL, '1',NULL, To_Char(X_Inventory_Item_Id),
84 NULL, NULL, NULL,
85 NULL, NULL, NULL,'1','FORM',
86 L_Quantity_Precision, L_Trace_Mode, chr(0),
87 NULL, NULL, NULL, NULL,NULL, NULL,NULL,
88 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
89 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
90 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
91 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
92 NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
93 NULL, NULL, NULL,NULL);
94 --dbms_output.put_line('defaul l_req_id is '|| l_req_id);
95 COMMIT;
96 RETURN l_req_id;
97 EXCEPTION
98 WHEN OTHERS THEN
99 --dbms_output.put_line('EXCEPTION OCCURRED in PL/sql'||SQLERRM);
100 ROLLBACK;
101 RETURN 0;
102 END CST_ROLLUP;
103
104 END BOM_Common_Utils;