32: BEGIN
33:
34: IF p_message_text IS NULL THEN
35: FND_MESSAGE.Set_Name (p_application_short_name, p_message_name);
36: --FND_MSG_PUB.Add;
37: ELSE
38: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
39: THEN
40: FND_MSG_PUB.Add_Exc_Msg
34: IF p_message_text IS NULL THEN
35: FND_MESSAGE.Set_Name (p_application_short_name, p_message_name);
36: --FND_MSG_PUB.Add;
37: ELSE
38: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
39: THEN
40: FND_MSG_PUB.Add_Exc_Msg
41: ( p_pkg_name => 'BOM_GTIN_Rules'
42: , p_procedure_name => p_api_name
36: --FND_MSG_PUB.Add;
37: ELSE
38: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
39: THEN
40: FND_MSG_PUB.Add_Exc_Msg
41: ( p_pkg_name => 'BOM_GTIN_Rules'
42: , p_procedure_name => p_api_name
43: , p_error_text => p_message_text
44: );