918: * table and a return satus of success or failure will be
919: * returned to the calling program.
920: *********************************************************************/
921: PROCEDURE RTG_Header_UUI_To_UI
922: ( p_rtg_header_Rec IN Bom_Rtg_Pub.Rtg_Header_Rec_Type
923: , p_rtg_header_unexp_Rec IN Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
924: , x_rtg_header_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
925: , x_Return_Status IN OUT NOCOPY VARCHAR2
926: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
919: * returned to the calling program.
920: *********************************************************************/
921: PROCEDURE RTG_Header_UUI_To_UI
922: ( p_rtg_header_Rec IN Bom_Rtg_Pub.Rtg_Header_Rec_Type
923: , p_rtg_header_unexp_Rec IN Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
924: , x_rtg_header_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
925: , x_Return_Status IN OUT NOCOPY VARCHAR2
926: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
927: )
920: *********************************************************************/
921: PROCEDURE RTG_Header_UUI_To_UI
922: ( p_rtg_header_Rec IN Bom_Rtg_Pub.Rtg_Header_Rec_Type
923: , p_rtg_header_unexp_Rec IN Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
924: , x_rtg_header_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
925: , x_Return_Status IN OUT NOCOPY VARCHAR2
926: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
927: )
928: IS
926: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
927: )
928: IS
929: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
930: l_rtg_header_unexp_rec Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type;
931: l_return_status VARCHAR2(1);
932: l_err_text VARCHAR2(2000);
933: -- l_err_text_diff VARCHAR2(1);
934:
1070: * the messsage token table filled with appropriate
1071: * error message.
1072: *********************************************************************/
1073: PROCEDURE Rtg_Header_VID
1074: ( p_rtg_header_rec IN Bom_Rtg_Pub.Rtg_Header_Rec_Type
1075: , p_rtg_header_unexp_rec IN Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
1076: , x_rtg_header_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
1077: , x_Return_Status IN OUT NOCOPY VARCHAR2
1078: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1071: * error message.
1072: *********************************************************************/
1073: PROCEDURE Rtg_Header_VID
1074: ( p_rtg_header_rec IN Bom_Rtg_Pub.Rtg_Header_Rec_Type
1075: , p_rtg_header_unexp_rec IN Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
1076: , x_rtg_header_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
1077: , x_Return_Status IN OUT NOCOPY VARCHAR2
1078: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1079: )
1072: *********************************************************************/
1073: PROCEDURE Rtg_Header_VID
1074: ( p_rtg_header_rec IN Bom_Rtg_Pub.Rtg_Header_Rec_Type
1075: , p_rtg_header_unexp_rec IN Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
1076: , x_rtg_header_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
1077: , x_Return_Status IN OUT NOCOPY VARCHAR2
1078: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1079: )
1080: IS
1081: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1082: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1083: l_err_text VARCHAR2(2000);
1084: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1085: l_rtg_header_unexp_rec Bom_Rtg_Pub.Rtg_Header_Unexposed_Rec_Type
1086: := p_rtg_header_unexp_rec;
1087: BEGIN
1088:
1089: If BOM_Rtg_Globals.Get_Debug = 'Y'
1338: * returned to the calling program.
1339: *********************************************************************/
1340:
1341: PROCEDURE Rtg_Revision_UUI_To_UI
1342: ( p_rtg_revision_rec IN Bom_Rtg_Pub.Rtg_Revision_Rec_Type
1343: , p_rtg_rev_unexp_rec IN Bom_Rtg_Pub.Rtg_Rev_Unexposed_Rec_Type
1344: , x_rtg_rev_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Rev_Unexposed_Rec_Type
1345: , x_return_status IN OUT NOCOPY VARCHAR2
1346: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1339: *********************************************************************/
1340:
1341: PROCEDURE Rtg_Revision_UUI_To_UI
1342: ( p_rtg_revision_rec IN Bom_Rtg_Pub.Rtg_Revision_Rec_Type
1343: , p_rtg_rev_unexp_rec IN Bom_Rtg_Pub.Rtg_Rev_Unexposed_Rec_Type
1344: , x_rtg_rev_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Rev_Unexposed_Rec_Type
1345: , x_return_status IN OUT NOCOPY VARCHAR2
1346: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1347: )
1340:
1341: PROCEDURE Rtg_Revision_UUI_To_UI
1342: ( p_rtg_revision_rec IN Bom_Rtg_Pub.Rtg_Revision_Rec_Type
1343: , p_rtg_rev_unexp_rec IN Bom_Rtg_Pub.Rtg_Rev_Unexposed_Rec_Type
1344: , x_rtg_rev_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Rev_Unexposed_Rec_Type
1345: , x_return_status IN OUT NOCOPY VARCHAR2
1346: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1347: )
1348: IS
1346: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1347: )
1348: IS
1349: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1350: l_rtg_rev_unexp_rec Bom_Rtg_Pub.Rtg_Rev_Unexposed_Rec_Type;
1351: l_return_status VARCHAR2(1);
1352: l_err_text VARCHAR2(2000);
1353:
1354:
1451: * Call Check_Entity for Common Operation.
1452: * Procedure will convert UUI to UI.
1453: *******************************************************************/
1454: PROCEDURE Operation_UUI_To_UI
1455: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
1456: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1457: , x_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1458: , x_return_status IN OUT NOCOPY VARCHAR2
1459: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1452: * Procedure will convert UUI to UI.
1453: *******************************************************************/
1454: PROCEDURE Operation_UUI_To_UI
1455: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
1456: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1457: , x_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1458: , x_return_status IN OUT NOCOPY VARCHAR2
1459: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1460: )
1453: *******************************************************************/
1454: PROCEDURE Operation_UUI_To_UI
1455: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
1456: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1457: , x_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1458: , x_return_status IN OUT NOCOPY VARCHAR2
1459: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1460: )
1461: IS
1458: , x_return_status IN OUT NOCOPY VARCHAR2
1459: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1460: )
1461: IS
1462: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1463: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1464: l_operation_rec Bom_Rtg_Pub.Operation_Rec_Type ;
1465:
1466: BEGIN
1459: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1460: )
1461: IS
1462: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1463: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1464: l_operation_rec Bom_Rtg_Pub.Operation_Rec_Type ;
1465:
1466: BEGIN
1467: -- Convert Routing Operation to Common Operation
1460: )
1461: IS
1462: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1463: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1464: l_operation_rec Bom_Rtg_Pub.Operation_Rec_Type ;
1465:
1466: BEGIN
1467: -- Convert Routing Operation to Common Operation
1468: Bom_Rtg_Pub.Convert_RtgOp_To_ComOp
1464: l_operation_rec Bom_Rtg_Pub.Operation_Rec_Type ;
1465:
1466: BEGIN
1467: -- Convert Routing Operation to Common Operation
1468: Bom_Rtg_Pub.Convert_RtgOp_To_ComOp
1469: ( p_rtg_operation_rec => p_operation_rec
1470: , p_rtg_op_unexp_rec => p_op_unexp_rec
1471: , x_com_operation_rec => l_com_operation_rec
1472: , x_com_op_unexp_rec => l_com_op_unexp_rec
1482: , x_mesg_token_tbl => x_mesg_token_tbl
1483: ) ;
1484:
1485: -- Convert the Common record to Routing Record
1486: Bom_Rtg_Pub.Convert_ComOp_To_RtgOp
1487: ( p_com_operation_rec => l_com_operation_rec
1488: , p_com_op_unexp_rec => l_com_op_unexp_rec
1489: , x_rtg_operation_rec => l_operation_rec
1490: , x_rtg_op_unexp_rec => x_op_unexp_rec
1504: * Call Check_Entity for Common Operation.
1505: * Procedure will convert UUI to UI.
1506: *******************************************************************/
1507: PROCEDURE Rev_Operation_UUI_To_UI
1508: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
1509: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1510: , x_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1511: , x_return_status IN OUT NOCOPY VARCHAR2
1512: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1505: * Procedure will convert UUI to UI.
1506: *******************************************************************/
1507: PROCEDURE Rev_Operation_UUI_To_UI
1508: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
1509: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1510: , x_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1511: , x_return_status IN OUT NOCOPY VARCHAR2
1512: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1513: )
1506: *******************************************************************/
1507: PROCEDURE Rev_Operation_UUI_To_UI
1508: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
1509: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1510: , x_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1511: , x_return_status IN OUT NOCOPY VARCHAR2
1512: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1513: )
1514:
1513: )
1514:
1515:
1516: IS
1517: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1518: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1519: l_rev_op_com_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
1520:
1521: BEGIN
1514:
1515:
1516: IS
1517: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1518: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1519: l_rev_op_com_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
1520:
1521: BEGIN
1522: -- Convert Revised Operation to Common Operation
1515:
1516: IS
1517: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1518: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1519: l_rev_op_com_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
1520:
1521: BEGIN
1522: -- Convert Revised Operation to Common Operation
1523: Bom_Rtg_Pub.Convert_EcoOp_To_ComOp
1519: l_rev_op_com_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
1520:
1521: BEGIN
1522: -- Convert Revised Operation to Common Operation
1523: Bom_Rtg_Pub.Convert_EcoOp_To_ComOp
1524: ( p_rev_operation_rec => p_rev_operation_rec
1525: , p_rev_op_unexp_rec => p_rev_op_unexp_rec
1526: , x_com_operation_rec => l_com_operation_rec
1527: , x_com_op_unexp_rec => l_com_op_unexp_rec
1537: , x_mesg_token_tbl => x_mesg_token_tbl
1538: ) ;
1539:
1540: -- Convert the Common record to Revised Operation record
1541: Bom_Rtg_Pub.Convert_ComOp_To_EcoOp
1542: ( p_com_operation_rec => l_com_operation_rec
1543: , p_com_op_unexp_rec => l_com_op_unexp_rec
1544: , x_rev_operation_rec => l_rev_op_com_operation_rec
1545: , x_rev_op_unexp_rec => x_rev_op_unexp_rec
1562: * and a return satus of success or failure will be
1563: * returned to the calling program.
1564: *********************************************************************/
1565: PROCEDURE Com_Operation_UUI_To_UI
1566: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
1567: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1568: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1569: , x_return_status IN OUT NOCOPY VARCHAR2
1570: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1563: * returned to the calling program.
1564: *********************************************************************/
1565: PROCEDURE Com_Operation_UUI_To_UI
1566: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
1567: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1568: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1569: , x_return_status IN OUT NOCOPY VARCHAR2
1570: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1571: )
1564: *********************************************************************/
1565: PROCEDURE Com_Operation_UUI_To_UI
1566: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
1567: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1568: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1569: , x_return_status IN OUT NOCOPY VARCHAR2
1570: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1571: )
1572: IS
1571: )
1572: IS
1573:
1574: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1575: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type;
1576: l_return_status VARCHAR2(1);
1577: l_err_text VARCHAR2(2000);
1578: l_err_text_diff VARCHAR2(1);
1579:
1887: * Procedure will perform the operation record value to ID
1888: * conversions.
1889: *******************************************************************/
1890: PROCEDURE Operation_VID
1891: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
1892: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1893: , x_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1894: , x_Return_Status IN OUT NOCOPY VARCHAR2
1895: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1888: * conversions.
1889: *******************************************************************/
1890: PROCEDURE Operation_VID
1891: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
1892: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1893: , x_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1894: , x_Return_Status IN OUT NOCOPY VARCHAR2
1895: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1896: )
1889: *******************************************************************/
1890: PROCEDURE Operation_VID
1891: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
1892: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1893: , x_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1894: , x_Return_Status IN OUT NOCOPY VARCHAR2
1895: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1896: )
1897:
1895: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1896: )
1897:
1898: IS
1899: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1900: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1901: l_operation_rec Bom_Rtg_Pub.Operation_Rec_Type ;
1902:
1903: BEGIN
1896: )
1897:
1898: IS
1899: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1900: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1901: l_operation_rec Bom_Rtg_Pub.Operation_Rec_Type ;
1902:
1903: BEGIN
1904: -- Convert Routing Operation to Common Operation
1897:
1898: IS
1899: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1900: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1901: l_operation_rec Bom_Rtg_Pub.Operation_Rec_Type ;
1902:
1903: BEGIN
1904: -- Convert Routing Operation to Common Operation
1905: Bom_Rtg_Pub.Convert_RtgOp_To_ComOp
1901: l_operation_rec Bom_Rtg_Pub.Operation_Rec_Type ;
1902:
1903: BEGIN
1904: -- Convert Routing Operation to Common Operation
1905: Bom_Rtg_Pub.Convert_RtgOp_To_ComOp
1906: ( p_rtg_operation_rec => p_operation_rec
1907: , p_rtg_op_unexp_rec => p_op_unexp_rec
1908: , x_com_operation_rec => l_com_operation_rec
1909: , x_com_op_unexp_rec => l_com_op_unexp_rec
1919: , x_mesg_token_tbl => x_mesg_token_tbl
1920: ) ;
1921:
1922: -- Convert the Common record to Routing Record
1923: Bom_Rtg_Pub.Convert_ComOp_To_RtgOp
1924: ( p_com_operation_rec => l_com_operation_rec
1925: , p_com_op_unexp_rec => l_com_op_unexp_rec
1926: , x_rtg_operation_rec => l_operation_rec
1927: , x_rtg_op_unexp_rec => x_op_unexp_rec
1942: * Procedure will perform the operation record value to ID
1943: * conversions.
1944: *******************************************************************/
1945: PROCEDURE Rev_Operation_VID
1946: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
1947: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1948: , x_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1949: , x_return_status IN OUT NOCOPY VARCHAR2
1950: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1943: * conversions.
1944: *******************************************************************/
1945: PROCEDURE Rev_Operation_VID
1946: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
1947: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1948: , x_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1949: , x_return_status IN OUT NOCOPY VARCHAR2
1950: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1951: )
1944: *******************************************************************/
1945: PROCEDURE Rev_Operation_VID
1946: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
1947: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1948: , x_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1949: , x_return_status IN OUT NOCOPY VARCHAR2
1950: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1951: )
1952:
1951: )
1952:
1953:
1954: IS
1955: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1956: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1957: l_rev_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
1958:
1959: BEGIN
1952:
1953:
1954: IS
1955: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1956: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1957: l_rev_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
1958:
1959: BEGIN
1960: -- Convert Revised Operation to Common Operation
1953:
1954: IS
1955: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1956: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1957: l_rev_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
1958:
1959: BEGIN
1960: -- Convert Revised Operation to Common Operation
1961: Bom_Rtg_Pub.Convert_EcoOp_To_ComOp
1957: l_rev_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
1958:
1959: BEGIN
1960: -- Convert Revised Operation to Common Operation
1961: Bom_Rtg_Pub.Convert_EcoOp_To_ComOp
1962: ( p_rev_operation_rec => p_rev_operation_rec
1963: , p_rev_op_unexp_rec => p_rev_op_unexp_rec
1964: , x_com_operation_rec => l_com_operation_rec
1965: , x_com_op_unexp_rec => l_com_op_unexp_rec
1975: , x_mesg_token_tbl => x_mesg_token_tbl
1976: ) ;
1977:
1978: -- Convert the Common record to Revised Operation record
1979: Bom_Rtg_Pub.Convert_ComOp_To_EcoOp
1980: ( p_com_operation_rec => l_com_operation_rec
1981: , p_com_op_unexp_rec => l_com_op_unexp_rec
1982: , x_rev_operation_rec => l_rev_operation_rec
1983: , x_rev_op_unexp_rec => x_rev_op_unexp_rec
2001: * the messsage token table filled with appropriate
2002: * error message.
2003: *********************************************************************/
2004: PROCEDURE Com_Operation_VID
2005: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
2006: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2007: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2008: , x_Return_Status IN OUT NOCOPY VARCHAR2
2009: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2002: * error message.
2003: *********************************************************************/
2004: PROCEDURE Com_Operation_VID
2005: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
2006: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2007: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2008: , x_Return_Status IN OUT NOCOPY VARCHAR2
2009: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2010: )
2003: *********************************************************************/
2004: PROCEDURE Com_Operation_VID
2005: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
2006: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2007: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2008: , x_Return_Status IN OUT NOCOPY VARCHAR2
2009: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2010: )
2011: IS
2012: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
2013: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2014: l_err_text VARCHAR2(2000);
2015: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2016: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2017: := p_com_op_unexp_rec;
2018: l_common_rtg_seq_id NUMBER;
2019: l_cfm_flag NUMBER;
2020: l_old_op_seq_number NUMBER;
2421: * After calling Rev_Op_resource_UUI_To_UI, convert Revised
2422: * Op Resource record back to Routing Op Resource
2423: *********************************************************************/
2424: PROCEDURE Op_Resource_UUI_To_UI
2425: ( p_op_resource_rec IN Bom_Rtg_Pub.Op_Resource_Rec_Type
2426: , p_op_res_unexp_rec IN Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2427: , x_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2428: , x_return_status IN OUT NOCOPY VARCHAR2
2429: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2422: * Op Resource record back to Routing Op Resource
2423: *********************************************************************/
2424: PROCEDURE Op_Resource_UUI_To_UI
2425: ( p_op_resource_rec IN Bom_Rtg_Pub.Op_Resource_Rec_Type
2426: , p_op_res_unexp_rec IN Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2427: , x_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2428: , x_return_status IN OUT NOCOPY VARCHAR2
2429: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2430: )
2423: *********************************************************************/
2424: PROCEDURE Op_Resource_UUI_To_UI
2425: ( p_op_resource_rec IN Bom_Rtg_Pub.Op_Resource_Rec_Type
2426: , p_op_res_unexp_rec IN Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2427: , x_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2428: , x_return_status IN OUT NOCOPY VARCHAR2
2429: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2430: )
2431:
2429: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2430: )
2431:
2432: IS
2433: l_rev_op_resource_rec Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type ;
2434: l_rev_op_res_unexp_rec Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type ;
2435: l_op_resource_rec Bom_Rtg_Pub.Op_Resource_Rec_Type ;
2436:
2437: BEGIN
2430: )
2431:
2432: IS
2433: l_rev_op_resource_rec Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type ;
2434: l_rev_op_res_unexp_rec Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type ;
2435: l_op_resource_rec Bom_Rtg_Pub.Op_Resource_Rec_Type ;
2436:
2437: BEGIN
2438: -- Convert Routing Operation to ECO Operation
2431:
2432: IS
2433: l_rev_op_resource_rec Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type ;
2434: l_rev_op_res_unexp_rec Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type ;
2435: l_op_resource_rec Bom_Rtg_Pub.Op_Resource_Rec_Type ;
2436:
2437: BEGIN
2438: -- Convert Routing Operation to ECO Operation
2439: Bom_Rtg_Pub.Convert_RtgRes_To_EcoRes
2435: l_op_resource_rec Bom_Rtg_Pub.Op_Resource_Rec_Type ;
2436:
2437: BEGIN
2438: -- Convert Routing Operation to ECO Operation
2439: Bom_Rtg_Pub.Convert_RtgRes_To_EcoRes
2440: ( p_rtg_op_resource_rec => p_op_resource_rec
2441: , p_rtg_op_res_unexp_rec => p_op_res_unexp_rec
2442: , x_rev_op_resource_rec => l_rev_op_resource_rec
2443: , x_rev_op_res_unexp_rec => l_rev_op_res_unexp_rec
2452: , x_mesg_token_tbl => x_mesg_token_tbl
2453: ) ;
2454:
2455: -- Convert old Eco Opeartion Record back to Routing Operation
2456: Bom_Rtg_Pub.Convert_EcoRes_To_RtgRes
2457: ( p_rev_op_resource_rec => l_rev_op_resource_rec
2458: , p_rev_op_res_unexp_rec => l_rev_op_res_unexp_rec
2459: , x_rtg_op_resource_rec => l_op_resource_rec
2460: , x_rtg_op_res_unexp_rec => x_op_res_unexp_rec
2476: * Message table and a return satus of success or
2477: * failure will be returned to the calling program.
2478: *********************************************************************/
2479: PROCEDURE Rev_Op_Resource_UUI_To_UI
2480: ( p_rev_op_resource_rec IN Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type
2481: , p_rev_op_res_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2482: , x_rev_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2483: , x_return_status IN OUT NOCOPY VARCHAR2
2484: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2477: * failure will be returned to the calling program.
2478: *********************************************************************/
2479: PROCEDURE Rev_Op_Resource_UUI_To_UI
2480: ( p_rev_op_resource_rec IN Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type
2481: , p_rev_op_res_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2482: , x_rev_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2483: , x_return_status IN OUT NOCOPY VARCHAR2
2484: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2485: )
2478: *********************************************************************/
2479: PROCEDURE Rev_Op_Resource_UUI_To_UI
2480: ( p_rev_op_resource_rec IN Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type
2481: , p_rev_op_res_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2482: , x_rev_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2483: , x_return_status IN OUT NOCOPY VARCHAR2
2484: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2485: )
2486:
2487:
2488:
2489: IS
2490: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2491: l_rev_op_res_unexp_rec Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type ;
2492: l_return_status VARCHAR2(1);
2493: l_err_text VARCHAR2(2000);
2494: l_cfm_flag NUMBER;
2495: l_err_text_diff VARCHAR2(1);
2911: * After calling Rev_Op_resource_VID, convert Revised
2912: * Op Resource record back to Routing Op Resource
2913: *********************************************************************/
2914: PROCEDURE Op_Resource_VID
2915: ( p_op_resource_rec IN Bom_Rtg_Pub.Op_Resource_Rec_Type
2916: , p_op_res_unexp_rec IN Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2917: , x_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2918: , x_return_status IN OUT NOCOPY VARCHAR2
2919: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2912: * Op Resource record back to Routing Op Resource
2913: *********************************************************************/
2914: PROCEDURE Op_Resource_VID
2915: ( p_op_resource_rec IN Bom_Rtg_Pub.Op_Resource_Rec_Type
2916: , p_op_res_unexp_rec IN Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2917: , x_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2918: , x_return_status IN OUT NOCOPY VARCHAR2
2919: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2920: )
2913: *********************************************************************/
2914: PROCEDURE Op_Resource_VID
2915: ( p_op_resource_rec IN Bom_Rtg_Pub.Op_Resource_Rec_Type
2916: , p_op_res_unexp_rec IN Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2917: , x_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Res_Unexposed_Rec_Type
2918: , x_return_status IN OUT NOCOPY VARCHAR2
2919: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2920: )
2921:
2919: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2920: )
2921:
2922: IS
2923: l_rev_op_resource_rec Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type ;
2924: l_rev_op_res_unexp_rec Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type ;
2925: l_op_resource_rec Bom_Rtg_Pub.Op_Resource_Rec_Type ;
2926:
2927: BEGIN
2920: )
2921:
2922: IS
2923: l_rev_op_resource_rec Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type ;
2924: l_rev_op_res_unexp_rec Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type ;
2925: l_op_resource_rec Bom_Rtg_Pub.Op_Resource_Rec_Type ;
2926:
2927: BEGIN
2928: -- Convert Routing Operation to ECO Operation
2921:
2922: IS
2923: l_rev_op_resource_rec Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type ;
2924: l_rev_op_res_unexp_rec Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type ;
2925: l_op_resource_rec Bom_Rtg_Pub.Op_Resource_Rec_Type ;
2926:
2927: BEGIN
2928: -- Convert Routing Operation to ECO Operation
2929: Bom_Rtg_Pub.Convert_RtgRes_To_EcoRes
2925: l_op_resource_rec Bom_Rtg_Pub.Op_Resource_Rec_Type ;
2926:
2927: BEGIN
2928: -- Convert Routing Operation to ECO Operation
2929: Bom_Rtg_Pub.Convert_RtgRes_To_EcoRes
2930: ( p_rtg_op_resource_rec => p_op_resource_rec
2931: , p_rtg_op_res_unexp_rec => p_op_res_unexp_rec
2932: , x_rev_op_resource_rec => l_rev_op_resource_rec
2933: , x_rev_op_res_unexp_rec => l_rev_op_res_unexp_rec
2942: , x_mesg_token_tbl => x_mesg_token_tbl
2943: ) ;
2944:
2945: -- Convert old Eco Opeartion Record back to Routing Operation
2946: Bom_Rtg_Pub.Convert_EcoRes_To_RtgRes
2947: ( p_rev_op_resource_rec => l_rev_op_resource_rec
2948: , p_rev_op_res_unexp_rec => l_rev_op_res_unexp_rec
2949: , x_rtg_op_resource_rec => l_op_resource_rec
2950: , x_rtg_op_res_unexp_rec => x_op_res_unexp_rec
2969: * the messsage token table filled with appropriate
2970: * error message.
2971: *********************************************************************/
2972: PROCEDURE Rev_Op_Resource_VID
2973: ( p_rev_op_resource_rec IN Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type
2974: , p_rev_op_res_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2975: , x_rev_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2976: , x_Return_Status IN OUT NOCOPY VARCHAR2
2977: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2970: * error message.
2971: *********************************************************************/
2972: PROCEDURE Rev_Op_Resource_VID
2973: ( p_rev_op_resource_rec IN Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type
2974: , p_rev_op_res_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2975: , x_rev_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2976: , x_Return_Status IN OUT NOCOPY VARCHAR2
2977: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2978: )
2971: *********************************************************************/
2972: PROCEDURE Rev_Op_Resource_VID
2973: ( p_rev_op_resource_rec IN Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type
2974: , p_rev_op_res_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2975: , x_rev_op_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2976: , x_Return_Status IN OUT NOCOPY VARCHAR2
2977: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2978: )
2979: IS
2980: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
2981: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2982: l_err_text VARCHAR2(2000);
2983: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2984: l_rev_op_res_unexp_rec Bom_Rtg_Pub.Rev_Op_Res_Unexposed_Rec_Type
2985: := p_rev_op_res_unexp_rec ;
2986: BEGIN
2987:
2988: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3166: * After calling Rev_Sub_resource_UUI_To_UI, convert
3167: * Revised Op Resource record back to Routing Op Resource
3168: *********************************************************************/
3169: PROCEDURE Sub_Resource_UUI_To_UI
3170: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
3171: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3172: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3173: , x_return_status IN OUT NOCOPY VARCHAR2
3174: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3167: * Revised Op Resource record back to Routing Op Resource
3168: *********************************************************************/
3169: PROCEDURE Sub_Resource_UUI_To_UI
3170: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
3171: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3172: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3173: , x_return_status IN OUT NOCOPY VARCHAR2
3174: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3175: )
3168: *********************************************************************/
3169: PROCEDURE Sub_Resource_UUI_To_UI
3170: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
3171: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3172: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3173: , x_return_status IN OUT NOCOPY VARCHAR2
3174: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3175: )
3176:
3174: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3175: )
3176:
3177: IS
3178: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type ;
3179: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type ;
3180: l_sub_resource_rec Bom_Rtg_Pub.Sub_Resource_Rec_Type ;
3181:
3182: BEGIN
3175: )
3176:
3177: IS
3178: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type ;
3179: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type ;
3180: l_sub_resource_rec Bom_Rtg_Pub.Sub_Resource_Rec_Type ;
3181:
3182: BEGIN
3183: -- Convert Routing Operation to ECO Operation
3176:
3177: IS
3178: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type ;
3179: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type ;
3180: l_sub_resource_rec Bom_Rtg_Pub.Sub_Resource_Rec_Type ;
3181:
3182: BEGIN
3183: -- Convert Routing Operation to ECO Operation
3184: Bom_Rtg_Pub.Convert_RtgSubRes_To_EcoSubRes
3180: l_sub_resource_rec Bom_Rtg_Pub.Sub_Resource_Rec_Type ;
3181:
3182: BEGIN
3183: -- Convert Routing Operation to ECO Operation
3184: Bom_Rtg_Pub.Convert_RtgSubRes_To_EcoSubRes
3185: ( p_rtg_sub_resource_rec => p_sub_resource_rec
3186: , p_rtg_sub_res_unexp_rec => p_sub_res_unexp_rec
3187: , x_rev_sub_resource_rec => l_rev_sub_resource_rec
3188: , x_rev_sub_res_unexp_rec => l_rev_sub_res_unexp_rec
3197: , x_mesg_token_tbl => x_mesg_token_tbl
3198: ) ;
3199:
3200: -- Convert Eco Sub Resource Record back to Routing Sub Resource
3201: Bom_Rtg_Pub.Convert_EcoSubRes_To_RtgSubRes
3202: ( p_rev_sub_resource_rec => l_rev_sub_resource_rec
3203: , p_rev_sub_res_unexp_rec => l_rev_sub_res_unexp_rec
3204: , x_rtg_sub_resource_rec => l_sub_resource_rec
3205: , x_rtg_sub_res_unexp_rec => x_sub_res_unexp_rec
3225: * success or failure will be returned to the calling
3226: * program.
3227: *********************************************************************/
3228: PROCEDURE Rev_Sub_Resource_UUI_To_UI
3229: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
3230: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3231: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3232: , x_return_status IN OUT NOCOPY VARCHAR2
3233: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3226: * program.
3227: *********************************************************************/
3228: PROCEDURE Rev_Sub_Resource_UUI_To_UI
3229: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
3230: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3231: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3232: , x_return_status IN OUT NOCOPY VARCHAR2
3233: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3234: )
3227: *********************************************************************/
3228: PROCEDURE Rev_Sub_Resource_UUI_To_UI
3229: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
3230: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3231: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3232: , x_return_status IN OUT NOCOPY VARCHAR2
3233: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3234: )
3235: IS
3233: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3234: )
3235: IS
3236: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3237: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type;
3238: l_return_status VARCHAR2(1);
3239: l_err_text VARCHAR2(2000);
3240: l_cfm_flag NUMBER;
3241: l_Token_Tbl Error_Handler.Token_Tbl_Type;
3802: * After calling Rev_Sub_resource_VID, convert
3803: * Revised Sub Op Resource record back to Routing Sub Op Resource
3804: *********************************************************************/
3805: PROCEDURE Sub_Resource_VID
3806: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
3807: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3808: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3809: , x_Return_Status IN OUT NOCOPY VARCHAR2
3810: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3803: * Revised Sub Op Resource record back to Routing Sub Op Resource
3804: *********************************************************************/
3805: PROCEDURE Sub_Resource_VID
3806: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
3807: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3808: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3809: , x_Return_Status IN OUT NOCOPY VARCHAR2
3810: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3811: )
3804: *********************************************************************/
3805: PROCEDURE Sub_Resource_VID
3806: ( p_sub_resource_rec IN Bom_Rtg_Pub.Sub_Resource_Rec_Type
3807: , p_sub_res_unexp_rec IN Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3808: , x_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Sub_Res_Unexposed_Rec_Type
3809: , x_Return_Status IN OUT NOCOPY VARCHAR2
3810: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3811: )
3812:
3810: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3811: )
3812:
3813: IS
3814: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type ;
3815: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type ;
3816: l_sub_resource_rec Bom_Rtg_Pub.Sub_Resource_Rec_Type ;
3817:
3818: BEGIN
3811: )
3812:
3813: IS
3814: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type ;
3815: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type ;
3816: l_sub_resource_rec Bom_Rtg_Pub.Sub_Resource_Rec_Type ;
3817:
3818: BEGIN
3819: -- Convert Routing Operation to ECO Operation
3812:
3813: IS
3814: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type ;
3815: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type ;
3816: l_sub_resource_rec Bom_Rtg_Pub.Sub_Resource_Rec_Type ;
3817:
3818: BEGIN
3819: -- Convert Routing Operation to ECO Operation
3820: Bom_Rtg_Pub.Convert_RtgSubRes_To_EcoSubRes
3816: l_sub_resource_rec Bom_Rtg_Pub.Sub_Resource_Rec_Type ;
3817:
3818: BEGIN
3819: -- Convert Routing Operation to ECO Operation
3820: Bom_Rtg_Pub.Convert_RtgSubRes_To_EcoSubRes
3821: ( p_rtg_sub_resource_rec => p_sub_resource_rec
3822: , p_rtg_sub_res_unexp_rec => p_sub_res_unexp_rec
3823: , x_rev_sub_resource_rec => l_rev_sub_resource_rec
3824: , x_rev_sub_res_unexp_rec => l_rev_sub_res_unexp_rec
3833: , x_mesg_token_tbl => x_mesg_token_tbl
3834: ) ;
3835:
3836: -- Convert Eco Sub Resource Record back to Routing Sub Resource
3837: Bom_Rtg_Pub.Convert_EcoSubRes_To_RtgSubRes
3838: ( p_rev_sub_resource_rec => l_rev_sub_resource_rec
3839: , p_rev_sub_res_unexp_rec => l_rev_sub_res_unexp_rec
3840: , x_rtg_sub_resource_rec => l_sub_resource_rec
3841: , x_rtg_sub_res_unexp_rec => x_sub_res_unexp_rec
3860: * status and the messsage token table filled with
3861: * appropriate error message.
3862: *********************************************************************/
3863: PROCEDURE Rev_Sub_Resource_VID
3864: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
3865: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3866: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3867: , x_Return_Status IN OUT NOCOPY VARCHAR2
3868: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3861: * appropriate error message.
3862: *********************************************************************/
3863: PROCEDURE Rev_Sub_Resource_VID
3864: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
3865: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3866: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3867: , x_Return_Status IN OUT NOCOPY VARCHAR2
3868: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3869: )
3862: *********************************************************************/
3863: PROCEDURE Rev_Sub_Resource_VID
3864: ( p_rev_sub_resource_rec IN Bom_Rtg_Pub.Rev_Sub_Resource_Rec_Type
3865: , p_rev_sub_res_unexp_rec IN Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3866: , x_rev_sub_res_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3867: , x_Return_Status IN OUT NOCOPY VARCHAR2
3868: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3869: )
3870: IS
3871: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
3872: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3873: l_err_text VARCHAR2(2000);
3874: l_Token_Tbl Error_Handler.Token_Tbl_Type;
3875: l_rev_sub_res_unexp_rec Bom_Rtg_Pub.Rev_Sub_Res_Unexposed_Rec_Type
3876: := p_rev_sub_res_unexp_rec ;
3877: BEGIN
3878:
3879: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
4053: * success or failure will be returned to the calling
4054: * program.
4055: *********************************************************************/
4056: PROCEDURE OP_Network_UUI_To_UI
4057: ( p_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
4058: , p_op_network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
4059: , x_op_network_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
4060: , x_return_status IN OUT NOCOPY VARCHAR2
4061: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4054: * program.
4055: *********************************************************************/
4056: PROCEDURE OP_Network_UUI_To_UI
4057: ( p_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
4058: , p_op_network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
4059: , x_op_network_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
4060: , x_return_status IN OUT NOCOPY VARCHAR2
4061: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4062: )
4055: *********************************************************************/
4056: PROCEDURE OP_Network_UUI_To_UI
4057: ( p_op_network_rec IN Bom_Rtg_Pub.Op_Network_Rec_Type
4058: , p_op_network_unexp_rec IN Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
4059: , x_op_network_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type
4060: , x_return_status IN OUT NOCOPY VARCHAR2
4061: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4062: )
4063: IS
4061: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4062: )
4063: IS
4064: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
4065: l_op_network_unexp_rec Bom_Rtg_Pub.Op_Network_Unexposed_Rec_Type;
4066: l_return_status VARCHAR2(1);
4067: l_err_text VARCHAR2(2000);
4068: l_cfm_flag NUMBER;
4069: l_err_text_diff VARCHAR2(1);