The following lines contain the word 'select', 'insert', 'update' or 'delete':
* transaction type is Update and the record
* does not exist then the return status would be an
* error as well. Mesg_Token_Table will carry the
* error messsage and the tokens associated with the
* message.
*********************************************************************/
PROCEDURE Check_Existence
( p_eam_op_network_rec IN EAM_PROCESS_WO_PUB.eam_op_network_rec_type
, x_old_eam_op_network_rec OUT NOCOPY EAM_PROCESS_WO_PUB.eam_op_network_rec_type
, x_Mesg_Token_Tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
, x_return_status OUT NOCOPY VARCHAR2
)
IS
l_token_tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
(EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE)
THEN
l_token_tbl(1).token_name := 'PRIOR_OPERATION';
x_old_eam_op_network_rec.transaction_type := EAM_PROCESS_WO_PVT.G_OPR_UPDATE;
select 1
into g_dummy
from wip_operations wo
where wo.organization_id = p_eam_op_network_rec.organization_id
and wo.wip_entity_id = p_eam_op_network_rec.wip_entity_id
and wo.operation_seq_num = p_eam_op_network_rec.prior_operation
and nvl(wo.operation_completed,'N') = 'N';
select 1
into g_dummy
from wip_operations wo
where wo.organization_id = p_eam_op_network_rec.organization_id
and wo.wip_entity_id = p_eam_op_network_rec.wip_entity_id
and wo.operation_seq_num = p_eam_op_network_rec.next_operation
and nvl(wo.operation_completed,'N') = 'N';