The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT order_number
FROM oe_order_headers_all
WHERE header_id = X_order_header_id;
SELECT name
FROM wsh_picking_batches
WHERE batch_id = X_batch_id;
SELECT pick_slip_number
FROM mtl_pick_slip_numbers
WHERE pick_slip_batch_id = WSH_PICK_LIST.G_BATCH_ID
AND status = 1;
INV_PR_PICK_SLIP_NUMBER.g_pskey_table.delete(l_index);
g_pskey_table.delete(l_index);
PROCEDURE delete_pick_slip_numbers(p_batch_id IN NUMBER) IS
BEGIN
/*if nvl(p_batch_id, -1) = -1 then
p_batch_id := wsh_pick_list.g_batch_id;
DELETE FROM mtl_pick_slip_numbers
WHERE pick_slip_batch_id = p_batch_id;
END delete_pick_slip_numbers;
PROCEDURE Insert_Key (
l_hash_value IN NUMBER,
l_Insert_key_Rec IN keyRecTyp,
x_pick_slip_number OUT NOCOPY NUMBER,
x_error_message OUT NOCOPY VARCHAR2)
IS
BEGIN
/*
############### PLEASE READ ####################################
Following APIs were owned by WSH until patchset H (11.5.8).
From Patchset-I onwards, ownership has been transfered to INV Team.
Please do not modify these APIs for any ongoing development
or bug-fixes from Patchset-I and beyond.
Modify these APIs only if you are making bug-fix for pre-I
customers. Please consult Nikhil Parikh/Anil Verma, if you have
any questions.
The APIs are maintained here only for backward-compatibility, i.e.
if customer has applied INV-H and WSH-I, it should still
continue to work.
*/
SELECT WSH_PICK_SLIP_NUMBERS_S.NEXTVAL
INTO x_pick_slip_number
FROM DUAL;
g_pskey_table(l_hash_value) := l_Insert_key_Rec;
x_error_message := 'Error occurred in WSH_PR_PICK_NUMBER.Insert_Key';
END Insert_Key;
x_Insert_key_Rec OUT NOCOPY keyRecTyp,
x_error_message OUT NOCOPY VARCHAR2)
IS
l_hash_string VARCHAR2(2000) := NULL;
x_Insert_key_Rec.grouping_rule_id := g_rule_table(p_rule_index).grouping_rule_id;
x_Insert_key_Rec.header_id := p_header_id;
x_Insert_key_Rec.subinventory := p_subinventory;
x_Insert_key_Rec.customer_id := p_customer_id;
x_Insert_key_Rec.ship_method_code := p_ship_method_code;
x_Insert_key_Rec.ship_to_loc_id := p_ship_to_loc_id;
x_Insert_key_Rec.shipment_priority := p_shipment_priority;
x_Insert_key_Rec.trip_stop_id := p_trip_stop_id;
x_Insert_key_Rec.delivery_id := p_delivery_id;
x_Insert_key_Rec.inventory_item_id := p_inventory_item_id;
x_Insert_key_Rec.locator_id := p_locator_id;
x_Insert_key_Rec.lot_number := p_lot_number;
x_Insert_key_Rec.revision := p_revision;
x_Insert_key_Rec.organization_id := p_org_id;
SELECT NVL(ORDER_NUMBER_FLAG, 'N'),
NVL(SUBINVENTORY_FLAG, 'N'),
NVL(CUSTOMER_FLAG, 'N'),
NVL(SHIP_TO_FLAG, 'N'),
NVL(CARRIER_FLAG, 'N'),
NVL(SHIPMENT_PRIORITY_FLAG, 'N'),
NVL(TRIP_STOP_FLAG, 'N'),
NVL(DELIVERY_FLAG, 'N'),
NVL(ITEM_FLAG, 'N'),
NVL(LOCATOR_FLAG, 'N'),
NVL(LOT_FLAG, 'N'),
NVL(REVISION_FLAG, 'N'),
NVL(PICK_METHOD,'-99')
FROM WSH_PICK_GROUPING_RULES
WHERE PICK_GROUPING_RULE_ID = v_pgr_id;
SELECT NVL(pick_slip_lines,-1)
FROM WSH_SHIPPING_PARAMETERS
WHERE ORGANIZATION_ID = v_org_id;
l_Insert_key_Rec keyRecTyp;
SELECT WSH_PICK_SLIP_NUMBERS_S.NEXTVAL
INTO x_pick_slip_number
FROM DUAL;
SELECT WSH_PICK_SLIP_NUMBERS_S.NEXTVAL
INTO x_pick_slip_number
FROM DUAL;
x_Insert_key_Rec => l_Insert_key_Rec,
x_error_message => x_error_message);
Insert_Key(l_hash_value => l_hash_value,
l_Insert_key_Rec => l_Insert_key_Rec,
x_pick_slip_number => x_pick_slip_number,
x_error_message => x_error_message);
x_Insert_key_Rec => l_Insert_key_Rec,
x_error_message => x_error_message);
g_pskey_table.delete(l_hash_value);
Insert_Key(l_hash_value => l_hash_value,
l_Insert_key_Rec => l_Insert_key_Rec,
x_pick_slip_number => x_pick_slip_number,
x_error_message => x_error_message);
PROCEDURE DELETE_PS_TBL
( x_api_status OUT NOCOPY VARCHAR2,
x_error_message OUT NOCOPY VARCHAR2 ) IS
BEGIN
x_api_status := FND_API.G_RET_STS_SUCCESS;
INV_PR_PICK_SLIP_NUMBER.g_pskey_table.delete ;
g_pskey_table.delete ;
x_error_message := 'Error occurred in WSH_PR_PICK_NUMBER.DELETE_PS_TBL: ' || SQLERRM;
END DELETE_PS_TBL ;