[Home] [Help]
133: RETURN NULL;
134:
135: WHEN OTHERS THEN
136: x_err_text := sqlerrm;
137: RETURN FND_API.G_MISS_NUM;
138:
139: END Operation_Sequence_Id;
140:
141:
169: WHEN NO_DATA_FOUND THEN
170: RETURN NULL;
171:
172: WHEN OTHERS THEN
173: RETURN FND_API.G_MISS_NUM;
174:
175: END Organization;
176:
177: /**********************************************************************
295: FROM bom_bill_of_materials
296: WHERE assembly_item_id = p_assembly_item_id
297: AND NVL(alternate_bom_designator, 'NONE') =
298: -- NVL(p_alternate_bom_designator, 'NONE')
299: decode(p_alternate_bom_designator,FND_API.G_MISS_CHAR,'NONE',NULL,'NONE',p_alternate_bom_designator) --2783251
300: AND organization_id = p_organization_id;
301:
302: RETURN l_id;
303:
401: WHERE alternate_designator_code = p_alt_designator
402: AND organization_id = p_organization_id;
403:
404: BEGIN
405: x_return_status := FND_API.G_RET_STS_SUCCESS;
406: l_bom_header_unexp_rec := p_bom_header_unexp_rec;
407:
408:
409: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bom Header UUI-UI Conversion . . '); END IF;
412: --
413: -- Assembly Item name cannot be NULL or missing.
414: --
415: IF p_bom_header_rec.assembly_item_name IS NULL OR
416: p_bom_header_rec.assembly_item_name = FND_API.G_MISS_CHAR
417: THEN
418: Error_Handler.Add_Error_Token
419: ( p_message_name => 'BOM_AITEM_NAME_KEYCOL_NULL'
420: , p_mesg_token_tbl => l_mesg_token_tbl
420: , p_mesg_token_tbl => l_mesg_token_tbl
421: , x_mesg_token_tbl => l_mesg_token_tbl
422: );
423:
424: l_return_status := FND_API.G_RET_STS_ERROR;
425: END IF;
426:
427: --
428: -- Assembly item name must be successfully converted to id.
449: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
450: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
451: , p_Token_Tbl => g_Token_Tbl
452: );
453: l_Return_Status := FND_API.G_RET_STS_ERROR;
454: ELSIF l_err_text IS NOT NULL AND
455: (l_bom_header_unexp_rec.assembly_item_id IS NULL OR
456: l_bom_header_unexp_rec.assembly_item_id = FND_API.G_MISS_NUM)
457: THEN
452: );
453: l_Return_Status := FND_API.G_RET_STS_ERROR;
454: ELSIF l_err_text IS NOT NULL AND
455: (l_bom_header_unexp_rec.assembly_item_id IS NULL OR
456: l_bom_header_unexp_rec.assembly_item_id = FND_API.G_MISS_NUM)
457: THEN
458: -- This is an unexpected error.
459: Error_Handler.Add_Error_Token
460: ( p_Message_Name => NULL
462: G_PKG_NAME
463: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
464: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
465: );
466: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
467: END IF;
468:
469: 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;
470:
468:
469: 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;
470:
471: IF p_bom_header_rec.alternate_bom_code IS NOT NULL AND
472: p_bom_header_rec.alternate_bom_code <> FND_API.G_MISS_CHAR
473: THEN
474: l_err_text := FND_API.G_RET_STS_ERROR;
475:
476: FOR check_alternate IN
470:
471: IF p_bom_header_rec.alternate_bom_code IS NOT NULL AND
472: p_bom_header_rec.alternate_bom_code <> FND_API.G_MISS_CHAR
473: THEN
474: l_err_text := FND_API.G_RET_STS_ERROR;
475:
476: FOR check_alternate IN
477: c_Check_Alternate
478: ( p_alt_designator => p_bom_header_rec.alternate_bom_code,
477: c_Check_Alternate
478: ( p_alt_designator => p_bom_header_rec.alternate_bom_code,
479: p_organization_id => l_bom_header_unexp_rec.organization_id )
480: LOOP
481: l_err_text := FND_API.G_RET_STS_SUCCESS;
482: END LOOP;
483:
484: IF l_err_text <> FND_API.G_RET_STS_SUCCESS
485: THEN
480: LOOP
481: l_err_text := FND_API.G_RET_STS_SUCCESS;
482: END LOOP;
483:
484: IF l_err_text <> FND_API.G_RET_STS_SUCCESS
485: THEN
486: g_token_tbl(1).token_name := 'ALTERNATE_BOM_CODE';
487: g_token_tbl(1).token_value :=
488: p_bom_header_rec.alternate_bom_code;
494: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
495: , p_token_tbl => g_token_tbl
496: );
497:
498: l_return_status := FND_API.G_RET_STS_ERROR;
499: END IF;
500: END IF;
501:
502: x_return_status := l_return_status;
528: , x_bom_head_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
529: , p_bom_header_Rec IN Bom_Bo_Pub.Bom_Head_Rec_Type
530: )
531: IS
532: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
533: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
534: l_err_text VARCHAR2(2000);
535: l_Token_Tbl Error_Handler.Token_Tbl_Type;
536: l_bom_head_unexp_rec Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
542: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Header VID conversion . . . ');
543: END IF;
544: IF p_bom_header_rec.common_organization_code IS NOT NULL AND
545: p_bom_header_rec.common_organization_code <>
546: FND_API.G_MISS_CHAR
547: THEN
548: l_bom_head_unexp_rec.common_organization_id :=
549: Organization( p_organization =>
550: p_bom_header_rec.common_organization_code , x_err_text => l_err_text
561: , p_Message_name =>
562: 'BOM_COMMON_ORG_INVALID'
563: , p_token_tbl => l_token_tbl
564: );
565: l_return_status := FND_API.G_RET_STS_ERROR;
566: END IF;
567: ELSIF p_bom_header_rec.common_organization_code IS NULL AND
568: p_bom_header_rec.common_assembly_item_name IS NOT NULL
569: THEN
578: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Common Org Converted . . .'); END IF;
579:
580: IF p_bom_header_rec.common_assembly_item_name IS NOT NULL AND
581: p_bom_header_rec.common_assembly_item_name <>
582: FND_API.G_MISS_CHAR
583: THEN
584: l_bom_head_unexp_rec.common_assembly_item_id :=
585: Assembly_Item
586: ( p_assembly_item_name =>
601: , p_Message_name =>
602: 'BOM_COMMON_ASSY_INVALID'
603: , p_token_tbl => l_token_tbl
604: );
605: l_return_status := FND_API.G_RET_STS_ERROR;
606: ELSIF l_err_text IS NOT NULL AND
607: l_bom_head_unexp_rec.common_assembly_item_id
608: IS NULL
609: THEN
614: 'Unexpected Error ' || l_err_text || ' in ' ||
615: G_PKG_NAME
616: , p_token_tbl => l_token_tbl
617: );
618: l_return_status :=FND_API.G_RET_STS_UNEXP_ERROR;
619: END IF;
620: END IF;
621:
622: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converted common assembly name . . .'); end if;
627: --
628: IF l_bom_head_unexp_rec.common_organization_id IS NOT NULL AND
629: l_bom_head_unexp_rec.common_assembly_item_id IS NOT NULL AND
630: l_bom_head_unexp_rec.common_organization_id <>
631: FND_API.G_MISS_NUM AND
632: l_bom_head_unexp_rec.common_assembly_item_id <>
633: FND_API.G_MISS_NUM
634: THEN
635: l_src_bill_sequence_id := Bill_Sequence_Id
629: l_bom_head_unexp_rec.common_assembly_item_id IS NOT NULL AND
630: l_bom_head_unexp_rec.common_organization_id <>
631: FND_API.G_MISS_NUM AND
632: l_bom_head_unexp_rec.common_assembly_item_id <>
633: FND_API.G_MISS_NUM
634: THEN
635: l_src_bill_sequence_id := Bill_Sequence_Id
636: ( p_assembly_item_id =>
637: l_bom_head_unexp_rec.common_assembly_item_id
672: , p_token_tbl => l_token_tbl
673: , p_mesg_token_tbl => l_mesg_token_tbl
674: , x_mesg_token_tbl => l_mesg_token_tbl
675: );
676: l_return_status := FND_API.G_RET_STS_ERROR;
677: END IF;
678: END IF;
679: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converted common bill sequence id. . .'); end if;
680:
682: Error_Handler.Write_Debug('Structure Type Name VID conversion . . . ');
683: END IF;
684:
685: IF ( p_bom_header_rec.structure_type_name IS NOT NULL AND
686: p_bom_header_rec.structure_type_name <> FND_API.G_MISS_CHAR )
687: THEN
688: l_bom_head_unexp_rec.structure_type_id := Structure_Type
689: ( p_structure_type_name => p_bom_header_rec.structure_type_name
690: , x_err_text => l_err_text
698: , p_Message_name => 'BOM_STRUCTURE_TYPE_INVALID'
699: , p_token_tbl => l_token_tbl
700: );
701:
702: l_return_status := FND_API.G_RET_STS_ERROR;
703: END IF; -- end if l_bom_head_unexp_rec.structure_type_id IS NULL
704: END IF; -- end if p_bom_header_rec.structure_type_name IS NOT NULL
705:
706: If Bom_Globals.Get_Debug = 'Y' THEN
741: BEGIN
742: x_bom_rev_unexp_rec := p_bom_rev_unexp_rec;
743: l_bom_rev_unexp_rec := p_bom_rev_unexp_rec;
744:
745: x_return_status := FND_API.G_RET_STS_SUCCESS;
746:
747: IF p_bom_revision_rec.assembly_item_name IS NULL OR
748: p_bom_revision_rec.assembly_item_name = FND_API.G_MISS_CHAR
749: THEN
744:
745: x_return_status := FND_API.G_RET_STS_SUCCESS;
746:
747: IF p_bom_revision_rec.assembly_item_name IS NULL OR
748: p_bom_revision_rec.assembly_item_name = FND_API.G_MISS_CHAR
749: THEN
750: Error_Handler.Add_Error_Token
751: ( p_message_name => 'BOM_REV_ASSY_KEYCOL_NULL'
752: , x_mesg_token_tbl => l_mesg_token_tbl
750: Error_Handler.Add_Error_Token
751: ( p_message_name => 'BOM_REV_ASSY_KEYCOL_NULL'
752: , x_mesg_token_tbl => l_mesg_token_tbl
753: );
754: x_return_status := FND_API.G_RET_STS_ERROR;
755: END IF;
756:
757: --
758: -- Convert Assembly Item Name
780: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
781: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
782: , p_Token_Tbl => g_Token_Tbl
783: );
784: x_Return_Status := FND_API.G_RET_STS_ERROR;
785: END IF;
786:
787: x_bom_rev_unexp_rec := l_bom_rev_unexp_rec;
788:
880: WHEN NO_DATA_FOUND THEN
881: RETURN NULL;
882:
883: WHEN OTHERS THEN
884: RETURN FND_API.G_MISS_NUM;
885:
886: END Old_Component_Sequence;
887:
888:
913: -- It will be regarded as Null
914: SELECT revised_item_sequence_id
915: INTO l_id
916: FROM Eng_revised_items
917: WHERE NVL(from_end_item_unit_number,FND_API.G_MISS_CHAR )
918: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
919: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
920: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
921: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
914: SELECT revised_item_sequence_id
915: INTO l_id
916: FROM Eng_revised_items
917: WHERE NVL(from_end_item_unit_number,FND_API.G_MISS_CHAR )
918: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
919: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
920: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
921: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
922: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
915: INTO l_id
916: FROM Eng_revised_items
917: WHERE NVL(from_end_item_unit_number,FND_API.G_MISS_CHAR )
918: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
919: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
920: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
921: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
922: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
923: AND TRUNC(scheduled_date) = TRUNC(p_effective_date )
916: FROM Eng_revised_items
917: WHERE NVL(from_end_item_unit_number,FND_API.G_MISS_CHAR )
918: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
919: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
920: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
921: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
922: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
923: AND TRUNC(scheduled_date) = TRUNC(p_effective_date )
924: AND change_notice = p_change_notice
917: WHERE NVL(from_end_item_unit_number,FND_API.G_MISS_CHAR )
918: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
919: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
920: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
921: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
922: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
923: AND TRUNC(scheduled_date) = TRUNC(p_effective_date )
924: AND change_notice = p_change_notice
925: AND organization_id = p_organization_id
918: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
919: AND NVL(new_item_revision, FND_API.G_MISS_CHAR) =
920: NVL(p_new_item_revision, FND_API.G_MISS_CHAR)
921: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
922: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
923: AND TRUNC(scheduled_date) = TRUNC(p_effective_date )
924: AND change_notice = p_change_notice
925: AND organization_id = p_organization_id
926: AND revised_item_id = p_revised_item_id ;
934:
935: RETURN NULL;
936:
937: WHEN OTHERS THEN
938: RETURN FND_API.G_MISS_NUM;
939:
940: END Revised_Item_Sequence;
941: ******************************************************************/
942:
975: -- It will be regarded as Null
976: SELECT bill_sequence_id, revised_item_Sequence_id
977: INTO l_Bill_Seq, l_Rev_Item_Seq
978: FROM eng_revised_items
979: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
980: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
981: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
982: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
983: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
976: SELECT bill_sequence_id, revised_item_Sequence_id
977: INTO l_Bill_Seq, l_Rev_Item_Seq
978: FROM eng_revised_items
979: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
980: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
981: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
982: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
983: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
984: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
977: INTO l_Bill_Seq, l_Rev_Item_Seq
978: FROM eng_revised_items
979: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
980: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
981: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
982: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
983: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
984: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
985: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
978: FROM eng_revised_items
979: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
980: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
981: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
982: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
983: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
984: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
985: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
986: AND change_notice = p_change_notice
979: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
980: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
981: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
982: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
983: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
984: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
985: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
986: AND change_notice = p_change_notice
987: AND organization_id = p_organization_id
980: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
981: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
982: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
983: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
984: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
985: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
986: AND change_notice = p_change_notice
987: AND organization_id = p_organization_id
988: AND revised_item_id = p_revised_item_id ;
1088: and effectivity_date = p_effectivity_date
1089: and
1090: (p_from_unit_number IS NULL
1091: or
1092: p_from_unit_number = FND_API.G_MISS_CHAR
1093: or
1094: from_end_item_unit_number = p_from_unit_number);
1095:
1096: RETURN l_id;
1152: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1153: l_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
1154:
1155: BEGIN
1156: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
1157: l_Rev_Comp_Unexp_Rec := p_Rev_Comp_Unexp_Rec;
1158:
1159: --
1160: -- Convert Location_Name to Location_Id
1161: --
1162: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Executing Location Val-ID conversion . . .'); END IF;
1163:
1164: IF p_rev_component_rec.location_name IS NOT NULL AND
1165: p_rev_component_rec.location_name <> FND_API.G_MISS_CHAR
1166: THEN
1167: l_Return_Value := Locator_Id
1168: ( p_Location_name =>
1169: p_rev_component_rec.location_name
1183: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1184: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1185: , p_Token_Tbl => l_Token_Tbl
1186: );
1187: l_Return_Status := FND_API.G_RET_STS_ERROR;
1188: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1189: THEN
1190: Error_Handler.Add_Error_Token
1191: ( p_Message_Name => NULL
1184: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1185: , p_Token_Tbl => l_Token_Tbl
1186: );
1187: l_Return_Status := FND_API.G_RET_STS_ERROR;
1188: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1189: THEN
1190: Error_Handler.Add_Error_Token
1191: ( p_Message_Name => NULL
1192: , p_Message_Text =>
1193: 'Unexpected error while converting location name'
1194: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1195: , x_Mesg_Token_Tbl => l_MEsg_Token_Tbl
1196: );
1197: l_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1198: ELSE
1199: l_Rev_Comp_Unexp_Rec.supply_locator_id :=
1200: l_Return_Value;
1201: END IF;
1210: END IF;
1211:
1212:
1213: IF p_Rev_Component_Rec.old_effectivity_date IS NOT NULL AND
1214: p_Rev_Component_Rec.old_effectivity_date <> FND_API.G_MISS_DATE AND
1215: p_Rev_component_rec.old_operation_sequence_number IS NOT NULL AND
1216: p_Rev_component_rec.old_operation_sequence_number <>
1217: FND_API.G_MISS_NUM
1218: THEN
1213: IF p_Rev_Component_Rec.old_effectivity_date IS NOT NULL AND
1214: p_Rev_Component_Rec.old_effectivity_date <> FND_API.G_MISS_DATE AND
1215: p_Rev_component_rec.old_operation_sequence_number IS NOT NULL AND
1216: p_Rev_component_rec.old_operation_sequence_number <>
1217: FND_API.G_MISS_NUM
1218: THEN
1219: l_Return_Value :=
1220: Old_Component_Sequence
1221: ( p_component_item_id =>
1246: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1247: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1248: , p_Token_Tbl => l_Token_Tbl
1249: );
1250: l_Return_Status := FND_API.G_RET_STS_ERROR;
1251: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1252: THEN
1253: Error_Handler.Add_Error_Token
1254: ( p_Message_Name => NULL
1247: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1248: , p_Token_Tbl => l_Token_Tbl
1249: );
1250: l_Return_Status := FND_API.G_RET_STS_ERROR;
1251: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1252: THEN
1253: Error_Handler.Add_Error_Token
1254: ( p_Message_Name => NULL
1255: , p_Message_Text =>
1257: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1258: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1259: , p_Token_Tbl => l_Token_Tbl
1260: );
1261: l_Return_Status := FND_API.G_RET_STS_ERROR;
1262: ELSE
1263: l_rev_comp_unexp_rec.old_component_sequence_id :=
1264: l_Return_Value;
1265:
1313: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1314: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1315: , p_Token_Tbl => l_Token_Tbl
1316: );
1317: l_Return_Status := FND_API.G_RET_STS_ERROR;
1318: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1319: THEN
1320: Error_Handler.Add_Error_Token
1321: ( p_Message_Name => NULL
1314: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1315: , p_Token_Tbl => l_Token_Tbl
1316: );
1317: l_Return_Status := FND_API.G_RET_STS_ERROR;
1318: ELSIF l_Return_Value = FND_API.G_MISS_NUM
1319: THEN
1320: Error_Handler.Add_Error_Token
1321: ( p_Message_Name => NULL
1322: , p_Message_Text =>
1324: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1325: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1326: , p_Token_Tbl => l_Token_Tbl
1327: );
1328: l_Return_Status := FND_API.G_RET_STS_ERROR;
1329: ELSE
1330: l_rev_comp_unexp_rec.revised_item_sequence_id :=
1331: l_Return_Value;
1332: -- dbms_output.put_line('Revised item sequence: ' || to_char(l_Return_Value));
1341: -- Convert Suggested_Vendor_Name to Vendor_Id
1342: --
1343:
1344: IF p_rev_component_rec.Suggested_Vendor_Name IS NOT NULL AND
1345: p_rev_component_rec.Suggested_Vendor_Name <> FND_API.G_MISS_CHAR
1346: THEN
1347: l_Return_Value := Vendor_Id
1348: ( p_vendor_name =>
1349: p_rev_component_rec.Suggested_Vendor_Name
1397: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1398: l_Return_status VARCHAR2(1);
1399: BEGIN
1400: l_rev_comp_unexp_rec := p_rev_comp_unexp_Rec;
1401: l_Return_status := FND_API.G_RET_STS_SUCCESS;
1402:
1403: /******************************************************
1404: --
1405: -- Verify that the unique key columns are not empty
1405: -- Verify that the unique key columns are not empty
1406: --
1407: ********************************************************/
1408: IF p_rev_component_rec.component_item_name IS NULL OR
1409: p_rev_component_rec.component_item_name = FND_API.G_MISS_CHAR
1410: THEN
1411: Error_Handler.Add_Error_Token
1412: ( p_Message_Name => 'BOM_RCOMP_NAME_KEYCOL_NULL'
1413: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1412: ( p_Message_Name => 'BOM_RCOMP_NAME_KEYCOL_NULL'
1413: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1414: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1415: );
1416: l_Return_Status := FND_API.G_RET_STS_ERROR;
1417: END IF;
1418:
1419: IF p_rev_component_rec.revised_item_name IS NULL OR
1420: p_rev_component_rec.revised_item_name = FND_API.G_MISS_CHAR
1416: l_Return_Status := FND_API.G_RET_STS_ERROR;
1417: END IF;
1418:
1419: IF p_rev_component_rec.revised_item_name IS NULL OR
1420: p_rev_component_rec.revised_item_name = FND_API.G_MISS_CHAR
1421: THEN
1422: Error_Handler.Add_Error_Token
1423: ( p_Message_Name => 'BOM_RCOMP_RITEM_KEYCOL_NULL'
1424: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1423: ( p_Message_Name => 'BOM_RCOMP_RITEM_KEYCOL_NULL'
1424: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1425: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1426: );
1427: l_Return_Status := FND_API.G_RET_STS_ERROR;
1428: END IF;
1429:
1430: IF (p_rev_component_rec.transaction_type <> BOM_globals.G_OPR_CREATE) AND
1431: (p_rev_component_rec.operation_sequence_number IS NULL OR
1428: END IF;
1429:
1430: IF (p_rev_component_rec.transaction_type <> BOM_globals.G_OPR_CREATE) AND
1431: (p_rev_component_rec.operation_sequence_number IS NULL OR
1432: p_rev_component_rec.operation_sequence_number = FND_API.G_MISS_NUM)
1433: THEN
1434: Error_Handler.Add_Error_Token
1435: ( p_Message_Name => 'BOM_RCOMP_OPSEQ_KEYCOL_NULL'
1436: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1435: ( p_Message_Name => 'BOM_RCOMP_OPSEQ_KEYCOL_NULL'
1436: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1437: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1438: );
1439: l_Return_Status := FND_API.G_RET_STS_ERROR;
1440: END IF;
1441:
1442: IF p_rev_component_rec.start_effective_date IS NULL OR
1443: p_rev_component_rec.start_effective_date = FND_API.G_MISS_DATE
1439: l_Return_Status := FND_API.G_RET_STS_ERROR;
1440: END IF;
1441:
1442: IF p_rev_component_rec.start_effective_date IS NULL OR
1443: p_rev_component_rec.start_effective_date = FND_API.G_MISS_DATE
1444: THEN
1445: Error_Handler.Add_Error_Token
1446: ( p_Message_Name => 'BOM_RCOMP_DATE_KEYCOL_NULL'
1447: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1446: ( p_Message_Name => 'BOM_RCOMP_DATE_KEYCOL_NULL'
1447: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1448: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1449: );
1450: l_Return_Status := FND_API.G_RET_STS_ERROR;
1451:
1452: END IF;
1453:
1454: --
1453:
1454: --
1455: -- If key columns are NULL, then return.
1456: --
1457: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1458: THEN
1459: x_Return_Status := FND_API.G_RET_STS_ERROR;
1460: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1461: RETURN;
1455: -- If key columns are NULL, then return.
1456: --
1457: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1458: THEN
1459: x_Return_Status := FND_API.G_RET_STS_ERROR;
1460: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1461: RETURN;
1462: END IF;
1463:
1488: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1489: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1490: , p_Token_Tbl => g_Token_Tbl
1491: );
1492: l_Return_Status := FND_API.G_RET_STS_ERROR;
1493:
1494: END IF;
1495:
1496: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1530: -- IF revised item key columns is NULL, then set the other
1531: -- message and return with an error.
1532: --
1533: IF (p_rev_component_rec.revised_item_name IS NULL OR
1534: p_rev_component_rec.revised_item_name = FND_API.G_MISS_CHAR)
1535: THEN
1536: Error_Handler.Add_Error_Token
1537: ( p_Message_Name => 'BOM_RCOMP_RITEM_KEYCOL_NULL'
1538: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1537: ( p_Message_Name => 'BOM_RCOMP_RITEM_KEYCOL_NULL'
1538: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1539: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1540: );
1541: l_Return_Status := FND_API.G_RET_STS_ERROR;
1542: END IF;
1543:
1544: IF p_rev_component_rec.start_effective_date IS NULL OR
1545: p_rev_component_rec.start_effective_date = FND_API.G_MISS_DATE
1541: l_Return_Status := FND_API.G_RET_STS_ERROR;
1542: END IF;
1543:
1544: IF p_rev_component_rec.start_effective_date IS NULL OR
1545: p_rev_component_rec.start_effective_date = FND_API.G_MISS_DATE
1546: THEN
1547: Error_Handler.Add_Error_Token
1548: ( p_Message_Name => 'BOM_RCOMP_DATE_KEYCOL_NULL'
1549: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1548: ( p_Message_Name => 'BOM_RCOMP_DATE_KEYCOL_NULL'
1549: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1550: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1551: );
1552: l_Return_Status := FND_API.G_RET_STS_ERROR;
1553:
1554: END IF;
1555:
1556: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1552: l_Return_Status := FND_API.G_RET_STS_ERROR;
1553:
1554: END IF;
1555:
1556: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1557: THEN
1558: x_return_status := l_return_status;
1559: x_other_message := 'BOM_REV_ITEM_KEY_NULL';
1560: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1565: --
1566: -- Convert Revised Item Name to Revised Item ID
1567: --
1568: ********************************************************/
1569: l_return_status := FND_API.G_RET_STS_SUCCESS;
1570: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
1571: g_Token_Tbl(1).Token_Value := p_rev_component_rec.revised_item_name;
1572: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1573: g_token_tbl(2).token_value := p_rev_component_rec.organization_code;
1583: );
1584:
1585:
1586: IF l_rev_comp_unexp_rec.revised_item_id IS NULL OR
1587: l_rev_comp_unexp_rec.revised_item_id = FND_API.G_MISS_NUM
1588: THEN
1589: Error_Handler.Add_Error_Token
1590: ( p_Message_Name => 'ENG_REVISED_ITEM_INVALID'
1591: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1591: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1592: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1593: , p_Token_Tbl => g_Token_Tbl
1594: );
1595: l_Return_Status := FND_API.G_RET_STS_ERROR;
1596:
1597: /* Added this code segment (including RETURN) so there
1598: is no error collection. UUI conversion code must exit
1599: as soon as a conversion error occurs.
1675: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1676: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1677: , p_Token_Tbl => g_Token_Tbl
1678: );
1679: l_Return_Status := FND_API.G_RET_STS_ERROR;
1680: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1681: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1682: x_Return_Status := l_Return_Status;
1683: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
1722: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1723: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1724: , p_Token_Tbl => g_Token_Tbl
1725: );
1726: l_Return_Status := FND_API.G_RET_STS_ERROR;
1727: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1728: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1729: x_Return_Status := l_Return_Status;
1730: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
1755: ) AND
1756: l_rev_comp_unexp_rec.bill_sequence_id IS NULL
1757: AND Bom_Globals.Get_Bo_Identifier <> Bom_Globals.G_ECO_BO -- Added by MK on 12/03/00
1758: THEN
1759: l_return_status := FND_API.G_RET_STS_ERROR;
1760:
1761: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
1762: g_Token_Tbl(1).Token_Value :=
1763: p_rev_component_rec.revised_item_name;
1781:
1782: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing UUI_UI2 for components and retrieving enforce integer requirements code . . . '); END IF;
1783:
1784: IF p_rev_component_rec.enforce_int_requirements IS NOT NULL AND
1785: p_rev_component_rec.enforce_int_requirements <> FND_API.G_MISS_CHAR
1786: THEN
1787: l_rev_comp_unexp_rec.enforce_int_requirements_code :=
1788: Get_EnforceInteger_Code(
1789: p_enforce_integer => p_rev_component_rec.enforce_int_requirements);
1787: l_rev_comp_unexp_rec.enforce_int_requirements_code :=
1788: Get_EnforceInteger_Code(
1789: p_enforce_integer => p_rev_component_rec.enforce_int_requirements);
1790: IF l_rev_comp_unexp_rec.enforce_int_requirements_code IS NULL AND
1791: l_rev_comp_unexp_rec.enforce_int_requirements_code = FND_API.G_MISS_NUM
1792: THEN
1793: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
1794: g_Token_Tbl(1).Token_Value :=
1795: p_rev_component_rec.revised_item_name;
1848: l_return_status VARCHAR2(1);
1849: l_token_tbl Error_Handler.Token_Tbl_Type;
1850: BEGIN
1851: l_sub_comp_unexp_rec := p_sub_comp_unexp_rec;
1852: l_return_status := FND_API.G_RET_STS_SUCCESS;
1853:
1854: /*************************************************************
1855: --
1856: -- Verify ACD Type is Add or Disable
1866: ( p_Message_Name => 'BOM_SBC_ACD_TYPE_INVALID'
1867: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1868: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1869: );
1870: l_Return_Status := FND_API.G_RET_STS_ERROR;
1871: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1872: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
1873: x_Return_Status := l_Return_Status;
1874: RETURN;
1880: -- not null
1881: --
1882: ****************************************************************/
1883: IF p_sub_component_rec.substitute_component_name IS NULL OR
1884: p_sub_component_rec.substitute_component_name = FND_API.G_MISS_CHAR
1885: THEN
1886: Error_Handler.Add_Error_Token
1887: ( p_Message_Name => 'BOM_SCOMP_NAME_KEYCOL_NULL'
1888: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1887: ( p_Message_Name => 'BOM_SCOMP_NAME_KEYCOL_NULL'
1888: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1889: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1890: );
1891: l_Return_Status := FND_API.G_RET_STS_ERROR;
1892: END IF;
1893: IF p_sub_component_rec.component_item_name IS NULL OR
1894: p_sub_component_rec.component_item_name = FND_API.G_MISS_CHAR
1895: THEN
1890: );
1891: l_Return_Status := FND_API.G_RET_STS_ERROR;
1892: END IF;
1893: IF p_sub_component_rec.component_item_name IS NULL OR
1894: p_sub_component_rec.component_item_name = FND_API.G_MISS_CHAR
1895: THEN
1896: Error_Handler.Add_Error_Token
1897: ( p_Message_Name => 'BOM_SCOMP_RCOMP_KEYCOL_NULL'
1898: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1897: ( p_Message_Name => 'BOM_SCOMP_RCOMP_KEYCOL_NULL'
1898: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1899: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1900: );
1901: l_Return_Status := FND_API.G_RET_STS_ERROR;
1902: END IF;
1903: IF p_sub_component_rec.revised_item_name IS NULL OR
1904: p_sub_component_rec.revised_item_name = FND_API.G_MISS_CHAR
1905: THEN
1900: );
1901: l_Return_Status := FND_API.G_RET_STS_ERROR;
1902: END IF;
1903: IF p_sub_component_rec.revised_item_name IS NULL OR
1904: p_sub_component_rec.revised_item_name = FND_API.G_MISS_CHAR
1905: THEN
1906: Error_Handler.Add_Error_Token
1907: ( p_Message_Name => 'BOM_SCOMP_RITEM_KEYCOL_NULL'
1908: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1907: ( p_Message_Name => 'BOM_SCOMP_RITEM_KEYCOL_NULL'
1908: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1909: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1910: );
1911: l_Return_Status := FND_API.G_RET_STS_ERROR;
1912: END IF;
1913:
1914: IF p_sub_component_rec.operation_sequence_number IS NULL OR
1915: p_sub_component_rec.operation_sequence_number = FND_API.G_MISS_NUM
1911: l_Return_Status := FND_API.G_RET_STS_ERROR;
1912: END IF;
1913:
1914: IF p_sub_component_rec.operation_sequence_number IS NULL OR
1915: p_sub_component_rec.operation_sequence_number = FND_API.G_MISS_NUM
1916: THEN
1917: Error_Handler.Add_Error_Token
1918: ( p_Message_Name => 'BOM_SCOMP_OPSEQ_KEYCOL_NULL'
1919: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1918: ( p_Message_Name => 'BOM_SCOMP_OPSEQ_KEYCOL_NULL'
1919: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1920: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1921: );
1922: l_Return_Status := FND_API.G_RET_STS_ERROR;
1923: END IF;
1924:
1925: IF p_sub_component_rec.start_effective_date IS NULL OR
1926: p_sub_component_rec.start_effective_date = FND_API.G_MISS_DATE
1922: l_Return_Status := FND_API.G_RET_STS_ERROR;
1923: END IF;
1924:
1925: IF p_sub_component_rec.start_effective_date IS NULL OR
1926: p_sub_component_rec.start_effective_date = FND_API.G_MISS_DATE
1927: THEN
1928: Error_Handler.Add_Error_Token
1929: ( p_Message_Name => 'BOM_SCOMP_DATE_KEYCOL_NULL'
1930: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1929: ( p_Message_Name => 'BOM_SCOMP_DATE_KEYCOL_NULL'
1930: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1931: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1932: );
1933: l_Return_Status := FND_API.G_RET_STS_ERROR;
1934: END IF;
1935:
1936: --
1937: -- If key columns are NULL, then return.
1935:
1936: --
1937: -- If key columns are NULL, then return.
1938: --
1939: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1940: THEN
1941: x_return_status := l_return_status;
1942: x_mesg_token_tbl := l_mesg_token_tbl;
1943: RETURN;
1969: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1970: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1971: , p_Token_Tbl => g_Token_Tbl
1972: );
1973: l_Return_Status := FND_API.G_RET_STS_ERROR;
1974: END IF;
1975:
1976: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1977: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
1983: --
1984: *********************************************************************/
1985:
1986: IF ( p_Sub_Component_Rec.new_substitute_component_name is not null
1987: AND p_sub_component_rec.substitute_component_name <> FND_API.G_MISS_CHAR
1988: and p_sub_component_rec.transaction_type = Bom_Globals.G_OPR_UPDATE)
1989: THEN
1990: l_sub_comp_unexp_rec.new_substitute_component_id :=
1991: Substitute_Component( p_substitute_component =>
2008: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2009: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2010: , p_Token_Tbl => g_Token_Tbl
2011: );
2012: l_Return_Status := FND_API.G_RET_STS_ERROR;
2013: END IF;
2014:
2015: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2016: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2043: l_return_status VARCHAR2(1);
2044: l_dummy NUMBER;
2045: BEGIN
2046: l_sub_comp_unexp_rec := p_sub_comp_unexp_rec;
2047: l_return_status := FND_API.G_RET_STS_SUCCESS;
2048:
2049:
2050: --
2051: -- If any of the revised item key columns are NULL, then
2051: -- If any of the revised item key columns are NULL, then
2052: -- return with an other message
2053: --
2054: IF p_sub_component_rec.revised_item_name IS NULL OR
2055: p_sub_component_rec.revised_item_name = FND_API.G_MISS_CHAR
2056: THEN
2057: Error_Handler.Add_Error_Token
2058: ( p_Message_Name => 'BOM_SCOMP_RITEM_KEYCOL_NULL'
2059: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2058: ( p_Message_Name => 'BOM_SCOMP_RITEM_KEYCOL_NULL'
2059: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2060: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2061: );
2062: l_Return_Status := FND_API.G_RET_STS_ERROR;
2063: END IF;
2064:
2065: --
2066: -- If key any of the parent key columns are NULL, then return.
2064:
2065: --
2066: -- If key any of the parent key columns are NULL, then return.
2067: --
2068: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2069: THEN
2070: x_return_status := l_return_status;
2071: x_mesg_token_tbl := l_mesg_token_tbl;
2072: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2074: RETURN;
2075: END IF;
2076:
2077: IF p_sub_component_rec.component_item_name IS NULL OR
2078: p_sub_component_rec.component_item_name = FND_API.G_MISS_CHAR
2079: THEN
2080: Error_Handler.Add_Error_Token
2081: ( p_Message_Name => 'BOM_SCOMP_RCOMP_KEYCOL_NULL'
2082: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2081: ( p_Message_Name => 'BOM_SCOMP_RCOMP_KEYCOL_NULL'
2082: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2083: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2084: );
2085: l_Return_Status := FND_API.G_RET_STS_ERROR;
2086: END IF;
2087:
2088: IF p_sub_component_rec.operation_sequence_number IS NULL OR
2089: p_sub_component_rec.operation_sequence_number = FND_API.G_MISS_NUM
2085: l_Return_Status := FND_API.G_RET_STS_ERROR;
2086: END IF;
2087:
2088: IF p_sub_component_rec.operation_sequence_number IS NULL OR
2089: p_sub_component_rec.operation_sequence_number = FND_API.G_MISS_NUM
2090: THEN
2091: Error_Handler.Add_Error_Token
2092: ( p_Message_Name => 'BOM_SCOMP_OPSEQ_KEYCOL_NULL'
2093: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2092: ( p_Message_Name => 'BOM_SCOMP_OPSEQ_KEYCOL_NULL'
2093: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2094: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2095: );
2096: l_Return_Status := FND_API.G_RET_STS_ERROR;
2097: END IF;
2098:
2099: IF p_sub_component_rec.start_effective_date IS NULL OR
2100: p_sub_component_rec.start_effective_date = FND_API.G_MISS_DATE
2096: l_Return_Status := FND_API.G_RET_STS_ERROR;
2097: END IF;
2098:
2099: IF p_sub_component_rec.start_effective_date IS NULL OR
2100: p_sub_component_rec.start_effective_date = FND_API.G_MISS_DATE
2101: THEN
2102: Error_Handler.Add_Error_Token
2103: ( p_Message_Name => 'BOM_SCOMP_DATE_KEYCOL_NULL'
2104: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2103: ( p_Message_Name => 'BOM_SCOMP_DATE_KEYCOL_NULL'
2104: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2105: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2106: );
2107: l_Return_Status := FND_API.G_RET_STS_ERROR;
2108: END IF;
2109:
2110: --
2111: -- If any of the revised component key columns are NULL, then
2110: --
2111: -- If any of the revised component key columns are NULL, then
2112: -- return with an other message.
2113: --
2114: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2115: THEN
2116: x_return_status := l_return_status;
2117: x_mesg_token_tbl := l_mesg_token_tbl;
2118: x_other_message := 'BOM_REV_COMP_KEY_NULL';
2152: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2153: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2154: , p_Token_Tbl => g_Token_Tbl
2155: );
2156: l_Return_Status := FND_API.G_RET_STS_ERROR;
2157: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2158: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2159: --
2160: -- Set the other message and its tokens
2195: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2196: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2197: , p_Token_Tbl => g_Token_Tbl
2198: );
2199: l_Return_Status := FND_API.G_RET_STS_ERROR;
2200: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2201: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2202: --
2203: -- Set the other message and its tokens
2269: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2270: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2271: , p_Token_Tbl => g_Token_Tbl
2272: );
2273: l_Return_Status := FND_API.G_RET_STS_ERROR;
2274: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2275: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2276: --
2277: -- Set the other message and its tokens
2317: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2318: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2319: , p_Token_Tbl => g_Token_Tbl
2320: );
2321: l_Return_Status := FND_API.G_RET_STS_ERROR;
2322: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2323: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2324: x_Return_Status := l_Return_Status;
2325: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
2382: x_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
2383: x_other_token_tbl(1).token_value :=
2384: p_sub_component_rec.substitute_component_name;
2385:
2386: l_Return_Status := FND_API.G_RET_STS_ERROR;
2387: g_Token_Tbl.Delete;
2388: END IF;
2389: END IF; -- If-Else BO Is ECO Ends -- Added by MK on 12/03/00
2390:
2403: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2404: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2405: , p_Token_Tbl => g_Token_Tbl
2406: );
2407: l_Return_Status := FND_API.G_RET_STS_ERROR;
2408: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2409: x_sub_comp_unexp_rec := l_sub_comp_unexp_rec;
2410: x_Return_Status := l_Return_Status;
2411: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
2418:
2419: 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;
2420:
2421: IF p_sub_component_rec.enforce_int_requirements IS NOT NULL AND
2422: p_sub_component_rec.enforce_int_requirements <> FND_API.G_MISS_CHAR
2423: THEN
2424:
2425: l_sub_comp_unexp_rec.enforce_int_requirements_code :=
2426: Get_EnforceInteger_Code(
2428:
2429: 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;
2430:
2431: IF l_sub_comp_unexp_rec.enforce_int_requirements_code IS NULL AND
2432: l_sub_comp_unexp_rec.enforce_int_requirements_code = FND_API.G_MISS_NUM
2433: THEN
2434: g_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
2435: g_Token_Tbl(1).Token_Value :=
2436: p_sub_component_rec.component_item_name;
2491: l_token_tbl Error_Handler.Token_Tbl_Type;
2492:
2493: BEGIN
2494:
2495: l_return_status := FND_API.G_RET_STS_SUCCESS;
2496:
2497: /***************************************************************
2498: --
2499: -- Verify that ACD_Type is Valid
2508: ( p_Message_Name => 'BOM_RFD_ACD_TYPE_INVALID'
2509: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2510: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2511: );
2512: l_Return_Status := FND_API.G_RET_STS_ERROR;
2513: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2514: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2515: x_Return_Status := l_Return_Status;
2516: RETURN;
2532: -- not null
2533: --
2534: ****************************************************************/
2535: IF p_ref_designator_rec.reference_designator_name IS NULL OR
2536: p_ref_designator_rec.reference_designator_name = FND_API.G_MISS_CHAR
2537: THEN
2538: Error_Handler.Add_Error_Token
2539: ( p_Message_Name => 'BOM_RDESG_NAME_KEYCOL_NULL'
2540: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2539: ( p_Message_Name => 'BOM_RDESG_NAME_KEYCOL_NULL'
2540: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2541: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2542: );
2543: l_Return_Status := FND_API.G_RET_STS_ERROR;
2544:
2545: END IF;
2546:
2547: IF p_ref_designator_rec.component_item_name IS NULL OR
2544:
2545: END IF;
2546:
2547: IF p_ref_designator_rec.component_item_name IS NULL OR
2548: p_ref_designator_rec.component_item_name = FND_API.G_MISS_CHAR
2549: THEN
2550: Error_Handler.Add_Error_Token
2551: ( p_Message_Name => 'BOM_RDESG_RCOMP_KEYCOL_NULL'
2552: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2551: ( p_Message_Name => 'BOM_RDESG_RCOMP_KEYCOL_NULL'
2552: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2553: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2554: );
2555: l_Return_Status := FND_API.G_RET_STS_ERROR;
2556:
2557: END IF;
2558:
2559: IF p_ref_designator_rec.revised_item_name IS NULL OR
2556:
2557: END IF;
2558:
2559: IF p_ref_designator_rec.revised_item_name IS NULL OR
2560: p_ref_designator_rec.revised_item_name = FND_API.G_MISS_CHAR
2561: THEN
2562: Error_Handler.Add_Error_Token
2563: ( p_Message_Name => 'BOM_RDESG_RITEM_KEYCOL_NULL'
2564: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2563: ( p_Message_Name => 'BOM_RDESG_RITEM_KEYCOL_NULL'
2564: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2565: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2566: );
2567: l_Return_Status := FND_API.G_RET_STS_ERROR;
2568:
2569: END IF;
2570:
2571: IF p_ref_designator_rec.operation_sequence_number IS NULL OR
2568:
2569: END IF;
2570:
2571: IF p_ref_designator_rec.operation_sequence_number IS NULL OR
2572: p_ref_designator_rec.operation_sequence_number = FND_API.G_MISS_NUM
2573: THEN
2574: Error_Handler.Add_Error_Token
2575: ( p_Message_Name => 'BOM_RDESG_OPSEQ_KEYCOL_NULL'
2576: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2575: ( p_Message_Name => 'BOM_RDESG_OPSEQ_KEYCOL_NULL'
2576: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2577: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2578: );
2579: l_Return_Status := FND_API.G_RET_STS_ERROR;
2580:
2581: END IF;
2582:
2583: IF p_ref_designator_rec.start_effective_date IS NULL OR
2580:
2581: END IF;
2582:
2583: IF p_ref_designator_rec.start_effective_date IS NULL OR
2584: p_ref_designator_rec.start_effective_date = FND_API.G_MISS_DATE
2585: THEN
2586: Error_Handler.Add_Error_Token
2587: ( p_Message_Name => 'BOM_RDESG_DATE_KEYCOL_NULL'
2588: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2587: ( p_Message_Name => 'BOM_RDESG_DATE_KEYCOL_NULL'
2588: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2589: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2590: );
2591: l_Return_Status := FND_API.G_RET_STS_ERROR;
2592: END IF;
2593:
2594: --
2595: -- If key columns are NULL then return
2593:
2594: --
2595: -- If key columns are NULL then return
2596: --
2597: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2598: THEN
2599: x_return_status := l_return_status;
2600: x_mesg_token_tbl := l_mesg_token_tbl;
2601: RETURN;
2635: -- If any of the revised item key columns are NULL, then set the
2636: -- other message and its token and return.
2637: --
2638: IF p_ref_designator_rec.revised_item_name IS NULL OR
2639: p_ref_designator_rec.revised_item_name = FND_API.G_MISS_CHAR
2640: THEN
2641: Error_Handler.Add_Error_Token
2642: ( p_Message_Name => 'BOM_RDESG_RITEM_KEYCOL_NULL'
2643: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2642: ( p_Message_Name => 'BOM_RDESG_RITEM_KEYCOL_NULL'
2643: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2644: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2645: );
2646: l_Return_Status := FND_API.G_RET_STS_ERROR;
2647:
2648: END IF;
2649:
2650: --
2649:
2650: --
2651: -- Return if revised item key is NULL
2652: --
2653: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2654: THEN
2655: x_return_status := l_return_status;
2656: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2657: x_mesg_token_tbl := l_mesg_token_tbl;
2659: RETURN;
2660: END IF;
2661:
2662: IF p_ref_designator_rec.component_item_name IS NULL OR
2663: p_ref_designator_rec.component_item_name = FND_API.G_MISS_CHAR
2664: THEN
2665: Error_Handler.Add_Error_Token
2666: ( p_Message_Name => 'BOM_RDESG_RCOMP_KEYCOL_NULL'
2667: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2666: ( p_Message_Name => 'BOM_RDESG_RCOMP_KEYCOL_NULL'
2667: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2668: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2669: );
2670: l_Return_Status := FND_API.G_RET_STS_ERROR;
2671:
2672: END IF;
2673:
2674: IF p_ref_designator_rec.operation_sequence_number IS NULL OR
2671:
2672: END IF;
2673:
2674: IF p_ref_designator_rec.operation_sequence_number IS NULL OR
2675: p_ref_designator_rec.operation_sequence_number = FND_API.G_MISS_NUM
2676: THEN
2677: Error_Handler.Add_Error_Token
2678: ( p_Message_Name => 'BOM_RDESG_OPSEQ_KEYCOL_NULL'
2679: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2678: ( p_Message_Name => 'BOM_RDESG_OPSEQ_KEYCOL_NULL'
2679: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2680: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2681: );
2682: l_Return_Status := FND_API.G_RET_STS_ERROR;
2683:
2684: END IF;
2685:
2686: IF p_ref_designator_rec.start_effective_date IS NULL OR
2683:
2684: END IF;
2685:
2686: IF p_ref_designator_rec.start_effective_date IS NULL OR
2687: p_ref_designator_rec.start_effective_date = FND_API.G_MISS_DATE
2688: THEN
2689: Error_Handler.Add_Error_Token
2690: ( p_Message_Name => 'BOM_RDESG_DATE_KEYCOL_NULL'
2691: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2690: ( p_Message_Name => 'BOM_RDESG_DATE_KEYCOL_NULL'
2691: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2692: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2693: );
2694: l_Return_Status := FND_API.G_RET_STS_ERROR;
2695: END IF;
2696:
2697: --
2698: -- If key columns are NULL then return
2696:
2697: --
2698: -- If key columns are NULL then return
2699: --
2700: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
2701: THEN
2702: x_return_status := l_return_status;
2703: x_mesg_token_tbl := l_mesg_token_tbl;
2704: x_other_message := 'BOM_REV_COMP_KEY_NULL';
2730: , p_Token_Tbl => g_Token_Tbl
2731: );
2732: g_token_tbl.delete(2);
2733:
2734: l_Return_Status := FND_API.G_RET_STS_ERROR;
2735: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2736: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2737: --
2738: -- Set the other message
2774: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2775: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2776: , p_Token_Tbl => g_Token_Tbl
2777: );
2778: l_Return_Status := FND_API.G_RET_STS_ERROR;
2779: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2780: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2781: --
2782: -- Set the other message
2842: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2843: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2844: , p_Token_Tbl => g_Token_Tbl
2845: );
2846: l_Return_Status := FND_API.G_RET_STS_ERROR;
2847: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2848: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2849: --
2850: -- Set the other message
2890: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2891: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2892: , p_Token_Tbl => g_Token_Tbl
2893: );
2894: l_Return_Status := FND_API.G_RET_STS_ERROR;
2895: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2896: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2897: x_Return_Status := l_Return_Status;
2898: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
2922: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2923: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2924: , p_Token_Tbl => g_Token_Tbl
2925: );
2926: l_Return_Status := FND_API.G_RET_STS_ERROR;
2927: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
2928: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
2929: --
2930: -- Set the other message
2979: x_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
2980: x_other_token_tbl(1).token_value :=
2981: p_ref_designator_rec.reference_designator_name;
2982:
2983: l_Return_Status := FND_API.G_RET_STS_ERROR;
2984: g_Token_Tbl.Delete;
2985: END IF;
2986: END IF; -- Added by MK on 12/04/00
2987:
3000: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3001: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3002: , p_Token_Tbl => g_Token_Tbl
3003: );
3004: l_Return_Status := FND_API.G_RET_STS_ERROR;
3005: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3006: x_ref_desg_unexp_rec := l_ref_desg_unexp_rec;
3007: x_Return_Status := l_Return_Status;
3008: x_other_message := 'BOM_RFD_UUI_SEV_ERROR';
3366: l_Return_Status VARCHAR2(1);
3367: l_token_tbl Error_Handler.Token_Tbl_Type;
3368: BEGIN
3369:
3370: l_return_status := FND_API.G_RET_STS_SUCCESS;
3371:
3372: /****************************************************************
3373: --
3374: -- Convert assembly item name to assembly item ID
3385: -- not null
3386: --
3387: ****************************************************************/
3388: IF p_bom_comp_ops_rec.operation_sequence_number IS NULL OR
3389: p_bom_comp_ops_rec.operation_sequence_number = FND_API.G_MISS_NUM
3390: THEN
3391: Error_Handler.Add_Error_Token
3392: ( p_Message_Name => 'BOM_COPS_OPSEQ_KEYCOL_NULL'
3393: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3392: ( p_Message_Name => 'BOM_COPS_OPSEQ_KEYCOL_NULL'
3393: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3394: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3395: );
3396: l_Return_Status := FND_API.G_RET_STS_ERROR;
3397:
3398: END IF;
3399:
3400: IF p_bom_comp_ops_rec.additional_operation_seq_num IS NULL OR
3397:
3398: END IF;
3399:
3400: IF p_bom_comp_ops_rec.additional_operation_seq_num IS NULL OR
3401: p_bom_comp_ops_rec.additional_operation_seq_num = FND_API.G_MISS_NUM
3402: THEN
3403: Error_Handler.Add_Error_Token
3404: ( p_Message_Name => 'BOM_COPS_AOPSEQ_KEYCOL_NULL'
3405: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3404: ( p_Message_Name => 'BOM_COPS_AOPSEQ_KEYCOL_NULL'
3405: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3406: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3407: );
3408: l_Return_Status := FND_API.G_RET_STS_ERROR;
3409:
3410: END IF;
3411:
3412: IF p_bom_comp_ops_rec.component_item_name IS NULL OR
3409:
3410: END IF;
3411:
3412: IF p_bom_comp_ops_rec.component_item_name IS NULL OR
3413: p_bom_comp_ops_rec.component_item_name = FND_API.G_MISS_CHAR
3414: THEN
3415: Error_Handler.Add_Error_Token
3416: ( p_Message_Name => 'BOM_COPS_COMP_KEYCOL_NULL'
3417: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3416: ( p_Message_Name => 'BOM_COPS_COMP_KEYCOL_NULL'
3417: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3418: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3419: );
3420: l_Return_Status := FND_API.G_RET_STS_ERROR;
3421:
3422: END IF;
3423:
3424: IF p_bom_comp_ops_rec.assembly_item_name IS NULL OR
3421:
3422: END IF;
3423:
3424: IF p_bom_comp_ops_rec.assembly_item_name IS NULL OR
3425: p_bom_comp_ops_rec.assembly_item_name = FND_API.G_MISS_CHAR
3426: THEN
3427: Error_Handler.Add_Error_Token
3428: ( p_Message_Name => 'BOM_COPS_ITEM_KEYCOL_NULL'
3429: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3428: ( p_Message_Name => 'BOM_COPS_ITEM_KEYCOL_NULL'
3429: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3430: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3431: );
3432: l_Return_Status := FND_API.G_RET_STS_ERROR;
3433:
3434: END IF;
3435:
3436: IF p_bom_comp_ops_rec.organization_code IS NULL OR
3433:
3434: END IF;
3435:
3436: IF p_bom_comp_ops_rec.organization_code IS NULL OR
3437: p_bom_comp_ops_rec.organization_code = FND_API.G_MISS_CHAR
3438: THEN
3439: Error_Handler.Add_Error_Token
3440: ( p_Message_Name => 'BOM_COPS_ORG_KEYCOL_NULL'
3441: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3440: ( p_Message_Name => 'BOM_COPS_ORG_KEYCOL_NULL'
3441: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3442: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3443: );
3444: l_Return_Status := FND_API.G_RET_STS_ERROR;
3445:
3446: END IF;
3447:
3448: IF p_bom_comp_ops_rec.start_effective_date IS NULL OR
3445:
3446: END IF;
3447:
3448: IF p_bom_comp_ops_rec.start_effective_date IS NULL OR
3449: p_bom_comp_ops_rec.start_effective_date = FND_API.G_MISS_DATE
3450: THEN
3451: Error_Handler.Add_Error_Token
3452: ( p_Message_Name => 'BOM_COPS_DATE_KEYCOL_NULL'
3453: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3452: ( p_Message_Name => 'BOM_COPS_DATE_KEYCOL_NULL'
3453: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3454: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3455: );
3456: l_Return_Status := FND_API.G_RET_STS_ERROR;
3457: END IF;
3458:
3459: --
3460: -- If key columns are NULL then return
3458:
3459: --
3460: -- If key columns are NULL then return
3461: --
3462: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3463: THEN
3464: x_return_status := l_return_status;
3465: x_mesg_token_tbl := l_mesg_token_tbl;
3466: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3523: , p_Token_Tbl => g_Token_Tbl
3524: );
3525: g_token_tbl.delete(2);
3526:
3527: l_Return_Status := FND_API.G_RET_STS_ERROR;
3528: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3529: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3530: --
3531: -- Set the other message
3571: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3572: , p_Token_Tbl => g_Token_Tbl
3573: );
3574:
3575: l_Return_Status := FND_API.G_RET_STS_ERROR;
3576: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3577: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3578: --
3579: -- Set the other message
3624: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3625: , p_Token_Tbl => g_Token_Tbl
3626: );
3627:
3628: l_Return_Status := FND_API.G_RET_STS_ERROR;
3629: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3630: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3631:
3632: x_other_message := 'BOM_COPS_UUI2_SEV_ERROR';
3655: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3656: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3657: , p_Token_Tbl => g_Token_Tbl
3658: );
3659: l_Return_Status := FND_API.G_RET_STS_ERROR;
3660: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3661: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3662: x_Return_Status := l_Return_Status;
3663: x_other_message := 'BOM_COPS_UUI2_SEV_ERROR';
3703: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3704: , p_Token_Tbl => g_Token_Tbl
3705: );
3706:
3707: l_Return_Status := FND_API.G_RET_STS_ERROR;
3708: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3709: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3710:
3711: --
3757: , p_Token_Tbl => g_Token_Tbl
3758: );
3759:
3760:
3761: l_Return_Status := FND_API.G_RET_STS_ERROR;
3762: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3763: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3764:
3765: --
3789: --
3790: ******************************************************************/
3791: If(p_bom_comp_ops_rec.transaction_type = BOM_globals.G_OPR_UPDATE and
3792: p_bom_comp_ops_rec.new_additional_op_seq_num is not null and
3793: p_bom_comp_ops_rec.new_additional_op_seq_num <> FND_API.G_MISS_NUM) then
3794:
3795: l_bom_comp_ops_unexp_rec.new_additional_op_seq_id :=
3796: Operation_Sequence_Id( p_organization_id =>
3797: l_bom_comp_ops_unexp_rec.organization_id
3819: , p_Token_Tbl => g_Token_Tbl
3820: );
3821:
3822:
3823: l_Return_Status := FND_API.G_RET_STS_ERROR;
3824: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3825: x_bom_comp_ops_unexp_rec := l_bom_comp_ops_unexp_rec;
3826:
3827: --