[Home] [Help]
177: -- This procedure is called from the inventory or cost
178: -- processor to update either the item unit cost or the
179: -- status, item unit cost, primary quantity, transaction
180: -- quantity and transaction uom code for movement
181: -- records in MTL_MOVEMENT_STATISTICS_TABLE
182:
183: -- History
184: -- MAR-10-95 Rudolf F. Reichenberger Created
185:
226: BEGIN
227:
228:
229: -- ** Record Check (exists movement_id ?) and lock Table **
230: -- ** 'mtl_movement_statistics' **
231:
232: SELECT
233: movement_id,
234: transaction_uom_code,
262: l_stat_adj_amount,
263: l_stat_ext_value,
264: l_outside_unit_price,
265: l_outside_ext_value
266: FROM mtl_movement_statistics
267: WHERE movement_id = p_movement_id
268: AND movement_status <> 'F' FOR UPDATE NOWAIT;
269:
270: -- ** Call routine that takes care of any UOM or unit price changes **
294: -- ** UPDATE **
295:
296: IF p_call_type = 'T' THEN
297:
298: UPDATE mtl_movement_statistics
299: SET movement_status = 'O',
300: primary_quantity = p_primary_quantity,
301: transaction_quantity = ABS(p_transaction_quantity),
302: transaction_uom_code = p_transaction_uom,
314: WHERE movement_id = p_movement_id;
315:
316: ELSIF p_call_type = 'C' THEN
317:
318: UPDATE mtl_movement_statistics
319: SET item_cost = p_actual_cost,
320: last_update_date = sysdate,
321: last_updated_by = user_id,
322: document_unit_price = l_document_unit_price,
408: ELSE
409: l_movement_id := p_parent_movement_id;
410: END IF;
411:
412: -- ** Lock Table 'mtl_movement_statistics' **
413:
414: SELECT
415: movement_id,
416: transaction_uom_code,
444: l_stat_adj_amount,
445: l_stat_ext_value,
446: l_outside_unit_price,
447: l_outside_ext_value
448: FROM mtl_movement_statistics
449: WHERE movement_id = l_movement_id
450: FOR UPDATE NOWAIT;
451:
452: -- ** Call routine that takes care of any UOM or unit price changes **
478:
479: IF NOT p_type = 'CORRECT' THEN
480:
481: -- ** UPDATE **
482: UPDATE mtl_movement_statistics
483: SET shipment_header_id = p_shipment_header_id,
484: shipment_line_id = p_shipment_line_id,
485: transaction_quantity = p_transaction_quantity,
486: transaction_uom_code = v_uom_code,
498:
499: -- ** INSERT **
500: ELSE
501:
502: select mtl_movement_statistics_s.NEXTVAL
503: into l_new_movement_id
504: from sys.dual;
505:
506: INSERT INTO mtl_movement_statistics (
502: select mtl_movement_statistics_s.NEXTVAL
503: into l_new_movement_id
504: from sys.dual;
505:
506: INSERT INTO mtl_movement_statistics (
507: movement_id, organization_id,
508: entity_org_id, movement_type,
509: movement_status, transaction_date,
510: last_update_date, last_updated_by,
569: port, stat_type, comments,
570: stat_adj_amount, stat_adj_percent,
571: decode(stat_adj_percent, NULL, decode(stat_adj_amount,
572: NULL, NULL, stat_ext_value), stat_ext_value)
573: FROM mtl_movement_statistics
574: WHERE movement_id = p_parent_movement_id;
575:
576: --fix bug 109662
577: select movement_type
575:
576: --fix bug 109662
577: select movement_type
578: into l_movement_type
579: from mtl_movement_statistics
580: where movement_id = p_parent_movement_id;
581:
582:
583:
583:
584: IF (p_type = 'CORRECT') then
585: if (l_movement_type = 'A') then
586: /* correction to receipt */
587: update mtl_movement_statistics
588: set movement_type = 'AA'
589: where movement_id = l_new_movement_id;
590: elsif (l_movement_type = 'D') then
591:
588: set movement_type = 'AA'
589: where movement_id = l_new_movement_id;
590: elsif (l_movement_type = 'D') then
591:
592: update mtl_movement_statistics
593: set movement_type = 'DA',
594: transaction_quantity = (-1) * p_transaction_quantity
595: where movement_id = l_new_movement_id;
596: end if;