74: g_Comp_Tracking_Quantity_Ind VARCHAR2(30);
75: g_Assy_Tracking_Quantity_Ind VARCHAR2(30);
76: g_Assy_Assembly_Type NUMBER; --4161794
77:
78: g_rev_component_rec Bom_bo_Pub.Rev_Component_Rec_Type;
79: g_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
80: g_Token_Tbl Error_Handler.Token_Tbl_Type;
81:
82: FUNCTION Item_Revision_Exists (p_item_id IN NUMBER,
75: g_Assy_Tracking_Quantity_Ind VARCHAR2(30);
76: g_Assy_Assembly_Type NUMBER; --4161794
77:
78: g_rev_component_rec Bom_bo_Pub.Rev_Component_Rec_Type;
79: g_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
80: g_Token_Tbl Error_Handler.Token_Tbl_Type;
81:
82: FUNCTION Item_Revision_Exists (p_item_id IN NUMBER,
83: p_org_id IN NUMBER,
294: *******************************************************************/
295: PROCEDURE Check_Entity
296: ( x_return_status IN OUT NOCOPY VARCHAR2
297: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
298: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
299: , p_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
300: , p_old_bom_Component_Rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
301: , p_old_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
302: )
295: PROCEDURE Check_Entity
296: ( x_return_status IN OUT NOCOPY VARCHAR2
297: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
298: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
299: , p_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
300: , p_old_bom_Component_Rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
301: , p_old_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
302: )
303: IS
296: ( x_return_status IN OUT NOCOPY VARCHAR2
297: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
298: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
299: , p_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
300: , p_old_bom_Component_Rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
301: , p_old_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
302: )
303: IS
304: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
297: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
298: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
299: , p_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
300: , p_old_bom_Component_Rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
301: , p_old_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
302: )
303: IS
304: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
305: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
300: , p_old_bom_Component_Rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
301: , p_old_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
302: )
303: IS
304: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
305: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
306: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
307: l_old_rev_comp_unexp_rec
308: Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
301: , p_old_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
302: )
303: IS
304: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
305: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
306: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
307: l_old_rev_comp_unexp_rec
308: Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
309: BEGIN
302: )
303: IS
304: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
305: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
306: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
307: l_old_rev_comp_unexp_rec
308: Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
309: BEGIN
310: x_return_status := FND_API.G_RET_STS_SUCCESS;
304: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
305: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
306: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
307: l_old_rev_comp_unexp_rec
308: Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
309: BEGIN
310: x_return_status := FND_API.G_RET_STS_SUCCESS;
311:
312: -- Convert BOM record into ECO record
310: x_return_status := FND_API.G_RET_STS_SUCCESS;
311:
312: -- Convert BOM record into ECO record
313:
314: Bom_Bo_Pub.Convert_BomComp_To_EcoComp
315: ( p_bom_component_rec => p_bom_component_rec
316: , p_bom_comp_unexp_rec => p_bom_comp_unexp_rec
317: , x_rev_component_rec => l_rev_component_rec
318: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
318: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
319: );
320:
321: -- Also convert Old BOM component record into ECO
322: Bom_Bo_Pub.Convert_BomComp_To_EcoComp
323: ( p_bom_component_rec => p_old_bom_component_rec
324: , p_bom_comp_unexp_rec => p_old_bom_comp_unexp_rec
325: , x_rev_component_rec => l_old_rev_component_rec
326: , x_rev_comp_unexp_rec => l_old_rev_comp_unexp_rec
351: ********************************************************************/
352: PROCEDURE Check_Attributes
353: ( x_return_status IN OUT NOCOPY VARCHAR2
354: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
355: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
356: , p_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
357: )
358: IS
359:
352: PROCEDURE Check_Attributes
353: ( x_return_status IN OUT NOCOPY VARCHAR2
354: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
355: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
356: , p_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
357: )
358: IS
359:
360: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
356: , p_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
357: )
358: IS
359:
360: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
361: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
362: BEGIN
363: Bom_Bo_Pub.Convert_BomComp_To_EcoComp
364: ( p_bom_component_rec => p_bom_component_rec
357: )
358: IS
359:
360: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
361: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
362: BEGIN
363: Bom_Bo_Pub.Convert_BomComp_To_EcoComp
364: ( p_bom_component_rec => p_bom_component_rec
365: , p_bom_comp_unexp_rec => p_bom_comp_unexp_rec
359:
360: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
361: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
362: BEGIN
363: Bom_Bo_Pub.Convert_BomComp_To_EcoComp
364: ( p_bom_component_rec => p_bom_component_rec
365: , p_bom_comp_unexp_rec => p_bom_comp_unexp_rec
366: , x_rev_component_rec => l_rev_component_rec
367: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
379:
380: PROCEDURE Check_Entity_Delete
381: ( x_return_status IN OUT NOCOPY VARCHAR2
382: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
383: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
384: , p_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
385: )
386: IS
387: BEGIN
380: PROCEDURE Check_Entity_Delete
381: ( x_return_status IN OUT NOCOPY VARCHAR2
382: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
383: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
384: , p_bom_Comp_Unexp_Rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
385: )
386: IS
387: BEGIN
388: NULL;
391:
392: PROCEDURE Check_Required
393: ( x_return_status IN OUT NOCOPY VARCHAR2
394: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
395: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
396: )
397: IS
398: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
399: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
394: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
395: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
396: )
397: IS
398: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
399: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
400: BEGIN
401: Bom_Bo_Pub.Convert_BomComp_to_EcoComp
402: ( p_bom_component_rec => p_bom_component_rec
395: , p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
396: )
397: IS
398: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
399: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
400: BEGIN
401: Bom_Bo_Pub.Convert_BomComp_to_EcoComp
402: ( p_bom_component_rec => p_bom_component_rec
403: , x_rev_component_rec => l_rev_component_rec
397: IS
398: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
399: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
400: BEGIN
401: Bom_Bo_Pub.Convert_BomComp_to_EcoComp
402: ( p_bom_component_rec => p_bom_component_rec
403: , x_rev_component_rec => l_rev_component_rec
404: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
405: );
412: END Check_Required;
413:
414:
415: PROCEDURE Check_Existence
416: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
417: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
418: , x_old_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
419: , x_old_bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
420: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
413:
414:
415: PROCEDURE Check_Existence
416: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
417: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
418: , x_old_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
419: , x_old_bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
420: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
421: , x_return_status IN OUT NOCOPY VARCHAR2
414:
415: PROCEDURE Check_Existence
416: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
417: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
418: , x_old_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
419: , x_old_bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
420: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
421: , x_return_status IN OUT NOCOPY VARCHAR2
422: )
415: PROCEDURE Check_Existence
416: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
417: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
418: , x_old_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
419: , x_old_bom_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
420: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
421: , x_return_status IN OUT NOCOPY VARCHAR2
422: )
423: IS
420: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
421: , x_return_status IN OUT NOCOPY VARCHAR2
422: )
423: IS
424: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
425: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
426: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
427: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
428: BEGIN
421: , x_return_status IN OUT NOCOPY VARCHAR2
422: )
423: IS
424: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
425: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
426: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
427: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
428: BEGIN
429: -- Convert bom component to eco component
422: )
423: IS
424: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
425: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
426: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
427: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
428: BEGIN
429: -- Convert bom component to eco component
430: Bom_Bo_Pub.Convert_BomComp_To_EcoComp
423: IS
424: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
425: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
426: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
427: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
428: BEGIN
429: -- Convert bom component to eco component
430: Bom_Bo_Pub.Convert_BomComp_To_EcoComp
431: ( p_bom_component_rec => p_bom_component_rec
426: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
427: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
428: BEGIN
429: -- Convert bom component to eco component
430: Bom_Bo_Pub.Convert_BomComp_To_EcoComp
431: ( p_bom_component_rec => p_bom_component_rec
432: , p_bom_comp_unexp_rec => p_bom_comp_unexp_rec
433: , x_rev_component_rec => l_rev_component_rec
434: , x_rev_comp_unexp_rec => l_rev_comp_unexp_rec
444: );
445:
446: -- Convert old Eco Record back to Comp
447:
448: Bom_Bo_Pub.Convert_EcoComp_To_BomComp
449: ( p_rev_component_rec => l_old_rev_component_rec
450: , p_rev_comp_unexp_rec => l_old_rev_comp_unexp_rec
451: , x_bom_component_rec => x_old_bom_component_rec
452: , x_bom_comp_unexp_rec => x_old_bom_comp_unexp_rec
456:
457: /* Component count under a bill cannot exceed 9999 */
458:
459: PROCEDURE Check_ComponentCount
460: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
461: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
462: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
463: , x_Return_Status IN OUT NOCOPY VARCHAR2
464: )
457: /* Component count under a bill cannot exceed 9999 */
458:
459: PROCEDURE Check_ComponentCount
460: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
461: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
462: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
463: , x_Return_Status IN OUT NOCOPY VARCHAR2
464: )
465: IS
496:
497: END Check_ComponentCount;
498:
499: PROCEDURE Check_Lineage
500: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
501: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
502: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
503: , x_Return_Status IN OUT NOCOPY VARCHAR2
504: )
497: END Check_ComponentCount;
498:
499: PROCEDURE Check_Lineage
500: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
501: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
502: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
503: , x_Return_Status IN OUT NOCOPY VARCHAR2
504: )
505: IS
624: ********************************************************************/
625: PROCEDURE Check_Required
626: ( x_return_status IN OUT NOCOPY VARCHAR2
627: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
628: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
629: )
630: IS
631: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
632: BEGIN
2934: END;
2935:
2936:
2937:
2938: FUNCTION valid_common_bom_change( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
2939: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type)
2940: RETURN boolean
2941: IS
2942: BEGIN
2935:
2936:
2937:
2938: FUNCTION valid_common_bom_change( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
2939: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type)
2940: RETURN boolean
2941: IS
2942: BEGIN
2943: IF p_Old_Rev_Component_Rec.Organization_Code <> p_rev_component_rec.Organization_Code
3023: **********************************************************************/
3024: PROCEDURE Check_Entity
3025: ( x_return_status IN OUT NOCOPY VARCHAR2
3026: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3027: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3028: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3029: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3030: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3031: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3024: PROCEDURE Check_Entity
3025: ( x_return_status IN OUT NOCOPY VARCHAR2
3026: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3027: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3028: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3029: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3030: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3031: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3032: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3025: ( x_return_status IN OUT NOCOPY VARCHAR2
3026: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3027: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3028: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3029: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3030: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3031: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3032: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3033: )
3026: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3027: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3028: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3029: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3030: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3031: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3032: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3033: )
3034: IS
3027: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3028: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3029: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3030: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3031: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3032: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3033: )
3034: IS
3035: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
3028: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3029: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3030: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3031: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3032: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3033: )
3034: IS
3035: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
3036: l_bill_sequence_id NUMBER;
5634: *********************************************************************/
5635: PROCEDURE Check_Attributes
5636: ( x_return_status IN OUT NOCOPY VARCHAR2
5637: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
5638: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
5639: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
5640: )
5641: IS
5642:
5635: PROCEDURE Check_Attributes
5636: ( x_return_status IN OUT NOCOPY VARCHAR2
5637: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
5638: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
5639: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
5640: )
5641: IS
5642:
5643: l_return_status VARCHAR2(1);
6514: *******************************************************************/
6515: PROCEDURE Check_Entity_Delete
6516: ( x_return_status IN OUT NOCOPY VARCHAR2
6517: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6518: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6519: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6520: )
6521: IS
6522: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6515: PROCEDURE Check_Entity_Delete
6516: ( x_return_status IN OUT NOCOPY VARCHAR2
6517: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6518: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6519: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6520: )
6521: IS
6522: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6523: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6605: * will return old record in the old entity parameters
6606: * with a success status.
6607: *********************************************************************/
6608: PROCEDURE Check_Existence
6609: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6610: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6611: , x_old_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
6612: , x_old_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6613: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6606: * with a success status.
6607: *********************************************************************/
6608: PROCEDURE Check_Existence
6609: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6610: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6611: , x_old_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
6612: , x_old_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6613: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6614: , x_return_status IN OUT NOCOPY VARCHAR2
6607: *********************************************************************/
6608: PROCEDURE Check_Existence
6609: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6610: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6611: , x_old_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
6612: , x_old_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6613: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6614: , x_return_status IN OUT NOCOPY VARCHAR2
6615: )
6608: PROCEDURE Check_Existence
6609: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6610: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6611: , x_old_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
6612: , x_old_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6613: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6614: , x_return_status IN OUT NOCOPY VARCHAR2
6615: )
6616: IS
6707: * record that the user has passed is for the right
6708: * parent and that the parent exists.
6709: *********************************************************************/
6710: PROCEDURE Check_Lineage
6711: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6712: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6713: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6714: , x_Return_Status IN OUT NOCOPY VARCHAR2
6715: )
6708: * parent and that the parent exists.
6709: *********************************************************************/
6710: PROCEDURE Check_Lineage
6711: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6712: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6713: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6714: , x_Return_Status IN OUT NOCOPY VARCHAR2
6715: )
6716: IS
7083: * for normal item components, these attributes should
7084: * be ignored.
7085: ********************************************************************/
7086: PROCEDURE Check_Direct_item_comps
7087: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
7088: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
7089: , x_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
7090: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
7091: , x_Return_Status IN OUT NOCOPY VARCHAR2
7084: * be ignored.
7085: ********************************************************************/
7086: PROCEDURE Check_Direct_item_comps
7087: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
7088: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
7089: , x_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
7090: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
7091: , x_Return_Status IN OUT NOCOPY VARCHAR2
7092: ) IS
7085: ********************************************************************/
7086: PROCEDURE Check_Direct_item_comps
7087: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
7088: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
7089: , x_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
7090: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
7091: , x_Return_Status IN OUT NOCOPY VARCHAR2
7092: ) IS
7093: -- l_bom_component_rec Bom_Bo_Pub.Bom_Comps_Rec_Type;
7089: , x_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
7090: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
7091: , x_Return_Status IN OUT NOCOPY VARCHAR2
7092: ) IS
7093: -- l_bom_component_rec Bom_Bo_Pub.Bom_Comps_Rec_Type;
7094: l_Token_Tbl Error_Handler.Token_Tbl_Type;
7095: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
7096: l_return_status VARCHAR2(1);
7097: BEGIN
7202: p_rowid IN VARCHAR2 := NULL,
7203: x_return_status IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
7204: x_error_message IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2) IS
7205:
7206: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7207: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7208: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7209: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7210: l_return_status VARCHAR2(1);
7203: x_return_status IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
7204: x_error_message IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2) IS
7205:
7206: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7207: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7208: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7209: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7210: l_return_status VARCHAR2(1);
7211: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
7204: x_error_message IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2) IS
7205:
7206: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7207: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7208: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7209: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7210: l_return_status VARCHAR2(1);
7211: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
7212:
7205:
7206: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7207: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7208: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7209: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7210: l_return_status VARCHAR2(1);
7211: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
7212:
7213: l_message_list Error_Handler.Error_Tbl_Type;