1: Package Body AMS_ListSourceType_PVT AS
2: /* $Header: amsvlstb.pls 115.25 2004/03/17 18:10:56 usingh ship $ */
3:
4: -----------------------------------------------------------
5: -- PACKAGE
2: /* $Header: amsvlstb.pls 115.25 2004/03/17 18:10:56 usingh ship $ */
3:
4: -----------------------------------------------------------
5: -- PACKAGE
6: -- AMS_ListSourceType_PVT
7: --
8: -- PROCEDURES
9: -- Listed are the procedures not declared in the package
10: -- specs:
841: -- API message list. --
842: ------------------------------------------------------------------
843: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
844: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
845: FND_MESSAGE.Set_Token('ROW', 'AMS_ListSourceType_PVT.Upd_AMS_LIST_SRC_TYPES_TL', TRUE);
846: FND_MSG_PUB.Add;
847: END IF;
848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
849: END IF;
1734: );
1735: END generate_source_fields;
1736:
1737:
1738: END AMS_ListSourceType_PVT;