350: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
351: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
352: , x_old_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Operation_Rec_Type
353: , x_old_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
354: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
355: , x_return_status IN OUT NOCOPY VARCHAR2
356: )
357: IS
358: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
407: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
408: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
409: , x_old_rev_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Rec_Type
410: , x_old_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
411: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
412: , x_return_status IN OUT NOCOPY VARCHAR2
413: )
414: IS
415: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
470: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
471: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
472: , x_old_com_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Operation_Rec_Type
473: , x_old_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
474: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
475: , x_return_status IN OUT NOCOPY VARCHAR2
476: )
477: IS
478: l_token_tbl Error_Handler.Token_Tbl_Type;
474: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
475: , x_return_status IN OUT NOCOPY VARCHAR2
476: )
477: IS
478: l_token_tbl Error_Handler.Token_Tbl_Type;
479: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
480: l_return_status VARCHAR2(1);
481:
482: BEGIN
475: , x_return_status IN OUT NOCOPY VARCHAR2
476: )
477: IS
478: l_token_tbl Error_Handler.Token_Tbl_Type;
479: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
480: l_return_status VARCHAR2(1);
481:
482: BEGIN
483:
500:
501: IF l_return_status = BOM_Rtg_Globals.G_RECORD_FOUND AND
502: p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE
503: THEN
504: Error_Handler.Add_Error_Token
505: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
506: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
507: , p_message_name => 'BOM_OP_ALREADY_EXISTS'
508: , p_token_tbl => l_token_tbl
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)
515: THEN
516: Error_Handler.Add_Error_Token
517: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
518: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
519: , p_message_name => 'BOM_OP_DOESNOT_EXIST'
520: , p_token_tbl => l_token_tbl
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
529: , p_message_name => NULL
530: , p_message_text => 'Unexpected error while existence verification of '
557: , p_operation_sequence_number IN NUMBER
558: , p_effectivity_date IN DATE
559: , p_operation_type IN NUMBER
560: , p_revised_item_sequence_id IN NUMBER
561: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
562: , x_return_status IN OUT NOCOPY VARCHAR2 )
563:
564: IS
565:
578: AND routing_sequence_id = p_routing_sequence_id
579: ;
580:
581: l_return_status VARCHAR2(1);
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;
615: l_err_text := G_PKG_NAME || ' Validation (Check Lineage) '
616: || substrb(SQLERRM,1,200);
617: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
618:
619: Error_Handler.Add_Error_Token
620: ( p_message_name => NULL
621: , p_message_text => l_err_text
622: , p_mesg_token_tbl => l_mesg_token_tbl
623: , x_mesg_token_tbl => l_mesg_token_tbl
641: *********************************************************************/
642:
643: PROCEDURE Check_CommonRtg
644: ( p_routing_sequence_id IN NUMBER
645: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
646: , x_return_status IN OUT NOCOPY VARCHAR2
647: )
648: IS
649:
653: WHERE common_routing_sequence_id <> routing_sequence_id
654: AND routing_sequence_id = p_routing_sequence_id ;
655:
656:
657: l_Token_Tbl Error_Handler.Token_Tbl_Type ;
658: l_return_status VARCHAR2(1) ;
659: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
660: l_err_text VARCHAR(2000) ;
661:
655:
656:
657: l_Token_Tbl Error_Handler.Token_Tbl_Type ;
658: l_return_status VARCHAR2(1) ;
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;
676: l_err_text := G_PKG_NAME || ' Validation (Check CommonRouting) '
677: || substrb(SQLERRM,1,200);
678: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
679:
680: Error_Handler.Add_Error_Token
681: ( p_message_name => NULL
682: , p_message_text => l_err_text
683: , p_mesg_token_tbl => l_mesg_token_tbl
684: , x_mesg_token_tbl => l_mesg_token_tbl
702: *********************************************************************/
703: PROCEDURE Check_Required
704: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
705: , x_return_status IN OUT NOCOPY VARCHAR2
706: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
707: )
708:
709: IS
710: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
740: *********************************************************************/
741: PROCEDURE Check_Required
742: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
743: , x_return_status IN OUT NOCOPY VARCHAR2
744: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
745: )
746:
747: IS
748: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
780: ********************************************************************/
781: PROCEDURE Check_Required
782: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
783: , x_return_status IN OUT NOCOPY VARCHAR2
784: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
785: )
786: IS
787:
788: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
784: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
785: )
786: IS
787:
788: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
789: l_err_text VARCHAR(2000) ;
790: l_Token_Tbl Error_Handler.Token_Tbl_Type;
791:
792: BEGIN
786: IS
787:
788: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
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';
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
805: ( p_message_name => 'BOM_OP_ACD_TYPE_MISSING'
806: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
807: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
808: , p_Token_Tbl => l_Token_Tbl
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'
824: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
825: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
826: , p_Token_Tbl => l_Token_Tbl
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'
845: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
846: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
847: , p_Token_Tbl => l_Token_Tbl
862: l_err_text := G_PKG_NAME || ' Validation (Check Required) '
863: || substrb(SQLERRM,1,200);
864: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
865:
866: Error_Handler.Add_Error_Token
867: ( p_message_name => NULL
868: , p_message_text => l_err_text
869: , p_mesg_token_tbl => l_mesg_token_tbl
870: , x_mesg_token_tbl => l_mesg_token_tbl
891: ********************************************************************/
892: PROCEDURE Check_Attributes
893: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
894: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
895: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
896: , x_return_status IN OUT NOCOPY VARCHAR2
897: )
898: IS
899: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
933: ********************************************************************/
934: PROCEDURE Check_Attributes
935: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
936: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
937: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
938: , x_return_status IN OUT NOCOPY VARCHAR2
939: )
940: IS
941: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
980: *********************************************************************/
981: PROCEDURE Check_Attributes
982: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
983: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
984: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
985: , x_return_status IN OUT NOCOPY VARCHAR2
986: )
987: IS
988:
987: IS
988:
989: l_return_status VARCHAR2(1);
990: l_err_text VARCHAR2(2000) ;
991: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
992: l_Token_Tbl Error_Handler.Token_Tbl_Type;
993:
994: BEGIN
995:
988:
989: l_return_status VARCHAR2(1);
990: l_err_text VARCHAR2(2000) ;
991: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
992: l_Token_Tbl Error_Handler.Token_Tbl_Type;
993:
994: BEGIN
995:
996: l_return_status := FND_API.G_RET_STS_SUCCESS;
1008: IF p_com_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_UPDATE
1009: THEN
1010:
1011:
1012: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1013: ('Operation Attr Validation: Missing Value. . . ' || l_return_status) ;
1014: END IF;
1015:
1016: -- Operation Type
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
1022: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1023: , p_Token_Tbl => l_Token_Tbl
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
1035: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1036: , p_Token_Tbl => l_Token_Tbl
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
1048: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1049: , p_Token_Tbl => l_Token_Tbl
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
1061: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1062: , p_Token_Tbl => l_Token_Tbl
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
1073: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1074: , p_Token_Tbl => l_Token_Tbl
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
1085: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1086: , p_Token_Tbl => l_Token_Tbl
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
1098: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1099: , p_Token_Tbl => l_Token_Tbl
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
1111: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1112: , p_Token_Tbl => l_Token_Tbl
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
1125: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1126: , p_Token_Tbl => l_Token_Tbl
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
1139: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1140: , p_Token_Tbl => l_Token_Tbl
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
1160: --
1161: -- Check if the user is trying to create/update a record with
1162: -- invalid value.
1163: --
1164: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1165: ('Operation Attr Validation: Invalid Value. . . ' || l_return_status) ;
1166: END IF;
1167:
1168: -- Start Effective Date
1174: AND nvl(Bom_Globals.get_caller_type(),'') <> 'MIGRATION' -- Bug 2871039
1175: AND BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_Rtg_BO
1176: THEN
1177: IF TRUNC(p_com_operation_rec.start_effective_date) >= TRUNC(SYSDATE) THEN
1178: /*Error_Handler.Add_Error_Token
1179: ( p_Message_Name => 'BOM_OP_EFFECTIVE_DATE_PAST'
1180: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1181: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1182: , p_Token_Tbl => l_Token_Tbl
1199:
1200: l_token_tbl(2).token_name := 'ACD_TYPE';
1201: l_token_tbl(2).token_value := p_com_operation_rec.acd_type;
1202:
1203: Error_Handler.Add_Error_Token
1204: ( p_Message_Name => 'BOM_OP_ACD_TYPE_INVALID'
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
1231: l_token_tbl(2).token_value := '';
1232:
1233: END IF ;
1234:
1235: Error_Handler.Add_Error_Token
1236: ( p_Message_Name => 'BOM_FLM_OP_OPTYPE_INVALID'
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
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 ;
1257:
1258: Error_Handler.Add_Error_Token
1259: ( p_Message_Name => 'BOM_STD_OP_OPTYPE_INVALID'
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
1274: OR p_com_operation_rec.operation_sequence_number > 9999
1275: )
1276: THEN
1277:
1278: Error_Handler.Add_Error_Token
1279: ( p_Message_Name => 'BOM_OP_SEQNUM_LESSTHAN_ZERO'
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
1290: OR p_com_operation_rec.new_operation_sequence_number > 9999
1291: )
1292: THEN
1293:
1294: Error_Handler.Add_Error_Token
1295: ( p_Message_Name => 'BOM_OP_SEQNUM_LESSTHAN_ZERO'
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
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)
1315: THEN
1316: Error_Handler.Add_Error_Token
1317: ( p_Message_Name => 'BOM_OP_LT_PERCENT_INVALID'
1318: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1319: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1320: , p_Token_Tbl => l_Token_Tbl
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
1335: ( p_Message_Name => 'BOM_OP_MINI_TRANS_QTY_INVALID'
1336: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1337: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1338: , p_Token_Tbl => l_Token_Tbl
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
1353: ( p_Message_Name => 'BOM_OP_CNTPOINT_TYPE_INVALID'
1354: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1355: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1356: , p_Token_Tbl => l_Token_Tbl
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
1372: ( p_Message_Name => 'BOM_OP_BKFLUSH_FLAG_INVALID'
1373: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1374: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1375: , p_Token_Tbl => l_Token_Tbl
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
1390: ( p_Message_Name => 'BOM_OP_DPTFLAG_INVALID'
1391: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1392: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1393: , p_Token_Tbl => l_Token_Tbl
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
1408: ( p_Message_Name => 'BOM_OP_REFERENCE_INVALID'
1409: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1410: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1411: , p_Token_Tbl => l_Token_Tbl
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
1426: ( p_Message_Name => 'BOM_OP_ICDROLLUP_INVALID'
1427: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1428: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1429: , p_Token_Tbl => l_Token_Tbl
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
1444: ( p_Message_Name => 'BOM_OP_YILEDENABLED_INVALID'
1445: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1446: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1447: , p_Token_Tbl => l_Token_Tbl
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
1463: ( p_Message_Name => 'BOM_OP_YIELD_INVALID'
1464: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1465: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1466: , p_Token_Tbl => l_Token_Tbl
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
1482: ( p_Message_Name => 'BOM_OP_CUM_YIELD_INVALID'
1483: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1484: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1485: , p_Token_Tbl => l_Token_Tbl
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
1501: ( p_Message_Name => 'BOM_OP_REVCUM_YIELD_INVALID'
1502: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1503: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1504: , p_Token_Tbl => l_Token_Tbl
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
1520: ( p_Message_Name => 'BOM_FLM_OP_NETPLNPCT_INVALID'
1521: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1522: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1523: , p_Token_Tbl => l_Token_Tbl
1535: (p_shutdown_type => p_com_operation_rec.shutdown_type )
1536: THEN
1537: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1538: THEN
1539: Error_Handler.Add_Error_Token
1540: ( p_Message_Name => 'BOM_EAM_SHUTDOWN_TYPE_INVALID'
1541: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1542: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1543: , p_Token_Tbl => l_Token_Tbl
1548:
1549: -- BUG 5330942
1550: -- Validation to ensure that a pending routing header cannot be modified without an ECO
1551: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN
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)
1563: l_Token_Tbl(2).token_value := p_com_operation_rec.Revised_Item_Name;
1564: l_Token_Tbl(3).token_name := 'CHANGE_NOTICE';
1565: l_Token_Tbl(3).token_value := BOM_RTG_GLOBALS.Get_Routing_Header_ECN(p_com_op_unexp_rec.Routing_Sequence_Id);
1566:
1567: Error_Handler.Add_Error_Token
1568: ( p_Message_Name => 'BOM_RTG_HEADER_UNIMPLEMENTED'
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
1574: END IF ;
1575: END IF;
1576:
1577: -- Done validating attributes
1578: IF Bom_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1579: ('Operation Attr Validation completed with return_status: ' || l_return_status) ;
1580: END IF;
1581:
1582: x_return_status := l_return_status;
1583: x_mesg_token_tbl := l_Mesg_Token_Tbl;
1584:
1585: EXCEPTION
1586: WHEN OTHERS THEN
1587: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1588: ('Some unknown error in Attribute Validation . . .' || SQLERRM );
1589: END IF ;
1590:
1591:
1592: l_err_text := G_PKG_NAME || ' Validation (Attr. Validation) '
1593: || substrb(SQLERRM,1,200);
1594: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
1595:
1596: Error_Handler.Add_Error_Token
1597: ( p_message_name => NULL
1598: , p_message_text => l_err_text
1599: , p_mesg_token_tbl => l_mesg_token_tbl
1600: , x_mesg_token_tbl => l_mesg_token_tbl
1620: PROCEDURE Check_Conditionally_Required
1621: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
1622: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1623: , x_return_status IN OUT NOCOPY VARCHAR2
1624: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1625: )
1626:
1627: IS
1628: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1659: PROCEDURE Check_Conditionally_Required
1660: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
1661: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1662: , x_return_status IN OUT NOCOPY VARCHAR2
1663: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1664: )
1665:
1666: IS
1667: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1698: PROCEDURE Check_Conditionally_Required
1699: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
1700: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1701: , x_return_status IN OUT NOCOPY VARCHAR2
1702: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1703: )
1704: IS
1705:
1706: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1702: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1703: )
1704: IS
1705:
1706: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1707: l_err_text VARCHAR(2000) ;
1708: l_token_tbl Error_Handler.Token_Tbl_Type;
1709:
1710: BEGIN
1704: IS
1705:
1706: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
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';
1726: l_err_text := G_PKG_NAME || ' Validation (Check Conditionally Required) '
1727: || substrb(SQLERRM,1,200);
1728: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
1729:
1730: Error_Handler.Add_Error_Token
1731: ( p_message_name => NULL
1732: , p_message_text => l_err_text
1733: , p_mesg_token_tbl => l_mesg_token_tbl
1734: , x_mesg_token_tbl => l_mesg_token_tbl
1759: ( p_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
1760: , p_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1761: , x_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Operation_Rec_Type
1762: , x_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
1763: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1764: , x_return_status IN OUT NOCOPY VARCHAR2
1765: )
1766: IS
1767: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1816: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
1817: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1818: , x_rev_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Rec_Type
1819: , x_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
1820: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1821: , x_return_status IN OUT NOCOPY VARCHAR2
1822: )
1823: IS
1824: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1873: ( p_com_operation_rec IN Bom_Rtg_Pub.Com_Operation_Rec_Type
1874: , p_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1875: , x_com_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Operation_Rec_Type
1876: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
1877: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1878: , x_return_status IN OUT NOCOPY VARCHAR2
1879: )
1880: IS
1881:
1880: IS
1881:
1882: l_return_status VARCHAR2(1);
1883: l_err_text VARCHAR2(2000) ;
1884: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1885: l_token_tbl Error_Handler.Token_Tbl_Type;
1886:
1887: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1888: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1881:
1882: l_return_status VARCHAR2(1);
1883: l_err_text VARCHAR2(2000) ;
1884: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1885: l_token_tbl Error_Handler.Token_Tbl_Type;
1886:
1887: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
1888: l_com_op_unexp_rec Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type ;
1889:
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 ;
1898:
1899: -- Initialize operation exp and unexp record
1924: l_com_operation_rec.start_effective_date := '' ;
1925: l_com_operation_rec.new_start_effective_date := '' ;
1926: l_com_operation_rec.disable_date := '' ;
1927:
1928: Error_Handler.Add_Error_Token
1929: ( p_message_name => 'BOM_FLOW_OP_DATE_IGNORED'
1930: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1931: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1932: , p_Token_Tbl => l_Token_Tbl
1947:
1948: l_com_operation_rec.process_seq_number := '' ;
1949: l_com_op_unexp_rec.Process_Op_Seq_Id := '' ;
1950:
1951: Error_Handler.Add_Error_Token
1952: ( p_message_name => 'BOM_STD_OP_PRCSEQNUM_IGNORED'
1953: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1954: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1955: , p_Token_Tbl => l_Token_Tbl
1968:
1969: l_com_operation_rec.process_code := '' ;
1970: l_com_op_unexp_rec.Process_Op_Seq_Id := '' ;
1971:
1972: Error_Handler.Add_Error_Token
1973: ( p_message_name => 'BOM_STD_OP_PRCCODE_IGNORED'
1974: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1975: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1976: , p_Token_Tbl => l_Token_Tbl
1990:
1991: l_com_operation_rec.line_op_seq_number := '' ;
1992: l_com_op_unexp_rec.line_op_seq_Id := '' ;
1993:
1994: Error_Handler.Add_Error_Token
1995: ( p_message_name => 'BOM_STD_OP_LNOPSEQNUM_IGNORED'
1996: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1997: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1998: , p_Token_Tbl => l_Token_Tbl
2011:
2012: l_com_operation_rec.line_op_code := '' ;
2013: l_com_op_unexp_rec.line_op_seq_Id := '' ;
2014:
2015: Error_Handler.Add_Error_Token
2016: ( p_message_name => 'BOM_STD_OP_LNOPCODE_IGNORED'
2017: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2018: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2019: , p_Token_Tbl => l_Token_Tbl
2030: THEN
2031:
2032: l_com_operation_rec.user_labor_time := '' ;
2033:
2034: Error_Handler.Add_Error_Token
2035: ( p_message_name => 'BOM_STD_OP_USERLABTIME_IGNORED'
2036: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2037: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2038: , p_Token_Tbl => l_Token_Tbl
2048: THEN
2049:
2050: l_com_operation_rec.user_machine_time := '' ;
2051:
2052: Error_Handler.Add_Error_Token
2053: ( p_message_name => 'BOM_STD_OP_USERMCTIME_IGNORED'
2054: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2055: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2056: , p_Token_Tbl => l_Token_Tbl
2074: THEN
2075:
2076: l_com_operation_rec.net_planning_percent := '' ;
2077:
2078: Error_Handler.Add_Error_Token
2079: ( p_message_name => 'BOM_STD_OP_NETPLNPCT_IGNORED'
2080: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2081: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2082: , p_Token_Tbl => l_Token_Tbl
2098: THEN
2099:
2100: l_com_operation_rec.include_in_rollup := 1 ; -- Set default 1. Bug1744254
2101:
2102: Error_Handler.Add_Error_Token
2103: ( p_message_name => 'BOM_STD_OP_ICDROLLUP_IGNORED'
2104: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2105: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2106: , p_Token_Tbl => l_Token_Tbl
2116: THEN
2117:
2118: l_com_operation_rec.op_yield_enabled_flag := 1 ; -- Set default 1. Bug1744254
2119:
2120: Error_Handler.Add_Error_Token
2121: ( p_message_name => 'BOM_STD_OP_YLD_ENABLED_IGNORED'
2122: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2123: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2124: , p_Token_Tbl => l_Token_Tbl
2148: /*IF NVL(FND_PROFILE.VALUE('MRP_I2_P_CHECK_FOR_FP'), 'N') <> 'Y' -- BUG 4729535
2149: THEN
2150: l_com_operation_rec.yield := '' ;
2151:
2152: Error_Handler.Add_Error_Token
2153: ( p_message_name => 'BOM_STD_OP_YIELD_IGNORED'
2154: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2155: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2156: , p_Token_Tbl => l_Token_Tbl
2171: /*IF NVL(FND_PROFILE.VALUE('MRP_I2_P_CHECK_FOR_FP'), 'N') <> 'Y' -- BUG 4729535
2172: THEN
2173: l_com_operation_rec.cumulative_yield := '' ;
2174:
2175: Error_Handler.Add_Error_Token
2176: ( p_message_name => 'BOM_STD_OP_CUM_YIELD_IGNORED'
2177: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2178: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2179: , p_Token_Tbl => l_Token_Tbl
2189: THEN
2190:
2191: l_com_operation_rec.reverse_cum_yield := '' ;
2192:
2193: Error_Handler.Add_Error_Token
2194: ( p_message_name => 'BOM_STD_OP_REVCUM_YLD_IGNORED'
2195: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2196: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2197: , p_Token_Tbl => l_Token_Tbl
2216:
2217: l_com_operation_rec.Minimum_Transfer_Quantity := 0 ;
2218: l_com_operation_rec.Backflush_Flag := 1 ;
2219:
2220: Error_Handler.Add_Error_Token
2221: ( p_message_name => 'BOM_EAM_WIP_ATTR_IGNORED'
2222: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2223: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2224: , p_Token_Tbl => l_Token_Tbl
2235: THEN
2236:
2237: l_com_operation_rec.shutdown_Type := '' ;
2238:
2239: Error_Handler.Add_Error_Token
2240: ( p_message_name => 'BOM_EAM_SHUTDOWN_TYPE_IGNORED'
2241: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2242: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2243: , p_Token_Tbl => l_Token_Tbl
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
2257: ( p_message_name => 'BOM_EAM_LONG_DESC_IGNORED'
2258: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2259: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2260: , p_Token_Tbl => l_Token_Tbl
2275: x_mesg_token_tbl := l_mesg_token_tbl ;
2276:
2277: EXCEPTION
2278: WHEN OTHERS THEN
2279: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2280: ('Some unknown error in Check NonOperated Attr. . . .' || SQLERRM );
2281: END IF ;
2282:
2283:
2284: l_err_text := G_PKG_NAME || ' Validation (NonOperated Attr.) '
2285: || substrb(SQLERRM,1,200);
2286: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
2287:
2288: Error_Handler.Add_Error_Token
2289: ( p_message_name => NULL
2290: , p_message_text => l_err_text
2291: , p_mesg_token_tbl => l_mesg_token_tbl
2292: , x_mesg_token_tbl => l_mesg_token_tbl
2325: , p_old_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2326: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2327: , x_com_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Operation_Rec_Type
2328: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2329: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2330: , x_return_status IN OUT NOCOPY VARCHAR2
2331: )
2332: IS
2333: -- Variables
2340:
2341: -- Error Handlig Variables
2342: l_return_status VARCHAR2(1);
2343: l_err_text VARCHAR2(2000) ;
2344: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
2345: l_token_tbl Error_Handler.Token_Tbl_Type;
2346:
2347: -- Exception
2348: EXIT_CHECK_REF_STD_OP EXCEPTION ;
2341: -- Error Handlig Variables
2342: l_return_status VARCHAR2(1);
2343: l_err_text VARCHAR2(2000) ;
2344: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
2345: l_token_tbl Error_Handler.Token_Tbl_Type;
2346:
2347: -- Exception
2348: EXIT_CHECK_REF_STD_OP EXCEPTION ;
2349:
2432: THEN
2433: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2434: THEN
2435:
2436: Error_Handler.Add_Error_Token
2437: ( p_message_name => 'BOM_OP_STD_OP_NOTUPDATABLE'
2438: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
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 ;
2448:
2449: RAISE EXIT_CHECK_REF_STD_OP ;
2465: THEN
2466: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2467: THEN
2468:
2469: Error_Handler.Add_Error_Token
2470: ( p_message_name => 'BOM_STD_MTQ_NOT_UPDATABLE'
2471: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2472: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2473: , p_Token_Tbl => l_Token_Tbl
2480: THEN
2481: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2482: THEN
2483:
2484: Error_Handler.Add_Error_Token
2485: ( p_message_name => 'BOM_STD_CPT_NOT_UPDATABLE'
2486: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2487: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2488: , p_Token_Tbl => l_Token_Tbl
2495: THEN
2496: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2497: THEN
2498:
2499: Error_Handler.Add_Error_Token
2500: ( p_message_name => 'BOM_STD_BFF_NOT_UPDATABLE'
2501: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2502: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2503: , p_Token_Tbl => l_Token_Tbl
2510: THEN
2511: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2512: THEN
2513:
2514: Error_Handler.Add_Error_Token
2515: ( p_message_name => 'BOM_STD_ODF_NOT_UPDATABLE'
2516: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2517: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2518: , p_Token_Tbl => l_Token_Tbl
2526: THEN
2527: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2528: THEN
2529:
2530: Error_Handler.Add_Error_Token
2531: ( p_message_name => 'BOM_STD_OPD_NOT_UPDATABLE'
2532: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2533: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2534: , p_Token_Tbl => l_Token_Tbl
2542: THEN
2543: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2544: THEN
2545:
2546: Error_Handler.Add_Error_Token
2547: ( p_message_name => 'BOM_STD_LD_NOT_UPDATABLE'
2548: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2549: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2550: , p_Token_Tbl => l_Token_Tbl
2581: ( p_op_seq_id => l_com_op_unexp_rec.operation_sequence_id )
2582: LOOP
2583: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2584: THEN
2585: Error_Handler.Add_Error_Token
2586: ( p_message_name => 'BOM_OP_CANNOT_COPY_STD_OP'
2587: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2588: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2589: , p_Token_Tbl => l_Token_Tbl
2601: ( p_op_seq_id => l_com_op_unexp_rec.old_operation_sequence_id )
2602: LOOP
2603: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2604: THEN
2605: Error_Handler.Add_Error_Token
2606: ( p_message_name => 'BOM_OP_CANNOT_COPY_STD_OP'
2607: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2608: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2609: , p_Token_Tbl => l_Token_Tbl
2636:
2637: -- invalid standard op code
2638: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2639: THEN
2640: Error_Handler.Add_Error_Token
2641: ( p_message_name => 'BOM_OP_STD_OP_INVALID'
2642: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2643: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2644: , p_Token_Tbl => l_Token_Tbl
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 ;
2653:
2654:
2659: -- We need to warn the user to change the schedule sequence number which will be defaulted to 0
2660: -- We will also unreference this standard operation as the user still has to enter the SSN
2661: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2662: THEN
2663: Error_Handler.Add_Error_Token
2664: ( p_message_name => 'BOM_SSN_ZERO_VALUE'
2665: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2666: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2667: , p_Token_Tbl => l_Token_Tbl
2669: ) ;
2670: END IF ;
2671: l_com_operation_rec.reference_flag := 2;
2672:
2673: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2674: ('Std operation has alternate resources');
2675: END IF;
2676: END LOOP;
2677: END IF ;
2677: END IF ;
2678: END IF ;
2679:
2680:
2681: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2682: ('Check Reference Standard Operation was processed. . . ' || l_return_status);
2683: END IF ;
2684:
2685: --
2710: x_return_status := l_return_status;
2711: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2712:
2713: WHEN OTHERS THEN
2714: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2715: ('Some unknown error in Entity Validation(Check Ref Std Op) . . .' || SQLERRM );
2716: END IF ;
2717:
2718:
2719: l_err_text := G_PKG_NAME || ' Validation (Entity Validation(Check Ref Std Op)) '
2720: || substrb(SQLERRM,1,200);
2721: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
2722:
2723: Error_Handler.Add_Error_Token
2724: ( p_message_name => NULL
2725: , p_message_text => l_err_text
2726: , p_mesg_token_tbl => l_mesg_token_tbl
2727: , x_mesg_token_tbl => l_mesg_token_tbl
2754: , p_old_operation_rec IN Bom_Rtg_Pub.Operation_Rec_Type
2755: , p_old_op_unexp_rec IN Bom_Rtg_Pub.Op_Unexposed_Rec_Type
2756: , x_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Operation_Rec_Type
2757: , x_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Op_Unexposed_Rec_Type
2758: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2759: , x_return_status IN OUT NOCOPY VARCHAR2
2760: )
2761: IS
2762: l_com_operation_rec Bom_Rtg_Pub.Com_Operation_Rec_Type ;
2826: , p_old_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2827: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2828: , x_rev_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Operation_Rec_Type
2829: , x_rev_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2830: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2831: , x_return_status IN OUT NOCOPY VARCHAR2
2832: )
2833:
2834: IS
2899: , p_old_com_op_unexp_rec IN Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2900: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2901: , x_com_operation_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Operation_Rec_Type
2902: , x_com_op_unexp_rec IN OUT NOCOPY Bom_Rtg_Pub.Com_Op_Unexposed_Rec_Type
2903: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2904: , x_return_status IN OUT NOCOPY VARCHAR2
2905: )
2906: IS
2907: -- Variables
2917: -- Error Handlig Variables
2918: l_return_status VARCHAR2(1);
2919: l_temp_return_status VARCHAR2(1);
2920: l_err_text VARCHAR2(2000) ;
2921: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
2922: l_temp_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;
2923: l_token_tbl Error_Handler.Token_Tbl_Type;
2924: l_err_code NUMBER;
2925:
2918: l_return_status VARCHAR2(1);
2919: l_temp_return_status VARCHAR2(1);
2920: l_err_text VARCHAR2(2000) ;
2921: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
2922: l_temp_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;
2923: l_token_tbl Error_Handler.Token_Tbl_Type;
2924: l_err_code NUMBER;
2925:
2926: -- Get Assembly or Revised Item Attr. Value
2919: l_temp_return_status VARCHAR2(1);
2920: l_err_text VARCHAR2(2000) ;
2921: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
2922: l_temp_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type ;
2923: l_token_tbl Error_Handler.Token_Tbl_Type;
2924: l_err_code NUMBER;
2925:
2926: -- Get Assembly or Revised Item Attr. Value
2927: CURSOR l_item_cur (p_org_id NUMBER, p_item_id NUMBER) IS
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 ;
3159:
3160:
3178: l_bom_enabled_flag := l_item_rec.bom_enabled_flag ;
3179: END LOOP ;
3180:
3181: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3182: Error_Handler.Write_Debug('Business Object is') ;
3183: Error_Handler.Write_Debug(BOM_Rtg_Globals.Get_Bo_Identifier) ;
3184: END IF;
3185:
3186:
3179: END LOOP ;
3180:
3181: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3182: Error_Handler.Write_Debug('Business Object is') ;
3183: Error_Handler.Write_Debug(BOM_Rtg_Globals.Get_Bo_Identifier) ;
3184: END IF;
3185:
3186:
3187: --
3188: -- Performing Entity Validation in Revised Operatin(ECO BO)
3189: --
3190: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
3191: THEN
3192: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3193: ('Performing Entitity Validation for Eco Routing :ACD Type, Old Op Seq Num, Old Effect Date etc. . .') ;
3194: END IF;
3195:
3196: --
3208: THEN
3209: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3210: l_token_tbl(1).token_value := l_com_operation_rec.revised_item_name;
3211:
3212: Error_Handler.Add_Error_Token
3213: ( p_message_name => 'BOM_OP_RITEM_BOM_NOT_ALLOWED'
3214: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3215: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3216: , p_token_tbl => l_token_tbl
3228: THEN
3229: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3230: l_token_tbl(1).token_value := l_com_operation_rec.revised_item_name;
3231:
3232: Error_Handler.Add_Error_Token
3233: ( p_message_name => 'BOM_OP_RITEM_PTO_ITEM'
3234: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3235: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3236: , p_token_tbl => l_token_tbl
3248: THEN
3249: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3250: l_token_tbl(1).token_value := l_com_operation_rec.revised_item_name;
3251:
3252: Error_Handler.Add_Error_Token
3253: ( p_message_name => 'BOM_OP_RITEM_PLANNING_ITEM'
3254: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3255: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3256: , p_token_tbl => l_token_tbl
3285: l_com_operation_rec.acd_type IN (2, 3)
3286: THEN
3287:
3288: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3289: Error_Handler.Write_Debug('Checking old operation : '|| to_char(l_com_op_unexp_rec.old_operation_sequence_id));
3290: END IF;
3291:
3292: l_eco_for_production := NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) ;
3293:
3302: LOOP
3303: -- operation is invalid
3304: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3305: THEN
3306: Error_Handler.Add_Error_Token
3307: ( p_message_name => 'BOM_OP_OLD_OPSEQ_INVALID'
3308: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3309: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3310: , p_Token_Tbl => l_Token_Tbl
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);
3318: END IF;
3319: END IF ;
3320:
3321:
3323: , p_organization_id => l_com_op_unexp_rec.organization_id )
3324: THEN
3325:
3326:
3327: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3328: ('ACD type to be add if primary routing does not exist . . .') ;
3329: END IF;
3330:
3331: IF NVL(l_com_operation_rec.acd_type, l_ACD_ADD) <> l_ACD_ADD AND
3341: THEN
3342: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3343: l_token_tbl(1).token_value := l_com_operation_rec.revised_item_name;
3344:
3345: Error_Handler.Add_Error_Token
3346: ( p_message_name => 'BOM_OP_ACD_TYPE_ADD'
3347: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3348: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3349: , p_token_tbl => l_token_tbl
3374: l_token_tbl(1).token_value := l_com_operation_rec.revised_item_name;
3375: l_token_tbl(2).token_name := 'OP_SEQ_NUMBER';
3376: l_token_tbl(2).token_value := l_com_operation_rec.operation_sequence_number ;
3377:
3378: Error_Handler.Add_Error_Token
3379: ( p_message_name => 'BOM_OP_RIT_ECO_WO_EFF_INVALID'
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
3401: IF p_old_com_operation_rec.acd_type = l_ACD_DISABLE
3402: THEN
3403: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3404: THEN
3405: Error_Handler.Add_Error_Token
3406: ( p_message_name => 'BOM_OP_DISABLED'
3407: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3408: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3409: , p_token_tbl => l_token_tbl
3418: IF l_com_operation_rec.acd_type <> p_old_com_operation_rec.acd_type
3419: THEN
3420: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3421: THEN
3422: Error_Handler.Add_Error_Token
3423: ( p_message_name => 'BOM_OP_ACD_TYPE_NOT_UPDATEABLE'
3424: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3425: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3426: , p_token_tbl => l_token_tbl
3436: p_old_com_operation_rec.old_operation_sequence_number
3437: THEN
3438: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3439: THEN
3440: Error_Handler.Add_Error_Token
3441: ( p_message_name => 'BOM_OP_OLDOPSQNM_NT_UPDATEABLE'
3442: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3443: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3444: , p_token_tbl => l_token_tbl
3454: p_old_com_operation_rec.old_start_effective_date
3455: THEN
3456: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3457: THEN
3458: Error_Handler.Add_Error_Token
3459: ( p_message_name => 'BOM_OP_OLDEFFDT_NOT_UPDATEABLE'
3460: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3461: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3462: , p_token_tbl => l_token_tbl
3485: THEN
3486:
3487: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3488: THEN
3489: Error_Handler.Add_Error_Token
3490: ( p_message_name => 'BOM_OP_CANNOT_CANCL_FOR_REVCMP'
3491: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3492: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3493: , p_Token_Tbl => l_Token_Tbl
3497:
3498: END IF ;
3499: END IF ; -- For Cancel
3500:
3501: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3502: ('End of Validation specific to ECO BO : ' || l_return_status) ;
3503: END IF ;
3504:
3505:
3533: THEN
3534:
3535: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3536: THEN
3537: Error_Handler.Add_Error_Token
3538: ( p_message_name => 'BOM_OP_EFFDATE_NOT_UPDATABLE'
3539: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3540: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3541: , p_Token_Tbl => l_Token_Tbl
3565: THEN
3566:
3567: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3568: THEN
3569: Error_Handler.Add_Error_Token
3570: ( p_message_name => 'BOM_OP_DEPT_NOT_UPDATABLE'
3571: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3572: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3573: , p_Token_Tbl => l_Token_Tbl
3585: THEN
3586:
3587: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3588: THEN
3589: Error_Handler.Add_Error_Token
3590: ( p_message_name => 'BOM_EAM_OP_DEPT_NOT_UPDATABLE'
3591: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3592: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3593: , p_Token_Tbl => l_Token_Tbl
3609: THEN
3610:
3611: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3612: THEN
3613: Error_Handler.Add_Error_Token
3614: ( p_message_name => 'BOM_OP_REF_NOT_ALLOWED'
3615: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3616: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3617: , p_Token_Tbl => l_Token_Tbl
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
3625: ('End of Validation specific to the Transaction Type of Update : ' || l_return_status) ;
3626: END IF ;
3627:
3628: --
3629: -- Validateion for Transaction Type : Create and Update
3630: --
3631: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3632: THEN
3633: Error_Handler.Write_Debug ('The Transaction Type is ');
3634: Error_Handler.Write_Debug (l_com_operation_rec.transaction_type);
3635: END IF ;
3636:
3637: IF l_com_operation_rec.transaction_type IN
3630: --
3631: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3632: THEN
3633: Error_Handler.Write_Debug ('The Transaction Type is ');
3634: Error_Handler.Write_Debug (l_com_operation_rec.transaction_type);
3635: END IF ;
3636:
3637: IF l_com_operation_rec.transaction_type IN
3638: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
3637: IF l_com_operation_rec.transaction_type IN
3638: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
3639: THEN
3640:
3641: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3642: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;
3643: END IF ;
3644:
3645: --
3654: THEN
3655:
3656: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3657: THEN
3658: Error_Handler.Add_Error_Token
3659: ( p_message_name => 'BOM_OP_REFFLAG_MUST_BE_NO'
3660: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
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 ;
3670:
3671: END IF ;
3707: THEN
3708: l_token_tbl(2).token_name := 'OPERATION_TYPE';
3709: l_token_tbl(2).token_value := l_com_operation_rec.operation_type ;
3710:
3711: Error_Handler.Add_Error_Token
3712: ( p_message_name => 'BOM_FLM_OP_CANNOT_HAVE_PARENTS'
3713: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3714: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3715: , p_token_tbl => l_token_tbl
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) ;
3723: END IF ;
3724:
3725: END IF ;
3736: THEN
3737:
3738: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3739: THEN
3740: Error_Handler.Add_Error_Token
3741: ( p_message_name => 'BOM_OP_DISABLE_DATE_INVALID'
3742: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
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 ;
3752:
3753: END IF ;
3764: THEN
3765:
3766: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3767: THEN
3768: Error_Handler.Add_Error_Token
3769: ( p_message_name => 'BOM_OP_BKFFLAG_CPNTYPE_INVALID'
3770: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
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) ;
3780: END IF ;
3781:
3787: -- Operation Dependent Flag must be 2: No.
3788: --
3789:
3790: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3791: Error_Handler.Write_Debug('Option Dependent Flag : ' || to_char(l_com_operation_rec.option_dependent_flag)) ;
3792: END IF ;
3793:
3794: IF ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3795: OR l_com_operation_rec.acd_type = l_ACD_CHANGE)
3798: THEN
3799:
3800: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3801: THEN
3802: Error_Handler.Add_Error_Token
3803: ( p_message_name => 'BOM_OP_DPTFLAG_MUST_BE_NO'
3804: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
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) ;
3814: END IF ;
3815:
3836: LOOP
3837:
3838: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3839: THEN
3840: Error_Handler.Add_Error_Token
3841: ( p_message_name => 'BOM_OP_DEPT_ID_INVALID'
3842: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3843: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3844: , p_Token_Tbl => l_Token_Tbl
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
3852: ('Check if Department is valid. ' || l_return_status) ;
3853: END IF ;
3854:
3855: END IF ;
3868: LOOP
3869:
3870: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3871: THEN
3872: Error_Handler.Add_Error_Token
3873: ( p_message_name => 'BOM_FLM_OP_PRT_PCSOP_INVALID'
3874: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3875: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3876: , p_Token_Tbl => l_Token_Tbl
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) ;
3884: END IF ;
3885:
3886: END IF ;
3898: LOOP
3899:
3900: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3901: THEN
3902: Error_Handler.Add_Error_Token
3903: ( p_message_name => 'BOM_FLM_OP_PRT_LINEOP_INVALID'
3904: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3905: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3906: , p_Token_Tbl => l_Token_Tbl
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) ;
3914: END IF ;
3915:
3916: END IF ;
3935: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3936: l_token_tbl(1).token_value := NVL( l_com_operation_rec.new_operation_sequence_number
3937: , l_com_operation_rec.operation_sequence_number) ;
3938:
3939: Error_Handler.Add_Error_Token
3940: ( p_message_name => 'BOM_OP_NOT_UNIQUE'
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
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 ;
3950:
3951: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3952: ('Check uniqueness of the operation. . . ' || l_return_status) ;
3953: END IF ;
3954:
3955: END IF ;
3965: THEN
3966:
3967:
3968: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3969: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3971: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3972: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3966:
3967:
3968: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3969: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3971: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3972: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3974: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3967:
3968: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3969: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3971: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3972: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3974: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3968: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3969: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3971: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3972: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3974: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3976: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3969: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3971: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3972: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3974: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3976: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3977: END IF ;
3970: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3971: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3972: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3974: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3976: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3977: END IF ;
3978:
3971: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3972: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3974: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3976: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3977: END IF ;
3978:
3979:
3972: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3974: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3976: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3977: END IF ;
3978:
3979:
3980: IF NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) <> 1 THEN
3993: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3994: l_token_tbl(1).token_value := NVL( l_com_operation_rec.new_operation_sequence_number
3995: , l_com_operation_rec.operation_sequence_number) ;
3996:
3997: Error_Handler.Add_Error_Token
3998: ( p_message_name => 'BOM_OP_OVERLAP'
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
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 ;
4008:
4009: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4010: ('Check if there is no overlapping operations. . . ' || l_return_status) ;
4011: END IF ;
4012: END IF ;
4013:
4021: --
4022: /* If necessary, remove comment out, and create new message
4023: */
4024:
4025: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4026: ('Check uniqueness for unimplemented revised operations. . . ' || l_return_status) ;
4027: END IF ;
4028:
4029: --
4051: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4052: l_token_tbl(1).token_value := NVL( l_com_operation_rec.new_operation_sequence_number
4053: , l_com_operation_rec.operation_sequence_number) ;
4054:
4055: Error_Handler.Add_Error_Token
4056: ( p_message_name => 'BOM_REV_OP_OVERLAP'
4057: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4058: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4059: , p_Token_Tbl => l_Token_Tbl
4066: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
4067: END LOOP ;
4068:
4069:
4070: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4071: ('Check if there is no overlapping operations for unimplemented revised operations. . . '
4072: || l_return_status) ;
4073: END IF ;
4074: END IF ;
4100: ) ;
4101:
4102: END IF ;
4103:
4104: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4105: ('Check if ECO has been approved and has a workflow process. . . ' || l_return_status) ;
4106: END IF ;
4107:
4108: END IF;
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'
4119: , p_mesg_token_tbl => l_mesg_token_tbl
4120: , x_mesg_token_tbl => l_mesg_token_tbl
4121: );
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 ;
4127:
4128: END IF ;
4126: END IF ;
4127:
4128: END IF ;
4129:
4130: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4131: ('Entity Validation was processed. . . ' || l_return_status);
4132: END IF ;
4133:
4134: -- Check if an operation designated as SSOS is being deleted -- Added for SSOS (bug 2689249)
4139: IF l_com_operation_rec.operation_sequence_number = get_ssos_rec.serialization_start_op THEN
4140: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4141: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number;
4142:
4143: Error_Handler.Add_Error_Token
4144: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
4145: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4146: , p_message_name => 'BOM_OP_SSOS'
4147: , p_token_tbl => l_token_tbl
4153: l_com_operation_rec.new_operation_sequence_number <> l_com_operation_rec.operation_sequence_number THEN
4154: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4155: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number;
4156:
4157: Error_Handler.Add_Error_Token
4158: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
4159: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4160: , p_message_name => 'BOM_OP_SSOS'
4161: , p_token_tbl => l_token_tbl
4173: p_routing_rev_date => SYSDATE,
4174: x_err_code => l_err_code,
4175: x_err_msg => l_err_text)
4176: THEN
4177: Error_Handler.Add_Error_Token(p_message_name => 'WSM_ROUTING_PO_MOVE',
4178: p_mesg_token_tbl => l_mesg_token_tbl,
4179: x_mesg_token_tbl => l_mesg_token_tbl,
4180: p_token_tbl => l_token_tbl);
4181: END IF;
4190: p_operation_sequence_id => p_com_op_unexp_rec.Operation_Sequence_Id)
4191: THEN
4192: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4193: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number;
4194: Error_Handler.Add_Error_Token(p_message_name => 'BOM_WSM_OP_ACTIVE_JOB',
4195: p_mesg_token_tbl => l_mesg_token_tbl,
4196: p_token_tbl => l_token_tbl,
4197: x_mesg_token_tbl => l_mesg_token_tbl);
4198: l_return_status := Error_Handler.G_Status_Error;
4194: Error_Handler.Add_Error_Token(p_message_name => 'BOM_WSM_OP_ACTIVE_JOB',
4195: p_mesg_token_tbl => l_mesg_token_tbl,
4196: p_token_tbl => l_token_tbl,
4197: x_mesg_token_tbl => l_mesg_token_tbl);
4198: l_return_status := Error_Handler.G_Status_Error;
4199:
4200: END IF;
4201: --End of Delete Operation OSFM constraint
4202:
4214:
4215:
4216: EXCEPTION
4217: WHEN OTHERS THEN
4218: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4219: ('Some unknown error in Entity Validation . . .' || SQLERRM );
4220: END IF ;
4221:
4222:
4223: l_err_text := G_PKG_NAME || ' Validation (Entity Validation) '
4224: || substrb(SQLERRM,1,200);
4225: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
4226:
4227: Error_Handler.Add_Error_Token
4228: ( p_message_name => NULL
4229: , p_message_text => l_err_text
4230: , p_mesg_token_tbl => l_mesg_token_tbl
4231: , x_mesg_token_tbl => l_mesg_token_tbl
4258: , p_from_end_item_number IN VARCHAR2 -- Added by MK on 11/02/00
4259: , p_operation_seq_num IN NUMBER
4260: , p_routing_sequence_id IN NUMBER
4261: , p_operation_type IN NUMBER
4262: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
4263: , p_entity_processed IN VARCHAR2
4264: , p_resource_seq_num IN NUMBER
4265: , p_sub_resource_code IN VARCHAR2
4266: , p_sub_group_num IN NUMBER
4263: , p_entity_processed IN VARCHAR2
4264: , p_resource_seq_num IN NUMBER
4265: , p_sub_resource_code IN VARCHAR2
4266: , p_sub_group_num IN NUMBER
4267: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4268: , x_Return_Status IN OUT NOCOPY VARCHAR2
4269: )
4270: IS
4271: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4267: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4268: , x_Return_Status IN OUT NOCOPY VARCHAR2
4269: )
4270: IS
4271: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4272: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
4273: p_Mesg_Token_Tbl;
4274: l_return_status VARCHAR2(1);
4275: l_error_name VARCHAR2(30);
4268: , x_Return_Status IN OUT NOCOPY VARCHAR2
4269: )
4270: IS
4271: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4272: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
4273: p_Mesg_Token_Tbl;
4274: l_return_status VARCHAR2(1);
4275: l_error_name VARCHAR2(30);
4276: l_is_comp_unit_controlled BOOLEAN := FALSE;
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
4357: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4358: , p_Token_Tbl => l_token_tbl