150: END IF;
151: --
152:
153: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
154: FND_MSG_PUB.initialize ;
155: END IF;
156: --
157: p_return_status := FND_API.G_RET_STS_SUCCESS ;
158:
162:
163: IF p_concatenated_segments = FND_API.G_MISS_CHAR THEN
164: FND_MESSAGE.Set_Name('PSB', 'PSB_INVALID_ARGUMENT');
165: FND_MESSAGE.Set_Token('ROUTINE', 'PSB_VALIDATE_ACCT_PVT.Validate_Account');
166: FND_MSG_PUB.Add;
167: RAISE FND_API.G_EXC_ERROR;
168: END IF;
169:
170: l_ccid := FND_FLEX_EXT.Get_CCID
175: concatenated_segments => p_concatenated_segments);
176:
177: IF l_ccid = 0 then
178: FND_MESSAGE.Set_Name('PSB', 'PSB_INVALID_CC');
179: FND_MSG_PUB.Add;
180: RAISE FND_API.G_EXC_ERROR ;
181: END IF;
182:
183:
211: FND_MESSAGE.Set_Name('PSB', 'PSB_SUMMARY_DETAIL_BUDGETING');
212: /* Bug 3692601 Start */
213: FND_MESSAGE.Set_Token('ACCOUNT', l_concat_segments);
214: /* Bug 3692601 End */
215: FND_MSG_PUB.Add;
216: RAISE FND_API.G_EXC_ERROR ;
217: end if;
218: end loop;
219: END IF;
239: p_budget_group_id := l_budget_group_id;
240: RETURN;
241: ELSIF l_return_code = 1 THEN
242: FND_MESSAGE.Set_Name('PSB', 'PSB_INVALID_BG_CC');
243: FND_MSG_PUB.Add;
244: RAISE FND_API.G_EXC_ERROR ;
245: END IF;
246:
247: -- Return code status is 2 - CCID does not exist in Budget Accounts Table
267: p_budget_group_id := l_budget_group_id;
268: RETURN;
269: ELSIF l_return_code = 1 THEN
270: FND_MESSAGE.Set_Name('PSB', 'PSB_INVALID_BG_CC');
271: FND_MSG_PUB.Add;
272: RAISE FND_API.G_EXC_ERROR ;
273: END IF;
274:
275: EXCEPTION
277: WHEN FND_API.G_EXC_ERROR THEN
278: --
279: ROLLBACK TO Validate_Account_Pvt ;
280: p_return_status := FND_API.G_RET_STS_ERROR;
281: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
282: p_data => p_msg_data );
283: --
284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
285: --
284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
285: --
286: ROLLBACK TO Validate_Account_Pvt ;
287: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
288: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
289: p_data => p_msg_data );
290: --
291: WHEN OTHERS THEN
292: --
292: --
293: ROLLBACK TO Validate_Account_Pvt ;
294: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295: --
296: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
297: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
298: l_api_name);
299: END if;
300: --
293: ROLLBACK TO Validate_Account_Pvt ;
294: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295: --
296: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
297: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
298: l_api_name);
299: END if;
300: --
301: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
297: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
298: l_api_name);
299: END if;
300: --
301: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
302: p_data => p_msg_data );
303: --
304:
305: END Validate_Account;
855: --
856: EXCEPTION
857: WHEN OTHERS THEN
858: --
859: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
860: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
861: 'Get_Active_Segments' );
862: END if;
863: --
856: EXCEPTION
857: WHEN OTHERS THEN
858: --
859: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
860: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
861: 'Get_Active_Segments' );
862: END if;
863: --
864: RETURN (FALSE);