13:
14: PROCEDURE Update_Row
15: (
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_return_status OUT NOCOPY VARCHAR2,
21: p_msg_count OUT NOCOPY NUMBER,
14: PROCEDURE Update_Row
15: (
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_return_status OUT NOCOPY VARCHAR2,
21: p_msg_count OUT NOCOPY NUMBER,
22: p_msg_data OUT NOCOPY VARCHAR2,
15: (
16: p_api_version IN NUMBER,
17: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
18: p_commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: p_return_status OUT NOCOPY VARCHAR2,
21: p_msg_count OUT NOCOPY NUMBER,
22: p_msg_data OUT NOCOPY VARCHAR2,
23: --
121: BEGIN
122: --
123: SAVEPOINT Update_Row_Pvt ;
124: --
125: IF NOT FND_API.Compatible_API_Call ( l_api_version,
126: p_api_version,
127: l_api_name,
128: G_PKG_NAME )
129: THEN
126: p_api_version,
127: l_api_name,
128: G_PKG_NAME )
129: THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
131: END IF;
132: --
133:
134: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
131: END IF;
132: --
133:
134: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
135: FND_MSG_PUB.initialize ;
136: END IF;
137: --
138: p_return_status := FND_API.G_RET_STS_SUCCESS ;
134: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
135: FND_MSG_PUB.initialize ;
136: END IF;
137: --
138: p_return_status := FND_API.G_RET_STS_SUCCESS ;
139: --
140: --
141:
142: -- Bug#4571412.
235:
236: PSB_WS_ACCT_PVT.Create_Account_Dist
237: (
238: p_api_version => 1.0,
239: p_init_msg_list => FND_API.G_FALSE,
240: p_commit => FND_API.G_FALSE,
241: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
242: p_return_status => l_return_status,
243: p_msg_count => p_msg_count,
236: PSB_WS_ACCT_PVT.Create_Account_Dist
237: (
238: p_api_version => 1.0,
239: p_init_msg_list => FND_API.G_FALSE,
240: p_commit => FND_API.G_FALSE,
241: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
242: p_return_status => l_return_status,
243: p_msg_count => p_msg_count,
244: p_msg_data => p_msg_data,
237: (
238: p_api_version => 1.0,
239: p_init_msg_list => FND_API.G_FALSE,
240: p_commit => FND_API.G_FALSE,
241: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
242: p_return_status => l_return_status,
243: p_msg_count => p_msg_count,
244: p_msg_data => p_msg_data,
245: p_account_line_id => l_account_line_id,
251: p_concatenated_segments => p_concatenated_segments,
252: p_currency_code => p_currency_code,
253: p_balance_type => 'E',
254: p_ytd_amount => l_ytd_amount,
255: p_distribute_flag => FND_API.G_TRUE,
256: p_period_amount => l_period_amount,
257: p_service_package_id => p_service_package_id
258: );
259:
280: ELSE
281: PSB_WS_ACCT_PVT.Create_Account_Dist
282: (
283: p_api_version => 1.0,
284: p_init_msg_list => FND_API.G_FALSE,
285: p_commit => FND_API.G_FALSE,
286: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
287: p_return_status => l_return_status,
288: p_msg_count => p_msg_count,
281: PSB_WS_ACCT_PVT.Create_Account_Dist
282: (
283: p_api_version => 1.0,
284: p_init_msg_list => FND_API.G_FALSE,
285: p_commit => FND_API.G_FALSE,
286: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
287: p_return_status => l_return_status,
288: p_msg_count => p_msg_count,
289: p_msg_data => p_msg_data,
282: (
283: p_api_version => 1.0,
284: p_init_msg_list => FND_API.G_FALSE,
285: p_commit => FND_API.G_FALSE,
286: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
287: p_return_status => l_return_status,
288: p_msg_count => p_msg_count,
289: p_msg_data => p_msg_data,
290: p_account_line_id => l_account_line_id,
296: p_concatenated_segments => p_concatenated_segments,
297: p_currency_code => p_currency_code,
298: p_balance_type => 'E',
299: p_ytd_amount => l_ytd_amount,
300: p_distribute_flag => FND_API.G_TRUE,
301: p_period_amount => l_period_amount,
302: p_position_line_id => p_position_line_id,
303: p_element_set_id => p_element_set_id,
304: p_salary_account_line => p_salary_account_line,
305: p_service_package_id => p_service_package_id
306: );
307: END IF;
308:
309: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
310: RAISE FND_API.G_EXC_ERROR ;
311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
313: END IF;
306: );
307: END IF;
308:
309: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
310: RAISE FND_API.G_EXC_ERROR ;
311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
313: END IF;
314:
307: END IF;
308:
309: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
310: RAISE FND_API.G_EXC_ERROR ;
311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
313: END IF;
314:
315:
308:
309: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
310: RAISE FND_API.G_EXC_ERROR ;
311: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
313: END IF;
314:
315:
316: ELSIF nvl(l_wal_id,0) <> 0 THEN --update row
317:
318: PSB_WS_ACCT_PVT.Create_Account_Dist
319: (
320: p_api_version => 1.0,
321: p_init_msg_list => FND_API.G_FALSE,
322: p_commit => FND_API.G_FALSE,
323: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
324: p_return_status => l_return_status,
325: p_msg_count => p_msg_count,
318: PSB_WS_ACCT_PVT.Create_Account_Dist
319: (
320: p_api_version => 1.0,
321: p_init_msg_list => FND_API.G_FALSE,
322: p_commit => FND_API.G_FALSE,
323: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
324: p_return_status => l_return_status,
325: p_msg_count => p_msg_count,
326: p_msg_data => p_msg_data,
319: (
320: p_api_version => 1.0,
321: p_init_msg_list => FND_API.G_FALSE,
322: p_commit => FND_API.G_FALSE,
323: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
324: p_return_status => l_return_status,
325: p_msg_count => p_msg_count,
326: p_msg_data => p_msg_data,
327: p_distribute_flag => FND_API.G_TRUE,
323: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
324: p_return_status => l_return_status,
325: p_msg_count => p_msg_count,
326: p_msg_data => p_msg_data,
327: p_distribute_flag => FND_API.G_TRUE,
328: p_worksheet_id => p_worksheet_id,
329: p_account_line_id => l_wal_id,
330: p_service_package_id => p_service_package_id,
331: p_ytd_amount => l_ytd_amount,
331: p_ytd_amount => l_ytd_amount,
332: p_period_amount => l_period_amount
333: );
334:
335: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
336: RAISE FND_API.G_EXC_ERROR ;
337: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
339: END IF;
332: p_period_amount => l_period_amount
333: );
334:
335: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
336: RAISE FND_API.G_EXC_ERROR ;
337: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
339: END IF;
340:
333: );
334:
335: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
336: RAISE FND_API.G_EXC_ERROR ;
337: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
339: END IF;
340:
341: IF NVL(p_sbi_year_option_year_id,l_budget_year_id) = l_budget_year_id
334:
335: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
336: RAISE FND_API.G_EXC_ERROR ;
337: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
339: END IF;
340:
341: IF NVL(p_sbi_year_option_year_id,l_budget_year_id) = l_budget_year_id
342: THEN
363: END IF;
364:
365: END LOOP;
366: --
367: IF FND_API.To_Boolean ( p_commit ) THEN
368: COMMIT WORK;
369: END iF;
370: --
371: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
372: p_data => p_msg_data );
373: --
374: EXCEPTION
375: --
376: WHEN FND_API.G_EXC_ERROR THEN
377: --
378: ROLLBACK TO Update_Row_Pvt ;
379: p_return_status := FND_API.G_RET_STS_ERROR;
380: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
375: --
376: WHEN FND_API.G_EXC_ERROR THEN
377: --
378: ROLLBACK TO Update_Row_Pvt ;
379: p_return_status := FND_API.G_RET_STS_ERROR;
380: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
381: p_data => p_msg_data );
382: --
383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
379: p_return_status := FND_API.G_RET_STS_ERROR;
380: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
381: p_data => p_msg_data );
382: --
383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
384: --
385: ROLLBACK TO Update_Row_Pvt ;
386: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
382: --
383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
384: --
385: ROLLBACK TO Update_Row_Pvt ;
386: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
388: p_data => p_msg_data );
389: --
390: WHEN OTHERS THEN
389: --
390: WHEN OTHERS THEN
391: --
392: ROLLBACK TO Update_Row_Pvt ;
393: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
394: --
395: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
396: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
397: l_api_name);