[Home] [Help]
21: -- 07-SEP-00 Masanori Kimizuka Modified to support ECO for Routing
22: --
23: ****************************************************************************/
24: G_Pkg_Name VARCHAR2(30) := 'RTG_Val_To_Id';
25: g_token_tbl Error_Handler.Token_Tbl_Type;
26:
27:
28: /********************************************************************
29: * Function : Organization
623: BEGIN
624:
625: /*
626: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
627: Error_Handler.Write_Debug('In Line Op Seq Id. . .');
628: Error_Handler.Write_Debug('Line OP Code '|| p_line_code );
629: Error_Handler.Write_Debug('Line OP Seq ' || to_char(p_line_seq_number ));
630: Error_Handler.Write_Debug('Org Id ' || to_char(p_organization_id) );
631: Error_Handler.Write_Debug('Rtg Id ' || to_char(p_routing_sequence_id) );
624:
625: /*
626: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
627: Error_Handler.Write_Debug('In Line Op Seq Id. . .');
628: Error_Handler.Write_Debug('Line OP Code '|| p_line_code );
629: Error_Handler.Write_Debug('Line OP Seq ' || to_char(p_line_seq_number ));
630: Error_Handler.Write_Debug('Org Id ' || to_char(p_organization_id) );
631: Error_Handler.Write_Debug('Rtg Id ' || to_char(p_routing_sequence_id) );
632: END IF;
625: /*
626: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
627: Error_Handler.Write_Debug('In Line Op Seq Id. . .');
628: Error_Handler.Write_Debug('Line OP Code '|| p_line_code );
629: Error_Handler.Write_Debug('Line OP Seq ' || to_char(p_line_seq_number ));
630: Error_Handler.Write_Debug('Org Id ' || to_char(p_organization_id) );
631: Error_Handler.Write_Debug('Rtg Id ' || to_char(p_routing_sequence_id) );
632: END IF;
633: */
626: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
627: Error_Handler.Write_Debug('In Line Op Seq Id. . .');
628: Error_Handler.Write_Debug('Line OP Code '|| p_line_code );
629: Error_Handler.Write_Debug('Line OP Seq ' || to_char(p_line_seq_number ));
630: Error_Handler.Write_Debug('Org Id ' || to_char(p_organization_id) );
631: Error_Handler.Write_Debug('Rtg Id ' || to_char(p_routing_sequence_id) );
632: END IF;
633: */
634:
627: Error_Handler.Write_Debug('In Line Op Seq Id. . .');
628: Error_Handler.Write_Debug('Line OP Code '|| p_line_code );
629: Error_Handler.Write_Debug('Line OP Seq ' || to_char(p_line_seq_number ));
630: Error_Handler.Write_Debug('Org Id ' || to_char(p_organization_id) );
631: Error_Handler.Write_Debug('Rtg Id ' || to_char(p_routing_sequence_id) );
632: END IF;
633: */
634:
635: IF p_line_code IS NULL THEN -- Added for bug 2758481
660: END IF;
661:
662: /*
663: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
664: Error_Handler.Write_Debug('Line Op Seq Id : '|| to_char(l_id) );
665: END IF ;
666: */
667: RETURN l_id;
668:
699: l_id NUMBER;
700: BEGIN
701:
702: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
703: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
704: Error_Handler.Write_Debug('Routing Sequence: ' || to_char(p_routing_sequence_id));
705: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
706: END IF;
707:
700: BEGIN
701:
702: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
703: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
704: Error_Handler.Write_Debug('Routing Sequence: ' || to_char(p_routing_sequence_id));
705: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
706: END IF;
707:
708: SELECT operation_sequence_id
701:
702: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
703: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
704: Error_Handler.Write_Debug('Routing Sequence: ' || to_char(p_routing_sequence_id));
705: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
706: END IF;
707:
708: SELECT operation_sequence_id
709: INTO l_id
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
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;
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
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);
945: l_rtg_header_unexp_rec := p_rtg_header_unexp_rec;
946:
947:
948: If Bom_Rtg_Globals.Get_Debug = 'Y'
949: THEN Error_Handler.Write_Debug
950: ('Rtg Header UUI-UI Conversion . . ');
951: END IF;
952:
953: --
955: --
956: IF p_rtg_header_rec.assembly_item_name IS NULL OR
957: p_rtg_header_rec.assembly_item_name = FND_API.G_MISS_CHAR
958: THEN
959: Error_Handler.Add_Error_Token
960: ( p_message_name => 'BOM_RTG_AITEM_NAME_KEYCOL_NULL'
961: , p_mesg_token_tbl => l_mesg_token_tbl
962: , x_mesg_token_tbl => l_mesg_token_tbl
963: );
984: p_rtg_header_rec.assembly_item_name;
985: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
986: g_token_tbl(2).token_value :=
987: p_rtg_header_rec.organization_code;
988: Error_Handler.Add_Error_Token
989: ( p_Message_Name => 'BOM_RTG_AITEM_DOESNOT_EXIST'
990: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
991: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
992: , p_Token_Tbl => g_Token_Tbl
996: (l_rtg_header_unexp_rec.assembly_item_id IS NULL OR
997: l_rtg_header_unexp_rec.assembly_item_id = FND_API.G_MISS_NUM)
998: THEN
999: -- This is an unexpected error.
1000: Error_Handler.Add_Error_Token
1001: ( p_Message_Name => NULL
1002: , p_Message_Text => l_err_text || ' in ' ||
1003: G_PKG_NAME
1004: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1007: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1008: END IF;
1009:
1010: If BOM_Rtg_Globals.Get_Debug = 'Y'
1011: THEN Error_Handler.Write_Debug
1012: ('After converting Assembly Item Id : '
1013: || to_char(l_rtg_header_unexp_rec.assembly_item_id)
1014: || ' Status ' || l_return_status); END IF;
1015:
1036: p_rtg_header_rec.alternate_routing_code;
1037: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1038: g_token_tbl(2).token_value :=
1039: p_rtg_header_rec.organization_code;
1040: Error_Handler.Add_Error_Token
1041: ( P_Message_Name => 'BOM_RTG_ALT_DESIGNATOR_INVALID'
1042: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1043: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1044: , p_token_tbl => g_token_tbl
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;
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;
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:
1086: := p_rtg_header_unexp_rec;
1087: BEGIN
1088:
1089: If BOM_Rtg_Globals.Get_Debug = 'Y'
1090: THEN Error_Handler.Write_Debug('Header VID conversion . . . ');
1091: END IF;
1092:
1093:
1094: IF p_rtg_header_rec.common_assembly_item_name IS NOT NULL AND
1107: l_token_tbl(1).token_name :=
1108: 'COMMON_ASSEMBLY_ITEM_NAME';
1109: l_token_tbl(1).token_value :=
1110: p_rtg_header_rec.common_assembly_item_name;
1111: Error_Handler.Add_Error_Token
1112: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
1113: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1114: , p_Message_name =>
1115: 'BOM_RTG_COMMON_AITEM_INVALID'
1120: ELSIF l_err_text IS NOT NULL AND
1121: l_rtg_header_unexp_rec.common_assembly_item_id
1122: IS NULL
1123: THEN
1124: Error_Handler.Add_Error_Token
1125: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
1126: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1127: , p_Message_text =>
1128: 'Unexpected Error ' || l_err_text || ' in ' ||
1133: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
1134: END IF;
1135:
1136: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1137: Error_Handler.Write_Debug('Converted common assembly name . . .');
1138: END IF;
1139:
1140: END IF;
1141:
1177: l_token_tbl(2).token_name :=
1178: 'ALTERNATE_ROUTING_CODE';
1179: l_token_tbl(2).token_value :=
1180: p_rtg_header_rec.alternate_routing_code;
1181: Error_Handler.Add_Error_Token
1182: ( p_message_name =>
1183: 'BOM_RTG_CMN_RTG_SEQ_NOT_FOUND'
1184: , p_token_tbl => l_token_tbl
1185: , p_mesg_token_tbl => l_mesg_token_tbl
1190: ELSIF l_err_text IS NOT NULL AND
1191: l_rtg_header_unexp_rec.common_routing_sequence_id
1192: IS NULL
1193: THEN
1194: Error_Handler.Add_Error_Token
1195: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
1196: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1197: , p_Message_text =>
1198: 'Unexpected Error ' || l_err_text || ' in ' ||
1202: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
1203: END IF;
1204:
1205: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1206: Error_Handler.Write_Debug('Converted common routing sequence id. . .');
1207: END IF ;
1208:
1209: END IF;
1210:
1233: l_token_tbl(2).token_name :=
1234: 'LOCATION_NAME';
1235: l_token_tbl(2).token_value :=
1236: p_rtg_header_rec.completion_location_name;
1237: Error_Handler.Add_Error_Token
1238: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
1239: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1240: , p_Message_name =>
1241: 'BOM_RTG_LOCATION_NAME_INVALID'
1245: ELSIF l_err_text IS NOT NULL AND
1246: l_rtg_header_unexp_rec.completion_locator_id
1247: IS NULL
1248: THEN
1249: Error_Handler.Add_Error_Token
1250: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
1251: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1252: , p_Message_text =>
1253: 'Unexpected Error ' || l_err_text || ' in ' ||
1257: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
1258: END IF;
1259:
1260: IF BOM_Rtg_Globals.Get_Debug = 'Y'THEN
1261: Error_Handler.Write_Debug('Converted completion locator name ...');
1262: END IF;
1263:
1264: END IF;
1265:
1280: l_token_tbl(1).token_name :=
1281: 'LINE_CODE';
1282: l_token_tbl(1).token_value :=
1283: p_rtg_header_rec.line_code;
1284: Error_Handler.Add_Error_Token
1285: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
1286: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1287: , p_Message_name =>
1288: 'BOM_RTG_LINE_CODE_INVALID'
1292: ELSIF l_err_text IS NOT NULL AND
1293: l_rtg_header_unexp_rec.line_id
1294: IS NULL
1295: THEN
1296: Error_Handler.Add_Error_Token
1297: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
1298: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1299: , p_Message_text =>
1300: 'Unexpected Error ' || l_err_text
1304: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
1305: END IF;
1306:
1307: IF BOM_Rtg_Globals.Get_Debug = 'Y'THEN
1308: Error_Handler.Write_Debug('Converted line code ...');
1309: END IF;
1310:
1311: END IF;
1312:
1313:
1314: x_return_status := l_return_status;
1315:
1316: IF BOM_Rtg_Globals.Get_Debug = 'Y'
1317: THEN Error_Handler.Write_Debug
1318: ('Return status of Header VID: ' || l_return_status );
1319: END IF;
1320:
1321: x_rtg_header_unexp_rec := l_rtg_header_unexp_rec;
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
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;
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
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:
1359: l_rtg_rev_unexp_rec := p_rtg_rev_unexp_rec;
1360:
1361:
1362: If BOM_Rtg_Globals.Get_Debug = 'Y'
1363: THEN Error_Handler.Write_Debug
1364: ('Rtg revision UUI-UI Conversion . . ');
1365: END IF;
1366:
1367: /******************************************************
1374: --
1375: IF p_rtg_revision_rec.assembly_item_name IS NULL OR
1376: p_rtg_revision_rec.assembly_item_name = FND_API.G_MISS_CHAR
1377: THEN
1378: Error_Handler.Add_Error_Token
1379: ( p_message_name => 'BOM_RTG_REV_AITEM_KEYCOL_NULL'
1380: , p_mesg_token_tbl => l_mesg_token_tbl
1381: , x_mesg_token_tbl => l_mesg_token_tbl
1382: );
1403: p_rtg_revision_rec.assembly_item_name;
1404: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1405: g_token_tbl(2).token_value :=
1406: p_rtg_revision_rec.organization_code;
1407: Error_Handler.Add_Error_Token
1408: ( p_Message_Name => 'BOM_RTG_AITEM_DOESNOT_EXIST'
1409: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1410: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1411: , p_Token_Tbl => g_Token_Tbl
1415: (l_rtg_rev_unexp_rec.assembly_item_id IS NULL OR
1416: l_rtg_rev_unexp_rec.assembly_item_id = FND_API.G_MISS_NUM)
1417: THEN
1418: -- This is an unexpected error.
1419: Error_Handler.Add_Error_Token
1420: ( p_Message_Name => NULL
1421: , p_Message_Text => l_err_text || ' in ' ||
1422: G_PKG_NAME
1423: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1426: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1427: END IF;
1428:
1429: If BOM_Rtg_Globals.Get_Debug = 'Y'
1430: THEN Error_Handler.Write_Debug
1431: ('After converting Assembly Item Id : '
1432: || to_char(l_rtg_rev_unexp_rec.assembly_item_id)
1433: || ' Status ' || l_return_status); END IF;
1434:
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
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 ;
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:
1515:
1516: IS
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
1573:
1574: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1570: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
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);
1589: l_return_status := FND_API.G_RET_STS_SUCCESS;
1590: l_com_op_unexp_rec := p_com_op_unexp_rec;
1591:
1592: If BOM_Rtg_Globals.Get_Debug = 'Y'
1593: THEN Error_Handler.Write_Debug
1594: ('Operation record UUI-UI Conversion . . ');
1595: END IF;
1596:
1597: --
1599: --
1600: IF p_com_operation_rec.revised_item_name IS NULL OR
1601: p_com_operation_rec.revised_item_name = FND_API.G_MISS_CHAR
1602: THEN
1603: Error_Handler.Add_Error_Token
1604: ( p_message_name => 'BOM_OP_AITEM_KEYCOL_NULL'
1605: , p_mesg_token_tbl => l_mesg_token_tbl
1606: , x_mesg_token_tbl => l_mesg_token_tbl
1607: );
1614: --
1615: IF p_com_operation_rec.operation_sequence_number IS NULL OR
1616: p_com_operation_rec.operation_sequence_number = FND_API.G_MISS_NUM
1617: THEN
1618: Error_Handler.Add_Error_Token
1619: ( p_Message_Name => 'BOM_OP_SEQNUM_KEYCOL_NULL'
1620: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1621: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1622: );
1630: p_com_operation_rec.start_effective_date = FND_API.G_MISS_DATE)
1631: AND ( p_com_operation_rec.operation_type NOT IN (2, 3)
1632: OR p_com_operation_rec.operation_type IS NULL)
1633: THEN
1634: Error_Handler.Add_Error_Token
1635: ( p_Message_Name => 'BOM_OP_EFFECTIVITY_KEYCOL_NULL'
1636: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1637: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1638: );
1669: p_com_operation_rec.revised_item_name;
1670: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1671: g_token_tbl(2).token_value :=
1672: p_com_operation_rec.organization_code;
1673: Error_Handler.Add_Error_Token
1674: ( p_Message_Name => 'BOM_RTG_AITEM_DOESNOT_EXIST'
1675: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1676: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1677: , p_Token_Tbl => g_Token_Tbl
1686: (l_com_op_unexp_rec.revised_item_id IS NULL OR
1687: l_com_op_unexp_rec.revised_item_id = FND_API.G_MISS_NUM)
1688: THEN
1689: -- This is an unexpected error.
1690: Error_Handler.Add_Error_Token
1691: ( p_Message_Name => NULL
1692: , p_Message_Text => l_err_text || ' in ' ||
1693: G_PKG_NAME
1694: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1699:
1700:
1701:
1702: IF BOM_Rtg_Globals.Get_Debug = 'Y'
1703: THEN Error_Handler.Write_Debug
1704: ('After converting Assembly Item Id : '
1705: || to_char(l_com_op_unexp_rec.revised_item_id)
1706: || ' Status ' || l_return_status);
1707: END IF;
1728: p_com_operation_rec.alternate_routing_code;
1729: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1730: g_token_tbl(2).token_value :=
1731: p_com_operation_rec.organization_code;
1732: Error_Handler.Add_Error_Token
1733: ( P_Message_Name => 'BOM_RTG_ALT_DESIGNATOR_INVALID'
1734: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1735: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1736: , p_token_tbl => g_token_tbl
1752: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
1753: THEN
1754:
1755: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1756: Error_Handler.Write_Debug('Processing UUI_UI for operations and retrieving rev item seq id . . . ');
1757: END IF;
1758: NULL ;
1759:
1760: /****************************************************************
1780: g_Token_Tbl(2).Token_Value := p_com_operation_rec.revised_item_name;
1781: g_token_tbl(3).token_name := 'ECO_NAME';
1782: g_token_tbl(3).token_value := p_com_operation_rec.eco_name;
1783:
1784: Error_Handler.Add_Error_Token
1785: ( p_Message_Name => 'BOM_OP_RIT_SEQUENCE_NOT_FOUND'
1786: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1787: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1788: , p_Token_Tbl => g_Token_Tbl
1792: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1793: x_com_op_unexp_rec := l_com_op_unexp_rec;
1794: x_Return_Status := l_Return_Status;
1795:
1796: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
1797:
1798: RETURN;
1799:
1800: END IF;
1799:
1800: END IF;
1801:
1802: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1803: Error_Handler.Write_Debug('Revised Item Sequence Id : ' || to_char(l_com_op_unexp_rec.revised_item_sequence_id)) ;
1804: END IF ;
1805: ****************************************************************/
1806:
1807: ELSE
1806:
1807: ELSE
1808:
1809: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1810: Error_Handler.Write_Debug('Processing UUI_UI for operations . . . ');
1811: END IF;
1812: --
1813: -- If the calling BO is RTG then get the routing sequence id
1814: --
1828: p_com_operation_rec.revised_item_name;
1829: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1830: g_token_tbl(2).token_value :=
1831: p_com_operation_rec.organization_code;
1832: Error_Handler.Add_Error_Token
1833: ( p_Message_Name => 'BOM_OP_RTG_NOT_FOUND'
1834: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1835: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1836: , p_Token_Tbl => g_Token_Tbl
1839: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1840: x_com_op_unexp_rec := l_com_op_unexp_rec;
1841: x_Return_Status := l_Return_Status;
1842:
1843: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
1844:
1845: RETURN;
1846:
1847:
1849: (l_com_op_unexp_rec.routing_sequence_id IS NULL OR
1850: l_com_op_unexp_rec.routing_sequence_id= FND_API.G_MISS_NUM)
1851: THEN
1852: -- This is an unexpected error.
1853: Error_Handler.Add_Error_Token
1854: ( p_Message_Name => NULL
1855: , p_Message_Text => l_err_text || ' in ' ||
1856: G_PKG_NAME
1857: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1861: END IF;
1862: END IF ;
1863:
1864: IF BOM_Rtg_Globals.Get_Debug = 'Y'
1865: THEN Error_Handler.Write_Debug
1866: ('After converting, Routing sequence id is '
1867: || to_char(l_com_op_unexp_rec.routing_sequence_id)
1868: || ' Status ' || l_return_status);
1869: END IF;
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:
1898: IS
1899: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
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:
1953:
1954: IS
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;
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;
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;
2021: BEGIN
2022:
2023: If BOM_Rtg_Globals.Get_Debug = 'Y'
2024: THEN Error_Handler.Write_Debug('Operaton VID conversion . . .');
2025: END IF;
2026: --
2027: -- Convert standard operation code to standard operation id
2028: --
2040: , p_routing_sequence_id => l_com_op_unexp_rec.routing_sequence_id
2041: , x_err_text => l_err_text
2042: );
2043:
2044: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2045: ('Converted standard operation code . . .');
2046: END IF;
2047:
2048: ELSE
2055: , p_rev_item_sequence_id => l_com_op_unexp_rec.revised_item_sequence_id
2056: , x_err_text => l_err_text
2057: );
2058:
2059: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2060: ('Converted standard operation code . . .');
2061: END IF;
2062:
2063: END IF ;
2066: THEN
2067: l_token_tbl(1).token_name := 'STD_OP_CODE';
2068: l_token_tbl(1).token_value :=
2069: p_com_operation_rec.standard_operation_code;
2070: Error_Handler.Add_Error_Token
2071: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
2072: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2073: , p_Message_name =>
2074: 'BOM_OP_STD_OP_CODE_INVALID'
2077: l_return_status := FND_API.G_RET_STS_ERROR;
2078: ELSIF l_err_text IS NOT NULL AND
2079: l_com_op_unexp_rec.Standard_Operation_Id IS NULL
2080: THEN
2081: Error_Handler.Add_Error_Token
2082: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
2083: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2084: , p_Message_text =>
2085: 'Unexpected Error ' || l_err_text || ' in ' ||
2094: --
2095: -- Convert department code to department ID
2096: --
2097:
2098: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2099: ('Dept code : . .' || p_com_operation_rec.department_code );
2100: END IF;
2101:
2102:
2109: , p_organization_id => l_com_op_unexp_rec.organization_id
2110: , x_err_text => l_err_text
2111: );
2112:
2113: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2114: ('Converted department code . . .');
2115: END IF;
2116:
2117: IF l_com_op_unexp_rec.department_id IS NULL
2118: THEN
2119: l_token_tbl(1).token_name :='DEPARTMENT_CODE';
2120: l_token_tbl(1).token_value :=
2121: p_com_operation_rec.department_code;
2122: Error_Handler.Add_Error_Token
2123: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
2124: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2125: , p_Message_name =>'BOM_OP_DEPT_CODE_INVALID'
2126: , p_token_tbl => l_token_tbl
2128: l_return_status := FND_API.G_RET_STS_ERROR;
2129: ELSIF l_err_text IS NOT NULL AND
2130: l_com_op_unexp_rec.department_id IS NULL
2131: THEN
2132: Error_Handler.Add_Error_Token
2133: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
2134: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2135: , p_Message_text =>
2136: 'Unexpected Error ' || l_err_text || ' in '
2178: l_com_op_unexp_rec.routing_sequence_id
2179: , x_err_text => l_err_text
2180: );
2181:
2182: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2183: ('Converted process code . . .');
2184: END IF;
2185:
2186: IF l_com_op_unexp_rec.process_op_seq_id IS NULL
2200: l_token_tbl(2).token_value :=
2201: p_com_operation_rec.process_seq_number ;
2202: END IF ;
2203:
2204: Error_Handler.Add_Error_Token
2205: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
2206: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2207: , p_Message_name =>
2208: 'BOM_FLM_OP_PSCODE_SQNM_INVALID'
2214:
2215: ELSIF l_err_text IS NOT NULL AND
2216: l_com_op_unexp_rec.process_op_seq_id IS NULL
2217: THEN
2218: Error_Handler.Add_Error_Token
2219: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
2220: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2221: , p_Message_text =>
2222: 'Unexpected Error ' || l_err_text || ' in '
2252: l_com_op_unexp_rec.routing_sequence_id
2253: , x_err_text => l_err_text
2254: );
2255:
2256: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2257: ('Converted line op code . . .');
2258: END IF;
2259:
2260: IF l_com_op_unexp_rec.line_op_seq_id IS NULL
2275: l_token_tbl(2).token_value :=
2276: p_com_operation_rec.line_op_seq_number ;
2277: END IF ;
2278:
2279: Error_Handler.Add_Error_Token
2280: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
2281: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2282: , p_Message_name =>
2283: 'BOM_FLM_OP_LNOPCD_SQNM_INVALID'
2289:
2290: ELSIF l_err_text IS NOT NULL AND
2291: l_com_op_unexp_rec.line_op_seq_id IS NULL
2292: THEN
2293: Error_Handler.Add_Error_Token
2294: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
2295: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2296: , p_Message_text =>
2297: 'Unexpected Error ' || l_err_text || ' in '
2317: -- FND_API.G_MISS_NUM
2318: THEN
2319:
2320: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
2321: Error_Handler.Write_Debug('Executing old operation seq id Val-ID conversion . . .');
2322: Error_Handler.Write_Debug('Routing Sequence: ' || to_char(l_com_op_unexp_rec.routing_sequence_id));
2323: END IF;
2324:
2325: IF (p_com_operation_rec.old_operation_sequence_number IS NULL
2318: THEN
2319:
2320: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
2321: Error_Handler.Write_Debug('Executing old operation seq id Val-ID conversion . . .');
2322: Error_Handler.Write_Debug('Routing Sequence: ' || to_char(l_com_op_unexp_rec.routing_sequence_id));
2323: END IF;
2324:
2325: IF (p_com_operation_rec.old_operation_sequence_number IS NULL
2326: OR p_com_operation_rec.old_operation_sequence_number =
2335: IF l_old_op_seq_number <>
2336: p_com_operation_rec.operation_sequence_number
2337: THEN
2338:
2339: Error_Handler.Add_Error_Token
2340: ( p_Message_Name => 'BOM_OP_OLD_SEQ_NUM_INVALID'
2341: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2342: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2343: , p_Token_Tbl => g_Token_Tbl
2354: , p_operation_type => p_com_operation_rec.operation_type
2355: , p_routing_sequence_id => l_com_op_unexp_rec.routing_sequence_id
2356: );
2357:
2358: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug ('Converted Old Operation Seq Id. . .');
2359: END IF;
2360:
2361: IF l_com_op_unexp_rec.old_operation_sequence_id IS NULL
2362: THEN
2369: g_token_tbl(3).token_name := 'OLD_OP_SEQ_NUMBER';
2370: g_token_tbl(3).token_value :=
2371: p_com_operation_rec.old_operation_sequence_number;
2372:
2373: Error_Handler.Add_Error_Token
2374: ( p_Message_Name => 'BOM_OP_OLD_OP_SEQ_INVALID'
2375: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2376: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2377: , p_Token_Tbl => g_Token_Tbl
2378: );
2379: l_Return_Status := FND_API.G_RET_STS_ERROR;
2380: ELSIF l_com_op_unexp_rec.old_operation_sequence_id = FND_API.G_MISS_NUM
2381: THEN
2382: Error_Handler.Add_Error_Token
2383: ( p_Message_Name => NULL
2384: , p_Message_Text =>
2385: 'Unexpected Error while converting old operation sequence id'
2386: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2397:
2398: x_return_status := l_return_status;
2399:
2400: IF Bom_Rtg_Globals.Get_Debug = 'Y'
2401: THEN Error_Handler.Write_Debug
2402: ('Return status of operation VID: ' || l_return_status );
2403: END IF;
2404:
2405: x_com_op_unexp_rec := l_com_op_unexp_rec;
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:
2432: IS
2433: l_rev_op_resource_rec Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type ;
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:
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;
2506: l_return_status := FND_API.G_RET_STS_SUCCESS;
2507: l_rev_op_res_unexp_rec := p_rev_op_res_unexp_rec;
2508:
2509: If BOM_Rtg_Globals.Get_Debug = 'Y'
2510: THEN Error_Handler.Write_Debug
2511: ('Operation resource record UUI-UI Conversion . . ');
2512: END IF;
2513:
2514: --
2516: --
2517: IF p_rev_op_resource_rec.revised_item_name IS NULL OR
2518: p_rev_op_resource_rec.revised_item_name = FND_API.G_MISS_CHAR
2519: THEN
2520: Error_Handler.Add_Error_Token
2521: ( p_message_name => 'BOM_RES_AITEM_KEYCOL_NULL'
2522: , p_mesg_token_tbl => l_mesg_token_tbl
2523: , x_mesg_token_tbl => l_mesg_token_tbl
2524: );
2531: --
2532: IF p_rev_op_resource_rec.resource_sequence_number IS NULL OR
2533: p_rev_op_resource_rec.resource_sequence_number = FND_API.G_MISS_NUM
2534: THEN
2535: Error_Handler.Add_Error_Token
2536: ( p_Message_Name => 'BOM_RES_SEQNUM_KEYCOL_NULL'
2537: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2538: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2539: );
2546: IF p_rev_op_resource_rec.operation_sequence_number IS NULL OR
2547: p_rev_op_resource_rec.operation_sequence_number =
2548: FND_API.G_MISS_NUM
2549: THEN
2550: Error_Handler.Add_Error_Token
2551: ( p_Message_Name => 'BOM_RES_OP_SEQNUM_KEYCOL_NULL'
2552: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2553: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2554: );
2560: --
2561: IF p_rev_op_resource_rec.op_start_effective_date IS NULL OR
2562: p_rev_op_resource_rec.op_start_effective_date = FND_API.G_MISS_DATE
2563: THEN
2564: Error_Handler.Add_Error_Token
2565: ( p_Message_Name => 'BOM_RES_EFF_DATE_KEYCOL_NULL'
2566: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2567: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2568: );
2599: p_rev_op_resource_rec.revised_item_name;
2600: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2601: g_token_tbl(2).token_value :=
2602: p_rev_op_resource_rec.organization_code;
2603: Error_Handler.Add_Error_Token
2604: ( p_Message_Name => 'BOM_RTG_AITEM_DOESNOT_EXIST'
2605: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2606: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2607: , p_Token_Tbl => g_Token_Tbl
2611: ( l_rev_op_res_unexp_rec.revised_item_id IS NULL OR
2612: l_rev_op_res_unexp_rec.revised_item_id = FND_API.G_MISS_NUM)
2613: THEN
2614: -- This is an unexpected error.
2615: Error_Handler.Add_Error_Token
2616: ( p_Message_Name => NULL
2617: , p_Message_Text => l_err_text || ' in ' ||
2618: G_PKG_NAME
2619: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2622: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2623: END IF;
2624:
2625: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2626: THEN Error_Handler.Write_Debug
2627: ('After converting Assembly Item Id : '
2628: || to_char(l_rev_op_res_unexp_rec.revised_item_id)
2629: || ' Status ' || l_return_status);
2630: END IF;
2651: p_rev_op_resource_rec.alternate_routing_code;
2652: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2653: g_token_tbl(2).token_value :=
2654: p_rev_op_resource_rec.organization_code;
2655: Error_Handler.Add_Error_Token
2656: ( P_Message_Name => 'BOM_RTG_ALT_DESIGNATOR_INVALID'
2657: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2658: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2659: , p_token_tbl => g_token_tbl
2675: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
2676: THEN
2677:
2678: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2679: Error_Handler.Write_Debug('Processing UUI_UI for operation resources and retrieving rev item seq id . . . ');
2680: END IF;
2681:
2682: NULL ;
2683:
2703: g_Token_Tbl(2).Token_Value := p_rev_op_resource_rec.revised_item_name;
2704: g_token_tbl(3).token_name := 'ECO_NAME';
2705: g_token_tbl(3).token_value := p_rev_op_resource_rec.eco_name;
2706:
2707: Error_Handler.Add_Error_Token
2708: ( p_Message_Name => 'BOM_RES_RIT_SEQUENCE_NOT_FOUND'
2709: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2710: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2711: , p_Token_Tbl => g_Token_Tbl
2715: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2716: x_rev_op_res_unexp_rec := l_rev_op_res_unexp_rec;
2717: x_Return_Status := l_Return_Status;
2718:
2719: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
2720:
2721: RETURN;
2722:
2723: END IF;
2722:
2723: END IF;
2724:
2725: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2726: Error_Handler.Write_Debug('Revised Item Sequence Id : ' || to_char(l_rev_op_res_unexp_rec.revised_item_sequence_id)) ;
2727: END IF ;
2728:
2729: ****************************************************************/
2730:
2732: --
2733: -- If the calling BO is RTG then get the routing sequence id
2734: --
2735: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
2736: Error_Handler.Write_Debug('Processing UUI_UI for operation resources. . . ');
2737: END IF;
2738: l_rev_op_res_unexp_rec.routing_sequence_id :=
2739: Routing_Sequence_id
2740: ( p_assembly_item_id => l_rev_op_res_unexp_rec.revised_item_id
2751: p_rev_op_resource_rec.revised_item_name;
2752: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2753: g_token_tbl(2).token_value :=
2754: p_rev_op_resource_rec.organization_code;
2755: Error_Handler.Add_Error_Token
2756: ( p_Message_Name => 'BOM_RES_RTG_NOT_FOUND'
2757: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2758: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2759: , p_Token_Tbl => g_Token_Tbl
2763: (l_rev_op_res_unexp_rec.routing_sequence_id IS NULL OR
2764: l_rev_op_res_unexp_rec.routing_sequence_id = FND_API.G_MISS_NUM)
2765: THEN
2766: -- This is an unexpected error.
2767: Error_Handler.Add_Error_Token
2768: ( p_Message_Name => NULL
2769: , p_Message_Text => l_err_text || ' in ' ||
2770: G_PKG_NAME
2771: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2779: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
2780: THEN
2781:
2782: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2783: THEN Error_Handler.Write_Debug
2784: ('After converting, routing sequence id is '
2785: || to_char(l_rev_op_res_unexp_rec.routing_sequence_id )
2786: || ' Status ' || l_return_status);
2787: END IF;
2811: g_token_tbl(1).token_value :=
2812: p_rev_op_resource_rec.operation_type ;
2813: END IF ;
2814:
2815: Error_Handler.Add_Error_Token
2816: ( p_Message_Name => 'BOM_FLM_RES_OPTYPE_INVALID'
2817: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2818: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2819: , p_Token_Tbl => g_Token_Tbl
2828: g_token_tbl(1).token_name := 'OPERATION_TYPE';
2829: g_token_tbl(1).token_value :=
2830: p_rev_op_resource_rec.operation_type;
2831:
2832: Error_Handler.Add_Error_Token
2833: ( p_Message_Name => 'BOM_STD_RES_OPTYPE_INVALID'
2834: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2835: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2836: , p_Token_Tbl => g_Token_Tbl
2857: THEN
2858: g_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
2859: g_token_tbl(1).token_value :=
2860: p_rev_op_resource_rec.operation_sequence_number ;
2861: Error_Handler.Add_Error_Token
2862: ( p_Message_Name => 'BOM_RES_OP_NOT_FOUND'
2863: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2864: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2865: , p_Token_Tbl => g_Token_Tbl
2870: l_rev_op_res_unexp_rec.operation_sequence_id = FND_API.G_MISS_NUM
2871: )
2872: THEN
2873: -- This is an unexpected error.
2874: Error_Handler.Add_Error_Token
2875: ( p_Message_Name => NULL
2876: , p_Message_Text => l_err_text || ' in ' ||
2877: G_PKG_NAME
2878: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2881: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2882: END IF;
2883:
2884: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2885: THEN Error_Handler.Write_Debug
2886: ('After converting, operation sequence id is '
2887: || to_char(l_rev_op_res_unexp_rec.operation_sequence_id )
2888: || ' Status ' || l_return_status);
2889: END IF;
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:
2922: IS
2923: l_rev_op_resource_rec Bom_Rtg_Pub.Rev_Op_Resource_Rec_Type ;
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;
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 ;
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:
2985: := p_rev_op_res_unexp_rec ;
2986: BEGIN
2987:
2988: IF BOM_Rtg_Globals.Get_Debug = 'Y'
2989: THEN Error_Handler.Write_Debug('Resource VID conversion . . .');
2990: END IF;
2991:
2992: --
2993: -- Convert resource code to reosurce id
3011: THEN
3012: l_token_tbl(1).token_name := 'RESOURCE_CODE';
3013: l_token_tbl(1).token_value :=
3014: p_rev_op_resource_rec.resource_code;
3015: Error_Handler.Add_Error_Token
3016: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3017: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3018: , p_Message_name =>
3019: 'BOM_RES_RESCODE_INVALID'
3022: l_return_status := FND_API.G_RET_STS_ERROR;
3023: ELSIF l_err_text IS NOT NULL AND
3024: l_rev_op_res_unexp_rec.resource_id IS NULL
3025: THEN
3026: Error_Handler.Add_Error_Token
3027: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3028: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3029: , p_Message_text =>
3030: 'Unexpected Error ' || l_err_text || ' in ' ||
3033: );
3034: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3035: END IF;
3036:
3037: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3038: ('Converted resource code . . .');
3039: END IF;
3040:
3041: END IF;
3061: THEN
3062: l_token_tbl(1).token_name := 'ACTIVITY';
3063: l_token_tbl(1).token_value :=
3064: p_rev_op_resource_rec.activity;
3065: Error_Handler.Add_Error_Token
3066: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3067: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3068: , p_Message_name =>
3069: 'BOM_RES_ACTIVITY_CODE_INVALID'
3072: l_return_status := FND_API.G_RET_STS_ERROR;
3073: ELSIF l_err_text IS NOT NULL AND
3074: l_rev_op_res_unexp_rec.activity_id IS NULL
3075: THEN
3076: Error_Handler.Add_Error_Token
3077: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3078: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3079: , p_Message_text =>
3080: 'Unexpected Error ' || l_err_text || ' in ' ||
3083: );
3084: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3085: END IF;
3086:
3087: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3088: ('Converted activity. . .');
3089: END IF;
3090:
3091:
3110: THEN
3111: l_token_tbl(1).token_name := 'SETUP_CODE';
3112: l_token_tbl(1).token_value :=
3113: p_rev_op_resource_rec.setup_type ;
3114: Error_Handler.Add_Error_Token
3115: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3116: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3117: , p_Message_name =>
3118: 'BOM_RES_SETUP_CODE_INVALID'
3121: l_return_status := FND_API.G_RET_STS_ERROR;
3122: ELSIF l_err_text IS NOT NULL AND
3123: l_rev_op_res_unexp_rec.setup_id IS NULL
3124: THEN
3125: Error_Handler.Add_Error_Token
3126: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3127: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3128: , p_Message_text =>
3129: 'Unexpected Error ' || l_err_text || ' in ' ||
3132: );
3133: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3134: END IF;
3135:
3136: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3137: ('Converted setup code . . .');
3138: END IF;
3139:
3140: END IF;
3142:
3143: x_return_status := l_return_status;
3144:
3145: IF Bom_Rtg_Globals.Get_Debug = 'Y'
3146: THEN Error_Handler.Write_Debug
3147: ('Return status of resource VID: ' || l_return_status );
3148: END IF;
3149:
3150: x_rev_op_res_unexp_rec := l_rev_op_res_unexp_rec;
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:
3177: IS
3178: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type ;
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
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;
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
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;
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;
3242: l_err_text_diff VARCHAR2(1);
3243:
3244: CURSOR c_Check_Alternate( p_alt_designator VARCHAR2,
3245: p_organization_id NUMBER ) IS
3253: l_return_status := FND_API.G_RET_STS_SUCCESS;
3254: l_rev_sub_res_unexp_rec := p_rev_sub_res_unexp_rec ;
3255:
3256: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3257: THEN Error_Handler.Write_Debug
3258: ('Substitute resource record UUI-UI Conversion . . ');
3259: END IF;
3260:
3261: --
3263: --
3264: IF p_rev_sub_resource_rec.revised_item_name IS NULL OR
3265: p_rev_sub_resource_rec.revised_item_name = FND_API.G_MISS_CHAR
3266: THEN
3267: Error_Handler.Add_Error_Token
3268: ( p_message_name => 'BOM_SUB_RES_AITEM_KEYCOL_NULL'
3269: , p_mesg_token_tbl => l_mesg_token_tbl
3270: , x_mesg_token_tbl => l_mesg_token_tbl
3271: );
3280: --
3281: IF p_rev_sub_resource_rec.alternate_routing_code IS NOT NULL AND
3282: p_rev_sub_resource_rec.alternate_routing_code <> FND_API.G_MISS_CHAR
3283: THEN
3284: Error_Handler.Add_Error_Token
3285: ( p_Message_Name => 'BOM_SUB_RES_ALTER_CD_NOT_NULL'
3286: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3287: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3288: );
3297: --
3298: IF p_rev_sub_resource_rec.sub_resource_code IS NULL OR
3299: p_rev_sub_resource_rec.sub_resource_code = FND_API.G_MISS_CHAR
3300: THEN
3301: Error_Handler.Add_Error_Token
3302: ( p_message_name => 'BOM_SUB_RES_CODE_KEYCOL_NULL'
3303: , p_mesg_token_tbl => l_mesg_token_tbl
3304: , x_mesg_token_tbl => l_mesg_token_tbl
3305: );
3316: IF nvl(p_rev_sub_resource_rec.substitute_group_number, p_rev_sub_res_unexp_rec.substitute_group_number) IS NULL OR
3317: nvl(p_rev_sub_resource_rec.substitute_group_number, p_rev_sub_res_unexp_rec.substitute_group_number)
3318: = FND_API.G_MISS_NUM
3319: THEN
3320: Error_Handler.Add_Error_Token
3321: ( p_message_name => 'BOM_SUB_RES_SCHDNM_KEYCOL_NULL'
3322: , p_mesg_token_tbl => l_mesg_token_tbl
3323: , x_mesg_token_tbl => l_mesg_token_tbl
3324: );
3334: IF p_rev_sub_resource_rec.operation_sequence_number IS NULL OR
3335: p_rev_sub_resource_rec.operation_sequence_number
3336: = FND_API.G_MISS_NUM
3337: THEN
3338: Error_Handler.Add_Error_Token
3339: ( p_message_name => 'BOM_SUB_RES_OP_SQNM_KEYCOL_NULL'
3340: , p_mesg_token_tbl => l_mesg_token_tbl
3341: , x_mesg_token_tbl => l_mesg_token_tbl
3342: );
3351: IF p_rev_sub_resource_rec.op_start_effective_date IS NULL OR
3352: p_rev_sub_resource_rec.op_start_effective_date
3353: = FND_API.G_MISS_DATE
3354: THEN
3355: Error_Handler.Add_Error_Token
3356: ( p_message_name =>
3357: 'BOM_SUB_RES_EFFDT_KEYCOL_NULL'
3358: , p_mesg_token_tbl => l_mesg_token_tbl
3359: , x_mesg_token_tbl => l_mesg_token_tbl
3362: l_return_status := FND_API.G_RET_STS_ERROR;
3363: END IF;
3364:
3365: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3366: THEN Error_Handler.Write_Debug
3367: ('Finish Substitute resource record Key Col check. . ');
3368: END IF;
3369:
3370: --
3396: p_rev_sub_resource_rec.revised_item_name;
3397: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
3398: g_token_tbl(2).token_value :=
3399: p_rev_sub_resource_rec.organization_code;
3400: Error_Handler.Add_Error_Token
3401: ( p_Message_Name => 'BOM_RTG_AITEM_DOESNOT_EXIST'
3402: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3403: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3404: , p_Token_Tbl => g_Token_Tbl
3408: ( l_rev_sub_res_unexp_rec.revised_item_id IS NULL OR
3409: l_rev_sub_res_unexp_rec.revised_item_id = FND_API.G_MISS_NUM)
3410: THEN
3411: -- This is an unexpected error.
3412: Error_Handler.Add_Error_Token
3413: ( p_Message_Name => NULL
3414: , p_Message_Text => l_err_text || ' in ' ||
3415: G_PKG_NAME
3416: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3419: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3420: END IF;
3421:
3422: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3423: THEN Error_Handler.Write_Debug
3424: ('After converting Assembly Item Id : '
3425: || to_char(l_rev_sub_res_unexp_rec.revised_item_id)
3426: || ' Status ' || l_return_status);
3427: END IF;
3448: p_rev_sub_resource_rec.alternate_routing_code;
3449: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
3450: g_token_tbl(2).token_value :=
3451: p_rev_sub_resource_rec.organization_code;
3452: Error_Handler.Add_Error_Token
3453: ( P_Message_Name =>
3454: 'BOM_RTG_ALT_DESIGNATOR_INVALID'
3455: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3456: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3471: ****************************************************************/
3472: IF BOM_Rtg_Globals.Get_Bo_Identifier <> BOM_Rtg_Globals.G_RTG_BO
3473: THEN
3474: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3475: Error_Handler.Write_Debug('Processing UUI_UI for sub op resources and retrieving rev item seq id . . . ');
3476: END IF;
3477:
3478: NULL ;
3479:
3501: g_Token_Tbl(3).Token_Value := p_rev_sub_resource_rec.revised_item_name;
3502: g_token_tbl(4).token_name := 'ECO_NAME';
3503: g_token_tbl(4).token_value := p_rev_sub_resource_rec.eco_name;
3504:
3505: Error_Handler.Add_Error_Token
3506: ( p_Message_Name => 'BOM_SUB_RES_RIT_SEQ_NOT_FOUND'
3507: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3508: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3509: , p_Token_Tbl => g_Token_Tbl
3513: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3514: x_rev_sub_res_unexp_rec := l_rev_sub_res_unexp_rec;
3515: x_Return_Status := l_Return_Status;
3516:
3517: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
3518:
3519: RETURN;
3520:
3521: END IF;
3520:
3521: END IF;
3522:
3523: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3524: Error_Handler.Write_Debug('Revised Item Sequence Id : ' || to_char(l_rev_sub_res_unexp_rec.revised_item_sequence_id)) ;
3525: END IF ;
3526: ****************************************************************/
3527:
3528: ELSE
3527:
3528: ELSE
3529:
3530: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3531: Error_Handler.Write_Debug('Processing UUI_UI for sub op res . . . ');
3532: END IF;
3533: --
3534: -- If the calling BO is RTG then get the routing sequence id
3535: --
3553: p_rev_sub_resource_rec.revised_item_name;
3554: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
3555: g_token_tbl(2).token_value :=
3556: p_rev_sub_resource_rec.organization_code;
3557: Error_Handler.Add_Error_Token
3558: ( p_Message_Name => 'BOM_SUB_RES_RTG_NOT_FOUND'
3559: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3560: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3561: , p_Token_Tbl => g_Token_Tbl
3565: (l_rev_sub_res_unexp_rec.routing_sequence_id IS NULL OR
3566: l_rev_sub_res_unexp_rec.routing_sequence_id = FND_API.G_MISS_NUM)
3567: THEN
3568: -- This is an unexpected error.
3569: Error_Handler.Add_Error_Token
3570: ( p_Message_Name => NULL
3571: , p_Message_Text => l_err_text || ' in ' ||
3572: G_PKG_NAME
3573: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3576: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3577: END IF;
3578:
3579: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3580: Error_Handler.Write_Debug('After converting, routing sequence id is '
3581: || to_char(l_rev_sub_res_unexp_rec.routing_sequence_id )
3582: || ' Status ' || l_return_status);
3583: END IF;
3584:
3614: g_token_tbl(1).token_value :=
3615: p_rev_sub_resource_rec.operation_type;
3616: END IF ;
3617:
3618: Error_Handler.Add_Error_Token
3619: ( p_Message_Name => 'BOM_SUB_RES_FLM_OP_TYP_INVALID'
3620: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3621: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3622: , p_Token_Tbl => g_Token_Tbl
3631: THEN
3632: g_token_tbl(1).token_name := 'OPERATION_TYPE';
3633: g_token_tbl(1).token_value :=
3634: p_rev_sub_resource_rec.operation_type;
3635: Error_Handler.Add_Error_Token
3636: ( p_Message_Name => 'BOM_SUB_RES_STD_OP_TYP_IGNORED'
3637: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3638: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3639: , p_Token_Tbl => g_Token_Tbl
3666: g_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3667: g_token_tbl(1).token_value :=
3668: p_rev_sub_resource_rec.operation_sequence_number;
3669:
3670: Error_Handler.Add_Error_Token
3671: ( p_Message_Name => 'BOM_SUB_RES_OP_NOT_FOUND'
3672: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3673: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3674: , p_Token_Tbl => g_Token_Tbl
3680: l_rev_sub_res_unexp_rec.operation_sequence_id =FND_API.G_MISS_NUM
3681: )
3682: THEN
3683: -- This is an unexpected error.
3684: Error_Handler.Add_Error_Token
3685: ( p_Message_Name => NULL
3686: , p_Message_Text => l_err_text || ' in ' ||
3687: G_PKG_NAME
3688: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3691: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3692: END IF;
3693:
3694: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3695: Error_Handler.Write_Debug('After converting, op sequence id is '
3696: || to_char(l_rev_sub_res_unexp_rec.operation_sequence_id )
3697: || ' Status ' || l_return_status);
3698: END IF;
3699:
3717: l_token_tbl(1).token_name :=
3718: 'RESOURCE_CODE';
3719: l_token_tbl(1).token_value :=
3720: p_rev_sub_resource_rec.sub_resource_code;
3721: Error_Handler.Add_Error_Token
3722: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3723: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3724: , p_Message_name =>
3725: 'BOM_SUB_RES_SUB_RES_CD_INVALID'
3728: l_return_status := FND_API.G_RET_STS_ERROR;
3729: ELSIF l_err_text IS NOT NULL AND
3730: l_rev_sub_res_unexp_rec.resource_id IS NULL
3731: THEN
3732: Error_Handler.Add_Error_Token
3733: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3734: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3735: , p_Message_text =>
3736: 'Unexpected Error ' || l_err_text || ' in ' ||
3739: );
3740: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3741: END IF;
3742: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3743: Error_Handler.Write_Debug('After converting, Resource Id is '
3744: || to_char(l_rev_sub_res_unexp_rec.resource_id)
3745: || ' Status ' || l_return_status);
3746: END IF;
3747: END IF;
3762: l_token_tbl(1).token_name :=
3763: 'SUBSTITUTE_GROUP_NUMBER';
3764: l_token_tbl(1).token_value :=
3765: p_rev_sub_resource_rec.substitute_group_number ;
3766: Error_Handler.Add_Error_Token
3767: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3768: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3769: , p_Message_name =>
3770: 'BOM_SUB_RES_RELRES_NOT_FOUND'
3774: END IF;
3775: END IF;
3776:
3777: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3778: Error_Handler.Write_Debug('After set substitute group num '
3779: || to_char(nvl(p_rev_sub_resource_rec.substitute_group_number, l_rev_sub_res_unexp_rec.substitute_group_number))
3780: || ' verify it. Status ' || l_return_status);
3781: END IF;
3782:
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:
3813: IS
3814: l_rev_sub_resource_rec Bom_Rtg_Pub.Rev_Sub_Resource_rec_Type ;
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;
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 ;
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:
3876: := p_rev_sub_res_unexp_rec ;
3877: BEGIN
3878:
3879: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3880: Error_Handler.Write_Debug('Substitute resource VID conversion . . .');
3881: END IF;
3882:
3883: --
3884: -- Convert activity to activity id
3901: THEN
3902: l_token_tbl(1).token_name := 'ACTIVITY';
3903: l_token_tbl(1).token_value :=
3904: p_rev_sub_resource_rec.activity;
3905: Error_Handler.Add_Error_Token
3906: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3907: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3908: , p_Message_name =>
3909: 'BOM_SUB_RES_ACT_CD_INVALID'
3912: l_return_status := FND_API.G_RET_STS_ERROR;
3913: ELSIF l_err_text IS NOT NULL AND
3914: l_rev_sub_res_unexp_rec.activity_id IS NULL
3915: THEN
3916: Error_Handler.Add_Error_Token
3917: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3918: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3919: , p_Message_text =>
3920: 'Unexpected Error ' || l_err_text || ' in ' ||
3923: );
3924: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3925: END IF;
3926: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3927: Error_Handler.Write_Debug('Converted activity id. '|| to_char(l_rev_sub_res_unexp_rec.activity_id) );
3928: END IF;
3929:
3930: END IF;
3931:
3952: THEN
3953: l_token_tbl(1).token_name := 'RESOURCE_CODE';
3954: l_token_tbl(1).token_value :=
3955: p_rev_sub_resource_rec.new_sub_resource_code ;
3956: Error_Handler.Add_Error_Token
3957: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3958: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3959: , p_Message_name =>
3960: 'BOM_SUB_RES_SUB_RES_CD_INVALID'
3963: l_return_status := FND_API.G_RET_STS_ERROR;
3964: ELSIF l_err_text IS NOT NULL AND
3965: l_rev_sub_res_unexp_rec.new_resource_id IS NULL
3966: THEN
3967: Error_Handler.Add_Error_Token
3968: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
3969: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3970: , p_Message_text =>
3971: 'Unexpected Error ' || l_err_text || ' in ' ||
3974: );
3975: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
3976: END IF;
3977:
3978: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3979: ('Converted new sub resource id. ' || to_char(l_rev_sub_res_unexp_rec.new_resource_id) ) ;
3980: END IF;
3981:
3982: END IF;
4000: THEN
4001: l_token_tbl(1).token_name := 'SETUP_CODE';
4002: l_token_tbl(1).token_value :=
4003: p_rev_sub_resource_rec.setup_type ;
4004: Error_Handler.Add_Error_Token
4005: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
4006: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4007: , p_Message_name =>
4008: 'BOM_SUB_RES_SETUP_CODE_INVALID'
4011: l_return_status := FND_API.G_RET_STS_ERROR;
4012: ELSIF l_err_text IS NOT NULL AND
4013: l_rev_sub_res_unexp_rec.setup_id IS NULL
4014: THEN
4015: Error_Handler.Add_Error_Token
4016: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
4017: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4018: , p_Message_text =>
4019: 'Unexpected Error ' || l_err_text || ' in ' ||
4023: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
4024: END IF;
4025:
4026: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
4027: Error_Handler.Write_Debug ('Converted setup code . . .');
4028: END IF;
4029:
4030: END IF;
4031:
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
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;
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
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;
4084: l_return_status := FND_API.G_RET_STS_SUCCESS;
4085: l_op_network_unexp_rec := p_op_network_unexp_rec;
4086:
4087: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4088: THEN Error_Handler.Write_Debug
4089: ('Operation network record UUI-UI Conversion . . ');
4090: END IF;
4091:
4092: --
4094: --
4095: IF p_op_network_rec.assembly_item_name IS NULL OR
4096: p_op_network_rec.assembly_item_name = FND_API.G_MISS_CHAR
4097: THEN
4098: Error_Handler.Add_Error_Token
4099: ( p_message_name => 'BOM_OP_NWK_AITEM_KEYCOL_NULL'
4100: , p_mesg_token_tbl => l_mesg_token_tbl
4101: , x_mesg_token_tbl => l_mesg_token_tbl
4102: );
4110: IF p_op_network_rec.from_op_seq_number IS NULL OR
4111: p_op_network_rec.from_op_seq_number
4112: = FND_API.G_MISS_NUM
4113: THEN
4114: Error_Handler.Add_Error_Token
4115: ( p_Message_Name => 'BOM_OP_NWK_SEQNUM_KEYCOL_NULL'
4116: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4117: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4118: );
4125: IF p_op_network_rec.to_op_seq_number IS NULL OR
4126: p_op_network_rec.to_op_seq_number
4127: = FND_API.G_MISS_NUM
4128: THEN
4129: Error_Handler.Add_Error_Token
4130: ( p_Message_Name => 'BOM_OP_NWK_SEQNUM_KEYCOL_NULL'
4131: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4132: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4133: );
4142: = FND_API.G_MISS_DATE)
4143: AND ( NVL(p_op_network_rec.operation_type,1) = 1
4144: OR p_op_network_rec.operation_type = FND_API.G_MISS_NUM )
4145: THEN
4146: Error_Handler.Add_Error_Token
4147: ( p_Message_Name => 'BOM_OP_NWK_EFFDT_KEYCOL_NULL'
4148: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4149: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4150: );
4159: = FND_API.G_MISS_DATE)
4160: AND ( NVL(p_op_network_rec.operation_type,1) = 1
4161: OR p_op_network_rec.operation_type = FND_API.G_MISS_NUM )
4162: THEN
4163: Error_Handler.Add_Error_Token
4164: ( p_Message_Name => 'BOM_OP_NWK_EFFDT_KEYCOL_NULL'
4165: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4166: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4167: );
4199: p_op_network_rec.assembly_item_name;
4200: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
4201: g_token_tbl(2).token_value :=
4202: p_op_network_rec.organization_code;
4203: Error_Handler.Add_Error_Token
4204: ( p_Message_Name => 'BOM_RTG_AITEM_DOESNOT EXIST'
4205: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4206: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4207: , p_Token_Tbl => g_Token_Tbl
4212: l_op_network_unexp_rec.assembly_item_id = FND_API.G_MISS_NUM
4213: )
4214: THEN
4215: -- This is an unexpected error.
4216: Error_Handler.Add_Error_Token
4217: ( p_Message_Name => NULL
4218: , p_Message_Text => l_err_text || ' in ' ||
4219: G_PKG_NAME
4220: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4223: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4224: END IF;
4225:
4226: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4227: THEN Error_Handler.Write_Debug
4228: ('After converting Assembly Item Id : '
4229: || to_char(l_op_network_unexp_rec.assembly_item_id)
4230: || ' Status ' || l_return_status);
4231: END IF;
4252: p_op_network_rec.alternate_routing_code;
4253: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
4254: g_token_tbl(2).token_value :=
4255: p_op_network_rec.organization_code;
4256: Error_Handler.Add_Error_Token
4257: ( P_Message_Name =>
4258: 'BOM_RTG_ALT_DESIGNATOR_INVALID'
4259: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4260: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4281: THEN
4282: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
4283: g_token_tbl(1).token_value :=
4284: p_op_network_rec.assembly_item_name;
4285: Error_Handler.Add_Error_Token
4286: ( p_Message_Name => 'BOM_OP_NWK_RTG_NOT_FOUND'
4287: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4288: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4289: , p_Token_Tbl => g_Token_Tbl
4294: l_op_network_unexp_rec.routing_sequence_id
4295: = FND_API.G_MISS_NUM)
4296: THEN
4297: -- This is an unexpected error.
4298: Error_Handler.Add_Error_Token
4299: ( p_Message_Name => NULL
4300: , p_Message_Text => l_err_text || ' in ' ||
4301: G_PKG_NAME
4302: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4305: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4306: END IF;
4307:
4308: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4309: THEN Error_Handler.Write_Debug
4310: ('After converting, routing sequence id is '
4311: || to_char(l_op_network_unexp_rec.routing_sequence_id )
4312: || ' Status ' || l_return_status);
4313: END IF;
4334: THEN
4335: g_token_tbl(1).token_name := 'ASSEMBLY_ITEM_NAME';
4336: g_token_tbl(1).token_value :=
4337: p_op_network_rec.assembly_item_name;
4338: Error_Handler.Add_Error_Token
4339: ( p_Message_Name => 'BOM_OP_NWK_RTG_INVALID'
4340: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4341: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4342: , p_Token_Tbl => g_Token_Tbl
4361: g_token_tbl(1).token_value :=
4362: p_op_network_rec.operation_type;
4363: END IF ;
4364:
4365: Error_Handler.Add_Error_Token
4366: ( p_Message_Name => 'BOM_FLM_OP_NWK_TYPE_INVALID'
4367: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4368: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4369: , p_Token_Tbl => g_Token_Tbl
4381: THEN
4382: g_token_tbl(1).token_name := 'OPERATION_TYPE';
4383: g_token_tbl(1).token_value :=
4384: p_op_network_rec.operation_type;
4385: Error_Handler.Add_Error_Token
4386: ( p_Message_Name => 'BOM_OP_NWK_OP_TYPE_IGNORED'
4387: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4388: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4389: , p_Token_Tbl => g_Token_Tbl
4466: THEN
4467: g_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4468: g_token_tbl(1).token_value :=
4469: p_op_network_rec.from_op_seq_number;
4470: Error_Handler.Add_Error_Token
4471: ( p_Message_Name => 'BOM_OP_NWK_FROM_OP_NOT_FOUND'
4472: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4473: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4474: , p_Token_Tbl => g_Token_Tbl
4479: l_op_network_unexp_rec.from_op_seq_id
4480: = FND_API.G_MISS_NUM )
4481: THEN
4482: -- This is an unexpected error.
4483: Error_Handler.Add_Error_Token
4484: ( p_Message_Name => NULL
4485: , p_Message_Text => l_err_text || ' in ' ||
4486: G_PKG_NAME
4487: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4490: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4491: END IF;
4492:
4493: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4494: THEN Error_Handler.Write_Debug
4495: ('After converting, From Op Seq Id is '
4496: || to_char(l_op_network_unexp_rec.from_op_seq_id)
4497: || ' Status ' || l_return_status);
4498: END IF;
4554: THEN
4555: g_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4556: g_token_tbl(1).token_value :=
4557: p_op_network_rec.to_op_seq_number;
4558: Error_Handler.Add_Error_Token
4559: ( p_Message_Name => 'BOM_OP_NWK_TO_OP_NOT_FOUND'
4560: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4561: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4562: , p_Token_Tbl => g_Token_Tbl
4568: l_op_network_unexp_rec.to_op_seq_id
4569: = FND_API.G_MISS_NUM )
4570: THEN
4571: -- This is an unexpected error.
4572: Error_Handler.Add_Error_Token
4573: ( p_Message_Name => NULL
4574: , p_Message_Text => l_err_text || ' in ' ||
4575: G_PKG_NAME
4576: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4579: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4580: END IF;
4581:
4582: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4583: THEN Error_Handler.Write_Debug
4584: ('After converting, To Op Seq Id is '
4585: || to_char(l_op_network_unexp_rec.to_op_seq_id)
4586: || ' Status ' || l_return_status);
4587: END IF;
4630: THEN
4631: g_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4632: g_token_tbl(1).token_value :=
4633: p_op_network_rec.new_from_op_seq_number;
4634: Error_Handler.Add_Error_Token
4635: ( p_Message_Name => 'BOM_OP_NWK_FROM_OP_NOT_FOUND'
4636: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4637: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4638: , p_Token_Tbl => g_Token_Tbl
4644: l_op_network_unexp_rec.new_from_op_seq_id
4645: = FND_API.G_MISS_NUM )
4646: THEN
4647: -- This is an unexpected error.
4648: Error_Handler.Add_Error_Token
4649: ( p_Message_Name => NULL
4650: , p_Message_Text => l_err_text || ' in ' ||
4651: G_PKG_NAME
4652: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4655: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4656: END IF;
4657:
4658: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4659: THEN Error_Handler.Write_Debug
4660: ('After converting, New From Op Seq Id is '
4661: || to_char(l_op_network_unexp_rec.new_from_op_seq_id)
4662: || ' Status ' || l_return_status);
4663: END IF;
4708: THEN
4709: g_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4710: g_token_tbl(1).token_value :=
4711: p_op_network_rec.new_to_op_seq_number;
4712: Error_Handler.Add_Error_Token
4713: ( p_Message_Name => 'BOM_OP_NWK_TO_OP_NOT_FOUND'
4714: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4715: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4716: , p_Token_Tbl => g_Token_Tbl
4723: = FND_API.G_MISS_NUM )
4724: THEN
4725:
4726: -- This is an unexpected error.
4727: Error_Handler.Add_Error_Token
4728: ( p_Message_Name => NULL
4729: , p_Message_Text => l_err_text || ' in ' ||
4730: G_PKG_NAME
4731: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4734: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4735: END IF;
4736:
4737: IF BOM_Rtg_Globals.Get_Debug = 'Y'
4738: THEN Error_Handler.Write_Debug
4739: ('After converting, New To Op Seq Id is '
4740: || to_char(l_op_network_unexp_rec.new_to_op_seq_id)
4741: || ' Status ' || l_return_status);
4742: END IF;