[Home] [Help]
1: PACKAGE BODY ENG_Validate_Revised_Item AS
2: /* $Header: ENGLRITB.pls 120.12.12000000.2 2007/02/26 11:33:47 asjohal ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: ENGLRITB.pls 120.12.12000000.2 2007/02/26 11:33:47 asjohal 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;
5378: ( p_revised_item_rec.status_type <>
5379: p_old_revised_item_rec.status_type OR
5380: p_old_revised_item_rec.status_type IS NULL )
5381: THEN
5382: IF NOT ENG_Validate.Status_Type(p_revised_item_rec.status_type ,
5383: l_err_text ) THEN
5384: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5385: THEN
5386: l_token_tbl(2).token_name := 'STATUS_TYPE';
5456: (p_revised_item_rec.from_end_item_unit_number IS NOT NULL
5457: AND
5458: p_revised_item_rec.from_end_item_unit_number <> FND_API.G_MISS_CHAR)
5459: THEN
5460: IF NOT ENG_Validate.End_Item_Unit_Number
5461: ( p_from_end_item_unit_number =>
5462: p_revised_item_rec.from_end_item_unit_number
5463: , p_revised_item_id =>
5464: p_rev_item_unexp_rec.revised_item_id
5485: (p_revised_item_rec.new_from_end_item_unit_number IS NOT NULL
5486: AND
5487: p_revised_item_rec.new_from_end_item_unit_number <> FND_API.G_MISS_CHAR)
5488: THEN
5489: IF NOT ENG_Validate.End_Item_Unit_Number
5490: ( p_from_end_item_unit_number =>
5491: p_revised_item_rec.new_from_end_item_unit_number
5492: , p_revised_item_id =>
5493: p_rev_item_unexp_rec.revised_item_id
5514: ( p_revised_item_rec.mrp_active <>
5515: p_old_revised_item_rec.mrp_active OR
5516: p_old_revised_item_rec.mrp_active IS NULL )
5517: THEN
5518: IF NOT ENG_Validate.Mrp_Active(p_revised_item_rec.mrp_active ,
5519: l_err_text ) THEN
5520: x_return_status := FND_API.G_RET_STS_ERROR;
5521: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5522: THEN
5556: ( p_revised_item_rec.update_wip <>
5557: p_old_revised_item_rec.update_wip OR
5558: p_old_revised_item_rec.update_wip IS NULL )
5559: THEN
5560: IF NOT ENG_Validate.Update_Wip(p_revised_item_rec.update_wip ,
5561: l_err_text ) THEN
5562: x_return_status := FND_API.G_RET_STS_ERROR;
5563: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
5564: THEN
5597: ( p_revised_item_rec.use_up_plan_name <>
5598: p_old_revised_item_rec.use_up_plan_name OR
5599: p_old_revised_item_rec.use_up_plan_name IS NULL )
5600: THEN
5601: IF NOT ENG_Validate.Use_Up_Plan_Name
5602: ( p_revised_item_rec.use_up_plan_name
5603: , p_rev_item_unexp_rec.organization_id
5604: , l_err_text )
5605: THEN
5644: ( p_revised_item_rec.disposition_type <>
5645: p_old_revised_item_rec.disposition_type OR
5646: p_old_revised_item_rec.disposition_type IS NULL )
5647: THEN
5648: IF NOT ENG_Validate.Disposition_Type
5649: ( p_revised_item_rec.disposition_type
5650: , l_err_text )
5651: THEN
5652: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
6460: -- The driving procedure must make sure that the ECO
6461: -- Check_Access has been called and has returned with a success.
6462: --
6463: /*******************************
6464: Eng_Validate_ECO.Check_Access
6465: ( p_change_notice => p_change_notice
6466: , p_organization_id => p_organization_id
6467: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
6468: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
7340: END IF;
7341:
7342: END Validate_Revised_Item;
7343:
7344: END ENG_Validate_Revised_Item;