92: -- End of comments
93:
94: PROCEDURE Create_Resource_Cost
95: ( p_api_version IN NUMBER ,
96: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
97: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
98:
99: x_return_status OUT NOCOPY VARCHAR2 ,
100: x_msg_count OUT NOCOPY NUMBER ,
93:
94: PROCEDURE Create_Resource_Cost
95: ( p_api_version IN NUMBER ,
96: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
97: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
98:
99: x_return_status OUT NOCOPY VARCHAR2 ,
100: x_msg_count OUT NOCOPY NUMBER ,
101: x_msg_data OUT NOCOPY VARCHAR2 ,
114: -- Standard Start of API savepoint
115: SAVEPOINT Create_Resource_Cost_PVT;
116:
117: -- Initialize message list if p_init_msg_list is set to TRUE.
118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
119: FND_MSG_PUB.initialize;
120: END IF;
121:
122: -- Standard call to check for call compatibility.
119: FND_MSG_PUB.initialize;
120: END IF;
121:
122: -- Standard call to check for call compatibility.
123: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
124: p_api_version ,
125: l_api_name ,
126: G_PKG_NAME )
127: THEN
124: p_api_version ,
125: l_api_name ,
126: G_PKG_NAME )
127: THEN
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130:
131: -- Initialize API return status to success
132: x_return_status := FND_API.G_RET_STS_SUCCESS;
128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
129: END IF;
130:
131: -- Initialize API return status to success
132: x_return_status := FND_API.G_RET_STS_SUCCESS;
133:
134: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
135: log_msg('Inserting record for resource : ' || p_resource_cost_rec.resources ||
136: ' Legal Entity Id : ' || p_resource_cost_rec.legal_entity_id ||
182: log_msg('1 row inserted');
183: END IF;
184:
185: -- Standard check of p_commit.
186: IF FND_API.To_Boolean( p_commit ) THEN
187: COMMIT WORK;
188: END IF;
189:
190: -- Standard call to get message count and if count is 1, get message info.
193: p_data => x_msg_data
194: );
195:
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: ROLLBACK TO Create_Resource_Cost_PVT;
199: x_return_status := FND_API.G_RET_STS_ERROR ;
200: FND_MSG_PUB.Count_And_Get
201: ( p_count => x_msg_count ,
195:
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: ROLLBACK TO Create_Resource_Cost_PVT;
199: x_return_status := FND_API.G_RET_STS_ERROR ;
200: FND_MSG_PUB.Count_And_Get
201: ( p_count => x_msg_count ,
202: p_data => x_msg_data
203: );
200: FND_MSG_PUB.Count_And_Get
201: ( p_count => x_msg_count ,
202: p_data => x_msg_data
203: );
204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
205: ROLLBACK TO Create_Resource_Cost_PVT;
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
207: FND_MSG_PUB.Count_And_Get
208: ( p_count => x_msg_count ,
202: p_data => x_msg_data
203: );
204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
205: ROLLBACK TO Create_Resource_Cost_PVT;
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
207: FND_MSG_PUB.Count_And_Get
208: ( p_count => x_msg_count ,
209: p_data => x_msg_data
210: );
209: p_data => x_msg_data
210: );
211: WHEN OTHERS THEN
212: ROLLBACK TO Create_Resource_Cost_PVT;
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
214: IF FND_MSG_PUB.Check_Msg_Level
215: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
216: THEN
217: FND_MSG_PUB.Add_Exc_Msg
259: -- End of comments
260:
261: PROCEDURE Update_Resource_Cost
262: ( p_api_version IN NUMBER ,
263: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
264: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
265:
266: x_return_status OUT NOCOPY VARCHAR2 ,
267: x_msg_count OUT NOCOPY NUMBER ,
260:
261: PROCEDURE Update_Resource_Cost
262: ( p_api_version IN NUMBER ,
263: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
264: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
265:
266: x_return_status OUT NOCOPY VARCHAR2 ,
267: x_msg_count OUT NOCOPY NUMBER ,
268: x_msg_data OUT NOCOPY VARCHAR2 ,
282: -- Standard Start of API savepoint
283: SAVEPOINT Update_Resource_Cost_PVT;
284:
285: -- Initialize message list if p_init_msg_list is set to TRUE.
286: IF FND_API.to_Boolean( p_init_msg_list ) THEN
287: FND_MSG_PUB.initialize;
288: END IF;
289:
290: -- Standard call to check for call compatibility.
287: FND_MSG_PUB.initialize;
288: END IF;
289:
290: -- Standard call to check for call compatibility.
291: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
292: p_api_version ,
293: l_api_name ,
294: G_PKG_NAME )
295: THEN
292: p_api_version ,
293: l_api_name ,
294: G_PKG_NAME )
295: THEN
296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
297: END IF;
298:
299: -- Initialize API return status to success
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
297: END IF;
298:
299: -- Initialize API return status to success
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301:
302: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
303: log_msg('Updating record for resource : ' || p_resource_cost_rec.resources ||
304: ' Legal Entity Id : ' || p_resource_cost_rec.legal_entity_id ||
310: UPDATE cm_rsrc_dtl
311: SET
312: -- Modified uage_um to usage_uom by pmarada
313: usage_uom = decode(p_resource_cost_rec.usage_uom,
314: FND_API.G_MISS_CHAR, NULL,
315: NULL, usage_uom,
316: p_resource_cost_rec.usage_uom)
317: ,nominal_cost = decode(p_resource_cost_rec.nominal_cost,
318: FND_API.G_MISS_NUM, NULL,
314: FND_API.G_MISS_CHAR, NULL,
315: NULL, usage_uom,
316: p_resource_cost_rec.usage_uom)
317: ,nominal_cost = decode(p_resource_cost_rec.nominal_cost,
318: FND_API.G_MISS_NUM, NULL,
319: NULL, nominal_cost,
320: p_resource_cost_rec.nominal_cost)
321: ,delete_mark = decode(p_resource_cost_rec.delete_mark,
322: FND_API.G_MISS_NUM, NULL,
318: FND_API.G_MISS_NUM, NULL,
319: NULL, nominal_cost,
320: p_resource_cost_rec.nominal_cost)
321: ,delete_mark = decode(p_resource_cost_rec.delete_mark,
322: FND_API.G_MISS_NUM, NULL,
323: NULL, delete_mark,
324: p_resource_cost_rec.delete_mark)
325: ,last_update_date = sysdate
326: ,last_updated_by = p_user_id
333: AND cost_type_id = p_resource_cost_rec.cost_type_id
334: ;
335:
336: -- Standard check of p_commit.
337: IF FND_API.To_Boolean( p_commit ) THEN
338: COMMIT WORK;
339: END IF;
340:
341: -- Standard call to get message count and if count is 1, get message info.
344: p_data => x_msg_data
345: );
346:
347: EXCEPTION
348: WHEN FND_API.G_EXC_ERROR THEN
349: ROLLBACK TO Update_Resource_Cost_PVT;
350: x_return_status := FND_API.G_RET_STS_ERROR ;
351: FND_MSG_PUB.Count_And_Get
352: ( p_count => x_msg_count ,
346:
347: EXCEPTION
348: WHEN FND_API.G_EXC_ERROR THEN
349: ROLLBACK TO Update_Resource_Cost_PVT;
350: x_return_status := FND_API.G_RET_STS_ERROR ;
351: FND_MSG_PUB.Count_And_Get
352: ( p_count => x_msg_count ,
353: p_data => x_msg_data
354: );
351: FND_MSG_PUB.Count_And_Get
352: ( p_count => x_msg_count ,
353: p_data => x_msg_data
354: );
355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
356: ROLLBACK TO Update_Resource_Cost_PVT;
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358: FND_MSG_PUB.Count_And_Get
359: ( p_count => x_msg_count ,
353: p_data => x_msg_data
354: );
355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
356: ROLLBACK TO Update_Resource_Cost_PVT;
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
358: FND_MSG_PUB.Count_And_Get
359: ( p_count => x_msg_count ,
360: p_data => x_msg_data
361: );
360: p_data => x_msg_data
361: );
362: WHEN OTHERS THEN
363: ROLLBACK TO Update_Resource_Cost_PVT;
364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
365: IF FND_MSG_PUB.Check_Msg_Level
366: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
367: THEN
368: FND_MSG_PUB.Add_Exc_Msg
411: -- End of comments
412:
413: PROCEDURE Get_Resource_Cost
414: ( p_api_version IN NUMBER ,
415: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
416:
417: x_return_status OUT NOCOPY VARCHAR2 ,
418: x_msg_count OUT NOCOPY NUMBER ,
419: x_msg_data OUT NOCOPY VARCHAR2 ,
430: -- Standard Start of API savepoint
431: SAVEPOINT Get_Reousrce_Cost_PVT;
432:
433: -- Initialize message list if p_init_msg_list is set to TRUE.
434: IF FND_API.to_Boolean( p_init_msg_list ) THEN
435: FND_MSG_PUB.initialize;
436: END IF;
437:
438: -- Standard call to check for call compatibility.
435: FND_MSG_PUB.initialize;
436: END IF;
437:
438: -- Standard call to check for call compatibility.
439: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
440: p_api_version ,
441: l_api_name ,
442: G_PKG_NAME )
443: THEN
440: p_api_version ,
441: l_api_name ,
442: G_PKG_NAME )
443: THEN
444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
445: END IF;
446:
447: -- Initialize API return status to success
448: x_return_status := FND_API.G_RET_STS_SUCCESS;
444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
445: END IF;
446:
447: -- Initialize API return status to success
448: x_return_status := FND_API.G_RET_STS_SUCCESS;
449:
450: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
451: log_msg('Beginning Private Get Resource Cost API.');
452: END IF;
492:
493:
494: /*
495: -- Standard check of p_commit.
496: IF FND_API.To_Boolean( p_commit ) THEN
497: COMMIT WORK;
498: END IF;
499: */
500:
504: p_data => x_msg_data
505: );
506:
507: EXCEPTION
508: WHEN FND_API.G_EXC_ERROR THEN
509: ROLLBACK TO Get_Reousrce_Cost_PVT;
510: x_return_status := FND_API.G_RET_STS_ERROR ;
511: FND_MSG_PUB.Count_And_Get
512: ( p_count => x_msg_count ,
506:
507: EXCEPTION
508: WHEN FND_API.G_EXC_ERROR THEN
509: ROLLBACK TO Get_Reousrce_Cost_PVT;
510: x_return_status := FND_API.G_RET_STS_ERROR ;
511: FND_MSG_PUB.Count_And_Get
512: ( p_count => x_msg_count ,
513: p_data => x_msg_data
514: );
511: FND_MSG_PUB.Count_And_Get
512: ( p_count => x_msg_count ,
513: p_data => x_msg_data
514: );
515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
516: ROLLBACK TO Get_Reousrce_Cost_PVT;
517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
518: FND_MSG_PUB.Count_And_Get
519: ( p_count => x_msg_count ,
513: p_data => x_msg_data
514: );
515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
516: ROLLBACK TO Get_Reousrce_Cost_PVT;
517: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
518: FND_MSG_PUB.Count_And_Get
519: ( p_count => x_msg_count ,
520: p_data => x_msg_data
521: );
520: p_data => x_msg_data
521: );
522: WHEN OTHERS THEN
523: ROLLBACK TO Get_Reousrce_Cost_PVT;
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
525: IF FND_MSG_PUB.Check_Msg_Level
526: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
527: THEN
528: FND_MSG_PUB.Add_Exc_Msg