[Home] [Help]
1: PACKAGE BODY IEX_WRITEOFF_OBJECTS_PUB as
2: /* $Header: iexpwobb.pls 120.1 2007/10/31 14:58:12 ehuh ship $ */
3:
4: PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
33:
34: BEGIN
35: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
36: IEX_DEBUG_PUB.LogMessage ('** Start of Procedure =>'||
37: 'IEX_writeoff_objects_PUB.create_writeoff_objects *** ');
38: END IF;
39: SAVEPOINT CREATE_WRITEOFF_OBJECTS_PUB;
40:
41: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number,
104: ( p_count => x_msg_count,
105: p_data => x_msg_data);
106:
107: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
108: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_writeoff_objects_PUB.'||
109: 'create_writeoff_objects ******** ');
110: END IF;
111: EXCEPTION
112: WHEN FND_API.G_EXC_ERROR THEN
156:
157: BEGIN
158: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
159: IEX_DEBUG_PUB.LogMessage ('** Start of Procedure =>'||
160: 'IEX_writeoff_objects_PUB.update_writeoff_objects *** ');
161: END IF;
162:
163: SAVEPOINT UPDATE_WRITEOFF_OBJECTS_PUB;
164: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version_number,
203:
204: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
205: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
206: IEX_DEBUG_PUB.LogMessage ('**** End of Procedure =>'||
207: 'IEX_writeoff_objects_PUB.update_writeoff_objects ** ');
208: END IF;
209: EXCEPTION
210: WHEN FND_API.G_EXC_ERROR THEN
211: ROLLBACK TO UPDATE_WRITEOFF_OBJECTS_PUB;
334:
335: End delete_writeoff_objects;
336:
337:
338: End IEX_WRITEOFF_OBJECTS_PUB;
339: