23: THEN
24:
25: l_return_status := FND_API.G_RET_STS_ERROR;
26:
27: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
28: THEN
29:
30: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
31: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','application_short_name');
28: THEN
29:
30: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
31: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','application_short_name');
32: OE_MSG_PUB.Add;
33:
34: END IF;
35:
36: END IF;
75: WHEN OTHERS THEN
76:
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78:
79: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
80: THEN
81: OE_MSG_PUB.Add_Exc_Msg
82: ( G_PKG_NAME
83: , 'Entity'
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78:
79: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
80: THEN
81: OE_MSG_PUB.Add_Exc_Msg
82: ( G_PKG_NAME
83: , 'Entity'
84: );
85: END IF;
379: WHEN OTHERS THEN
380:
381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382:
383: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
384: THEN
385: OE_MSG_PUB.Add_Exc_Msg
386: ( G_PKG_NAME
387: , 'Attributes'
381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382:
383: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
384: THEN
385: OE_MSG_PUB.Add_Exc_Msg
386: ( G_PKG_NAME
387: , 'Attributes'
388: );
389: END IF;
410: nvl(source_system_code,'x') = nvl(p_SSC_rec.application_short_name,'y') and
411: rownum = 1;
412: l_return_status := FND_API.G_RET_STS_ERROR;
413: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_DELETE_SOURCE');
414: OE_MSG_PUB.Add;
415: raise fnd_api.g_exc_error;
416: -- Done.
417: exception
418: when no_data_found then
434: WHEN OTHERS THEN
435:
436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
437:
438: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
439: THEN
440: OE_MSG_PUB.Add_Exc_Msg
441: ( G_PKG_NAME
442: , 'Entity_Delete'
436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
437:
438: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
439: THEN
440: OE_MSG_PUB.Add_Exc_Msg
441: ( G_PKG_NAME
442: , 'Entity_Delete'
443: );
444: END IF;