32: END IF;
33:
34: -- Initialize message list if p_init_msg_list is set to TRUE.
35: IF FND_API.to_Boolean( p_init_msg_list ) THEN
36: FND_MSG_PUB.initialize;
37: END IF;
38: -- Initialize API return status to success
39:
40: x_return_status := FND_API.G_RET_STS_SUCCESS;
62: IF FND_API.To_Boolean( p_commit ) THEN
63: COMMIT WORK;
64: END IF;
65: -- Standard call to get message count and if count is 1, get message info.
66: FND_MSG_PUB.Count_And_Get
67: ( p_count => x_msg_count,
68: p_data => x_msg_data
69: );
70: EXCEPTION
70: EXCEPTION
71: WHEN FND_API.G_EXC_ERROR THEN
72: ROLLBACK TO QPR_USER_PLAN_INITIALIZE;
73: x_return_status := FND_API.G_RET_STS_ERROR ;
74: FND_MSG_PUB.Count_And_Get
75: ( p_count => x_msg_count,
76: p_data => x_msg_data
77: );
78: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77: );
78: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
79: ROLLBACK TO QPR_USER_PLAN_INITIALIZE;
80: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
81: FND_MSG_PUB.Count_And_Get
82: ( p_count => x_msg_count,
83: p_data => x_msg_data
84: );
85: WHEN OTHERS THEN
84: );
85: WHEN OTHERS THEN
86: ROLLBACK TO QPR_USER_PLAN_INITIALIZE;
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
88: IF FND_MSG_PUB.Check_Msg_Level
89: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
90: THEN
91: FND_MSG_PUB.Add_Exc_Msg
92: ( G_PKG_NAME,
85: WHEN OTHERS THEN
86: ROLLBACK TO QPR_USER_PLAN_INITIALIZE;
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
88: IF FND_MSG_PUB.Check_Msg_Level
89: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
90: THEN
91: FND_MSG_PUB.Add_Exc_Msg
92: ( G_PKG_NAME,
93: l_api_name
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
88: IF FND_MSG_PUB.Check_Msg_Level
89: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
90: THEN
91: FND_MSG_PUB.Add_Exc_Msg
92: ( G_PKG_NAME,
93: l_api_name
94: );
95: END IF;
92: ( G_PKG_NAME,
93: l_api_name
94: );
95: END IF;
96: FND_MSG_PUB.Count_And_Get
97: ( p_count => x_msg_count,
98: p_data => x_msg_data
99: );
100: END Initialize;
147: else--{
148: x_return_status := FND_API.G_RET_STS_ERROR ;
149: FND_MESSAGE.Set_Name ('QPR','QPR_API_INVALID_INPUT');
150: FND_MESSAGE.Set_Token ('ERROR_TEXT','p_event_id Invalid');
151: FND_MSG_PUB.Add;
152: raise FND_API.G_EXC_ERROR;--}
153: end if;
154:
155:
157: if (p_user_id is null) then --{
158: x_return_status := FND_API.G_RET_STS_ERROR ;
159: FND_MESSAGE.Set_Name ('QPR','QPR_API_INVALID_INPUT');
160: FND_MESSAGE.Set_Token ('ERROR_TEXT','p_user_id is NULL');
161: FND_MSG_PUB.Add;
162: raise FND_API.G_EXC_ERROR;--}
163: elsif
164: (l_user_id is null) then --{
165: x_return_status := FND_API.G_RET_STS_ERROR ;
164: (l_user_id is null) then --{
165: x_return_status := FND_API.G_RET_STS_ERROR ;
166: FND_MESSAGE.Set_Name ('QPR','QPR_API_INVALID_INPUT');
167: FND_MESSAGE.Set_Token ('ERROR_TEXT','p_user_id Invalid');
168: FND_MSG_PUB.Add;
169: raise FND_API.G_EXC_ERROR;--}
170: end if;--}
171: end if;
172:
174: if (p_plan_id is null) then--{
175: x_return_status := FND_API.G_RET_STS_ERROR ;
176: FND_MESSAGE.Set_Name ('QPR','QPR_API_INVALID_INPUT');
177: FND_MESSAGE.Set_Token ('ERROR_TEXT','p_plan_id is NULL');
178: FND_MSG_PUB.Add;
179: raise FND_API.G_EXC_ERROR;--}
180: elsif
181: (l_plan_id is null) then--{
182: x_return_status := FND_API.G_RET_STS_ERROR ;
181: (l_plan_id is null) then--{
182: x_return_status := FND_API.G_RET_STS_ERROR ;
183: FND_MESSAGE.Set_Name ('QPR','QPR_API_INVALID_INPUT');
184: FND_MESSAGE.Set_Token ('ERROR_TEXT','p_plan_id Invalid');
185: FND_MSG_PUB.Add;
186: raise FND_API.G_EXC_ERROR;--}
187: end if;--}
188: end if;
189: END Validate_params;