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
2942: END;
2943:
2944:
2945:
2946: FUNCTION valid_common_bom_change( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
2947: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type)
2948: RETURN boolean
2949: IS
2950: BEGIN
2943:
2944:
2945:
2946: FUNCTION valid_common_bom_change( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
2947: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type)
2948: RETURN boolean
2949: IS
2950: BEGIN
2951: IF p_Old_Rev_Component_Rec.Organization_Code <> p_rev_component_rec.Organization_Code
3055: **********************************************************************/
3056: PROCEDURE Check_Entity
3057: ( x_return_status IN OUT NOCOPY VARCHAR2
3058: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3059: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3060: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3061: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3062: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3063: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3056: PROCEDURE Check_Entity
3057: ( x_return_status IN OUT NOCOPY VARCHAR2
3058: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3059: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3060: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3061: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3062: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3063: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3064: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3057: ( x_return_status IN OUT NOCOPY VARCHAR2
3058: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3059: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3060: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3061: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3062: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3063: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3064: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3065: )
3058: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
3059: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3060: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3061: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3062: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3063: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3064: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3065: )
3066: IS
3059: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3060: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3061: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3062: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3063: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3064: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3065: )
3066: IS
3067: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
3060: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3061: , p_control_rec IN BOM_BO_PUB.Control_Rec_Type
3062: := BOM_BO_PUB.G_DEFAULT_CONTROL_REC
3063: , p_Old_Rev_Component_Rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
3064: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
3065: )
3066: IS
3067: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
3068: l_bill_sequence_id NUMBER;
5873: *********************************************************************/
5874: PROCEDURE Check_Attributes
5875: ( x_return_status IN OUT NOCOPY VARCHAR2
5876: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
5877: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
5878: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
5879: )
5880: IS
5881:
5874: PROCEDURE Check_Attributes
5875: ( x_return_status IN OUT NOCOPY VARCHAR2
5876: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
5877: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
5878: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
5879: )
5880: IS
5881:
5882: l_return_status VARCHAR2(1);
6753: *******************************************************************/
6754: PROCEDURE Check_Entity_Delete
6755: ( x_return_status IN OUT NOCOPY VARCHAR2
6756: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6757: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6758: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6759: )
6760: IS
6761: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6754: PROCEDURE Check_Entity_Delete
6755: ( x_return_status IN OUT NOCOPY VARCHAR2
6756: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6757: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6758: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6759: )
6760: IS
6761: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6762: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
6844: * will return old record in the old entity parameters
6845: * with a success status.
6846: *********************************************************************/
6847: PROCEDURE Check_Existence
6848: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6849: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6850: , x_old_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
6851: , x_old_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6852: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6845: * with a success status.
6846: *********************************************************************/
6847: PROCEDURE Check_Existence
6848: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6849: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6850: , x_old_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
6851: , x_old_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6852: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6853: , x_return_status IN OUT NOCOPY VARCHAR2
6846: *********************************************************************/
6847: PROCEDURE Check_Existence
6848: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6849: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6850: , x_old_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
6851: , x_old_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6852: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6853: , x_return_status IN OUT NOCOPY VARCHAR2
6854: )
6847: PROCEDURE Check_Existence
6848: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6849: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6850: , x_old_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
6851: , x_old_rev_comp_unexp_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6852: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6853: , x_return_status IN OUT NOCOPY VARCHAR2
6854: )
6855: IS
6946: * record that the user has passed is for the right
6947: * parent and that the parent exists.
6948: *********************************************************************/
6949: PROCEDURE Check_Lineage
6950: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6951: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6952: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6953: , x_Return_Status IN OUT NOCOPY VARCHAR2
6954: )
6947: * parent and that the parent exists.
6948: *********************************************************************/
6949: PROCEDURE Check_Lineage
6950: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
6951: , p_rev_comp_unexp_rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
6952: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
6953: , x_Return_Status IN OUT NOCOPY VARCHAR2
6954: )
6955: IS
7322: * for normal item components, these attributes should
7323: * be ignored.
7324: ********************************************************************/
7325: PROCEDURE Check_Direct_item_comps
7326: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
7327: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
7328: , x_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
7329: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
7330: , x_Return_Status IN OUT NOCOPY VARCHAR2
7323: * be ignored.
7324: ********************************************************************/
7325: PROCEDURE Check_Direct_item_comps
7326: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
7327: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
7328: , x_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
7329: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
7330: , x_Return_Status IN OUT NOCOPY VARCHAR2
7331: ) IS
7324: ********************************************************************/
7325: PROCEDURE Check_Direct_item_comps
7326: ( p_bom_component_rec IN Bom_Bo_Pub.Bom_Comps_Rec_Type
7327: , p_bom_comp_unexp_rec IN Bom_Bo_Pub.Bom_Comps_Unexposed_Rec_Type
7328: , x_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
7329: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
7330: , x_Return_Status IN OUT NOCOPY VARCHAR2
7331: ) IS
7332: -- l_bom_component_rec Bom_Bo_Pub.Bom_Comps_Rec_Type;
7328: , x_bom_component_rec IN OUT NOCOPY Bom_Bo_Pub.Bom_Comps_Rec_Type
7329: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
7330: , x_Return_Status IN OUT NOCOPY VARCHAR2
7331: ) IS
7332: -- l_bom_component_rec Bom_Bo_Pub.Bom_Comps_Rec_Type;
7333: l_Token_Tbl Error_Handler.Token_Tbl_Type;
7334: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
7335: l_return_status VARCHAR2(1);
7336: BEGIN
7441: p_rowid IN VARCHAR2 := NULL,
7442: x_return_status IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
7443: x_error_message IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2) IS
7444:
7445: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7446: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7447: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7448: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7449: l_return_status VARCHAR2(1);
7442: x_return_status IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
7443: x_error_message IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2) IS
7444:
7445: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7446: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7447: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7448: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7449: l_return_status VARCHAR2(1);
7450: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
7443: x_error_message IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2) IS
7444:
7445: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7446: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7447: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7448: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7449: l_return_status VARCHAR2(1);
7450: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
7451:
7444:
7445: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7446: l_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7447: l_old_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
7448: l_old_rev_comp_unexp_rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
7449: l_return_status VARCHAR2(1);
7450: l_mesg_token_tbl Error_Handler.Mesg_Token_Tbl_Type;
7451:
7452: l_message_list Error_Handler.Error_Tbl_Type;