[Home] [Help]
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
3151: l_com_operation_rec := p_com_operation_rec ;
3152: l_com_op_unexp_rec := p_com_op_unexp_rec ;
3153: l_return_status := FND_API.G_RET_STS_SUCCESS ;
3154:
3155: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3156: ('Performing Operation Check Entitity Validation . . .') ;
3157: END IF ;
3158:
3159:
3177: l_bom_enabled_flag := l_item_rec.bom_enabled_flag ;
3178: END LOOP ;
3179:
3180: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3181: Error_Handler.Write_Debug('Business Object is') ;
3182: Error_Handler.Write_Debug(BOM_Rtg_Globals.Get_Bo_Identifier) ;
3183: END IF;
3184:
3185:
3178: END LOOP ;
3179:
3180: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3181: Error_Handler.Write_Debug('Business Object is') ;
3182: Error_Handler.Write_Debug(BOM_Rtg_Globals.Get_Bo_Identifier) ;
3183: END IF;
3184:
3185:
3186: --
3187: -- Performing Entity Validation in Revised Operatin(ECO BO)
3188: --
3189: IF BOM_Rtg_Globals.Get_Bo_Identifier = BOM_Rtg_Globals.G_ECO_BO
3190: THEN
3191: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3192: ('Performing Entitity Validation for Eco Routing :ACD Type, Old Op Seq Num, Old Effect Date etc. . .') ;
3193: END IF;
3194:
3195: --
3207: THEN
3208: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3209: l_token_tbl(1).token_value := l_com_operation_rec.revised_item_name;
3210:
3211: Error_Handler.Add_Error_Token
3212: ( p_message_name => 'BOM_OP_RITEM_BOM_NOT_ALLOWED'
3213: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3214: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3215: , p_token_tbl => l_token_tbl
3227: THEN
3228: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3229: l_token_tbl(1).token_value := l_com_operation_rec.revised_item_name;
3230:
3231: Error_Handler.Add_Error_Token
3232: ( p_message_name => 'BOM_OP_RITEM_PTO_ITEM'
3233: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3234: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3235: , p_token_tbl => l_token_tbl
3247: THEN
3248: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3249: l_token_tbl(1).token_value := l_com_operation_rec.revised_item_name;
3250:
3251: Error_Handler.Add_Error_Token
3252: ( p_message_name => 'BOM_OP_RITEM_PLANNING_ITEM'
3253: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3254: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3255: , p_token_tbl => l_token_tbl
3284: l_com_operation_rec.acd_type IN (2, 3)
3285: THEN
3286:
3287: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3288: Error_Handler.Write_Debug('Checking old operation : '|| to_char(l_com_op_unexp_rec.old_operation_sequence_id));
3289: END IF;
3290:
3291: l_eco_for_production := NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) ;
3292:
3301: LOOP
3302: -- operation is invalid
3303: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3304: THEN
3305: Error_Handler.Add_Error_Token
3306: ( p_message_name => 'BOM_OP_OLD_OPSEQ_INVALID'
3307: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3308: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3309: , p_Token_Tbl => l_Token_Tbl
3312: l_return_status := FND_API.G_RET_STS_ERROR;
3313: END LOOP ;
3314:
3315: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3316: Error_Handler.Write_Debug('After checking old operation. Return status is '|| l_return_status);
3317: END IF;
3318: END IF ;
3319:
3320:
3322: , p_organization_id => l_com_op_unexp_rec.organization_id )
3323: THEN
3324:
3325:
3326: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3327: ('ACD type to be add if primary routing does not exist . . .') ;
3328: END IF;
3329:
3330: IF NVL(l_com_operation_rec.acd_type, l_ACD_ADD) <> l_ACD_ADD AND
3340: THEN
3341: l_token_tbl(1).token_name := 'REVISED_ITEM_NAME';
3342: l_token_tbl(1).token_value := l_com_operation_rec.revised_item_name;
3343:
3344: Error_Handler.Add_Error_Token
3345: ( p_message_name => 'BOM_OP_ACD_TYPE_ADD'
3346: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3347: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3348: , p_token_tbl => l_token_tbl
3373: l_token_tbl(1).token_value := l_com_operation_rec.revised_item_name;
3374: l_token_tbl(2).token_name := 'OP_SEQ_NUMBER';
3375: l_token_tbl(2).token_value := l_com_operation_rec.operation_sequence_number ;
3376:
3377: Error_Handler.Add_Error_Token
3378: ( p_message_name => 'BOM_OP_RIT_ECO_WO_EFF_INVALID'
3379: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3380: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3381: , p_token_tbl => l_token_tbl
3400: IF p_old_com_operation_rec.acd_type = l_ACD_DISABLE
3401: THEN
3402: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3403: THEN
3404: Error_Handler.Add_Error_Token
3405: ( p_message_name => 'BOM_OP_DISABLED'
3406: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3407: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3408: , p_token_tbl => l_token_tbl
3417: IF l_com_operation_rec.acd_type <> p_old_com_operation_rec.acd_type
3418: THEN
3419: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3420: THEN
3421: Error_Handler.Add_Error_Token
3422: ( p_message_name => 'BOM_OP_ACD_TYPE_NOT_UPDATEABLE'
3423: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3424: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3425: , p_token_tbl => l_token_tbl
3435: p_old_com_operation_rec.old_operation_sequence_number
3436: THEN
3437: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3438: THEN
3439: Error_Handler.Add_Error_Token
3440: ( p_message_name => 'BOM_OP_OLDOPSQNM_NT_UPDATEABLE'
3441: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3442: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3443: , p_token_tbl => l_token_tbl
3453: p_old_com_operation_rec.old_start_effective_date
3454: THEN
3455: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3456: THEN
3457: Error_Handler.Add_Error_Token
3458: ( p_message_name => 'BOM_OP_OLDEFFDT_NOT_UPDATEABLE'
3459: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3460: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3461: , p_token_tbl => l_token_tbl
3484: THEN
3485:
3486: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3487: THEN
3488: Error_Handler.Add_Error_Token
3489: ( p_message_name => 'BOM_OP_CANNOT_CANCL_FOR_REVCMP'
3490: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3491: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3492: , p_Token_Tbl => l_Token_Tbl
3496:
3497: END IF ;
3498: END IF ; -- For Cancel
3499:
3500: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3501: ('End of Validation specific to ECO BO : ' || l_return_status) ;
3502: END IF ;
3503:
3504:
3532: THEN
3533:
3534: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3535: THEN
3536: Error_Handler.Add_Error_Token
3537: ( p_message_name => 'BOM_OP_EFFDATE_NOT_UPDATABLE'
3538: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3539: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3540: , p_Token_Tbl => l_Token_Tbl
3564: THEN
3565:
3566: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3567: THEN
3568: Error_Handler.Add_Error_Token
3569: ( p_message_name => 'BOM_OP_DEPT_NOT_UPDATABLE'
3570: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3571: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3572: , p_Token_Tbl => l_Token_Tbl
3584: THEN
3585:
3586: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3587: THEN
3588: Error_Handler.Add_Error_Token
3589: ( p_message_name => 'BOM_EAM_OP_DEPT_NOT_UPDATABLE'
3590: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3591: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3592: , p_Token_Tbl => l_Token_Tbl
3608: THEN
3609:
3610: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3611: THEN
3612: Error_Handler.Add_Error_Token
3613: ( p_message_name => 'BOM_OP_REF_NOT_ALLOWED'
3614: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3615: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3616: , p_Token_Tbl => l_Token_Tbl
3619: l_return_status := FND_API.G_RET_STS_ERROR;
3620: END IF ;
3621: END IF ; -- Transation: UPDATE
3622:
3623: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3624: ('End of Validation specific to the Transaction Type of Update : ' || l_return_status) ;
3625: END IF ;
3626:
3627: --
3628: -- Validateion for Transaction Type : Create and Update
3629: --
3630: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3631: THEN
3632: Error_Handler.Write_Debug ('The Transaction Type is ');
3633: Error_Handler.Write_Debug (l_com_operation_rec.transaction_type);
3634: END IF ;
3635:
3636: IF l_com_operation_rec.transaction_type IN
3629: --
3630: IF BOM_Rtg_Globals.Get_Debug = 'Y'
3631: THEN
3632: Error_Handler.Write_Debug ('The Transaction Type is ');
3633: Error_Handler.Write_Debug (l_com_operation_rec.transaction_type);
3634: END IF ;
3635:
3636: IF l_com_operation_rec.transaction_type IN
3637: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
3636: IF l_com_operation_rec.transaction_type IN
3637: (BOM_Rtg_Globals.G_OPR_CREATE, BOM_Rtg_Globals.G_OPR_UPDATE)
3638: THEN
3639:
3640: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3641: ('Common Validateion for Transaction Type : Create and Update . . . . ' || l_return_status) ;
3642: END IF ;
3643:
3644: --
3653: THEN
3654:
3655: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3656: THEN
3657: Error_Handler.Add_Error_Token
3658: ( p_message_name => 'BOM_OP_REFFLAG_MUST_BE_NO'
3659: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3660: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3661: , p_Token_Tbl => l_Token_Tbl
3662: ) ;
3663: END IF ;
3664: l_return_status := FND_API.G_RET_STS_ERROR ;
3665:
3666: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3667: ('Reference Flag Validation, If Std Op is null, It must be No . . . ' || l_return_status) ;
3668: END IF ;
3669:
3670: END IF ;
3706: THEN
3707: l_token_tbl(2).token_name := 'OPERATION_TYPE';
3708: l_token_tbl(2).token_value := l_com_operation_rec.operation_type ;
3709:
3710: Error_Handler.Add_Error_Token
3711: ( p_message_name => 'BOM_FLM_OP_CANNOT_HAVE_PARENTS'
3712: , p_mesg_token_tbl => l_Mesg_Token_Tbl
3713: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3714: , p_token_tbl => l_token_tbl
3716:
3717: l_return_status := FND_API.G_RET_STS_ERROR;
3718:
3719:
3720: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3721: ('In Flow Routing Only Events(Operation Type 1) have parents. . . . ' || l_return_status) ;
3722: END IF ;
3723:
3724: END IF ;
3735: THEN
3736:
3737: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3738: THEN
3739: Error_Handler.Add_Error_Token
3740: ( p_message_name => 'BOM_OP_DISABLE_DATE_INVALID'
3741: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3742: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3743: , p_Token_Tbl => l_Token_Tbl
3744: ) ;
3745: END IF ;
3746: l_return_status := FND_API.G_RET_STS_ERROR;
3747:
3748: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3749: ('Effective_Date must be past than or equal to Disable_Date. . . . ' || l_return_status) ;
3750: END IF ;
3751:
3752: END IF ;
3763: THEN
3764:
3765: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3766: THEN
3767: Error_Handler.Add_Error_Token
3768: ( p_message_name => 'BOM_OP_BKFFLAG_CPNTYPE_INVALID'
3769: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3770: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3771: , p_Token_Tbl => l_Token_Tbl
3772: ) ;
3773: END IF ;
3774: l_return_status := FND_API.G_RET_STS_ERROR;
3775:
3776: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3777: (' Backfluch Flag Validation. If Count Point Type : 3, Backflush Flag must be 1:Yes . . . '
3778: || l_return_status) ;
3779: END IF ;
3780:
3786: -- Operation Dependent Flag must be 2: No.
3787: --
3788:
3789: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3790: Error_Handler.Write_Debug('Option Dependent Flag : ' || to_char(l_com_operation_rec.option_dependent_flag)) ;
3791: END IF ;
3792:
3793: IF ( NVL(l_com_operation_rec.acd_type,l_ACD_ADD) = l_ACD_ADD
3794: OR l_com_operation_rec.acd_type = l_ACD_CHANGE)
3797: THEN
3798:
3799: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3800: THEN
3801: Error_Handler.Add_Error_Token
3802: ( p_message_name => 'BOM_OP_DPTFLAG_MUST_BE_NO'
3803: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3804: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3805: , p_Token_Tbl => l_Token_Tbl
3806: ) ;
3807: END IF ;
3808: l_return_status := FND_API.G_RET_STS_ERROR;
3809:
3810: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3811: ('If Item : BOM Item Type is Std, Option Dependent Flag must be 2 - No . . .'
3812: || l_return_status) ;
3813: END IF ;
3814:
3835: LOOP
3836:
3837: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3838: THEN
3839: Error_Handler.Add_Error_Token
3840: ( p_message_name => 'BOM_OP_DEPT_ID_INVALID'
3841: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3842: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3843: , p_Token_Tbl => l_Token_Tbl
3846: l_return_status := FND_API.G_RET_STS_ERROR ;
3847: END LOOP ;
3848: end if;
3849:
3850: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3851: ('Check if Department is valid. ' || l_return_status) ;
3852: END IF ;
3853:
3854: END IF ;
3867: LOOP
3868:
3869: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3870: THEN
3871: Error_Handler.Add_Error_Token
3872: ( p_message_name => 'BOM_FLM_OP_PRT_PCSOP_INVALID'
3873: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3874: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3875: , p_Token_Tbl => l_Token_Tbl
3877: END IF ;
3878: l_return_status := FND_API.G_RET_STS_ERROR ;
3879: END LOOP ;
3880:
3881: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3882: ('Check if process operation does not have resources. . . ' || l_return_status) ;
3883: END IF ;
3884:
3885: END IF ;
3897: LOOP
3898:
3899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3900: THEN
3901: Error_Handler.Add_Error_Token
3902: ( p_message_name => 'BOM_FLM_OP_PRT_LINEOP_INVALID'
3903: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3904: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3905: , p_Token_Tbl => l_Token_Tbl
3907: END IF ;
3908: l_return_status := FND_API.G_RET_STS_ERROR ;
3909: END LOOP ;
3910:
3911: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3912: ('Check if line operation does not have resources. . . ' || l_return_status) ;
3913: END IF ;
3914:
3915: END IF ;
3934: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3935: l_token_tbl(1).token_value := NVL( l_com_operation_rec.new_operation_sequence_number
3936: , l_com_operation_rec.operation_sequence_number) ;
3937:
3938: Error_Handler.Add_Error_Token
3939: ( p_message_name => 'BOM_OP_NOT_UNIQUE'
3940: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3941: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3942: , p_Token_Tbl => l_Token_Tbl
3946: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3947: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
3948: END LOOP ;
3949:
3950: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
3951: ('Check uniqueness of the operation. . . ' || l_return_status) ;
3952: END IF ;
3953:
3954: END IF ;
3964: THEN
3965:
3966:
3967: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3968: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3969: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3971: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3972: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3965:
3966:
3967: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3968: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3969: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3971: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3972: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3966:
3967: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3968: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3969: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3971: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3972: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3974: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3967: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
3968: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3969: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3971: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3972: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3974: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3968: Error_Handler.Write_Debug('Rtg Seq Id : ' || to_char(l_com_op_unexp_rec.routing_sequence_id) ) ;
3969: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3971: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3972: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3974: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3976: END IF ;
3969: Error_Handler.Write_Debug('Op Seq Id : ' || to_char(l_com_op_unexp_rec.operation_sequence_id) ) ;
3970: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3971: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3972: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3974: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3976: END IF ;
3977:
3970: Error_Handler.Write_Debug('Op Type : ' || to_char(l_com_operation_rec.operation_type) ) ;
3971: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3972: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3974: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3976: END IF ;
3977:
3978:
3971: Error_Handler.Write_Debug('New Op Seq : ' || to_char(l_com_operation_rec.new_operation_sequence_number) ) ;
3972: Error_Handler.Write_Debug('Op Seq Num : ' || to_char(l_com_operation_rec.operation_sequence_number) ) ;
3973: Error_Handler.Write_Debug('New Effect Date : ' || to_char(l_com_operation_rec.new_start_effective_date) ) ;
3974: Error_Handler.Write_Debug('Effect Date : ' || to_char(l_com_operation_rec.start_effective_date) ) ;
3975: Error_Handler.Write_Debug('Disable Date: ' || to_char(l_com_operation_rec.disable_date) ) ;
3976: END IF ;
3977:
3978:
3979: IF NVL(BOM_Rtg_Globals.Get_Eco_For_Production,2) <> 1 THEN
3992: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3993: l_token_tbl(1).token_value := NVL( l_com_operation_rec.new_operation_sequence_number
3994: , l_com_operation_rec.operation_sequence_number) ;
3995:
3996: Error_Handler.Add_Error_Token
3997: ( p_message_name => 'BOM_OP_OVERLAP'
3998: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3999: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4000: , p_Token_Tbl => l_Token_Tbl
4004: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4005: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
4006: END LOOP ;
4007:
4008: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4009: ('Check if there is no overlapping operations. . . ' || l_return_status) ;
4010: END IF ;
4011: END IF ;
4012:
4020: --
4021: /* If necessary, remove comment out, and create new message
4022: */
4023:
4024: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4025: ('Check uniqueness for unimplemented revised operations. . . ' || l_return_status) ;
4026: END IF ;
4027:
4028: --
4050: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4051: l_token_tbl(1).token_value := NVL( l_com_operation_rec.new_operation_sequence_number
4052: , l_com_operation_rec.operation_sequence_number) ;
4053:
4054: Error_Handler.Add_Error_Token
4055: ( p_message_name => 'BOM_REV_OP_OVERLAP'
4056: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4057: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4058: , p_Token_Tbl => l_Token_Tbl
4065: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number ;
4066: END LOOP ;
4067:
4068:
4069: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4070: ('Check if there is no overlapping operations for unimplemented revised operations. . . '
4071: || l_return_status) ;
4072: END IF ;
4073: END IF ;
4099: ) ;
4100:
4101: END IF ;
4102:
4103: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4104: ('Check if ECO has been approved and has a workflow process. . . ' || l_return_status) ;
4105: END IF ;
4106:
4107: END IF;
4112: IF p_com_operation_rec.Delete_Group_Name IS NULL OR
4113: p_com_operation_rec.Delete_Group_Name = FND_API.G_MISS_CHAR
4114: THEN
4115:
4116: Error_Handler.Add_Error_Token
4117: ( p_message_name => 'BOM_DG_NAME_MISSING'
4118: , p_mesg_token_tbl => l_mesg_token_tbl
4119: , x_mesg_token_tbl => l_mesg_token_tbl
4120: );
4119: , x_mesg_token_tbl => l_mesg_token_tbl
4120: );
4121: l_return_status := FND_API.G_RET_STS_ERROR;
4122: END IF;
4123: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4124: ('Check if Delete Group is missing . . . ' || l_return_status) ;
4125: END IF ;
4126:
4127: END IF ;
4125: END IF ;
4126:
4127: END IF ;
4128:
4129: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4130: ('Entity Validation was processed. . . ' || l_return_status);
4131: END IF ;
4132:
4133: -- Check if an operation designated as SSOS is being deleted -- Added for SSOS (bug 2689249)
4138: IF l_com_operation_rec.operation_sequence_number = get_ssos_rec.serialization_start_op THEN
4139: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4140: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number;
4141:
4142: Error_Handler.Add_Error_Token
4143: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
4144: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4145: , p_message_name => 'BOM_OP_SSOS'
4146: , p_token_tbl => l_token_tbl
4152: l_com_operation_rec.new_operation_sequence_number <> l_com_operation_rec.operation_sequence_number THEN
4153: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4154: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number;
4155:
4156: Error_Handler.Add_Error_Token
4157: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
4158: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4159: , p_message_name => 'BOM_OP_SSOS'
4160: , p_token_tbl => l_token_tbl
4172: p_routing_rev_date => SYSDATE,
4173: x_err_code => l_err_code,
4174: x_err_msg => l_err_text)
4175: THEN
4176: Error_Handler.Add_Error_Token(p_message_name => 'WSM_ROUTING_PO_MOVE',
4177: p_mesg_token_tbl => l_mesg_token_tbl,
4178: x_mesg_token_tbl => l_mesg_token_tbl,
4179: p_token_tbl => l_token_tbl);
4180: END IF;
4189: p_operation_sequence_id => p_com_op_unexp_rec.Operation_Sequence_Id)
4190: THEN
4191: l_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
4192: l_token_tbl(1).token_value := l_com_operation_rec.operation_sequence_number;
4193: Error_Handler.Add_Error_Token(p_message_name => 'BOM_WSM_OP_ACTIVE_JOB',
4194: p_mesg_token_tbl => l_mesg_token_tbl,
4195: p_token_tbl => l_token_tbl,
4196: x_mesg_token_tbl => l_mesg_token_tbl);
4197: l_return_status := Error_Handler.G_Status_Error;
4193: Error_Handler.Add_Error_Token(p_message_name => 'BOM_WSM_OP_ACTIVE_JOB',
4194: p_mesg_token_tbl => l_mesg_token_tbl,
4195: p_token_tbl => l_token_tbl,
4196: x_mesg_token_tbl => l_mesg_token_tbl);
4197: l_return_status := Error_Handler.G_Status_Error;
4198:
4199: END IF;
4200: --End of Delete Operation OSFM constraint
4201:
4213:
4214:
4215: EXCEPTION
4216: WHEN OTHERS THEN
4217: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
4218: ('Some unknown error in Entity Validation . . .' || SQLERRM );
4219: END IF ;
4220:
4221:
4222: l_err_text := G_PKG_NAME || ' Validation (Entity Validation) '
4223: || substrb(SQLERRM,1,200);
4224: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
4225:
4226: Error_Handler.Add_Error_Token
4227: ( p_message_name => NULL
4228: , p_message_text => l_err_text
4229: , p_mesg_token_tbl => l_mesg_token_tbl
4230: , x_mesg_token_tbl => l_mesg_token_tbl
4257: , p_from_end_item_number IN VARCHAR2 -- Added by MK on 11/02/00
4258: , p_operation_seq_num IN NUMBER
4259: , p_routing_sequence_id IN NUMBER
4260: , p_operation_type IN NUMBER
4261: , p_Mesg_Token_Tbl IN Error_Handler.Mesg_Token_Tbl_Type
4262: , p_entity_processed IN VARCHAR2
4263: , p_resource_seq_num IN NUMBER
4264: , p_sub_resource_code IN VARCHAR2
4265: , p_sub_group_num IN NUMBER
4262: , p_entity_processed IN VARCHAR2
4263: , p_resource_seq_num IN NUMBER
4264: , p_sub_resource_code IN VARCHAR2
4265: , p_sub_group_num IN NUMBER
4266: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4267: , x_Return_Status IN OUT NOCOPY VARCHAR2
4268: )
4269: IS
4270: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4266: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
4267: , x_Return_Status IN OUT NOCOPY VARCHAR2
4268: )
4269: IS
4270: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4271: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
4272: p_Mesg_Token_Tbl;
4273: l_return_status VARCHAR2(1);
4274: l_error_name VARCHAR2(30);
4267: , x_Return_Status IN OUT NOCOPY VARCHAR2
4268: )
4269: IS
4270: l_Token_Tbl Error_Handler.Token_Tbl_Type;
4271: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type :=
4272: p_Mesg_Token_Tbl;
4273: l_return_status VARCHAR2(1);
4274: l_error_name VARCHAR2(30);
4275: l_is_comp_unit_controlled BOOLEAN := FALSE;
4349: END IF;
4350:
4351: l_return_status := FND_API.G_RET_STS_ERROR;
4352:
4353: Error_Handler.Add_Error_Token
4354: ( p_Message_Name => l_error_name
4355: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4356: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4357: , p_Token_Tbl => l_token_tbl