PACKAGE BODY: APPS.WIP_REVISIONS

Source

1 PACKAGE BODY WIP_REVISIONS AS
2 /* $Header: wiprvdfb.pls 115.7 2003/10/01 00:30:31 rseela ship $ */
3 
4 PROCEDURE Bom_Revision(P_Organization_Id IN NUMBER,
5 		     P_Item_Id IN NUMBER,
6 		     P_Revision IN OUT NOCOPY VARCHAR2,
7 		     P_Revision_Date IN OUT NOCOPY DATE,
8 		     P_Start_Date IN DATE) IS
9 
10 x_released_revs_type	NUMBER;
11 x_released_revs_meaning	Varchar2(30);
12 
13 BEGIN
14 
15 	If P_Item_Id IS NULL THEN
16 		P_Revision_Date := '';
17 		P_Revision := '';
18 		return;
19 	END IF;
20 
21 	IF P_Revision_Date IS NULL AND P_Revision IS NULL THEN
22 		P_Revision_Date := P_Start_Date;
23 	END IF;
24 
25 	wip_common.Get_Released_Revs_Type_Meaning (x_released_revs_type,
26                                                    x_released_revs_meaning
27                                                   );
28 
29 	IF P_Revision_Date IS NOT NULL THEN
30                BOM_REVISIONS.Get_Revision
31                 (type => 'PART',
32                  eco_status => x_released_revs_meaning,
33                  examine_type => 'ALL',
34                  org_id => P_Organization_Id,
35                  item_id => P_item_id,
36                  rev_date => P_Revision_Date,
37                  itm_rev => P_Revision);
38 	ELSE
39                BOM_REVISIONS.Get_High_Date
40                 (type => 'PART',
41                  eco_status => x_released_revs_meaning,
42                  org_id => P_Organization_Id,
43                  item_id => P_item_id,
44 		 itm_rev =>P_Revision,
45                  rev_date => P_Revision_Date);
46 	END IF;
47 
48 END Bom_Revision;
49 
50 PROCEDURE Routing_Revision(P_Organization_Id IN NUMBER,
51 		     P_Item_Id IN NUMBER,
52 		     P_Revision IN OUT NOCOPY VARCHAR2,
53 		     P_Revision_Date IN OUT NOCOPY DATE,
54 		     P_Start_Date IN DATE) IS
55 
56 x_released_revs_type	NUMBER;
57 x_released_revs_meaning	Varchar(30);
58 
59 BEGIN
60 
61 	If P_Item_Id IS NULL THEN
62 		P_Revision_Date := '';
63 		P_Revision := '';
64 		return;
65 	END IF;
66 
67 	IF P_Revision_Date IS NULL AND P_Revision IS NULL THEN
68 		P_Revision_Date := P_Start_Date;
69 	END IF;
70         wip_common.Get_Released_Revs_Type_Meaning (x_released_revs_type,
71                                                    x_released_revs_meaning
72                                                   );
73 
74 	IF P_Revision_Date IS NOT NULL THEN
75                BOM_REVISIONS.Get_Revision
76                 (type => 'PROCESS',
77                  eco_status => x_released_revs_meaning,
78                  examine_type => 'ALL',
79                  org_id => P_Organization_Id,
80                  item_id => P_item_id,
81                  rev_date => P_Revision_Date,
82                  itm_rev => P_Revision);
83 	ELSE
84                BOM_REVISIONS.Get_High_Date
85                 (type => 'PROCESS',
86                  eco_status => x_released_revs_meaning,
87                  org_id => P_Organization_Id,
88                  item_id => P_item_id,
89 		 itm_rev =>P_Revision,
90                  rev_date => P_Revision_Date);
91 	END IF;
92 
93 END Routing_Revision;
94 
95 END WIP_REVISIONS;