The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT common_routing_sequence_id
INTO l_common_routing_sequence_id
FROM bom_operational_routings
WHERE routing_sequence_id =
p_op_network_unexp_rec.routing_sequence_id ;
* transaction type is Update or Delete 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_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
, p_op_network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
, x_old_op_network_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Rec_Type
, x_old_op_network_unexp_rec
IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
, x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
, x_return_status IN OUT NOCOPY VARCHAR2
)
IS
l_token_tbl Error_Handler.Token_Tbl_Type;
( BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE)
THEN
l_token_tbl(1).token_name := 'FROM_OP_SEQ_NUMBER';
SELECT standard_operation_id
,disable_date
FROM BOM_OPERATION_SEQUENCES bos
WHERE bos.operation_sequence_id = p_op_seq_id ;
l_token_tbl.delete ;
IF p_op_network_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
THEN
IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
('Operation Attr Validation: Missing Value. . . ' || x_return_status) ;
SELECT 'x' dummy
FROM DUAL
WHERE EXISTS
( SELECT NULL
FROM bom_operation_networks a
WHERE a.from_op_seq_id = P_From_Op_Seq_Id
AND a.to_op_seq_id <> P_To_Op_Seq_Id
AND a.transition_type = 1
);
SELECT 'Not Unique'
FROM SYS.DUAL
WHERE EXISTS ( SELECT NULL
FROM bom_operation_networks a
WHERE a.from_op_seq_id = p_from_op_seq_id
AND a.to_op_seq_id = p_to_op_seq_id
);
IF p_op_network_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
AND ( p_op_network_unexp_rec.new_from_op_seq_id IS NOT NULL OR
p_op_network_unexp_rec.new_to_op_seq_id IS NOT NULL )
THEN
IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
Error_Handler.Write_Debug('Check op network uniqueness for UPDATE . . . ');
l_token_tbl.DELETE(2) ;
SELECT NVL(SUM(planning_pct), 0)
INTO l_total_planning_pct
FROM bom_operation_networks
WHERE from_op_seq_id = p_op_network_unexp_rec.from_op_seq_id
AND to_op_seq_id <> p_op_network_unexp_rec.to_op_seq_id
AND transition_type IN (1, 2);
IF p_op_network_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
THEN
SELECT NVL(planning_pct,0)
INTO l_planning_pct
FROM bom_operation_networks
WHERE from_op_seq_id = p_op_network_unexp_rec.from_op_seq_id
AND to_op_seq_id = p_op_network_unexp_rec.to_op_seq_id
AND transition_type IN (1, 2);
l_token_tbl.DELETE(2) ;
IF p_op_network_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE
AND BOM_RTG_Globals.Is_Osfm_NW_Calc_Flag
AND
WSMPUTIL.JOBS_WITH_QTY_AT_FROM_OP (x_err_code => l_err_code,
x_err_msg => l_err_text,
p_routing_sequence_id => p_op_network_unexp_rec.Routing_Sequence_Id,
p_operation_seq_num => p_op_network_rec.From_Op_Seq_Number)
THEN
l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
IF p_op_network_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
AND p_op_network_rec.connection_type IN (1, 2)
AND BOM_Rtg_Globals.Get_Eam_Item_Type <> BOM_Rtg_Globals.G_ASSET_ACTIVITY
THEN
SELECT NVL(SUM(planning_pct), 0)
INTO l_total_planning_pct
FROM bom_operation_networks
WHERE from_op_seq_id = NVL( p_op_network_unexp_rec.new_from_op_seq_id
, p_op_network_unexp_rec.from_op_seq_id)
AND to_op_seq_id <> NVL( p_op_network_unexp_rec.new_to_op_seq_id
, p_op_network_unexp_rec.to_op_seq_id)
AND transition_type IN (1, 2);
l_token_tbl.DELETE(2) ;
* previous start id as found before the whole update
* previous end id as found before the whole update
* Parameters OUT:
* Mesg token Table
* Return Status
* Purpose : Procedure will varify that the routing start and
* end are unchanged
***********************************************************************/
PROCEDURE Check_WSM_Netowrk_Attribs
( p_routing_sequence_id IN NUMBER
, p_prev_start_id IN NUMBER
, p_prev_end_id IN NUMBER
, x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
, x_Return_status IN OUT NOCOPY VARCHAR2
)
IS
CURSOR cur_op_seq_num( p_routing_id NUMBER,
p_operation_seq_id NUMBER) IS
select operation_seq_num from bom_operation_sequences
WHERE routing_sequence_id = p_routing_id
AND operation_sequence_id = p_operation_seq_id;
select routing_sequence_id, cfm_routing_flag
into l_routing_sequence_id,l_cfm_routing_flag
from bom_operational_routings where
routing_sequence_id = p_routing_sequence_id;
SELECT common_routing_sequence_id
INTO l_common_routing_sequence_id
FROM bom_operational_routings
WHERE routing_sequence_id = l_routing_sequence_id;