[Home] [Help]
PACKAGE BODY: APPS.B_INV_COMP_INT_PKG
Source
1 PACKAGE BODY B_INV_COMP_INT_PKG as
2 /* $Header: bompicib.pls 120.2.12010000.2 2009/11/06 10:42:26 ybabulal ship $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5 X_Operation_Seq_Num NUMBER,
6 X_Component_Item_Id NUMBER,
7 X_Last_Update_Date DATE,
8 X_Last_Updated_By NUMBER,
9 X_Creation_Date DATE,
10 X_Created_By NUMBER,
11 X_Last_Update_Login NUMBER,
12 X_Item_Num NUMBER,
13 X_Basis_Type NUMBER,
14 X_Component_Quantity NUMBER,
15 X_Component_Yield_Factor NUMBER,
16 X_Disable_Date DATE,
17 X_To_End_Item_Unit_Number VARCHAR2,
18 X_Attribute_Category VARCHAR2,
19 X_Attribute1 VARCHAR2,
20 X_Attribute2 VARCHAR2,
21 X_Attribute3 VARCHAR2,
22 X_Attribute4 VARCHAR2,
23 X_Attribute5 VARCHAR2,
24 X_Attribute6 VARCHAR2,
25 X_Attribute7 VARCHAR2,
26 X_Attribute8 VARCHAR2,
27 X_Attribute9 VARCHAR2,
28 X_Attribute10 VARCHAR2,
29 X_Attribute11 VARCHAR2,
30 X_Attribute12 VARCHAR2,
31 X_Attribute13 VARCHAR2,
32 X_Attribute14 VARCHAR2,
33 X_Attribute15 VARCHAR2,
34 X_Planning_Factor NUMBER,
35 X_Quantity_Related NUMBER,
36 X_So_Basis NUMBER,
37 X_Optional NUMBER,
38 X_Mutually_Exclusive_Options NUMBER,
39 X_Include_In_Cost_Rollup NUMBER,
40 X_Check_Atp NUMBER,
41 X_Shipping_Allowed NUMBER,
42 X_Required_To_Ship NUMBER,
43 X_Required_For_Revenue NUMBER,
44 X_Include_On_Ship_Docs NUMBER,
45 X_Include_On_Bill_Docs NUMBER,
46 X_Low_Quantity NUMBER,
47 X_High_Quantity NUMBER,
48 X_Acd_Type NUMBER,
49 X_Old_Component_Sequence_Id NUMBER,
50 X_Component_Sequence_Id NUMBER,
51 X_Wip_Supply_Type NUMBER,
52 X_Supply_Subinventory VARCHAR2,
53 X_Supply_Locator_Id NUMBER,
54 X_Revised_Item_Sequence_Id NUMBER,
55 X_Cost_Factor NUMBER
56 ) IS
57
58 -- This table has no primary key
59
60 l_Basis_Type NUMBER; -- 5214239
61
62 CURSOR C IS SELECT rowid FROM BOM_INVENTORY_COMPS_INTERFACE
63 WHERE component_sequence_id = X_Component_Sequence_Id;
64
65 BEGIN
66
67 IF (X_Basis_Type <> 2) THEN -- 5214239
68 l_Basis_Type := FND_API.G_MISS_NUM;
69 ELSE l_Basis_Type := X_Basis_Type;
70 END IF;
71
72 INSERT INTO BOM_INVENTORY_COMPS_INTERFACE(
73 operation_seq_num,
74 component_item_id,
75 last_update_date,
76 last_updated_by,
77 creation_date,
78 created_by,
79 last_update_login,
80 item_num,
81 basis_type,
82 component_quantity,
83 component_yield_factor,
84 disable_date,
85 to_end_item_unit_number,
86 attribute_category,
87 attribute1,
88 attribute2,
89 attribute3,
90 attribute4,
91 attribute5,
92 attribute6,
93 attribute7,
94 attribute8,
95 attribute9,
96 attribute10,
97 attribute11,
98 attribute12,
99 attribute13,
100 attribute14,
101 attribute15,
102 planning_factor,
103 quantity_related,
104 so_basis,
105 optional,
106 mutually_exclusive_options,
107 include_in_cost_rollup,
108 check_atp,
109 shipping_allowed,
110 required_to_ship,
111 required_for_revenue,
112 include_on_ship_docs,
113 include_on_bill_docs,
114 low_quantity,
115 high_quantity,
116 acd_type,
117 old_component_sequence_id,
118 component_sequence_id,
119 wip_supply_type,
120 supply_subinventory,
121 supply_locator_id,
122 revised_item_sequence_id,
123 cost_factor
124 ) VALUES (
125 X_Operation_Seq_Num,
126 X_Component_Item_Id,
127 X_Last_Update_Date,
128 X_Last_Updated_By,
129 X_Creation_Date,
130 X_Created_By,
131 X_Last_Update_Login,
132 X_Item_Num,
133 l_Basis_Type, -- 5214239 X_Basis_Type,
134 X_Component_Quantity,
135 X_Component_Yield_Factor,
136 X_Disable_Date,
137 X_To_End_Item_Unit_Number,
138 X_Attribute_Category,
139 X_Attribute1,
140 X_Attribute2,
141 X_Attribute3,
142 X_Attribute4,
143 X_Attribute5,
144 X_Attribute6,
145 X_Attribute7,
146 X_Attribute8,
147 X_Attribute9,
148 X_Attribute10,
149 X_Attribute11,
150 X_Attribute12,
151 X_Attribute13,
152 X_Attribute14,
153 X_Attribute15,
154 X_Planning_Factor,
155 X_Quantity_Related,
156 X_So_Basis,
157 X_Optional,
158 X_Mutually_Exclusive_Options,
159 X_Include_In_Cost_Rollup,
160 X_Check_Atp,
161 X_Shipping_Allowed,
162 X_Required_To_Ship,
163 X_Required_For_Revenue,
164 X_Include_On_Ship_Docs,
165 X_Include_On_Bill_Docs,
166 X_Low_Quantity,
167 X_High_Quantity,
168 X_Acd_Type,
169 X_Old_Component_Sequence_Id,
170 X_Component_Sequence_Id,
171 X_Wip_Supply_Type,
172 X_Supply_Subinventory,
173 X_Supply_Locator_Id,
174 X_Revised_Item_Sequence_Id,
175 X_Cost_Factor
176 );
177
178 OPEN C;
179 FETCH C INTO X_Rowid;
180 if (C%NOTFOUND) then
181 CLOSE C;
182 Raise NO_DATA_FOUND;
183 end if;
184 CLOSE C;
185 END Insert_Row;
186
187
188 PROCEDURE Lock_Row( X_Rowid VARCHAR2,
189 X_Operation_Seq_Num NUMBER,
190 X_Component_Item_Id NUMBER,
191 X_Item_Num NUMBER,
192 X_Basis_Type NUMBER,
193 X_Component_Quantity NUMBER,
194 X_Component_Yield_Factor NUMBER,
195 X_Disable_Date DATE,
196 X_To_End_Item_Unit_Number VARCHAR2,
197 X_Attribute_Category VARCHAR2,
198 X_Attribute1 VARCHAR2,
199 X_Attribute2 VARCHAR2,
200 X_Attribute3 VARCHAR2,
201 X_Attribute4 VARCHAR2,
202 X_Attribute5 VARCHAR2,
203 X_Attribute6 VARCHAR2,
204 X_Attribute7 VARCHAR2,
205 X_Attribute8 VARCHAR2,
206 X_Attribute9 VARCHAR2,
207 X_Attribute10 VARCHAR2,
208 X_Attribute11 VARCHAR2,
209 X_Attribute12 VARCHAR2,
210 X_Attribute13 VARCHAR2,
211 X_Attribute14 VARCHAR2,
212 X_Attribute15 VARCHAR2,
213 X_Planning_Factor NUMBER,
214 X_Quantity_Related NUMBER,
215 X_So_Basis NUMBER,
216 X_Optional NUMBER,
217 X_Mutually_Exclusive_Options NUMBER,
218 X_Include_In_Cost_Rollup NUMBER,
219 X_Check_Atp NUMBER,
220 X_Shipping_Allowed NUMBER,
221 X_Required_To_Ship NUMBER,
222 X_Required_For_Revenue NUMBER,
223 X_Include_On_Ship_Docs NUMBER,
224 X_Include_On_Bill_Docs NUMBER,
225 X_Low_Quantity NUMBER,
226 X_High_Quantity NUMBER,
227 X_Acd_Type NUMBER,
228 X_Old_Component_Sequence_Id NUMBER,
229 X_Component_Sequence_Id NUMBER,
230 X_Wip_Supply_Type NUMBER,
231 X_Supply_Subinventory VARCHAR2,
232 X_Supply_Locator_Id NUMBER,
233 X_Revised_Item_Sequence_Id NUMBER,
234 X_Cost_Factor NUMBER
235 ) IS
236 CURSOR C IS
237 SELECT Operation_Seq_Num,
238 Component_Item_Id,
239 Item_Num,
240 Decode(basis_type,FND_API.G_MISS_NUM,1,basis_type) basis_type, /* bug 9079784*/
241 Component_Quantity,
242 Component_Yield_Factor,
243 Disable_Date,
244 To_End_Item_Unit_Number,
245 Attribute_Category,
246 Attribute1,
247 Attribute2,
248 Attribute3,
249 Attribute4,
250 Attribute5,
251 Attribute6,
252 Attribute7,
253 Attribute8,
254 Attribute9,
255 Attribute10,
256 Attribute11,
257 Attribute12,
258 Attribute13,
259 Attribute14,
260 Attribute15,
261 Planning_Factor,
262 Quantity_Related,
263 So_Basis,
264 Optional,
265 Mutually_Exclusive_Options,
266 Include_In_Cost_Rollup,
267 Check_Atp,
268 Shipping_Allowed,
269 Required_To_Ship,
270 Required_For_Revenue,
271 Include_On_Ship_Docs,
272 Include_On_Bill_Docs,
273 Low_Quantity,
274 High_Quantity,
275 Acd_Type,
276 Old_Component_Sequence_Id,
277 Component_Sequence_Id,
278 Wip_Supply_Type,
279 Supply_Subinventory,
280 Supply_Locator_Id,
281 Revised_Item_Sequence_Id,
282 Cost_Factor
283 FROM bom_inventory_comps_interface
284 WHERE rowid = X_Rowid
285 FOR UPDATE OF Acd_Type NOWAIT;
286 Recinfo C%ROWTYPE;
287
288
289 BEGIN
290 OPEN C;
291 FETCH C INTO Recinfo;
292 if (C%NOTFOUND) then
293 CLOSE C;
294 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
295 APP_EXCEPTION.Raise_Exception;
296 end if;
297 CLOSE C;
298 if (
299 ( (Recinfo.operation_seq_num = X_Operation_Seq_Num)
300 OR ( (Recinfo.operation_seq_num IS NULL)
301 AND (X_Operation_Seq_Num IS NULL)))
302 AND ( (Recinfo.component_item_id = X_Component_Item_Id)
303 OR ( (Recinfo.component_item_id IS NULL)
304 AND (X_Component_Item_Id IS NULL)))
305 AND ( (Recinfo.item_num = X_Item_Num)
306 OR ( (Recinfo.item_num IS NULL)
307 AND (X_Item_Num IS NULL)))
308 AND ( (Recinfo.basis_type= X_Basis_Type)
309 OR ( (Recinfo.basis_type IS NULL)
310 AND (X_basis_type IS NULL)))
311 AND ( (Recinfo.component_quantity = X_Component_Quantity)
312 OR ( (Recinfo.component_quantity IS NULL)
313 AND (X_Component_Quantity IS NULL)))
314 AND ( (Recinfo.component_yield_factor = X_Component_Yield_Factor)
315 OR ( (Recinfo.component_yield_factor IS NULL)
316 AND (X_Component_Yield_Factor IS NULL)))
317 AND ( (Recinfo.disable_date = X_Disable_Date)
318 OR ( (Recinfo.disable_date IS NULL)
319 AND (X_Disable_Date IS NULL)))
320 AND ( (Recinfo.to_end_item_unit_number = X_To_End_Item_Unit_Number)
321 OR ( (Recinfo.to_end_item_unit_number IS NULL)
322 AND (X_To_End_Item_Unit_Number IS NULL)))
323 AND ( (Recinfo.attribute_category = X_Attribute_Category)
324 OR ( (Recinfo.attribute_category IS NULL)
325 AND (X_Attribute_Category IS NULL)))
326 AND ( (Recinfo.attribute1 = X_Attribute1)
327 OR ( (Recinfo.attribute1 IS NULL)
328 AND (X_Attribute1 IS NULL)))
329 AND ( (Recinfo.attribute2 = X_Attribute2)
330 OR ( (Recinfo.attribute2 IS NULL)
331 AND (X_Attribute2 IS NULL)))
332 AND ( (Recinfo.attribute3 = X_Attribute3)
333 OR ( (Recinfo.attribute3 IS NULL)
334 AND (X_Attribute3 IS NULL)))
335 AND ( (Recinfo.attribute4 = X_Attribute4)
336 OR ( (Recinfo.attribute4 IS NULL)
337 AND (X_Attribute4 IS NULL)))
338 AND ( (Recinfo.attribute5 = X_Attribute5)
339 OR ( (Recinfo.attribute5 IS NULL)
340 AND (X_Attribute5 IS NULL)))
341 AND ( (Recinfo.attribute6 = X_Attribute6)
342 OR ( (Recinfo.attribute6 IS NULL)
343 AND (X_Attribute6 IS NULL)))
344 AND ( (Recinfo.attribute7 = X_Attribute7)
345 OR ( (Recinfo.attribute7 IS NULL)
346 AND (X_Attribute7 IS NULL)))
347 AND ( (Recinfo.attribute8 = X_Attribute8)
348 OR ( (Recinfo.attribute8 IS NULL)
349 AND (X_Attribute8 IS NULL)))
350 AND ( (Recinfo.attribute9 = X_Attribute9)
351 OR ( (Recinfo.attribute9 IS NULL)
352 AND (X_Attribute9 IS NULL)))
353 AND ( (Recinfo.attribute10 = X_Attribute10)
354 OR ( (Recinfo.attribute10 IS NULL)
355 AND (X_Attribute10 IS NULL)))
356 AND ( (Recinfo.attribute11 = X_Attribute11)
357 OR ( (Recinfo.attribute11 IS NULL)
358 AND (X_Attribute11 IS NULL)))
359 AND ( (Recinfo.attribute12 = X_Attribute12)
360 OR ( (Recinfo.attribute12 IS NULL)
361 AND (X_Attribute12 IS NULL)))
362 AND ( (Recinfo.attribute13 = X_Attribute13)
363 OR ( (Recinfo.attribute13 IS NULL)
364 AND (X_Attribute13 IS NULL)))
365 AND ( (Recinfo.attribute14 = X_Attribute14)
366 OR ( (Recinfo.attribute14 IS NULL)
367 AND (X_Attribute14 IS NULL)))
368 AND ( (Recinfo.attribute15 = X_Attribute15)
369 OR ( (Recinfo.attribute15 IS NULL)
370 AND (X_Attribute15 IS NULL)))
371 AND ( (Recinfo.planning_factor = X_Planning_Factor)
372 OR ( (Recinfo.planning_factor IS NULL)
373 AND (X_Planning_Factor IS NULL)))
374 AND ( (Recinfo.quantity_related = X_Quantity_Related)
375 OR ( (Recinfo.quantity_related IS NULL)
376 AND (X_Quantity_Related IS NULL)))
377 AND ( (Recinfo.so_basis = X_So_Basis)
378 OR ( (Recinfo.so_basis IS NULL)
379 AND (X_So_Basis IS NULL)))
380 AND ( (Recinfo.optional = X_Optional)
381 OR ( (Recinfo.optional IS NULL)
382 AND (X_Optional IS NULL)))
383 AND ( (Recinfo.mutually_exclusive_options = X_Mutually_Exclusive_Options)
384 OR ( (Recinfo.mutually_exclusive_options IS NULL)
385 AND (X_Mutually_Exclusive_Options IS NULL)))
386 AND ( (Recinfo.include_in_cost_rollup = X_Include_In_Cost_Rollup)
387 OR ( (Recinfo.include_in_cost_rollup IS NULL)
388 AND (X_Include_In_Cost_Rollup IS NULL)))
389 AND ( (Recinfo.check_atp = X_Check_Atp)
390 OR ( (Recinfo.check_atp IS NULL)
391 AND (X_Check_Atp IS NULL)))
392 AND ( (Recinfo.shipping_allowed = X_Shipping_Allowed)
393 OR ( (Recinfo.shipping_allowed IS NULL)
394 AND (X_Shipping_Allowed IS NULL)))
395 AND ( (Recinfo.required_to_ship = X_Required_To_Ship)
396 OR ( (Recinfo.required_to_ship IS NULL)
397 AND (X_Required_To_Ship IS NULL)))
398 AND ( (Recinfo.required_for_revenue = X_Required_For_Revenue)
399 OR ( (Recinfo.required_for_revenue IS NULL)
400 AND (X_Required_For_Revenue IS NULL)))
401 AND ( (Recinfo.include_on_ship_docs = X_Include_On_Ship_Docs)
402 OR ( (Recinfo.include_on_ship_docs IS NULL)
403 AND (X_Include_On_Ship_Docs IS NULL)))
404 AND ( (Recinfo.include_on_bill_docs = X_Include_On_Bill_Docs)
405 OR ( (Recinfo.include_on_bill_docs IS NULL)
406 AND (X_Include_On_Bill_Docs IS NULL)))
407 AND ( (Recinfo.low_quantity = X_Low_Quantity)
408 OR ( (Recinfo.low_quantity IS NULL)
409 AND (X_Low_Quantity IS NULL)))
410 AND ( (Recinfo.high_quantity = X_High_Quantity)
411 OR ( (Recinfo.high_quantity IS NULL)
412 AND (X_High_Quantity IS NULL)))
413 AND ( (Recinfo.acd_type = X_Acd_Type)
414 OR ( (Recinfo.acd_type IS NULL)
415 AND (X_Acd_Type IS NULL)))
416 AND ( (Recinfo.old_component_sequence_id = X_Old_Component_Sequence_Id)
417 OR ( (Recinfo.old_component_sequence_id IS NULL)
418 AND (X_Old_Component_Sequence_Id IS NULL)))
419 AND ( (Recinfo.component_sequence_id = X_Component_Sequence_Id)
420 OR ( (Recinfo.component_sequence_id IS NULL)
421 AND (X_Component_Sequence_Id IS NULL)))
422 AND ( (Recinfo.wip_supply_type = X_Wip_Supply_Type)
423 OR ( (Recinfo.wip_supply_type IS NULL)
424 AND (X_Wip_Supply_Type IS NULL)))
425 AND ( (Recinfo.supply_subinventory = X_Supply_Subinventory)
426 OR ( (Recinfo.supply_subinventory IS NULL)
427 AND (X_Supply_Subinventory IS NULL)))
428 AND ( (Recinfo.supply_locator_id = X_Supply_Locator_Id)
429 OR ( (Recinfo.supply_locator_id IS NULL)
430 AND (X_Supply_Locator_Id IS NULL)))
431 AND ( (Recinfo.revised_item_sequence_id = X_Revised_Item_Sequence_Id)
432 OR ( (Recinfo.revised_item_sequence_id IS NULL)
433 AND (X_Revised_Item_Sequence_Id IS NULL)))
434 AND ( (Recinfo.cost_factor = X_Cost_Factor)
435 OR ( (Recinfo.cost_factor IS NULL)
436 AND (X_Cost_Factor IS NULL)))
437 ) then
438 return;
439 else
440 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
441 APP_EXCEPTION.Raise_Exception;
442 end if;
443 END Lock_Row;
444
445
446
447 PROCEDURE Update_Row(X_Rowid VARCHAR2,
448 X_Operation_Seq_Num NUMBER,
449 X_Component_Item_Id NUMBER,
450 X_Last_Update_Date DATE,
451 X_Last_Updated_By NUMBER,
452 X_Last_Update_Login NUMBER,
453 X_Item_Num NUMBER,
454 X_Basis_Type NUMBER,
455 X_Component_Quantity NUMBER,
456 X_Component_Yield_Factor NUMBER,
457 X_Disable_Date DATE,
458 X_To_End_Item_Unit_Number VARCHAR2,
459 X_Attribute_Category VARCHAR2,
460 X_Attribute1 VARCHAR2,
461 X_Attribute2 VARCHAR2,
462 X_Attribute3 VARCHAR2,
463 X_Attribute4 VARCHAR2,
464 X_Attribute5 VARCHAR2,
465 X_Attribute6 VARCHAR2,
466 X_Attribute7 VARCHAR2,
467 X_Attribute8 VARCHAR2,
468 X_Attribute9 VARCHAR2,
469 X_Attribute10 VARCHAR2,
470 X_Attribute11 VARCHAR2,
471 X_Attribute12 VARCHAR2,
472 X_Attribute13 VARCHAR2,
473 X_Attribute14 VARCHAR2,
474 X_Attribute15 VARCHAR2,
475 X_Planning_Factor NUMBER,
476 X_Quantity_Related NUMBER,
477 X_So_Basis NUMBER,
478 X_Optional NUMBER,
479 X_Mutually_Exclusive_Options NUMBER,
480 X_Include_In_Cost_Rollup NUMBER,
481 X_Check_Atp NUMBER,
482 X_Shipping_Allowed NUMBER,
483 X_Required_To_Ship NUMBER,
484 X_Required_For_Revenue NUMBER,
485 X_Include_On_Ship_Docs NUMBER,
486 X_Include_On_Bill_Docs NUMBER,
487 X_Low_Quantity NUMBER,
488 X_High_Quantity NUMBER,
489 X_Acd_Type NUMBER,
490 X_Old_Component_Sequence_Id NUMBER,
491 X_Component_Sequence_Id NUMBER,
492 X_Wip_Supply_Type NUMBER,
493 X_Supply_Subinventory VARCHAR2,
494 X_Supply_Locator_Id NUMBER,
495 X_Revised_Item_Sequence_Id NUMBER,
496 X_Cost_Factor NUMBER
497 ) IS
498 l_Basis_Type NUMBER; -- 5214239
499
500 BEGIN
501 IF (X_Basis_Type <> 2) THEN -- 5214239
502 l_Basis_Type := FND_API.G_MISS_NUM;
503 ELSE l_Basis_Type := X_Basis_Type;
504 END IF;
505
506 UPDATE BOM_INVENTORY_COMPS_INTERFACE
507 SET
508 operation_seq_num = X_Operation_Seq_Num,
509 component_item_id = X_Component_Item_Id,
510 last_update_date = X_Last_Update_Date,
511 last_updated_by = X_Last_Updated_By,
512 last_update_login = X_Last_Update_Login,
513 item_num = X_Item_Num,
514 basis_type = l_Basis_Type, --5214239
515 component_quantity = X_Component_Quantity,
516 component_yield_factor = X_Component_Yield_Factor,
517 disable_date = X_Disable_Date,
518 to_end_item_unit_number = X_To_End_Item_Unit_Number,
519 attribute_category = X_Attribute_Category,
520 attribute1 = X_Attribute1,
521 attribute2 = X_Attribute2,
522 attribute3 = X_Attribute3,
523 attribute4 = X_Attribute4,
524 attribute5 = X_Attribute5,
525 attribute6 = X_Attribute6,
526 attribute7 = X_Attribute7,
527 attribute8 = X_Attribute8,
528 attribute9 = X_Attribute9,
529 attribute10 = X_Attribute10,
530 attribute11 = X_Attribute11,
531 attribute12 = X_Attribute12,
532 attribute13 = X_Attribute13,
533 attribute14 = X_Attribute14,
534 attribute15 = X_Attribute15,
535 planning_factor = X_Planning_Factor,
536 quantity_related = X_Quantity_Related,
537 so_basis = X_So_Basis,
538 optional = X_Optional,
539 mutually_exclusive_options = X_Mutually_Exclusive_Options,
540 include_in_cost_rollup = X_Include_In_Cost_Rollup,
541 check_atp = X_Check_Atp,
542 shipping_allowed = X_Shipping_Allowed,
543 required_to_ship = X_Required_To_Ship,
544 required_for_revenue = X_Required_For_Revenue,
545 include_on_ship_docs = X_Include_On_Ship_Docs,
546 include_on_bill_docs = X_Include_On_Bill_Docs,
547 low_quantity = X_Low_Quantity,
548 high_quantity = X_High_Quantity,
549 acd_type = X_Acd_Type,
550 old_component_sequence_id = X_Old_Component_Sequence_Id,
551 component_sequence_id = X_Component_Sequence_Id,
552 wip_supply_type = X_Wip_Supply_Type,
553 supply_subinventory = X_Supply_Subinventory,
554 supply_locator_id = X_Supply_Locator_Id,
555 revised_item_sequence_id = X_Revised_Item_Sequence_Id,
556 cost_factor = X_Cost_Factor
557 WHERE rowid = X_Rowid;
558
559 if (SQL%NOTFOUND) then
560 Raise NO_DATA_FOUND;
561 end if;
562 END Update_Row;
563
564 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
565 BEGIN
566 DELETE FROM BOM_INVENTORY_COMPS_INTERFACE
567 WHERE rowid = X_Rowid;
568
569 if (SQL%NOTFOUND) then
570 Raise NO_DATA_FOUND;
571 end if;
572 END Delete_Row;
573
574
575 END B_INV_COMP_INT_PKG;