200: -- /** time **/ TRUNC(EFFECTIVITY_DATE) = TRUNC(p_effectivity_date)
201: )
202: OR p_operation_type IN (2,3)
203: )
204: AND NVL(OPERATION_TYPE, 1) = DECODE(p_operation_type, FND_API.G_MISS_NUM, 1
205: , NVL(p_operation_type, 1))
206: AND OPERATION_SEQ_NUM = p_operation_sequence_number
207: AND routing_sequence_id = p_routing_sequence_id
208: ;
343: , p_mesg_token_tbl => p_mesg_token_tbl
344: , x_mesg_token_tbl => x_mesg_token_tbl
345: );
346:
347: x_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR ;
348:
349: END Query_Row;
350:
351:
483: WHERE NOT EXISTS ( SELECT routing_sequence_id
484: FROM bom_operational_routings
485: WHERE assembly_item_id = p_revised_item_id
486: AND organization_id = p_organization_id
487: AND NVL(alternate_routing_designator, FND_API.G_MISS_CHAR) =
488: NVL(p_alternate_rtg_code,FND_API.G_MISS_CHAR)
489: );
490:
491: -- Get Eng_Item_Flag for Routing Type value
484: FROM bom_operational_routings
485: WHERE assembly_item_id = p_revised_item_id
486: AND organization_id = p_organization_id
487: AND NVL(alternate_routing_designator, FND_API.G_MISS_CHAR) =
488: NVL(p_alternate_rtg_code,FND_API.G_MISS_CHAR)
489: );
490:
491: -- Get Eng_Item_Flag for Routing Type value
492: CURSOR l_routing_type_csr ( p_revised_item_id NUMBER
508: -- Initialize Common Record and Status
509: --
510: l_com_operation_rec := p_com_operation_rec ;
511: l_com_op_unexp_rec := p_com_op_unexp_rec ;
512: l_return_status := FND_API.G_RET_STS_SUCCESS ;
513: x_return_status := FND_API.G_RET_STS_SUCCESS ;
514:
515: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
516: ('Performing Database Writes . . .') ;
509: --
510: l_com_operation_rec := p_com_operation_rec ;
511: l_com_op_unexp_rec := p_com_op_unexp_rec ;
512: l_return_status := FND_API.G_RET_STS_SUCCESS ;
513: x_return_status := FND_API.G_RET_STS_SUCCESS ;
514:
515: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
516: ('Performing Database Writes . . .') ;
517: END IF ;
617: , x_return_status => l_temp_return_status
618: ) ;
619:
620:
621: IF l_temp_return_status <> FND_API.G_RET_STS_SUCCESS
622: THEN
623: l_return_status := l_temp_return_status ;
624: l_mesg_token_Tbl := l_temp_Mesg_Token_Tbl ;
625:
681: , x_return_status => l_temp_return_status
682: , x_mesg_token_tbl => l_temp_mesg_token_tbl
683: ) ;
684:
685: IF l_temp_return_status <> FND_API.G_RET_STS_SUCCESS
686: THEN
687: l_return_status := l_temp_return_status ;
688: l_mesg_token_Tbl := l_temp_Mesg_Token_Tbl ;
689: END IF ;
783: , x_mesg_token_tbl => l_mesg_token_tbl
784: ) ;
785:
786: -- Return the status and message table.
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
788: x_mesg_token_tbl := l_mesg_token_tbl ;
789:
790: END Perform_Writes;
791:
837: -- on the eng odf.This is because the RTG and ECO objects should be
838: -- independant of each other. But commenting out because we will reuse it
839: -- in release 12 when these all files alongwith the odf will be base
840:
841: x_return_status := FND_API.G_RET_STS_SUCCESS ;
842:
843: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
844: ('Create New Routing for ECO . . .') ;
845: END IF ;
928: , x_mesg_token_tbl => l_mesg_token_tbl
929: ) ;
930:
931: -- Return the status and message table.
932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
933: x_mesg_token_tbl := l_mesg_token_tbl ;
934: */
935:
936:
1447:
1448:
1449: BEGIN
1450:
1451: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1452: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1453:
1454: l_Bo_Id := BOM_Rtg_Globals.Get_Bo_Identifier ;
1455:
1448:
1449: BEGIN
1450:
1451: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1452: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1453:
1454: l_Bo_Id := BOM_Rtg_Globals.Get_Bo_Identifier ;
1455:
1456:
1699: ) ;
1700: END IF ;
1701:
1702: -- Return the status and message table.
1703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1704: x_mesg_token_tbl := l_mesg_token_tbl ;
1705:
1706: END Insert_Row ;
1707:
1731: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1732:
1733: BEGIN
1734:
1735: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1736: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1737:
1738:
1739: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update operation . . .') ;
1732:
1733: BEGIN
1734:
1735: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1736: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1737:
1738:
1739: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Performing update operation . . .') ;
1740: END IF ;
1865: ) ;
1866: END IF ;
1867:
1868: -- Return the status and message table.
1869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1870: x_mesg_token_tbl := l_mesg_token_tbl ;
1871:
1872: END Update_Row ;
1873:
1923: -- Exception
1924: DUPLICATE_DEL_GROUP EXCEPTION ;
1925:
1926: BEGIN
1927: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1928: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1929:
1930: --
1931: -- Initialize Common Record and Status
1924: DUPLICATE_DEL_GROUP EXCEPTION ;
1925:
1926: BEGIN
1927: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1928: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1929:
1930: --
1931: -- Initialize Common Record and Status
1932: --
1996: l_com_op_unexp_rec.DG_Description := l_del_grp_rec.description ;
1997:
1998: END LOOP;
1999:
2000: IF l_com_op_unexp_rec.DG_Sequence_Id <> FND_API.G_MISS_NUM
2001: THEN
2002: l_dg_sequence_id := l_com_op_unexp_rec.DG_Sequence_Id;
2003: ELSE
2004: --
2016:
2017: END IF;
2018:
2019:
2020: IF l_com_operation_rec.alternate_routing_code = FND_API.G_MISS_CHAR THEN
2021: l_com_operation_rec.alternate_routing_code := NULL ;
2022: END IF ;
2023:
2024: -- bug 5199643
2080: x_com_operation_rec := l_com_operation_rec ;
2081: x_com_op_unexp_rec := l_com_op_unexp_rec ;
2082:
2083: -- Return the status and message table.
2084: x_return_status := FND_API.G_RET_STS_ERROR;
2085: x_mesg_token_tbl := l_mesg_token_tbl;
2086:
2087: WHEN OTHERS THEN
2088: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2107: x_com_operation_rec := l_com_operation_rec ;
2108: x_com_op_unexp_rec := l_com_op_unexp_rec ;
2109:
2110: -- Return the status and message table.
2111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2112: x_mesg_token_tbl := l_mesg_token_tbl ;
2113:
2114: END Delete_Row ;
2115:
2154: on the eng odf.This is because the RTG and ECO objects should be
2155: independant of each other. But commenting out because we will reuse it
2156: in release 12 when these all files alongwith the odf will be base
2157:
2158: l_return_status := FND_API.G_RET_STS_SUCCESS ;
2159: x_return_status := FND_API.G_RET_STS_SUCCESS ;
2160:
2161: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2162: Error_Handler.Write_Debug('Performing cancel revised operation : '
2155: independant of each other. But commenting out because we will reuse it
2156: in release 12 when these all files alongwith the odf will be base
2157:
2158: l_return_status := FND_API.G_RET_STS_SUCCESS ;
2159: x_return_status := FND_API.G_RET_STS_SUCCESS ;
2160:
2161: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2162: Error_Handler.Write_Debug('Performing cancel revised operation : '
2163: || to_char(p_operation_sequence_id) || ' . . .') ;
2365: ) ;
2366: END IF ;
2367:
2368: -- Return the status and message table.
2369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2370: x_mesg_token_tbl := l_mesg_token_tbl ;
2371: */
2372: END Cancel_Operation ;
2373: