The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT ORGANIZATION_ID INTO x_organization_id
FROM HR_ORGANIZATION_UNITS
WHERE NAME = p_organization_name;
SELECT INVENTORY_ITEM_STATUS_CODE INTO t_status
FROM MTL_ITEM_STATUS
WHERE INVENTORY_ITEM_STATUS_CODE = p_status;
SELECT UOM_CODE INTO x_weight_uom_code
FROM MTL_UNITS_OF_MEASURE_TL
WHERE UNIT_OF_MEASURE_TL = p_weight_uom
AND LANGUAGE = USERENV('LANG')
AND NVL(DISABLE_DATE, SYSDATE+1) > SYSDATE
AND UOM_CLASS = (select gu_weight_class
from wsh_global_parameters where rownum=1);
SELECT UOM_CODE INTO x_volume_uom_code
FROM MTL_UNITS_OF_MEASURE_TL
WHERE UNIT_OF_MEASURE_TL = p_volume_uom
AND LANGUAGE = USERENV('LANG')
AND NVL(DISABLE_DATE, SYSDATE+1) > SYSDATE
AND UOM_CLASS = (select gu_volume_class
from wsh_global_parameters where rownum=1);
SELECT UOM_CODE INTO x_dimension_uom_code
FROM MTL_UNITS_OF_MEASURE_TL
WHERE UNIT_OF_MEASURE_TL = p_dimension_uom
AND LANGUAGE = USERENV('LANG')
AND NVL(DISABLE_DATE, SYSDATE+1) > SYSDATE
AND UOM_CLASS = (select gu_dimension_class
from wsh_global_parameters where rownum=1);
PROCEDURE CREATE_UPDATE_VEHICLE_TYPE
(
p_inventory_item_id IN NUMBER, /* MAIN PROPERTIES */
p_organization_id IN NUMBER,
p_organization_name IN VARCHAR2,
p_vehicle_type_id IN NUMBER,
p_vehicle_type_name IN VARCHAR2,
p_vehicle_class_code IN VARCHAR2,
p_status IN VARCHAR2,
p_description IN VARCHAR2,
p_weight_uom IN VARCHAR2, /* LOAD CAPACITIES */
p_maximum_load_weight IN NUMBER,
p_volume_uom IN VARCHAR2,
p_internal_volume IN NUMBER,
p_pallet_floor_space IN NUMBER,
p_pallet_stacking_height IN NUMBER,
p_ef_volume_cap_direct IN NUMBER,
p_ef_volume_cap_pool IN NUMBER,
p_ef_volume_cap_one_stop IN NUMBER,
p_ef_volume_cap_two_stop IN NUMBER,
p_ef_volume_cap_two_pool IN NUMBER,
p_ef_volume_cap_three_pool IN NUMBER,
p_tare_weight IN NUMBER, /* DIMENSIONS */
p_dimension_uom IN VARCHAR2,
p_exterior_length IN NUMBER,
p_exterior_width IN NUMBER,
p_exterior_height IN NUMBER,
p_usable_length IN NUMBER,
p_usable_width IN NUMBER,
p_usable_height IN NUMBER,
p_suspension_type_code IN VARCHAR2, /* FEATURES */
p_temperature_control_code IN VARCHAR2,
p_features_table IN STRINGARRAY, -- Database Type
p_number_of_doors IN NUMBER, /* DOORS */
p_door_height IN NUMBER,
p_door_width IN NUMBER,
p_attribute1 IN VARCHAR2,
p_attribute2 IN VARCHAR2,
p_attribute3 IN VARCHAR2,
p_attribute4 IN VARCHAR2,
p_attribute5 IN VARCHAR2,
p_attribute6 IN VARCHAR2,
p_attribute7 IN VARCHAR2,
p_attribute8 IN VARCHAR2,
p_attribute9 IN VARCHAR2,
p_attribute10 IN VARCHAR2,
p_attribute11 IN VARCHAR2,
p_attribute12 IN VARCHAR2,
p_attribute13 IN VARCHAR2,
p_attribute14 IN VARCHAR2,
p_attribute15 IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_error_table OUT NOCOPY STRINGARRAY,
x_vehicle_type_id OUT NOCOPY NUMBER
)
IS
newItem INV_ITEM_GRP.Item_rec_type;
SAVEPOINT Create_Update_Vehicle_Type;
SELECT item.inventory_item_id INTO l_inventory_item_id
FROM mtl_system_items_b_kfv item, fte_vehicle_types veh
WHERE item.concatenated_segments = p_vehicle_type_name
AND item.inventory_item_id = veh.inventory_item_id
AND item.organization_id = veh.organization_id;
SELECT veh.inventory_item_id INTO l_inventory_item_id
FROM fte_vehicle_types veh
WHERE (veh.inventory_item_id, veh.organization_id) =
(SELECT item.inventory_item_id, item.organization_id
FROM mtl_system_items_b_kfv item
WHERE item.concatenated_segments = p_vehicle_type_name
AND rownum < 2);
INSERT INTO FTE_VEHICLE_TYPES
(VEHICLE_TYPE_ID, INVENTORY_ITEM_ID,
ORGANIZATION_ID, VEHICLE_CLASS_CODE,
PALLET_FLOOR_SPACE, PALLET_STACKING_HEIGHT,
EF_VOLUME_CAP_DIRECT, EF_VOLUME_CAP_POOL,
EF_VOLUME_CAP_ONE_STOP, EF_VOLUME_CAP_TWO_STOP,
EF_VOLUME_CAP_TWO_POOL, EF_VOLUME_CAP_THREE_POOL,
USABLE_LENGTH, USABLE_WIDTH, USABLE_HEIGHT,
SUSPENSION_TYPE_CODE, TEMPERATURE_CONTROL_CODE,
NUMBER_OF_DOORS, DOOR_HEIGHT, DOOR_WIDTH,
CREATION_DATE, CREATED_BY,
LAST_UPDATE_DATE, LAST_UPDATED_BY, LAST_UPDATE_LOGIN)
VALUES (FTE_VEHICLE_TYPES_S.NEXTVAL, savedItem.INVENTORY_ITEM_ID,
newItem.ORGANIZATION_ID, p_vehicle_class_code,
p_pallet_floor_space, p_pallet_stacking_height,
p_ef_volume_cap_direct, p_ef_volume_cap_pool,
p_ef_volume_cap_one_stop, p_ef_volume_cap_two_stop,
p_ef_volume_cap_two_pool, p_ef_volume_cap_three_pool,
p_usable_length, p_usable_width, p_usable_height,
p_suspension_type_code, p_temperature_control_code,
p_number_of_doors, p_door_height, p_door_width,
SYSDATE, FND_GLOBAL.USER_ID,
SYSDATE, FND_GLOBAL.USER_ID, FND_GLOBAL.LOGIN_ID)
RETURNING vehicle_type_id INTO x_vehicle_type_id;
WSH_DEBUG_SV.LOGMSG(l_module_name, 'AfterInsertType');
INSERT INTO FTE_VEHICLE_FEATURES
(VEHICLE_TYPE_FEATURE_ID, VEHICLE_TYPE_ID,
VEHICLE_FEATURE_CODE,
CREATION_DATE, CREATED_BY,
LAST_UPDATE_DATE, LAST_UPDATED_BY, LAST_UPDATE_LOGIN)
VALUES (FTE_VEHICLE_FEATURES_S.NEXTVAL, x_vehicle_type_id,
p_features_table(i),
SYSDATE, FND_GLOBAL.USER_ID,
SYSDATE, FND_GLOBAL.USER_ID, FND_GLOBAL.LOGIN_ID);
WSH_DEBUG_SV.LOGMSG(l_module_name, 'AfterInsertFeature');
WSH_DEBUG_SV.LOGMSG(l_module_name, 'BeforeUpdate');
INV_ITEM_GRP.Update_Item(p_Item_rec => newItem,
x_Item_rec => savedItem,
x_return_status => x_return_status,
x_Error_tbl => errorTable);
WSH_DEBUG_SV.LOGMSG(l_module_name, 'AfterUpdate-'||x_return_status);
UPDATE FTE_VEHICLE_TYPES
SET VEHICLE_CLASS_CODE = p_vehicle_class_code,
PALLET_FLOOR_SPACE = p_pallet_floor_space,
PALLET_STACKING_HEIGHT = p_pallet_stacking_height,
EF_VOLUME_CAP_DIRECT = p_ef_volume_cap_direct,
EF_VOLUME_CAP_POOL = p_ef_volume_cap_pool,
EF_VOLUME_CAP_ONE_STOP = p_ef_volume_cap_one_stop,
EF_VOLUME_CAP_TWO_STOP = p_ef_volume_cap_two_stop,
EF_VOLUME_CAP_TWO_POOL = p_ef_volume_cap_two_pool,
EF_VOLUME_CAP_THREE_POOL = p_ef_volume_cap_three_pool,
USABLE_LENGTH = p_usable_length,
USABLE_WIDTH = p_usable_width,
USABLE_HEIGHT = p_usable_height,
SUSPENSION_TYPE_CODE = p_suspension_type_code,
TEMPERATURE_CONTROL_CODE = p_temperature_control_code,
NUMBER_OF_DOORS = p_number_of_doors,
DOOR_HEIGHT = p_door_height,
DOOR_WIDTH = p_door_width,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
WHERE VEHICLE_TYPE_ID = p_vehicle_type_id;
WSH_DEBUG_SV.LOGMSG(l_module_name, 'AfterInsertType');
DELETE FTE_VEHICLE_FEATURES
WHERE VEHICLE_TYPE_ID = p_vehicle_type_id;
WSH_DEBUG_SV.LOGMSG(l_module_name, 'AfterDeleteFeature');
INSERT INTO FTE_VEHICLE_FEATURES
(VEHICLE_TYPE_FEATURE_ID, VEHICLE_TYPE_ID,
VEHICLE_FEATURE_CODE,
CREATION_DATE, CREATED_BY,
LAST_UPDATE_DATE, LAST_UPDATED_BY, LAST_UPDATE_LOGIN)
VALUES (FTE_VEHICLE_FEATURES_S.NEXTVAL, p_vehicle_type_id,
p_features_table(i),
SYSDATE, FND_GLOBAL.USER_ID,
SYSDATE, FND_GLOBAL.USER_ID, FND_GLOBAL.LOGIN_ID);
WSH_DEBUG_SV.LOGMSG(l_module_name, 'AfterInsertFeature-Update');
ROLLBACK TO Create_Update_Vehicle_Type;
ROLLBACK TO Create_Update_Vehicle_Type;
END CREATE_UPDATE_VEHICLE_TYPE;
SELECT inventory_item_id, organization_id
FROM mtl_system_items
WHERE organization_id in (SELECT distinct master_organization_id
FROM mtl_parameters)
AND vehicle_item_flag = 'Y'
AND inventory_item_id not in (SELECT inventory_item_id
FROM fte_vehicle_types);
INSERT INTO FTE_VEHICLE_TYPES
(VEHICLE_TYPE_ID, INVENTORY_ITEM_ID,
ORGANIZATION_ID, CREATION_DATE, CREATED_BY,
LAST_UPDATE_DATE, LAST_UPDATED_BY, LAST_UPDATE_LOGIN)
VALUES (FTE_VEHICLE_TYPES_S.NEXTVAL, item_cur_rec.inventory_item_id,
item_cur_rec.organization_id, SYSDATE, FND_GLOBAL.USER_ID,
SYSDATE, FND_GLOBAL.USER_ID, FND_GLOBAL.LOGIN_ID);
SELECT vehicle_type_id INTO x_vehicle_type_id
FROM fte_vehicle_types
WHERE inventory_item_id = p_inventory_item_id;
SELECT organization_id
FROM fte_vehicle_types
WHERE inventory_item_id = p_inventory_item_id
AND rownum=1;