90: -- Standard Start of API savepoint
91: -- Initialize API message list if necessary.
92: -- Initialize message list if p_init_msg_list is set to TRUE.
93: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
94: FND_MSG_PUB.initialize;
95: END IF;
96:
97: -- Bug 9697013
98: BEGIN
120:
121: x_return_status := FND_API.G_RET_STS_SUCCESS;
122:
123: mdebug(' ADD_OFO_GROUP_MEMBER: Tracing....' || x_return_status);
124: FND_MSG_PUB.Count_And_Get
125: ( p_count => x_msg_count,
126: p_data => x_msg_data
127: );
128: EXCEPTION
128: EXCEPTION
129: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
130: mdebug('. Add_OFO_Group_Member : Ending : Returning ''FND_API.G_EXC_UNEXPECTED_ERROR''');
131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
132: FND_MSG_PUB.Count_And_Get
133: ( p_count => x_msg_count,
134: p_data => x_msg_data
135: );
136: WHEN OTHERS THEN
134: p_data => x_msg_data
135: );
136: WHEN OTHERS THEN
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138: IF FND_MSG_PUB.Check_Msg_Level
139: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
140: THEN
141: FND_MSG_PUB.Add_Exc_Msg
142: ( G_PKG_NAME,
135: );
136: WHEN OTHERS THEN
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138: IF FND_MSG_PUB.Check_Msg_Level
139: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
140: THEN
141: FND_MSG_PUB.Add_Exc_Msg
142: ( G_PKG_NAME,
143: l_api_name
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138: IF FND_MSG_PUB.Check_Msg_Level
139: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
140: THEN
141: FND_MSG_PUB.Add_Exc_Msg
142: ( G_PKG_NAME,
143: l_api_name
144: );
145: END IF;
142: ( G_PKG_NAME,
143: l_api_name
144: );
145: END IF;
146: FND_MSG_PUB.Count_And_Get
147: ( p_count => x_msg_count,
148: p_data => x_msg_data
149: );
150: mdebug ( 'Add_OFO_Group_Member ' || SQLERRM);