[Home] [Help]
120: l_unit_weight NUMBER := null;
121: l_qty NUMBER := 0;
122: l_net_weight_uom varchar2(30) := null;
123: l_net_wt_uom varchar2(30);
124: l_Comp_Attrs Bom_Rollup_Pub.Attribute_Map;
125: l_CAttrs_Map Bom_Rollup_Pub.Component_Seq_Attrs_Tbl;
126: BEGIN
127: --
128: -- Net Weight rollup happens as the following equation:
121: l_qty NUMBER := 0;
122: l_net_weight_uom varchar2(30) := null;
123: l_net_wt_uom varchar2(30);
124: l_Comp_Attrs Bom_Rollup_Pub.Attribute_Map;
125: l_CAttrs_Map Bom_Rollup_Pub.Component_Seq_Attrs_Tbl;
126: BEGIN
127: --
128: -- Net Weight rollup happens as the following equation:
129: -- assembly item wt = 1..n[sum(all gtin components)]
127: --
128: -- Net Weight rollup happens as the following equation:
129: -- assembly item wt = 1..n[sum(all gtin components)]
130: --
131: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT = 0)
132: THEN
133: -- If it is not an each, reset weight attributes
134: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
135:
130: --
131: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT = 0)
132: THEN
133: -- If it is not an each, reset weight attributes
134: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
135:
136: Bom_Rollup_Pub.Set_Parent_Attribute('UNIT_WEIGHT',null);
137: Bom_Rollup_Pub.Set_Parent_Attribute('NET_WEIGHT_UOM',null);
138:
132: THEN
133: -- If it is not an each, reset weight attributes
134: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
135:
136: Bom_Rollup_Pub.Set_Parent_Attribute('UNIT_WEIGHT',null);
137: Bom_Rollup_Pub.Set_Parent_Attribute('NET_WEIGHT_UOM',null);
138:
139: END IF;
140:
133: -- If it is not an each, reset weight attributes
134: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
135:
136: Bom_Rollup_Pub.Set_Parent_Attribute('UNIT_WEIGHT',null);
137: Bom_Rollup_Pub.Set_Parent_Attribute('NET_WEIGHT_UOM',null);
138:
139: END IF;
140:
141: RETURN;
141: RETURN;
142: END IF;
143:
144: -- Ensure that this item is UCCNet enabled
145: IF (Bom_Rollup_Pub.Is_Pack_Item(p_header_item_id, p_organization_id) <> 'Y')
146: THEN
147: RETURN;
148: END IF;
149:
146: THEN
147: RETURN;
148: END IF;
149:
150: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
151: LOOP
152: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
153: THEN
154: Bom_Rollup_Pub.Write_Debug_Log(Bom_Rollup_Pub.G_BO_IDENTIFIER, 'Entering GDSN Check');
148: END IF;
149:
150: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
151: LOOP
152: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
153: THEN
154: Bom_Rollup_Pub.Write_Debug_Log(Bom_Rollup_Pub.G_BO_IDENTIFIER, 'Entering GDSN Check');
155: -- Only GDSN Items should be accounted bug # 4359090
156: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(
150: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
151: LOOP
152: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
153: THEN
154: Bom_Rollup_Pub.Write_Debug_Log(Bom_Rollup_Pub.G_BO_IDENTIFIER, 'Entering GDSN Check');
155: -- Only GDSN Items should be accounted bug # 4359090
156: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(
157: Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id,
158: p_organization_id)
152: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
153: THEN
154: Bom_Rollup_Pub.Write_Debug_Log(Bom_Rollup_Pub.G_BO_IDENTIFIER, 'Entering GDSN Check');
155: -- Only GDSN Items should be accounted bug # 4359090
156: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(
157: Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id,
158: p_organization_id)
159: = 'Y')
160: THEN
153: THEN
154: Bom_Rollup_Pub.Write_Debug_Log(Bom_Rollup_Pub.G_BO_IDENTIFIER, 'Entering GDSN Check');
155: -- Only GDSN Items should be accounted bug # 4359090
156: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(
157: Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id,
158: p_organization_id)
159: = 'Y')
160: THEN
161: IF p_validate = 'Y' THEN
161: IF p_validate = 'Y' THEN
162: Bom_Gtin_Rules.Check_GTIN_Attributes
163: ( p_assembly_item_id => p_header_item_id
164: , p_organization_id => p_organization_id
165: , p_component_item_id => Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id
166: , p_ignore_published => 'Y'
167: , x_return_status => x_return_status
168: , x_error_message => x_error_message
169: );
166: , p_ignore_published => 'Y'
167: , x_return_status => x_return_status
168: , x_error_message => x_error_message
169: );
170: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
171: 'Check gtin attribs called for parent '||p_header_item_id||
172: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
173: x_return_status||':'||x_error_message);
174:
168: , x_error_message => x_error_message
169: );
170: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
171: 'Check gtin attribs called for parent '||p_header_item_id||
172: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
173: x_return_status||':'||x_error_message);
174:
175: IF p_halt_on_error = 'Y' AND
176: x_return_status IS NOT NULL AND
183: END IF;
184: END IF;
185:
186:
187: l_unit_weight := to_number(Bom_Rollup_Pub.Get_Attribute_Value
188: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
189: , p_attribute_name => 'UNIT_WEIGHT'
190: )
191: );
184: END IF;
185:
186:
187: l_unit_weight := to_number(Bom_Rollup_Pub.Get_Attribute_Value
188: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
189: , p_attribute_name => 'UNIT_WEIGHT'
190: )
191: );
192:
189: , p_attribute_name => 'UNIT_WEIGHT'
190: )
191: );
192:
193: l_qty := to_number(Bom_Rollup_Pub.Get_Attribute_Value
194: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
195: , p_attribute_name => 'COMPONENT_QUANTITY'
196: )
197: );
190: )
191: );
192:
193: l_qty := to_number(Bom_Rollup_Pub.Get_Attribute_Value
194: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
195: , p_attribute_name => 'COMPONENT_QUANTITY'
196: )
197: );
198:
195: , p_attribute_name => 'COMPONENT_QUANTITY'
196: )
197: );
198:
199: l_net_wt_uom := Bom_Rollup_Pub.Get_Attribute_Value
200: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
201: , p_attribute_name => 'NET_WEIGHT_UOM'
202: );
203:
196: )
197: );
198:
199: l_net_wt_uom := Bom_Rollup_Pub.Get_Attribute_Value
200: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
201: , p_attribute_name => 'NET_WEIGHT_UOM'
202: );
203:
204: --l_net_weight := l_net_weight + (l_qty * l_unit_weight);
217: END IF; --GDSN CHECK
218: END IF; -- make sure to retrieve the collection only if exists a row.
219: END LOOP;
220:
221: Bom_Rollup_Pub.Set_Parent_Attribute('UNIT_WEIGHT',l_net_weight);
222: Bom_Rollup_Pub.Set_Parent_Attribute('NET_WEIGHT_UOM',l_net_weight_uom);
223:
224: END Rollup_Net_Weight;
225:
218: END IF; -- make sure to retrieve the collection only if exists a row.
219: END LOOP;
220:
221: Bom_Rollup_Pub.Set_Parent_Attribute('UNIT_WEIGHT',l_net_weight);
222: Bom_Rollup_Pub.Set_Parent_Attribute('NET_WEIGHT_UOM',l_net_weight_uom);
223:
224: END Rollup_Net_Weight;
225:
226:
268:
269: --
270: -- assembly item wt = 1..n[sum(of all components)]
271: --
272: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT = 0)
273: THEN
274: -- If it is not an each, reset weight attributes
275: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
276:
271: --
272: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT = 0)
273: THEN
274: -- If it is not an each, reset weight attributes
275: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
276:
277: Bom_Rollup_Pub.Set_Parent_Attribute('GROSS_WEIGHT',null);
278: Bom_Rollup_Pub.Set_Parent_Attribute('GROSS_WEIGHT_UOM',null);
279:
273: THEN
274: -- If it is not an each, reset weight attributes
275: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
276:
277: Bom_Rollup_Pub.Set_Parent_Attribute('GROSS_WEIGHT',null);
278: Bom_Rollup_Pub.Set_Parent_Attribute('GROSS_WEIGHT_UOM',null);
279:
280: END IF;
281:
274: -- If it is not an each, reset weight attributes
275: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
276:
277: Bom_Rollup_Pub.Set_Parent_Attribute('GROSS_WEIGHT',null);
278: Bom_Rollup_Pub.Set_Parent_Attribute('GROSS_WEIGHT_UOM',null);
279:
280: END IF;
281:
282: RETURN;
282: RETURN;
283: END IF;
284:
285: -- Ensure that this item is UCCNet enabled
286: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(p_header_item_id, p_organization_id) <> 'Y')
287: THEN
288: RETURN;
289: END IF;
290:
287: THEN
288: RETURN;
289: END IF;
290:
291: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
292: LOOP
293: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
294: THEN
295:
289: END IF;
290:
291: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
292: LOOP
293: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
294: THEN
295:
296: IF p_validate = 'Y' THEN
297:
297:
298: Bom_Gtin_Rules.Check_GTIN_Attributes
299: ( p_assembly_item_id => p_header_item_id
300: , p_organization_id => p_organization_id
301: , p_component_item_id => Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id
302: , p_ignore_published => 'Y'
303: , x_return_status => x_return_status
304: , x_error_message => x_error_message
305: );
302: , p_ignore_published => 'Y'
303: , x_return_status => x_return_status
304: , x_error_message => x_error_message
305: );
306: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
307: 'Check gtin attribs called for parent '||p_header_item_id||
308: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
309: x_return_status||':'||x_error_message);
310:
304: , x_error_message => x_error_message
305: );
306: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
307: 'Check gtin attribs called for parent '||p_header_item_id||
308: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
309: x_return_status||':'||x_error_message);
310:
311: IF p_halt_on_error = 'Y' AND
312: x_return_status IS NOT NULL AND
321: END IF;
322:
323:
324: l_unit_weight :=
325: to_number(Bom_Rollup_Pub.Get_Attribute_Value
326: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
327: , p_attribute_name => 'UNIT_WEIGHT'
328: )
329: );
322:
323:
324: l_unit_weight :=
325: to_number(Bom_Rollup_Pub.Get_Attribute_Value
326: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
327: , p_attribute_name => 'UNIT_WEIGHT'
328: )
329: );
330: l_gross_wt :=
327: , p_attribute_name => 'UNIT_WEIGHT'
328: )
329: );
330: l_gross_wt :=
331: to_number(Bom_Rollup_Pub.Get_Attribute_Value
332: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
333: , p_attribute_name => 'GROSS_WEIGHT'
334: )
335: );
328: )
329: );
330: l_gross_wt :=
331: to_number(Bom_Rollup_Pub.Get_Attribute_Value
332: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
333: , p_attribute_name => 'GROSS_WEIGHT'
334: )
335: );
336: l_qty :=
333: , p_attribute_name => 'GROSS_WEIGHT'
334: )
335: );
336: l_qty :=
337: to_number(Bom_Rollup_Pub.Get_Attribute_Value
338: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
339: , p_attribute_name => 'COMPONENT_QUANTITY'
340: )
341: );
334: )
335: );
336: l_qty :=
337: to_number(Bom_Rollup_Pub.Get_Attribute_Value
338: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
339: , p_attribute_name => 'COMPONENT_QUANTITY'
340: )
341: );
342: l_gross_nwt_uom := Bom_Rollup_Pub.Get_Attribute_Value
338: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
339: , p_attribute_name => 'COMPONENT_QUANTITY'
340: )
341: );
342: l_gross_nwt_uom := Bom_Rollup_Pub.Get_Attribute_Value
343: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
344: , p_attribute_name => 'NET_WEIGHT_UOM'
345: );
346: l_gross_gwt_uom := Bom_Rollup_Pub.Get_Attribute_Value
339: , p_attribute_name => 'COMPONENT_QUANTITY'
340: )
341: );
342: l_gross_nwt_uom := Bom_Rollup_Pub.Get_Attribute_Value
343: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
344: , p_attribute_name => 'NET_WEIGHT_UOM'
345: );
346: l_gross_gwt_uom := Bom_Rollup_Pub.Get_Attribute_Value
347: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
342: l_gross_nwt_uom := Bom_Rollup_Pub.Get_Attribute_Value
343: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
344: , p_attribute_name => 'NET_WEIGHT_UOM'
345: );
346: l_gross_gwt_uom := Bom_Rollup_Pub.Get_Attribute_Value
347: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
348: , p_attribute_name => 'GROSS_WEIGHT_UOM'
349: );
350: /*
343: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
344: , p_attribute_name => 'NET_WEIGHT_UOM'
345: );
346: l_gross_gwt_uom := Bom_Rollup_Pub.Get_Attribute_Value
347: ( p_component_sequence_id=> Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
348: , p_attribute_name => 'GROSS_WEIGHT_UOM'
349: );
350: /*
351: if ( (l_gross_wt is not null) and (l_gross_wt > 0) ) then
375: END LOOP;
376:
377:
378:
379: Bom_Rollup_Pub.Set_Parent_Attribute('GROSS_WEIGHT',l_gross_weight);
380: Bom_Rollup_Pub.Set_Parent_Attribute('GROSS_WEIGHT_UOM',l_gross_gwt_uom);
381:
382: END Rollup_Gross_Weight;
383:
376:
377:
378:
379: Bom_Rollup_Pub.Set_Parent_Attribute('GROSS_WEIGHT',l_gross_weight);
380: Bom_Rollup_Pub.Set_Parent_Attribute('GROSS_WEIGHT_UOM',l_gross_gwt_uom);
381:
382: END Rollup_Gross_Weight;
383:
384: /*#
403: IS
404: l_private_flag VARCHAR2(1) := 'N';
405: BEGIN
406:
407: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT = 0)
408: THEN
409: -- If it is not an each, reset weight attributes
410: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
411:
406:
407: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT = 0)
408: THEN
409: -- If it is not an each, reset weight attributes
410: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
411:
412: Bom_Rollup_Pub.Set_Parent_Attribute('IS_TRADE_ITEM_INFO_PRIVATE',null);
413:
414: END IF;
408: THEN
409: -- If it is not an each, reset weight attributes
410: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
411:
412: Bom_Rollup_Pub.Set_Parent_Attribute('IS_TRADE_ITEM_INFO_PRIVATE',null);
413:
414: END IF;
415:
416: RETURN;
416: RETURN;
417: END IF;
418:
419: -- Ensure that this item is UCCNet enabled
420: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(p_header_item_id, p_organization_id) <> 'Y')
421: THEN
422: RETURN;
423: END IF;
424:
421: THEN
422: RETURN;
423: END IF;
424:
425: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
426: LOOP
427: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index) AND
428: l_private_flag = 'N'
429: THEN
423: END IF;
424:
425: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
426: LOOP
427: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index) AND
428: l_private_flag = 'N'
429: THEN
430: IF p_validate = 'Y' THEN
431:
431:
432: Bom_Gtin_Rules.Check_GTIN_Attributes
433: ( p_assembly_item_id => p_header_item_id
434: , p_organization_id => p_organization_id
435: , p_component_item_id => Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id
436: , p_ignore_published => 'Y'
437: , x_return_status => x_return_status
438: , x_error_message => x_error_message
439: );
436: , p_ignore_published => 'Y'
437: , x_return_status => x_return_status
438: , x_error_message => x_error_message
439: );
440: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
441: 'Check gtin attribs called for parent '||p_header_item_id||
442: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
443: x_return_status||':'||x_error_message);
444:
438: , x_error_message => x_error_message
439: );
440: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
441: 'Check gtin attribs called for parent '||p_header_item_id||
442: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
443: x_return_status||':'||x_error_message);
444:
445: IF p_halt_on_error = 'Y' AND
446: x_return_status IS NOT NULL AND
453: END IF;
454:
455: END IF;
456:
457: IF Bom_Rollup_Pub.Get_Attribute_Value
458: ( p_attribute_name => 'IS_TRADE_ITEM_INFO_PRIVATE'
459: , p_component_sequence_id => Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
460: ) = 'Y'
461: THEN
455: END IF;
456:
457: IF Bom_Rollup_Pub.Get_Attribute_Value
458: ( p_attribute_name => 'IS_TRADE_ITEM_INFO_PRIVATE'
459: , p_component_sequence_id => Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
460: ) = 'Y'
461: THEN
462: l_private_flag := 'Y';
463:
470: -- set the private flag only if atleast 1 component is Private.
471: --
472: IF l_private_flag = 'Y'
473: THEN
474: Bom_Rollup_Pub.Set_Parent_Attribute('IS_TRADE_ITEM_INFO_PRIVATE',l_private_flag);
475: END IF;
476:
477: END Propogate_Private_Flag;
478:
491: l_sub_brand VARCHAR2(35) := '';
492:
493: BEGIN
494:
495: IF (Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.COUNT = 0)
496: THEN
497: -- If it is not an each, reset weight attributes
498: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
499:
494:
495: IF (Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.COUNT = 0)
496: THEN
497: -- If it is not an each, reset weight attributes
498: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
499:
500: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_NAME',null);
501: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_GLN',null);
502: Bom_Rollup_Pub.Set_Parent_Attribute('FUNCTIONAL_NAME',null);
496: THEN
497: -- If it is not an each, reset weight attributes
498: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
499:
500: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_NAME',null);
501: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_GLN',null);
502: Bom_Rollup_Pub.Set_Parent_Attribute('FUNCTIONAL_NAME',null);
503: Bom_Rollup_Pub.Set_Parent_Attribute('SUB_BRAND',null);
504:
497: -- If it is not an each, reset weight attributes
498: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
499:
500: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_NAME',null);
501: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_GLN',null);
502: Bom_Rollup_Pub.Set_Parent_Attribute('FUNCTIONAL_NAME',null);
503: Bom_Rollup_Pub.Set_Parent_Attribute('SUB_BRAND',null);
504:
505: END IF;
498: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
499:
500: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_NAME',null);
501: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_GLN',null);
502: Bom_Rollup_Pub.Set_Parent_Attribute('FUNCTIONAL_NAME',null);
503: Bom_Rollup_Pub.Set_Parent_Attribute('SUB_BRAND',null);
504:
505: END IF;
506:
499:
500: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_NAME',null);
501: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_GLN',null);
502: Bom_Rollup_Pub.Set_Parent_Attribute('FUNCTIONAL_NAME',null);
503: Bom_Rollup_Pub.Set_Parent_Attribute('SUB_BRAND',null);
504:
505: END IF;
506:
507: RETURN;
507: RETURN;
508: END IF;
509:
510: -- Ensure that this item is UCCNet enabled
511: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(p_header_item_id, p_organization_id) <> 'Y')
512: THEN
513: RETURN;
514: END IF;
515:
514: END IF;
515:
516: IF p_validate = 'Y' THEN
517:
518: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
519: LOOP
520:
521: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
522: THEN
517:
518: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
519: LOOP
520:
521: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
522: THEN
523:
524: Bom_Gtin_Rules.Check_GTIN_Attributes
525: ( p_assembly_item_id => p_header_item_id
523:
524: Bom_Gtin_Rules.Check_GTIN_Attributes
525: ( p_assembly_item_id => p_header_item_id
526: , p_organization_id => p_organization_id
527: , p_component_item_id => Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id
528: , p_ignore_published => 'Y'
529: , x_return_status => x_return_status
530: , x_error_message => x_error_message
531: );
528: , p_ignore_published => 'Y'
529: , x_return_status => x_return_status
530: , x_error_message => x_error_message
531: );
532: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
533: 'Check gtin attribs called for parent '||p_header_item_id||
534: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
535: x_return_status||':'||x_error_message);
536:
530: , x_error_message => x_error_message
531: );
532: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
533: 'Check gtin attribs called for parent '||p_header_item_id||
534: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
535: x_return_status||':'||x_error_message);
536:
537: IF p_halt_on_error = 'Y' AND
538: x_return_status IS NOT NULL AND
550:
551: END IF;
552:
553:
554: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.LAST
555: LOOP
556: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.EXISTS(cmp_index)
557: THEN
558: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
552:
553:
554: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.LAST
555: LOOP
556: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.EXISTS(cmp_index)
557: THEN
558: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
559: 'BRAND_OWNER_NAME'
560: THEN
554: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.LAST
555: LOOP
556: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.EXISTS(cmp_index)
557: THEN
558: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
559: 'BRAND_OWNER_NAME'
560: THEN
561: l_brand_owner_name :=
562: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
558: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
559: 'BRAND_OWNER_NAME'
560: THEN
561: l_brand_owner_name :=
562: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
563: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_NAME',l_brand_owner_name);
564: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
565: 'BRAND_OWNER_GLN'
566: THEN
559: 'BRAND_OWNER_NAME'
560: THEN
561: l_brand_owner_name :=
562: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
563: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_NAME',l_brand_owner_name);
564: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
565: 'BRAND_OWNER_GLN'
566: THEN
567: l_brand_owner_gln :=
560: THEN
561: l_brand_owner_name :=
562: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
563: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_NAME',l_brand_owner_name);
564: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
565: 'BRAND_OWNER_GLN'
566: THEN
567: l_brand_owner_gln :=
568: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
564: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
565: 'BRAND_OWNER_GLN'
566: THEN
567: l_brand_owner_gln :=
568: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
569: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_GLN',l_brand_owner_gln);
570: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
571: 'FUNCTIONAL_NAME'
572: THEN
565: 'BRAND_OWNER_GLN'
566: THEN
567: l_brand_owner_gln :=
568: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
569: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_GLN',l_brand_owner_gln);
570: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
571: 'FUNCTIONAL_NAME'
572: THEN
573: l_functional_name :=
566: THEN
567: l_brand_owner_gln :=
568: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
569: Bom_Rollup_Pub.Set_Parent_Attribute('BRAND_OWNER_GLN',l_brand_owner_gln);
570: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
571: 'FUNCTIONAL_NAME'
572: THEN
573: l_functional_name :=
574: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
570: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
571: 'FUNCTIONAL_NAME'
572: THEN
573: l_functional_name :=
574: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
575: Bom_Rollup_Pub.Set_Parent_Attribute('FUNCTIONAL_NAME',l_functional_name);
576: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
577: 'SUB_BRAND'
578: THEN
571: 'FUNCTIONAL_NAME'
572: THEN
573: l_functional_name :=
574: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
575: Bom_Rollup_Pub.Set_Parent_Attribute('FUNCTIONAL_NAME',l_functional_name);
576: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
577: 'SUB_BRAND'
578: THEN
579: l_sub_brand :=
572: THEN
573: l_functional_name :=
574: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
575: Bom_Rollup_Pub.Set_Parent_Attribute('FUNCTIONAL_NAME',l_functional_name);
576: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
577: 'SUB_BRAND'
578: THEN
579: l_sub_brand :=
580: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
576: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
577: 'SUB_BRAND'
578: THEN
579: l_sub_brand :=
580: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
581: Bom_Rollup_Pub.Set_Parent_Attribute('SUB_BRAND',l_sub_brand);
582: END IF;
583: END IF; -- fetch a collection row only if one exists.
584: END LOOP;
577: 'SUB_BRAND'
578: THEN
579: l_sub_brand :=
580: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
581: Bom_Rollup_Pub.Set_Parent_Attribute('SUB_BRAND',l_sub_brand);
582: END IF;
583: END IF; -- fetch a collection row only if one exists.
584: END LOOP;
585:
628: IS
629: CURSOR c_cons_ord_flag(p_item_id NUMBER) IS
630: SELECT is_trade_item_a_consumer_unit
631: , customer_order_enabled_flag
632: , Bom_Rollup_Pub.Is_UCCNet_Enabled(p_item_id, p_organization_id) is_uccnet
633: FROM ego_items_v
634: WHERE inventory_item_id = p_item_id
635: AND organization_id = p_organization_id;
636:
636:
637: CURSOR c_comp_cons_ord_flag(p_component_sequence_id NUMBER) IS
638: SELECT is_trade_item_a_consumer_unit
639: , customer_order_enabled_flag
640: , Bom_Rollup_Pub.Is_UCCNet_Enabled(bic.component_item_id, p_organization_id) is_uccnet
641: FROM ego_items_v
642: , bom_components_b bic
643: WHERE inventory_item_id = bic.component_item_id
644: AND organization_id = p_organization_id
655: l_found_consumable VARCHAR2(1);
656: l_found_orderable VARCHAR2(1);
657: BEGIN
658:
659: Bom_Rollup_Pub.WRITE_DEBUG_LOG ( p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
660: , p_message => 'Inside TOP GTIN');
661:
662: -- Ensure that this item is UCCNet enabled
663: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(p_header_item_id, p_organization_id) <> 'Y')
659: Bom_Rollup_Pub.WRITE_DEBUG_LOG ( p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
660: , p_message => 'Inside TOP GTIN');
661:
662: -- Ensure that this item is UCCNet enabled
663: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(p_header_item_id, p_organization_id) <> 'Y')
664: THEN
665: RETURN;
666: END IF;
667:
664: THEN
665: RETURN;
666: END IF;
667:
668: l_top_gtin_in_map := Bom_Rollup_Pub.Get_Top_Item_Attribute_Value('TOP_GTIN');
669: IF l_top_gtin_in_map IS NOT NULL AND
670: l_top_gtin_in_map = 'Y'
671: THEN
672: RETURN;
677: --
678: -- Check if top item is a GTIN
679: --
680:
681: FOR cons_or_ord_flag IN c_cons_ord_flag(p_item_id => Bom_Rollup_Pub.Get_Top_Item_Id)
682: LOOP
683: l_top_consumable := cons_or_ord_flag.is_trade_item_a_consumer_unit;
684: l_top_orderable := cons_or_ord_flag.customer_order_enabled_flag;
685: is_top_uccnet := cons_or_ord_flag.is_uccnet;
685: is_top_uccnet := cons_or_ord_flag.is_uccnet;
686: END LOOP;
687:
688:
689: Bom_Rollup_Pub.WRITE_DEBUG_LOG ( p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
690: , p_message => 'l_top_consumable ' || l_top_consumable
691: || ' and l_top_orderable ' || l_top_orderable
692: || ' is_top_uccnet ' || is_top_uccnet);
693:
692: || ' is_top_uccnet ' || is_top_uccnet);
693:
694: -- bug 4043371: need to check if consumable and orderable are set anywhere in the hierarchy
695: -- use FOUND_CONSUMABLE and FOUND_ORDERABLE dummy flags to store these
696: l_found_consumable := Bom_Rollup_Pub.Get_Top_Item_Attribute_Value('FOUND_CONSUMABLE');
697: l_found_orderable := Bom_Rollup_Pub.Get_Top_Item_Attribute_Value('FOUND_ORDERABLE');
698: IF l_found_consumable IS NOT NULL THEN
699: l_top_consumable := l_found_consumable;
700: END IF;
693:
694: -- bug 4043371: need to check if consumable and orderable are set anywhere in the hierarchy
695: -- use FOUND_CONSUMABLE and FOUND_ORDERABLE dummy flags to store these
696: l_found_consumable := Bom_Rollup_Pub.Get_Top_Item_Attribute_Value('FOUND_CONSUMABLE');
697: l_found_orderable := Bom_Rollup_Pub.Get_Top_Item_Attribute_Value('FOUND_ORDERABLE');
698: IF l_found_consumable IS NOT NULL THEN
699: l_top_consumable := l_found_consumable;
700: END IF;
701: IF l_found_orderable IS NOT NULL THEN
716: -- Check if one of the above conditions in the
717: -- TOP GTIN matrix is true.
718: --
719:
720: /* IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT = 0)
721: THEN
722: return;
723: END IF;*/
724:
721: THEN
722: return;
723: END IF;*/
724:
725: Bom_Rollup_Pub.WRITE_DEBUG_LOG (Bom_Rollup_Pub.G_BO_IDENTIFIER, 'header item: '||p_header_item_id||
726: ' components: '||Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT || ' TOP_GTIN_FLAG ' || l_top_gtin_flag );
727:
728: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT > 0) THEN
729: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
722: return;
723: END IF;*/
724:
725: Bom_Rollup_Pub.WRITE_DEBUG_LOG (Bom_Rollup_Pub.G_BO_IDENTIFIER, 'header item: '||p_header_item_id||
726: ' components: '||Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT || ' TOP_GTIN_FLAG ' || l_top_gtin_flag );
727:
728: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT > 0) THEN
729: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
730: LOOP
724:
725: Bom_Rollup_Pub.WRITE_DEBUG_LOG (Bom_Rollup_Pub.G_BO_IDENTIFIER, 'header item: '||p_header_item_id||
726: ' components: '||Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT || ' TOP_GTIN_FLAG ' || l_top_gtin_flag );
727:
728: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT > 0) THEN
729: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
730: LOOP
731: IF l_top_gtin_flag = 'Y'
732: THEN
725: Bom_Rollup_Pub.WRITE_DEBUG_LOG (Bom_Rollup_Pub.G_BO_IDENTIFIER, 'header item: '||p_header_item_id||
726: ' components: '||Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT || ' TOP_GTIN_FLAG ' || l_top_gtin_flag );
727:
728: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT > 0) THEN
729: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
730: LOOP
731: IF l_top_gtin_flag = 'Y'
732: THEN
733: exit;
732: THEN
733: exit;
734: END IF;
735:
736: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
737: THEN
738:
739: IF p_validate = 'Y' THEN
740:
740:
741: Bom_Gtin_Rules.Check_GTIN_Attributes
742: ( p_assembly_item_id => p_header_item_id
743: , p_organization_id => p_organization_id
744: , p_component_item_id => Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id
745: , p_ignore_published => 'Y'
746: , x_return_status => x_return_status
747: , x_error_message => x_error_message
748: );
745: , p_ignore_published => 'Y'
746: , x_return_status => x_return_status
747: , x_error_message => x_error_message
748: );
749: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
750: 'Check gtin attribs called for parent '||p_header_item_id||
751: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
752: x_return_status||':'||x_error_message);
753:
747: , x_error_message => x_error_message
748: );
749: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
750: 'Check gtin attribs called for parent '||p_header_item_id||
751: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
752: x_return_status||':'||x_error_message);
753:
754: IF p_halt_on_error = 'Y' AND
755: x_return_status IS NOT NULL AND
763:
764: END IF;
765:
766: FOR comp_cons_or_ord_flag IN c_comp_cons_ord_flag(p_component_sequence_id =>
767: Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id
768: )
769: LOOP
770: -- if consumable or orderable are already 'Y', don't look any further
771: is_comp_uccnet := comp_cons_or_ord_flag.is_uccnet;
776: IF is_comp_uccnet = 'Y' AND
777: (l_comp_orderable IS NULL OR l_comp_orderable <> 'Y') THEN
778: l_comp_orderable := comp_cons_or_ord_flag.customer_order_enabled_flag;
779: END IF;
780: Bom_Rollup_Pub.WRITE_DEBUG_LOG (Bom_Rollup_Pub.G_BO_IDENTIFIER,
781: 'Within loop for compseq('||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id||
782: ') top: cons='||l_top_consumable||'/ord='||l_top_orderable||' comp: cons='||l_comp_consumable||'/ord='||
783: l_comp_orderable||'/ucc='||is_comp_uccnet);
784: END LOOP;
777: (l_comp_orderable IS NULL OR l_comp_orderable <> 'Y') THEN
778: l_comp_orderable := comp_cons_or_ord_flag.customer_order_enabled_flag;
779: END IF;
780: Bom_Rollup_Pub.WRITE_DEBUG_LOG (Bom_Rollup_Pub.G_BO_IDENTIFIER,
781: 'Within loop for compseq('||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_sequence_id||
782: ') top: cons='||l_top_consumable||'/ord='||l_top_orderable||' comp: cons='||l_comp_consumable||'/ord='||
783: l_comp_orderable||'/ucc='||is_comp_uccnet);
784: END LOOP;
785: END IF; -- fetch a collection row only if one exists.
786:
787: -- bug 4043371: if consumable and orderable are found anywhere in the hierarchy
788: -- store this in the top item's map
789: IF (l_comp_consumable = 'Y') THEN
790: Bom_Rollup_Pub.Set_Top_Item_Attribute('FOUND_CONSUMABLE',l_comp_consumable);
791: END IF;
792: IF (l_comp_orderable = 'Y') THEN
793: Bom_Rollup_Pub.Set_Top_Item_Attribute('FOUND_ORDERABLE',l_comp_orderable);
794: END IF;
789: IF (l_comp_consumable = 'Y') THEN
790: Bom_Rollup_Pub.Set_Top_Item_Attribute('FOUND_CONSUMABLE',l_comp_consumable);
791: END IF;
792: IF (l_comp_orderable = 'Y') THEN
793: Bom_Rollup_Pub.Set_Top_Item_Attribute('FOUND_ORDERABLE',l_comp_orderable);
794: END IF;
795:
796: --
797: -- We have the Component flags and the Top Item flags required for the matrix check
838: --
839: -- which means that this is the first subtree of the last level in the Tree
840: -- so create the row either Y or NULL, whatever is the value of l_top_gtin_flag
841: --
842: Bom_Rollup_Pub.Set_Top_Item_Attribute('TOP_GTIN',l_top_gtin_flag);
843:
844: ELSIF l_top_gtin_in_map IS NOT NULL AND
845: l_top_gtin_in_map = 'N' AND
846: l_top_gtin_flag = 'Y'
844: ELSIF l_top_gtin_in_map IS NOT NULL AND
845: l_top_gtin_in_map = 'N' AND
846: l_top_gtin_flag = 'Y'
847: THEN
848: Bom_Rollup_Pub.Set_Top_Item_Attribute('TOP_GTIN',l_top_gtin_flag);
849: END IF;
850:
851: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
852: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
847: THEN
848: Bom_Rollup_Pub.Set_Top_Item_Attribute('TOP_GTIN',l_top_gtin_flag);
849: END IF;
850:
851: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
852: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
853: , p_message => 'End TOP GTIN');
854: EXCEPTION
855: WHEN OTHERS THEN
848: Bom_Rollup_Pub.Set_Top_Item_Attribute('TOP_GTIN',l_top_gtin_flag);
849: END IF;
850:
851: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
852: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
853: , p_message => 'End TOP GTIN');
854: EXCEPTION
855: WHEN OTHERS THEN
856: Bom_Rollup_Pub.WRITE_DEBUG_LOG (Bom_Rollup_Pub.G_BO_IDENTIFIER, 'Exception in Top GTIN: '||sqlerrm);
852: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
853: , p_message => 'End TOP GTIN');
854: EXCEPTION
855: WHEN OTHERS THEN
856: Bom_Rollup_Pub.WRITE_DEBUG_LOG (Bom_Rollup_Pub.G_BO_IDENTIFIER, 'Exception in Top GTIN: '||sqlerrm);
857:
858: END Propogate_Top_GTIN_Flag;
859:
860:
921: AND A.ATTR_ID = p_attr_id;
922: BEGIN
923:
924: -- Ensure that this item is UCCNet enabled
925: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(p_header_item_id, p_organization_id) <> 'Y')
926: THEN
927: RETURN;
928: END IF;
929:
926: THEN
927: RETURN;
928: END IF;
929:
930: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT = 0)
931: THEN
932: -- If it is not an each, reset weight attributes
933: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
934:
929:
930: IF (Bom_Rollup_Pub.l_Component_Seq_Tbl.COUNT = 0)
931: THEN
932: -- If it is not an each, reset weight attributes
933: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
934:
935: -- Handle resetting of multirow attributes in update_attributes
936: l_transaction_type := 'DELETE';
937:
948: -- When there is a change to the packaging hierarchy
949: -- the attr_diff object will not be passed
950: -- Hence if the count is zero we have to query the attr_diff object
951: --
952: IF (Bom_Rollup_Pub.g_attr_diffs IS NULL OR Bom_Rollup_Pub.g_attr_diffs.count <= 0)
953: THEN
954:
955: Bom_Rollup_Pub.WRITE_DEBUG_LOG
956: ( p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
951: --
952: IF (Bom_Rollup_Pub.g_attr_diffs IS NULL OR Bom_Rollup_Pub.g_attr_diffs.count <= 0)
953: THEN
954:
955: Bom_Rollup_Pub.WRITE_DEBUG_LOG
956: ( p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
957: , p_message => 'INSIDE Multi-Row Component Call tt='||l_transaction_type);
958: --Query the ATTR_DIFF object
959: --This will also give the l_class_code_name_value_pairs
952: IF (Bom_Rollup_Pub.g_attr_diffs IS NULL OR Bom_Rollup_Pub.g_attr_diffs.count <= 0)
953: THEN
954:
955: Bom_Rollup_Pub.WRITE_DEBUG_LOG
956: ( p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
957: , p_message => 'INSIDE Multi-Row Component Call tt='||l_transaction_type);
958: --Query the ATTR_DIFF object
959: --This will also give the l_class_code_name_value_pairs
960: -- and l_data_level_name_value_pairs
971: , p_org_id => p_organization_id
972: , p_application_id => 431
973: , p_attr_group_type => c1.ATTR_GROUP_TYPE
974: , p_attr_group_name => c1.ATTR_GROUP_NAME
975: , px_attr_diffs => Bom_Rollup_Pub.g_attr_diffs
976: , px_pk_column_name_value_pairs => Bom_Rollup_Pub.g_pk_column_name_value_pairs
977: , px_class_code_name_value_pairs => Bom_Rollup_Pub.g_class_code_name_value_pairs
978: , px_data_level_name_value_pairs => Bom_Rollup_Pub.g_data_level_name_value_pairs
979: , x_error_message => l_error_message
972: , p_application_id => 431
973: , p_attr_group_type => c1.ATTR_GROUP_TYPE
974: , p_attr_group_name => c1.ATTR_GROUP_NAME
975: , px_attr_diffs => Bom_Rollup_Pub.g_attr_diffs
976: , px_pk_column_name_value_pairs => Bom_Rollup_Pub.g_pk_column_name_value_pairs
977: , px_class_code_name_value_pairs => Bom_Rollup_Pub.g_class_code_name_value_pairs
978: , px_data_level_name_value_pairs => Bom_Rollup_Pub.g_data_level_name_value_pairs
979: , x_error_message => l_error_message
980: );
973: , p_attr_group_type => c1.ATTR_GROUP_TYPE
974: , p_attr_group_name => c1.ATTR_GROUP_NAME
975: , px_attr_diffs => Bom_Rollup_Pub.g_attr_diffs
976: , px_pk_column_name_value_pairs => Bom_Rollup_Pub.g_pk_column_name_value_pairs
977: , px_class_code_name_value_pairs => Bom_Rollup_Pub.g_class_code_name_value_pairs
978: , px_data_level_name_value_pairs => Bom_Rollup_Pub.g_data_level_name_value_pairs
979: , x_error_message => l_error_message
980: );
981: -- for now just copy attr_diff.old to attr_diff.new, so calling update_attrs has no effect
974: , p_attr_group_name => c1.ATTR_GROUP_NAME
975: , px_attr_diffs => Bom_Rollup_Pub.g_attr_diffs
976: , px_pk_column_name_value_pairs => Bom_Rollup_Pub.g_pk_column_name_value_pairs
977: , px_class_code_name_value_pairs => Bom_Rollup_Pub.g_class_code_name_value_pairs
978: , px_data_level_name_value_pairs => Bom_Rollup_Pub.g_data_level_name_value_pairs
979: , x_error_message => l_error_message
980: );
981: -- for now just copy attr_diff.old to attr_diff.new, so calling update_attrs has no effect
982: --Make sure we call the update api only when multirow attrs are updated
981: -- for now just copy attr_diff.old to attr_diff.new, so calling update_attrs has no effect
982: --Make sure we call the update api only when multirow attrs are updated
983: -- bug: 4037735
984: IF (l_transaction_type <> 'DELETE'
985: AND Bom_Rollup_Pub.g_attr_diffs IS NOT NULL
986: AND Bom_Rollup_Pub.g_attr_diffs.count > 0) THEN
987: FOR i IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
988: LOOP
989:
982: --Make sure we call the update api only when multirow attrs are updated
983: -- bug: 4037735
984: IF (l_transaction_type <> 'DELETE'
985: AND Bom_Rollup_Pub.g_attr_diffs IS NOT NULL
986: AND Bom_Rollup_Pub.g_attr_diffs.count > 0) THEN
987: FOR i IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
988: LOOP
989:
990: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_STR :=
983: -- bug: 4037735
984: IF (l_transaction_type <> 'DELETE'
985: AND Bom_Rollup_Pub.g_attr_diffs IS NOT NULL
986: AND Bom_Rollup_Pub.g_attr_diffs.count > 0) THEN
987: FOR i IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
988: LOOP
989:
990: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_STR :=
991: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_STR;
986: AND Bom_Rollup_Pub.g_attr_diffs.count > 0) THEN
987: FOR i IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
988: LOOP
989:
990: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_STR :=
991: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_STR;
992: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_NUM :=
993: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_NUM;
994: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_DATE :=
987: FOR i IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
988: LOOP
989:
990: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_STR :=
991: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_STR;
992: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_NUM :=
993: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_NUM;
994: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_DATE :=
995: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_DATE;
988: LOOP
989:
990: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_STR :=
991: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_STR;
992: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_NUM :=
993: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_NUM;
994: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_DATE :=
995: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_DATE;
996: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_UOM :=
989:
990: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_STR :=
991: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_STR;
992: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_NUM :=
993: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_NUM;
994: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_DATE :=
995: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_DATE;
996: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_UOM :=
997: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_UOM;
990: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_STR :=
991: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_STR;
992: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_NUM :=
993: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_NUM;
994: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_DATE :=
995: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_DATE;
996: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_UOM :=
997: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_UOM;
998:
991: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_STR;
992: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_NUM :=
993: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_NUM;
994: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_DATE :=
995: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_DATE;
996: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_UOM :=
997: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_UOM;
998:
999: END LOOP;
992: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_NUM :=
993: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_NUM;
994: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_DATE :=
995: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_DATE;
996: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_UOM :=
997: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_UOM;
998:
999: END LOOP;
1000: END IF;--if Bom_Rollup_Pub.g_attr_diffs is not null
993: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_NUM;
994: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_VALUE_DATE :=
995: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_VALUE_DATE;
996: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_UOM :=
997: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_UOM;
998:
999: END LOOP;
1000: END IF;--if Bom_Rollup_Pub.g_attr_diffs is not null
1001: END LOOP;
996: Bom_Rollup_Pub.g_attr_diffs(i).NEW_ATTR_UOM :=
997: Bom_Rollup_Pub.g_attr_diffs(i).OLD_ATTR_UOM;
998:
999: END LOOP;
1000: END IF;--if Bom_Rollup_Pub.g_attr_diffs is not null
1001: END LOOP;
1002: ELSE
1003: --
1004: -- Get the classification code, this could be different as components
1008: LOOP
1009: l_item_catalog_group_id := c1.item_catalog_group_id;
1010: END LOOP;
1011:
1012: Bom_Rollup_Pub.g_class_code_name_value_pairs :=
1013: EGO_COL_NAME_VALUE_PAIR_ARRAY
1014: (EGO_COL_NAME_VALUE_PAIR_OBJ('ITEM_CATALOG_GROUP_ID', to_char(l_item_catalog_group_id)));
1015:
1016: END IF;
1013: EGO_COL_NAME_VALUE_PAIR_ARRAY
1014: (EGO_COL_NAME_VALUE_PAIR_OBJ('ITEM_CATALOG_GROUP_ID', to_char(l_item_catalog_group_id)));
1015:
1016: END IF;
1017: --Call the update api only if Bom_Rollup_Pub.g_attr_diffs is not null.
1018: --bug: 4037735.
1019:
1020: IF (Bom_Rollup_Pub.g_attr_diffs IS NOT NULL
1021: AND Bom_Rollup_Pub.g_attr_diffs.count > 0) THEN
1016: END IF;
1017: --Call the update api only if Bom_Rollup_Pub.g_attr_diffs is not null.
1018: --bug: 4037735.
1019:
1020: IF (Bom_Rollup_Pub.g_attr_diffs IS NOT NULL
1021: AND Bom_Rollup_Pub.g_attr_diffs.count > 0) THEN
1022:
1023: -- Group diff objects by extension_id
1024: FOR i IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
1017: --Call the update api only if Bom_Rollup_Pub.g_attr_diffs is not null.
1018: --bug: 4037735.
1019:
1020: IF (Bom_Rollup_Pub.g_attr_diffs IS NOT NULL
1021: AND Bom_Rollup_Pub.g_attr_diffs.count > 0) THEN
1022:
1023: -- Group diff objects by extension_id
1024: FOR i IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
1025: LOOP
1020: IF (Bom_Rollup_Pub.g_attr_diffs IS NOT NULL
1021: AND Bom_Rollup_Pub.g_attr_diffs.count > 0) THEN
1022:
1023: -- Group diff objects by extension_id
1024: FOR i IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
1025: LOOP
1026:
1027: l_found_ext_id := FALSE;
1028:
1031: FOR j IN l_extension_ids.FIRST .. l_extension_ids.LAST
1032: LOOP
1033:
1034: IF l_found_ext_id = FALSE AND
1035: l_extension_ids(j) = Bom_Rollup_Pub.g_attr_diffs(i).EXTENSION_ID
1036: THEN
1037:
1038: l_found_ext_id := TRUE;
1039:
1050: IF l_found_ext_id = FALSE
1051: THEN
1052:
1053: l_extension_ids.EXTEND();
1054: l_extension_ids(l_extension_ids.LAST) := Bom_Rollup_Pub.g_attr_diffs(i).EXTENSION_ID;
1055:
1056: END IF;
1057:
1058: END LOOP;
1062: LOOP
1063:
1064: l_cur_attr_diff_tbl := EGO_USER_ATTR_DIFF_TABLE();
1065:
1066: FOR j IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
1067: LOOP
1068:
1069: IF (l_extension_ids(i) IS NULL AND Bom_Rollup_Pub.g_attr_diffs(j).EXTENSION_ID IS NULL)
1070: OR l_extension_ids(i) = Bom_Rollup_Pub.g_attr_diffs(j).EXTENSION_ID THEN
1065:
1066: FOR j IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
1067: LOOP
1068:
1069: IF (l_extension_ids(i) IS NULL AND Bom_Rollup_Pub.g_attr_diffs(j).EXTENSION_ID IS NULL)
1070: OR l_extension_ids(i) = Bom_Rollup_Pub.g_attr_diffs(j).EXTENSION_ID THEN
1071:
1072: l_cur_attr_diff_tbl.EXTEND();
1073: l_cur_attr_diff_tbl(l_cur_attr_diff_tbl.LAST) := Bom_Rollup_Pub.g_attr_diffs(j);
1066: FOR j IN Bom_Rollup_Pub.g_attr_diffs.FIRST .. Bom_Rollup_Pub.g_attr_diffs.LAST
1067: LOOP
1068:
1069: IF (l_extension_ids(i) IS NULL AND Bom_Rollup_Pub.g_attr_diffs(j).EXTENSION_ID IS NULL)
1070: OR l_extension_ids(i) = Bom_Rollup_Pub.g_attr_diffs(j).EXTENSION_ID THEN
1071:
1072: l_cur_attr_diff_tbl.EXTEND();
1073: l_cur_attr_diff_tbl(l_cur_attr_diff_tbl.LAST) := Bom_Rollup_Pub.g_attr_diffs(j);
1074:
1069: IF (l_extension_ids(i) IS NULL AND Bom_Rollup_Pub.g_attr_diffs(j).EXTENSION_ID IS NULL)
1070: OR l_extension_ids(i) = Bom_Rollup_Pub.g_attr_diffs(j).EXTENSION_ID THEN
1071:
1072: l_cur_attr_diff_tbl.EXTEND();
1073: l_cur_attr_diff_tbl(l_cur_attr_diff_tbl.LAST) := Bom_Rollup_Pub.g_attr_diffs(j);
1074:
1075: END IF;
1076:
1077: END LOOP;
1080:
1081: FOR c1 IN get_attr_group_id(l_cur_attr_diff_tbl(l_cur_attr_diff_tbl.FIRST).ATTR_ID)
1082: LOOP
1083:
1084: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1085: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1086: , p_message => 'Calling Update Attributes');
1087: EGO_GTIN_PVT.Update_Attributes
1088: ( p_pk_column_name_value_pairs => l_pk_column_values
1081: FOR c1 IN get_attr_group_id(l_cur_attr_diff_tbl(l_cur_attr_diff_tbl.FIRST).ATTR_ID)
1082: LOOP
1083:
1084: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1085: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1086: , p_message => 'Calling Update Attributes');
1087: EGO_GTIN_PVT.Update_Attributes
1088: ( p_pk_column_name_value_pairs => l_pk_column_values
1089: , p_class_code_name_value_pairs => Bom_Rollup_Pub.g_class_code_name_value_pairs
1085: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1086: , p_message => 'Calling Update Attributes');
1087: EGO_GTIN_PVT.Update_Attributes
1088: ( p_pk_column_name_value_pairs => l_pk_column_values
1089: , p_class_code_name_value_pairs => Bom_Rollup_Pub.g_class_code_name_value_pairs
1090: , p_data_level_name_value_pairs => Bom_Rollup_Pub.g_data_level_name_value_pairs
1091: , p_attr_diffs => l_cur_attr_diff_tbl
1092: , p_transaction_type => l_transaction_type
1093: , p_attr_group_id => c1.attr_group_id
1086: , p_message => 'Calling Update Attributes');
1087: EGO_GTIN_PVT.Update_Attributes
1088: ( p_pk_column_name_value_pairs => l_pk_column_values
1089: , p_class_code_name_value_pairs => Bom_Rollup_Pub.g_class_code_name_value_pairs
1090: , p_data_level_name_value_pairs => Bom_Rollup_Pub.g_data_level_name_value_pairs
1091: , p_attr_diffs => l_cur_attr_diff_tbl
1092: , p_transaction_type => l_transaction_type
1093: , p_attr_group_id => c1.attr_group_id
1094: , x_error_message => l_error_message);
1092: , p_transaction_type => l_transaction_type
1093: , p_attr_group_id => c1.attr_group_id
1094: , x_error_message => l_error_message);
1095:
1096: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1097: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1098: , p_message => 'After Calling Update Attributes' || l_error_message);
1099:
1100: END LOOP;
1093: , p_attr_group_id => c1.attr_group_id
1094: , x_error_message => l_error_message);
1095:
1096: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1097: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1098: , p_message => 'After Calling Update Attributes' || l_error_message);
1099:
1100: END LOOP;
1101:
1120: l_uom_sh_temp_min VARCHAR2(30);
1121: l_uom_sh_temp_max VARCHAR2(30);
1122:
1123: BEGIN
1124: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1125: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1126: , p_message => 'Propagate_SH_Temps called for Item '||p_header_item_id||'-'||p_organization_id||
1127: ' with l_comp_attrs_map.count = '||Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.COUNT);
1128:
1121: l_uom_sh_temp_max VARCHAR2(30);
1122:
1123: BEGIN
1124: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1125: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1126: , p_message => 'Propagate_SH_Temps called for Item '||p_header_item_id||'-'||p_organization_id||
1127: ' with l_comp_attrs_map.count = '||Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.COUNT);
1128:
1129: IF (Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.COUNT = 0)
1123: BEGIN
1124: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1125: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1126: , p_message => 'Propagate_SH_Temps called for Item '||p_header_item_id||'-'||p_organization_id||
1127: ' with l_comp_attrs_map.count = '||Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.COUNT);
1128:
1129: IF (Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.COUNT = 0)
1130: THEN
1131: -- If it is not an each, reset weight attributes
1125: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1126: , p_message => 'Propagate_SH_Temps called for Item '||p_header_item_id||'-'||p_organization_id||
1127: ' with l_comp_attrs_map.count = '||Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.COUNT);
1128:
1129: IF (Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.COUNT = 0)
1130: THEN
1131: -- If it is not an each, reset weight attributes
1132: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
1133:
1128:
1129: IF (Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.COUNT = 0)
1130: THEN
1131: -- If it is not an each, reset weight attributes
1132: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
1133:
1134: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MIN',null);
1135: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MAX',null);
1136: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MIN',null);
1130: THEN
1131: -- If it is not an each, reset weight attributes
1132: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
1133:
1134: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MIN',null);
1135: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MAX',null);
1136: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MIN',null);
1137: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MAX',null);
1138:
1131: -- If it is not an each, reset weight attributes
1132: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
1133:
1134: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MIN',null);
1135: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MAX',null);
1136: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MIN',null);
1137: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MAX',null);
1138:
1139: END IF;
1132: IF (Bom_Rollup_Pub.Get_Trade_Item_Unit_Descriptor(p_header_item_id, p_organization_id) <> 'BASE_UNIT_OR_EACH') THEN
1133:
1134: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MIN',null);
1135: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MAX',null);
1136: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MIN',null);
1137: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MAX',null);
1138:
1139: END IF;
1140:
1133:
1134: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MIN',null);
1135: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MAX',null);
1136: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MIN',null);
1137: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MAX',null);
1138:
1139: END IF;
1140:
1141: RETURN;
1141: RETURN;
1142: END IF;
1143:
1144: -- Ensure that this item is UCCNet enabled
1145: IF (Bom_Rollup_Pub.Is_UCCNet_Enabled(p_header_item_id, p_organization_id) <> 'Y')
1146: THEN
1147: RETURN;
1148: END IF;
1149:
1148: END IF;
1149:
1150: IF p_validate = 'Y' THEN
1151:
1152: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
1153: LOOP
1154:
1155: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
1156: THEN
1151:
1152: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Tbl.LAST
1153: LOOP
1154:
1155: IF Bom_Rollup_Pub.l_Component_Seq_Tbl.EXISTS(cmp_index)
1156: THEN
1157:
1158: Bom_Gtin_Rules.Check_GTIN_Attributes
1159: ( p_assembly_item_id => p_header_item_id
1157:
1158: Bom_Gtin_Rules.Check_GTIN_Attributes
1159: ( p_assembly_item_id => p_header_item_id
1160: , p_organization_id => p_organization_id
1161: , p_component_item_id => Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id
1162: , p_ignore_published => 'Y'
1163: , x_return_status => x_return_status
1164: , x_error_message => x_error_message
1165: );
1162: , p_ignore_published => 'Y'
1163: , x_return_status => x_return_status
1164: , x_error_message => x_error_message
1165: );
1166: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
1167: 'Check gtin attribs called for parent '||p_header_item_id||
1168: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
1169: x_return_status||':'||x_error_message);
1170:
1164: , x_error_message => x_error_message
1165: );
1166: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
1167: 'Check gtin attribs called for parent '||p_header_item_id||
1168: ' child '||Bom_Rollup_Pub.l_Component_Seq_Tbl(cmp_index).component_item_id||', returned '||
1169: x_return_status||':'||x_error_message);
1170:
1171: IF p_halt_on_error = 'Y' AND
1172: x_return_status IS NOT NULL AND
1183: END LOOP;
1184:
1185: END IF;
1186:
1187: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.LAST
1188: LOOP
1189: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.EXISTS(cmp_index)
1190: THEN
1191: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1185: END IF;
1186:
1187: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.LAST
1188: LOOP
1189: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.EXISTS(cmp_index)
1190: THEN
1191: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1192: 'STORAGE_HANDLING_TEMP_MIN'
1193: THEN
1187: FOR cmp_index IN Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.FIRST..Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.LAST
1188: LOOP
1189: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl.EXISTS(cmp_index)
1190: THEN
1191: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1192: 'STORAGE_HANDLING_TEMP_MIN'
1193: THEN
1194: l_sh_temp_min :=
1195: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1191: IF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1192: 'STORAGE_HANDLING_TEMP_MIN'
1193: THEN
1194: l_sh_temp_min :=
1195: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1196: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MIN',l_sh_temp_min);
1197: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1198: 'STORAGE_HANDLING_TEMP_MAX'
1199: THEN
1192: 'STORAGE_HANDLING_TEMP_MIN'
1193: THEN
1194: l_sh_temp_min :=
1195: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1196: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MIN',l_sh_temp_min);
1197: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1198: 'STORAGE_HANDLING_TEMP_MAX'
1199: THEN
1200: l_sh_temp_max :=
1193: THEN
1194: l_sh_temp_min :=
1195: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1196: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MIN',l_sh_temp_min);
1197: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1198: 'STORAGE_HANDLING_TEMP_MAX'
1199: THEN
1200: l_sh_temp_max :=
1201: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1197: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1198: 'STORAGE_HANDLING_TEMP_MAX'
1199: THEN
1200: l_sh_temp_max :=
1201: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1202: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MAX',l_sh_temp_max);
1203: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1204: 'UOM_STORAGE_HANDLING_TEMP_MIN'
1205: THEN
1198: 'STORAGE_HANDLING_TEMP_MAX'
1199: THEN
1200: l_sh_temp_max :=
1201: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1202: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MAX',l_sh_temp_max);
1203: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1204: 'UOM_STORAGE_HANDLING_TEMP_MIN'
1205: THEN
1206: l_uom_sh_temp_min :=
1199: THEN
1200: l_sh_temp_max :=
1201: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1202: Bom_Rollup_Pub.Set_Parent_Attribute('STORAGE_HANDLING_TEMP_MAX',l_sh_temp_max);
1203: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1204: 'UOM_STORAGE_HANDLING_TEMP_MIN'
1205: THEN
1206: l_uom_sh_temp_min :=
1207: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1203: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1204: 'UOM_STORAGE_HANDLING_TEMP_MIN'
1205: THEN
1206: l_uom_sh_temp_min :=
1207: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1208: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MIN',l_uom_sh_temp_min);
1209: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1210: 'UOM_STORAGE_HANDLING_TEMP_MAX'
1211: THEN
1204: 'UOM_STORAGE_HANDLING_TEMP_MIN'
1205: THEN
1206: l_uom_sh_temp_min :=
1207: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1208: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MIN',l_uom_sh_temp_min);
1209: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1210: 'UOM_STORAGE_HANDLING_TEMP_MAX'
1211: THEN
1212: l_uom_sh_temp_max :=
1205: THEN
1206: l_uom_sh_temp_min :=
1207: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1208: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MIN',l_uom_sh_temp_min);
1209: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1210: 'UOM_STORAGE_HANDLING_TEMP_MAX'
1211: THEN
1212: l_uom_sh_temp_max :=
1213: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1209: ELSIF Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_name =
1210: 'UOM_STORAGE_HANDLING_TEMP_MAX'
1211: THEN
1212: l_uom_sh_temp_max :=
1213: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1214: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MAX',l_uom_sh_temp_max);
1215: END IF;
1216: END IF; -- fetch a collection row only if one exists.
1217: END LOOP;
1210: 'UOM_STORAGE_HANDLING_TEMP_MAX'
1211: THEN
1212: l_uom_sh_temp_max :=
1213: Bom_Rollup_Pub.l_Component_Seq_Attrs_Tbl(cmp_index).attribute_value;
1214: Bom_Rollup_Pub.Set_Parent_Attribute('UOM_STORAGE_HANDLING_TEMP_MAX',l_uom_sh_temp_max);
1215: END IF;
1216: END IF; -- fetch a collection row only if one exists.
1217: END LOOP;
1218:
1218:
1219: --
1220: -- Set the attributes
1221: --
1222: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1223: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1224: , p_message => 'Propagate_SH_Temps: setting temps to '||l_sh_temp_min||'('||l_uom_sh_temp_min||'), '||l_sh_temp_max||'('||l_uom_sh_temp_max||')');
1225:
1226: /* Moved the setting of attributes for Heterogenous pack for null check
1219: --
1220: -- Set the attributes
1221: --
1222: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1223: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1224: , p_message => 'Propagate_SH_Temps: setting temps to '||l_sh_temp_min||'('||l_uom_sh_temp_min||'), '||l_sh_temp_max||'('||l_uom_sh_temp_max||')');
1225:
1226: /* Moved the setting of attributes for Heterogenous pack for null check
1227: the null check is being done while getting the attribute */
1227: the null check is being done while getting the attribute */
1228:
1229: EXCEPTION
1230: WHEN OTHERS THEN
1231: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1232: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1233: , p_message => 'Propagate_SH_Temps: exception: '||sqlerrm);
1234:
1235: END Propagate_SH_Temps;
1228:
1229: EXCEPTION
1230: WHEN OTHERS THEN
1231: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1232: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1233: , p_message => 'Propagate_SH_Temps: exception: '||sqlerrm);
1234:
1235: END Propagate_SH_Temps;
1236:
1290: , p_attr_group_name => p_attr_group_name
1291: , p_pk_column_name_value_pairs => l_pk_columns
1292: , p_class_code_name_value_pairs => l_class_code
1293: -- , p_data_level_name_value_pairs => l_data_level
1294: , p_data_level_name_value_pairs => Bom_Rollup_Pub.g_data_level_name_value_pairs
1295: , p_attr_name_value_pairs => p_attr_name_value_pairs
1296: -- this is very important, because otherwise, updates would trigger rollups, creating an infinite loop
1297: , p_bulkload_flag => FND_API.G_TRUE
1298: , x_return_status => x_return_status
1300: , x_msg_count => x_msg_count
1301: , x_msg_data => x_msg_data
1302: );
1303:
1304: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1305: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1306: , p_message => 'Set_User_Attribute: returned with '||x_return_status||' code '||l_error_code||' cnt '||x_msg_count||' data '||x_msg_data);
1307:
1308: EXCEPTION
1301: , x_msg_data => x_msg_data
1302: );
1303:
1304: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1305: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1306: , p_message => 'Set_User_Attribute: returned with '||x_return_status||' code '||l_error_code||' cnt '||x_msg_count||' data '||x_msg_data);
1307:
1308: EXCEPTION
1309: WHEN OTHERS THEN
1307:
1308: EXCEPTION
1309: WHEN OTHERS THEN
1310:
1311: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1312: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1313: , p_message => 'Set_User_Attribute: exception: '||sqlerrm);
1314:
1315: END Set_User_Attributes;
1308: EXCEPTION
1309: WHEN OTHERS THEN
1310:
1311: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1312: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1313: , p_message => 'Set_User_Attribute: exception: '||sqlerrm);
1314:
1315: END Set_User_Attributes;
1316:
1320: , x_found OUT NOCOPY BOOLEAN
1321: , p_header_item_map IN BOOLEAN := TRUE
1322: )
1323: IS
1324: l_attrs_map Bom_Rollup_Pub.Attribute_Map;
1325: l_attr_value varchar2(1000) := null;
1326: BEGIN
1327: x_found := FALSE;
1328:
1326: BEGIN
1327: x_found := FALSE;
1328:
1329: IF p_header_item_map THEN
1330: l_attrs_map := Bom_Rollup_Pub.l_Header_Attrs_Map;
1331: ELSE
1332: l_attrs_map := Bom_Rollup_Pub.l_Top_Item_Attrs_Map;
1333: END IF;
1334:
1328:
1329: IF p_header_item_map THEN
1330: l_attrs_map := Bom_Rollup_Pub.l_Header_Attrs_Map;
1331: ELSE
1332: l_attrs_map := Bom_Rollup_Pub.l_Top_Item_Attrs_Map;
1333: END IF;
1334:
1335: IF l_attrs_map IS NULL OR
1336: NOT l_attrs_map.COUNT > 0
1334:
1335: IF l_attrs_map IS NULL OR
1336: NOT l_attrs_map.COUNT > 0
1337: THEN
1338: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Get_Attribute_Value: map is null/empty, returning...');
1339: RETURN;
1340: END IF;
1341:
1342: FOR i IN l_attrs_map.FIRST .. l_attrs_map.LAST
1355: */
1356:
1357: --x_attr_value := l_attrs_map(i).attribute_value;
1358: --RETURN;
1359: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,
1360: 'The attribute value for ' || p_attr_name || ' is ' || l_attr_value );
1361: END IF;
1362: END IF;
1363: END LOOP;
1396:
1397: l_attr_name VARCHAR2(30);
1398: l_errorcode NUMBER;
1399: BEGIN
1400: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Set_Net_Weight: starting '||p_header_attrs_flag);
1401:
1402: IF p_header_attrs_flag <> 'Y' THEN
1403: l_use_header_attrs_map := FALSE;
1404: END IF;
1434:
1435: EXCEPTION
1436: WHEN OTHERS THEN
1437:
1438: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1439: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1440: , p_message => 'Set_Net_Weight: exception: '||sqlerrm);
1441:
1442: END Set_Net_Weight;
1435: EXCEPTION
1436: WHEN OTHERS THEN
1437:
1438: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1439: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1440: , p_message => 'Set_Net_Weight: exception: '||sqlerrm);
1441:
1442: END Set_Net_Weight;
1443:
1456: l_use_header_attrs_map BOOLEAN := TRUE;
1457: l_errorcode NUMBER;
1458: BEGIN
1459:
1460: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Set_Private_Flag: starting '||p_header_attrs_flag);
1461:
1462: IF p_header_attrs_flag <> 'Y' THEN
1463: l_use_header_attrs_map := FALSE;
1464: END IF;
1481: );
1482:
1483: END IF;
1484:
1485: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Set_Private_Flag: done with ret '||x_return_status);
1486:
1487: EXCEPTION
1488: WHEN OTHERS THEN
1489:
1486:
1487: EXCEPTION
1488: WHEN OTHERS THEN
1489:
1490: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1491: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1492: , p_message => 'Set_Net_Weight: exception: '||sqlerrm);
1493:
1494: END Set_Private_Flag;
1487: EXCEPTION
1488: WHEN OTHERS THEN
1489:
1490: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1491: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1492: , p_message => 'Set_Net_Weight: exception: '||sqlerrm);
1493:
1494: END Set_Private_Flag;
1495:
1513: l_use_header_attrs_map BOOLEAN := TRUE;
1514: l_errorcode NUMBER;
1515: BEGIN
1516:
1517: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Set_Brand_Info: starting '||p_header_attrs_flag);
1518:
1519: IF p_header_attrs_flag <> 'Y' THEN
1520: l_use_header_attrs_map := FALSE;
1521: END IF;
1598: END IF;
1599:
1600: END IF;
1601:
1602: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Set_Brand_Info: done with ret '||x_return_status);
1603:
1604: EXCEPTION
1605: WHEN OTHERS THEN
1606:
1603:
1604: EXCEPTION
1605: WHEN OTHERS THEN
1606:
1607: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1608: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1609: , p_message => 'Set_Brand_Info: exception: '||sqlerrm);
1610:
1611: END Set_Brand_Info;
1604: EXCEPTION
1605: WHEN OTHERS THEN
1606:
1607: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1608: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1609: , p_message => 'Set_Brand_Info: exception: '||sqlerrm);
1610:
1611: END Set_Brand_Info;
1612:
1625: l_errorcode NUMBER;
1626: BEGIN
1627: -- TODO: check with deena
1628:
1629: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Set_Top_gtin_Flag: starting '||p_header_attrs_flag);
1630:
1631: IF p_header_attrs_flag <> 'Y' THEN
1632: l_use_header_attrs_map := FALSE;
1633: END IF;
1631: IF p_header_attrs_flag <> 'Y' THEN
1632: l_use_header_attrs_map := FALSE;
1633: END IF;
1634:
1635: IF Bom_Rollup_Pub.Get_Top_Item_Id = p_header_item_id AND
1636: Bom_Rollup_Pub.Get_Top_Organization_Id = p_organization_id
1637: THEN
1638:
1639: Get_Attribute_Value(
1632: l_use_header_attrs_map := FALSE;
1633: END IF;
1634:
1635: IF Bom_Rollup_Pub.Get_Top_Item_Id = p_header_item_id AND
1636: Bom_Rollup_Pub.Get_Top_Organization_Id = p_organization_id
1637: THEN
1638:
1639: Get_Attribute_Value(
1640: 'TOP_GTIN'
1643: , l_use_header_attrs_map);
1644:
1645: IF l_top_gtin_flag_found THEN
1646:
1647: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Set_Top_gtin_Flag: calling EGO');
1648:
1649: EGO_GTIN_PVT.Update_Attribute
1650: ( p_inventory_item_id => p_header_item_id
1651: , p_organization_id => p_organization_id
1660: END IF;
1661:
1662: END IF;
1663:
1664: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Set_Top_Gtin_Flag: done with ret '||x_return_status);
1665:
1666: EXCEPTION
1667: WHEN OTHERS THEN
1668:
1665:
1666: EXCEPTION
1667: WHEN OTHERS THEN
1668:
1669: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1670: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1671: , p_message => 'Set_Top_Gtin_Flag: exception: '||sqlerrm);
1672:
1673: END Set_Top_GTIN_Flag;
1666: EXCEPTION
1667: WHEN OTHERS THEN
1668:
1669: Bom_Rollup_Pub.WRITE_DEBUG_LOG (
1670: p_bo_identifier => Bom_Rollup_Pub.G_BO_IDENTIFIER
1671: , p_message => 'Set_Top_Gtin_Flag: exception: '||sqlerrm);
1672:
1673: END Set_Top_GTIN_Flag;
1674:
1707: l_use_header_attrs_map BOOLEAN := TRUE;
1708: l_errorcode NUMBER;
1709: BEGIN
1710:
1711: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Set_SH_Temps: starting '||p_header_attrs_flag);
1712:
1713: IF p_header_attrs_flag <> 'Y' THEN
1714: l_use_header_attrs_map := FALSE;
1715: END IF;
1800: END IF;
1801:
1802: END IF;
1803:
1804: Bom_Rollup_Pub.WRITE_DEBUG_LOG(Bom_Rollup_Pub.G_BO_IDENTIFIER,'Set_SH_Temps: done with ret '||x_return_status);
1805:
1806: END Set_SH_Temps;
1807:
1808: END Bom_Compute_Functions;