[Home] [Help]
26: -- 06-May-05 Abhishek Rudresh Common BOM Attr Updates
27: -- 13-JUL-06 Bhavnesh Patel Added support for Structure Type
28: ****************************************************************************/
29: G_Pkg_Name VARCHAR2(30) := 'BOM_Val_To_Id';
30: g_token_tbl Error_Handler.Token_Tbl_Type;
31:
32: function parse_item_name (org_id IN Number,
33: item_name IN Varchar2,
34: id OUT NOCOPY Number,
409: PROCEDURE BOM_Header_UUI_To_UI
410: ( p_bom_header_Rec IN Bom_Bo_Pub.Bom_Head_Rec_Type
411: , p_bom_header_unexp_Rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
412: , x_bom_header_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
413: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
414: , x_Return_Status IN OUT NOCOPY VARCHAR2
415: )
416: IS
417: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
413: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
414: , x_Return_Status IN OUT NOCOPY VARCHAR2
415: )
416: IS
417: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
418: l_bom_header_unexp_rec Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type;
419: l_return_status VARCHAR2(1);
420: l_err_text VARCHAR2(2000);
421:
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;
435:
436:
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
446: , x_mesg_token_tbl => l_mesg_token_tbl
447: );
468: p_bom_header_rec.assembly_item_name;
469: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
470: g_token_tbl(2).token_value :=
471: p_bom_header_rec.organization_code;
472: Error_Handler.Add_Error_Token
473: ( p_Message_Name => 'BOM_ASSEMBLY_ITEM_INVALID'
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
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
486: , p_Message_Text => l_err_text || ' in ' ||
487: G_PKG_NAME
488: , p_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:
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
512: g_token_tbl(1).token_value :=
513: p_bom_header_rec.alternate_bom_code;
514: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
515: g_token_tbl(2).token_value := p_bom_header_rec.organization_code;
516: Error_Handler.Add_Error_Token
517: ( p_Message_Name => 'BOM_ALT_DESIGNATOR_INVALID'
518: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
519: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
520: , p_token_tbl => g_token_tbl
547: * error message.
548: *********************************************************************/
549: PROCEDURE Bom_Header_VID
550: ( x_Return_Status IN OUT NOCOPY VARCHAR2
551: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
552: , p_bom_head_unexp_rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
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: )
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
562: := p_bom_head_unexp_rec;
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
562: := p_bom_head_unexp_rec;
563: l_src_bill_sequence_id NUMBER;
564:
563: l_src_bill_sequence_id NUMBER;
564:
565: BEGIN
566:
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
579: THEN
580: l_token_tbl(1).token_name:= 'ORGANIZATION_CODE';
581: l_token_tbl(1).token_value :=
582: p_bom_header_rec.common_organization_code;
583: Error_Handler.Add_Error_Token
584: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
585: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
586: , p_Message_name =>
587: 'BOM_COMMON_ORG_INVALID'
599: l_bom_head_unexp_rec.common_organization_id :=
600: l_bom_head_unexp_rec.organization_id;
601: END IF;
602:
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
619: l_token_tbl(1).token_name :=
620: 'BOM_COMMON_ASSEMBLY_ITEM_NAME';
621: l_token_tbl(2).token_value :=
622: p_bom_header_rec.common_assembly_item_name;
623: Error_Handler.Add_Error_Token
624: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
625: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
626: , p_Message_name =>
627: 'BOM_COMMON_ASSY_INVALID'
631: ELSIF l_err_text IS NOT NULL AND
632: l_bom_head_unexp_rec.common_assembly_item_id
633: IS NULL
634: THEN
635: Error_Handler.Add_Error_Token
636: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
637: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
638: , p_Message_text =>
639: 'Unexpected Error ' || l_err_text || ' in ' ||
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;
648:
649: --
650: -- Convert common org code and common assembly name information
651: -- into common bill sequence_id
690: l_token_tbl(2).token_name :=
691: 'COMMON_ORGANIZATION_CODE';
692: l_token_tbl(2).token_value :=
693: p_bom_header_rec.common_organization_code;
694: Error_Handler.Add_Error_Token
695: ( p_message_name =>
696: 'BOM_COMMON_BILL_SEQ_NOT_FOUND'
697: , p_token_tbl => l_token_tbl
698: , p_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:
706: IF Bom_Globals.Get_Debug = 'Y' THEN
707: Error_Handler.Write_Debug('Structure Type Name VID conversion . . . ');
708: 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:
706: IF Bom_Globals.Get_Debug = 'Y' THEN
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 )
716: );
717:
718: IF ( l_bom_head_unexp_rec.structure_type_id IS NULL )
719: THEN
720: Error_Handler.Add_Error_Token
721: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
722: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
723: , p_Message_name => 'BOM_STRUCTURE_TYPE_INVALID'
724: , p_token_tbl => l_token_tbl
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
732: Error_Handler.Write_Debug('Converted Structure Type ID . . . ');
733: END IF;
734:
735: x_return_status := l_return_status;
736:
733: END IF;
734:
735: x_return_status := l_return_status;
736:
737: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Return status of Header VID: ' || l_return_status ); end if;
738:
739: x_bom_head_unexp_rec := l_bom_head_unexp_rec;
740: x_mesg_token_tbl := l_mesg_token_tbl;
741:
755: PROCEDURE Bom_Revision_UUI_To_UI2
756: ( p_bom_revision_rec IN Bom_Bo_Pub.Bom_Revision_Rec_Type
757: , p_bom_rev_unexp_rec IN Bom_Bo_Pub.Bom_Rev_Unexposed_Rec_Type
758: , x_bom_rev_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Rev_Unexposed_Rec_Type
759: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
760: , x_return_status IN OUT NOCOPY VARCHAR2
761: )
762: IS
763: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
759: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
760: , x_return_status IN OUT NOCOPY VARCHAR2
761: )
762: IS
763: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
764: l_bom_rev_unexp_rec Bom_Bo_Pub.Bom_Rev_Unexposed_Rec_Type;
765: l_err_text VARCHAR2(2000);
766: BEGIN
767: x_bom_rev_unexp_rec := p_bom_rev_unexp_rec;
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
778: );
779: x_return_status := FND_API.G_RET_STS_ERROR;
799: );
800:
801: IF l_bom_rev_unexp_rec.assembly_item_id IS NULL
802: THEN
803: Error_Handler.Add_Error_Token
804: ( p_Message_Name => 'BOM_ASSEMBLY_ITEM_INVALID'
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
884: l_id NUMBER;
885: BEGIN
886:
887: IF Bom_Globals.Get_Debug = 'Y' THEN
888: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
889: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(p_bill_sequence_id));
890: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
891: END IF;
892:
885: BEGIN
886:
887: IF Bom_Globals.Get_Debug = 'Y' THEN
888: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
889: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(p_bill_sequence_id));
890: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
891: END IF;
892:
893: SELECT component_sequence_id
886:
887: IF Bom_Globals.Get_Debug = 'Y' THEN
888: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
889: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(p_bill_sequence_id));
890: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
891: END IF;
892:
893: SELECT component_sequence_id
894: INTO l_id
1165: * procedures.
1166: ********************************************************************/
1167: PROCEDURE Rev_Component_VID
1168: ( x_Return_Status IN OUT NOCOPY Varchar2
1169: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1170: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1171: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1172: , p_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1173: ) IS
1172: , p_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1173: ) IS
1174: l_return_value NUMBER;
1175: l_Return_Status VARCHAR2(1);
1176: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
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
1173: ) IS
1174: l_return_value NUMBER;
1175: l_Return_Status VARCHAR2(1);
1176: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
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;
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
1202: l_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
1203: l_token_tbl(2).token_value :=
1204: p_rev_component_rec.component_item_name;
1205:
1206: Error_Handler.Add_Error_Token
1207: ( p_Message_Name => 'BOM_LOCATION_NAME_INVALID'
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
1217: , p_Message_Text =>
1218: 'Unexpected error while converting location name'
1219: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1229: --
1230: -- Using old_component information, get the old_component_sequence_id
1231: --
1232: IF Bom_Globals.Get_Debug = 'Y' THEN
1233: Error_Handler.Write_Debug('Executing old_Comp_seqid Val-ID conversion . . .');
1234: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(l_rev_comp_unexp_rec.bill_sequence_id));
1235: END IF;
1236:
1237:
1230: -- Using old_component information, get the old_component_sequence_id
1231: --
1232: IF Bom_Globals.Get_Debug = 'Y' THEN
1233: Error_Handler.Write_Debug('Executing old_Comp_seqid Val-ID conversion . . .');
1234: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(l_rev_comp_unexp_rec.bill_sequence_id));
1235: END IF;
1236:
1237:
1238: IF p_Rev_Component_Rec.old_effectivity_date IS NOT NULL AND
1265: 'OLD_OPERATION_SEQUENCE_NUMBER';
1266: l_token_tbl(3).token_value :=
1267: p_rev_component_rec.old_operation_sequence_number;
1268:
1269: Error_Handler.Add_Error_Token
1270: ( p_Message_Name => 'BOM_OLD_COMP_VID_INVALID'
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
1280: , p_Message_Text =>
1281: 'Unexpected Error while converting old_comp_seq_id'
1282: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1332:
1333:
1334: IF l_Return_Value IS NULL
1335: THEN
1336: Error_Handler.Add_Error_Token
1337: ( p_Message_Name => 'ENG_REVISED_ITEM_INVALID'
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
1347: , p_Message_Text =>
1348: 'Unexpected Error while converting revised_item_sequence_id'
1349: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1377: l_token_tbl(1).token_name := 'VENDOR_NAME';
1378: l_token_tbl(1).token_value :=
1379: p_rev_component_rec.Suggested_Vendor_Name;
1380:
1381: Error_Handler.Add_Error_Token
1382: ( p_Message_Name => 'BOM_NEW_VENDOR_NAME'
1383: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1384: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1385: , p_Token_Tbl => l_Token_Tbl
1389: END IF;
1390:
1391: x_return_status := l_Return_status;
1392:
1393: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('returning from comp vid with ' || l_Return_status); END IF;
1394:
1395: x_mesg_token_tbl := l_Mesg_Token_Tbl;
1396: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1397:
1412: PROCEDURE Rev_Component_UUI_To_UI
1413: ( p_rev_component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1414: , p_rev_comp_unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1415: , x_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1416: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1417: , x_Return_Status IN OUT NOCOPY VARCHAR2
1418: )
1419: IS
1420: l_err_text VARCHAR2(2000);
1418: )
1419: IS
1420: l_err_text VARCHAR2(2000);
1421: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
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;
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
1439: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1440: );
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
1450: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1451: );
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
1462: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1463: );
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
1473: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1474: );
1507: g_Token_Tbl(2).Token_Name := 'ORGANIZATION_CODE';
1508: g_Token_Tbl(2).Token_Value :=
1509: p_rev_component_rec.organization_code;
1510:
1511: Error_Handler.Add_Error_Token
1512: ( p_Message_Name => 'BOM_REVISED_COMP_INVALID'
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
1521: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1522: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1523: x_Return_Status := l_Return_Status;
1524:
1525: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Returning from Rev_Component_UUI_To_UI with ' || l_Return_Status); END IF;
1526:
1527: END Rev_Component_UUI_To_UI;
1528:
1529: /*****************************************************************
1537: PROCEDURE Rev_Component_UUI_to_UI2
1538: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1539: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1540: , x_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1541: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1542: , x_other_message IN OUT NOCOPY VARCHAR2
1543: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
1544: , x_Return_Status IN OUT NOCOPY VARCHAR2
1545: )
1539: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1540: , x_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1541: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1542: , x_other_message IN OUT NOCOPY VARCHAR2
1543: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
1544: , x_Return_Status IN OUT NOCOPY VARCHAR2
1545: )
1546: IS
1547: l_return_status VARCHAR2(1);
1544: , x_Return_Status IN OUT NOCOPY VARCHAR2
1545: )
1546: IS
1547: l_return_status VARCHAR2(1);
1548: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
1549: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1550: := p_rev_comp_unexp_rec;
1551: l_err_text VARCHAR2(2000);
1552: BEGIN
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
1564: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1565: );
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
1575: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1576: );
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;
1599:
1600: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting assembly item ' || p_rev_component_rec.revised_item_name); END IF;
1601:
1602: l_rev_comp_unexp_rec.revised_item_id :=
1603: Revised_Item( p_revised_item_num =>
1604: p_rev_component_rec.revised_item_name
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
1617: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1618: , p_Token_Tbl => g_Token_Tbl
1650: -- Using the revised item key information, get the bill_sequence_id
1651: -- and revised item sequence id
1652: --
1653: ****************************************************************/
1654: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing UUI_UI2 for components and retrieving rev item seq id . . . '); END IF;
1655:
1656: IF Bom_Globals.Get_Bo_Identifier <> 'BOM'
1657: THEN
1658: NULL ;
1694: g_token_tbl(3).token_name := 'ECO_NAME';
1695: g_token_tbl(3).token_value :=
1696: p_rev_component_rec.eco_name;
1697:
1698: Error_Handler.Add_Error_Token
1699: ( p_Message_Name => 'BOM_REV_SEQUENCE_NOT_FOUND'
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
1709: x_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
1710: x_other_token_tbl(1).token_value :=
1711: p_rev_component_rec.component_item_name;
1712:
1713: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
1714:
1715: RETURN;
1716:
1717: END IF;
1720: ELSE
1721: --
1722: -- If the calling BO is BOM then get the bill sequence id
1723: --
1724: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq for assembly item ' || l_rev_comp_unexp_rec.revised_item_id); END IF;
1725:
1726: l_rev_comp_unexp_rec.bill_sequence_id :=
1727: bill_sequence_id(p_assembly_item_id =>
1728: l_rev_comp_unexp_rec.revised_item_id,
1741: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
1742: g_Token_Tbl(2).Token_Value :=
1743: p_rev_component_rec.revised_item_name;
1744:
1745: Error_Handler.Add_Error_Token
1746: ( p_Message_Name => 'BOM_BOM_SEQUENCE_NOT_FOUND'
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
1771: ELSE
1772: l_rev_comp_unexp_rec.bom_implementation_date := SYSDATE;
1773: END IF;
1774:
1775: Error_Handler.Write_Debug('BOM Implementation date is '||l_rev_comp_unexp_rec.bom_implementation_date);
1776:
1777: IF p_rev_component_rec.transaction_type IN
1778: ( BOM_Globals.G_OPR_UPDATE, BOM_globals.G_OPR_DELETE,
1779: BOM_Globals.G_OPR_CANCEL
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;
1789:
1790: Error_Handler.Add_Error_Token
1791: ( p_Message_Name => 'BOM_BILL_SEQUENCE_NOT_FOUND'
1792: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1793: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1794: , p_Token_Tbl => g_Token_Tbl
1803:
1804: RETURN;
1805: END IF;
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
1821: g_Token_Tbl(2).Token_Name := 'ENFORCE_INTEGER';
1822: g_Token_Tbl(2).Token_Value :=
1823: p_rev_component_rec.enforce_int_requirements;
1824:
1825: Error_Handler.Add_Error_Token
1826: ( p_Message_Name => 'BOM_ENFORCE_INTCODE_NOTFOUND'
1827: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1828: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1829: , p_Token_Tbl => g_Token_Tbl
1862: PROCEDURE Sub_Component_UUI_To_UI
1863: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
1864: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
1865: , x_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
1866: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1867: , x_Return_Status IN OUT NOCOPY VARCHAR2
1868: )
1869: IS
1870: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1867: , x_Return_Status IN OUT NOCOPY VARCHAR2
1868: )
1869: IS
1870: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1871: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1872: l_Err_Text VARCHAR2(2000);
1873: l_return_status VARCHAR2(1);
1874: l_token_tbl Error_Handler.Token_Tbl_Type;
1875: BEGIN
1870: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1871: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1872: l_Err_Text VARCHAR2(2000);
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:
1886: p_sub_component_rec.acd_type NOT IN (1, 3)
1887: ) AND
1888: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
1889: THEN
1890: Error_Handler.Add_Error_Token
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: );
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
1914: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1915: );
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
1924: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1925: );
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
1934: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1935: );
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
1945: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1946: );
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
1956: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1957: );
1988: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1989: g_token_tbl(2).token_value :=
1990: p_sub_component_rec.organization_code;
1991:
1992: Error_Handler.Add_Error_Token
1993: ( p_Message_Name => 'BOM_SUBSTITUTE_ITEM_INVALID'
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
2027: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2028: g_token_tbl(2).token_value :=
2029: p_sub_component_rec.organization_code;
2030:
2031: Error_Handler.Add_Error_Token
2032: ( p_Message_Name => 'BOM_SUBSTITUTE_ITEM_INVALID'
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
2055: PROCEDURE Sub_Component_UUI_To_UI2
2056: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
2057: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
2058: , x_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
2059: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2060: , x_other_message IN OUT NOCOPY VARCHAR2
2061: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
2062: , x_Return_Status IN OUT NOCOPY VARCHAR2
2063: )
2057: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
2058: , x_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
2059: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2060: , x_other_message IN OUT NOCOPY VARCHAR2
2061: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
2062: , x_Return_Status IN OUT NOCOPY VARCHAR2
2063: )
2064: IS
2065: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
2062: , x_Return_Status IN OUT NOCOPY VARCHAR2
2063: )
2064: IS
2065: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
2066: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2067: l_Err_Text VARCHAR2(2000);
2068: l_return_status VARCHAR2(1);
2069: l_dummy NUMBER;
2070: BEGIN
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
2085: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2086: );
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
2108: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2109: );
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
2119: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2120: );
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
2130: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2131: );
2171: p_sub_component_rec.revised_item_name;
2172: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2173: g_token_tbl(2).token_value :=
2174: p_sub_component_rec.organization_code;
2175: Error_Handler.Add_Error_Token
2176: ( p_Message_Name => 'ENG_REVISED_ITEM_INVALID'
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
2214: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2215: g_token_tbl(2).token_value :=
2216: p_sub_component_rec.organization_code;
2217:
2218: Error_Handler.Add_Error_Token
2219: ( p_Message_Name => 'BOM_REVISED_COMP_INVALID'
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
2288: p_sub_component_rec.substitute_component_name;
2289: g_token_tbl(3).token_name := 'ECO_NAME';
2290: g_token_tbl(3).token_value :=
2291: p_sub_component_rec.eco_name;
2292: Error_Handler.Add_Error_Token
2293: ( p_Message_Name => 'BOM_SBC_REV_SEQ_NOT_FOUND'
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
2315: ELSE
2316: --
2317: -- If the calling BO is BOM then get the bill sequence id
2318: --
2319: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq for assembly item ' || l_sub_comp_unexp_rec.revised_item_id); END IF;
2320:
2321: l_sub_comp_unexp_rec.bill_sequence_id :=
2322: bill_sequence_id(p_assembly_item_id =>
2323: l_sub_comp_unexp_rec.revised_item_id,
2336: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
2337: g_Token_Tbl(2).Token_Value :=
2338: p_sub_component_rec.revised_item_name;
2339:
2340: Error_Handler.Add_Error_Token
2341: ( p_Message_Name => 'BOM_BOM_SEQUENCE_NOT_FOUND'
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
2378: l_sub_comp_unexp_rec.bill_sequence_id
2379: , x_err_text => l_Err_Text
2380: );
2381:
2382: if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Component sequence ' || l_sub_comp_unexp_rec.component_sequence_id); END IF;
2383:
2384: IF l_sub_comp_unexp_rec.component_sequence_id IS NULL
2385: THEN
2386: g_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
2393: g_Token_Tbl(3).Token_Value :=
2394: p_sub_component_rec.substitute_component_name;
2395:
2396:
2397: Error_Handler.Add_Error_Token
2398: ( p_Message_Name => 'BOM_SBC_COMP_SEQ_NOT_FOUND'
2399: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2400: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2401: , p_Token_Tbl => g_Token_Tbl
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:
2416: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
2417:
2418: BEGIN
2419: SELECT 1
2420: INTO l_dummy
2422: WHERE bill_sequence_id = source_bill_sequence_id
2423: AND bill_sequence_id = l_sub_comp_unexp_rec.bill_Sequence_id;
2424: EXCEPTION
2425: WHEN NO_DATA_FOUND THEN
2426: Error_Handler.Add_Error_Token
2427: ( p_Message_Name => 'BOM_COMMON_SUB_COMP'
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
2440: END;
2441:
2442: */
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
2450: l_sub_comp_unexp_rec.enforce_int_requirements_code :=
2451: Get_EnforceInteger_Code(
2452: p_enforce_integer => p_sub_component_rec.enforce_int_requirements);
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
2465: g_Token_Tbl(3).Token_Name := 'ENFORCE_INTEGER';
2466: g_Token_Tbl(3).Token_Value :=
2467: p_sub_component_rec.enforce_int_requirements;
2468:
2469: Error_Handler.Add_Error_Token
2470: ( p_Message_Name => 'BOM_ENFORCE_INTCODE_NOTFOUND'
2471: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2472: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2473: , p_Token_Tbl => g_Token_Tbl
2504: PROCEDURE Ref_Designator_UUI_To_UI
2505: ( p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
2506: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2507: , x_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2508: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2509: , x_Return_Status IN OUT NOCOPY VARCHAR2
2510: )
2511: IS
2512: l_ref_desg_unexp_rec Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type;
2509: , x_Return_Status IN OUT NOCOPY VARCHAR2
2510: )
2511: IS
2512: l_ref_desg_unexp_rec Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type;
2513: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2514: l_Err_Text VARCHAR2(2000);
2515: l_Return_Status VARCHAR2(1);
2516: l_token_tbl Error_Handler.Token_Tbl_Type;
2517:
2512: l_ref_desg_unexp_rec Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type;
2513: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2514: l_Err_Text VARCHAR2(2000);
2515: l_Return_Status VARCHAR2(1);
2516: l_token_tbl Error_Handler.Token_Tbl_Type;
2517:
2518: BEGIN
2519:
2520: l_return_status := FND_API.G_RET_STS_SUCCESS;
2544: l_token_tbl(4).token_value := p_ref_designator_rec.acd_type;
2545:
2546: --added for bug 9647673 (end)
2547:
2548: Error_Handler.Add_Error_Token
2549: ( p_Message_Name => 'BOM_RFD_ACD_TYPE_INVALID'
2550: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2551: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2552: , p_Token_Tbl => l_Token_Tbl --added for bug 9647673
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
2584: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2585: );
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
2596: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2597: );
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
2608: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2609: );
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
2620: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2621: );
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
2632: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2633: );
2659: PROCEDURE Ref_Designator_UUI_To_UI2
2660: ( p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
2661: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2662: , x_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2663: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2664: , x_other_message IN OUT NOCOPY VARCHAR2
2665: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
2666: , x_Return_Status IN OUT NOCOPY VARCHAR2
2667: )
2661: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2662: , x_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2663: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2664: , x_other_message IN OUT NOCOPY VARCHAR2
2665: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
2666: , x_Return_Status IN OUT NOCOPY VARCHAR2
2667: )
2668: IS
2669: l_ref_desg_unexp_rec Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type :=
2667: )
2668: IS
2669: l_ref_desg_unexp_rec Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type :=
2670: p_ref_desg_unexp_rec;
2671: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2672: l_Err_Text VARCHAR2(2000);
2673: l_Return_Status VARCHAR2(1);
2674: l_dummy NUMBER;
2675: BEGIN
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
2687: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2688: );
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
2711: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2712: );
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
2723: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2724: );
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
2735: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2736: );
2765: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2766: g_token_tbl(2).token_value :=
2767: p_ref_designator_rec.organization_code;
2768:
2769: Error_Handler.Add_Error_Token
2770: ( p_Message_Name => 'ENG_REVISED_ITEM_INVALID'
2771: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2772: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2773: , p_Token_Tbl => g_Token_Tbl
2811: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2812: g_token_tbl(2).token_value :=
2813: p_ref_designator_rec.organization_code;
2814:
2815: Error_Handler.Add_Error_Token
2816: ( p_Message_Name => 'BOM_REVISED_COMP_INVALID'
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
2879: g_Token_Tbl(3).Token_Name := 'ECO_NAME';
2880: g_Token_Tbl(3).Token_Value :=
2881: p_ref_designator_rec.eco_name;
2882:
2883: Error_Handler.Add_Error_Token
2884: ( p_Message_Name => 'BOM_RFD_REV_SEQ_NOT_FOUND'
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
2906: ELSE
2907: --
2908: -- If the calling BO is BOM then get the bill sequence id
2909: --
2910: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq f
2911: or assembly item ' || l_ref_desg_unexp_rec.revised_item_id); END IF;
2912:
2913: l_ref_desg_unexp_rec.bill_sequence_id :=
2914: bill_sequence_id(p_assembly_item_id =>
2927: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
2928: g_Token_Tbl(2).Token_Value :=
2929: p_ref_designator_rec.revised_item_name;
2930:
2931: Error_Handler.Add_Error_Token
2932: ( p_Message_Name => 'BOM_BOM_SEQUENCE_NOT_FOUND'
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
2959: g_Token_Tbl(2).Token_Name := 'REFERENCE_DESIGNATOR_NAME';
2960: g_Token_Tbl(2).Token_Value :=
2961: p_ref_designator_rec.reference_designator_name;
2962:
2963: Error_Handler.Add_Error_Token
2964: ( p_Message_Name => 'BOM_RFD_BILL_SEQ_NOT_FOUND'
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
3008: g_Token_Tbl(3).Token_Name := 'REVISED_COMPONENT_NAME';
3009: g_Token_Tbl(3).Token_Value :=
3010: p_ref_designator_rec.component_item_name;
3011:
3012: Error_Handler.Add_Error_Token
3013: ( p_Message_Name => 'BOM_RFD_COMP_SEQ_NOT_FOUND'
3014: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3015: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3016: , p_Token_Tbl => g_Token_Tbl
3027: g_Token_Tbl.Delete;
3028: END IF;
3029: END IF; -- Added by MK on 12/04/00
3030:
3031: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Ref Desg: Checking for editable common bill...'); END IF;
3032:
3033: BEGIN
3034: SELECT 1
3035: INTO l_dummy
3037: WHERE bill_sequence_id = source_bill_sequence_id
3038: AND bill_sequence_id = l_ref_desg_unexp_rec.bill_sequence_id;
3039: EXCEPTION
3040: WHEN NO_DATA_FOUND THEN
3041: Error_Handler.Add_Error_Token
3042: ( p_Message_Name => 'BOM_COMMON_REF_DESG'
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
3069: PROCEDURE Bom_Component_UUI_To_UI
3070: ( p_bom_component_Rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
3071: , p_bom_comp_unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3072: , x_bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3073: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3074: , x_Return_Status IN OUT NOCOPY VARCHAR2
3075: )
3076: IS
3077: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
3113: PROCEDURE Bom_Component_UUI_to_UI2
3114: ( p_Bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
3115: , p_Bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3116: , x_Bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3117: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3118: , x_other_message IN OUT NOCOPY VARCHAR2
3119: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3120: , x_Return_Status IN OUT NOCOPY VARCHAR2
3121: )
3115: , p_Bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3116: , x_Bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3117: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3118: , x_other_message IN OUT NOCOPY VARCHAR2
3119: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3120: , x_Return_Status IN OUT NOCOPY VARCHAR2
3121: )
3122: IS
3123: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
3159:
3160:
3161: PROCEDURE Bom_Component_VID
3162: ( x_return_status IN OUT NOCOPY VARCHAR2
3163: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3164: , x_bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3165: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
3166: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3167: )
3204: PROCEDURE Sub_Component_UUI_To_UI
3205: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
3206: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3207: , x_bom_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3208: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3209: , x_Return_Status IN OUT NOCOPY VARCHAR2
3210: )
3211: IS
3212: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
3248: PROCEDURE Sub_Component_UUI_To_UI2
3249: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
3250: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3251: , x_bom_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3252: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3253: , x_other_message IN OUT NOCOPY VARCHAR2
3254: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3255: , x_Return_Status IN OUT NOCOPY VARCHAR2
3256: )
3250: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3251: , x_bom_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3252: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3253: , x_other_message IN OUT NOCOPY VARCHAR2
3254: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3255: , x_Return_Status IN OUT NOCOPY VARCHAR2
3256: )
3257: IS
3258: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
3297: PROCEDURE Ref_Designator_UUI_To_UI
3298: ( p_bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
3299: , p_bom_ref_desg_unexp_rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
3300: , x_bom_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
3301: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3302: , x_Return_Status IN OUT NOCOPY VARCHAR2
3303: )
3304: IS
3305: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_Rec_Type;
3340: PROCEDURE Ref_Designator_UUI_To_UI2
3341: ( p_Bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
3342: , p_Bom_ref_desg_unexp_rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
3343: , x_Bom_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
3344: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3345: , x_other_message IN OUT NOCOPY VARCHAR2
3346: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3347: , x_Return_Status IN OUT NOCOPY VARCHAR2
3348: )
3342: , p_Bom_ref_desg_unexp_rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
3343: , x_Bom_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
3344: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3345: , x_other_message IN OUT NOCOPY VARCHAR2
3346: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3347: , x_Return_Status IN OUT NOCOPY VARCHAR2
3348: )
3349: IS
3350: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_Rec_Type;
3398: PROCEDURE Bom_Comp_Operation_UUI_To_UI
3399: ( p_bom_comp_ops_rec IN Bom_Bo_Pub.Bom_Comp_Ops_Rec_Type
3400: , p_bom_comp_ops_unexp_rec IN Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3401: , x_bom_comp_ops_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3402: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3403: , x_Return_Status IN OUT NOCOPY VARCHAR2
3404: )
3405: IS
3406: l_bom_comp_ops_unexp_rec Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type;
3403: , x_Return_Status IN OUT NOCOPY VARCHAR2
3404: )
3405: IS
3406: l_bom_comp_ops_unexp_rec Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type;
3407: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3408: l_Err_Text VARCHAR2(2000);
3409: l_Return_Status VARCHAR2(1);
3410: l_token_tbl Error_Handler.Token_Tbl_Type;
3411: BEGIN
3406: l_bom_comp_ops_unexp_rec Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type;
3407: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3408: l_Err_Text VARCHAR2(2000);
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:
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
3437: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3438: );
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
3449: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3450: );
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
3461: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3462: );
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
3473: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3474: );
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
3485: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3486: );
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
3497: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3498: );
3526: PROCEDURE Bom_Comp_Operation_UUI_To_UI2
3527: ( p_bom_comp_ops_rec IN Bom_Bo_Pub.Bom_Comp_Ops_Rec_Type
3528: , p_bom_comp_ops_unexp_rec IN Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3529: , x_bom_comp_ops_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3530: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3531: , x_other_message IN OUT NOCOPY VARCHAR2
3532: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3533: , x_Return_Status IN OUT NOCOPY VARCHAR2
3534: )
3528: , p_bom_comp_ops_unexp_rec IN Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3529: , x_bom_comp_ops_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3530: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3531: , x_other_message IN OUT NOCOPY VARCHAR2
3532: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3533: , x_Return_Status IN OUT NOCOPY VARCHAR2
3534: )
3535: IS
3536: l_bom_comp_ops_unexp_rec Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type :=
3534: )
3535: IS
3536: l_bom_comp_ops_unexp_rec Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type :=
3537: p_bom_comp_ops_unexp_rec;
3538: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3539: l_Err_Text VARCHAR2(2000);
3540: l_Return_Status VARCHAR2(1);
3541: l_dummy NUMBER;
3542: BEGIN
3558: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
3559: g_token_tbl(2).token_value :=
3560: p_bom_comp_ops_rec.organization_code;
3561:
3562: Error_Handler.Add_Error_Token
3563: ( p_Message_Name => 'ENG_REVISED_ITEM_INVALID'
3564: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3565: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3566: , p_Token_Tbl => g_Token_Tbl
3607: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
3608: g_token_tbl(2).token_value :=
3609: p_bom_comp_ops_rec.organization_code;
3610:
3611: Error_Handler.Add_Error_Token
3612: ( p_Message_Name => 'BOM_REVISED_COMP_INVALID'
3613: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3614: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3615: , p_Token_Tbl => g_Token_Tbl
3638: -- Convert revised item information to bill_sequence_id
3639: --
3640: *****************************************************************/
3641: --
3642: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq f
3643: or assembly item ' || l_bom_comp_ops_unexp_rec.assembly_item_id); END IF;
3644:
3645: l_bom_comp_ops_unexp_rec.bill_sequence_id :=
3646: bill_sequence_id(p_assembly_item_id =>
3660: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
3661: g_Token_Tbl(2).Token_Value :=
3662: p_bom_comp_ops_rec.assembly_item_name;
3663:
3664: Error_Handler.Add_Error_Token
3665: ( p_Message_Name => 'BOM_BOM_SEQUENCE_NOT_FOUND'
3666: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3667: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3668: , p_Token_Tbl => g_Token_Tbl
3682: x_Return_Status := l_Return_Status;
3683: RETURN;
3684: END IF;
3685:
3686: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Comp OP: Checking for editable common bill...'); END IF;
3687:
3688: BEGIN
3689: SELECT 1
3690: INTO l_dummy
3692: WHERE bill_sequence_id = source_bill_sequence_id
3693: AND bill_sequence_id = l_bom_comp_ops_unexp_rec.bill_Sequence_id;
3694: EXCEPTION
3695: WHEN NO_DATA_FOUND THEN
3696: Error_Handler.Add_Error_Token
3697: ( p_Message_Name => 'BOM_COMMON_COMP_OP'
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
3739: g_Token_Tbl(2).Token_Name := 'OPERATION_SEQUENCE_NUMBER';
3740: g_Token_Tbl(2).Token_Value :=
3741: p_bom_comp_ops_rec.additional_operation_seq_num;
3742:
3743: Error_Handler.Add_Error_Token
3744: ( p_Message_Name => 'BOM_COPS_COMP_SEQ_NOT_FOUND'
3745: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3746: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3747: , p_Token_Tbl => g_Token_Tbl
3792: g_Token_Tbl(2).Token_Name := 'OPERATION_SEQUENCE_NUMBER';
3793: g_Token_Tbl(2).Token_Value :=
3794: p_bom_comp_ops_rec.additional_operation_seq_num;
3795:
3796: Error_Handler.Add_Error_Token
3797: ( p_Message_Name => 'BOM_COPS_OPSEQID_NOT_FOUND'
3798: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3799: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3800: , p_Token_Tbl => g_Token_Tbl
3846: g_Token_Tbl(2).Token_Name := 'OPERATION_SEQUENCE_NUMBER';
3847: g_Token_Tbl(2).Token_Value :=
3848: p_bom_comp_ops_rec.additional_operation_seq_num;
3849:
3850: Error_Handler.Add_Error_Token
3851: ( p_Message_Name => 'BOM_COPS_OPSEQID_NOT_FOUND'
3852: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3853: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3854: , p_Token_Tbl => g_Token_Tbl
3911: g_Token_Tbl(2).Token_Name := 'OPERATION_SEQUENCE_NUMBER';
3912: g_Token_Tbl(2).Token_Value :=
3913: p_bom_comp_ops_rec.new_additional_op_seq_num;
3914:
3915: Error_Handler.Add_Error_Token
3916: ( p_Message_Name => 'BOM_COPS_OPSEQID_NOT_FOUND'
3917: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3918: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3919: , p_Token_Tbl => g_Token_Tbl