[Home] [Help]
506: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
507: , p_message_name => 'BOM_OP_ALREADY_EXISTS'
508: , p_token_tbl => l_token_tbl
509: ) ;
510: l_return_status := FND_API.G_RET_STS_ERROR ;
511:
512: ELSIF l_return_status = BOM_Rtg_Globals.G_RECORD_NOT_FOUND AND
513: p_com_operation_rec.transaction_type IN
514: (BOM_Rtg_Globals.G_OPR_UPDATE, BOM_Rtg_Globals.G_OPR_DELETE, BOM_Rtg_Globals.G_OPR_CANCEL)
518: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
519: , p_message_name => 'BOM_OP_DOESNOT_EXIST'
520: , p_token_tbl => l_token_tbl
521: ) ;
522: l_return_status := FND_API.G_RET_STS_ERROR ;
523:
524: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
525: THEN
526: Error_Handler.Add_Error_Token
520: , p_token_tbl => l_token_tbl
521: ) ;
522: l_return_status := FND_API.G_RET_STS_ERROR ;
523:
524: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
525: THEN
526: Error_Handler.Add_Error_Token
527: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
528: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
532: || p_com_operation_rec.operation_sequence_number
533: , p_token_tbl => l_token_tbl
534: ) ;
535: ELSE
536: l_return_status := FND_API.G_RET_STS_SUCCESS;
537: END IF ;
538:
539: x_return_status := l_return_status;
540: x_mesg_token_tbl := l_Mesg_Token_Tbl;
582: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
583: l_err_text VARCHAR(2000) ;
584:
585: BEGIN
586: l_return_status := FND_API.G_RET_STS_SUCCESS;
587:
588: /*************************************************************
589: --
590: -- In case of an update, based on the revised item information
601: LOOP
602: IF NVL(l_get_rev_op_rec.revised_item_sequence_id, 0) <>
603: NVL(p_revised_item_sequence_id,0)
604: THEN
605: l_return_status := FND_API.G_RET_STS_ERROR;
606: END IF;
607: END LOOP;
608:
609: x_return_status := l_return_status;
623: , x_mesg_token_tbl => l_mesg_token_tbl
624: ) ;
625:
626: -- Return the status and message table.
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
628: x_mesg_token_tbl := l_mesg_token_tbl ;
629:
630:
631: END Check_Lineage;
659: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
660: l_err_text VARCHAR(2000) ;
661:
662: BEGIN
663: l_return_status := FND_API.G_RET_STS_SUCCESS;
664:
665: FOR l_get_common_rec IN l_get_common_cur(p_routing_sequence_id)
666: LOOP
667: l_return_status := FND_API.G_RET_STS_ERROR ;
663: l_return_status := FND_API.G_RET_STS_SUCCESS;
664:
665: FOR l_get_common_rec IN l_get_common_cur(p_routing_sequence_id)
666: LOOP
667: l_return_status := FND_API.G_RET_STS_ERROR ;
668: END LOOP;
669:
670: x_return_status := l_return_status;
671: x_mesg_token_tbl := l_mesg_token_tbl;
684: , x_mesg_token_tbl => l_mesg_token_tbl
685: ) ;
686:
687: -- Return the status and message table.
688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
689: x_mesg_token_tbl := l_mesg_token_tbl ;
690:
691: END Check_CommonRtg ;
692:
789: l_err_text VARCHAR(2000) ;
790: l_Token_Tbl Error_Handler.Token_Tbl_Type;
791:
792: BEGIN
793: x_return_status := FND_API.G_RET_STS_SUCCESS;
794: l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
795: l_Token_Tbl(1).token_value := p_com_operation_rec.operation_sequence_number ;
796:
797:
796:
797:
798: -- ACD_TYPE
799: IF ( p_com_operation_rec.acd_type IS NULL OR
800: p_com_operation_rec.acd_type = FND_API.G_MISS_NUM
801: ) AND
802: BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
803: THEN
804: Error_Handler.Add_Error_Token
807: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
808: , p_Token_Tbl => l_Token_Tbl
809: ) ;
810:
811: x_return_status := FND_API.G_RET_STS_ERROR ;
812:
813: END IF;
814:
815: -- Standard Operation Id and Operation Type
815: -- Standard Operation Id and Operation Type
816: IF ( p_com_operation_rec.operation_type IN (2, 3)
817: AND p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
818: AND ( p_com_operation_rec.standard_operation_code IS NULL OR
819: p_com_operation_rec.standard_operation_code = FND_API.G_MISS_CHAR )
820: )
821: THEN
822: Error_Handler.Add_Error_Token
823: ( p_message_name => 'BOM_FLM_OP_STDOP_REQUIRED'
825: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
826: , p_Token_Tbl => l_Token_Tbl
827: ) ;
828:
829: x_return_status := FND_API.G_RET_STS_ERROR ;
830:
831:
832: -- Department Code for CREATEs
833: ELSIF
831:
832: -- Department Code for CREATEs
833: ELSIF
834: ( p_com_operation_rec.department_code IS NULL OR
835: p_com_operation_rec.department_code = FND_API.G_MISS_CHAR
836: )
837: AND p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
838: AND NVL(p_com_operation_rec.acd_type, 1) = l_ACD_ADD
839: AND ( p_com_operation_rec.standard_operation_code IS NULL OR
836: )
837: AND p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
838: AND NVL(p_com_operation_rec.acd_type, 1) = l_ACD_ADD
839: AND ( p_com_operation_rec.standard_operation_code IS NULL OR
840: p_com_operation_rec.standard_operation_code = FND_API.G_MISS_CHAR )
841: AND BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_Lot_Rtg
842: THEN
843: Error_Handler.Add_Error_Token
844: ( p_message_name => 'BOM_OP_DEPT_REQUIRED'
846: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
847: , p_Token_Tbl => l_Token_Tbl
848: ) ;
849:
850: x_return_status := FND_API.G_RET_STS_ERROR ;
851:
852: END IF;
853:
854:
870: , x_mesg_token_tbl => l_mesg_token_tbl
871: ) ;
872:
873: -- Return the status and message table.
874: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
875: x_mesg_token_tbl := l_mesg_token_tbl ;
876:
877: END Check_Required ;
878:
992: l_Token_Tbl Error_Handler.Token_Tbl_Type;
993:
994: BEGIN
995:
996: l_return_status := FND_API.G_RET_STS_SUCCESS;
997: x_return_status := FND_API.G_RET_STS_SUCCESS;
998:
999: -- Set the first token to be equal to the operation sequence number
1000: l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
993:
994: BEGIN
995:
996: l_return_status := FND_API.G_RET_STS_SUCCESS;
997: x_return_status := FND_API.G_RET_STS_SUCCESS;
998:
999: -- Set the first token to be equal to the operation sequence number
1000: l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
1001: l_Token_Tbl(1).token_value := p_com_operation_rec.operation_sequence_number ;
1013: ('Operation Attr Validation: Missing Value. . . ' || l_return_status) ;
1014: END IF;
1015:
1016: -- Operation Type
1017: IF p_com_operation_rec.operation_type = FND_API.G_MISS_NUM
1018: THEN
1019: Error_Handler.Add_Error_Token
1020: ( p_Message_Name => 'BOM_OP_OPTYPE_MISSING'
1021: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1021: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1022: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1023: , p_Token_Tbl => l_Token_Tbl
1024: );
1025: l_return_status := FND_API.G_RET_STS_ERROR;
1026: END IF ;
1027:
1028:
1029: -- Department Code
1026: END IF ;
1027:
1028:
1029: -- Department Code
1030: IF p_com_operation_rec.department_code = FND_API.G_MISS_CHAR
1031: THEN
1032: Error_Handler.Add_Error_Token
1033: ( p_Message_Name => 'BOM_OP_DEPT_MISSING'
1034: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1034: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1035: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1036: , p_Token_Tbl => l_Token_Tbl
1037: );
1038: l_return_status := FND_API.G_RET_STS_ERROR;
1039: END IF;
1040:
1041:
1042: -- Count Point Type
1039: END IF;
1040:
1041:
1042: -- Count Point Type
1043: IF p_com_operation_rec.count_point_type = FND_API.G_MISS_NUM
1044: THEN
1045: Error_Handler.Add_Error_Token
1046: ( p_Message_Name => 'BOM_OP_CNTPOINT_TYPE_MISSING'
1047: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1047: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1048: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1049: , p_Token_Tbl => l_Token_Tbl
1050: );
1051: l_return_status := FND_API.G_RET_STS_ERROR;
1052: END IF;
1053:
1054:
1055: -- Option Dependent Flag
1052: END IF;
1053:
1054:
1055: -- Option Dependent Flag
1056: IF p_com_operation_rec.option_dependent_flag = FND_API.G_MISS_NUM
1057: THEN
1058: Error_Handler.Add_Error_Token
1059: ( p_Message_Name => 'BOM_OP_DPTFLAG_INVALID'
1060: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1060: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1061: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1062: , p_Token_Tbl => l_Token_Tbl
1063: );
1064: l_return_status := FND_API.G_RET_STS_ERROR;
1065: END IF;
1066:
1067: -- Reference Flag
1068: IF p_com_operation_rec.reference_flag = FND_API.G_MISS_NUM
1064: l_return_status := FND_API.G_RET_STS_ERROR;
1065: END IF;
1066:
1067: -- Reference Flag
1068: IF p_com_operation_rec.reference_flag = FND_API.G_MISS_NUM
1069: THEN
1070: Error_Handler.Add_Error_Token
1071: ( p_Message_Name => 'BOM_OP_REFERENCE_MISSING'
1072: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1072: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1073: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1074: , p_Token_Tbl => l_Token_Tbl
1075: );
1076: l_return_status := FND_API.G_RET_STS_ERROR;
1077: END IF;
1078:
1079: -- Include In RollUp
1080: IF p_com_operation_rec.include_in_rollup = FND_API.G_MISS_NUM
1076: l_return_status := FND_API.G_RET_STS_ERROR;
1077: END IF;
1078:
1079: -- Include In RollUp
1080: IF p_com_operation_rec.include_in_rollup = FND_API.G_MISS_NUM
1081: THEN
1082: Error_Handler.Add_Error_Token
1083: ( p_Message_Name => 'BOM_OP_ICDROLLUP_MISSING'
1084: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1084: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1085: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1086: , p_Token_Tbl => l_Token_Tbl
1087: );
1088: l_return_status := FND_API.G_RET_STS_ERROR;
1089: END IF;
1090:
1091:
1092: -- Op Yild Enabled Flag
1089: END IF;
1090:
1091:
1092: -- Op Yild Enabled Flag
1093: IF p_com_operation_rec.op_yield_enabled_flag = FND_API.G_MISS_NUM
1094: THEN
1095: Error_Handler.Add_Error_Token
1096: ( p_Message_Name => 'BOM_OP_YIELDENABLED_MISSING'
1097: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1097: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1098: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1099: , p_Token_Tbl => l_Token_Tbl
1100: );
1101: l_return_status := FND_API.G_RET_STS_ERROR;
1102: END IF ;
1103:
1104:
1105: -- Backfluch Flag
1102: END IF ;
1103:
1104:
1105: -- Backfluch Flag
1106: IF p_com_operation_rec.backflush_flag = FND_API.G_MISS_NUM
1107: THEN
1108: Error_Handler.Add_Error_Token
1109: ( p_Message_Name => 'BOM_OP_BKFLUSH_FLAG_MISSING'
1110: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1110: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1111: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1112: , p_Token_Tbl => l_Token_Tbl
1113: );
1114: l_return_status := FND_API.G_RET_STS_ERROR;
1115: END IF ;
1116:
1117:
1118:
1116:
1117:
1118:
1119: -- Standard Operation Code
1120: IF p_com_operation_rec.standard_operation_code = FND_API.G_MISS_CHAR
1121: THEN
1122: Error_Handler.Add_Error_Token
1123: ( p_Message_Name => 'BOM_OP_STD_OP_NOTUPDATABLE'
1124: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1124: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1125: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1126: , p_Token_Tbl => l_Token_Tbl
1127: );
1128: l_return_status := FND_API.G_RET_STS_ERROR;
1129: END IF ;
1130:
1131:
1132:
1130:
1131:
1132:
1133: -- New Operation Sequence Number
1134: IF p_com_operation_rec.new_operation_sequence_number = FND_API.G_MISS_NUM
1135: THEN
1136: Error_Handler.Add_Error_Token
1137: ( p_Message_Name => 'BOM_OP_SEQNUM_MISSING'
1138: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1138: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1139: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1140: , p_Token_Tbl => l_Token_Tbl
1141: );
1142: l_return_status := FND_API.G_RET_STS_ERROR;
1143: END IF ;
1144:
1145: -- New Start Effective Date for RTG_Bo Only
1146: IF p_com_operation_rec.new_start_effective_date = FND_API.G_MISS_DATE
1142: l_return_status := FND_API.G_RET_STS_ERROR;
1143: END IF ;
1144:
1145: -- New Start Effective Date for RTG_Bo Only
1146: IF p_com_operation_rec.new_start_effective_date = FND_API.G_MISS_DATE
1147: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_Rtg_BO
1148: THEN
1149: Error_Handler.Add_Error_Token
1150: ( p_Message_Name => 'BOM_OP_EFFECTDATE_MISSING'
1151: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1152: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1153: , p_Token_Tbl => l_Token_Tbl
1154: );
1155: l_return_status := FND_API.G_RET_STS_ERROR;
1156: END IF ;
1157:
1158: END IF ;
1159:
1181: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1182: , p_Token_Tbl => l_Token_Tbl
1183: );
1184:
1185: l_return_status := FND_API.G_RET_STS_ERROR;
1186: ELSE Commented for bug 4666512 Also changed the condition to >= instead of <
1187: BOM_RTG_Globals.G_Init_Eff_Date_Op_Num_Flag := TRUE; -- Added for bug 2767019
1188: END IF;
1189: END IF ;
1205: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1206: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1207: , p_Token_Tbl => l_Token_Tbl
1208: );
1209: l_return_status := FND_API.G_RET_STS_ERROR ;
1210: l_token_tbl.DELETE(2) ;
1211:
1212: END IF ;
1213:
1215: -- Operation Type
1216: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
1217: THEN
1218: IF (p_com_operation_rec.operation_type IS NULL
1219: OR p_com_operation_rec.operation_type = FND_API.G_MISS_NUM )
1220: OR p_com_operation_rec.operation_type NOT IN (1, 2, 3)
1221: THEN
1222: -- Flow Routing
1223: IF p_com_operation_rec.operation_type <> FND_API.G_MISS_NUM
1219: OR p_com_operation_rec.operation_type = FND_API.G_MISS_NUM )
1220: OR p_com_operation_rec.operation_type NOT IN (1, 2, 3)
1221: THEN
1222: -- Flow Routing
1223: IF p_com_operation_rec.operation_type <> FND_API.G_MISS_NUM
1224: THEN
1225: l_token_tbl(2).token_name := 'OPERATION_TYPE';
1226: l_token_tbl(2).token_value := p_com_operation_rec.operation_type;
1227:
1237: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1238: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1239: , p_Token_Tbl => l_Token_Tbl
1240: );
1241: l_return_status := FND_API.G_RET_STS_ERROR ;
1242: l_token_tbl.DELETE(2) ;
1243:
1244: END IF ;
1245: ELSE
1244: END IF ;
1245: ELSE
1246: -- Non Flow Routing
1247: IF p_com_operation_rec.operation_type IS NOT NULL
1248: AND p_com_operation_rec.operation_type <> FND_API.G_MISS_NUM
1249: AND p_com_operation_rec.operation_type <> 1
1250: THEN
1251:
1252: IF p_com_operation_rec.operation_type <> FND_API.G_MISS_NUM
1248: AND p_com_operation_rec.operation_type <> FND_API.G_MISS_NUM
1249: AND p_com_operation_rec.operation_type <> 1
1250: THEN
1251:
1252: IF p_com_operation_rec.operation_type <> FND_API.G_MISS_NUM
1253: THEN
1254: l_token_tbl(2).token_name := 'OPERATION_TYPE';
1255: l_token_tbl(2).token_value := p_com_operation_rec.operation_type;
1256: END IF ;
1260: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1261: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1262: , p_Token_Tbl => l_Token_Tbl
1263: );
1264: l_return_status := FND_API.G_RET_STS_ERROR ;
1265: l_token_tbl.DELETE(2) ;
1266:
1267: END IF ;
1268: END IF ;
1280: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1281: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1282: , p_Token_Tbl => l_Token_Tbl
1283: );
1284: l_return_status := FND_API.G_RET_STS_ERROR ;
1285: END IF;
1286:
1287: IF p_com_operation_rec.new_operation_sequence_number IS NOT NULL
1288: AND p_com_operation_rec.new_operation_sequence_number <> FND_API.G_MISS_NUM
1284: l_return_status := FND_API.G_RET_STS_ERROR ;
1285: END IF;
1286:
1287: IF p_com_operation_rec.new_operation_sequence_number IS NOT NULL
1288: AND p_com_operation_rec.new_operation_sequence_number <> FND_API.G_MISS_NUM
1289: AND ( p_com_operation_rec.new_operation_sequence_number <= 0
1290: OR p_com_operation_rec.new_operation_sequence_number > 9999
1291: )
1292: THEN
1296: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1297: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1298: , p_Token_Tbl => l_Token_Tbl
1299: );
1300: l_return_status := FND_API.G_RET_STS_ERROR ;
1301: END IF ;
1302:
1303: /*
1304: -- Moved to BOMRVIDB.pls
1306: */
1307:
1308: -- Operation Lead Time Percent
1309: IF p_com_operation_rec.op_lead_time_percent IS NOT NULL
1310: AND p_com_operation_rec.op_lead_time_percent <> FND_API.G_MISS_NUM
1311: AND (p_com_operation_rec.op_lead_time_percent < 0
1312: OR p_com_operation_rec.op_lead_time_percent > 100 )
1313: THEN
1314: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1319: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1320: , p_Token_Tbl => l_Token_Tbl
1321: ) ;
1322: END IF ;
1323: l_return_status := FND_API.G_RET_STS_ERROR;
1324: END IF ;
1325:
1326:
1327: -- Minimum Transfer Quantity
1326:
1327: -- Minimum Transfer Quantity
1328: IF p_com_operation_rec.minimum_transfer_quantity IS NOT NULL
1329: AND p_com_operation_rec.minimum_transfer_quantity < 0
1330: AND p_com_operation_rec.minimum_transfer_quantity <> FND_API.G_MISS_NUM
1331: THEN
1332: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1333: THEN
1334: Error_Handler.Add_Error_Token
1337: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1338: , p_Token_Tbl => l_Token_Tbl
1339: ) ;
1340: END IF ;
1341: l_return_status := FND_API.G_RET_STS_ERROR;
1342: END IF ;
1343:
1344:
1345: -- Count Point Type
1344:
1345: -- Count Point Type
1346: IF p_com_operation_rec.count_point_type IS NOT NULL
1347: AND p_com_operation_rec.count_point_type NOT IN (1,2,3)
1348: AND p_com_operation_rec.count_point_type <> FND_API.G_MISS_NUM
1349: THEN
1350: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1351: THEN
1352: Error_Handler.Add_Error_Token
1355: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1356: , p_Token_Tbl => l_Token_Tbl
1357: ) ;
1358: END IF ;
1359: l_return_status := FND_API.G_RET_STS_ERROR;
1360: END IF ;
1361:
1362:
1363:
1363:
1364: -- Backflush Flag
1365: IF p_com_operation_rec.backflush_flag IS NOT NULL
1366: AND p_com_operation_rec.backflush_flag NOT IN (1,2)
1367: AND p_com_operation_rec.backflush_flag <> FND_API.G_MISS_NUM
1368: THEN
1369: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1370: THEN
1371: Error_Handler.Add_Error_Token
1374: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1375: , p_Token_Tbl => l_Token_Tbl
1376: ) ;
1377: END IF ;
1378: l_return_status := FND_API.G_RET_STS_ERROR;
1379: END IF ;
1380:
1381:
1382: -- Option Dependent Flag
1381:
1382: -- Option Dependent Flag
1383: IF p_com_operation_rec.option_dependent_flag IS NOT NULL
1384: AND p_com_operation_rec.option_dependent_flag NOT IN (1,2)
1385: AND p_com_operation_rec.option_dependent_flag <> FND_API.G_MISS_NUM
1386: THEN
1387: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1388: THEN
1389: Error_Handler.Add_Error_Token
1392: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1393: , p_Token_Tbl => l_Token_Tbl
1394: ) ;
1395: END IF ;
1396: l_return_status := FND_API.G_RET_STS_ERROR;
1397: END IF ;
1398:
1399:
1400: -- Reference Flag
1399:
1400: -- Reference Flag
1401: IF p_com_operation_rec.reference_flag IS NOT NULL
1402: AND p_com_operation_rec.reference_flag NOT IN (1,2)
1403: AND p_com_operation_rec.reference_flag <> FND_API.G_MISS_NUM
1404: THEN
1405: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1406: THEN
1407: Error_Handler.Add_Error_Token
1410: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1411: , p_Token_Tbl => l_Token_Tbl
1412: ) ;
1413: END IF ;
1414: l_return_status := FND_API.G_RET_STS_ERROR;
1415: END IF ;
1416:
1417:
1418: -- Include In Rollup
1417:
1418: -- Include In Rollup
1419: IF p_com_operation_rec.include_in_rollup IS NOT NULL
1420: AND p_com_operation_rec.include_in_rollup NOT IN (1,2)
1421: AND p_com_operation_rec.include_in_rollup <> FND_API.G_MISS_NUM
1422: THEN
1423: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1424: THEN
1425: Error_Handler.Add_Error_Token
1428: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1429: , p_Token_Tbl => l_Token_Tbl
1430: ) ;
1431: END IF ;
1432: l_return_status := FND_API.G_RET_STS_ERROR;
1433: END IF ;
1434:
1435:
1436: -- Op Yield Enabled Flag
1435:
1436: -- Op Yield Enabled Flag
1437: IF p_com_operation_rec.op_yield_enabled_flag IS NOT NULL
1438: AND p_com_operation_rec.op_yield_enabled_flag NOT IN (1,2)
1439: AND p_com_operation_rec.op_yield_enabled_flag <> FND_API.G_MISS_NUM
1440: THEN
1441: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1442: THEN
1443: Error_Handler.Add_Error_Token
1446: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1447: , p_Token_Tbl => l_Token_Tbl
1448: ) ;
1449: END IF ;
1450: l_return_status := FND_API.G_RET_STS_ERROR;
1451: END IF ;
1452:
1453:
1454: -- Yield
1454: -- Yield
1455: IF p_com_operation_rec.yield IS NOT NULL AND
1456: (p_com_operation_rec.yield <= 0
1457: OR p_com_operation_rec.yield > 1 )
1458: AND p_com_operation_rec.yield <> FND_API.G_MISS_NUM
1459: THEN
1460: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1461: THEN
1462: Error_Handler.Add_Error_Token
1465: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1466: , p_Token_Tbl => l_Token_Tbl
1467: ) ;
1468: END IF ;
1469: l_return_status := FND_API.G_RET_STS_ERROR;
1470: END IF ;
1471:
1472:
1473: -- Cumulative Yield
1473: -- Cumulative Yield
1474: IF p_com_operation_rec.cumulative_yield IS NOT NULL AND
1475: (p_com_operation_rec.cumulative_yield < 0
1476: OR p_com_operation_rec.cumulative_yield > 1 )
1477: AND p_com_operation_rec.cumulative_yield <> FND_API.G_MISS_NUM
1478: THEN
1479: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1480: THEN
1481: Error_Handler.Add_Error_Token
1484: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1485: , p_Token_Tbl => l_Token_Tbl
1486: ) ;
1487: END IF ;
1488: l_return_status := FND_API.G_RET_STS_ERROR;
1489: END IF ;
1490:
1491:
1492: -- Reverse Cumulative Yield
1492: -- Reverse Cumulative Yield
1493: IF p_com_operation_rec.reverse_cum_yield IS NOT NULL AND
1494: (p_com_operation_rec.reverse_cum_yield < 0
1495: OR p_com_operation_rec.reverse_cum_yield > 1 )
1496: AND p_com_operation_rec.reverse_cum_yield <> FND_API.G_MISS_NUM
1497: THEN
1498: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1499: THEN
1500: Error_Handler.Add_Error_Token
1503: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1504: , p_Token_Tbl => l_Token_Tbl
1505: ) ;
1506: END IF ;
1507: l_return_status := FND_API.G_RET_STS_ERROR;
1508: END IF ;
1509:
1510:
1511: -- Net Planning Percent
1511: -- Net Planning Percent
1512: IF p_com_operation_rec.net_planning_percent IS NOT NULL AND
1513: (p_com_operation_rec.net_planning_percent < 0
1514: OR p_com_operation_rec.net_planning_percent > 100 )
1515: AND p_com_operation_rec.net_planning_percent <> FND_API.G_MISS_NUM
1516: THEN
1517: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1518: THEN
1519: Error_Handler.Add_Error_Token
1522: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1523: , p_Token_Tbl => l_Token_Tbl
1524: ) ;
1525: END IF ;
1526: l_return_status := FND_API.G_RET_STS_ERROR;
1527: END IF ;
1528:
1529: -- For eAM enhancement
1530: -- Shutdown Type
1528:
1529: -- For eAM enhancement
1530: -- Shutdown Type
1531: IF p_com_operation_rec.shutdown_type IS NOT NULL
1532: AND p_com_operation_rec.shutdown_type <> FND_API.G_MISS_CHAR
1533: AND BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
1534: AND NOT Bom_Rtg_Eam_Util.CheckShutdownType
1535: (p_shutdown_type => p_com_operation_rec.shutdown_type )
1536: THEN
1542: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1543: , p_Token_Tbl => l_Token_Tbl
1544: ) ;
1545: END IF ;
1546: l_return_status := FND_API.G_RET_STS_ERROR;
1547: END IF ;
1548:
1549: -- BUG 5330942
1550: -- Validation to ensure that a pending routing header cannot be modified without an ECO
1552: Error_Handler.Write_Debug ('Checking if the Routing header is implemented . . .') ;
1553: END IF;
1554:
1555: IF BOM_RTG_GLOBALS.Get_Routing_Header_ECN(p_com_op_unexp_rec.Routing_Sequence_Id) IS NOT NULL
1556: AND (p_com_operation_rec.eco_name IS NULL OR p_com_operation_rec.eco_name = FND_API.G_MISS_CHAR)
1557: THEN
1558: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1559: THEN
1560: l_Token_Tbl(1).token_name := 'ALTERNATE';
1569: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1570: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1571: , p_Token_Tbl => l_Token_Tbl
1572: ) ;
1573: l_return_status := FND_API.G_RET_STS_ERROR;
1574: END IF ;
1575: END IF;
1576:
1577: -- Done validating attributes
1600: , x_mesg_token_tbl => l_mesg_token_tbl
1601: ) ;
1602:
1603: -- Return the status and message table.
1604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1605: x_mesg_token_tbl := l_mesg_token_tbl ;
1606:
1607:
1608: END Check_Attributes ;
1707: l_err_text VARCHAR(2000) ;
1708: l_token_tbl Error_Handler.Token_Tbl_Type;
1709:
1710: BEGIN
1711: x_return_status := FND_API.G_RET_STS_SUCCESS;
1712: l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
1713: l_Token_Tbl(1).token_value := p_com_operation_rec.operation_sequence_number ;
1714:
1715: /* Moved to Check_Required
1734: , x_mesg_token_tbl => l_mesg_token_tbl
1735: ) ;
1736:
1737: -- Return the status and message table.
1738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1739: x_mesg_token_tbl := l_mesg_token_tbl ;
1740:
1741: END Check_Conditionally_Required ;
1742:
1888: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1889:
1890: BEGIN
1891:
1892: l_return_status := FND_API.G_RET_STS_SUCCESS;
1893: x_return_status := FND_API.G_RET_STS_SUCCESS;
1894:
1895: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1896: ('Peforming the Operation Check NonOperated Attr . . .') ;
1889:
1890: BEGIN
1891:
1892: l_return_status := FND_API.G_RET_STS_SUCCESS;
1893: x_return_status := FND_API.G_RET_STS_SUCCESS;
1894:
1895: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1896: ('Peforming the Operation Check NonOperated Attr . . .') ;
1897: END IF ;
1910: -- Start Effective Date and Disable Date
1911: IF ( BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_FLOW_RTG
1912: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1913: AND((l_com_operation_rec.start_effective_date IS NOT NULL OR
1914: l_com_operation_rec.start_effective_date <> FND_API.G_MISS_DATE)
1915: OR
1916: (l_com_operation_rec.disable_date IS NOT NULL OR
1917: l_com_operation_rec.disable_date <> FND_API.G_MISS_DATE)
1918: OR
1913: AND((l_com_operation_rec.start_effective_date IS NOT NULL OR
1914: l_com_operation_rec.start_effective_date <> FND_API.G_MISS_DATE)
1915: OR
1916: (l_com_operation_rec.disable_date IS NOT NULL OR
1917: l_com_operation_rec.disable_date <> FND_API.G_MISS_DATE)
1918: OR
1919: (l_com_operation_rec.New_Start_Effective_Date IS NOT NULL OR
1920: l_com_operation_rec.New_Start_Effective_Date <> FND_API.G_MISS_DATE)
1921: )
1916: (l_com_operation_rec.disable_date IS NOT NULL OR
1917: l_com_operation_rec.disable_date <> FND_API.G_MISS_DATE)
1918: OR
1919: (l_com_operation_rec.New_Start_Effective_Date IS NOT NULL OR
1920: l_com_operation_rec.New_Start_Effective_Date <> FND_API.G_MISS_DATE)
1921: )
1922: THEN
1923:
1924: l_com_operation_rec.start_effective_date := '' ;
1941: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1942: )
1943: AND
1944: (l_com_operation_rec.process_seq_number IS NOT NULL OR
1945: l_com_operation_rec.process_seq_number <> FND_API.G_MISS_NUM)
1946: THEN
1947:
1948: l_com_operation_rec.process_seq_number := '' ;
1949: l_com_op_unexp_rec.Process_Op_Seq_Id := '' ;
1962: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1963: )
1964: AND
1965: (l_com_operation_rec.process_code IS NOT NULL OR
1966: l_com_operation_rec.process_code <> FND_API.G_MISS_CHAR)
1967: THEN
1968:
1969: l_com_operation_rec.process_code := '' ;
1970: l_com_op_unexp_rec.Process_Op_Seq_Id := '' ;
1984: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
1985: )
1986: AND
1987: (l_com_operation_rec.line_op_seq_number IS NOT NULL OR
1988: l_com_operation_rec.line_op_seq_number <> FND_API.G_MISS_NUM)
1989: THEN
1990:
1991: l_com_operation_rec.line_op_seq_number := '' ;
1992: l_com_op_unexp_rec.line_op_seq_Id := '' ;
2005: AND l_com_operation_rec.operation_type IN (l_PROCESS, l_LINE_OP))
2006: )
2007: AND
2008: ( l_com_operation_rec.line_op_code IS NOT NULL OR
2009: l_com_operation_rec.line_op_code <> FND_API.G_MISS_CHAR )
2010: THEN
2011:
2012: l_com_operation_rec.line_op_code := '' ;
2013: l_com_op_unexp_rec.line_op_seq_Id := '' ;
2025: -- User_Labor_Time
2026: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG AND
2027: ( l_com_operation_rec.user_labor_time <> 0 AND
2028: (l_com_operation_rec.user_labor_time IS NOT NULL OR
2029: l_com_operation_rec.user_labor_time <> FND_API.G_MISS_NUM ))
2030: THEN
2031:
2032: l_com_operation_rec.user_labor_time := '' ;
2033:
2043: -- User_Machine_Time
2044: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_FLOW_RTG AND
2045: ( l_com_operation_rec.user_machine_time <> 0 AND
2046: (l_com_operation_rec.user_machine_time IS NOT NULL OR
2047: l_com_operation_rec.user_machine_time <> FND_API.G_MISS_NUM ))
2048: THEN
2049:
2050: l_com_operation_rec.user_machine_time := '' ;
2051:
2069:
2070: -- Net_Planning_Percent
2071: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_STD_RTG AND
2072: ( l_com_operation_rec.net_planning_percent IS NOT NULL OR
2073: l_com_operation_rec.net_planning_percent <> FND_API.G_MISS_NUM )
2074: THEN
2075:
2076: l_com_operation_rec.net_planning_percent := '' ;
2077:
2092: -- Include_In_Rollup
2093: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag NOT IN (BOM_Rtg_Globals.G_LOT_RTG, BOM_Rtg_Globals.G_STD_RTG) AND
2094: /*Bug 6523550 even for standard routings the value shouldnt be defaulted to 1*/
2095: ( l_com_operation_rec.include_in_rollup IS NOT NULL OR
2096: l_com_operation_rec.include_in_rollup <> FND_API.G_MISS_NUM )
2097: AND l_com_operation_rec.include_in_rollup <> 1 -- Not default. Bug1744254
2098: THEN
2099:
2100: l_com_operation_rec.include_in_rollup := 1 ; -- Set default 1. Bug1744254
2110:
2111: -- Op_Yield_Enabled_Flag
2112: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag <> BOM_Rtg_Globals.G_LOT_RTG AND
2113: ( l_com_operation_rec.op_yield_enabled_flag IS NOT NULL OR
2114: l_com_operation_rec.op_yield_enabled_flag <> FND_API.G_MISS_NUM )
2115: AND l_com_operation_rec.op_yield_enabled_flag <> 1 -- Not default. Bug1744254
2116: THEN
2117:
2118: l_com_operation_rec.op_yield_enabled_flag := 1 ; -- Set default 1. Bug1744254
2142:
2143: -- Yield
2144: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_STD_RTG AND
2145: ( l_com_operation_rec.yield IS NOT NULL OR
2146: l_com_operation_rec.yield <> FND_API.G_MISS_NUM )
2147: THEN
2148: /*IF NVL(FND_PROFILE.VALUE('MRP_I2_P_CHECK_FOR_FP'), 'N') <> 'Y' -- BUG 4729535
2149: THEN
2150: l_com_operation_rec.yield := '' ;
2164:
2165: -- Cumulative_Yield
2166: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_STD_RTG AND
2167: ( l_com_operation_rec.cumulative_yield IS NOT NULL OR
2168: l_com_operation_rec.cumulative_yield <> FND_API.G_MISS_NUM )
2169: THEN
2170: NULL;
2171: /*IF NVL(FND_PROFILE.VALUE('MRP_I2_P_CHECK_FOR_FP'), 'N') <> 'Y' -- BUG 4729535
2172: THEN
2184:
2185: -- Reverse_CUM_Yield
2186: IF BOM_Rtg_Globals.Get_CFM_Rtg_Flag = BOM_Rtg_Globals.G_STD_RTG AND
2187: ( l_com_operation_rec.reverse_cum_yield IS NOT NULL OR
2188: l_com_operation_rec.reverse_cum_yield <> FND_API.G_MISS_NUM )
2189: THEN
2190:
2191: l_com_operation_rec.reverse_cum_yield := '' ;
2192:
2208: -- BACKFLUSH_FLAG and MINIMUM_TRANSFER_QUANTITY
2209: -- are not enterable in maintenance routings for eAM
2210:
2211: IF ( NVL(l_com_operation_rec.Minimum_Transfer_Quantity,0) <> 0 OR
2212: l_com_operation_rec.Minimum_Transfer_Quantity <> FND_API.G_MISS_NUM )
2213: OR ( NVL(l_com_operation_rec.Backflush_Flag,1) <> 1 OR
2214: l_com_operation_rec.Backflush_Flag <> FND_API.G_MISS_NUM )
2215: THEN
2216:
2210:
2211: IF ( NVL(l_com_operation_rec.Minimum_Transfer_Quantity,0) <> 0 OR
2212: l_com_operation_rec.Minimum_Transfer_Quantity <> FND_API.G_MISS_NUM )
2213: OR ( NVL(l_com_operation_rec.Backflush_Flag,1) <> 1 OR
2214: l_com_operation_rec.Backflush_Flag <> FND_API.G_MISS_NUM )
2215: THEN
2216:
2217: l_com_operation_rec.Minimum_Transfer_Quantity := 0 ;
2218: l_com_operation_rec.Backflush_Flag := 1 ;
2230: ELSE
2231:
2232: -- Shutdown Type is not operated in other routings
2233: IF ( l_com_operation_rec.shutdown_type IS NOT NULL OR
2234: l_com_operation_rec.shutdown_Type <> FND_API.G_MISS_CHAR )
2235: THEN
2236:
2237: l_com_operation_rec.shutdown_Type := '' ;
2238:
2248: END IF ;
2249: --- Added for long description project (Bug 2689249)
2250: -- Long description is not used by other routings
2251: IF ( l_com_operation_rec.long_description IS NOT NULL OR
2252: l_com_operation_rec.long_description <> FND_API.G_MISS_CHAR )
2253: THEN
2254:
2255: l_com_operation_rec.long_description := '' ;
2256: Error_Handler.Add_Error_Token
2292: , x_mesg_token_tbl => l_mesg_token_tbl
2293: ) ;
2294:
2295: -- Return the status and message table.
2296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2297: x_mesg_token_tbl := l_mesg_token_tbl ;
2298:
2299: -- Return operation exp and unexp record
2300: x_com_operation_rec := l_com_operation_rec ;
2380: WHERE NOT EXISTS (SELECT NULL
2381: FROM BOM_STANDARD_OPERATIONS bso
2382: , bom_operational_routings bor
2383: WHERE NVL(bso.operation_type,1 )
2384: = DECODE( p_op_type, FND_API.G_MISS_NUM, 1
2385: , NVL(p_op_type, 1))
2386: AND NVL(bso.line_id, FND_API.G_MISS_NUM)
2387: = NVL(bor.line_id, FND_API.G_MISS_NUM)
2388: AND bor.routing_sequence_id = p_rtg_seq_id
2382: , bom_operational_routings bor
2383: WHERE NVL(bso.operation_type,1 )
2384: = DECODE( p_op_type, FND_API.G_MISS_NUM, 1
2385: , NVL(p_op_type, 1))
2386: AND NVL(bso.line_id, FND_API.G_MISS_NUM)
2387: = NVL(bor.line_id, FND_API.G_MISS_NUM)
2388: AND bor.routing_sequence_id = p_rtg_seq_id
2389: AND bso.department_id = p_dept_id
2390: AND bso.organization_id = p_org_id
2383: WHERE NVL(bso.operation_type,1 )
2384: = DECODE( p_op_type, FND_API.G_MISS_NUM, 1
2385: , NVL(p_op_type, 1))
2386: AND NVL(bso.line_id, FND_API.G_MISS_NUM)
2387: = NVL(bor.line_id, FND_API.G_MISS_NUM)
2388: AND bor.routing_sequence_id = p_rtg_seq_id
2389: AND bso.department_id = p_dept_id
2390: AND bso.organization_id = p_org_id
2391: AND bso.standard_operation_id = p_std_op_id
2393: SELECT NULL
2394: FROM BOM_STANDARD_OPERATIONS bso
2395: , ENG_REVISED_ITEMS eri
2396: WHERE NVL(bso.operation_type, 1)
2397: = DECODE( p_op_type, FND_API.G_MISS_NUM, 1
2398: , NVL(p_op_type, 1 ) )
2399: -- AND NVL(bso.line_id, FND_API.G_MISS_NUM)
2400: -- = NVL(eri.line_id, FND_API.G_MISS_NUM)
2401: -- AND BOM_Rtg_Globals.Get_Routing_Sequence_Id IS NULL
2395: , ENG_REVISED_ITEMS eri
2396: WHERE NVL(bso.operation_type, 1)
2397: = DECODE( p_op_type, FND_API.G_MISS_NUM, 1
2398: , NVL(p_op_type, 1 ) )
2399: -- AND NVL(bso.line_id, FND_API.G_MISS_NUM)
2400: -- = NVL(eri.line_id, FND_API.G_MISS_NUM)
2401: -- AND BOM_Rtg_Globals.Get_Routing_Sequence_Id IS NULL
2402: AND NOT EXISTS -- Added for bug 3578057, to check if it is a new routing being created through the ECO
2403: (SELECT 1 FROM BOM_OPERATIONAL_ROUTINGS
2396: WHERE NVL(bso.operation_type, 1)
2397: = DECODE( p_op_type, FND_API.G_MISS_NUM, 1
2398: , NVL(p_op_type, 1 ) )
2399: -- AND NVL(bso.line_id, FND_API.G_MISS_NUM)
2400: -- = NVL(eri.line_id, FND_API.G_MISS_NUM)
2401: -- AND BOM_Rtg_Globals.Get_Routing_Sequence_Id IS NULL
2402: AND NOT EXISTS -- Added for bug 3578057, to check if it is a new routing being created through the ECO
2403: (SELECT 1 FROM BOM_OPERATIONAL_ROUTINGS
2404: WHERE routing_sequence_id = p_rtg_seq_id)
2416: -- Set the first token to be equal to the operation sequence number
2417: l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
2418: l_Token_Tbl(1).token_value := p_com_operation_rec.operation_sequence_number ;
2419:
2420: l_return_status := FND_API.G_RET_STS_SUCCESS;
2421:
2422: --
2423: -- Standard Operation is not updatable
2424: --
2425: IF ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_UPDATE
2426: OR ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2427: AND l_com_operation_rec.acd_type = l_ACD_CHANGE )
2428: )
2429: AND ( NVL(p_old_com_op_unexp_rec.standard_operation_id, FND_API.G_MISS_NUM ) <>
2430: NVL(l_com_op_unexp_rec.standard_operation_id, FND_API.G_MISS_NUM )
2431: )
2432: THEN
2433: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2426: OR ( l_com_operation_rec.Transaction_Type = BOM_Rtg_Globals.G_OPR_CREATE
2427: AND l_com_operation_rec.acd_type = l_ACD_CHANGE )
2428: )
2429: AND ( NVL(p_old_com_op_unexp_rec.standard_operation_id, FND_API.G_MISS_NUM ) <>
2430: NVL(l_com_op_unexp_rec.standard_operation_id, FND_API.G_MISS_NUM )
2431: )
2432: THEN
2433: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2434: THEN
2439: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2440: , p_Token_Tbl => l_Token_Tbl
2441: ) ;
2442: END IF ;
2443: l_return_status := FND_API.G_RET_STS_ERROR ;
2444:
2445: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2446: ('Std operation is not updatable. Return Status is '|| l_return_status ) ;
2447: END IF ;
2472: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2473: , p_Token_Tbl => l_Token_Tbl
2474: ) ;
2475: END IF ;
2476: l_return_status := FND_API.G_RET_STS_ERROR ;
2477: END IF;
2478:
2479: IF (p_old_com_operation_rec.Count_Point_Type <> l_com_operation_rec.Count_Point_Type)
2480: THEN
2487: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2488: , p_Token_Tbl => l_Token_Tbl
2489: ) ;
2490: END IF ;
2491: l_return_status := FND_API.G_RET_STS_ERROR ;
2492: END IF;
2493:
2494: IF (p_old_com_operation_rec.Backflush_Flag <> l_com_operation_rec.Backflush_Flag)
2495: THEN
2502: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2503: , p_Token_Tbl => l_Token_Tbl
2504: ) ;
2505: END IF ;
2506: l_return_status := FND_API.G_RET_STS_ERROR ;
2507: END IF;
2508:
2509: IF (p_old_com_operation_rec.Option_Dependent_Flag <> l_com_operation_rec.Option_Dependent_Flag)
2510: THEN
2517: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2518: , p_Token_Tbl => l_Token_Tbl
2519: ) ;
2520: END IF ;
2521: l_return_status := FND_API.G_RET_STS_ERROR ;
2522: END IF;
2523:
2524: IF (nvl(p_old_com_operation_rec.Operation_Description,'None') <>
2525: nvl(l_com_operation_rec.Operation_Description,'None'))
2533: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2534: , p_Token_Tbl => l_Token_Tbl
2535: ) ;
2536: END IF ;
2537: l_return_status := FND_API.G_RET_STS_ERROR ;
2538: END IF;
2539:
2540: IF (nvl(p_old_com_operation_rec.Long_Description,'NONE') <>
2541: nvl(l_com_operation_rec.Long_Description,'NONE'))
2549: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2550: , p_Token_Tbl => l_Token_Tbl
2551: ) ;
2552: END IF ;
2553: l_return_status := FND_API.G_RET_STS_ERROR ;
2554: END IF;
2555:
2556: RAISE EXIT_CHECK_REF_STD_OP ;
2557:
2563: IF ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
2564: OR l_com_operation_rec.acd_type = l_ACD_CHANGE)
2565: AND (( NVL(p_old_com_op_unexp_rec.standard_operation_id, -1) <>
2566: NVL(l_com_op_unexp_rec.standard_operation_id, -1)
2567: AND(p_old_com_op_unexp_rec.standard_operation_id <> FND_API.G_MISS_NUM
2568: OR p_old_com_op_unexp_rec.standard_operation_id IS NULL)
2569: ) OR
2570: ( p_old_com_op_unexp_rec.standard_operation_id = FND_API.G_MISS_NUM
2571: AND ( l_com_op_unexp_rec.standard_operation_id IS NOT NULL
2566: NVL(l_com_op_unexp_rec.standard_operation_id, -1)
2567: AND(p_old_com_op_unexp_rec.standard_operation_id <> FND_API.G_MISS_NUM
2568: OR p_old_com_op_unexp_rec.standard_operation_id IS NULL)
2569: ) OR
2570: ( p_old_com_op_unexp_rec.standard_operation_id = FND_API.G_MISS_NUM
2571: AND ( l_com_op_unexp_rec.standard_operation_id IS NOT NULL
2572: AND l_com_op_unexp_rec.standard_operation_id <> FND_API.G_MISS_NUM )
2573: ))
2574: THEN
2568: OR p_old_com_op_unexp_rec.standard_operation_id IS NULL)
2569: ) OR
2570: ( p_old_com_op_unexp_rec.standard_operation_id = FND_API.G_MISS_NUM
2571: AND ( l_com_op_unexp_rec.standard_operation_id IS NOT NULL
2572: AND l_com_op_unexp_rec.standard_operation_id <> FND_API.G_MISS_NUM )
2573: ))
2574: THEN
2575:
2576: --
2589: , p_Token_Tbl => l_Token_Tbl
2590: ) ;
2591: END IF ;
2592:
2593: l_return_status := FND_API.G_RET_STS_ERROR ;
2594: l_copy_std_op := FALSE ;
2595: END LOOP ;
2596:
2597:
2609: , p_Token_Tbl => l_Token_Tbl
2610: ) ;
2611: END IF ;
2612:
2613: l_return_status := FND_API.G_RET_STS_ERROR ;
2614: l_copy_std_op := FALSE ;
2615: END LOOP ;
2616: END IF ;
2617:
2644: , p_Token_Tbl => l_Token_Tbl
2645: ) ;
2646: END IF ;
2647:
2648: l_return_status := FND_API.G_RET_STS_ERROR ;
2649:
2650: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2651: ('Std operation is invalid. Return Status is '|| l_return_status ) ;
2652: END IF ;
2727: , x_mesg_token_tbl => l_mesg_token_tbl
2728: ) ;
2729:
2730: -- Return the status and message table.
2731: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2732: x_mesg_token_tbl := l_mesg_token_tbl ;
2733:
2734: END Check_Ref_Std_Operation ;
2735:
3150: --
3151:
3152: l_com_operation_rec := p_com_operation_rec ;
3153: l_com_op_unexp_rec := p_com_op_unexp_rec ;
3154: l_return_status := FND_API.G_RET_STS_SUCCESS ;
3155:
3156: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3157: ('Performing Operation Check Entitity Validation . . .') ;
3158: END IF ;
3215: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3216: , p_token_tbl => l_token_tbl
3217: );
3218:
3219: l_return_status := FND_API.G_RET_STS_ERROR;
3220: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3221: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
3222: END IF ;
3223:
3235: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3236: , p_token_tbl => l_token_tbl
3237: );
3238:
3239: l_return_status := FND_API.G_RET_STS_ERROR;
3240: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3241: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
3242: END IF ;
3243:
3255: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3256: , p_token_tbl => l_token_tbl
3257: );
3258:
3259: l_return_status := FND_API.G_RET_STS_ERROR;
3260: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3261: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
3262: END IF ;
3263:
3309: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3310: , p_Token_Tbl => l_Token_Tbl
3311: );
3312: END IF;
3313: l_return_status := FND_API.G_RET_STS_ERROR;
3314: END LOOP ;
3315:
3316: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3317: Error_Handler.Write_Debug('After checking old operation. Return status is '|| l_return_status);
3351:
3352: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3353: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
3354: END IF ;
3355: l_return_status := FND_API.G_RET_STS_ERROR ;
3356: END IF ;
3357: END IF ;
3358:
3359: --
3380: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3381: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3382: , p_token_tbl => l_token_tbl
3383: );
3384: l_return_status := FND_API.G_RET_STS_ERROR;
3385:
3386: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3387: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
3388: END IF ;
3408: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3409: , p_token_tbl => l_token_tbl
3410: ) ;
3411: END IF ;
3412: l_return_status := FND_API.G_RET_STS_ERROR ;
3413: END IF ;
3414:
3415: --
3416: -- For UPDATE, ACD Type not updateable
3425: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3426: , p_token_tbl => l_token_tbl
3427: ) ;
3428: END IF ;
3429: l_return_status := FND_API.G_RET_STS_ERROR ;
3430: END IF ;
3431:
3432: --
3433: -- For UPDATE, Old Operatin Number not updateable
3443: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3444: , p_token_tbl => l_token_tbl
3445: ) ;
3446: END IF ;
3447: l_return_status := FND_API.G_RET_STS_ERROR ;
3448: END IF ;
3449:
3450: --
3451: -- For UPDATE, Old Effectivity Date not updateable
3461: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3462: , p_token_tbl => l_token_tbl
3463: ) ;
3464: END IF ;
3465: l_return_status := FND_API.G_RET_STS_ERROR ;
3466: END IF ;
3467: END IF ; -- Validation for Update Only
3468:
3469: --
3492: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3493: , p_Token_Tbl => l_Token_Tbl
3494: ) ;
3495: END IF ;
3496: l_return_status := FND_API.G_RET_STS_ERROR;
3497:
3498: END IF ;
3499: END IF ; -- For Cancel
3500:
3520: --
3521: -- Added condition to check start_eff_date <> new_start_eff_date for bug 4666512
3522: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO
3523: AND l_com_operation_rec.new_start_effective_date IS NOT NULL
3524: AND l_com_operation_rec.new_start_effective_date <> FND_API.G_MISS_DATE
3525: AND l_com_operation_rec.new_start_effective_date <>
3526: l_com_operation_rec.start_effective_date
3527: AND ( l_com_operation_rec.start_effective_date < sysdate
3528: OR l_com_operation_rec.new_start_effective_date < sysdate
3540: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3541: , p_Token_Tbl => l_Token_Tbl
3542: ) ;
3543: END IF ;
3544: l_return_status := FND_API.G_RET_STS_ERROR;
3545: END IF ;
3546:
3547:
3548: --
3572: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3573: , p_Token_Tbl => l_Token_Tbl
3574: ) ;
3575: END IF ;
3576: l_return_status := FND_API.G_RET_STS_ERROR;
3577:
3578: ELSIF p_old_com_op_unexp_rec.department_id <> l_com_op_unexp_rec.department_id
3579: AND BOM_Rtg_Globals.Get_Eam_Item_Type = BOM_Rtg_Globals.G_ASSET_ACTIVITY
3580: AND NOT Bom_Rtg_Eam_Util.Check_UpdateDept
3592: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3593: , p_Token_Tbl => l_Token_Tbl
3594: ) ;
3595: END IF ;
3596: l_return_status := FND_API.G_RET_STS_ERROR;
3597:
3598: END IF ;
3599:
3600: --
3616: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3617: , p_Token_Tbl => l_Token_Tbl
3618: ) ;
3619: END IF ;
3620: l_return_status := FND_API.G_RET_STS_ERROR;
3621: END IF ;
3622: END IF ; -- Transation: UPDATE
3623:
3624: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3661: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3662: , p_Token_Tbl => l_Token_Tbl
3663: ) ;
3664: END IF ;
3665: l_return_status := FND_API.G_RET_STS_ERROR ;
3666:
3667: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3668: ('Reference Flag Validation, If Std Op is null, It must be No . . . ' || l_return_status) ;
3669: END IF ;
3686: , x_return_status => l_temp_return_status
3687: , x_mesg_token_tbl => l_temp_mesg_token_tbl
3688: ) ;
3689:
3690: IF l_temp_return_status = FND_API.G_RET_STS_ERROR
3691: THEN
3692: l_mesg_token_tbl := l_temp_mesg_token_tbl ;
3693: l_return_status := FND_API.G_RET_STS_ERROR ;
3694: ELSIF l_temp_mesg_token_tbl.COUNT > 0 -- if warnings are logged
3689:
3690: IF l_temp_return_status = FND_API.G_RET_STS_ERROR
3691: THEN
3692: l_mesg_token_tbl := l_temp_mesg_token_tbl ;
3693: l_return_status := FND_API.G_RET_STS_ERROR ;
3694: ELSIF l_temp_mesg_token_tbl.COUNT > 0 -- if warnings are logged
3695: THEN
3696: l_mesg_token_tbl := l_temp_mesg_token_tbl ;
3697: END IF ;
3714: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3715: , p_token_tbl => l_token_tbl
3716: ) ;
3717:
3718: l_return_status := FND_API.G_RET_STS_ERROR;
3719:
3720:
3721: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3722: ('In Flow Routing Only Events(Operation Type 1) have parents. . . . ' || l_return_status) ;
3743: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3744: , p_Token_Tbl => l_Token_Tbl
3745: ) ;
3746: END IF ;
3747: l_return_status := FND_API.G_RET_STS_ERROR;
3748:
3749: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3750: ('Effective_Date must be past than or equal to Disable_Date. . . . ' || l_return_status) ;
3751: END IF ;
3771: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3772: , p_Token_Tbl => l_Token_Tbl
3773: ) ;
3774: END IF ;
3775: l_return_status := FND_API.G_RET_STS_ERROR;
3776:
3777: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3778: (' Backfluch Flag Validation. If Count Point Type : 3, Backflush Flag must be 1:Yes . . . '
3779: || l_return_status) ;
3805: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3806: , p_Token_Tbl => l_Token_Tbl
3807: ) ;
3808: END IF ;
3809: l_return_status := FND_API.G_RET_STS_ERROR;
3810:
3811: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3812: ('If Item : BOM Item Type is Std, Option Dependent Flag must be 2 - No . . .'
3813: || l_return_status) ;
3843: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3844: , p_Token_Tbl => l_Token_Tbl
3845: ) ;
3846: END IF ;
3847: l_return_status := FND_API.G_RET_STS_ERROR ;
3848: END LOOP ;
3849: end if;
3850:
3851: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3875: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3876: , p_Token_Tbl => l_Token_Tbl
3877: ) ;
3878: END IF ;
3879: l_return_status := FND_API.G_RET_STS_ERROR ;
3880: END LOOP ;
3881:
3882: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3883: ('Check if process operation does not have resources. . . ' || l_return_status) ;
3905: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3906: , p_Token_Tbl => l_Token_Tbl
3907: ) ;
3908: END IF ;
3909: l_return_status := FND_API.G_RET_STS_ERROR ;
3910: END LOOP ;
3911:
3912: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3913: ('Check if line operation does not have resources. . . ' || l_return_status) ;
3941: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3942: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3943: , p_Token_Tbl => l_Token_Tbl
3944: ) ;
3945: l_return_status := FND_API.G_RET_STS_ERROR ;
3946:
3947: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3948: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
3949: END LOOP ;
3999: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4000: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4001: , p_Token_Tbl => l_Token_Tbl
4002: ) ;
4003: l_return_status := FND_API.G_RET_STS_ERROR ;
4004:
4005: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4006: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
4007: END LOOP ;
4059: , p_Token_Tbl => l_Token_Tbl
4060: , p_message_type => 'W'
4061: ) ;
4062:
4063: -- l_return_status := FND_API.G_RET_STS_ERROR ;
4064:
4065: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4066: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
4067: END LOOP ;
4110: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_RTG_BO AND
4111: p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_DELETE
4112: THEN
4113: IF p_com_operation_rec.Delete_Group_Name IS NULL OR
4114: p_com_operation_rec.Delete_Group_Name = FND_API.G_MISS_CHAR
4115: THEN
4116:
4117: Error_Handler.Add_Error_Token
4118: ( p_message_name => 'BOM_DG_NAME_MISSING'
4118: ( p_message_name => 'BOM_DG_NAME_MISSING'
4119: , p_mesg_token_tbl => l_mesg_token_tbl
4120: , x_mesg_token_tbl => l_mesg_token_tbl
4121: );
4122: l_return_status := FND_API.G_RET_STS_ERROR;
4123: END IF;
4124: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4125: ('Check if Delete Group is missing . . . ' || l_return_status) ;
4126: END IF ;
4145: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4146: , p_message_name => 'BOM_OP_SSOS'
4147: , p_token_tbl => l_token_tbl
4148: );
4149: l_return_status := FND_API.G_RET_STS_ERROR;
4150: END IF;
4151: ELSIF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE THEN
4152: IF l_com_operation_rec.operation_sequence_number = get_ssos_rec.serialization_start_op AND
4153: l_com_operation_rec.new_operation_sequence_number <> l_com_operation_rec.operation_sequence_number THEN
4159: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4160: , p_message_name => 'BOM_OP_SSOS'
4161: , p_token_tbl => l_token_tbl
4162: );
4163: l_return_status := FND_API.G_RET_STS_ERROR;
4164: END IF;
4165: END IF;
4166: END LOOP;
4167: END IF;
4231: , x_mesg_token_tbl => l_mesg_token_tbl
4232: ) ;
4233:
4234: -- Return the status and message table.
4235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4236: x_mesg_token_tbl := l_mesg_token_tbl ;
4237: END Check_Entity ;
4238:
4239:
4287: AND operation_seq_num = p_operation_seq_num
4288: AND acd_type = 3;
4289:
4290: BEGIN
4291: l_return_status := FND_API.G_RET_STS_SUCCESS;
4292:
4293: /* The code has been moved to ENGLRITB.pls because of ODF dependany
4294: unnecessarily created.
4295: Commenting the following code so that we can reuse in release 12 */
4348: l_token_tbl(3).token_value := p_operation_seq_num;
4349:
4350: END IF;
4351:
4352: l_return_status := FND_API.G_RET_STS_ERROR;
4353:
4354: Error_Handler.Add_Error_Token
4355: ( p_Message_Name => l_error_name
4356: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl