The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Key (
p_rule_index IN NUMBER,
p_header_id IN NUMBER,
p_customer_id IN NUMBER,
p_ship_method_code IN VARCHAR2,
p_ship_to_loc_id IN NUMBER,
p_shipment_priority IN VARCHAR2,
p_subinventory IN VARCHAR2,
p_trip_stop_id IN NUMBER,
p_delivery_id IN NUMBER,
p_inventory_item_id IN NUMBER,
p_locator_id IN NUMBER,
p_lot_number IN VARCHAR2,
p_revision IN VARCHAR2,
p_org_id IN NUMBER,
x_pick_slip_number OUT NOCOPY NUMBER
);
g_pskey_table.delete(l_index);
g_pskey_table.delete(l_index);
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')
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;
/* Insert new key to table based on grouping rule */
Insert_Key(p_rule_index => i,
p_header_id => p_header_id,
p_customer_id => p_customer_id,
p_ship_method_code => p_ship_method_code,
p_ship_to_loc_id => p_ship_to_loc_id,
p_shipment_priority => p_shipment_priority,
p_subinventory => p_subinventory,
p_trip_stop_id => p_trip_stop_id,
p_delivery_id => p_delivery_id,
p_inventory_item_id => p_inventory_item_id,
p_locator_id => p_locator_id,
p_lot_number => p_lot_number,
p_revision => p_revision,
p_org_id => p_org_id,
x_pick_slip_number => x_pick_slip_number );
/* Insert new key */
Insert_Key(p_rule_index => l_rule_index,
p_header_id => p_header_id,
p_customer_id => p_customer_id,
p_ship_method_code => p_ship_method_code,
p_ship_to_loc_id => p_ship_to_loc_id,
p_shipment_priority => p_shipment_priority,
p_subinventory => p_subinventory,
p_trip_stop_id => p_trip_stop_id,
p_delivery_id => p_delivery_id,
p_inventory_item_id => p_inventory_item_id,
p_locator_id => p_locator_id,
p_lot_number => p_lot_number,
p_revision => p_revision,
p_org_id => p_org_id,
x_pick_slip_number => x_pick_slip_number );
| PROCEDURE Insert_Key
|
| Purpose
| Insert new key to table and returns newly generated pick slip number
|
| Input Parameter
| p_rule_index => index to the grouping rule table
| p_header_id => order header id
| p_customer_id => customer id
| p_ship_method_code => ship method
| p_ship_to_loc_id => ship to location
| p_shipment_priority => shipment priority
| p_subinventory => subinventory
| p_trip_stop_id => trip stop
| p_delivery_id => delivery
| p_inventory_item_id => item
| p_locator_id => locator
| p_lot_number => lot number
| p_revision => revision
| p_org_id => organization
|
| Output Parameter
| x_pick_slip_number => pick_slip_number
=============================================================== */
PROCEDURE Insert_Key (
p_rule_index IN NUMBER,
p_header_id IN NUMBER,
p_customer_id IN NUMBER,
p_ship_method_code IN VARCHAR2,
p_ship_to_loc_id IN NUMBER,
p_shipment_priority IN VARCHAR2,
p_subinventory IN VARCHAR2,
p_trip_stop_id IN NUMBER,
p_delivery_id IN NUMBER,
p_inventory_item_id IN NUMBER,
p_locator_id IN NUMBER,
p_lot_number IN VARCHAR2,
p_revision IN VARCHAR2,
p_org_id IN NUMBER,
x_pick_slip_number OUT NOCOPY NUMBER )
IS
l_tab_size NUMBER;
SELECT WSH_PICK_SLIP_NUMBERS_S.NEXTVAL
INTO x_pick_slip_number
FROM DUAL;
END Insert_Key;