[Home] [Help]
1: PACKAGE BODY FUN_OPEN_INTERFACE_PKG AS
2: /* $Header: funximpb.pls 120.32.12020000.3 2012/08/28 09:45:19 srampure ship $ */
3:
4: G_DEBUG VARCHAR2(5);
5:
99: x_return_status := FND_API.G_RET_STS_SUCCESS;
100:
101: --Print('Main Package ~~~'||'Deriving Initiator Id from Initiator Name ');
102: fun_trx_entry_util.log_debug(FND_LOG.LEVEL_PROCEDURE,
103: 'FUN_OPEN_INTERFACE_PKG.Derive_Batch_Attributes',
104: 'Main Package');
105: -- Derive Initiator Id from Initiator Name if Initiator Id is not populated
106:
107: IF (p_initiator_name is not null) THEN
332: x_return_status := FND_API.G_RET_STS_SUCCESS;
333:
334: Print('Main Package ~~~'||'Deriving Recipient Id from Recipient Name');
335: fun_trx_entry_util.log_debug(FND_LOG.LEVEL_PROCEDURE,
336: 'FUN_OPEN_INTERFACE_PKG.Derive_Transaction_Attributes',
337: 'Main Package');
338: -- Derive Recipient Id from Recipient Name if Recipient Id is not populated
339:
340: IF (p_recipient_name is not null) THEN
534: --removed default on p_generate_accounting as it is not used
535: Print('Main Package ~~~'||'Start of Import Program');
536:
537: fun_trx_entry_util.log_debug(FND_LOG.LEVEL_PROCEDURE,
538: 'FUN_OPEN_INTERFACE_PKG.Main',
539: 'Main Package');
540: -- Set the debug flag
541: G_DEBUG := p_debug;
542:
1217: l_user_id NUMBER;
1218:
1219: BEGIN
1220: --This procedure selects the batches for purging and calls the purge api.
1221: l_current_calling_sequence := 'FUN_OPEN_INTERFACE_PKG.import_data_purge';
1222: l_debug_info := 'Group id info..';
1223:
1224: l_total_batch_count := 0;
1225: -- xml encoding data fetch
1449: app_exception.raise_exception;
1450:
1451: END import_data_purge;
1452:
1453: END FUN_OPEN_INTERFACE_PKG;