22: BEGIN
23: -- Standard Start of API savepoint
24: SAVEPOINT QPR_USER_PLAN_INITIALIZE;
25: -- Standard call to check for call compatibility.
26: IF NOT FND_API.Compatible_API_Call (l_api_version ,
27: p_api_version ,
28: l_api_name ,
29: G_PKG_NAME )
30: THEN
27: p_api_version ,
28: l_api_name ,
29: G_PKG_NAME )
30: THEN
31: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
31: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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:
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;
41:
42: /* do cursory validation */
43: Validate_params (p_event_id => p_event_id,
44: p_user_id => p_user_id ,
43: Validate_params (p_event_id => p_event_id,
44: p_user_id => p_user_id ,
45: p_plan_id => p_plan_id ,
46: x_return_status => l_valid_inputs);
47: if (l_valid_inputs <> FND_API.G_RET_STS_SUCCESS) then
48: x_return_status := FND_API.G_RET_STS_ERROR;
49: raise exc_severe_error;
50: end if;
51:
44: p_user_id => p_user_id ,
45: p_plan_id => p_plan_id ,
46: x_return_status => l_valid_inputs);
47: if (l_valid_inputs <> FND_API.G_RET_STS_SUCCESS) then
48: x_return_status := FND_API.G_RET_STS_ERROR;
49: raise exc_severe_error;
50: end if;
51:
52: if (p_event_id = G_INITIALIZE_REPORTS) then
58: end if;
59:
60:
61: -- Standard check of p_commit.
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
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,
69: );
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: );
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
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,
76: p_data => x_msg_data
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: );
83: p_data => x_msg_data
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
133: if (c_valid_plan%NOTFOUND) then
134: l_plan_id := NULL;
135: end if;
136: close c_valid_plan;
137: x_return_status := FND_API.G_RET_STS_SUCCESS;
138:
139: if (p_event_id = G_INITIALIZE_REPORTS) then--{
140: /*user_id and plan_id should be not null and valid*/
141: l_check_user_id := TRUE;
144: /* plan_id should be not null and valid*/
145: l_check_user_id := FALSE;
146: l_check_plan_id := TRUE;--}
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;--}
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:
156: if (l_check_user_id) then --{
154:
155:
156: if (l_check_user_id) then --{
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;--}
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 ;
166: FND_MESSAGE.Set_Name ('QPR','QPR_API_INVALID_INPUT');
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 ;
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;--}
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:
173: if (l_check_plan_id) then--{
171: end if;
172:
173: if (l_check_plan_id) then--{
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;--}
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 ;
183: FND_MESSAGE.Set_Name ('QPR','QPR_API_INVALID_INPUT');
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 ;
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;--}
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;
190: