The following lines contain the word 'select', 'insert', 'update' or 'delete':
| Updated Joe DiIorio - 08/01/2004 |
| Changed named and parms for lot_uom_conversion to |
| create_lot_uom_conversion. |
| Changed call to business_logic to |
| validate_lot_conversion_rules. |
| Updated Joe DiIorio - 09/16/2004 |
| Added check for from/to null values. |
| Updated Joe DiIorio - 10/22/2004 |
| Added x_sequence to capture transaction manager header id. |
| Updated Joe DiIorio - 11/12/2004 |
! removed do check for now. 4005057 !
| Updated Joe DiIorio - 12/08/2004 |
! removed defaults for gscc. Kept in header. !
============================================================================
*/
PROCEDURE log_msg(p_msg_text IN VARCHAR2);
, p_update_type_indicator IN NUMBER DEFAULT 5
, p_reason_id IN NUMBER
, p_batch_id IN NUMBER
, p_process_data IN VARCHAR2
, p_lot_uom_conv_rec IN OUT NOCOPY mtl_lot_uom_class_conversions%ROWTYPE
, p_qty_update_tbl IN OUT NOCOPY MTL_LOT_UOM_CONV_PUB.quantity_update_rec_type
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
, x_sequence IN OUT NOCOPY NUMBER)
IS
l_api_name CONSTANT VARCHAR2(30) := 'create_lot_uom_conversion';
l_update_type_indicator VARCHAR2(1);
SELECT unit_of_measure, uom_class
FROM mtl_units_of_measure
WHERE uom_code = p_uom_code;
SELECT uom_code, uom_class
FROM mtl_units_of_measure
WHERE unit_of_measure = p_unit_of_measure;
SELECT unit_of_measure, uom_code
FROM mtl_units_of_measure
WHERE uom_class = p_uom_class and base_uom_flag = 'Y';
SELECT unit_of_measure, uom_code
FROM mtl_units_of_measure
WHERE uom_class = l_uom_class and base_uom_flag = 'Y';
SELECT primary_uom_code
FROM mtl_system_items
WHERE organization_id = p_lot_uom_conv_rec.organization_id
AND inventory_item_id = p_lot_uom_conv_rec.inventory_item_id;
SELECT uom_class
FROM mtl_units_of_measure
WHERE uom_code = l_item_uom_code;
l_update_type_indicator := p_update_type_indicator;
l_update_type_indicator := p_update_type_indicator;
Validate Update Type Indicator
check against lookup table.
==============================*/
l_ret := mtl_lot_uom_conv_pvt.validate_update_type(
l_update_type_indicator);
, p_quantity_updates => l_update_type_indicator
, p_update_type => p_action_type
, p_header_id => l_tran_seq
);
Only update database if process_data flag set.
================================================*/
IF (p_process_data = 'Y') THEN
/*=============================================
Insert Row to mtl_lot_uom_class_conversions.
Perform all database updates.
===========================================*/
l_tran_seq := x_sequence;
, p_update_type_indicator => l_update_type_indicator
, p_reason_id => p_reason_id
, p_batch_id => p_batch_id
, p_lot_uom_conv_rec => p_lot_uom_conv_rec
, p_qty_update_tbl => p_qty_update_tbl
, x_return_status => l_return_status
, x_msg_count => l_msg_count
, x_msg_data => l_msg_data
, x_sequence => l_tran_seq
);