[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,
384: PROCEDURE BOM_Header_UUI_To_UI
385: ( p_bom_header_Rec IN Bom_Bo_Pub.Bom_Head_Rec_Type
386: , p_bom_header_unexp_Rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
387: , x_bom_header_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
388: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
389: , x_Return_Status IN OUT NOCOPY VARCHAR2
390: )
391: IS
392: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
388: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
389: , x_Return_Status IN OUT NOCOPY VARCHAR2
390: )
391: IS
392: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
393: l_bom_header_unexp_rec Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type;
394: l_return_status VARCHAR2(1);
395: l_err_text VARCHAR2(2000);
396:
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;
410:
411:
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
421: , x_mesg_token_tbl => l_mesg_token_tbl
422: );
443: p_bom_header_rec.assembly_item_name;
444: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
445: g_token_tbl(2).token_value :=
446: p_bom_header_rec.organization_code;
447: Error_Handler.Add_Error_Token
448: ( p_Message_Name => 'BOM_ASSEMBLY_ITEM_INVALID'
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
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
461: , p_Message_Text => l_err_text || ' in ' ||
462: G_PKG_NAME
463: , p_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:
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
487: g_token_tbl(1).token_value :=
488: p_bom_header_rec.alternate_bom_code;
489: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
490: g_token_tbl(2).token_value := p_bom_header_rec.organization_code;
491: Error_Handler.Add_Error_Token
492: ( p_Message_Name => 'BOM_ALT_DESIGNATOR_INVALID'
493: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
494: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
495: , p_token_tbl => g_token_tbl
522: * error message.
523: *********************************************************************/
524: PROCEDURE Bom_Header_VID
525: ( x_Return_Status IN OUT NOCOPY VARCHAR2
526: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
527: , p_bom_head_unexp_rec IN Bom_Bo_Pub.Bom_Head_Unexposed_Rec_Type
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: )
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
537: := p_bom_head_unexp_rec;
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
537: := p_bom_head_unexp_rec;
538: l_src_bill_sequence_id NUMBER;
539:
538: l_src_bill_sequence_id NUMBER;
539:
540: BEGIN
541:
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
554: THEN
555: l_token_tbl(1).token_name:= 'ORGANIZATION_CODE';
556: l_token_tbl(1).token_value :=
557: p_bom_header_rec.common_organization_code;
558: Error_Handler.Add_Error_Token
559: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
560: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
561: , p_Message_name =>
562: 'BOM_COMMON_ORG_INVALID'
574: l_bom_head_unexp_rec.common_organization_id :=
575: l_bom_head_unexp_rec.organization_id;
576: END IF;
577:
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
594: l_token_tbl(1).token_name :=
595: 'BOM_COMMON_ASSEMBLY_ITEM_NAME';
596: l_token_tbl(2).token_value :=
597: p_bom_header_rec.common_assembly_item_name;
598: Error_Handler.Add_Error_Token
599: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
600: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
601: , p_Message_name =>
602: 'BOM_COMMON_ASSY_INVALID'
606: ELSIF l_err_text IS NOT NULL AND
607: l_bom_head_unexp_rec.common_assembly_item_id
608: IS NULL
609: THEN
610: Error_Handler.Add_Error_Token
611: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
612: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
613: , p_Message_text =>
614: 'Unexpected Error ' || l_err_text || ' in ' ||
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;
623:
624: --
625: -- Convert common org code and common assembly name information
626: -- into common bill sequence_id
665: l_token_tbl(2).token_name :=
666: 'COMMON_ORGANIZATION_CODE';
667: l_token_tbl(2).token_value :=
668: p_bom_header_rec.common_organization_code;
669: Error_Handler.Add_Error_Token
670: ( p_message_name =>
671: 'BOM_COMMON_BILL_SEQ_NOT_FOUND'
672: , p_token_tbl => l_token_tbl
673: , p_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:
681: IF Bom_Globals.Get_Debug = 'Y' THEN
682: Error_Handler.Write_Debug('Structure Type Name VID conversion . . . ');
683: 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:
681: IF Bom_Globals.Get_Debug = 'Y' THEN
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 )
691: );
692:
693: IF ( l_bom_head_unexp_rec.structure_type_id IS NULL )
694: THEN
695: Error_Handler.Add_Error_Token
696: ( p_mesg_token_tbl => l_Mesg_Token_Tbl
697: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
698: , p_Message_name => 'BOM_STRUCTURE_TYPE_INVALID'
699: , p_token_tbl => l_token_tbl
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
707: Error_Handler.Write_Debug('Converted Structure Type ID . . . ');
708: END IF;
709:
710: x_return_status := l_return_status;
711:
708: END IF;
709:
710: x_return_status := l_return_status;
711:
712: If Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Return status of Header VID: ' || l_return_status ); end if;
713:
714: x_bom_head_unexp_rec := l_bom_head_unexp_rec;
715: x_mesg_token_tbl := l_mesg_token_tbl;
716:
730: PROCEDURE Bom_Revision_UUI_To_UI2
731: ( p_bom_revision_rec IN Bom_Bo_Pub.Bom_Revision_Rec_Type
732: , p_bom_rev_unexp_rec IN Bom_Bo_Pub.Bom_Rev_Unexposed_Rec_Type
733: , x_bom_rev_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Rev_Unexposed_Rec_Type
734: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
735: , x_return_status IN OUT NOCOPY VARCHAR2
736: )
737: IS
738: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
734: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
735: , x_return_status IN OUT NOCOPY VARCHAR2
736: )
737: IS
738: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
739: l_bom_rev_unexp_rec Bom_Bo_Pub.Bom_Rev_Unexposed_Rec_Type;
740: l_err_text VARCHAR2(2000);
741: BEGIN
742: x_bom_rev_unexp_rec := p_bom_rev_unexp_rec;
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
753: );
754: x_return_status := FND_API.G_RET_STS_ERROR;
774: );
775:
776: IF l_bom_rev_unexp_rec.assembly_item_id IS NULL
777: THEN
778: Error_Handler.Add_Error_Token
779: ( p_Message_Name => 'BOM_ASSEMBLY_ITEM_INVALID'
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
859: l_id NUMBER;
860: BEGIN
861:
862: IF Bom_Globals.Get_Debug = 'Y' THEN
863: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
864: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(p_bill_sequence_id));
865: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
866: END IF;
867:
860: BEGIN
861:
862: IF Bom_Globals.Get_Debug = 'Y' THEN
863: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
864: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(p_bill_sequence_id));
865: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
866: END IF;
867:
868: SELECT component_sequence_id
861:
862: IF Bom_Globals.Get_Debug = 'Y' THEN
863: Error_Handler.Write_Debug('Old Operation: ' || to_char(p_old_op_seq_num));
864: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(p_bill_sequence_id));
865: Error_Handler.Write_Debug('Old Effective: ' || to_char(p_old_effective_date));
866: END IF;
867:
868: SELECT component_sequence_id
869: INTO l_id
1140: * procedures.
1141: ********************************************************************/
1142: PROCEDURE Rev_Component_VID
1143: ( x_Return_Status IN OUT NOCOPY Varchar2
1144: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1145: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1146: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1147: , p_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1148: ) IS
1147: , p_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1148: ) IS
1149: l_return_value NUMBER;
1150: l_Return_Status VARCHAR2(1);
1151: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
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
1148: ) IS
1149: l_return_value NUMBER;
1150: l_Return_Status VARCHAR2(1);
1151: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
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;
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
1177: l_token_tbl(2).token_name := 'REVISED_COMPONENT_NAME';
1178: l_token_tbl(2).token_value :=
1179: p_rev_component_rec.component_item_name;
1180:
1181: Error_Handler.Add_Error_Token
1182: ( p_Message_Name => 'BOM_LOCATION_NAME_INVALID'
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
1192: , p_Message_Text =>
1193: 'Unexpected error while converting location name'
1194: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1204: --
1205: -- Using old_component information, get the old_component_sequence_id
1206: --
1207: IF Bom_Globals.Get_Debug = 'Y' THEN
1208: Error_Handler.Write_Debug('Executing old_Comp_seqid Val-ID conversion . . .');
1209: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(l_rev_comp_unexp_rec.bill_sequence_id));
1210: END IF;
1211:
1212:
1205: -- Using old_component information, get the old_component_sequence_id
1206: --
1207: IF Bom_Globals.Get_Debug = 'Y' THEN
1208: Error_Handler.Write_Debug('Executing old_Comp_seqid Val-ID conversion . . .');
1209: Error_Handler.Write_Debug('Bill Sequence: ' || to_char(l_rev_comp_unexp_rec.bill_sequence_id));
1210: END IF;
1211:
1212:
1213: IF p_Rev_Component_Rec.old_effectivity_date IS NOT NULL AND
1240: 'OLD_OPERATION_SEQUENCE_NUMBER';
1241: l_token_tbl(3).token_value :=
1242: p_rev_component_rec.old_operation_sequence_number;
1243:
1244: Error_Handler.Add_Error_Token
1245: ( p_Message_Name => 'BOM_OLD_COMP_VID_INVALID'
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
1255: , p_Message_Text =>
1256: 'Unexpected Error while converting old_comp_seq_id'
1257: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1307:
1308:
1309: IF l_Return_Value IS NULL
1310: THEN
1311: Error_Handler.Add_Error_Token
1312: ( p_Message_Name => 'ENG_REVISED_ITEM_INVALID'
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
1322: , p_Message_Text =>
1323: 'Unexpected Error while converting revised_item_sequence_id'
1324: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1352: l_token_tbl(1).token_name := 'VENDOR_NAME';
1353: l_token_tbl(1).token_value :=
1354: p_rev_component_rec.Suggested_Vendor_Name;
1355:
1356: Error_Handler.Add_Error_Token
1357: ( p_Message_Name => 'BOM_NEW_VENDOR_NAME'
1358: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1359: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1360: , p_Token_Tbl => l_Token_Tbl
1364: END IF;
1365:
1366: x_return_status := l_Return_status;
1367:
1368: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('returning from comp vid with ' || l_Return_status); END IF;
1369:
1370: x_mesg_token_tbl := l_Mesg_Token_Tbl;
1371: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1372:
1387: PROCEDURE Rev_Component_UUI_To_UI
1388: ( p_rev_component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1389: , p_rev_comp_unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1390: , x_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1391: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1392: , x_Return_Status IN OUT NOCOPY VARCHAR2
1393: )
1394: IS
1395: l_err_text VARCHAR2(2000);
1393: )
1394: IS
1395: l_err_text VARCHAR2(2000);
1396: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
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;
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
1414: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1415: );
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
1425: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1426: );
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
1437: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1438: );
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
1448: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1449: );
1482: g_Token_Tbl(2).Token_Name := 'ORGANIZATION_CODE';
1483: g_Token_Tbl(2).Token_Value :=
1484: p_rev_component_rec.organization_code;
1485:
1486: Error_Handler.Add_Error_Token
1487: ( p_Message_Name => 'BOM_REVISED_COMP_INVALID'
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
1496: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1497: x_rev_comp_unexp_rec := l_rev_comp_unexp_rec;
1498: x_Return_Status := l_Return_Status;
1499:
1500: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Returning from Rev_Component_UUI_To_UI with ' || l_Return_Status); END IF;
1501:
1502: END Rev_Component_UUI_To_UI;
1503:
1504: /*****************************************************************
1512: PROCEDURE Rev_Component_UUI_to_UI2
1513: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1514: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1515: , x_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1516: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1517: , x_other_message IN OUT NOCOPY VARCHAR2
1518: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
1519: , x_Return_Status IN OUT NOCOPY VARCHAR2
1520: )
1514: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1515: , x_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1516: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1517: , x_other_message IN OUT NOCOPY VARCHAR2
1518: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
1519: , x_Return_Status IN OUT NOCOPY VARCHAR2
1520: )
1521: IS
1522: l_return_status VARCHAR2(1);
1519: , x_Return_Status IN OUT NOCOPY VARCHAR2
1520: )
1521: IS
1522: l_return_status VARCHAR2(1);
1523: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
1524: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
1525: := p_rev_comp_unexp_rec;
1526: l_err_text VARCHAR2(2000);
1527: BEGIN
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
1539: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1540: );
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
1550: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1551: );
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;
1574:
1575: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Converting assembly item ' || p_rev_component_rec.revised_item_name); END IF;
1576:
1577: l_rev_comp_unexp_rec.revised_item_id :=
1578: Revised_Item( p_revised_item_num =>
1579: p_rev_component_rec.revised_item_name
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
1592: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1593: , p_Token_Tbl => g_Token_Tbl
1625: -- Using the revised item key information, get the bill_sequence_id
1626: -- and revised item sequence id
1627: --
1628: ****************************************************************/
1629: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Processing UUI_UI2 for components and retrieving rev item seq id . . . '); END IF;
1630:
1631: IF Bom_Globals.Get_Bo_Identifier <> 'BOM'
1632: THEN
1633: NULL ;
1669: g_token_tbl(3).token_name := 'ECO_NAME';
1670: g_token_tbl(3).token_value :=
1671: p_rev_component_rec.eco_name;
1672:
1673: Error_Handler.Add_Error_Token
1674: ( p_Message_Name => 'BOM_REV_SEQUENCE_NOT_FOUND'
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
1684: x_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
1685: x_other_token_tbl(1).token_value :=
1686: p_rev_component_rec.component_item_name;
1687:
1688: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('And this call returned with ' || l_Return_Status); END IF;
1689:
1690: RETURN;
1691:
1692: END IF;
1695: ELSE
1696: --
1697: -- If the calling BO is BOM then get the bill sequence id
1698: --
1699: 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;
1700:
1701: l_rev_comp_unexp_rec.bill_sequence_id :=
1702: bill_sequence_id(p_assembly_item_id =>
1703: l_rev_comp_unexp_rec.revised_item_id,
1716: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
1717: g_Token_Tbl(2).Token_Value :=
1718: p_rev_component_rec.revised_item_name;
1719:
1720: Error_Handler.Add_Error_Token
1721: ( p_Message_Name => 'BOM_BOM_SEQUENCE_NOT_FOUND'
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
1746: ELSE
1747: l_rev_comp_unexp_rec.bom_implementation_date := SYSDATE;
1748: END IF;
1749:
1750: Error_Handler.Write_Debug('BOM Implementation date is '||l_rev_comp_unexp_rec.bom_implementation_date);
1751:
1752: IF p_rev_component_rec.transaction_type IN
1753: ( BOM_Globals.G_OPR_UPDATE, BOM_globals.G_OPR_DELETE,
1754: BOM_Globals.G_OPR_CANCEL
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;
1764:
1765: Error_Handler.Add_Error_Token
1766: ( p_Message_Name => 'BOM_BILL_SEQUENCE_NOT_FOUND'
1767: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1768: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1769: , p_Token_Tbl => g_Token_Tbl
1778:
1779: RETURN;
1780: END IF;
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
1796: g_Token_Tbl(2).Token_Name := 'ENFORCE_INTEGER';
1797: g_Token_Tbl(2).Token_Value :=
1798: p_rev_component_rec.enforce_int_requirements;
1799:
1800: Error_Handler.Add_Error_Token
1801: ( p_Message_Name => 'BOM_ENFORCE_INTCODE_NOTFOUND'
1802: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1803: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1804: , p_Token_Tbl => g_Token_Tbl
1837: PROCEDURE Sub_Component_UUI_To_UI
1838: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
1839: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
1840: , x_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
1841: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1842: , x_Return_Status IN OUT NOCOPY VARCHAR2
1843: )
1844: IS
1845: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1842: , x_Return_Status IN OUT NOCOPY VARCHAR2
1843: )
1844: IS
1845: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1846: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1847: l_Err_Text VARCHAR2(2000);
1848: l_return_status VARCHAR2(1);
1849: l_token_tbl Error_Handler.Token_Tbl_Type;
1850: BEGIN
1845: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
1846: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1847: l_Err_Text VARCHAR2(2000);
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:
1861: p_sub_component_rec.acd_type NOT IN (1, 3)
1862: ) AND
1863: Bom_Globals.Get_Bo_Identifier = Bom_Globals.G_ECO_BO
1864: THEN
1865: Error_Handler.Add_Error_Token
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: );
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
1889: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1890: );
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
1899: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1900: );
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
1909: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1910: );
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
1920: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1921: );
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
1931: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1932: );
1963: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
1964: g_token_tbl(2).token_value :=
1965: p_sub_component_rec.organization_code;
1966:
1967: Error_Handler.Add_Error_Token
1968: ( p_Message_Name => 'BOM_SUBSTITUTE_ITEM_INVALID'
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
2002: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2003: g_token_tbl(2).token_value :=
2004: p_sub_component_rec.organization_code;
2005:
2006: Error_Handler.Add_Error_Token
2007: ( p_Message_Name => 'BOM_SUBSTITUTE_ITEM_INVALID'
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
2030: PROCEDURE Sub_Component_UUI_To_UI2
2031: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
2032: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
2033: , x_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
2034: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2035: , x_other_message IN OUT NOCOPY VARCHAR2
2036: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
2037: , x_Return_Status IN OUT NOCOPY VARCHAR2
2038: )
2032: , p_sub_comp_unexp_rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
2033: , x_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
2034: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2035: , x_other_message IN OUT NOCOPY VARCHAR2
2036: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
2037: , x_Return_Status IN OUT NOCOPY VARCHAR2
2038: )
2039: IS
2040: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
2037: , x_Return_Status IN OUT NOCOPY VARCHAR2
2038: )
2039: IS
2040: l_sub_comp_unexp_rec Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type;
2041: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2042: l_Err_Text VARCHAR2(2000);
2043: l_return_status VARCHAR2(1);
2044: l_dummy NUMBER;
2045: BEGIN
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
2060: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2061: );
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
2083: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2084: );
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
2094: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2095: );
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
2105: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2106: );
2146: p_sub_component_rec.revised_item_name;
2147: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2148: g_token_tbl(2).token_value :=
2149: p_sub_component_rec.organization_code;
2150: Error_Handler.Add_Error_Token
2151: ( p_Message_Name => 'ENG_REVISED_ITEM_INVALID'
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
2189: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2190: g_token_tbl(2).token_value :=
2191: p_sub_component_rec.organization_code;
2192:
2193: Error_Handler.Add_Error_Token
2194: ( p_Message_Name => 'BOM_REVISED_COMP_INVALID'
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
2263: p_sub_component_rec.substitute_component_name;
2264: g_token_tbl(3).token_name := 'ECO_NAME';
2265: g_token_tbl(3).token_value :=
2266: p_sub_component_rec.eco_name;
2267: Error_Handler.Add_Error_Token
2268: ( p_Message_Name => 'BOM_SBC_REV_SEQ_NOT_FOUND'
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
2290: ELSE
2291: --
2292: -- If the calling BO is BOM then get the bill sequence id
2293: --
2294: 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;
2295:
2296: l_sub_comp_unexp_rec.bill_sequence_id :=
2297: bill_sequence_id(p_assembly_item_id =>
2298: l_sub_comp_unexp_rec.revised_item_id,
2311: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
2312: g_Token_Tbl(2).Token_Value :=
2313: p_sub_component_rec.revised_item_name;
2314:
2315: Error_Handler.Add_Error_Token
2316: ( p_Message_Name => 'BOM_BOM_SEQUENCE_NOT_FOUND'
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
2353: l_sub_comp_unexp_rec.bill_sequence_id
2354: , x_err_text => l_Err_Text
2355: );
2356:
2357: 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;
2358:
2359: IF l_sub_comp_unexp_rec.component_sequence_id IS NULL
2360: THEN
2361: g_Token_Tbl(1).Token_Name := 'REVISED_COMPONENT_NAME';
2368: g_Token_Tbl(3).Token_Value :=
2369: p_sub_component_rec.substitute_component_name;
2370:
2371:
2372: Error_Handler.Add_Error_Token
2373: ( p_Message_Name => 'BOM_SBC_COMP_SEQ_NOT_FOUND'
2374: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2375: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2376: , p_Token_Tbl => g_Token_Tbl
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:
2391: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Sub Comp: Checking for editable common bill...'); END IF;
2392:
2393: BEGIN
2394: SELECT 1
2395: INTO l_dummy
2397: WHERE bill_sequence_id = source_bill_sequence_id
2398: AND bill_sequence_id = l_sub_comp_unexp_rec.bill_Sequence_id;
2399: EXCEPTION
2400: WHEN NO_DATA_FOUND THEN
2401: Error_Handler.Add_Error_Token
2402: ( p_Message_Name => 'BOM_COMMON_SUB_COMP'
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
2415: END;
2416:
2417: */
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
2425: l_sub_comp_unexp_rec.enforce_int_requirements_code :=
2426: Get_EnforceInteger_Code(
2427: p_enforce_integer => p_sub_component_rec.enforce_int_requirements);
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
2440: g_Token_Tbl(3).Token_Name := 'ENFORCE_INTEGER';
2441: g_Token_Tbl(3).Token_Value :=
2442: p_sub_component_rec.enforce_int_requirements;
2443:
2444: Error_Handler.Add_Error_Token
2445: ( p_Message_Name => 'BOM_ENFORCE_INTCODE_NOTFOUND'
2446: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2447: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2448: , p_Token_Tbl => g_Token_Tbl
2479: PROCEDURE Ref_Designator_UUI_To_UI
2480: ( p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
2481: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2482: , x_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2483: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2484: , x_Return_Status IN OUT NOCOPY VARCHAR2
2485: )
2486: IS
2487: l_ref_desg_unexp_rec Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type;
2484: , x_Return_Status IN OUT NOCOPY VARCHAR2
2485: )
2486: IS
2487: l_ref_desg_unexp_rec Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type;
2488: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2489: l_Err_Text VARCHAR2(2000);
2490: l_Return_Status VARCHAR2(1);
2491: l_token_tbl Error_Handler.Token_Tbl_Type;
2492:
2487: l_ref_desg_unexp_rec Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type;
2488: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2489: l_Err_Text VARCHAR2(2000);
2490: l_Return_Status VARCHAR2(1);
2491: l_token_tbl Error_Handler.Token_Tbl_Type;
2492:
2493: BEGIN
2494:
2495: l_return_status := FND_API.G_RET_STS_SUCCESS;
2503: ( p_ref_designator_rec.acd_type IS NULL OR
2504: p_ref_designator_rec.acd_type NOT IN (1, 3)
2505: )
2506: THEN
2507: Error_Handler.Add_Error_Token
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: );
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
2541: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2542: );
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
2553: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2554: );
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
2565: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2566: );
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
2577: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2578: );
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
2589: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2590: );
2616: PROCEDURE Ref_Designator_UUI_To_UI2
2617: ( p_ref_designator_rec IN Bom_Bo_Pub.Ref_Designator_Rec_Type
2618: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2619: , x_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2620: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2621: , x_other_message IN OUT NOCOPY VARCHAR2
2622: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
2623: , x_Return_Status IN OUT NOCOPY VARCHAR2
2624: )
2618: , p_ref_desg_unexp_rec IN Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2619: , x_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type
2620: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2621: , x_other_message IN OUT NOCOPY VARCHAR2
2622: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
2623: , x_Return_Status IN OUT NOCOPY VARCHAR2
2624: )
2625: IS
2626: l_ref_desg_unexp_rec Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type :=
2624: )
2625: IS
2626: l_ref_desg_unexp_rec Bom_Bo_Pub.Ref_Desg_Unexposed_Rec_Type :=
2627: p_ref_desg_unexp_rec;
2628: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2629: l_Err_Text VARCHAR2(2000);
2630: l_Return_Status VARCHAR2(1);
2631: l_dummy NUMBER;
2632: BEGIN
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
2644: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2645: );
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
2668: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2669: );
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
2680: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2681: );
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
2692: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2693: );
2722: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2723: g_token_tbl(2).token_value :=
2724: p_ref_designator_rec.organization_code;
2725:
2726: Error_Handler.Add_Error_Token
2727: ( p_Message_Name => 'ENG_REVISED_ITEM_INVALID'
2728: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2729: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2730: , p_Token_Tbl => g_Token_Tbl
2768: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
2769: g_token_tbl(2).token_value :=
2770: p_ref_designator_rec.organization_code;
2771:
2772: Error_Handler.Add_Error_Token
2773: ( p_Message_Name => 'BOM_REVISED_COMP_INVALID'
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
2836: g_Token_Tbl(3).Token_Name := 'ECO_NAME';
2837: g_Token_Tbl(3).Token_Value :=
2838: p_ref_designator_rec.eco_name;
2839:
2840: Error_Handler.Add_Error_Token
2841: ( p_Message_Name => 'BOM_RFD_REV_SEQ_NOT_FOUND'
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
2863: ELSE
2864: --
2865: -- If the calling BO is BOM then get the bill sequence id
2866: --
2867: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq f
2868: or assembly item ' || l_ref_desg_unexp_rec.revised_item_id); END IF;
2869:
2870: l_ref_desg_unexp_rec.bill_sequence_id :=
2871: bill_sequence_id(p_assembly_item_id =>
2884: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
2885: g_Token_Tbl(2).Token_Value :=
2886: p_ref_designator_rec.revised_item_name;
2887:
2888: Error_Handler.Add_Error_Token
2889: ( p_Message_Name => 'BOM_BOM_SEQUENCE_NOT_FOUND'
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
2916: g_Token_Tbl(2).Token_Name := 'REFERENCE_DESIGNATOR_NAME';
2917: g_Token_Tbl(2).Token_Value :=
2918: p_ref_designator_rec.reference_designator_name;
2919:
2920: Error_Handler.Add_Error_Token
2921: ( p_Message_Name => 'BOM_RFD_BILL_SEQ_NOT_FOUND'
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
2965: g_Token_Tbl(3).Token_Name := 'REVISED_COMPONENT_NAME';
2966: g_Token_Tbl(3).Token_Value :=
2967: p_ref_designator_rec.component_item_name;
2968:
2969: Error_Handler.Add_Error_Token
2970: ( p_Message_Name => 'BOM_RFD_COMP_SEQ_NOT_FOUND'
2971: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2972: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2973: , p_Token_Tbl => g_Token_Tbl
2984: g_Token_Tbl.Delete;
2985: END IF;
2986: END IF; -- Added by MK on 12/04/00
2987:
2988: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Ref Desg: Checking for editable common bill...'); END IF;
2989:
2990: BEGIN
2991: SELECT 1
2992: INTO l_dummy
2994: WHERE bill_sequence_id = source_bill_sequence_id
2995: AND bill_sequence_id = l_ref_desg_unexp_rec.bill_sequence_id;
2996: EXCEPTION
2997: WHEN NO_DATA_FOUND THEN
2998: Error_Handler.Add_Error_Token
2999: ( p_Message_Name => 'BOM_COMMON_REF_DESG'
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
3026: PROCEDURE Bom_Component_UUI_To_UI
3027: ( p_bom_component_Rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
3028: , p_bom_comp_unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3029: , x_bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3030: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3031: , x_Return_Status IN OUT NOCOPY VARCHAR2
3032: )
3033: IS
3034: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
3070: PROCEDURE Bom_Component_UUI_to_UI2
3071: ( p_Bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
3072: , p_Bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3073: , x_Bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3074: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3075: , x_other_message IN OUT NOCOPY VARCHAR2
3076: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3077: , x_Return_Status IN OUT NOCOPY VARCHAR2
3078: )
3072: , p_Bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3073: , x_Bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3074: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3075: , x_other_message IN OUT NOCOPY VARCHAR2
3076: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3077: , x_Return_Status IN OUT NOCOPY VARCHAR2
3078: )
3079: IS
3080: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
3116:
3117:
3118: PROCEDURE Bom_Component_VID
3119: ( x_return_status IN OUT NOCOPY VARCHAR2
3120: , x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3121: , x_bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3122: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
3123: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
3124: )
3161: PROCEDURE Sub_Component_UUI_To_UI
3162: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
3163: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3164: , x_bom_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3165: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3166: , x_Return_Status IN OUT NOCOPY VARCHAR2
3167: )
3168: IS
3169: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
3205: PROCEDURE Sub_Component_UUI_To_UI2
3206: ( p_bom_sub_component_rec IN Bom_Bo_Pub.Bom_Sub_Component_Rec_Type
3207: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3208: , x_bom_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3209: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3210: , x_other_message IN OUT NOCOPY VARCHAR2
3211: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3212: , x_Return_Status IN OUT NOCOPY VARCHAR2
3213: )
3207: , p_bom_sub_comp_unexp_rec IN Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3208: , x_bom_sub_Comp_unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Sub_Comp_Unexp_Rec_Type
3209: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3210: , x_other_message IN OUT NOCOPY VARCHAR2
3211: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3212: , x_Return_Status IN OUT NOCOPY VARCHAR2
3213: )
3214: IS
3215: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
3254: PROCEDURE Ref_Designator_UUI_To_UI
3255: ( p_bom_ref_designator_rec IN Bom_Bo_Pub.Bom_Ref_Designator_Rec_Type
3256: , p_bom_ref_desg_unexp_rec IN Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
3257: , x_bom_ref_desg_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Ref_Desg_Unexp_Rec_Type
3258: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3259: , x_Return_Status IN OUT NOCOPY VARCHAR2
3260: )
3261: IS
3262: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_Rec_Type;
3297: PROCEDURE Ref_Designator_UUI_To_UI2
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_other_message IN OUT NOCOPY VARCHAR2
3303: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3304: , x_Return_Status IN OUT NOCOPY VARCHAR2
3305: )
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_other_message IN OUT NOCOPY VARCHAR2
3303: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3304: , x_Return_Status IN OUT NOCOPY VARCHAR2
3305: )
3306: IS
3307: l_ref_designator_rec Bom_Bo_Pub.Ref_Designator_Rec_Type;
3355: PROCEDURE Bom_Comp_Operation_UUI_To_UI
3356: ( p_bom_comp_ops_rec IN Bom_Bo_Pub.Bom_Comp_Ops_Rec_Type
3357: , p_bom_comp_ops_unexp_rec IN Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3358: , x_bom_comp_ops_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3359: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3360: , x_Return_Status IN OUT NOCOPY VARCHAR2
3361: )
3362: IS
3363: l_bom_comp_ops_unexp_rec Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type;
3360: , x_Return_Status IN OUT NOCOPY VARCHAR2
3361: )
3362: IS
3363: l_bom_comp_ops_unexp_rec Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type;
3364: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3365: l_Err_Text VARCHAR2(2000);
3366: l_Return_Status VARCHAR2(1);
3367: l_token_tbl Error_Handler.Token_Tbl_Type;
3368: BEGIN
3363: l_bom_comp_ops_unexp_rec Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type;
3364: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3365: l_Err_Text VARCHAR2(2000);
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:
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
3394: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3395: );
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
3406: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3407: );
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
3418: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3419: );
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
3430: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3431: );
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
3442: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3443: );
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
3454: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3455: );
3483: PROCEDURE Bom_Comp_Operation_UUI_To_UI2
3484: ( p_bom_comp_ops_rec IN Bom_Bo_Pub.Bom_Comp_Ops_Rec_Type
3485: , p_bom_comp_ops_unexp_rec IN Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3486: , x_bom_comp_ops_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3487: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3488: , x_other_message IN OUT NOCOPY VARCHAR2
3489: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3490: , x_Return_Status IN OUT NOCOPY VARCHAR2
3491: )
3485: , p_bom_comp_ops_unexp_rec IN Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3486: , x_bom_comp_ops_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type
3487: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3488: , x_other_message IN OUT NOCOPY VARCHAR2
3489: , x_other_token_tbl IN OUT NOCOPY Error_Handler.Token_Tbl_Type
3490: , x_Return_Status IN OUT NOCOPY VARCHAR2
3491: )
3492: IS
3493: l_bom_comp_ops_unexp_rec Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type :=
3491: )
3492: IS
3493: l_bom_comp_ops_unexp_rec Bom_Bo_Pub.Bom_Comp_Ops_Unexp_Rec_Type :=
3494: p_bom_comp_ops_unexp_rec;
3495: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3496: l_Err_Text VARCHAR2(2000);
3497: l_Return_Status VARCHAR2(1);
3498: l_dummy NUMBER;
3499: BEGIN
3515: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
3516: g_token_tbl(2).token_value :=
3517: p_bom_comp_ops_rec.organization_code;
3518:
3519: Error_Handler.Add_Error_Token
3520: ( p_Message_Name => 'ENG_REVISED_ITEM_INVALID'
3521: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3522: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3523: , p_Token_Tbl => g_Token_Tbl
3564: g_token_tbl(2).token_name := 'ORGANIZATION_CODE';
3565: g_token_tbl(2).token_value :=
3566: p_bom_comp_ops_rec.organization_code;
3567:
3568: Error_Handler.Add_Error_Token
3569: ( p_Message_Name => 'BOM_REVISED_COMP_INVALID'
3570: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3571: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3572: , p_Token_Tbl => g_Token_Tbl
3595: -- Convert revised item information to bill_sequence_id
3596: --
3597: *****************************************************************/
3598: --
3599: IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Getting bill_seq f
3600: or assembly item ' || l_bom_comp_ops_unexp_rec.assembly_item_id); END IF;
3601:
3602: l_bom_comp_ops_unexp_rec.bill_sequence_id :=
3603: bill_sequence_id(p_assembly_item_id =>
3617: g_Token_Tbl(2).Token_Name := 'REVISED_ITEM_NAME';
3618: g_Token_Tbl(2).Token_Value :=
3619: p_bom_comp_ops_rec.assembly_item_name;
3620:
3621: Error_Handler.Add_Error_Token
3622: ( p_Message_Name => 'BOM_BOM_SEQUENCE_NOT_FOUND'
3623: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3624: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3625: , p_Token_Tbl => g_Token_Tbl
3639: x_Return_Status := l_Return_Status;
3640: RETURN;
3641: END IF;
3642:
3643: /*if bom_globals.get_debug = 'Y' then Error_Handler.write_debug('Comp OP: Checking for editable common bill...'); END IF;
3644:
3645: BEGIN
3646: SELECT 1
3647: INTO l_dummy
3649: WHERE bill_sequence_id = source_bill_sequence_id
3650: AND bill_sequence_id = l_bom_comp_ops_unexp_rec.bill_Sequence_id;
3651: EXCEPTION
3652: WHEN NO_DATA_FOUND THEN
3653: Error_Handler.Add_Error_Token
3654: ( p_Message_Name => 'BOM_COMMON_COMP_OP'
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
3696: g_Token_Tbl(2).Token_Name := 'OPERATION_SEQUENCE_NUMBER';
3697: g_Token_Tbl(2).Token_Value :=
3698: p_bom_comp_ops_rec.additional_operation_seq_num;
3699:
3700: Error_Handler.Add_Error_Token
3701: ( p_Message_Name => 'BOM_COPS_COMP_SEQ_NOT_FOUND'
3702: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3703: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3704: , p_Token_Tbl => g_Token_Tbl
3749: g_Token_Tbl(2).Token_Name := 'OPERATION_SEQUENCE_NUMBER';
3750: g_Token_Tbl(2).Token_Value :=
3751: p_bom_comp_ops_rec.additional_operation_seq_num;
3752:
3753: Error_Handler.Add_Error_Token
3754: ( p_Message_Name => 'BOM_COPS_OPSEQID_NOT_FOUND'
3755: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3756: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3757: , p_Token_Tbl => g_Token_Tbl
3811: g_Token_Tbl(2).Token_Name := 'OPERATION_SEQUENCE_NUMBER';
3812: g_Token_Tbl(2).Token_Value :=
3813: p_bom_comp_ops_rec.new_additional_op_seq_num;
3814:
3815: Error_Handler.Add_Error_Token
3816: ( p_Message_Name => 'BOM_COPS_OPSEQID_NOT_FOUND'
3817: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3818: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3819: , p_Token_Tbl => g_Token_Tbl