R12 APIs
OPM APIs
OPM production involves batch creation and batch execution. The Batch flows through various statuses; each of the status has significance during the production batch process.
Batch status
Create document (Batch creation) | Pending |
Batch release | WIP |
Complete the batch | Completed |
Close the batch | Closed |
Cancel the batch | cancelled |
1. Release the batch (WIP)
DECLARE
g_debug_point VARCHAR2(100);
l_batch_header gme_batch_header%ROWTYPE;
x_batch_header gme_batch_header%ROWTYPE;
p_batch_header gme_batch_header%ROWTYPE;
x_message_count NUMBER;
x_message_list VARCHAR2 (2000);
x_return_status VARCHAR2 (1);
l_msg_index_out NUMBER;
x_exception_material_tbl gme_common_pvt.exceptions_tab;
BEGIN
-- +------------------------------------------------------------+
-- + Release the batch from pending to WIP
-- +------------------------------------------------------------+
DBMS_OUTPUT.put_line ('...Executing Batch Release API');
l_batch_header.batch_type := 0;
l_batch_header.plan_start_date := SYSDATE;
l_batch_header.plan_cmplt_date := SYSDATE;
l_batch_header.due_date := SYSDATE;
l_batch_header.update_inventory_ind := 'Y';
l_batch_header.actual_start_date := SYSDATE;
l_batch_header.batch_id := <batch_id>;
l_batch_header.batch_no := <batch_no>;
x_return_status := NULL;
x_message_count := NULL;
x_message_list := NULL;
gme_api_pub.release_batch (p_api_version => 2.0 -- R12 changes
,p_validation_level => 1000,
--P_init_msg_list => TRUE,
--P_commit => FALSE,
x_message_count => x_message_count
,x_message_list => x_message_list
,x_return_status => x_return_status
,p_batch_header_rec => l_batch_header
,x_batch_header_rec => x_batch_header
,x_exception_material_tbl => x_exception_material_tbl
,p_org_code => <WHS_CODE>,
p_ignore_exception => 'T' -- R12 changes
);
IF x_return_status = fnd_api.g_ret_sts_success
THEN
p_batch_header.batch_id := x_batch_header.batch_id;
-- +------------------------------------------------------------+
-- + SAVE THE CHANGES
-- +------------------------------------------------------------+
g_debug_point := 'STS_1060';
gme_api_pub.save_batch (p_header_id => x_batch_header.batch_id, x_return_status => x_return_status);
DBMS_OUTPUT.put_line ('Batch# ' || batch_no || '...Batch Status changed to
RELEASE');
ELSE
DBMS_OUTPUT.put_line ('Batch# ' || batch_no || '... Batch Release Call Failed');
END IF;
END;
2. Complete the batch
DECLARE
g_debug_point VARCHAR2(100);
l_batch_header gme_batch_header%ROWTYPE;
x_batch_header gme_batch_header%ROWTYPE;
p_batch_header gme_batch_header%ROWTYPE;
x_message_count NUMBER;
x_message_list VARCHAR2 (2000);
x_return_status VARCHAR2 (1);
l_msg_index_out NUMBER;
x_exception_material_tbl gme_common_pvt.exceptions_tab;
BEGIN
-- +------------------------------------------------------------+
-- + Release the batch from pending to WIP
-- +------------------------------------------------------------+
DBMS_OUTPUT.put_line ('...Executing Batch Release API');
l_batch_header.batch_type := 0;
l_batch_header.plan_start_date := SYSDATE;
l_batch_header.plan_cmplt_date := SYSDATE;
l_batch_header.due_date := SYSDATE;
l_batch_header.update_inventory_ind := 'Y';
l_batch_header.actual_start_date := SYSDATE;
l_batch_header.batch_id := <batch_id>;
l_batch_header.batch_no := <batch_no>;
x_return_status := NULL;
x_message_count := NULL;
x_message_list := NULL;
gme_api_pub. complete_batch (p_api_version => 2.0 -- R12 changes
,p_validation_level => 1000,
--P_init_msg_list => TRUE,
--P_commit => FALSE,
x_message_count => x_message_count
,x_message_list => x_message_list
,x_return_status => x_return_status
,p_batch_header_rec => l_batch_header
,x_batch_header_rec => x_batch_header
,x_exception_material_tbl => x_exception_material_tbl
,p_org_code => <WHS_CODE>,
p_ignore_exception => 'T' -- R12 changes
);
IF x_return_status = fnd_api.g_ret_sts_success
THEN
p_batch_header.batch_id := x_batch_header.batch_id;
-- +------------------------------------------------------------+
-- + SAVE THE CHANGES
-- +------------------------------------------------------------+
g_debug_point := 'STS_1060';
gme_api_pub.save_batch (p_header_id => x_batch_header.batch_id, x_return_status => x_return_status);
DBMS_OUTPUT.put_line ('Batch# ' || batch_no || '...Batch Status changed to
COMPLETE);
ELSE
DBMS_OUTPUT.put_line ('Batch# ' || batch_no || '... Batch Complete Call Failed');
END IF;
END;
3. Product allocation (WIP Completion)
DECLARE
g_debug_point VARCHAR2 (100);
l_mmti_rec mtl_transactions_interface%ROWTYPE;
l_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
x_mmt_rec mtl_material_transactions%ROWTYPE;
x_mmln_tbl gme_common_pvt.mtl_trans_lots_num_tbl;
l_transaction_interface_id NUMBER := NULL;
l_error_message VARCHAR2 (1000) := NULL;
l_error_msg VARCHAR2 (2000);
l_validate_level NUMBER := gme_common_pvt.g_max_errors;
l_msg_index_out NUMBER;
x_message_count NUMBER;
x_message_list VARCHAR2 (2000);
x_return_status VARCHAR2 (1);
BEGIN
SELECT mtl_material_transactions_s.NEXTVAL
INTO l_transaction_interface_id
FROM DUAL;
-- +------------------------------------------------------------+
-- + Material recod assignment
-- +------------------------------------------------------------+
g_debug_point := 'PA_1080';
l_mmti_rec.transaction_interface_id := l_transaction_interface_id;
l_mmti_rec.transaction_header_id := l_transaction_interface_id;
l_mmti_rec.process_flag := 1;
l_mmti_rec.validation_required := 1;
l_mmti_rec.transaction_mode := 3;
l_mmti_rec.lock_flag := 2;
l_mmti_rec.last_update_date := SYSDATE;
l_mmti_rec.last_updated_by := <user_id>;
l_mmti_rec.creation_date := SYSDATE;
l_mmti_rec.created_by := <user_id>;
l_mmti_rec.last_update_login := -1;
l_mmti_rec.transaction_date := SYSDATE;
l_mmti_rec.subinventory_code := <subinventory_code>;
l_mmti_rec.locator_id := <locator_id>;
l_mmti_rec.transaction_source_id := l_transaction_interface_id;
l_mmti_rec.transaction_source_type_id := 5;
l_mmti_rec.transaction_action_id := 1;
l_mmti_rec.transaction_type_id := 44;
-- +------------------------------------------------------------+
--Lot Records -- (for parent batch assign lot number as parent batch# )
-- +------------------------------------------------------------+
l_mmli_tbl (1).transaction_interface_id := l_transaction_interface_id;
l_mmli_tbl (1).source_line_id := l_mmti_rec.trx_source_line_id;
l_mmli_tbl (1).last_update_date := SYSDATE;
l_mmli_tbl (1).last_updated_by := l_user_id;
l_mmli_tbl (1).creation_date := SYSDATE;
l_mmli_tbl (1).created_by := l_user_id;
l_mmli_tbl (1).last_update_login := -1;
l_mmli_tbl (1).transaction_quantity := <transaction_quantity>;
l_mmli_tbl (1).process_flag := 1;
g_debug_point := 'PA_1090';
DBMS_OUTPUT.put_line ('...Calling create_material_txn for WIP completion ...');
gme_api_pub.create_material_txn (p_api_version => 2.0
,p_validation_level => l_validate_level
,p_init_msg_list => 'F'
,p_commit => 'F'
,x_message_count => x_message_count
,x_message_list => x_message_list
,x_return_status => x_return_status
,p_org_code => g_organization_code
,p_mmti_rec => l_mmti_rec
,p_mmli_tbl => l_mmli_tbl
,p_batch_no => l_batch_no
,p_line_no => l_line_no
,p_line_type => l_line_type
,p_create_lot => 'T'
,p_generate_lot => 'F'
,p_generate_parent_lot => 'F'
,x_mmt_rec => x_mmt_rec
,x_mmln_tbl => x_mmln_tbl
);
DBMS_OUTPUT.put_line ('...End of create_material_txn for WIP completion ...return status' || x_return_status);
IF x_return_status = fnd_api.g_ret_sts_success
THEN
DBMS_OUTPUT.put_line ('... Batch# ' || l_batch_no || ' PRODUCT Allocation call Successful');
-- +------------------------------------------------------------+
-- + SAVE THE CHANGES for product allocation of parent batch
-- +------------------------------------------------------------+
g_debug_point := 'PA_1100';
gme_api_pub.save_batch (p_header_id => l_batch_id, x_return_status => x_return_status);
ELSE
DBMS_OUTPUT.put_line ('Batch# ' || batch_no || '... PRODUCT Allocation Call Failed');
END IF;
END;
4. Ingredient allocation (WIP ISSUE)
DECLARE
g_debug_point VARCHAR2 (100);
l_mmti_rec mtl_transactions_interface%ROWTYPE;
l_mmli_tbl gme_common_pvt.mtl_trans_lots_inter_tbl;
x_mmt_rec mtl_material_transactions%ROWTYPE;
x_mmln_tbl gme_common_pvt.mtl_trans_lots_num_tbl;
l_transaction_interface_id NUMBER := NULL;
l_error_message VARCHAR2 (1000) := NULL;
l_error_msg VARCHAR2 (2000);
l_validate_level NUMBER := gme_common_pvt.g_max_errors;
l_msg_index_out NUMBER;
x_message_count NUMBER;
x_message_list VARCHAR2 (2000);
x_return_status VARCHAR2 (1);
BEGIN
SELECT mtl_material_transactions_s.NEXTVAL
INTO l_transaction_interface_id
FROM DUAL;
-- +------------------------------------------------------------+
-- + Material record assignment
-- +------------------------------------------------------------+
g_debug_point := 'PA_1080';
l_mmti_rec.transaction_interface_id := l_transaction_interface_id;
l_mmti_rec.transaction_header_id := l_transaction_interface_id;
l_mmti_rec.process_flag := 1;
l_mmti_rec.validation_required := 1;
l_mmti_rec.transaction_mode := 3;
l_mmti_rec.lock_flag := 2;
l_mmti_rec.last_update_date := SYSDATE;
l_mmti_rec.last_updated_by := <user_id>;
l_mmti_rec.creation_date := SYSDATE;
l_mmti_rec.created_by := <user_id>;
l_mmti_rec.last_update_login := -1;
l_mmti_rec.transaction_date := SYSDATE;
l_mmti_rec.subinventory_code := <subinventory_code>;
l_mmti_rec.locator_id := <locator_id>;
l_mmti_rec.transaction_source_id := l_transaction_interface_id;
l_mmti_rec.transaction_source_type_id := 5;
l_mmti_rec.transaction_action_id := 1;
l_mmti_rec.transaction_type_id := 35;
-- +------------------------------------------------------------+
--Lot Records -- (for parent batch assign lot number as parent batch# )
-- +------------------------------------------------------------+
l_mmli_tbl (1).transaction_interface_id := l_transaction_interface_id;
l_mmli_tbl (1).source_line_id := l_mmti_rec.trx_source_line_id;
l_mmli_tbl (1).last_update_date := SYSDATE;
l_mmli_tbl (1).last_updated_by := l_user_id;
l_mmli_tbl (1).creation_date := SYSDATE;
l_mmli_tbl (1).created_by := l_user_id;
l_mmli_tbl (1).last_update_login := -1;
l_mmli_tbl (1).transaction_quantity <transaction_quantity>;
l_mmli_tbl (1).process_flag := 1;
g_debug_point := 'PA_1090';
DBMS_OUTPUT.put_line ('...Calling create_material_txn for WIP completion ...');
gme_api_pub.create_material_txn (p_api_version => 2.0
,p_validation_level => l_validate_level
,p_init_msg_list => 'F'
,p_commit => 'F'
,x_message_count => x_message_count
,x_message_list => x_message_list
,x_return_status => x_return_status
,p_org_code => g_organization_code
,p_mmti_rec => l_mmti_rec
,p_mmli_tbl => l_mmli_tbl
,p_batch_no => l_batch_no
,p_line_no => l_line_no
,p_line_type => l_line_type
,p_create_lot => 'T'
,p_generate_lot => 'F'
,p_generate_parent_lot => 'F'
,x_mmt_rec => x_mmt_rec
,x_mmln_tbl => x_mmln_tbl
);
DBMS_OUTPUT.put_line ('...End of create_material_txn for WIP completion ...return status' || x_return_status);
IF x_return_status = fnd_api.g_ret_sts_success
THEN
DBMS_OUTPUT.put_line ('... Batch# ' || l_batch_no || ' Ingredient Allocation call Successful');
-- +------------------------------------------------------------+
-- + SAVE THE CHANGES for product allocation of parent batch
-- +------------------------------------------------------------+
g_debug_point := 'PA_1100';
gme_api_pub.save_batch (p_header_id => l_batch_id, x_return_status => x_return_status);
ELSE
DBMS_OUTPUT.put_line ('Batch# ' || batch_no || '... Ingredient Allocation Call Failed');
END IF;
END;
5. Get onhand
FUNCTION get_lot_onhand (
p_inventory_item_id NUMBER
,p_organization_id IN NUMBER
,p_lot_number VARCHAR2
)
RETURN NUMBER
IS
l_onhand_qty NUMBER := NULL;
l_api_return_status VARCHAR2 (1);
l_qty_res_oh NUMBER;
l_qty_res NUMBER;
l_qty_sug NUMBER;
l_qty_att NUMBER;
l_qty_atr NUMBER;
l_sqoh NUMBER;
l_srqoh NUMBER;
l_sqr NUMBER;
l_sqs NUMBER;
l_satt NUMBER;
l_sqtr NUMBER;
l_msg_count NUMBER;
l_msg_data VARCHAR2 (1000);
l_error_message VARCHAR2 (1000);
g_debug_point VARCHAR2 (100);
BEGIN
g_debug_point := 'LO_1000';
BEGIN
g_debug_point := 'LO_1010';
l_error_message := NULL;
apps.inv_quantity_tree_grp.clear_quantity_cache;
apps.inv_quantity_tree_pub.query_quantities (p_api_version_number => 1.0
,p_init_msg_lst => apps.fnd_api.g_false
,x_return_status => l_api_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_organization_id => p_organization_id
,p_inventory_item_id => p_inventory_item_id
,p_tree_mode => 1
--apps.inv_quantity_tree_pub.g_transaction_mode
, p_is_revision_control => FALSE
,p_is_lot_control => TRUE
,p_is_serial_control => FALSE
,p_revision => NULL
,p_grade_code => NULL
,p_lot_number => TRIM (p_lot_number)
,p_subinventory_code => g_subinventory_code
,p_locator_id => g_locator_id
,p_lpn_id => NULL
,x_qoh => l_onhand_qty
,x_rqoh => l_qty_res_oh
,x_qr => l_qty_res
,x_qs => l_qty_sug
,x_att => l_qty_att
,x_atr => l_qty_atr
,x_sqoh => l_sqoh
,x_srqoh => l_srqoh
,x_sqr => l_sqr
,x_sqs => l_sqs
,x_satt => l_satt
,x_satr => l_sqtr
);
IF l_api_return_status != fnd_api.g_ret_sts_success
THEN
l_onhand_qty := 0;
END IF;
EXCEPTION
WHEN OTHERS
THEN
l_qty_res_oh := 0;
l_qty_res := 0;
l_qty_sug := 0;
l_qty_att := 0;
l_qty_atr := 0;
l_onhand_qty := 0;
END;
IF l_qty_att IS NULL
THEN
l_onhand_qty := 0;
END IF;
fnd_file.put_line (fnd_file.output
, ' Checking item onhand inventory_item_id: '
|| p_inventory_item_id
|| ' organization_id: '
|| p_organization_id
|| ' lot_number: '
|| p_lot_number
|| ' subinventory_code: '
|| g_subinventory_code
|| ' locator_id: '
|| g_locator_id
|| ' ONHAND: '
|| l_onhand_qty
);
RETURN (l_qty_att);
END get_lot_onhand;
OPM Quality APIS
1. Sample group creation
BEGIN
g_debug_point := 'FS_SG-0040';
l_sampling_events_rec.original_spec_vr_id := p_spec_vr_id;
-- +------------------------------------------------------------+
-- + sampling group creation API gmd_sampling_events_pvt.insert_row
-- +------------------------------------------------------------+
l_sampling_event_status :=
gmd_sampling_events_pvt.insert_row (l_sampling_events_rec, x_sampling_events_rec);
IF l_sampling_event_status
THEN
DBMS_OUTPUT.put_line ( 'Creating new Sample Group creation is successful
Sampling Event ID:- '|| x_sampling_events_rec.sampling_event_id
);
ELSE
DBMS_OUTPUT.put_line ('Sampling Group Creation Failed for Batch#: ' || p_batch_no
|| ' ' || SQLERRM);
END IF;
END;
2. Sample Creation API
-- +------------------------------------------------------------+
-- + Call the Sample Creation API
-- +------------------------------------------------------------+
gmd_samples_pub.create_samples (l_api_version
,NULL
,'F'
,NULL
,l_qc_samples_rec
,r_temp_hdr_rec.user_name
,'Y' -- Find Matching Spec
,NULL
,NULL
,x_qc_samples_out_rec
,l_sampling_events_out
,l_sample_spec_disp
,l_event_spec_disp_rec
,l_results_tab
,l_spec_results_tab
,l_return_status
,x_message_count
,x_message_data
);
3. Record Test Results to the sample
-- + ---------------------------------------------------+
-- + Record Test Results to the sample
-- + ---------------------------------------------------+
gmd_results_pub.record_results (3.0
,NULL
,'F'
,NULL
,l_results_rec
,l_user_name
,x_results_rec
,x_spec_results_rec
,l_return_status
,x_message_count
,x_message_data
);
4. Validate the sample disposition
-- + ---------------------------------------------------+
-- + Validate the sample disposition created
-- + Disposition details (ACCEPT-4A, CANCEL-7CN, COMPLETE-3C, REJECT-6RJ)
-- + ---------------------------------------------------+
gmd_disp_grp.update_sample_comp_disp (p_update_disp_rec => l_update_disp_rec
,p_to_disposition => r_temp_hdr_rec.sample_status
,x_return_status => l_return_status
,x_message_data => x_message_data
);
OM APIs
1. Order Import API
-- +------------------------------------------------------------------+
-- + Importing order +
-- +------------------------------------------------------------------+
l_msg_data := NULL;
l_msg_count := NULL;
g_debug_point := 'IM_3100';
oe_order_pub.process_order (p_api_version_number => p_api_version_number
,p_init_msg_list => fnd_api.g_false
,p_return_values => fnd_api.g_false
,p_action_commit => fnd_api.g_false
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_header_rec => l_header_rec
,p_header_adj_tbl => l_header_adj_tbl
,p_line_tbl => l_line_tbl
,p_line_adj_tbl => l_line_adj_tbl
,p_action_request_tbl => l_action_request_tbl
,x_header_rec => x_header_rec
,x_header_val_rec => x_header_val_rec
,x_header_adj_tbl => x_header_adj_tbl
,x_header_adj_val_tbl => x_header_adj_val_tbl
,x_header_price_att_tbl => x_header_price_att_tbl
,x_header_adj_att_tbl => x_header_adj_att_tbl
,x_header_adj_assoc_tbl => x_header_adj_assoc_tbl
,x_header_scredit_tbl => x_header_scredit_tbl
,x_header_scredit_val_tbl => x_header_scredit_val_tbl
,x_line_tbl => x_line_tbl
,x_line_val_tbl => x_line_val_tbl
,x_line_adj_tbl => x_line_adj_tbl
,x_line_adj_val_tbl => x_line_adj_val_tbl
,x_line_price_att_tbl => x_line_price_att_tbl
,x_line_adj_att_tbl => x_line_adj_att_tbl
,x_line_adj_assoc_tbl => x_line_adj_assoc_tbl
,x_line_scredit_tbl => x_line_scredit_tbl
,x_line_scredit_val_tbl => x_line_scredit_val_tbl
,x_lot_serial_tbl => x_lot_serial_tbl
,x_lot_serial_val_tbl => x_lot_serial_val_tbl
,x_action_request_tbl => x_action_request_tbl
2. Create reservation
-- +------------------------------------------------------------+
-- + Function to create reservation on order
-- +------------------------------------------------------------+
FUNCTION create_reservation (
p_created_res IN OUT inv_reservation_global.mtl_reservation_rec_type
,p_error_message OUT VARCHAR2
)
RETURN NUMBER
IS
l_api_return_status VARCHAR2 (1);
l_msg_count NUMBER;
l_msg_data VARCHAR2 (1000);
l_serial_no inv_reservation_global.serial_number_tbl_type;
l_actual_sn inv_reservation_global.serial_number_tbl_type;
l_over_reservation_flag NUMBER;
l_quantity_reserved NUMBER;
x_reservation_id NUMBER := NULL;
l_partial_rsv_exists BOOLEAN DEFAULT FALSE;
l_substitute_flag BOOLEAN DEFAULT FALSE;
l_error_message VARCHAR2 (1000);
BEGIN
g_debug_point := 'LO_1000';
BEGIN
g_debug_point := 'LO_1010';
l_error_message := NULL;
--p_created_res.demand_source_type_id := inv_reservation_global.g_source_type_oe;
p_created_res.supply_source_type_id := inv_reservation_global.g_source_type_inv;
p_created_res.ship_ready_flag := NULL;
p_created_res.attribute1 := NULL;
p_created_res.attribute2 := NULL;
p_created_res.attribute3 := NULL;
p_created_res.attribute4 := NULL;
p_created_res.attribute5 := NULL;
p_created_res.attribute6 := NULL;
p_created_res.attribute7 := NULL;
p_created_res.attribute8 := NULL;
p_created_res.attribute9 := NULL;
p_created_res.attribute10 := NULL;
p_created_res.attribute11 := NULL;
p_created_res.attribute12 := NULL;
p_created_res.attribute13 := NULL;
p_created_res.attribute14 := NULL;
p_created_res.attribute15 := NULL;
p_created_res.attribute_category := NULL;
p_created_res.pick_slip_number := NULL;
p_created_res.lot_number_id := NULL;
p_created_res.subinventory_id := NULL;
p_created_res.revision := NULL;
p_created_res.supply_source_line_detail := NULL;
p_created_res.supply_source_name := NULL;
p_created_res.supply_source_line_id := NULL;
p_created_res.supply_source_header_id := NULL;
p_created_res.external_source_line_id := NULL;
p_created_res.external_source_code := NULL;
p_created_res.autodetail_group_id := NULL;
p_created_res.reservation_uom_id := NULL;
p_created_res.secondary_uom_id := NULL;
p_created_res.primary_uom_id := NULL;
p_created_res.staged_flag := NULL;
p_created_res.detailed_quantity := 0;
p_created_res.demand_source_delivery := NULL;
p_created_res.demand_source_name := NULL;
p_created_res.orig_supply_source_type_id := NULL;
--p_created_res.orig_demand_source_type_id := NULL;
--p_created_res.orig_demand_source_type_id := 8;
--p_created_res.DEMAND_SOURCE_TYPE_ID := 8;
p_created_res.orig_demand_source_header_id := NULL;
p_created_res.orig_demand_source_line_id := NULL;
p_created_res.supply_source_type_id := 13;
p_created_res.crossdock_flag := 'N';
inv_quantity_tree_pvt.clear_quantity_cache;
inv_reservation_pub.create_reservation (p_api_version_number => 1.0
,p_init_msg_lst => fnd_api.g_true
,x_return_status => l_api_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_rsv_rec => p_created_res
,p_serial_number => l_serial_no
,x_serial_number => l_actual_sn
,p_partial_reservation_flag => fnd_api.g_false
,p_force_reservation_flag => fnd_api.g_false
,p_validation_flag => fnd_api.g_true
,p_over_reservation_flag => l_over_reservation_flag
,x_quantity_reserved => l_quantity_reserved
,x_reservation_id => x_reservation_id
,p_partial_rsv_exists => l_partial_rsv_exists
,p_substitute_flag => l_substitute_flag
);
IF l_api_return_status != fnd_api.g_ret_sts_success
THEN
get_api_message (l_msg_count, l_error_message);
IF l_error_message IS NULL
THEN
l_error_message := 'Error at reservation creation with API inv_reservation_pub.create_reservation';
END IF;
END IF;
EXCEPTION
WHEN OTHERS
THEN
x_reservation_id := NULL;
l_error_message :=
'Error at reservation creation with API inv_reservation_pub.create_reservation SQLERRM: ' || SQLERRM;
END;
p_error_message := l_error_message;
RETURN (x_reservation_id);
END create_reservation;
3. Delete reservation
-- +------------------------------------------------------------+
-- | GLOBAL PROCEDURE Delete_Reservation_opm
-- | delete Allocations for OPM Orders
-- +------------------------------------------------------------+
PROCEDURE delete_reservation (
p_order_header_id IN NUMBER
,p_error_message OUT VARCHAR2
)
IS
-- +---------------------------------------------------------------------+
-- + Cursors to get reservations for OPM orders +
-- +---------------------------------------------------------------------+
CURSOR c_reserv_opm (
p_order_header_id NUMBER
)
IS
SELECT mr.reservation_id
,ol.line_id
,ol.ship_from_org_id organization_id
,mr.primary_uom_code
,lot_number
,ol.order_quantity_uom
,ol.ordered_item
,ol.inventory_item_id
FROM mtl_reservations mr
,oe_order_lines_all ol
WHERE mr.demand_source_line_id = ol.line_id AND ol.line_id IN (SELECT line_id
FROM oe_order_lines_all
WHERE header_id = p_order_header_id);
l_delete_rec inv_reservation_global.mtl_reservation_rec_type;
l_serial_rec inv_reservation_global.serial_number_tbl_type;
e_delete_res EXCEPTION;
xout_return_status VARCHAR2 (2000);
xout_msg_count NUMBER;
xout_msg_data VARCHAR2 (2000);
BEGIN
g_debug_point := 'DRO_0010';
FOR r_reserv IN c_reserv_opm (p_order_header_id)
LOOP
l_delete_rec.reservation_id := r_reserv.reservation_id;
l_delete_rec.organization_id := r_reserv.organization_id;
l_delete_rec.inventory_item_id := r_reserv.inventory_item_id;
p_error_message := NULL;
g_msg_count := NULL;
xout_return_status := NULL;
xout_msg_count := NULL;
xout_msg_data := NULL;
inv_reservation_pub.delete_reservation (p_api_version_number => 1.0
,p_init_msg_lst => fnd_api.g_false
,x_return_status => xout_return_status
,x_msg_count => xout_msg_count
,x_msg_data => xout_msg_data
,p_rsv_rec => l_delete_rec
,p_serial_number => l_serial_rec
);
--end
COMMIT;
IF xout_return_status <> fnd_api.g_ret_sts_success
THEN
get_api_message (xout_msg_count, p_error_message);
IF p_error_message IS NOT NULL
THEN
fnd_file.put_line (fnd_file.output
, ' DELETE reservation error for ordered_item: ' || r_reserv.ordered_item || ' Error:- ' || p_error_message
);
RAISE e_delete_res;
END IF;
ELSE
fnd_file.put_line (fnd_file.output, ' DELETE reservation success for ordered_item: ' || r_reserv.ordered_item);
END IF;
END LOOP;
EXCEPTION
WHEN e_delete_res
THEN
NULL;
END delete_reservation;
4. Shipping attributes API
wsh_delivery_details_pub.update_shipping_attributes (p_api_version_number => 1.0
,p_init_msg_list => fnd_api.g_true
,p_commit => fnd_api.g_false
,x_return_status => xout_return_status
,x_msg_count => xout_msg_count
,x_msg_data => xout_msg_data
,p_changed_attributes => l_changed_attributes
,p_source_code => 'OE'
);
5. Confirm the delivery
wsh_deliveries_pub.delivery_action (p_api_version_number => 1.0
,p_init_msg_list => fnd_api.g_true
,x_return_status => xout_return_status
,x_msg_count => xout_msg_count
,x_msg_data => xout_msg_data
,p_action_code => 'CONFIRM'
,p_delivery_id => r_order.delivery_id
,p_sc_action_flag => 'S'
,p_sc_intransit_flag => 'Y'
,p_sc_close_trip_flag => 'Y'
,p_sc_actual_dep_date => NVL (TRUNC (r_order.date_shipped), TRUNC (SYSDATE))
,x_trip_id => l_trip_id
,x_trip_name => l_trip_name
);
6. Close the delivery
wsh_ship_confirm_actions.interface_all (errbuf => l_errbuf
,retcode => l_retcode
,p_mode => 'ALL'
,p_stop_id => NULL
,p_delivery_id => l_delivery_id
,p_log_level => 1
);
Inventory API
1. UOM Conversion API
Once can use below API to get the UOM conversion working.
select decode (inv_convert.inv_um_convert ((select inventory_item_id FROM apps.mtl_system_items_b msib
where segment1= <Item> and rownum <2),
3,
1,
<FROM_UM>,
(select primary_uom_code FROM apps.mtl_system_items_b msib
where segment1= <Item> and rownum <2),
NULL,
NULL
)
,-99999
,null
,inv_convert.inv_um_convert ((select inventory_item_id FROM apps.mtl_system_items_b msib
where segment1 = <Item> and rownum <2),
3,
1,
<FROM_UM>,
(select primary_uom_code FROM apps.mtl_system_items_b msib
where segment1 = <Item> and rownum <2),
NULL,
NULL
))a
from dual
2. Inventory adjustment API
Identify the transaction (for example misc issue,receipt ), then
SELECT mtl_material_transactions_s.NEXTVAL
INTO l_transaction_header_id
FROM DUAL;
SELECT wip_job_number_s.NEXTVAL
INTO l_schedule_number
FROM DUAL;
SELECT inv.mtl_material_transactions_s.NEXTVAL
INTO l_transaction_interface_id
FROM DUAL;
INSERT INTO mtl_transactions_interface
INSERT INTO mtl_transaction_lots_interface
Once inserted call the INVENTORY TRANSACTION WORKER
fnd_file.put_line (fnd_file.output, ' Calling INVENTORY TRANSACTION WORKER with transaction_header_id: ' || l_transaction_header_id);
l_request_id :=
fnd_request.submit_request ('INV' -- Appl short name
,'INCTCW' -- Inventory transaction worker
,NULL -- Description
,NULL -- Date and Time
,FALSE -- Sub-request
,l_transaction_header_id
,3
,NULL
,NULL
);
fnd_file.put_line (fnd_file.output, ' INVENTORY TRANSACTION WORKER request_id: ' || l_request_id);
COMMIT;
IF NVL (l_request_id, -1) <= 0
THEN
fnd_file.put_line (fnd_file.output, 'ERROR-While submitting the INVENTORY TRANSACTION WORKER');
ELSE
fnd_file.put_line (fnd_file.LOG, ' INVENTORY TRANSACTION WORKER Waiting. The request ID is : ' || l_request_id);
l_wait_status :=
fnd_concurrent.wait_for_request (request_id => l_request_id
,INTERVAL => 05
,phase => l_phase
,status => l_status
,dev_phase => l_dev_phase
,dev_status => l_dev_status
,MESSAGE => l_message
);
END IF;
WMS APIS
1. Generate LPNS- Oracle WMS Provides the LPN Generation program though sharing the API way to get the LPN generated.
-- +------------------------------------------------------------+
-- + get the lpn
-- +------------------------------------------------------------+
FUNCTION generate_lpn (
p_organization_id NUMBER
,p_lpn_prefix VARCHAR2
,p_lpn_out OUT VARCHAR2
,p_error_message OUT VARCHAR2
)
RETURN NUMBER
IS
l_lpn_id_out NUMBER;
l_lpn_out VARCHAR2 (100) := NULL;
l_process_id NUMBER;
x_msg_count NUMBER;
x_msg_data VARCHAR2 (2000) := NULL;
x_return_status VARCHAR2 (100);
l_error_message VARCHAR2 (2000) := NULL;
e_lpn_exception EXCEPTION;
BEGIN
BEGIN
g_debug_point := 'GNL_0010';
l_lpn_id_out := NULL;
fnd_file.put_line (fnd_file.output
, ' Generated LPN paremeters p_organization_id: ' || p_organization_id || ' p_lpn_prefix : ' || p_lpn_prefix
);
-- +------------------------------------------------------------+
-- + generate the lpn
-- +------------------------------------------------------------+
wms_container_pvt.generate_lpn (p_api_version => 1.0
,p_init_msg_list => fnd_api.g_false
,p_commit => fnd_api.g_false
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_organization_id => p_organization_id
,p_container_item_id => NULL
,p_revision => NULL
,p_lot_number => NULL
,p_from_serial_number => NULL
,p_to_serial_number => NULL
,p_subinventory => NULL
,p_locator_id => NULL
,p_lpn_prefix => p_lpn_prefix
,p_lpn_suffix => NULL
,p_starting_num => NULL
,p_quantity => 1
,p_source => NULL
,p_cost_group_id => NULL
,p_source_type_id => NULL
,p_source_header_id => NULL
,p_source_name => NULL
,p_source_line_id => NULL
,p_source_line_detail_id => NULL
,p_lpn_id_out => l_lpn_id_out
,p_lpn_out => l_lpn_out
,p_process_id => l_process_id
,p_total_length => NULL
,p_ucc_128_suffix_flag => 2
);
IF x_return_status <> fnd_api.g_ret_sts_success
THEN
xxpom_edi945_pkg.get_api_message (x_msg_count, l_error_message);
IF l_error_message IS NOT NULL
THEN
fnd_file.put_line (fnd_file.output, ' LPN Generation error:- ' || l_error_message);
p_error_message := LPN Generation error:- ' || l_error_message;
RAISE e_lpn_exception;
END IF;
ELSE
fnd_file.put_line (fnd_file.output
, ' Generated LPN sucessfully with prefix: '
|| p_lpn_prefix
|| ' l_lpn_out: '
|| l_lpn_out
|| ' l_lpn_id_out: '
|| l_lpn_id_out
);
END IF;
-- +------------------------------------------------------------+
-- + validate the lpn
-- +------------------------------------------------------------+
g_debug_point := 'GNL_0020';
inv_rcv_common_apis.create_lpn (p_organization_id, l_lpn_out, l_lpn_id_out, x_return_status, x_msg_data);
l_error_message := NULL;
IF x_return_status <> fnd_api.g_ret_sts_success
THEN
xxpom_edi945_pkg.get_api_message (x_msg_count, l_error_message);
IF l_error_message IS NOT NULL
THEN
fnd_file.put_line (fnd_file.output, ' Generate LPN Vaidation err:- ' || l_error_message);
p_error_message := 'LPN Vaidation err:- ' || l_error_message;
RAISE e_lpn_exception;
END IF;
ELSE
fnd_file.put_line (fnd_file.output
, ' Generated LPN validated sucessfully with prefix: '
|| p_lpn_prefix
|| ' l_lpn_out: '
|| l_lpn_out
|| ' l_lpn_id_out: '
|| l_lpn_id_out
);
END IF;
EXCEPTION
WHEN e_lpn_exception
THEN
l_lpn_id_out := NULL;
l_lpn_out := NULL;
WHEN OTHERS
THEN
l_lpn_id_out := NULL;
END;
p_lpn_out := l_lpn_out;
RETURN (l_lpn_id_out);
END generate_lpn;
2. LPN SPLIT API- with WMS LPNS utilized as full qty below API can be used to split the lpn for desired qty. Other option can be loose all the LPN qty and create new lpns with desired qty.
PROCEDURE split_lpn (
p_organization_id IN NUMBER
,p_from_lpn_number IN VARCHAR2
,p_from_lpn_id IN NUMBER
,p_to_lpn_number IN VARCHAR2
,p_to_lpn_id IN NUMBER
,p_inventory_item_id IN NUMBER
,p_subinventory_code IN VARCHAR2
,p_locator_id IN NUMBER
,p_lot_number IN VARCHAR2
,p_uom IN VARCHAR2
,p_quantity IN NUMBER
,x_error_message OUT VARCHAR
)
IS
l_container_item_id NUMBER;
l_trx_hdr_id NUMBER;
l_trx_tmp_id NUMBER;
l_ser_trx_id NUMBER;
l_api_return NUMBER;
l_msg_count NUMBER;
l_return_status VARCHAR2 (30);
l_msg_data VARCHAR2 (2000) := NULL;
l_error_message VARCHAR2 (2000) := NULL;
e_split_exception EXCEPTION;
l_sec_uom VARCHAR2 (30) := NULL;
l_sec_qty NUMBER := NULL;
BEGIN
g_debug_point := 'SPL_0010';
fnd_file.put_line (fnd_file.output
, ' SPLIT LPN API PARAM p_organization_id: '
|| p_organization_id
|| ' p_from_lpn_number '
|| p_from_lpn_number
|| ' p_from_lpn_id '
|| p_from_lpn_id
|| ' p_to_lpn_number '
|| p_to_lpn_number
|| ' p_to_lpn_id '
|| p_to_lpn_id
|| ' p_inventory_item_id '
|| p_inventory_item_id
|| ' p_subinventory_code '
|| p_subinventory_code
|| ' p_locator_id '
|| p_locator_id
|| ' p_lot_number '
|| p_lot_number
|| ' p_uom '
|| p_uom
|| ' p_quantity '
|| p_quantity
);
l_error_message := NULL;
g_debug_point := 'SPL_0012';
FOR l_sec_uom_rec IN (SELECT msi.secondary_uom_code
FROM apps.mtl_system_items_b msi
WHERE -1 = -1
AND msi.secondary_uom_code IS NOT NULL
AND msi.tracking_quantity_ind = 'PS'
AND msi.dual_uom_control = 2
AND msi.organization_id = p_organization_id
AND msi.inventory_item_id = p_inventory_item_id)
LOOP
g_debug_point := 'SPL_0012';
l_sec_uom := l_sec_uom_rec.secondary_uom_code;
l_sec_qty :=
inv_convert.inv_um_convert (item_id => p_inventory_item_id
,lot_number => p_lot_number
,organization_id => p_organization_id
,PRECISION => NULL
,from_quantity => p_quantity
,from_unit => p_uom
,to_unit => l_sec_uom
,from_name => NULL
,to_name => NULL
);
IF l_sec_qty = -99999
THEN
l_error_message := ' Error while pulling the Secondory Qty during split lpn inv_convert.inv_um_convert Error';
fnd_file.put_line (fnd_file.output, ' ' || l_error_message);
RAISE e_split_exception;
ELSE
fnd_file.put_line (fnd_file.output, ' SPLIT LPN API PARAM l_sec_qty: ' || l_sec_qty || ' l_sec_uom: ' || l_sec_uom);
END IF;
END LOOP;
g_debug_point := 'SPL_0015';
SELECT wlpn.inventory_item_id
INTO l_container_item_id
FROM apps.wms_license_plate_numbers wlpn
WHERE -1 = -1 AND wlpn.lpn_id = p_from_lpn_id;
l_msg_data := NULL;
apps.wms_container_pub.modify_lpn_wrapper (p_api_version => 1.0
,p_init_msg_list => apps.fnd_api.g_true
,p_commit => apps.fnd_api.g_false
,p_validation_level => apps.fnd_api.g_valid_level_full
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_lpn_id => p_to_lpn_id
,p_inventory_item_id => l_container_item_id
);
IF l_return_status <> fnd_api.g_ret_sts_success
THEN
get_api_message (l_msg_count, l_error_message);
IF l_error_message IS NOT NULL
THEN
fnd_file.put_line (fnd_file.output, ' API wms_container_pub.modify_lpn_wrapper ERR:- ' || l_error_message);
x_error_message := 'API wms_container_pub.modify_lpn_wrapper ERR:- ' || l_error_message;
RAISE e_split_exception;
END IF;
ELSE
fnd_file.put_line (fnd_file.output, ' API wms_container_pub.modify_lpn_wrapper success ');
END IF;
l_error_message := NULL;
SELECT apps.mtl_material_transactions_s.NEXTVAL
INTO l_trx_hdr_id
FROM DUAL;
g_debug_point := 'SPL_0020';
l_api_return :=
apps.inv_trx_util_pub.insert_line_trx (p_trx_hdr_id => l_trx_hdr_id
,p_trx_type_id => 89
, -- Container Split
p_trx_src_type_id => 13
, -- Inventory
p_trx_action_id => 52
, -- Container Split
p_org_id => p_organization_id
,p_item_id => p_inventory_item_id
,p_subinv_code => p_subinventory_code
,p_locator_id => p_locator_id
,p_from_lpn_id => p_from_lpn_id
,p_xfr_lpn_id => p_to_lpn_id
,p_uom => p_uom
,p_trx_qty => p_quantity
,p_pri_qty => p_quantity
,p_secondary_uom => l_sec_uom
,p_secondary_trx_qty => l_sec_qty
,p_date => SYSDATE
,p_user_id => gk_user_id
,x_trx_tmp_id => l_trx_tmp_id
,x_proc_msg => l_error_message
,p_planning_org_id => NULL
,p_planning_tp_type => NULL
,p_owning_org_id => NULL
,p_owning_tp_type => NULL
,p_move_order_header_id => NULL
,p_serial_allocated_flag => NULL
,p_transaction_status => NULL
,p_ship_to_location_id => NULL
,p_opm_org_in_xfer => NULL
);
IF l_api_return != 0
THEN
l_error_message := ' Error While inserting insert_line_trx for split LPN: ' || l_error_message;
RAISE e_split_exception;
END IF;
IF p_lot_number IS NOT NULL
THEN
g_debug_point := 'SPL_0030';
l_api_return :=
apps.inv_trx_util_pub.insert_lot_trx (p_trx_tmp_id => l_trx_tmp_id
,p_user_id => gk_user_id
,p_lot_number => p_lot_number
,p_trx_qty => p_quantity
,p_pri_qty => p_quantity
,p_secondary_uom => l_sec_uom
,p_secondary_qty => l_sec_qty
,x_ser_trx_id => l_ser_trx_id
,x_proc_msg => l_error_message
);
IF l_api_return != 0
THEN
l_error_message := ' Inserting into insert_lot_trx Err-' || l_error_message;
RAISE e_split_exception;
END IF;
END IF;
g_debug_point := 'SPL_0040';
l_api_return :=
apps.inv_lpn_trx_pub.process_lpn_trx (p_trx_hdr_id => l_trx_hdr_id
,p_business_flow_code => 20
,p_commit => fnd_api.g_false
,p_proc_mode => NULL
,p_process_trx => fnd_api.g_true
,p_atomic => fnd_api.g_false
,p_init_msg_list => TRUE
,x_proc_msg => l_error_message
);
IF l_api_return != 0
THEN
l_error_message := ' Inserting into inv_lpn_trx_pub.process_lpn_trx ' || l_error_message;
RAISE e_split_exception;
END IF;
EXCEPTION
WHEN e_split_exception
THEN
x_error_message := l_error_message;
WHEN OTHERS
THEN
x_error_message := 'LPN SPLIT Error : ' || SQLERRM;
END split_lpn;
To get the API errors use below procedure
PROCEDURE get_api_message (
p_msg_count IN NUMBER
,p_api_message OUT VARCHAR2
)
IS
x_msg_data VARCHAR2 (2000);
BEGIN
IF p_msg_count > 0
THEN
FOR i IN 1 .. p_msg_count
LOOP
fnd_msg_pub.get (p_msg_index => i, p_data => x_msg_data, p_encoded => fnd_api.g_false, p_msg_index_out => g_dummy);
IF i = 1
THEN
p_api_message := x_msg_data;
ELSE
p_api_message := p_api_message || CHR (10) || x_msg_data;
END IF;
END LOOP;
ELSE
p_api_message := NULL;
END IF;
END get_api_message;
3. Pick release API –
Pick release in WMS happens in three steps process_lpn, process_line and loan_lpn
wsh_delivery_details_pub.autocreate_deliveries (p_api_version_number => 1.0
,p_init_msg_list => fnd_api.g_false
,p_commit => fnd_api.g_false
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
,p_line_rows => l_dd_create_ids
,x_del_rows => l_delivery_ids
);
-- +------------------------------------------------------+
-- + Call the WMS_DIRECT_SHIP_PVT.PROCESS_LPN
-- +------------------------------------------------------+
fnd_file.put_line (fnd_file.output
, ' .. Call WMS_DIRECT_SHIP_PVT.PROCESS_LPN LPN# '
|| l_processing_lpn
|| ' LPN ID: '
|| l_processing_lpn_id
|| ' p_dock_locator_id: '
|| p_dock_locator_id
);
l_api_message := NULL;
x_return_status := NULL;
x_msg_count := NULL;
x_msg_data := NULL;
g_debug_point := 'WLPN_0200';
wms_direct_ship_pvt.process_lpn (p_lpn_id => l_processing_lpn_id
,p_org_id => p_organization_id
,p_dock_door_id => p_dock_locator_id --p_locator_id
,x_remaining_qty => x_remaining_qty
,x_num_line_processed => x_num_line_processed
,x_project_id => x_project_id
,x_task_id => x_task_id
,x_cross_project_allowed => x_cross_project_allowed
,x_cross_unit_allowed => x_cross_unit_allowed
,x_group_by_customer_flag => x_group_by_customer_flag
,x_group_by_fob_flag => x_group_by_fob_flag
,x_group_by_freight_terms_flag => x_group_by_freight_terms_flag
,x_group_by_intmed_ship_flag => x_group_by_intmed_ship_flag
,x_group_by_ship_method_flag => x_group_by_ship_method_flag
,x_group_by_ship_to_loc_value => x_group_by_ship_to_loc_value
,x_group_by_ship_from_loc_value => x_group_by_ship_from_loc_value
,x_group_by_customer_value => x_group_by_customer_value
,x_group_by_fob_value => x_group_by_fob_value
,x_group_by_freight_terms_value => x_group_by_freight_terms_value
,x_group_by_intmed_value => x_group_by_intmed_value
,x_group_by_ship_method_value => x_group_by_ship_method_value
,x_ct_wt_enabled => x_ct_wt_enabled
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
IF UPPER (x_return_status) <> 'S'
THEN
g_debug_point := 'WLPN_0210';
get_api_message (NVL (x_msg_count, 1), l_api_message);
r_lpn.error_message := 'WMS_DIRECT_SHIP_PVT.PROCESS_LPN ERR- ' || l_api_message;
r_lpn.status := g_error_stage_status;
RAISE e_lpn_process;
ELSE
fnd_file.put_line (fnd_file.output, ' .. WMS_DIRECT_SHIP_PVT.PROCESS_LPN success');
END IF;
g_debug_point := 'WLPN_0220';
-- +------------------------------------------------------------+
-- + Process the LPN which is loaded against a dock doar and assign order information (header id/line id) against the LPN
-- + this process will do the reservations on the order
-- +------------------------------------------------------------+
fnd_file.put_line (fnd_file.output, ' .. Call WMS_DIRECT_SHIP_PVT.PROCESS_LINE ');
l_api_message := NULL;
x_return_status := NULL;
x_msg_count := NULL;
x_msg_data := NULL;
g_debug_point := 'WLPN_0230';
wms_direct_ship_pvt.process_line (p_lpn_id => l_processing_lpn_id
,p_org_id => p_organization_id
,p_dock_door_id => p_dock_locator_id --p_locator_id
,p_order_header_id => p_order_header_id
,p_order_line_id => r_lpn.line_id
,p_inventory_item_id => r_lpn.inventory_item_id
,p_revision => NULL
,p_end_item_unit_number => NULL
,p_ordered_quantity => r_lpn.order_quantity
,p_processed_quantity => r_lpn.quantity_shipped
,p_date_requested => SYSDATE
,p_primary_uom_code => r_lpn.order_quantity_uom
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,x_remaining_quantity => x_remaining_qty
);
IF UPPER (x_return_status) <> 'S'
THEN
g_debug_point := 'WLPN_0240';
get_api_message (NVL (x_msg_count, 1), l_api_message);
r_lpn.error_message := 'WMS_DIRECT_SHIP_PVT.PROCESS_LINE ERR- ' || l_api_message;
r_lpn.status := g_error_stage_status;
RAISE e_lpn_process;
ELSE
fnd_file.put_line (fnd_file.output, ' .. WMS_DIRECT_SHIP_PVT.PROCESS_LINE success');
END IF;
g_debug_point := 'WLPN_0250';
-- +------------------------------------------------------------+
-- + Stage the LPN and finally pick confirm the order
-- +------------------------------------------------------------+
fnd_file.put_line (fnd_file.output, ' .. Call WMS_DIRECT_SHIP_PVT.LOAD_LPN ');
l_api_message := NULL;
x_return_status := NULL;
x_msg_count := NULL;
x_msg_data := NULL;
g_debug_point := 'WLPN_0260';
wms_direct_ship_pvt.load_lpn (p_lpn_id => l_processing_lpn_id
,p_org_id => p_organization_id
,p_dock_door_id => p_dock_locator_id --p_locator_id
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
IF UPPER (x_return_status) <> 'S'
THEN
g_debug_point := 'WLPN_0270';
get_api_message (NVL (x_msg_count, 1), l_api_message);
r_lpn.error_message := 'WMS_DIRECT_SHIP_PVT.LOAD_LPN ERR- ' || l_api_message;
r_lpn.status := g_error_stage_status;
RAISE e_lpn_process;
ELSE
fnd_file.put_line (fnd_file.output, ' .. WMS_DIRECT_SHIP_PVT.LOAD_LPN success');
END IF;
4. Backorder the LPN - Unload the LPN API
PROCEDURE process_lpn_unload_truck (
p_organization_id IN NUMBER
,p_lpn_id IN NUMBER
,p_lpn_number IN VARCHAR2
,p_api_message OUT VARCHAR2
)
IS
l_api_message VARCHAR2 (2000) := NULL;
x_return_status VARCHAR2 (2000);
x_msg_count NUMBER;
x_msg_data VARCHAR2 (2000);
BEGIN
g_debug_point := 'WLPNUT_0400';
fnd_file.put_line (fnd_file.output
, ' There exists error while LPN LOAD hence calling WMS_DIRECT_SHIP_PVT.unload_truck LPN# '
|| p_lpn_number
|| ' p_lpn_id: '
|| p_lpn_id
|| ' p_organization_id: '
|| p_organization_id
);
g_debug_point := 'WLPNUT_0410';
l_api_message := NULL;
x_return_status := NULL;
x_msg_count := NULL;
x_msg_data := NULL;
g_debug_point := 'WLPNUT_0420';
wms_direct_ship_pvt.unload_truck (p_outermost_lpn_id => p_lpn_id
,p_org_id => p_organization_id
,p_relieve_rsv => 'Y'
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
);
IF UPPER (x_return_status) <> 'S'
THEN
g_debug_point := 'WLPNUT_0430';
get_api_message (NVL (x_msg_count, 1), l_api_message);
IF l_api_message IS NOT NULL
THEN
fnd_file.put_line (fnd_file.output, ' .. WMS_DIRECT_SHIP_PVT.unload_truck ERR- ' || l_api_message);
END IF;
ELSE
fnd_file.put_line (fnd_file.output, ' .. WMS_DIRECT_SHIP_PVT.unload_truck success');
END IF;
p_api_message := l_api_message;
END process_lpn_unload_truck;
Thanks,
Ajay