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