[Home] [Help]
PACKAGE BODY: APPS.REV_CONTROLLER
Source
1 PACKAGE BODY REV_Controller AS
2 /* $Header: ENGCREVB.pls 115.8 2003/07/08 12:25:37 akumar ship $ */
3
4 -- Procedure Create_Exp_Unexp_Rec
5
6 PROCEDURE Create_Exp_Unexp_Rec
7 ( p_controller_REV_rec IN REV_Controller.Controller_REV_Rec_Type
8 , x_REV_tbl OUT NOCOPY ENG_ECO_PUB.Eco_Revision_Tbl_Type
9 , x_unexp_REV_rec OUT NOCOPY ENG_ECO_PUB.Eco_Rev_Unexposed_Rec_Type
10 )
11 IS
12 BEGIN
13 -- Create exposed record
14
15 x_REV_tbl(1).eco_name := p_controller_REV_rec.change_notice;
16 x_REV_tbl(1).organization_code := p_controller_REV_rec.organization_code;
17 x_REV_tbl(1).revision := p_controller_REV_rec.revision;
18 x_REV_tbl(1).new_revision := p_controller_REV_rec.new_revision;
19 x_REV_tbl(1).comments := p_controller_REV_rec.comments;
20 x_REV_tbl(1).attribute_category := p_controller_REV_rec.attribute_category;
21 x_REV_tbl(1).attribute1 := p_controller_REV_rec.attribute1;
22 x_REV_tbl(1).attribute2 := p_controller_REV_rec.attribute2;
23 x_REV_tbl(1).attribute3 := p_controller_REV_rec.attribute3;
24 x_REV_tbl(1).attribute4 := p_controller_REV_rec.attribute4;
25 x_REV_tbl(1).attribute5 := p_controller_REV_rec.attribute5;
26 x_REV_tbl(1).attribute6 := p_controller_REV_rec.attribute6;
27 x_REV_tbl(1).attribute7 := p_controller_REV_rec.attribute7;
28 x_REV_tbl(1).attribute8 := p_controller_REV_rec.attribute8;
29 x_REV_tbl(1).attribute9 := p_controller_REV_rec.attribute9;
30 x_REV_tbl(1).attribute10 := p_controller_REV_rec.attribute10;
31 x_REV_tbl(1).attribute11 := p_controller_REV_rec.attribute11;
32 x_REV_tbl(1).attribute12 := p_controller_REV_rec.attribute12;
33 x_REV_tbl(1).attribute13 := p_controller_REV_rec.attribute13;
34 x_REV_tbl(1).attribute14 := p_controller_REV_rec.attribute14;
35 x_REV_tbl(1).attribute15 := p_controller_REV_rec.attribute15;
36
37 -- Create unexposed record
38
39 x_unexp_REV_rec.organization_id := p_controller_REV_rec.organization_id;
40 x_unexp_REV_rec.revision_id := p_controller_REV_rec.revision_id;
41 x_unexp_REV_rec.change_id := p_controller_REV_rec.change_id; --added on 6.1.2003
42
43 END Create_Exp_Unexp_Rec;
44
45 PROCEDURE Create_Controller_Rec
46 ( p_REV_tbl IN ENG_ECO_PUB.Eco_Revision_Tbl_Type
47 , p_unexp_REV_rec IN ENG_ECO_PUB.Eco_Rev_Unexposed_Rec_Type
48 , x_controller_REV_rec OUT NOCOPY REV_Controller.Controller_REV_Rec_Type
49 )
50 IS
51 BEGIN
52
53 -- Create exposed record
54
55 x_controller_REV_rec.change_notice := p_REV_tbl(1).eco_name;
56 x_controller_REV_rec.organization_code := p_REV_tbl(1).organization_code;
57 x_controller_REV_rec.revision := p_REV_tbl(1).revision;
58 x_controller_REV_rec.new_revision := p_REV_tbl(1).new_revision;
59 x_controller_REV_rec.comments := p_REV_tbl(1).comments;
60 x_controller_REV_rec.attribute_category := p_REV_tbl(1).attribute_category;
61 x_controller_REV_rec.attribute1 := p_REV_tbl(1).attribute1;
62 x_controller_REV_rec.attribute2 := p_REV_tbl(1).attribute2;
63 x_controller_REV_rec.attribute3 := p_REV_tbl(1).attribute3;
64 x_controller_REV_rec.attribute4 := p_REV_tbl(1).attribute4;
65 x_controller_REV_rec.attribute5 := p_REV_tbl(1).attribute5;
66 x_controller_REV_rec.attribute6 := p_REV_tbl(1).attribute6;
67 x_controller_REV_rec.attribute7 := p_REV_tbl(1).attribute7;
68 x_controller_REV_rec.attribute8 := p_REV_tbl(1).attribute8;
69 x_controller_REV_rec.attribute9 := p_REV_tbl(1).attribute9;
70 x_controller_REV_rec.attribute10 := p_REV_tbl(1).attribute10;
71 x_controller_REV_rec.attribute11 := p_REV_tbl(1).attribute11;
72 x_controller_REV_rec.attribute12 := p_REV_tbl(1).attribute12;
73 x_controller_REV_rec.attribute13 := p_REV_tbl(1).attribute13;
74 x_controller_REV_rec.attribute14 := p_REV_tbl(1).attribute14;
75 x_controller_REV_rec.attribute15 := p_REV_tbl(1).attribute15;
76 x_controller_REV_rec.organization_id := p_unexp_REV_rec.organization_id;
77 x_controller_REV_rec.revision_id := p_unexp_REV_rec.revision_id;
78 END Create_Controller_Rec;
79
80 -- Procedure Validate_And_Write
81
82 PROCEDURE Validate_And_Write
83 ( p_REV_controller_rec IN REV_Controller.Controller_REV_Rec_Type
84 , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
85 , p_record_status IN VARCHAR2
86 , x_REV_controller_rec IN OUT NOCOPY REV_Controller.Controller_REV_Rec_Type
87 , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
88 , x_return_status OUT NOCOPY VARCHAR2
89 )
90 IS
91 l_control_rec BOM_BO_PUB.Control_Rec_Type := p_control_rec;
92 l_REV_controller_rec REV_Controller.Controller_REV_Rec_Type := p_REV_controller_rec;
93 l_ECO_rec ENG_ECO_PUB.ECO_Rec_Type;
94 l_unexp_eco_rec ENG_ECO_PUB.ECO_Unexposed_Rec_Type;
95 l_unexp_rev_item_rec ENG_ECO_PUB.Rev_Item_Unexposed_Rec_Type;
96 l_unexp_REV_rec ENG_ECO_PUB.Eco_Rev_Unexposed_Rec_Type;
97 l_unexp_CMP_rec BOM_BO_PUB.Rev_Comp_Unexposed_Rec_Type;
98 l_unexp_SBC_rec BOM_BO_PUB.Sub_Comp_Unexposed_Rec_Type;
99 l_unexp_RFD_rec BOM_BO_PUB.Ref_Desg_Unexposed_Rec_Type;
100
101 l_unexp_rev_op_rec BOM_RTG_PUB.Rev_Op_Unexposed_Rec_Type;
102 l_unexp_rev_op_res_rec BOM_RTG_PUB.Rev_Op_Res_Unexposed_Rec_Type;
103 l_unexp_rev_sub_res_rec BOM_RTG_PUB.Rev_Sub_Res_Unexposed_Rec_Type;
104
105 l_eco_revision_tbl ENG_Eco_PUB.Eco_Revision_Tbl_Type;
106 l_revised_item_tbl ENG_Eco_PUB.Revised_Item_Tbl_Type;
107 l_rev_component_tbl BOM_BO_PUB.Rev_Component_Tbl_Type;
108 l_ref_designator_tbl BOM_BO_PUB.Ref_Designator_Tbl_Type;
109 l_sub_component_tbl BOM_BO_PUB.Sub_Component_Tbl_Type;
110
111 l_rev_operation_tbl BOM_RTG_PUB.Rev_Operation_Tbl_Type;
112 l_rev_op_resource_tbl BOM_RTG_PUB.Rev_Op_Resource_Tbl_Type;
113 l_rev_sub_resource_tbl BOM_RTG_PUB.Rev_Sub_Resource_Tbl_Type;
114
115
116 l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
117 l_return_status VARCHAR2(1);
118 l_msg_count NUMBER;
119 l_disable_revision NUMBER:=2; --BUG 3034642
120 BEGIN
121 Create_Exp_Unexp_Rec
122 ( p_controller_REV_rec => l_REV_controller_rec
123 , x_REV_tbl => l_eco_revision_tbl
124 , x_unexp_REV_rec => l_unexp_REV_rec
125 );
126
127 IF p_record_status IN ('NEW', 'INSERT')
128 THEN
129 l_eco_revision_tbl(1).transaction_type := 'CREATE';
130 ELSIF p_record_status IN ('QUERY', 'CHANGED')
131 THEN
132 l_eco_revision_tbl(1).transaction_type := 'UPDATE';
133 ELSIF p_record_status = 'DELETE'
134 THEN
135 l_eco_revision_tbl(1).transaction_type := 'DELETE';
136 END IF;
137
138 ENG_FORM_ECO_PVT.Process_ECO
139 ( x_return_status => l_return_status
140 , x_msg_count => l_msg_count
141 , p_control_rec => l_control_rec
142 , p_eco_revision_tbl => l_eco_revision_tbl
143 , p_unexp_eco_rev_rec => l_unexp_REV_rec
144 , x_eco_rec => l_eco_rec
145 , x_unexp_eco_rec => l_unexp_eco_rec
146 , x_unexp_eco_rev_rec => l_unexp_REV_rec
147 , x_unexp_revised_item_rec => l_unexp_rev_item_rec
148 , x_unexp_rev_comp_rec => l_unexp_CMP_rec
149 , x_unexp_sub_comp_rec => l_unexp_SBC_rec
150 , x_unexp_ref_desg_rec => l_unexp_RFD_rec
151 , x_unexp_rev_op_rec => l_unexp_rev_op_rec
152 , x_unexp_rev_op_res_rec => l_unexp_rev_op_res_rec
153 , x_unexp_rev_sub_res_rec => l_unexp_rev_sub_res_rec
154
155 , x_eco_revision_tbl => l_eco_revision_tbl
156 , x_revised_item_tbl => l_revised_item_tbl
157 , x_rev_Component_tbl => l_rev_Component_tbl
158 , x_ref_designator_tbl => l_ref_designator_tbl
159 , x_sub_component_tbl => l_sub_component_tbl
160
161 , x_rev_operation_tbl => l_rev_operation_tbl
162 , x_rev_op_resource_tbl => l_rev_op_resource_tbl
163 , x_rev_sub_resource_tbl => l_rev_sub_resource_tbl
164 , x_disable_revision => l_disable_revision --BUG 3034642
165
166 );
167
168 Create_Controller_Rec
169 ( p_REV_tbl => l_eco_revision_tbl
170 , p_unexp_REV_rec => l_unexp_REV_rec
171 , x_controller_REV_rec => l_REV_controller_rec
172 );
173
174 x_REV_controller_rec := l_REV_controller_rec;
175 x_return_status := l_return_status;
176
177 END Validate_And_Write;
178
179 -- Procedure Delete_Row
180
181 PROCEDURE Delete_Row
182 ( p_REV_controller_rec IN REV_Controller.Controller_REV_Rec_Type
183 , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
184 , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
185 , x_return_status OUT NOCOPY VARCHAR2
186 )
187 IS
188 l_control_rec BOM_BO_PUB.Control_Rec_Type := p_control_rec;
189 l_REV_controller_rec REV_Controller.Controller_REV_Rec_Type := p_REV_controller_rec;
190 l_ECO_rec ENG_ECO_PUB.ECO_Rec_Type;
191 l_unexp_eco_rec ENG_ECO_PUB.ECO_Unexposed_Rec_Type;
192 l_unexp_rev_item_rec ENG_ECO_PUB.Rev_Item_Unexposed_Rec_Type;
193 l_unexp_REV_rec ENG_ECO_PUB.Eco_Rev_Unexposed_Rec_Type;
194 l_unexp_CMP_rec BOM_BO_PUB.Rev_Comp_Unexposed_Rec_Type;
195 l_unexp_SBC_rec BOM_BO_PUB.Sub_Comp_Unexposed_Rec_Type;
196 l_unexp_RFD_rec BOM_BO_PUB.Ref_Desg_Unexposed_Rec_Type;
197
198 l_unexp_rev_op_rec BOM_RTG_PUB.Rev_Op_Unexposed_Rec_Type;
199 l_unexp_rev_op_res_rec BOM_RTG_PUB.Rev_Op_Res_Unexposed_Rec_Type;
200 l_unexp_rev_sub_res_rec BOM_RTG_PUB.Rev_Sub_Res_Unexposed_Rec_Type;
201
202 l_eco_revision_tbl ENG_Eco_PUB.Eco_Revision_Tbl_Type;
203 l_revised_item_tbl ENG_Eco_PUB.Revised_Item_Tbl_Type;
204 l_rev_component_tbl BOM_BO_PUB.Rev_Component_Tbl_Type;
205 l_ref_designator_tbl BOM_BO_PUB.Ref_Designator_Tbl_Type;
206 l_sub_component_tbl BOM_BO_PUB.Sub_Component_Tbl_Type;
207
208 l_rev_operation_tbl BOM_RTG_PUB.Rev_Operation_Tbl_Type;
209 l_rev_op_resource_tbl BOM_RTG_PUB.Rev_Op_Resource_Tbl_Type;
210 l_rev_sub_resource_tbl BOM_RTG_PUB.Rev_Sub_Resource_Tbl_Type;
211
212
213 l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
214 l_return_status VARCHAR2(1);
215 l_msg_count NUMBER;
216 l_disable_revision NUMBER:=2; --BUG 3034642
217 BEGIN
218 Create_Exp_Unexp_Rec
219 ( p_controller_REV_rec => l_REV_controller_rec
220 , x_REV_tbl => l_eco_revision_tbl
221 , x_unexp_REV_rec => l_unexp_REV_rec
222 );
223
224 l_rev_component_tbl(1).transaction_type := 'DELETE';
225
226 ENG_FORM_ECO_PVT.Process_ECO
227 ( x_return_status => l_return_status
228 , x_msg_count => l_msg_count
229 , p_control_rec => l_control_rec
230 , p_eco_revision_tbl => l_eco_revision_tbl
231 , p_unexp_eco_rev_rec => l_unexp_REV_rec
232 , x_eco_rec => l_eco_rec
233 , x_unexp_eco_rec => l_unexp_eco_rec
234 , x_unexp_eco_rev_rec => l_unexp_REV_rec
235 , x_unexp_revised_item_rec => l_unexp_rev_item_rec
236 , x_unexp_rev_comp_rec => l_unexp_CMP_rec
237 , x_unexp_sub_comp_rec => l_unexp_SBC_rec
238 , x_unexp_ref_desg_rec => l_unexp_RFD_rec
239 , x_unexp_rev_op_rec => l_unexp_rev_op_rec
240 , x_unexp_rev_op_res_rec => l_unexp_rev_op_res_rec
241 , x_unexp_rev_sub_res_rec => l_unexp_rev_sub_res_rec
242 , x_eco_revision_tbl => l_eco_revision_tbl
243 , x_revised_item_tbl => l_revised_item_tbl
244 , x_rev_Component_tbl => l_rev_Component_tbl
245 , x_ref_designator_tbl => l_ref_designator_tbl
246 , x_sub_component_tbl => l_sub_component_tbl
247 , x_rev_operation_tbl => l_rev_operation_tbl
248 , x_rev_op_resource_tbl => l_rev_op_resource_tbl
249 , x_rev_sub_resource_tbl => l_rev_sub_resource_tbl
250 , x_disable_revision => l_disable_revision --BUG 3034642
251 );
252
253 Create_Controller_Rec
254 ( p_REV_tbl => l_eco_revision_tbl
255 , p_unexp_REV_rec => l_unexp_REV_rec
256 , x_controller_REV_rec => l_REV_controller_rec
257 );
258
259 x_return_status := l_return_status;
260 END Delete_Row;
261
262 /*
263 --Procedure Change_Attibute
264
265 PROCEDURE Change_Attribute
266 ( p_REV_controller_rec IN ENG_ECO_PUB.Controller_REV_Rec_Type
267 , p_control_rec IN ENG_ECO_PUB.Control_Rec_Type
268 , p_record_status IN VARCHAR2
269 , x_REV_controller_rec IN OUT NOCOPY ENG_ECO_PUB.Controller_REV_Rec_Type
270 , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
271 , x_return_status OUT NOCOPY VARCHAR2
272 )
273 IS
274 l_control_rec ENG_ECO_PUB.Control_Rec_Type := p_control_rec;
275 l_REV_controller_rec ENG_ECO_PUB.Controller_REV_Rec_Type := p_REV_controller_rec;
276 l_ECO_rec ENG_ECO_PUB.ECO_Rec_Type;
277 l_unexp_eco_rec ENG_ECO_PUB.ECO_Unexposed_Rec_Type;
278 l_unexp_rev_item_rec ENG_ECO_PUB.Rev_Item_Unexposed_Rec_Type;
279 l_unexp_REV_rec ENG_ECO_PUB.Eco_Rev_Unexposed_Rec_Type;
280 l_unexp_rev_op_rec BOM_RTG_PUB.Rev_Op_Unexposed_Rec_Type;
281 l_unexp_rev_op_res_rec BOM_RTG_PUB.Rev_Op_Res_Unexposed_Rec_Type;
282 l_unexp_rev_sub_res_rec BOM_RTG_PUB.Rev_Sub_Res_Unexposed_Rec_Type;
283
284 l_eco_revision_tbl ENG_Eco_PUB.Eco_Revision_Tbl_Type;
285 l_revised_item_tbl ENG_Eco_PUB.Revised_Item_Tbl_Type;
286 l_rev_component_tbl ENG_ECO_PUB.Eco_Revision_Tbl_Type;
287 l_ref_designator_tbl ENG_ECO_PUB.Ref_Designator_Tbl_Type;
288 l_sub_component_tbl ENG_ECO_PUB.Sub_Component_Tbl_Type;
289
290 l_rev_operation_tbl BOM_RTG_PUB.Rev_Operation_Tbl_Type;
291 l_rev_op_resource_tbl BOM_RTG_PUB.Rev_Op_Resource_Tbl_Type;
292 l_rev_sub_resource_tbl BOM_RTG_PUB.Rev_Sub_Resource_Tbl_Type;
293
294
295 l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
296 l_return_status VARCHAR2(1);
297 l_msg_count NUMBER;
298 l_disable_revision NUMBER:=2; --BUG 3034642
299 BEGIN
300 Create_Exp_Unexp_Rec
301 ( p_controller_REV_rec => l_REV_controller_rec
302 , x_REV_tbl => l_rev_component_tbl
303 , x_unexp_REV_rec => l_unexp_REV_rec
304 );
305
306 IF p_record_status IN ('NEW', 'INSERT')
307 THEN
308 l_rev_component_tbl(1).transaction_type := 'CREATE';
309 ELSIF p_record_status IN ('QUERY', 'CHANGED')
310 THEN
311 l_rev_component_tbl(1).transaction_type := 'UPDATE';
312 ELSIF p_record_status = 'DELETE'
313 THEN
314 l_rev_component_tbl(1).transaction_type := 'DELETE';
315 END IF;
316
317 ENG_FORM_ECO_PVT.Process_ECO
318 ( x_return_status => l_return_status
319 , x_msg_count => l_msg_count
320 , p_control_rec => l_control_rec
321 , p_rev_component_tbl => l_rev_component_tbl
322 , p_unexp_rev_comp_rec => l_unexp_REV_rec
323 , x_eco_rec => l_eco_rec
324 , x_unexp_eco_rec => l_unexp_eco_rec
325 , x_unexp_revised_item_rec => l_unexp_rev_item_rec
326 , x_unexp_rev_comp_rec => l_unexp_REV_rec
327 , x_unexp_rev_op_rec => l_unexp_rev_op_rec
328 , x_unexp_rev_op_res_rec => l_unexp_rev_op_res_rec
329 , x_unexp_rev_sub_res_rec => l_unexp_rev_sub_res_rec
330 , x_eco_revision_tbl => l_eco_revision_tbl
331 , x_revised_item_tbl => l_revised_item_tbl
332 , x_rev_Component_tbl => l_rev_Component_tbl
333 , x_ref_designator_tbl => l_ref_designator_tbl
334 , x_sub_component_tbl => l_sub_component_tbl
335 , x_rev_operation_tbl => l_rev_operation_tbl
336 , x_rev_op_resource_tbl => l_rev_op_resource_tbl
337 , x_rev_sub_resource_tbl => l_rev_sub_resource_tbl
338 , x_disable_revision => l_disable_revision --BUG 3034642
339 );
340
341 Create_Controller_Rec
342 ( p_REV_tbl => l_rev_component_tbl
343 , p_unexp_REV_rec => l_unexp_REV_rec
344 , x_controller_REV_rec => l_REV_controller_rec
345 );
346
347 x_REV_controller_rec := l_REV_controller_rec;
348 x_return_status := l_return_status;
349 END Change_Attribute;
350
351 PROCEDURE Lock_Row
352 ( x_return_status OUT NOCOPY VARCHAR2
353 , x_err_text OUT NOCOPY VARCHAR2
354 , p_REV_tbl(1) IN ENG_Eco_PUB.Rit_Rec_Type
355 , x_REV_tbl(1) OUT NOCOPY ENG_Eco_PUB.Rit_Rec_Type
356 );
357 */
358
359 END REV_Controller;