The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_material_line (
p_validation_level IN NUMBER
:= gme_common_pvt.g_max_errors
,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
,x_message_count OUT NOCOPY NUMBER
,x_message_list OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_batch_header_rec IN gme_batch_header%ROWTYPE
,p_material_detail_rec IN gme_material_details%ROWTYPE
,p_batch_step_id IN NUMBER := NULL
,p_trans_id IN NUMBER
,x_transacted OUT NOCOPY VARCHAR2
,x_material_detail_rec OUT NOCOPY gme_material_details%ROWTYPE)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'insert_material_line_form';
SAVEPOINT insert_material_line1;
gme_debug.log_initialize ('InsertMaterialLineForm');
insert_material_line (p_validation_level => p_validation_level
,p_init_msg_list => p_init_msg_list
,x_message_count => x_message_count
,x_message_list => x_message_list
,x_return_status => x_return_status
,p_batch_header_rec => p_batch_header_rec
,p_material_detail_rec => p_material_detail_rec
,p_batch_step_rec => l_batch_step_rec
,p_trans_id => p_trans_id
,x_transacted => x_transacted
,x_material_detail_rec => x_material_detail_rec);
GMF_VIB.Update_Batch_Requirements
( p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_batch_id => p_batch_header_rec.batch_id,
x_return_status => x_return_status,
x_msg_count => l_message_count,
x_msg_data => l_message_list);
GME_ERES_PKG.INSERT_EVENT(P_EVENT_NAME => gme_common_pvt.G_BATCHMTL_ADDED
,P_EVENT_KEY => x_material_detail_rec.batch_id||'-'||x_material_detail_rec.material_detail_id
,P_USER_KEY_LABEL => FND_MESSAGE.GET_STRING('GME','GME_PSIG_BATCH_MATL_LABEL')
,P_USER_KEY_VALUE => gme_common_pvt.g_organization_code ||
'-'||p_batch_header_rec.batch_no||'-'|| x_material_detail_rec.Line_no
||'-'||GME_ERES_PKG.GET_ITEM_NUMBER(x_material_detail_rec.organization_id,x_material_detail_rec.inventory_item_id)
,P_POST_OP_API => 'NONE'
,P_PARENT_EVENT => NULL
,P_PARENT_EVENT_KEY => NULL
,P_PARENT_ERECORD_ID => NULL
,X_STATUS => x_return_status);
ROLLBACK TO SAVEPOINT insert_material_line1;
ROLLBACK TO SAVEPOINT insert_material_line1;
ROLLBACK TO SAVEPOINT insert_material_line1;
END insert_material_line;
PROCEDURE insert_material_line (
p_validation_level IN NUMBER
:= gme_common_pvt.g_max_errors
,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
,x_message_count OUT NOCOPY NUMBER
,x_message_list OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_batch_header_rec IN gme_batch_header%ROWTYPE
,p_material_detail_rec IN gme_material_details%ROWTYPE
,p_batch_step_rec IN gme_batch_steps%ROWTYPE
,p_trans_id IN NUMBER
,x_transacted OUT NOCOPY VARCHAR2
,x_material_detail_rec OUT NOCOPY gme_material_details%ROWTYPE)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'insert_material_line';
SAVEPOINT insert_material_line;
gme_debug.log_initialize ('InsertMaterialLine');
gme_material_detail_pvt.insert_material_line
(p_batch_header_rec => p_batch_header_rec
,p_material_detail_rec => p_material_detail_rec
,p_batch_step_rec => p_batch_step_rec
,p_trans_id => p_trans_id
,x_transacted => x_transacted
,x_material_detail_rec => x_material_detail_rec
,x_return_status => x_return_status);
gme_common_pvt.log_message ('GME_MTL_LINE_INSERTED');
ROLLBACK TO SAVEPOINT insert_material_line;
ROLLBACK TO SAVEPOINT insert_material_line;
ROLLBACK TO SAVEPOINT insert_material_line;
END insert_material_line;
PROCEDURE update_material_line (
p_validation_level IN NUMBER
:= gme_common_pvt.g_max_errors
,p_init_msg_list IN VARCHAR2
:= fnd_api.g_false
,x_message_count OUT NOCOPY NUMBER
,x_message_list OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_batch_header_rec IN gme_batch_header%ROWTYPE
,p_material_detail_rec IN gme_material_details%ROWTYPE
,p_batch_step_id IN NUMBER := NULL
,p_scale_phantom IN VARCHAR2 := fnd_api.g_false
,p_trans_id IN NUMBER
,x_transacted OUT NOCOPY VARCHAR2
,x_material_detail_rec OUT NOCOPY gme_material_details%ROWTYPE)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'update_material_line_form';
SAVEPOINT update_material_line1;
gme_debug.log_initialize ('UpdateMaterialLineForm');
update_material_line
(p_validation_level => p_validation_level
,p_init_msg_list => p_init_msg_list
,x_message_count => x_message_count
,x_message_list => x_message_list
,x_return_status => x_return_status
,p_batch_header_rec => p_batch_header_rec
,p_material_detail_rec => p_material_detail_rec
,p_stored_material_detail_rec => l_stored_material_detail_rec
,p_batch_step_rec => l_batch_step_rec
,p_scale_phantom => p_scale_phantom
,p_trans_id => p_trans_id
,x_transacted => x_transacted
,x_material_detail_rec => x_material_detail_rec);
GME_ERES_PKG.INSERT_EVENT(P_EVENT_NAME => gme_common_pvt.G_BATCHMTL_UPDATED
,P_EVENT_KEY => p_material_detail_rec.batch_id||'-'||p_material_detail_rec.material_detail_id
,P_USER_KEY_LABEL => FND_MESSAGE.GET_STRING('GME','GME_PSIG_BATCH_MATL_LABEL')
,P_USER_KEY_VALUE => gme_common_pvt.g_organization_code ||
'-'||p_batch_header_rec.batch_no||'-'|| p_material_detail_rec.Line_no
||'-'||GME_ERES_PKG.GET_ITEM_NUMBER(p_material_detail_rec.organization_id,p_material_detail_rec.inventory_item_id)
,P_POST_OP_API => 'NONE'
,P_PARENT_EVENT => NULL
,P_PARENT_EVENT_KEY => NULL
,P_PARENT_ERECORD_ID => NULL
,X_STATUS => x_return_status);
ROLLBACK TO SAVEPOINT update_material_line1;
ROLLBACK TO SAVEPOINT update_material_line1;
ROLLBACK TO SAVEPOINT update_material_line1;
END update_material_line;
PROCEDURE update_material_line (
p_validation_level IN NUMBER
:= gme_common_pvt.g_max_errors
,p_init_msg_list IN VARCHAR2
:= fnd_api.g_false
,x_message_count OUT NOCOPY NUMBER
,x_message_list OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_batch_header_rec IN gme_batch_header%ROWTYPE
,p_material_detail_rec IN gme_material_details%ROWTYPE
,p_stored_material_detail_rec IN gme_material_details%ROWTYPE
,p_batch_step_rec IN gme_batch_steps%ROWTYPE
,p_scale_phantom IN VARCHAR2
:= fnd_api.g_false
,p_trans_id IN NUMBER
,x_transacted OUT NOCOPY VARCHAR2
,x_material_detail_rec OUT NOCOPY gme_material_details%ROWTYPE)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'update_material_line';
SAVEPOINT update_material_line;
gme_debug.log_initialize ('UpdateMaterialLine');
gme_material_detail_pvt.update_material_line
(p_batch_header_rec => p_batch_header_rec
,p_material_detail_rec => p_material_detail_rec
,p_stored_material_detail_rec => p_stored_material_detail_rec
,p_batch_step_rec => p_batch_step_rec
,p_scale_phantom => p_scale_phantom
,p_trans_id => p_trans_id
,x_transacted => x_transacted
,x_return_status => x_return_status
,x_material_detail_rec => x_material_detail_rec);
gme_common_pvt.log_message ('GME_MTL_LINE_UPDATED');
ROLLBACK TO SAVEPOINT update_material_line;
ROLLBACK TO SAVEPOINT update_material_line;
ROLLBACK TO SAVEPOINT update_material_line;
END update_material_line;
PROCEDURE delete_material_line (
p_validation_level IN NUMBER
:= gme_common_pvt.g_max_errors
,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
,x_message_count OUT NOCOPY NUMBER
,x_message_list OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_batch_header_rec IN gme_batch_header%ROWTYPE
,p_material_detail_rec IN gme_material_details%ROWTYPE
,p_batch_step_id IN NUMBER := NULL
,x_transacted OUT NOCOPY VARCHAR2)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'delete_material_line_form';
SAVEPOINT delete_material_line1;
gme_debug.log_initialize ('DeleteMaterialLineForm');
delete_material_line (
p_validation_level => p_validation_level
,p_init_msg_list => p_init_msg_list
,x_message_count => x_message_count
,x_message_list => x_message_list
,x_return_status => x_return_status
,p_batch_header_rec => p_batch_header_rec
,p_material_detail_rec => p_material_detail_rec
,p_batch_step_rec => l_batch_step_rec
,x_transacted => x_transacted);
GMF_VIB.Update_Batch_Requirements
( p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_batch_id => p_batch_header_rec.batch_id,
x_return_status => x_return_status,
x_msg_count => l_message_count,
x_msg_data => l_message_list);
GME_ERES_PKG.INSERT_EVENT(P_EVENT_NAME => gme_common_pvt.G_BATCHMTL_REMOVED
,P_EVENT_KEY => p_material_detail_rec.batch_id||'-'||p_material_detail_rec.material_detail_id
,P_USER_KEY_LABEL => FND_MESSAGE.GET_STRING('GME','GME_PSIG_BATCH_MATL_LABEL')
,P_USER_KEY_VALUE => gme_common_pvt.g_organization_code ||
'-'||p_batch_header_rec.batch_no||'-'|| p_material_detail_rec.Line_no
||'-'||GME_ERES_PKG.GET_ITEM_NUMBER(p_material_detail_rec.organization_id,p_material_detail_rec.inventory_item_id)
,P_POST_OP_API => 'NONE'
,P_PARENT_EVENT => NULL
,P_PARENT_EVENT_KEY => NULL
,P_PARENT_ERECORD_ID => NULL
,X_STATUS => x_return_status);
ROLLBACK TO SAVEPOINT delete_material_line1;
ROLLBACK TO SAVEPOINT delete_material_line1;
ROLLBACK TO SAVEPOINT delete_material_line1;
END delete_material_line;
PROCEDURE delete_material_line (
p_validation_level IN NUMBER
:= gme_common_pvt.g_max_errors
,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
,x_message_count OUT NOCOPY NUMBER
,x_message_list OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_batch_header_rec IN gme_batch_header%ROWTYPE
,p_material_detail_rec IN gme_material_details%ROWTYPE
,p_batch_step_rec IN gme_batch_steps%ROWTYPE
,x_transacted OUT NOCOPY VARCHAR2)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'delete_material_line';
SAVEPOINT delete_material_line;
gme_debug.log_initialize ('DeleteMaterialLine');
gme_material_detail_pvt.delete_material_line
(p_batch_header_rec => p_batch_header_rec
,p_material_detail_rec => p_material_detail_rec
,p_batch_step_rec => p_batch_step_rec
,x_transacted => x_transacted
,x_return_status => x_return_status);
gme_common_pvt.log_message ('GME_MTL_LINE_DELETED');
ROLLBACK TO SAVEPOINT delete_material_line;
ROLLBACK TO SAVEPOINT delete_material_line;
ROLLBACK TO SAVEPOINT delete_material_line;
END delete_material_line;
SELECT NVL(location_control_code,1) location_control_code, restrict_locators_code
FROM mtl_system_items_kfv
WHERE organization_id = v_org_id
AND inventory_item_id = v_inventory_item_id;
PROCEDURE delete_step (
p_validation_level IN NUMBER
:= gme_common_pvt.g_max_errors
,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
,x_message_count OUT NOCOPY NUMBER
,x_message_list OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_batch_step_rec IN gme_batch_steps%ROWTYPE
,p_batch_header_rec IN gme_batch_header%ROWTYPE)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'DELETE_STEP';
delete_step_failed EXCEPTION;
SAVEPOINT delete_step;
gme_debug.log_initialize ('DeleteStep');
gme_delete_batch_step_pvt.delete_step
(x_return_status => x_return_status
,p_batch_step_rec => p_batch_step_rec
,p_reroute_flag => FALSE);
RAISE delete_step_failed;
GME_ERES_PKG.INSERT_EVENT(P_EVENT_NAME => gme_common_pvt.G_BATCHSTEP_REMOVED
,P_EVENT_KEY => p_batch_step_rec.batch_id||'-'||p_batch_step_rec.BATCHSTEP_id
,P_USER_KEY_LABEL => FND_MESSAGE.GET_STRING('GME','GME_PSIG_BATCH_STEP_LABEL')
,P_USER_KEY_VALUE => gme_common_pvt.g_organization_code ||
'-'||p_batch_header_rec.batch_no||'-'|| p_batch_step_rec.BATCHSTEP_NO
||'-'||GME_ERES_PKG.GET_OPRN_NO(p_batch_step_rec.OPRN_ID)
,P_POST_OP_API => 'NONE'
,P_PARENT_EVENT => NULL
,P_PARENT_EVENT_KEY => NULL
,P_PARENT_ERECORD_ID => NULL
,X_STATUS => x_return_status);
RAISE delete_step_failed;
gme_common_pvt.log_message ('GME_API_STEP_DELETE');
ROLLBACK TO SAVEPOINT delete_step;
WHEN delete_step_failed OR batch_save_failed THEN
ROLLBACK TO SAVEPOINT delete_step;
ROLLBACK TO SAVEPOINT delete_step;
END delete_step;
Procedure: insert_step
Modification History :
Punit Kumar 07-Apr-2005 Convergence Changes
/*************************************************************************/
PROCEDURE insert_step (
p_validation_level IN NUMBER
:= gme_common_pvt.g_max_errors
,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
,x_message_count OUT NOCOPY NUMBER
,x_message_list OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_batch_header_rec IN gme_batch_header%ROWTYPE
,p_batch_step_rec IN gme_batch_steps%ROWTYPE
,x_batch_step OUT NOCOPY gme_batch_steps%ROWTYPE)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'INSERT_STEP';
insert_step_failed EXCEPTION;
SAVEPOINT insert_step;
gme_debug.log_initialize ('InsertStep');
gme_insert_step_pvt.insert_batch_step
(p_gme_batch_header => p_batch_header_rec
,p_gme_batch_step => p_batch_step_rec
,x_gme_batch_step => x_batch_step
,x_return_status => x_return_status);
RAISE insert_step_failed;
GMF_VIB.Update_Batch_Requirements
( p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_batch_id => p_batch_header_rec.batch_id,
x_return_status => x_return_status,
x_msg_count => l_message_count,
x_msg_data => l_message_list);
GME_ERES_PKG.INSERT_EVENT(P_EVENT_NAME => gme_common_pvt.G_BATCHSTEP_ADDED
,P_EVENT_KEY => x_batch_step.batch_id||'-'||x_batch_step.BATCHSTEP_id
,P_USER_KEY_LABEL => FND_MESSAGE.GET_STRING('GME','GME_PSIG_BATCH_STEP_LABEL')
,P_USER_KEY_VALUE => gme_common_pvt.g_organization_code ||
'-'||p_batch_header_rec.batch_no||'-'|| x_batch_step.BATCHSTEP_NO
||'-'||GME_ERES_PKG.GET_OPRN_NO(x_batch_step.OPRN_ID)
,P_POST_OP_API => 'NONE'
,P_PARENT_EVENT => NULL
,P_PARENT_EVENT_KEY => NULL
,P_PARENT_ERECORD_ID => NULL
,X_STATUS => x_return_status);
RAISE insert_step_failed;
gme_common_pvt.log_message ('GME_INSERT_STEP');
ROLLBACK TO SAVEPOINT insert_step;
WHEN insert_step_failed OR batch_save_failed THEN
ROLLBACK TO SAVEPOINT insert_step;
ROLLBACK TO SAVEPOINT insert_step;
END insert_step;
( p_action => 'DELETE'
, p_trans_id => NULL
, p_trans_id_reversed => NULL
, p_gme_batch_hdr => x_batch_header
, p_gme_matl_dtl => NULL
);
,p_delete_pending IN VARCHAR2 := fnd_api.g_false
,x_batch_step_rec OUT NOCOPY gme_batch_steps%ROWTYPE)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'CLOSE_STEP';
,p_delete_pending => p_delete_pending
,x_batch_step_rec => x_batch_step_rec
,x_return_status => x_return_status);
,p_update_inventory_ind => p_batch_header_rec.update_inventory_ind
,p_create_resv_pend_lots => p_create_resv_pend_lots
,p_from_unrelease_batch => 0
,x_batch_step_rec => x_batch_step_rec
,x_return_status => x_return_status);
PROCEDURE update_pending_product_lot (
p_validation_level IN NUMBER
:= gme_common_pvt.g_max_errors
,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
,x_message_count OUT NOCOPY NUMBER
,x_message_list OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_org_id IN NUMBER
,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE
,x_pending_product_lots_rec IN OUT NOCOPY gme_pending_product_lots%ROWTYPE)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'update_pending_product_lot';
update_pp_lot_failure EXCEPTION;
SAVEPOINT update_pp_lot;
gme_debug.log_initialize ('UpdatePendingProdLot');
gme_pending_product_lots_pvt.update_pending_product_lot
(p_pending_product_lots_rec => p_pending_product_lots_rec
,x_pending_product_lots_rec => x_pending_product_lots_rec
,x_return_status => x_return_status);
RAISE update_pp_lot_failure;
gme_common_pvt.log_message ('GME_API_PP_LOT_UPDATED');
WHEN update_pp_lot_failure THEN
ROLLBACK TO SAVEPOINT update_pp_lot;
ROLLBACK TO SAVEPOINT update_pp_lot;
ROLLBACK TO SAVEPOINT update_pp_lot;
END update_pending_product_lot;
PROCEDURE delete_pending_product_lot (
p_validation_level IN NUMBER
:= gme_common_pvt.g_max_errors
,p_init_msg_list IN VARCHAR2 := fnd_api.g_false
,x_message_count OUT NOCOPY NUMBER
,x_message_list OUT NOCOPY VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,p_org_id IN NUMBER
,p_pending_product_lots_rec IN gme_pending_product_lots%ROWTYPE)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'delete_pending_product_lot';
delete_pp_lot_failure EXCEPTION;
SAVEPOINT delete_pp_lot;
gme_debug.log_initialize ('DeletePendingProdLot');
gme_pending_product_lots_pvt.delete_pending_product_lot
(p_pending_product_lots_rec => p_pending_product_lots_rec
,x_return_status => x_return_status);
RAISE delete_pp_lot_failure;
gme_common_pvt.log_message ('GME_API_PP_LOT_DELETED');
WHEN delete_pp_lot_failure THEN
ROLLBACK TO SAVEPOINT delete_pp_lot;
ROLLBACK TO SAVEPOINT delete_pp_lot;
ROLLBACK TO SAVEPOINT delete_pp_lot;
END delete_pending_product_lot;