117: +============================================================================*/
118:
119: PROCEDURE Populate_Cost_Object_Id (
120: p_api_version in number
121: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
122: ,p_commit in varchar2 := FND_API.G_FALSE
123: ,x_return_status out nocopy varchar2
124: ,x_msg_count out nocopy number
125: ,x_msg_data out nocopy varchar2
118:
119: PROCEDURE Populate_Cost_Object_Id (
120: p_api_version in number
121: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
122: ,p_commit in varchar2 := FND_API.G_FALSE
123: ,x_return_status out nocopy varchar2
124: ,x_msg_count out nocopy number
125: ,x_msg_data out nocopy varchar2
126: ,p_object_type_code in varchar2
155: -- Standard Start of API Savepoint
156: savepoint Populate_Cost_Object_Id_PVT;
157:
158: -- Standard call to check for call compatibility
159: if not FND_API.Compatible_API_Call (
160: p_current_version_number => l_api_version
161: ,p_caller_version_number => p_api_version
162: ,p_api_name => l_api_name
163: ,p_pkg_name => G_PKG_NAME
161: ,p_caller_version_number => p_api_version
162: ,p_api_name => l_api_name
163: ,p_pkg_name => G_PKG_NAME
164: ) then
165: raise FND_API.G_EXC_UNEXPECTED_ERROR;
166: end if;
167:
168: -- Initialize Message Stack on FND_MSG_PUB
169: if (FND_API.To_Boolean(p_init_msg_list)) then
165: raise FND_API.G_EXC_UNEXPECTED_ERROR;
166: end if;
167:
168: -- Initialize Message Stack on FND_MSG_PUB
169: if (FND_API.To_Boolean(p_init_msg_list)) then
170: FND_MSG_PUB.Initialize;
171: end if;
172:
173: FEM_ENGINES_PKG.Tech_Message (
179: ------------------------------------------------
180: -- Initialize Package and Procedure Variables --
181: ------------------------------------------------
182: -- Initialize API return status to success
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184:
185: ------------------------------------------------------------------------------
186: -- STEP 1: Get Cost Object Dimension Where Clause
187: ------------------------------------------------------------------------------
207: ,p_value1 => 'COST_OBJECT_ID'
208: ,p_token2 => 'TABLE_NAME'
209: ,p_value2 => p_target_table_name
210: );
211: raise FND_API.G_EXC_ERROR;
212: end if;
213:
214: ------------------------------------------------------------------------------
215: -- STEP 2: Build Cost Object Dynamic Update Statement
270:
271: end if;
272:
273: -- Standard check of p_commit
274: if FND_API.To_Boolean(p_commit) then
275: commit work;
276: end if;
277:
278: -- Standard call to get message count and if count is 1, get message info
288: );
289:
290: EXCEPTION
291:
292: when FND_API.G_EXC_ERROR then
293:
294: rollback to Populate_Cost_Object_Id_PVT;
295: x_return_status := FND_API.G_RET_STS_ERROR;
296: FND_MSG_PUB.Count_And_Get (
291:
292: when FND_API.G_EXC_ERROR then
293:
294: rollback to Populate_Cost_Object_Id_PVT;
295: x_return_status := FND_API.G_RET_STS_ERROR;
296: FND_MSG_PUB.Count_And_Get (
297: p_count => x_msg_count
298: ,p_data => x_msg_data
299: );
297: p_count => x_msg_count
298: ,p_data => x_msg_data
299: );
300:
301: when FND_API.G_EXC_UNEXPECTED_ERROR then
302:
303: rollback to Populate_Cost_Object_Id_PVT;
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305: FND_MSG_PUB.Count_And_Get (
300:
301: when FND_API.G_EXC_UNEXPECTED_ERROR then
302:
303: rollback to Populate_Cost_Object_Id_PVT;
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305: FND_MSG_PUB.Count_And_Get (
306: p_count => x_msg_count
307: ,p_data => x_msg_data
308: );
309:
310: when others then
311:
312: rollback to Populate_Cost_Object_Id_PVT;
313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314: if FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
315: FND_MSG_PUB.Add_Exc_Msg (
316: p_pkg_name => G_PKG_NAME
317: ,p_procedure_name => l_api_name
392: +============================================================================*/
393:
394: PROCEDURE Populate_Activity_Id (
395: p_api_version in number
396: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
397: ,p_commit in varchar2 := FND_API.G_FALSE
398: ,x_return_status out nocopy varchar2
399: ,x_msg_count out nocopy number
400: ,x_msg_data out nocopy varchar2
393:
394: PROCEDURE Populate_Activity_Id (
395: p_api_version in number
396: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
397: ,p_commit in varchar2 := FND_API.G_FALSE
398: ,x_return_status out nocopy varchar2
399: ,x_msg_count out nocopy number
400: ,x_msg_data out nocopy varchar2
401: ,p_object_type_code in varchar2
440: -- Standard Start of API Savepoint
441: savepoint Populate_Activity_Id_PVT;
442:
443: -- Standard call to check for call compatibility
444: if not FND_API.Compatible_API_Call (
445: p_current_version_number => l_api_version
446: ,p_caller_version_number => p_api_version
447: ,p_api_name => l_api_name
448: ,p_pkg_name => G_PKG_NAME
446: ,p_caller_version_number => p_api_version
447: ,p_api_name => l_api_name
448: ,p_pkg_name => G_PKG_NAME
449: ) then
450: raise FND_API.G_EXC_UNEXPECTED_ERROR;
451: end if;
452:
453: -- Initialize Message Stack on FND_MSG_PUB
454: if (FND_API.To_Boolean(p_init_msg_list)) then
450: raise FND_API.G_EXC_UNEXPECTED_ERROR;
451: end if;
452:
453: -- Initialize Message Stack on FND_MSG_PUB
454: if (FND_API.To_Boolean(p_init_msg_list)) then
455: FND_MSG_PUB.Initialize;
456: end if;
457:
458: FEM_ENGINES_PKG.Tech_Message (
464: ------------------------------------------------
465: -- Initialize Package and Procedure Variables --
466: ------------------------------------------------
467: -- Initialize API return status to success
468: x_return_status := FND_API.G_RET_STS_SUCCESS;
469:
470: ------------------------------------------------------------------------------
471: -- STEP 1: Get Activity Dimension Where Clause
472: ------------------------------------------------------------------------------
579:
580: end if;
581:
582: -- Standard check of p_commit
583: if FND_API.To_Boolean(p_commit) then
584: commit work;
585: end if;
586:
587: -- Standard call to get message count and if count is 1, get message info
597: );
598:
599: EXCEPTION
600:
601: when FND_API.G_EXC_ERROR then
602:
603: rollback to Populate_Activity_Id_PVT;
604: x_return_status := FND_API.G_RET_STS_ERROR;
605: FND_MSG_PUB.Count_And_Get (
600:
601: when FND_API.G_EXC_ERROR then
602:
603: rollback to Populate_Activity_Id_PVT;
604: x_return_status := FND_API.G_RET_STS_ERROR;
605: FND_MSG_PUB.Count_And_Get (
606: p_count => x_msg_count
607: ,p_data => x_msg_data
608: );
606: p_count => x_msg_count
607: ,p_data => x_msg_data
608: );
609:
610: when FND_API.G_EXC_UNEXPECTED_ERROR then
611:
612: rollback to Populate_Activity_Id_PVT;
613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
614: FND_MSG_PUB.Count_And_Get (
609:
610: when FND_API.G_EXC_UNEXPECTED_ERROR then
611:
612: rollback to Populate_Activity_Id_PVT;
613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
614: FND_MSG_PUB.Count_And_Get (
615: p_count => x_msg_count
616: ,p_data => x_msg_data
617: );
618:
619: when others then
620:
621: rollback to Populate_Activity_Id_PVT;
622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
623: if FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
624: FND_MSG_PUB.Add_Exc_Msg (
625: p_pkg_name => G_PKG_NAME
626: ,p_procedure_name => l_api_name