95: -- End of comments
96:
97: PROCEDURE Create_Resource_Cost
98: ( p_api_version IN NUMBER ,
99: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
100: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
101:
102: x_return_status OUT NOCOPY VARCHAR2 ,
103: x_msg_count OUT NOCOPY NUMBER ,
96:
97: PROCEDURE Create_Resource_Cost
98: ( p_api_version IN NUMBER ,
99: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
100: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
101:
102: x_return_status OUT NOCOPY VARCHAR2 ,
103: x_msg_count OUT NOCOPY NUMBER ,
104: x_msg_data OUT NOCOPY VARCHAR2 ,
117: -- Standard Start of API savepoint
118: SAVEPOINT Create_Resource_Cost_PVT;
119:
120: -- Initialize message list if p_init_msg_list is set to TRUE.
121: IF FND_API.to_Boolean( p_init_msg_list ) THEN
122: FND_MSG_PUB.initialize;
123: END IF;
124:
125: -- Standard call to check for call compatibility.
122: FND_MSG_PUB.initialize;
123: END IF;
124:
125: -- Standard call to check for call compatibility.
126: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
127: p_api_version ,
128: l_api_name ,
129: G_PKG_NAME )
130: THEN
127: p_api_version ,
128: l_api_name ,
129: G_PKG_NAME )
130: THEN
131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132: END IF;
133:
134: -- Initialize API return status to success
135: x_return_status := FND_API.G_RET_STS_SUCCESS;
131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
132: END IF;
133:
134: -- Initialize API return status to success
135: x_return_status := FND_API.G_RET_STS_SUCCESS;
136:
137: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
138: log_msg('Inserting record for resource : ' || p_resource_cost_rec.resources ||
139: ' Legal Entity Id : ' || p_resource_cost_rec.legal_entity_id ||
185: log_msg('1 row inserted');
186: END IF;
187:
188: -- Standard check of p_commit.
189: IF FND_API.To_Boolean( p_commit ) THEN
190: COMMIT WORK;
191: END IF;
192:
193: -- Standard call to get message count and if count is 1, get message info.
196: p_data => x_msg_data
197: );
198:
199: EXCEPTION
200: WHEN FND_API.G_EXC_ERROR THEN
201: ROLLBACK TO Create_Resource_Cost_PVT;
202: x_return_status := FND_API.G_RET_STS_ERROR ;
203: FND_MSG_PUB.Count_And_Get
204: ( p_count => x_msg_count ,
198:
199: EXCEPTION
200: WHEN FND_API.G_EXC_ERROR THEN
201: ROLLBACK TO Create_Resource_Cost_PVT;
202: x_return_status := FND_API.G_RET_STS_ERROR ;
203: FND_MSG_PUB.Count_And_Get
204: ( p_count => x_msg_count ,
205: p_data => x_msg_data
206: );
203: FND_MSG_PUB.Count_And_Get
204: ( p_count => x_msg_count ,
205: p_data => x_msg_data
206: );
207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
208: ROLLBACK TO Create_Resource_Cost_PVT;
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
210: FND_MSG_PUB.Count_And_Get
211: ( p_count => x_msg_count ,
205: p_data => x_msg_data
206: );
207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
208: ROLLBACK TO Create_Resource_Cost_PVT;
209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
210: FND_MSG_PUB.Count_And_Get
211: ( p_count => x_msg_count ,
212: p_data => x_msg_data
213: );
212: p_data => x_msg_data
213: );
214: WHEN OTHERS THEN
215: ROLLBACK TO Create_Resource_Cost_PVT;
216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
217: IF FND_MSG_PUB.Check_Msg_Level
218: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
219: THEN
220: FND_MSG_PUB.Add_Exc_Msg
262: -- End of comments
263:
264: PROCEDURE Update_Resource_Cost
265: ( p_api_version IN NUMBER ,
266: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
267: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
268:
269: x_return_status OUT NOCOPY VARCHAR2 ,
270: x_msg_count OUT NOCOPY NUMBER ,
263:
264: PROCEDURE Update_Resource_Cost
265: ( p_api_version IN NUMBER ,
266: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
267: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
268:
269: x_return_status OUT NOCOPY VARCHAR2 ,
270: x_msg_count OUT NOCOPY NUMBER ,
271: x_msg_data OUT NOCOPY VARCHAR2 ,
285: -- Standard Start of API savepoint
286: SAVEPOINT Update_Resource_Cost_PVT;
287:
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
290: FND_MSG_PUB.initialize;
291: END IF;
292:
293: -- Standard call to check for call compatibility.
290: FND_MSG_PUB.initialize;
291: END IF;
292:
293: -- Standard call to check for call compatibility.
294: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
295: p_api_version ,
296: l_api_name ,
297: G_PKG_NAME )
298: THEN
295: p_api_version ,
296: l_api_name ,
297: G_PKG_NAME )
298: THEN
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: END IF;
301:
302: -- Initialize API return status to success
303: x_return_status := FND_API.G_RET_STS_SUCCESS;
299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300: END IF;
301:
302: -- Initialize API return status to success
303: x_return_status := FND_API.G_RET_STS_SUCCESS;
304:
305: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
306: log_msg('Updating record for resource : ' || p_resource_cost_rec.resources ||
307: ' Legal Entity Id : ' || p_resource_cost_rec.legal_entity_id ||
313: UPDATE cm_rsrc_dtl
314: SET
315: -- Modified uage_um to usage_uom by pmarada
316: usage_uom = decode(p_resource_cost_rec.usage_uom,
317: FND_API.G_MISS_CHAR, NULL,
318: NULL, usage_uom,
319: p_resource_cost_rec.usage_uom)
320: ,nominal_cost = decode(p_resource_cost_rec.nominal_cost,
321: FND_API.G_MISS_NUM, NULL,
317: FND_API.G_MISS_CHAR, NULL,
318: NULL, usage_uom,
319: p_resource_cost_rec.usage_uom)
320: ,nominal_cost = decode(p_resource_cost_rec.nominal_cost,
321: FND_API.G_MISS_NUM, NULL,
322: NULL, nominal_cost,
323: p_resource_cost_rec.nominal_cost)
324: ,delete_mark = decode(p_resource_cost_rec.delete_mark,
325: FND_API.G_MISS_NUM, NULL,
321: FND_API.G_MISS_NUM, NULL,
322: NULL, nominal_cost,
323: p_resource_cost_rec.nominal_cost)
324: ,delete_mark = decode(p_resource_cost_rec.delete_mark,
325: FND_API.G_MISS_NUM, NULL,
326: NULL, delete_mark,
327: p_resource_cost_rec.delete_mark)
328: ,last_update_date = sysdate
329: ,last_updated_by = p_user_id
338: AND cost_type_id = p_resource_cost_rec.cost_type_id
339: ;
340:
341: -- Standard check of p_commit.
342: IF FND_API.To_Boolean( p_commit ) THEN
343: COMMIT WORK;
344: END IF;
345:
346: -- Standard call to get message count and if count is 1, get message info.
349: p_data => x_msg_data
350: );
351:
352: EXCEPTION
353: WHEN FND_API.G_EXC_ERROR THEN
354: ROLLBACK TO Update_Resource_Cost_PVT;
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: FND_MSG_PUB.Count_And_Get
357: ( p_count => x_msg_count ,
351:
352: EXCEPTION
353: WHEN FND_API.G_EXC_ERROR THEN
354: ROLLBACK TO Update_Resource_Cost_PVT;
355: x_return_status := FND_API.G_RET_STS_ERROR ;
356: FND_MSG_PUB.Count_And_Get
357: ( p_count => x_msg_count ,
358: p_data => x_msg_data
359: );
356: FND_MSG_PUB.Count_And_Get
357: ( p_count => x_msg_count ,
358: p_data => x_msg_data
359: );
360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
361: ROLLBACK TO Update_Resource_Cost_PVT;
362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
363: FND_MSG_PUB.Count_And_Get
364: ( p_count => x_msg_count ,
358: p_data => x_msg_data
359: );
360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
361: ROLLBACK TO Update_Resource_Cost_PVT;
362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
363: FND_MSG_PUB.Count_And_Get
364: ( p_count => x_msg_count ,
365: p_data => x_msg_data
366: );
365: p_data => x_msg_data
366: );
367: WHEN OTHERS THEN
368: ROLLBACK TO Update_Resource_Cost_PVT;
369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
370: IF FND_MSG_PUB.Check_Msg_Level
371: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
372: THEN
373: FND_MSG_PUB.Add_Exc_Msg
416: -- End of comments
417:
418: PROCEDURE Get_Resource_Cost
419: ( p_api_version IN NUMBER ,
420: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
421:
422: x_return_status OUT NOCOPY VARCHAR2 ,
423: x_msg_count OUT NOCOPY NUMBER ,
424: x_msg_data OUT NOCOPY VARCHAR2 ,
435: -- Standard Start of API savepoint
436: SAVEPOINT Get_Reousrce_Cost_PVT;
437:
438: -- Initialize message list if p_init_msg_list is set to TRUE.
439: IF FND_API.to_Boolean( p_init_msg_list ) THEN
440: FND_MSG_PUB.initialize;
441: END IF;
442:
443: -- Standard call to check for call compatibility.
440: FND_MSG_PUB.initialize;
441: END IF;
442:
443: -- Standard call to check for call compatibility.
444: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
445: p_api_version ,
446: l_api_name ,
447: G_PKG_NAME )
448: THEN
445: p_api_version ,
446: l_api_name ,
447: G_PKG_NAME )
448: THEN
449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
450: END IF;
451:
452: -- Initialize API return status to success
453: x_return_status := FND_API.G_RET_STS_SUCCESS;
449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
450: END IF;
451:
452: -- Initialize API return status to success
453: x_return_status := FND_API.G_RET_STS_SUCCESS;
454:
455: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
456: log_msg('Beginning Private Get Resource Cost API.');
457: END IF;
499:
500:
501: /*
502: -- Standard check of p_commit.
503: IF FND_API.To_Boolean( p_commit ) THEN
504: COMMIT WORK;
505: END IF;
506: */
507:
511: p_data => x_msg_data
512: );
513:
514: EXCEPTION
515: WHEN FND_API.G_EXC_ERROR THEN
516: ROLLBACK TO Get_Reousrce_Cost_PVT;
517: x_return_status := FND_API.G_RET_STS_ERROR ;
518: FND_MSG_PUB.Count_And_Get
519: ( p_count => x_msg_count ,
513:
514: EXCEPTION
515: WHEN FND_API.G_EXC_ERROR THEN
516: ROLLBACK TO Get_Reousrce_Cost_PVT;
517: x_return_status := FND_API.G_RET_STS_ERROR ;
518: FND_MSG_PUB.Count_And_Get
519: ( p_count => x_msg_count ,
520: p_data => x_msg_data
521: );
518: FND_MSG_PUB.Count_And_Get
519: ( p_count => x_msg_count ,
520: p_data => x_msg_data
521: );
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523: ROLLBACK TO Get_Reousrce_Cost_PVT;
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
525: FND_MSG_PUB.Count_And_Get
526: ( p_count => x_msg_count ,
520: p_data => x_msg_data
521: );
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
523: ROLLBACK TO Get_Reousrce_Cost_PVT;
524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
525: FND_MSG_PUB.Count_And_Get
526: ( p_count => x_msg_count ,
527: p_data => x_msg_data
528: );
527: p_data => x_msg_data
528: );
529: WHEN OTHERS THEN
530: ROLLBACK TO Get_Reousrce_Cost_PVT;
531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
532: IF FND_MSG_PUB.Check_Msg_Level
533: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
534: THEN
535: FND_MSG_PUB.Add_Exc_Msg