46: )
47: IS
48: l_op_network_rec Bom_Rtg_Pub.op_network_Rec_Type;
49: l_op_network_unexp_rec Bom_Rtg_Pub.op_network_Unexposed_Rec_Type;
50: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
51: l_dummy varchar2(10);
52: BEGIN
53: IF BOM_Rtg_Globals.Get_Debug = 'Y'
54: THEN Error_Handler.Write_Debug('Query row for operation network');
111: x_return_status := BOM_Rtg_Globals.G_RECORD_NOT_FOUND;
112: x_op_network_rec := l_op_network_rec;
113: x_op_network_unexp_rec := l_op_network_unexp_rec;
114: WHEN OTHERS THEN
115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
116: x_op_network_rec := l_op_network_rec;
117: x_op_network_unexp_rec := l_op_network_unexp_rec;
118:
119: END Query_Row;
240: , program_update_date = SYSDATE
241: where operation_sequence_id =
242: p_op_network_unexp_rec.to_op_seq_id;
243:
244: x_return_status := FND_API.G_RET_STS_SUCCESS;
245:
246: EXCEPTION
247: WHEN OTHERS THEN
248: Error_Handler.Add_Error_Token
251: ' :Inserting Record ' ||
252: SQLERRM
253: , x_mesg_token_Tbl => x_mesg_token_tbl
254: );
255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256:
257: END Insert_Row;
258:
259: /********************************************************************
379: l_op_network_unexp_rec Bom_Rtg_Pub.op_network_Unexposed_Rec_Type := p_op_network_unexp_rec;
380: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
381:
382: BEGIN
383: x_return_status := FND_API.G_RET_STS_SUCCESS;
384:
385: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
386: Error_Handler.Write_Debug('Delete operation network.'
387: );
400: to_char(SQLCODE)
401: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
402: , x_Mesg_Token_Tbl => x_Mesg_Token_Tbl
403: );
404: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
405: x_mesg_token_tbl := l_mesg_token_tbl;
406:
407: END Delete_Row;
408:
423: , x_return_status IN OUT NOCOPY VARCHAR2
424: )
425: IS
426: l_Mesg_Token_tbl Error_Handler.Mesg_Token_Tbl_Type;
427: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
428: l_err_text VARCHAR2(2000) ;
429:
430: BEGIN
431: IF p_op_network_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
477: , x_mesg_token_tbl => l_mesg_token_tbl
478: ) ;
479:
480: -- Return the status and message table.
481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
482: x_mesg_token_tbl := l_mesg_token_tbl ;
483:
484: END Perform_Writes;
485:
510: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;
511: err_code NUMBER;
512: err_msg VARCHAR2(2000);
513: BEGIN
514: x_return_status := FND_API.G_RET_STS_SUCCESS;
515:
516: select routing_sequence_id, cfm_routing_flag
517: into l_routing_sequence_id,l_cfm_routing_flag
518: from bom_operational_routings where
521: -- If the value is Null, set Common Routing Seq Id.
522: l_common_routing_sequence_id := BOM_Rtg_Globals.Get_Common_Rtg_Seq_id ;
523:
524: IF l_common_routing_sequence_id IS NULL OR
525: l_common_routing_sequence_id = FND_API.G_MISS_NUM THEN
526: BEGIN
527: SELECT common_routing_sequence_id
528: INTO l_common_routing_sequence_id
529: FROM bom_operational_routings
552: , x_mesg_token_tbl => l_mesg_token_tbl
553: ) ;
554:
555: END IF;
556: x_return_status := FND_API.G_RET_STS_ERROR ;
557: RETURN;
558: END IF;
559:
560: WSMPUTIL.FIND_ROUTING_END(l_common_routing_sequence_id,
576: , x_mesg_token_tbl => l_mesg_token_tbl
577: ) ;
578:
579: END IF;
580: x_return_status := FND_API.G_RET_STS_ERROR ;
581: RETURN;
582: END IF;
583: END IF;
584:
637: l_assembly_item_id NUMBER :=0;
638: l_org_id NUMBER :=0;
639: actual_end_id NUMBER; --for bug3134027
640: BEGIN
641: x_return_status := FND_API.G_RET_STS_SUCCESS;
642:
643: select routing_sequence_id, cfm_routing_flag,
644: completion_subinventory, completion_locator_id,
645: assembly_item_id , organization_id
653: -- If the value is Null, set Common Routing Seq Id.
654: l_common_routing_sequence_id := BOM_Rtg_Globals.Get_Common_Rtg_Seq_id ;
655:
656: IF l_common_routing_sequence_id IS NULL OR
657: l_common_routing_sequence_id = FND_API.G_MISS_NUM THEN
658: BEGIN
659: SELECT common_routing_sequence_id
660: INTO l_common_routing_sequence_id
661: FROM bom_operational_routings
703: , p_message_text => err_msg
704: , p_mesg_token_tbl => l_mesg_token_tbl
705: , x_mesg_token_tbl => l_mesg_token_tbl
706: ) ;
707: x_return_status := FND_API.G_RET_STS_ERROR ;
708: x_mesg_token_tbl := l_mesg_token_tbl;
709: RETURN;
710: ELSE
711: l_rtg_comp_sub_inv := l_item_compl_subinv;
753: , p_message_text => err_msg
754: , p_mesg_token_tbl => l_mesg_token_tbl
755: , x_mesg_token_tbl => l_mesg_token_tbl
756: ) ;
757: x_return_status := FND_API.G_RET_STS_ERROR ;
758: RETURN;
759: END IF;
760: END IF;
761: x_mesg_token_tbl := l_mesg_token_tbl;
850: EXIT;
851: END IF;
852: END LOOP;
853:
854: x_return_status := FND_API.G_RET_STS_SUCCESS;
855:
856: END Copy_First_Last_Dis_Op;
857:
858: /*#