[Home] [Help]
158: RETURN NULL;
159:
160: WHEN OTHERS THEN
161: x_err_text := sqlerrm;
162: RETURN FND_API.G_MISS_NUM;
163:
164: END Operation_Sequence_Id;
165:
166:
194: WHEN NO_DATA_FOUND THEN
195: RETURN NULL;
196:
197: WHEN OTHERS THEN
198: RETURN FND_API.G_MISS_NUM;
199:
200: END Organization;
201:
202: /**********************************************************************
320: FROM bom_bill_of_materials
321: WHERE assembly_item_id = p_assembly_item_id
322: AND NVL(alternate_bom_designator, 'NONE') =
323: -- NVL(p_alternate_bom_designator, 'NONE')
324: decode(p_alternate_bom_designator,FND_API.G_MISS_CHAR,'NONE',NULL,'NONE',p_alternate_bom_designator) --2783251
325: AND organization_id = p_organization_id;
326:
327: RETURN l_id;
328:
426: WHERE alternate_designator_code = p_alt_designator
427: AND organization_id = p_organization_id;
428:
429: BEGIN
430: x_return_status := FND_API.G_RET_STS_SUCCESS;
431: l_bom_header_unexp_rec := p_bom_header_unexp_rec;
432:
433:
434: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bom Header UUI-UI Conversion . . '); END IF;
437: --
438: -- Assembly Item name cannot be NULL or missing.
439: --
440: IF p_bom_header_rec.assembly_item_name IS NULL OR
441: p_bom_header_rec.assembly_item_name = FND_API.G_MISS_CHAR
442: THEN
443: Error_Handler.Add_Error_Token
444: ( p_message_name => 'BOM_AITEM_NAME_KEYCOL_NULL'
445: , p_mesg_token_tbl => l_mesg_token_tbl
445: , p_mesg_token_tbl => l_mesg_token_tbl
446: , x_mesg_token_tbl => l_mesg_token_tbl
447: );
448:
449: l_return_status := FND_API.G_RET_STS_ERROR;
450: END IF;
451:
452: --
453: -- Assembly item name must be successfully converted to id.
474: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
475: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
476: , p_Token_Tbl => g_Token_Tbl
477: );
478: l_Return_Status := FND_API.G_RET_STS_ERROR;
479: ELSIF l_err_text IS NOT NULL AND
480: (l_bom_header_unexp_rec.assembly_item_id IS NULL OR
481: l_bom_header_unexp_rec.assembly_item_id = FND_API.G_MISS_NUM)
482: THEN
477: );
478: l_Return_Status := FND_API.G_RET_STS_ERROR;
479: ELSIF l_err_text IS NOT NULL AND
480: (l_bom_header_unexp_rec.assembly_item_id IS NULL OR
481: l_bom_header_unexp_rec.assembly_item_id = FND_API.G_MISS_NUM)
482: THEN
483: -- This is an unexpected error.
484: Error_Handler.Add_Error_Token
485: ( p_Message_Name => NULL
487: G_PKG_NAME
488: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
489: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
490: );
491: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
492: END IF;
493:
494: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After converting Assembly name ' || to_char(l_bom_header_unexp_rec.assembly_item_id) || ' Status ' || l_return_status); END IF;
495:
493:
494: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('After converting Assembly name ' || to_char(l_bom_header_unexp_rec.assembly_item_id) || ' Status ' || l_return_status); END IF;
495:
496: IF p_bom_header_rec.alternate_bom_code IS NOT NULL AND
497: p_bom_header_rec.alternate_bom_code <> FND_API.G_MISS_CHAR
498: THEN
499: l_err_text := FND_API.G_RET_STS_ERROR;
500:
501: FOR check_alternate IN
495:
496: IF p_bom_header_rec.alternate_bom_code IS NOT NULL AND
497: p_bom_header_rec.alternate_bom_code <> FND_API.G_MISS_CHAR
498: THEN
499: l_err_text := FND_API.G_RET_STS_ERROR;
500:
501: FOR check_alternate IN
502: c_Check_Alternate
503: ( p_alt_designator => p_bom_header_rec.alternate_bom_code,
502: c_Check_Alternate
503: ( p_alt_designator => p_bom_header_rec.alternate_bom_code,
504: p_organization_id => l_bom_header_unexp_rec.organization_id )
505: LOOP
506: l_err_text := FND_API.G_RET_STS_SUCCESS;
507: END LOOP;
508:
509: IF l_err_text <> FND_API.G_RET_STS_SUCCESS
510: THEN
505: LOOP
506: l_err_text := FND_API.G_RET_STS_SUCCESS;
507: END LOOP;
508:
509: IF l_err_text <> FND_API.G_RET_STS_SUCCESS
510: THEN
511: g_token_tbl(1).token_name := 'ALTERNATE_BOM_CODE';
512: g_token_tbl(1).token_value :=
513: p_bom_header_rec.alternate_bom_code;
519: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
520: , p_token_tbl => g_token_tbl
521: );
522:
523: l_return_status := FND_API.G_RET_STS_ERROR;
524: END IF;
525: END IF;
526:
527: x_return_status := l_return_status;
553: , x_bom_head_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
554: , p_bom_header_Rec IN Bom_Bo_Pub.Bom_Head_Rec_Type
555: )
556: IS
557: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
558: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
559: l_err_text VARCHAR2(2000);
560: l_Token_Tbl Error_Handler.Token_Tbl_Type;
561: l_bom_head_unexp_rec Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
567: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Header VID conversion . . . ');
568: END IF;
569: IF p_bom_header_rec.common_organization_code IS NOT NULL AND
570: p_bom_header_rec.common_organization_code <>
571: FND_API.G_MISS_CHAR
572: THEN
573: l_bom_head_unexp_rec.common_organization_id :=
574: Organization( p_organization =>
575: p_bom_header_rec.common_organization_code , x_err_text => l_err_text
586: , p_Message_name =>
587: 'BOM_COMMON_ORG_INVALID'
588: , p_token_tbl => l_token_tbl
589: );
590: l_return_status := FND_API.G_RET_STS_ERROR;
591: END IF;
592: ELSIF p_bom_header_rec.common_organization_code IS NULL AND
593: p_bom_header_rec.common_assembly_item_name IS NOT NULL
594: THEN
603: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Common Org Converted . . .'); END IF;
604:
605: IF p_bom_header_rec.common_assembly_item_name IS NOT NULL AND
606: p_bom_header_rec.common_assembly_item_name <>
607: FND_API.G_MISS_CHAR
608: THEN
609: l_bom_head_unexp_rec.common_assembly_item_id :=
610: Assembly_Item
611: ( p_assembly_item_name =>
626: , p_Message_name =>
627: 'BOM_COMMON_ASSY_INVALID'
628: , p_token_tbl => l_token_tbl
629: );
630: l_return_status := FND_API.G_RET_STS_ERROR;
631: ELSIF l_err_text IS NOT NULL AND
632: l_bom_head_unexp_rec.common_assembly_item_id
633: IS NULL
634: THEN
639: 'Unexpected Error ' || l_err_text || ' in ' ||
640: G_PKG_NAME
641: , p_token_tbl => l_token_tbl
642: );
643: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
644: END IF;
645: END IF;
646:
647: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converted common assembly name . . .'); end if;
652: --
653: IF l_bom_head_unexp_rec.common_organization_id IS NOT NULL AND
654: l_bom_head_unexp_rec.common_assembly_item_id IS NOT NULL AND
655: l_bom_head_unexp_rec.common_organization_id <>
656: FND_API.G_MISS_NUM AND
657: l_bom_head_unexp_rec.common_assembly_item_id <>
658: FND_API.G_MISS_NUM
659: THEN
660: l_src_bill_sequence_id := Bill_Sequence_Id
654: l_bom_head_unexp_rec.common_assembly_item_id IS NOT NULL AND
655: l_bom_head_unexp_rec.common_organization_id <>
656: FND_API.G_MISS_NUM AND
657: l_bom_head_unexp_rec.common_assembly_item_id <>
658: FND_API.G_MISS_NUM
659: THEN
660: l_src_bill_sequence_id := Bill_Sequence_Id
661: ( p_assembly_item_id =>
662: l_bom_head_unexp_rec.common_assembly_item_id
697: , p_token_tbl => l_token_tbl
698: , p_mesg_token_tbl => l_mesg_token_tbl
699: , x_mesg_token_tbl => l_mesg_token_tbl
700: );
701: l_return_status := FND_API.G_RET_STS_ERROR;
702: END IF;
703: END IF;
704: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converted common bill sequence id. . .'); end if;
705:
707: Error_Handler.Write_Debug('Structure Type Name VID conversion . . . ');
708: END IF;
709:
710: IF ( p_bom_header_rec.structure_type_name IS NOT NULL AND
711: p_bom_header_rec.structure_type_name <> FND_API.G_MISS_CHAR )
712: THEN
713: l_bom_head_unexp_rec.structure_type_id := Structure_Type
714: ( p_structure_type_name => p_bom_header_rec.structure_type_name
715: , x_err_text => l_err_text
723: , p_Message_name => 'BOM_STRUCTURE_TYPE_INVALID'
724: , p_token_tbl => l_token_tbl
725: );
726:
727: l_return_status := FND_API.G_RET_STS_ERROR;
728: END IF; -- end if l_bom_head_unexp_rec.structure_type_id IS NULL
729: END IF; -- end if p_bom_header_rec.structure_type_name IS NOT NULL
730:
731: If Bom_Globals.Get_Debug = 'Y' THEN
766: BEGIN
767: x_bom_rev_unexp_rec := p_bom_rev_unexp_rec;
768: l_bom_rev_unexp_rec := p_bom_rev_unexp_rec;
769:
770: x_return_status := FND_API.G_RET_STS_SUCCESS;
771:
772: IF p_bom_revision_rec.assembly_item_name IS NULL OR
773: p_bom_revision_rec.assembly_item_name = FND_API.G_MISS_CHAR
774: THEN
769:
770: x_return_status := FND_API.G_RET_STS_SUCCESS;
771:
772: IF p_bom_revision_rec.assembly_item_name IS NULL OR
773: p_bom_revision_rec.assembly_item_name = FND_API.G_MISS_CHAR
774: THEN
775: Error_Handler.Add_Error_Token
776: ( p_message_name => 'BOM_REV_ASSY_KEYCOL_NULL'
777: , x_mesg_token_tbl => l_mesg_token_tbl
775: Error_Handler.Add_Error_Token
776: ( p_message_name => 'BOM_REV_ASSY_KEYCOL_NULL'
777: , x_mesg_token_tbl => l_mesg_token_tbl
778: );
779: x_return_status := FND_API.G_RET_STS_ERROR;
780: END IF;
781:
782: --
783: -- Convert Assembly Item Name
805: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
806: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
807: , p_Token_Tbl => g_Token_Tbl
808: );
809: x_Return_Status := FND_API.G_RET_STS_ERROR;
810: END IF;
811:
812: x_bom_rev_unexp_rec := l_bom_rev_unexp_rec;
813:
905: WHEN NO_DATA_FOUND THEN
906: RETURN NULL;
907:
908: WHEN OTHERS THEN
909: RETURN FND_API.G_MISS_NUM;
910:
911: END Old_Component_Sequence;
912:
913:
938: -- It will be regarded as Null
939: SELECT revised_item_sequence_id
940: INTO l_id
941: FROM Eng_revised_items
942: WHERE NVL(from_end_item_unit_number,FND_API.G_MISS_CHAR )
943: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
944: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
945: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
946: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
939: SELECT revised_item_sequence_id
940: INTO l_id
941: FROM Eng_revised_items
942: WHERE NVL(from_end_item_unit_number,FND_API.G_MISS_CHAR )
943: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
944: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
945: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
946: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
947: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
940: INTO l_id
941: FROM Eng_revised_items
942: WHERE NVL(from_end_item_unit_number,FND_API.G_MISS_CHAR )
943: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
944: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
945: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
946: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
947: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
948: AND TRUNC(scheduled_date) = TRUNC(p_effective_date )
941: FROM Eng_revised_items
942: WHERE NVL(from_end_item_unit_number,FND_API.G_MISS_CHAR )
943: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
944: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
945: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
946: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
947: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
948: AND TRUNC(scheduled_date) = TRUNC(p_effective_date )
949: AND change_notice = p_change_notice
942: WHERE NVL(from_end_item_unit_number,FND_API.G_MISS_CHAR )
943: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
944: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
945: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
946: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
947: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
948: AND TRUNC(scheduled_date) = TRUNC(p_effective_date )
949: AND change_notice = p_change_notice
950: AND organization_id = p_organization_id
943: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
944: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
945: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
946: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
947: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
948: AND TRUNC(scheduled_date) = TRUNC(p_effective_date )
949: AND change_notice = p_change_notice
950: AND organization_id = p_organization_id
951: AND revised_item_id = p_revised_item_id ;
959:
960: RETURN NULL;
961:
962: WHEN OTHERS THEN
963: RETURN FND_API.G_MISS_NUM;
964:
965: END Revised_Item_Sequence;
966: ******************************************************************/
967:
1000: -- It will be regarded as Null
1001: SELECT bill_sequence_id, revised_item_Sequence_id
1002: INTO l_Bill_Seq, l_Rev_Item_Seq
1003: FROM eng_revised_items
1004: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
1005: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
1006: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
1007: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
1008: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
1001: SELECT bill_sequence_id, revised_item_Sequence_id
1002: INTO l_Bill_Seq, l_Rev_Item_Seq
1003: FROM eng_revised_items
1004: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
1005: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
1006: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
1007: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
1008: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
1009: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
1002: INTO l_Bill_Seq, l_Rev_Item_Seq
1003: FROM eng_revised_items
1004: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
1005: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
1006: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
1007: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
1008: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
1009: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
1010: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
1003: FROM eng_revised_items
1004: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
1005: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
1006: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
1007: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
1008: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
1009: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
1010: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
1011: AND change_notice = p_change_notice
1004: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
1005: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
1006: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
1007: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
1008: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
1009: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
1010: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
1011: AND change_notice = p_change_notice
1012: AND organization_id = p_organization_id
1005: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
1006: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
1007: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
1008: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
1009: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
1010: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
1011: AND change_notice = p_change_notice
1012: AND organization_id = p_organization_id
1013: AND revised_item_id = p_revised_item_id ;
1113: and effectivity_date = p_effectivity_date
1114: and
1115: (p_from_unit_number IS NULL
1116: or
1117: p_from_unit_number = FND_API.G_MISS_CHAR
1118: or
1119: from_end_item_unit_number = p_from_unit_number);
1120:
1121: RETURN l_id;
1177: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1178: l_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
1179:
1180: BEGIN
1181: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
1182: l_Rev_Comp_Unexp_Rec := p_Rev_Comp_Unexp_Rec;
1183:
1184: --
1185: -- Convert Location_Name to Location_Id
1186: --
1187: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Executing Location Val-ID conversion . . .'); END IF;
1188:
1189: IF p_rev_component_rec.location_name IS NOT NULL AND
1190: p_rev_component_rec.location_name <> FND_API.G_MISS_CHAR
1191: THEN
1192: l_Return_Value := Locator_Id
1193: ( p_Location_name =>
1194: p_rev_component_rec.location_name
1208: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1209: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1210: , p_Token_Tbl => l_Token_Tbl
1211: );
1212: l_Return_Status := FND_API.G_RET_STS_ERROR;
1213: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1214: THEN
1215: Error_Handler.Add_Error_Token
1216: ( p_Message_Name => NULL
1209: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1210: , p_Token_Tbl => l_Token_Tbl
1211: );
1212: l_Return_Status := FND_API.G_RET_STS_ERROR;
1213: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1214: THEN
1215: Error_Handler.Add_Error_Token
1216: ( p_Message_Name => NULL
1217: , p_Message_Text =>
1218: 'Unexpected error while converting location name'
1219: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1220: , x_Mesg_Token_Tbl => l_MEsg_Token_Tbl
1221: );
1222: l_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1223: ELSE
1224: l_Rev_Comp_Unexp_Rec.supply_locator_id :=
1225: l_Return_Value;
1226: END IF;
1235: END IF;
1236:
1237:
1238: IF p_Rev_Component_Rec.old_effectivity_date IS NOT NULL AND
1239: p_Rev_Component_Rec.old_effectivity_date <> FND_API.G_MISS_DATE AND
1240: p_Rev_component_rec.old_operation_sequence_number IS NOT NULL AND
1241: p_Rev_component_rec.old_operation_sequence_number <>
1242: FND_API.G_MISS_NUM
1243: THEN
1238: IF p_Rev_Component_Rec.old_effectivity_date IS NOT NULL AND
1239: p_Rev_Component_Rec.old_effectivity_date <> FND_API.G_MISS_DATE AND
1240: p_Rev_component_rec.old_operation_sequence_number IS NOT NULL AND
1241: p_Rev_component_rec.old_operation_sequence_number <>
1242: FND_API.G_MISS_NUM
1243: THEN
1244: l_Return_Value :=
1245: Old_Component_Sequence
1246: ( p_component_item_id =>
1271: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1272: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1273: , p_Token_Tbl => l_Token_Tbl
1274: );
1275: l_Return_Status := FND_API.G_RET_STS_ERROR;
1276: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1277: THEN
1278: Error_Handler.Add_Error_Token
1279: ( p_Message_Name => NULL
1272: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1273: , p_Token_Tbl => l_Token_Tbl
1274: );
1275: l_Return_Status := FND_API.G_RET_STS_ERROR;
1276: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1277: THEN
1278: Error_Handler.Add_Error_Token
1279: ( p_Message_Name => NULL
1280: , p_Message_Text =>
1282: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1283: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1284: , p_Token_Tbl => l_Token_Tbl
1285: );
1286: l_Return_Status := FND_API.G_RET_STS_ERROR;
1287: ELSE
1288: l_rev_comp_unexp_rec.old_component_sequence_id :=
1289: l_Return_Value;
1290:
1338: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1339: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1340: , p_Token_Tbl => l_Token_Tbl
1341: );
1342: l_Return_Status := FND_API.G_RET_STS_ERROR;
1343: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1344: THEN
1345: Error_Handler.Add_Error_Token
1346: ( p_Message_Name => NULL
1339: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1340: , p_Token_Tbl => l_Token_Tbl
1341: );
1342: l_Return_Status := FND_API.G_RET_STS_ERROR;
1343: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1344: THEN
1345: Error_Handler.Add_Error_Token
1346: ( p_Message_Name => NULL
1347: , p_Message_Text =>
1349: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1350: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1351: , p_Token_Tbl => l_Token_Tbl
1352: );
1353: l_Return_Status := FND_API.G_RET_STS_ERROR;
1354: ELSE
1355: l_rev_comp_unexp_rec.revised_item_sequence_id :=
1356: l_Return_Value;
1357: -- dbms_output.put_line('Revised item sequence: ' || to_char(l_Return_Value));
1366: -- Convert Suggested_Vendor_Name to Vendor_Id
1367: --
1368:
1369: IF p_rev_component_rec.Suggested_Vendor_Name IS NOT NULL AND
1370: p_rev_component_rec.Suggested_Vendor_Name <> FND_API.G_MISS_CHAR
1371: THEN
1372: l_Return_Value := Vendor_Id
1373: ( p_vendor_name =>
1374: p_rev_component_rec.Suggested_Vendor_Name
1422: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1423: l_Return_status VARCHAR2(1);
1424: BEGIN
1425: l_rev_comp_unexp_rec := p_rev_comp_unexp_Rec;
1426: l_Return_status := FND_API.G_RET_STS_SUCCESS;
1427:
1428: /******************************************************
1429: --
1430: -- Verify that the unique key columns are not empty
1430: -- Verify that the unique key columns are not empty
1431: --
1432: ********************************************************/
1433: IF p_rev_component_rec.component_item_name IS NULL OR
1434: p_rev_component_rec.component_item_name = FND_API.G_MISS_CHAR
1435: THEN
1436: Error_Handler.Add_Error_Token
1437: ( p_Message_Name => 'BOM_RCOMP_NAME_KEYCOL_NULL'
1438: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1437: ( p_Message_Name => 'BOM_RCOMP_NAME_KEYCOL_NULL'
1438: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1439: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1440: );
1441: l_Return_Status := FND_API.G_RET_STS_ERROR;
1442: END IF;
1443:
1444: IF p_rev_component_rec.revised_item_name IS NULL OR
1445: p_rev_component_rec.revised_item_name = FND_API.G_MISS_CHAR
1441: l_Return_Status := FND_API.G_RET_STS_ERROR;
1442: END IF;
1443:
1444: IF p_rev_component_rec.revised_item_name IS NULL OR
1445: p_rev_component_rec.revised_item_name = FND_API.G_MISS_CHAR
1446: THEN
1447: Error_Handler.Add_Error_Token
1448: ( p_Message_Name => 'BOM_RCOMP_RITEM_KEYCOL_NULL'
1449: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1448: ( p_Message_Name => 'BOM_RCOMP_RITEM_KEYCOL_NULL'
1449: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1450: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1451: );
1452: l_Return_Status := FND_API.G_RET_STS_ERROR;
1453: END IF;
1454:
1455: IF (p_rev_component_rec.transaction_type <> BOM_globals.G_OPR_CREATE) AND
1456: (p_rev_component_rec.operation_sequence_number IS NULL OR
1453: END IF;
1454:
1455: IF (p_rev_component_rec.transaction_type <> BOM_globals.G_OPR_CREATE) AND
1456: (p_rev_component_rec.operation_sequence_number IS NULL OR
1457: p_rev_component_rec.operation_sequence_number = FND_API.G_MISS_NUM)
1458: THEN
1459: Error_Handler.Add_Error_Token
1460: ( p_Message_Name => 'BOM_RCOMP_OPSEQ_KEYCOL_NULL'
1461: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1460: ( p_Message_Name => 'BOM_RCOMP_OPSEQ_KEYCOL_NULL'
1461: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1462: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1463: );
1464: l_Return_Status := FND_API.G_RET_STS_ERROR;
1465: END IF;
1466:
1467: IF p_rev_component_rec.start_effective_date IS NULL OR
1468: p_rev_component_rec.start_effective_date = FND_API.G_MISS_DATE
1464: l_Return_Status := FND_API.G_RET_STS_ERROR;
1465: END IF;
1466:
1467: IF p_rev_component_rec.start_effective_date IS NULL OR
1468: p_rev_component_rec.start_effective_date = FND_API.G_MISS_DATE
1469: THEN
1470: Error_Handler.Add_Error_Token
1471: ( p_Message_Name => 'BOM_RCOMP_DATE_KEYCOL_NULL'
1472: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1471: ( p_Message_Name => 'BOM_RCOMP_DATE_KEYCOL_NULL'
1472: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1473: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1474: );
1475: l_Return_Status := FND_API.G_RET_STS_ERROR;
1476:
1477: END IF;
1478:
1479: --
1478:
1479: --
1480: -- If key columns are NULL, then return.
1481: --
1482: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1483: THEN
1484: x_Return_Status := FND_API.G_RET_STS_ERROR;
1485: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1486: RETURN;
1480: -- If key columns are NULL, then return.
1481: --
1482: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1483: THEN
1484: x_Return_Status := FND_API.G_RET_STS_ERROR;
1485: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1486: RETURN;
1487: END IF;
1488:
1513: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1514: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1515: , p_Token_Tbl => g_Token_Tbl
1516: );
1517: l_Return_Status := FND_API.G_RET_STS_ERROR;
1518:
1519: END IF;
1520:
1521: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1555: -- IF revised item key columns is NULL, then set the other
1556: -- message and return with an error.
1557: --
1558: IF (p_rev_component_rec.revised_item_name IS NULL OR
1559: p_rev_component_rec.revised_item_name = FND_API.G_MISS_CHAR)
1560: THEN
1561: Error_Handler.Add_Error_Token
1562: ( p_Message_Name => 'BOM_RCOMP_RITEM_KEYCOL_NULL'
1563: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1562: ( p_Message_Name => 'BOM_RCOMP_RITEM_KEYCOL_NULL'
1563: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1564: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1565: );
1566: l_Return_Status := FND_API.G_RET_STS_ERROR;
1567: END IF;
1568:
1569: IF p_rev_component_rec.start_effective_date IS NULL OR
1570: p_rev_component_rec.start_effective_date = FND_API.G_MISS_DATE
1566: l_Return_Status := FND_API.G_RET_STS_ERROR;
1567: END IF;
1568:
1569: IF p_rev_component_rec.start_effective_date IS NULL OR
1570: p_rev_component_rec.start_effective_date = FND_API.G_MISS_DATE
1571: THEN
1572: Error_Handler.Add_Error_Token
1573: ( p_Message_Name => 'BOM_RCOMP_DATE_KEYCOL_NULL'
1574: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1573: ( p_Message_Name => 'BOM_RCOMP_DATE_KEYCOL_NULL'
1574: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1575: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1576: );
1577: l_Return_Status := FND_API.G_RET_STS_ERROR;
1578:
1579: END IF;
1580:
1581: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1577: l_Return_Status := FND_API.G_RET_STS_ERROR;
1578:
1579: END IF;
1580:
1581: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1582: THEN
1583: x_return_status := l_return_status;
1584: x_other_message := 'BOM_REV_ITEM_KEY_NULL';
1585: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1590: --
1591: -- Convert Revised Item Name to Revised Item ID
1592: --
1593: ********************************************************/
1594: l_return_status := FND_API.G_RET_STS_SUCCESS;
1595: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
1596: g_Token_Tbl(1).Token_Value := p_rev_component_rec.revised_item_name;
1597: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1598: g_token_tbl(2).token_value := p_rev_component_rec.organization_code;
1608: );
1609:
1610:
1611: IF l_rev_comp_unexp_rec.revised_item_id IS NULL OR
1612: l_rev_comp_unexp_rec.revised_item_id = FND_API.G_MISS_NUM
1613: THEN
1614: Error_Handler.Add_Error_Token
1615: ( p_Message_Name => 'ENG_REVISED_ITEM_INVALID'
1616: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1616: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1617: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1618: , p_Token_Tbl => g_Token_Tbl
1619: );
1620: l_Return_Status := FND_API.G_RET_STS_ERROR;
1621:
1622: /* Added this code segment (including RETURN) so there
1623: is no error collection. UUI conversion code must exit
1624: as soon as a conversion error occurs.
1700: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1701: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1702: , p_Token_Tbl => g_Token_Tbl
1703: );
1704: l_Return_Status := FND_API.G_RET_STS_ERROR;
1705: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1706: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1707: x_Return_Status := l_Return_Status;
1708: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
1747: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1748: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1749: , p_Token_Tbl => g_Token_Tbl
1750: );
1751: l_Return_Status := FND_API.G_RET_STS_ERROR;
1752: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1753: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1754: x_Return_Status := l_Return_Status;
1755: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
1780: ) AND
1781: l_rev_comp_unexp_rec.bill_sequence_id IS NULL
1782: AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_ECO_BO -- Added by MK on 12/03/00
1783: THEN
1784: l_return_status := FND_API.G_RET_STS_ERROR;
1785:
1786: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
1787: g_Token_Tbl(1).Token_Value :=
1788: p_rev_component_rec.revised_item_name;
1806:
1807: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing UUI_UI2 for components and retrieving enforce integer requirements code . . . '); END IF;
1808:
1809: IF p_rev_component_rec.enforce_int_requirements IS NOT NULL AND
1810: p_rev_component_rec.enforce_int_requirements <> FND_API.G_MISS_CHAR
1811: THEN
1812: l_rev_comp_unexp_rec.enforce_int_requirements_code :=
1813: Get_EnforceInteger_Code(
1814: p_enforce_integer => p_rev_component_rec.enforce_int_requirements);
1812: l_rev_comp_unexp_rec.enforce_int_requirements_code :=
1813: Get_EnforceInteger_Code(
1814: p_enforce_integer => p_rev_component_rec.enforce_int_requirements);
1815: IF l_rev_comp_unexp_rec.enforce_int_requirements_code IS NULL AND
1816: l_rev_comp_unexp_rec.enforce_int_requirements_code = FND_API.G_MISS_NUM
1817: THEN
1818: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
1819: g_Token_Tbl(1).Token_Value :=
1820: p_rev_component_rec.revised_item_name;
1873: l_return_status VARCHAR2(1);
1874: l_token_tbl Error_Handler.Token_Tbl_Type;
1875: BEGIN
1876: l_sub_comp_unexp_rec := p_sub_comp_unexp_rec;
1877: l_return_status := FND_API.G_RET_STS_SUCCESS;
1878:
1879: /*************************************************************
1880: --
1881: -- Verify ACD Type is Add or Disable
1891: ( p_Message_Name => 'BOM_SBC_ACD_TYPE_INVALID'
1892: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1893: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1894: );
1895: l_Return_Status := FND_API.G_RET_STS_ERROR;
1896: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1897: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
1898: x_Return_Status := l_Return_Status;
1899: RETURN;
1905: -- not null
1906: --
1907: ****************************************************************/
1908: IF p_sub_component_rec.substitute_component_name IS NULL OR
1909: p_sub_component_rec.substitute_component_name = FND_API.G_MISS_CHAR
1910: THEN
1911: Error_Handler.Add_Error_Token
1912: ( p_Message_Name => 'BOM_SCOMP_NAME_KEYCOL_NULL'
1913: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1912: ( p_Message_Name => 'BOM_SCOMP_NAME_KEYCOL_NULL'
1913: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1914: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1915: );
1916: l_Return_Status := FND_API.G_RET_STS_ERROR;
1917: END IF;
1918: IF p_sub_component_rec.component_item_name IS NULL OR
1919: p_sub_component_rec.component_item_name = FND_API.G_MISS_CHAR
1920: THEN
1915: );
1916: l_Return_Status := FND_API.G_RET_STS_ERROR;
1917: END IF;
1918: IF p_sub_component_rec.component_item_name IS NULL OR
1919: p_sub_component_rec.component_item_name = FND_API.G_MISS_CHAR
1920: THEN
1921: Error_Handler.Add_Error_Token
1922: ( p_Message_Name => 'BOM_SCOMP_RCOMP_KEYCOL_NULL'
1923: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1922: ( p_Message_Name => 'BOM_SCOMP_RCOMP_KEYCOL_NULL'
1923: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1924: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1925: );
1926: l_Return_Status := FND_API.G_RET_STS_ERROR;
1927: END IF;
1928: IF p_sub_component_rec.revised_item_name IS NULL OR
1929: p_sub_component_rec.revised_item_name = FND_API.G_MISS_CHAR
1930: THEN
1925: );
1926: l_Return_Status := FND_API.G_RET_STS_ERROR;
1927: END IF;
1928: IF p_sub_component_rec.revised_item_name IS NULL OR
1929: p_sub_component_rec.revised_item_name = FND_API.G_MISS_CHAR
1930: THEN
1931: Error_Handler.Add_Error_Token
1932: ( p_Message_Name => 'BOM_SCOMP_RITEM_KEYCOL_NULL'
1933: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1932: ( p_Message_Name => 'BOM_SCOMP_RITEM_KEYCOL_NULL'
1933: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1934: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1935: );
1936: l_Return_Status := FND_API.G_RET_STS_ERROR;
1937: END IF;
1938:
1939: IF p_sub_component_rec.operation_sequence_number IS NULL OR
1940: p_sub_component_rec.operation_sequence_number = FND_API.G_MISS_NUM
1936: l_Return_Status := FND_API.G_RET_STS_ERROR;
1937: END IF;
1938:
1939: IF p_sub_component_rec.operation_sequence_number IS NULL OR
1940: p_sub_component_rec.operation_sequence_number = FND_API.G_MISS_NUM
1941: THEN
1942: Error_Handler.Add_Error_Token
1943: ( p_Message_Name => 'BOM_SCOMP_OPSEQ_KEYCOL_NULL'
1944: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1943: ( p_Message_Name => 'BOM_SCOMP_OPSEQ_KEYCOL_NULL'
1944: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1945: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1946: );
1947: l_Return_Status := FND_API.G_RET_STS_ERROR;
1948: END IF;
1949:
1950: IF p_sub_component_rec.start_effective_date IS NULL OR
1951: p_sub_component_rec.start_effective_date = FND_API.G_MISS_DATE
1947: l_Return_Status := FND_API.G_RET_STS_ERROR;
1948: END IF;
1949:
1950: IF p_sub_component_rec.start_effective_date IS NULL OR
1951: p_sub_component_rec.start_effective_date = FND_API.G_MISS_DATE
1952: THEN
1953: Error_Handler.Add_Error_Token
1954: ( p_Message_Name => 'BOM_SCOMP_DATE_KEYCOL_NULL'
1955: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1954: ( p_Message_Name => 'BOM_SCOMP_DATE_KEYCOL_NULL'
1955: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1956: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1957: );
1958: l_Return_Status := FND_API.G_RET_STS_ERROR;
1959: END IF;
1960:
1961: --
1962: -- If key columns are NULL, then return.
1960:
1961: --
1962: -- If key columns are NULL, then return.
1963: --
1964: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1965: THEN
1966: x_return_status := l_return_status;
1967: x_mesg_token_tbl := l_mesg_token_tbl;
1968: RETURN;
1994: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1995: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1996: , p_Token_Tbl => g_Token_Tbl
1997: );
1998: l_Return_Status := FND_API.G_RET_STS_ERROR;
1999: END IF;
2000:
2001: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2002: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2008: --
2009: *********************************************************************/
2010:
2011: IF ( p_Sub_Component_Rec.new_substitute_component_name is not null
2012: AND p_sub_component_rec.substitute_component_name <> FND_API.G_MISS_CHAR
2013: and p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_UPDATE)
2014: THEN
2015: l_sub_comp_unexp_rec.new_substitute_component_id :=
2016: Substitute_Component( p_substitute_component =>
2033: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2034: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2035: , p_Token_Tbl => g_Token_Tbl
2036: );
2037: l_Return_Status := FND_API.G_RET_STS_ERROR;
2038: END IF;
2039:
2040: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2041: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2068: l_return_status VARCHAR2(1);
2069: l_dummy NUMBER;
2070: BEGIN
2071: l_sub_comp_unexp_rec := p_sub_comp_unexp_rec;
2072: l_return_status := FND_API.G_RET_STS_SUCCESS;
2073:
2074:
2075: --
2076: -- If any of the revised item key columns are NULL, then
2076: -- If any of the revised item key columns are NULL, then
2077: -- return with an other message
2078: --
2079: IF p_sub_component_rec.revised_item_name IS NULL OR
2080: p_sub_component_rec.revised_item_name = FND_API.G_MISS_CHAR
2081: THEN
2082: Error_Handler.Add_Error_Token
2083: ( p_Message_Name => 'BOM_SCOMP_RITEM_KEYCOL_NULL'
2084: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2083: ( p_Message_Name => 'BOM_SCOMP_RITEM_KEYCOL_NULL'
2084: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2085: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2086: );
2087: l_Return_Status := FND_API.G_RET_STS_ERROR;
2088: END IF;
2089:
2090: --
2091: -- If key any of the parent key columns are NULL, then return.
2089:
2090: --
2091: -- If key any of the parent key columns are NULL, then return.
2092: --
2093: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2094: THEN
2095: x_return_status := l_return_status;
2096: x_mesg_token_tbl := l_mesg_token_tbl;
2097: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2099: RETURN;
2100: END IF;
2101:
2102: IF p_sub_component_rec.component_item_name IS NULL OR
2103: p_sub_component_rec.component_item_name = FND_API.G_MISS_CHAR
2104: THEN
2105: Error_Handler.Add_Error_Token
2106: ( p_Message_Name => 'BOM_SCOMP_RCOMP_KEYCOL_NULL'
2107: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2106: ( p_Message_Name => 'BOM_SCOMP_RCOMP_KEYCOL_NULL'
2107: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2108: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2109: );
2110: l_Return_Status := FND_API.G_RET_STS_ERROR;
2111: END IF;
2112:
2113: IF p_sub_component_rec.operation_sequence_number IS NULL OR
2114: p_sub_component_rec.operation_sequence_number = FND_API.G_MISS_NUM
2110: l_Return_Status := FND_API.G_RET_STS_ERROR;
2111: END IF;
2112:
2113: IF p_sub_component_rec.operation_sequence_number IS NULL OR
2114: p_sub_component_rec.operation_sequence_number = FND_API.G_MISS_NUM
2115: THEN
2116: Error_Handler.Add_Error_Token
2117: ( p_Message_Name => 'BOM_SCOMP_OPSEQ_KEYCOL_NULL'
2118: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2117: ( p_Message_Name => 'BOM_SCOMP_OPSEQ_KEYCOL_NULL'
2118: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2119: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2120: );
2121: l_Return_Status := FND_API.G_RET_STS_ERROR;
2122: END IF;
2123:
2124: IF p_sub_component_rec.start_effective_date IS NULL OR
2125: p_sub_component_rec.start_effective_date = FND_API.G_MISS_DATE
2121: l_Return_Status := FND_API.G_RET_STS_ERROR;
2122: END IF;
2123:
2124: IF p_sub_component_rec.start_effective_date IS NULL OR
2125: p_sub_component_rec.start_effective_date = FND_API.G_MISS_DATE
2126: THEN
2127: Error_Handler.Add_Error_Token
2128: ( p_Message_Name => 'BOM_SCOMP_DATE_KEYCOL_NULL'
2129: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2128: ( p_Message_Name => 'BOM_SCOMP_DATE_KEYCOL_NULL'
2129: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2130: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2131: );
2132: l_Return_Status := FND_API.G_RET_STS_ERROR;
2133: END IF;
2134:
2135: --
2136: -- If any of the revised component key columns are NULL, then
2135: --
2136: -- If any of the revised component key columns are NULL, then
2137: -- return with an other message.
2138: --
2139: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2140: THEN
2141: x_return_status := l_return_status;
2142: x_mesg_token_tbl := l_mesg_token_tbl;
2143: x_other_message := 'BOM_REV_COMP_KEY_NULL';
2177: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2178: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2179: , p_Token_Tbl => g_Token_Tbl
2180: );
2181: l_Return_Status := FND_API.G_RET_STS_ERROR;
2182: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2183: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2184: --
2185: -- Set the other message and its tokens
2220: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2221: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2222: , p_Token_Tbl => g_Token_Tbl
2223: );
2224: l_Return_Status := FND_API.G_RET_STS_ERROR;
2225: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2226: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2227: --
2228: -- Set the other message and its tokens
2294: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2295: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2296: , p_Token_Tbl => g_Token_Tbl
2297: );
2298: l_Return_Status := FND_API.G_RET_STS_ERROR;
2299: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2300: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2301: --
2302: -- Set the other message and its tokens
2342: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2343: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2344: , p_Token_Tbl => g_Token_Tbl
2345: );
2346: l_Return_Status := FND_API.G_RET_STS_ERROR;
2347: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2348: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2349: x_Return_Status := l_Return_Status;
2350: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
2407: x_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
2408: x_other_token_tbl(1).token_value :=
2409: p_sub_component_rec.substitute_component_name;
2410:
2411: l_Return_Status := FND_API.G_RET_STS_ERROR;
2412: g_Token_Tbl.Delete;
2413: END IF;
2414: END IF; -- If-Else BO Is ECO Ends -- Added by MK on 12/03/00
2415:
2428: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2429: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2430: , p_Token_Tbl => g_Token_Tbl
2431: );
2432: l_Return_Status := FND_API.G_RET_STS_ERROR;
2433: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2434: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2435: x_Return_Status := l_Return_Status;
2436: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
2443:
2444: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Enforce Int Requirements ' || p_sub_component_rec.enforce_int_requirements); END IF;
2445:
2446: IF p_sub_component_rec.enforce_int_requirements IS NOT NULL AND
2447: p_sub_component_rec.enforce_int_requirements <> FND_API.G_MISS_CHAR
2448: THEN
2449:
2450: l_sub_comp_unexp_rec.enforce_int_requirements_code :=
2451: Get_EnforceInteger_Code(
2453:
2454: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Enforce Int Requirements code ' || to_char(l_sub_comp_unexp_rec.enforce_int_requirements_code)); END IF;
2455:
2456: IF l_sub_comp_unexp_rec.enforce_int_requirements_code IS NULL AND
2457: l_sub_comp_unexp_rec.enforce_int_requirements_code = FND_API.G_MISS_NUM
2458: THEN
2459: g_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
2460: g_Token_Tbl(1).Token_Value :=
2461: p_sub_component_rec.component_item_name;
2516: l_token_tbl Error_Handler.Token_Tbl_Type;
2517:
2518: BEGIN
2519:
2520: l_return_status := FND_API.G_RET_STS_SUCCESS;
2521:
2522: /***************************************************************
2523: --
2524: -- Verify that ACD_Type is Valid
2551: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2552: , p_Token_Tbl => l_Token_Tbl --added for bug 9647673
2553:
2554: );
2555: l_Return_Status := FND_API.G_RET_STS_ERROR;
2556: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2557: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2558: x_Return_Status := l_Return_Status;
2559: RETURN;
2575: -- not null
2576: --
2577: ****************************************************************/
2578: IF p_ref_designator_rec.reference_designator_name IS NULL OR
2579: p_ref_designator_rec.reference_designator_name = FND_API.G_MISS_CHAR
2580: THEN
2581: Error_Handler.Add_Error_Token
2582: ( p_Message_Name => 'BOM_RDESG_NAME_KEYCOL_NULL'
2583: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2582: ( p_Message_Name => 'BOM_RDESG_NAME_KEYCOL_NULL'
2583: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2584: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2585: );
2586: l_Return_Status := FND_API.G_RET_STS_ERROR;
2587:
2588: END IF;
2589:
2590: IF p_ref_designator_rec.component_item_name IS NULL OR
2587:
2588: END IF;
2589:
2590: IF p_ref_designator_rec.component_item_name IS NULL OR
2591: p_ref_designator_rec.component_item_name = FND_API.G_MISS_CHAR
2592: THEN
2593: Error_Handler.Add_Error_Token
2594: ( p_Message_Name => 'BOM_RDESG_RCOMP_KEYCOL_NULL'
2595: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2594: ( p_Message_Name => 'BOM_RDESG_RCOMP_KEYCOL_NULL'
2595: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2596: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2597: );
2598: l_Return_Status := FND_API.G_RET_STS_ERROR;
2599:
2600: END IF;
2601:
2602: IF p_ref_designator_rec.revised_item_name IS NULL OR
2599:
2600: END IF;
2601:
2602: IF p_ref_designator_rec.revised_item_name IS NULL OR
2603: p_ref_designator_rec.revised_item_name = FND_API.G_MISS_CHAR
2604: THEN
2605: Error_Handler.Add_Error_Token
2606: ( p_Message_Name => 'BOM_RDESG_RITEM_KEYCOL_NULL'
2607: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2606: ( p_Message_Name => 'BOM_RDESG_RITEM_KEYCOL_NULL'
2607: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2608: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2609: );
2610: l_Return_Status := FND_API.G_RET_STS_ERROR;
2611:
2612: END IF;
2613:
2614: IF p_ref_designator_rec.operation_sequence_number IS NULL OR
2611:
2612: END IF;
2613:
2614: IF p_ref_designator_rec.operation_sequence_number IS NULL OR
2615: p_ref_designator_rec.operation_sequence_number = FND_API.G_MISS_NUM
2616: THEN
2617: Error_Handler.Add_Error_Token
2618: ( p_Message_Name => 'BOM_RDESG_OPSEQ_KEYCOL_NULL'
2619: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2618: ( p_Message_Name => 'BOM_RDESG_OPSEQ_KEYCOL_NULL'
2619: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2620: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2621: );
2622: l_Return_Status := FND_API.G_RET_STS_ERROR;
2623:
2624: END IF;
2625:
2626: IF p_ref_designator_rec.start_effective_date IS NULL OR
2623:
2624: END IF;
2625:
2626: IF p_ref_designator_rec.start_effective_date IS NULL OR
2627: p_ref_designator_rec.start_effective_date = FND_API.G_MISS_DATE
2628: THEN
2629: Error_Handler.Add_Error_Token
2630: ( p_Message_Name => 'BOM_RDESG_DATE_KEYCOL_NULL'
2631: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2630: ( p_Message_Name => 'BOM_RDESG_DATE_KEYCOL_NULL'
2631: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2632: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2633: );
2634: l_Return_Status := FND_API.G_RET_STS_ERROR;
2635: END IF;
2636:
2637: --
2638: -- If key columns are NULL then return
2636:
2637: --
2638: -- If key columns are NULL then return
2639: --
2640: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2641: THEN
2642: x_return_status := l_return_status;
2643: x_mesg_token_tbl := l_mesg_token_tbl;
2644: RETURN;
2678: -- If any of the revised item key columns are NULL, then set the
2679: -- other message and its token and return.
2680: --
2681: IF p_ref_designator_rec.revised_item_name IS NULL OR
2682: p_ref_designator_rec.revised_item_name = FND_API.G_MISS_CHAR
2683: THEN
2684: Error_Handler.Add_Error_Token
2685: ( p_Message_Name => 'BOM_RDESG_RITEM_KEYCOL_NULL'
2686: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2685: ( p_Message_Name => 'BOM_RDESG_RITEM_KEYCOL_NULL'
2686: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2687: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2688: );
2689: l_Return_Status := FND_API.G_RET_STS_ERROR;
2690:
2691: END IF;
2692:
2693: --
2692:
2693: --
2694: -- Return if revised item key is NULL
2695: --
2696: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2697: THEN
2698: x_return_status := l_return_status;
2699: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2700: x_mesg_token_tbl := l_mesg_token_tbl;
2702: RETURN;
2703: END IF;
2704:
2705: IF p_ref_designator_rec.component_item_name IS NULL OR
2706: p_ref_designator_rec.component_item_name = FND_API.G_MISS_CHAR
2707: THEN
2708: Error_Handler.Add_Error_Token
2709: ( p_Message_Name => 'BOM_RDESG_RCOMP_KEYCOL_NULL'
2710: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2709: ( p_Message_Name => 'BOM_RDESG_RCOMP_KEYCOL_NULL'
2710: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2711: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2712: );
2713: l_Return_Status := FND_API.G_RET_STS_ERROR;
2714:
2715: END IF;
2716:
2717: IF p_ref_designator_rec.operation_sequence_number IS NULL OR
2714:
2715: END IF;
2716:
2717: IF p_ref_designator_rec.operation_sequence_number IS NULL OR
2718: p_ref_designator_rec.operation_sequence_number = FND_API.G_MISS_NUM
2719: THEN
2720: Error_Handler.Add_Error_Token
2721: ( p_Message_Name => 'BOM_RDESG_OPSEQ_KEYCOL_NULL'
2722: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2721: ( p_Message_Name => 'BOM_RDESG_OPSEQ_KEYCOL_NULL'
2722: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2723: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2724: );
2725: l_Return_Status := FND_API.G_RET_STS_ERROR;
2726:
2727: END IF;
2728:
2729: IF p_ref_designator_rec.start_effective_date IS NULL OR
2726:
2727: END IF;
2728:
2729: IF p_ref_designator_rec.start_effective_date IS NULL OR
2730: p_ref_designator_rec.start_effective_date = FND_API.G_MISS_DATE
2731: THEN
2732: Error_Handler.Add_Error_Token
2733: ( p_Message_Name => 'BOM_RDESG_DATE_KEYCOL_NULL'
2734: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2733: ( p_Message_Name => 'BOM_RDESG_DATE_KEYCOL_NULL'
2734: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2735: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2736: );
2737: l_Return_Status := FND_API.G_RET_STS_ERROR;
2738: END IF;
2739:
2740: --
2741: -- If key columns are NULL then return
2739:
2740: --
2741: -- If key columns are NULL then return
2742: --
2743: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2744: THEN
2745: x_return_status := l_return_status;
2746: x_mesg_token_tbl := l_mesg_token_tbl;
2747: x_other_message := 'BOM_REV_COMP_KEY_NULL';
2773: , p_Token_Tbl => g_Token_Tbl
2774: );
2775: g_token_tbl.delete(2);
2776:
2777: l_Return_Status := FND_API.G_RET_STS_ERROR;
2778: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2779: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2780: --
2781: -- Set the other message
2817: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2818: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2819: , p_Token_Tbl => g_Token_Tbl
2820: );
2821: l_Return_Status := FND_API.G_RET_STS_ERROR;
2822: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2823: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2824: --
2825: -- Set the other message
2885: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2886: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2887: , p_Token_Tbl => g_Token_Tbl
2888: );
2889: l_Return_Status := FND_API.G_RET_STS_ERROR;
2890: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2891: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2892: --
2893: -- Set the other message
2933: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2934: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2935: , p_Token_Tbl => g_Token_Tbl
2936: );
2937: l_Return_Status := FND_API.G_RET_STS_ERROR;
2938: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2939: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2940: x_Return_Status := l_Return_Status;
2941: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
2965: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2966: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2967: , p_Token_Tbl => g_Token_Tbl
2968: );
2969: l_Return_Status := FND_API.G_RET_STS_ERROR;
2970: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2971: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2972: --
2973: -- Set the other message
3022: x_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
3023: x_other_token_tbl(1).token_value :=
3024: p_ref_designator_rec.reference_designator_name;
3025:
3026: l_Return_Status := FND_API.G_RET_STS_ERROR;
3027: g_Token_Tbl.Delete;
3028: END IF;
3029: END IF; -- Added by MK on 12/04/00
3030:
3043: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3044: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3045: , p_Token_Tbl => g_Token_Tbl
3046: );
3047: l_Return_Status := FND_API.G_RET_STS_ERROR;
3048: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3049: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
3050: x_Return_Status := l_Return_Status;
3051: x_other_message := 'BOM_RFD_UUI_SEV_ERROR';
3409: l_Return_Status VARCHAR2(1);
3410: l_token_tbl Error_Handler.Token_Tbl_Type;
3411: BEGIN
3412:
3413: l_return_status := FND_API.G_RET_STS_SUCCESS;
3414:
3415: /****************************************************************
3416: --
3417: -- Convert assembly item name to assembly item ID
3428: -- not null
3429: --
3430: ****************************************************************/
3431: IF p_bom_comp_ops_rec.operation_sequence_number IS NULL OR
3432: p_bom_comp_ops_rec.operation_sequence_number = FND_API.G_MISS_NUM
3433: THEN
3434: Error_Handler.Add_Error_Token
3435: ( p_Message_Name => 'BOM_COPS_OPSEQ_KEYCOL_NULL'
3436: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3435: ( p_Message_Name => 'BOM_COPS_OPSEQ_KEYCOL_NULL'
3436: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3437: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3438: );
3439: l_Return_Status := FND_API.G_RET_STS_ERROR;
3440:
3441: END IF;
3442:
3443: IF p_bom_comp_ops_rec.additional_operation_seq_num IS NULL OR
3440:
3441: END IF;
3442:
3443: IF p_bom_comp_ops_rec.additional_operation_seq_num IS NULL OR
3444: p_bom_comp_ops_rec.additional_operation_seq_num = FND_API.G_MISS_NUM
3445: THEN
3446: Error_Handler.Add_Error_Token
3447: ( p_Message_Name => 'BOM_COPS_AOPSEQ_KEYCOL_NULL'
3448: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3447: ( p_Message_Name => 'BOM_COPS_AOPSEQ_KEYCOL_NULL'
3448: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3449: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3450: );
3451: l_Return_Status := FND_API.G_RET_STS_ERROR;
3452:
3453: END IF;
3454:
3455: IF p_bom_comp_ops_rec.component_item_name IS NULL OR
3452:
3453: END IF;
3454:
3455: IF p_bom_comp_ops_rec.component_item_name IS NULL OR
3456: p_bom_comp_ops_rec.component_item_name = FND_API.G_MISS_CHAR
3457: THEN
3458: Error_Handler.Add_Error_Token
3459: ( p_Message_Name => 'BOM_COPS_COMP_KEYCOL_NULL'
3460: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3459: ( p_Message_Name => 'BOM_COPS_COMP_KEYCOL_NULL'
3460: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3461: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3462: );
3463: l_Return_Status := FND_API.G_RET_STS_ERROR;
3464:
3465: END IF;
3466:
3467: IF p_bom_comp_ops_rec.assembly_item_name IS NULL OR
3464:
3465: END IF;
3466:
3467: IF p_bom_comp_ops_rec.assembly_item_name IS NULL OR
3468: p_bom_comp_ops_rec.assembly_item_name = FND_API.G_MISS_CHAR
3469: THEN
3470: Error_Handler.Add_Error_Token
3471: ( p_Message_Name => 'BOM_COPS_ITEM_KEYCOL_NULL'
3472: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3471: ( p_Message_Name => 'BOM_COPS_ITEM_KEYCOL_NULL'
3472: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3473: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3474: );
3475: l_Return_Status := FND_API.G_RET_STS_ERROR;
3476:
3477: END IF;
3478:
3479: IF p_bom_comp_ops_rec.organization_code IS NULL OR
3476:
3477: END IF;
3478:
3479: IF p_bom_comp_ops_rec.organization_code IS NULL OR
3480: p_bom_comp_ops_rec.organization_code = FND_API.G_MISS_CHAR
3481: THEN
3482: Error_Handler.Add_Error_Token
3483: ( p_Message_Name => 'BOM_COPS_ORG_KEYCOL_NULL'
3484: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3483: ( p_Message_Name => 'BOM_COPS_ORG_KEYCOL_NULL'
3484: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3485: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3486: );
3487: l_Return_Status := FND_API.G_RET_STS_ERROR;
3488:
3489: END IF;
3490:
3491: IF p_bom_comp_ops_rec.start_effective_date IS NULL OR
3488:
3489: END IF;
3490:
3491: IF p_bom_comp_ops_rec.start_effective_date IS NULL OR
3492: p_bom_comp_ops_rec.start_effective_date = FND_API.G_MISS_DATE
3493: THEN
3494: Error_Handler.Add_Error_Token
3495: ( p_Message_Name => 'BOM_COPS_DATE_KEYCOL_NULL'
3496: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3495: ( p_Message_Name => 'BOM_COPS_DATE_KEYCOL_NULL'
3496: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3497: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3498: );
3499: l_Return_Status := FND_API.G_RET_STS_ERROR;
3500: END IF;
3501:
3502: --
3503: -- If key columns are NULL then return
3501:
3502: --
3503: -- If key columns are NULL then return
3504: --
3505: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3506: THEN
3507: x_return_status := l_return_status;
3508: x_mesg_token_tbl := l_mesg_token_tbl;
3509: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3566: , p_Token_Tbl => g_Token_Tbl
3567: );
3568: g_token_tbl.delete(2);
3569:
3570: l_Return_Status := FND_API.G_RET_STS_ERROR;
3571: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3572: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3573: --
3574: -- Set the other message
3614: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3615: , p_Token_Tbl => g_Token_Tbl
3616: );
3617:
3618: l_Return_Status := FND_API.G_RET_STS_ERROR;
3619: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3620: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3621: --
3622: -- Set the other message
3667: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3668: , p_Token_Tbl => g_Token_Tbl
3669: );
3670:
3671: l_Return_Status := FND_API.G_RET_STS_ERROR;
3672: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3673: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3674:
3675: x_other_message := 'BOM_COPS_UUI2_SEV_ERROR';
3698: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3699: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3700: , p_Token_Tbl => g_Token_Tbl
3701: );
3702: l_Return_Status := FND_API.G_RET_STS_ERROR;
3703: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3704: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3705: x_Return_Status := l_Return_Status;
3706: x_other_message := 'BOM_COPS_UUI2_SEV_ERROR';
3746: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3747: , p_Token_Tbl => g_Token_Tbl
3748: );
3749:
3750: l_Return_Status := FND_API.G_RET_STS_ERROR;
3751: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3752: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3753:
3754: --
3800: , p_Token_Tbl => g_Token_Tbl
3801: );
3802:
3803:
3804: l_Return_Status := FND_API.G_RET_STS_ERROR;
3805: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3806: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3807:
3808: --
3854: , p_Token_Tbl => g_Token_Tbl
3855: );
3856:
3857:
3858: l_Return_Status := FND_API.G_RET_STS_ERROR;
3859: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3860: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3861:
3862: --
3889: --
3890: ******************************************************************/
3891: If(p_bom_comp_ops_rec.transaction_type = BOM_globals.G_OPR_UPDATE and
3892: p_bom_comp_ops_rec.new_additional_op_seq_num is not null and
3893: p_bom_comp_ops_rec.new_additional_op_seq_num <> FND_API.G_MISS_NUM) then
3894:
3895: l_bom_comp_ops_unexp_rec.new_additional_op_seq_id :=
3896: Operation_Sequence_Id( p_organization_id =>
3897: l_bom_comp_ops_unexp_rec.organization_id
3919: , p_Token_Tbl => g_Token_Tbl
3920: );
3921:
3922:
3923: l_Return_Status := FND_API.G_RET_STS_ERROR;
3924: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3925: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3926:
3927: --