2: /* $Header: RCVGCSTB.pls 120.5.12010000.2 2008/12/26 14:32:45 mpuranik ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'RCV_AccrualAcct_GRP';
5: --G_DEBUG CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
6: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7: G_LOG_HEAD CONSTANT VARCHAR2(40) := 'po.plsql.'||G_PKG_NAME;
8:
9: -- Start of comments
10: -- API name : Create_AccountingEvents
110:
111: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name || '.' || l_api_name;
112: l_module constant varchar2(60) := 'po.plsql.'||l_full_name;
113:
114: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
115: fnd_log.TEST(fnd_log.level_unexpected, l_module);
116: l_errorLog constant boolean := l_uLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
117: l_eventLog constant boolean := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
118: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
111: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name || '.' || l_api_name;
112: l_module constant varchar2(60) := 'po.plsql.'||l_full_name;
113:
114: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
115: fnd_log.TEST(fnd_log.level_unexpected, l_module);
116: l_errorLog constant boolean := l_uLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
117: l_eventLog constant boolean := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
118: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
119: l_sLog constant boolean := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
112: l_module constant varchar2(60) := 'po.plsql.'||l_full_name;
113:
114: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
115: fnd_log.TEST(fnd_log.level_unexpected, l_module);
116: l_errorLog constant boolean := l_uLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
117: l_eventLog constant boolean := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
118: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
119: l_sLog constant boolean := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
120:
113:
114: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
115: fnd_log.TEST(fnd_log.level_unexpected, l_module);
116: l_errorLog constant boolean := l_uLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
117: l_eventLog constant boolean := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
118: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
119: l_sLog constant boolean := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
120:
121:
114: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
115: fnd_log.TEST(fnd_log.level_unexpected, l_module);
116: l_errorLog constant boolean := l_uLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
117: l_eventLog constant boolean := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
118: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
119: l_sLog constant boolean := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
120:
121:
122: BEGIN
115: fnd_log.TEST(fnd_log.level_unexpected, l_module);
116: l_errorLog constant boolean := l_uLog and (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
117: l_eventLog constant boolean := l_errorLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
118: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
119: l_sLog constant boolean := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
120:
121:
122: BEGIN
123: l_return_status := fnd_api.g_ret_sts_success;
127:
128: l_stmt_num := 0;
129:
130: IF l_pLog THEN
131: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
132: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
133: ,'Create_AccountingEvents <<');
134: END IF;
135: END IF;
128: l_stmt_num := 0;
129:
130: IF l_pLog THEN
131: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
132: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
133: ,'Create_AccountingEvents <<');
134: END IF;
135: END IF;
136:
162: ' Resp_appl_ID : '||l_resp_appl_id;
163:
164:
165: IF l_sLog THEN
166: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
167: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
168: ,l_api_message);
169: END IF;
170: END IF;
163:
164:
165: IF l_sLog THEN
166: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
167: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
168: ,l_api_message);
169: END IF;
170: END IF;
171:
186:
187: IF l_sLog THEN
188: l_api_message := ' Txn Info: po_line_location_id => ' || p_po_line_location_id ||
189: ' rcv_transaction_id => ' || p_rcv_transaction_id;
190: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
191: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
192: ,'Inv Org is Process Org. Skipping Processing.');
193: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
194: ,l_api_message);
187: IF l_sLog THEN
188: l_api_message := ' Txn Info: po_line_location_id => ' || p_po_line_location_id ||
189: ' rcv_transaction_id => ' || p_rcv_transaction_id;
190: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
191: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
192: ,'Inv Org is Process Org. Skipping Processing.');
193: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
194: ,l_api_message);
195: END IF;
189: ' rcv_transaction_id => ' || p_rcv_transaction_id;
190: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
191: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
192: ,'Inv Org is Process Org. Skipping Processing.');
193: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
194: ,l_api_message);
195: END IF;
196: END IF;
197:
201: RETURN;
202:
203: ELSE
204: IF l_sLog THEN
205: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
206: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
207: ,'Inv Org is Discrete Org. Proceeding further...');
208: END IF;
209: END IF;
202:
203: ELSE
204: IF l_sLog THEN
205: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
206: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
207: ,'Inv Org is Discrete Org. Proceeding further...');
208: END IF;
209: END IF;
210:
215: IF l_user_id = -1 THEN
216: FND_MESSAGE.set_name('PO','INVALID_USER_ID');
217: FND_MSG_pub.add;
218: IF l_errorLog THEN
219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
220: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
221: END IF;
222: END IF;
223: RAISE FND_API.g_exc_error;
216: FND_MESSAGE.set_name('PO','INVALID_USER_ID');
217: FND_MSG_pub.add;
218: IF l_errorLog THEN
219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
220: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
221: END IF;
222: END IF;
223: RAISE FND_API.g_exc_error;
224: END IF;
225:
226: IF UPPER(p_source_type) = 'RECEIVING' THEN
227: l_stmt_num := 100;
228: IF l_eventLog THEN
229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EVENT) THEN
230: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
231: ,'Creating Receiving Event');
232: END IF;
233: END IF;
226: IF UPPER(p_source_type) = 'RECEIVING' THEN
227: l_stmt_num := 100;
228: IF l_eventLog THEN
229: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EVENT) THEN
230: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
231: ,'Creating Receiving Event');
232: END IF;
233: END IF;
234: IF l_sLog THEN
231: ,'Creating Receiving Event');
232: END IF;
233: END IF;
234: IF l_sLog THEN
235: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
236: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
237: ,'rcv_transaction_id : '||p_rcv_transaction_id);
238: END IF;
239: END IF;
232: END IF;
233: END IF;
234: IF l_sLog THEN
235: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
236: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
237: ,'rcv_transaction_id : '||p_rcv_transaction_id);
238: END IF;
239: END IF;
240:
248: IF l_rae_count <> 0 THEN
249: l_api_message := 'Invalid transaction. Accounting events have already been generated for transaction : '||
250: p_rcv_transaction_id;
251: IF l_uLog THEN
252: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
253: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
254: ,'Create_AccountingEvents : '||l_stmt_num||' : '||l_api_message);
255: END IF;
256: END IF;
249: l_api_message := 'Invalid transaction. Accounting events have already been generated for transaction : '||
250: p_rcv_transaction_id;
251: IF l_uLog THEN
252: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
253: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
254: ,'Create_AccountingEvents : '||l_stmt_num||' : '||l_api_message);
255: END IF;
256: END IF;
257: RAISE FND_API.g_exc_unexpected_error;
281: FND_MESSAGE.SET_NAME('BOM', 'CST_RETRO_PRC_IN_LCM_SHIP');
282: FND_MSG_PUB.ADD;
283:
284: IF l_errorLog THEN
285: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
286: FND_LOG.message(FND_LOG.LEVEL_ERROR,l_module,FALSE);
287: END IF;
288: END IF;
289: RAISE FND_API.g_exc_error;
282: FND_MSG_PUB.ADD;
283:
284: IF l_errorLog THEN
285: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
286: FND_LOG.message(FND_LOG.LEVEL_ERROR,l_module,FALSE);
287: END IF;
288: END IF;
289: RAISE FND_API.g_exc_error;
290:
291: END IF;
292:
293: l_stmt_num := 200;
294: IF l_eventLog THEN
295: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EVENT) THEN
296: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
297: ,'Creating Adjust Event');
298: END IF;
299: END IF;
292:
293: l_stmt_num := 200;
294: IF l_eventLog THEN
295: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EVENT) THEN
296: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
297: ,'Creating Adjust Event');
298: END IF;
299: END IF;
300: IF l_sLog THEN
297: ,'Creating Adjust Event');
298: END IF;
299: END IF;
300: IF l_sLog THEN
301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
303: ,'po_header_id : '||p_po_header_id||
304: ' po_release_id : '||p_po_release_id||
305: ' p_po_line_id : '||p_po_line_id||
298: END IF;
299: END IF;
300: IF l_sLog THEN
301: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
303: ,'po_header_id : '||p_po_header_id||
304: ' po_release_id : '||p_po_release_id||
305: ' p_po_line_id : '||p_po_line_id||
306: ' p_po_line_location_id : '||p_po_line_location_id||
324: ELSE
325: FND_MESSAGE.set_name('PO','INVALID_EVENT_SOURCE_TYPE');
326: FND_MSG_pub.add;
327: IF l_errorLog THEN
328: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
329: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
330: END IF;
331: END IF;
332: RAISE FND_API.g_exc_error;
325: FND_MESSAGE.set_name('PO','INVALID_EVENT_SOURCE_TYPE');
326: FND_MSG_pub.add;
327: IF l_errorLog THEN
328: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
329: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
330: END IF;
331: END IF;
332: RAISE FND_API.g_exc_error;
333: END IF;
334:
335: IF l_return_status <> FND_API.g_ret_sts_success THEN
336: l_api_message := 'Error creating event';
337: IF l_uLog THEN
338: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
339: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
340: ,'Create_AccountingEvents : '||l_stmt_num||' : '||l_api_message);
341: END IF;
342: END IF;
335: IF l_return_status <> FND_API.g_ret_sts_success THEN
336: l_api_message := 'Error creating event';
337: IF l_uLog THEN
338: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
339: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
340: ,'Create_AccountingEvents : '||l_stmt_num||' : '||l_api_message);
341: END IF;
342: END IF;
343: RAISE FND_API.g_exc_unexpected_error;
353: p_count => x_msg_count,
354: p_data => x_msg_data );
355:
356: IF l_pLog THEN
357: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
358: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
359: ,'Create_AccountingEvents >>');
360: END IF;
361: END IF;
354: p_data => x_msg_data );
355:
356: IF l_pLog THEN
357: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
358: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
359: ,'Create_AccountingEvents >>');
360: END IF;
361: END IF;
362:
382: ROLLBACK TO Create_AccountingEvents_GRP;
383: x_return_status := fnd_api.g_ret_sts_unexp_error ;
384:
385: IF l_uLog THEN
386: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
387: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
388: ,'Create_AccountingEvents : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
389: END IF;
390: END IF;
383: x_return_status := fnd_api.g_ret_sts_unexp_error ;
384:
385: IF l_uLog THEN
386: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
387: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
388: ,'Create_AccountingEvents : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
389: END IF;
390: END IF;
391:
518:
519: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name || '.' || l_api_name;
520: l_module constant varchar2(60) := 'po.plsql.'||l_full_name;
521:
522: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
523: fnd_log.TEST(fnd_log.level_unexpected, l_module);
524: l_eventLog constant boolean := l_uLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
525: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
526: l_sLog constant boolean := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
519: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name || '.' || l_api_name;
520: l_module constant varchar2(60) := 'po.plsql.'||l_full_name;
521:
522: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
523: fnd_log.TEST(fnd_log.level_unexpected, l_module);
524: l_eventLog constant boolean := l_uLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
525: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
526: l_sLog constant boolean := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
527: --BUG#6167988
520: l_module constant varchar2(60) := 'po.plsql.'||l_full_name;
521:
522: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
523: fnd_log.TEST(fnd_log.level_unexpected, l_module);
524: l_eventLog constant boolean := l_uLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
525: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
526: l_sLog constant boolean := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
527: --BUG#6167988
528: l_cnt NUMBER := 0;
521:
522: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
523: fnd_log.TEST(fnd_log.level_unexpected, l_module);
524: l_eventLog constant boolean := l_uLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
525: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
526: l_sLog constant boolean := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
527: --BUG#6167988
528: l_cnt NUMBER := 0;
529:
522: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
523: fnd_log.TEST(fnd_log.level_unexpected, l_module);
524: l_eventLog constant boolean := l_uLog and (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
525: l_pLog constant boolean := l_eventLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
526: l_sLog constant boolean := l_pLog and (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
527: --BUG#6167988
528: l_cnt NUMBER := 0;
529:
530: BEGIN
534:
535: l_stmt_num := 0;
536:
537: IF l_pLog THEN
538: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
539: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
540: ,'Create_InterCompanyEvents <<');
541: END IF;
542: END IF;
535: l_stmt_num := 0;
536:
537: IF l_pLog THEN
538: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
539: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
540: ,'Create_InterCompanyEvents <<');
541: END IF;
542: END IF;
543:
559: x_return_status := FND_API.G_RET_STS_SUCCESS;
560:
561: l_stmt_num := 10;
562: IF l_eventLog THEN
563: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EVENT) THEN
564: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
565: ,'Creating Intercompany Event');
566: END IF;
567: END IF;
560:
561: l_stmt_num := 10;
562: IF l_eventLog THEN
563: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EVENT) THEN
564: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
565: ,'Creating Intercompany Event');
566: END IF;
567: END IF;
568:
571: --BUG#6167988
572: l_cnt := p_invoice_dist_id_tbl.COUNT;
573:
574: IF l_eventLog THEN
575: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num,
576: 'DEBUG p_invoice_dist_id_tbl.COUNT: '||l_cnt);
577: END IF;
578:
579:
582: FOR l_counter IN p_invoice_dist_id_tbl.FIRST..p_invoice_dist_id_tbl.LAST LOOP
583: l_inv_dist_id := p_invoice_dist_id_tbl(l_counter);
584:
585: IF l_sLog THEN
586: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
587: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
588: ,'invoice_distribution_id : '|| l_inv_dist_id);
589: END IF;
590: END IF;
583: l_inv_dist_id := p_invoice_dist_id_tbl(l_counter);
584:
585: IF l_sLog THEN
586: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
587: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
588: ,'invoice_distribution_id : '|| l_inv_dist_id);
589: END IF;
590: END IF;
591:
598: p_invoice_distribution_id => l_inv_dist_id);
599: IF l_return_status <> FND_API.g_ret_sts_success THEN
600: l_api_message := 'Error creating IC event';
601: IF l_uLog THEN
602: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
603: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
604: ,'Create_InterCompanyEvents : '||l_stmt_num||' : '||l_api_message);
605: END IF;
606: END IF;
599: IF l_return_status <> FND_API.g_ret_sts_success THEN
600: l_api_message := 'Error creating IC event';
601: IF l_uLog THEN
602: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
603: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
604: ,'Create_InterCompanyEvents : '||l_stmt_num||' : '||l_api_message);
605: END IF;
606: END IF;
607: RAISE FND_API.g_exc_unexpected_error;
621: p_count => x_msg_count,
622: p_data => x_msg_data );
623:
624: IF l_pLog THEN
625: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
626: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
627: ,'Create_InterCompanyEvents >>');
628: END IF;
629: END IF;
622: p_data => x_msg_data );
623:
624: IF l_pLog THEN
625: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
626: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
627: ,'Create_InterCompanyEvents >>');
628: END IF;
629: END IF;
630:
650: ROLLBACK TO Create_InterCompanyEvents_GRP;
651: x_return_status := fnd_api.g_ret_sts_unexp_error ;
652:
653: IF l_uLog THEN
654: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
655: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
656: ,'Create_InterCompanyEvents : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
657: END IF;
658: END IF;
651: x_return_status := fnd_api.g_ret_sts_unexp_error ;
652:
653: IF l_uLog THEN
654: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
655: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
656: ,'Create_InterCompanyEvents : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
657: END IF;
658: END IF;
659:
748:
749: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name || '.' || l_api_name;
750: l_module constant varchar2(60) := 'po.plsql.'||l_full_name;
751:
752: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
753: fnd_log.TEST(fnd_log.level_unexpected, l_module);
754: l_pLog constant boolean := l_uLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
755:
756: BEGIN
749: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name || '.' || l_api_name;
750: l_module constant varchar2(60) := 'po.plsql.'||l_full_name;
751:
752: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
753: fnd_log.TEST(fnd_log.level_unexpected, l_module);
754: l_pLog constant boolean := l_uLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
755:
756: BEGIN
757: l_return_status := fnd_api.g_ret_sts_success;
750: l_module constant varchar2(60) := 'po.plsql.'||l_full_name;
751:
752: l_uLog CONSTANT BOOLEAN := fnd_log.level_unexpected >= g_log_level AND
753: fnd_log.TEST(fnd_log.level_unexpected, l_module);
754: l_pLog constant boolean := l_uLog and (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
755:
756: BEGIN
757: l_return_status := fnd_api.g_ret_sts_success;
758: -- Standard start of API savepoint
760:
761: l_stmt_num := 0;
762:
763: IF l_pLog THEN
764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
765: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
766: ,'Get_InvTransactionInfo <<');
767: END IF;
768: END IF;
761: l_stmt_num := 0;
762:
763: IF l_pLog THEN
764: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
765: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
766: ,'Get_InvTransactionInfo <<');
767: END IF;
768: END IF;
769:
813: p_count => x_msg_count,
814: p_data => x_msg_data );
815:
816: IF l_pLog THEN
817: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
818: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
819: ,'Get_InvTransactionInfo >>');
820: END IF;
821: END IF;
814: p_data => x_msg_data );
815:
816: IF l_pLog THEN
817: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
818: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
819: ,'Get_InvTransactionInfo >>');
820: END IF;
821: END IF;
822:
841: ROLLBACK TO Get_InvTransactionInfo_GRP;
842: x_return_status := fnd_api.g_ret_sts_unexp_error ;
843:
844: IF l_uLog THEN
845: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
846: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
847: ,'Get_InvTransactionInfo : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
848: END IF;
849: END IF;
842: x_return_status := fnd_api.g_ret_sts_unexp_error ;
843:
844: IF l_uLog THEN
845: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
846: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||'.'||l_stmt_num
847: ,'Get_InvTransactionInfo : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
848: END IF;
849: END IF;
850: