57:
58: -- Global variables
59: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMF_ResourceCost_PVT';
60:
61: G_debug_level NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold; -- Use this variable everywhere
62: -- to decide to log a debug msg.
63:
64:
65: --Start of comments
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.
126: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
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 ||
140: ' Organization id : ' || p_resource_cost_rec.organization_id ||
141: ' Period Id : ' || p_resource_cost_rec.period_id ||
180: , p_resource_cost_rec.usage_uom
181: , p_resource_cost_rec.legal_entity_id
182: );
183:
184: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
185: log_msg('1 row inserted');
186: END IF;
187:
188: -- Standard check of p_commit.
190: COMMIT WORK;
191: END IF;
192:
193: -- Standard call to get message count and if count is 1, get message info.
194: FND_MSG_PUB.Count_And_Get
195: ( p_count => x_msg_count ,
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 ,
205: p_data => x_msg_data
206: );
207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
214: WHEN OTHERS THEN
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
221: ( G_PKG_NAME ,
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
221: ( G_PKG_NAME ,
222: l_api_name
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
221: ( G_PKG_NAME ,
222: l_api_name
223: );
224: END IF;
221: ( G_PKG_NAME ,
222: l_api_name
223: );
224: END IF;
225: FND_MSG_PUB.Count_And_Get
226: ( p_count => x_msg_count ,
227: p_data => x_msg_data
228: );
229:
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.
294: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
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 ||
308: ' Organization id : ' || p_resource_cost_rec.organization_id ||
309: ' Period Id : ' || p_resource_cost_rec.period_id ||
343: COMMIT WORK;
344: END IF;
345:
346: -- Standard call to get message count and if count is 1, get message info.
347: FND_MSG_PUB.Count_And_Get
348: ( p_count => x_msg_count ,
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 ,
358: p_data => x_msg_data
359: );
360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
367: WHEN OTHERS THEN
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
374: ( G_PKG_NAME ,
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
374: ( G_PKG_NAME ,
375: l_api_name
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
374: ( G_PKG_NAME ,
375: l_api_name
376: );
377: END IF;
374: ( G_PKG_NAME ,
375: l_api_name
376: );
377: END IF;
378: FND_MSG_PUB.Count_And_Get
379: ( p_count => x_msg_count ,
380: p_data => x_msg_data
381: );
382:
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.
444: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
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;
458:
459: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
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;
458:
459: IF FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW >= G_Debug_Level THEN -- Bug 2659435
460: log_msg('Retrieving Resource Costs for legal entity id : ' || p_resource_cost_rec.legal_entity_id ||
461: ' Organization Id : ' || p_resource_cost_rec.organization_id ||
462: ' Resource : ' || p_resource_cost_rec.resources ||
463: ' Period Id : ' || p_resource_cost_rec.Period_id ||
505: END IF;
506: */
507:
508: -- Standard call to get message count and if count is 1, get message info.
509: FND_MSG_PUB.Count_And_Get
510: ( p_count => x_msg_count ,
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 ,
520: p_data => x_msg_data
521: );
522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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: );
529: WHEN OTHERS THEN
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
536: ( G_PKG_NAME ,
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
536: ( G_PKG_NAME ,
537: l_api_name
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
536: ( G_PKG_NAME ,
537: l_api_name
538: );
539: END IF;
536: ( G_PKG_NAME ,
537: l_api_name
538: );
539: END IF;
540: FND_MSG_PUB.Count_And_Get
541: ( p_count => x_msg_count ,
542: p_data => x_msg_data
543: );
544: END Get_Resource_Cost;
569: )
570: IS
571: BEGIN
572:
573: -- IF FND_MSG_PUB.Check_Msg_Level (p_msg_lvl) THEN -- Bug 2659435
574: FND_MESSAGE.SET_NAME('GMF','GMF_API_DEBUG');
575: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
576: FND_MSG_PUB.Add;
577: -- END IF;
572:
573: -- IF FND_MSG_PUB.Check_Msg_Level (p_msg_lvl) THEN -- Bug 2659435
574: FND_MESSAGE.SET_NAME('GMF','GMF_API_DEBUG');
575: FND_MESSAGE.SET_TOKEN('MSG',p_msg_text);
576: FND_MSG_PUB.Add;
577: -- END IF;
578:
579: END log_msg ;
580: