[Home] [Help]
1: PACKAGE BODY ENG_Validate_Revised_Item AS
2: /* $Header: ENGLRITB.pls 120.18.12020000.5 2013/03/07 07:39:11 nlingamp ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: ENGLRITB.pls 120.18.12020000.5 2013/03/07 07:39:11 nlingamp ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ENG_Validate_Revised_Item';
7:
8: /* Added by MK on 09/01/2000 ECO for Routing */
9: l_sub_locator_control NUMBER;
10: l_locator_control NUMBER;
5459: ( p_revised_item_rec.status_type <>
5460: p_old_revised_item_rec.status_type OR
5461: p_old_revised_item_rec.status_type IS NULL )
5462: THEN
5463: IF NOT ENG_Validate.Status_Type(p_revised_item_rec.status_type ,
5464: l_err_text ) THEN
5465: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5466: THEN
5467: l_token_tbl(2).token_name := 'STATUS_TYPE';
5537: (p_revised_item_rec.from_end_item_unit_number IS NOT NULL
5538: AND
5539: p_revised_item_rec.from_end_item_unit_number <> FND_API.G_MISS_CHAR)
5540: THEN
5541: IF NOT ENG_Validate.End_Item_Unit_Number
5542: ( p_from_end_item_unit_number =>
5543: p_revised_item_rec.from_end_item_unit_number
5544: , p_revised_item_id =>
5545: p_rev_item_unexp_rec.revised_item_id
5566: (p_revised_item_rec.new_from_end_item_unit_number IS NOT NULL
5567: AND
5568: p_revised_item_rec.new_from_end_item_unit_number <> FND_API.G_MISS_CHAR)
5569: THEN
5570: IF NOT ENG_Validate.End_Item_Unit_Number
5571: ( p_from_end_item_unit_number =>
5572: p_revised_item_rec.new_from_end_item_unit_number
5573: , p_revised_item_id =>
5574: p_rev_item_unexp_rec.revised_item_id
5595: ( p_revised_item_rec.mrp_active <>
5596: p_old_revised_item_rec.mrp_active OR
5597: p_old_revised_item_rec.mrp_active IS NULL )
5598: THEN
5599: IF NOT ENG_Validate.Mrp_Active(p_revised_item_rec.mrp_active ,
5600: l_err_text ) THEN
5601: x_return_status := FND_API.G_RET_STS_ERROR;
5602: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5603: THEN
5637: ( p_revised_item_rec.update_wip <>
5638: p_old_revised_item_rec.update_wip OR
5639: p_old_revised_item_rec.update_wip IS NULL )
5640: THEN
5641: IF NOT ENG_Validate.Update_Wip(p_revised_item_rec.update_wip ,
5642: l_err_text ) THEN
5643: x_return_status := FND_API.G_RET_STS_ERROR;
5644: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5645: THEN
5678: ( p_revised_item_rec.use_up_plan_name <>
5679: p_old_revised_item_rec.use_up_plan_name OR
5680: p_old_revised_item_rec.use_up_plan_name IS NULL )
5681: THEN
5682: IF NOT ENG_Validate.Use_Up_Plan_Name
5683: ( p_revised_item_rec.use_up_plan_name
5684: , p_rev_item_unexp_rec.organization_id
5685: , l_err_text )
5686: THEN
5725: ( p_revised_item_rec.disposition_type <>
5726: p_old_revised_item_rec.disposition_type OR
5727: p_old_revised_item_rec.disposition_type IS NULL )
5728: THEN
5729: IF NOT ENG_Validate.Disposition_Type
5730: ( p_revised_item_rec.disposition_type
5731: , l_err_text )
5732: THEN
5733: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6546: -- The driving procedure must make sure that the ECO
6547: -- Check_Access has been called and has returned with a success.
6548: --
6549: /*******************************
6550: Eng_Validate_ECO.Check_Access
6551: ( p_change_notice => p_change_notice
6552: , p_organization_id => p_organization_id
6553: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6554: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7442: END IF;
7443:
7444: END Validate_Revised_Item;
7445:
7446: END ENG_Validate_Revised_Item;