[Home] [Help]
137: SAVEPOINT Seed_RAEEvent_PVT;
138:
139: l_stmt_num := 0;
140:
141: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
142: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
143: ,'Seed_RAEEvent <<');
144: END IF;
145:
138:
139: l_stmt_num := 0;
140:
141: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
142: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
143: ,'Seed_RAEEvent <<');
144: END IF;
145:
146: -- Standard call to check for call compatibility
159:
160: -- Initialize API return status to success
161: x_return_status := FND_API.G_RET_STS_SUCCESS;
162:
163: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
164: l_api_message := 'Seed_RAEEvent : PARAMETERS 1:'||
165: ' p_event_source : '||p_event_source||
166: ' p_event_type_id : '||p_event_type_id||
167: ' p_rcv_transaction_id : '||p_rcv_transaction_id||
168: ' p_inv_distribution_id : '||p_inv_distribution_id||
169: ' p_po_distribution_id : '||p_po_distribution_id||
170: ' p_direct_delivery_flag : '||p_direct_delivery_flag||
171: ' p_cross_ou_flag : '||p_cross_ou_flag;
172: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
173: ,l_api_message);
174:
175: l_api_message := 'Seed_RAEEvent : PARAMETERS 2:'||
176: ' p_procurement_org_flag : '||p_procurement_org_flag||
183: ' p_trx_flow_header_id : '||p_trx_flow_header_id||
184: ' p_unit_price : '||p_unit_price||
185: ' p_prior_unit_price : '||p_prior_unit_price;
186:
187: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
188: ,l_api_message);
189:
190: END IF;
191:
203:
204: -- Initialize PO Information
205: IF (p_event_source = 'INVOICEMATCH') THEN
206: -- This source is only for period end accruals, one-time items
207: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
208: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
209: ,'Getting PO information from Invoice');
210: END IF;
211:
204: -- Initialize PO Information
205: IF (p_event_source = 'INVOICEMATCH') THEN
206: -- This source is only for period end accruals, one-time items
207: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
208: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
209: ,'Getting PO information from Invoice');
210: END IF;
211:
212: l_stmt_num := 20;
248: l_rcv_event.transaction_uom := l_rcv_event.source_doc_uom;
249: ELSE
250: l_stmt_num := 30;
251:
252: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
253: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
254: ,'Getting PO information from Receiving Transaction');
255: END IF;
256:
249: ELSE
250: l_stmt_num := 30;
251:
252: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
253: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
254: ,'Getting PO information from Receiving Transaction');
255: END IF;
256:
257:
339: l_oracle_schema);
340:
341: IF(l_status = 'I') THEN
342: l_stmt_num := 70;
343: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
345: ,'Checking if encumbrance is enabled.');
346: END IF;
347: RCV_SeedEvents_PVT.Check_EncumbranceFlag(
340:
341: IF(l_status = 'I') THEN
342: l_stmt_num := 70;
343: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
344: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
345: ,'Checking if encumbrance is enabled.');
346: END IF;
347: RCV_SeedEvents_PVT.Check_EncumbranceFlag(
348: p_api_version => 1.0,
353: x_encumbrance_flag => l_encumbrance_flag,
354: x_ussgl_option => l_ussgl_option);
355: IF l_return_status <> FND_API.g_ret_sts_success THEN
356: l_api_message := 'Error in checking for encumbrance flag ';
357: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
358: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
359: ,'SeedRAEEvents : '||l_stmt_num||' : '||l_api_message);
360: END IF;
361: RAISE FND_API.g_exc_unexpected_error;
354: x_ussgl_option => l_ussgl_option);
355: IF l_return_status <> FND_API.g_ret_sts_success THEN
356: l_api_message := 'Error in checking for encumbrance flag ';
357: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
358: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
359: ,'SeedRAEEvents : '||l_stmt_num||' : '||l_api_message);
360: END IF;
361: RAISE FND_API.g_exc_unexpected_error;
362: END IF;
381: l_rcv_event.prior_unit_price := p_prior_unit_price;
382: ELSIF l_rcv_event.service_flag = 'Y' THEN
383: l_stmt_num := 100;
384:
385: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
386: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
387: ,'Service line type : Getting Transaction Amount');
388: END IF;
389:
382: ELSIF l_rcv_event.service_flag = 'Y' THEN
383: l_stmt_num := 100;
384:
385: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
386: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
387: ,'Service line type : Getting Transaction Amount');
388: END IF;
389:
390: Get_TransactionAmount( p_api_version => l_api_version,
394: p_rcv_event => l_rcv_event,
395: x_transaction_amount => l_transaction_amount);
396: IF l_return_status <> FND_API.g_ret_sts_success THEN
397: l_api_message := 'Error getting transaction amount';
398: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
399: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
400: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
401: END IF;
402: RAISE FND_API.g_exc_unexpected_error;
395: x_transaction_amount => l_transaction_amount);
396: IF l_return_status <> FND_API.g_ret_sts_success THEN
397: l_api_message := 'Error getting transaction amount';
398: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
399: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
400: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
401: END IF;
402: RAISE FND_API.g_exc_unexpected_error;
403: END IF;
405: l_rcv_event.transaction_amount := l_transaction_amount;
406: ELSE
407: l_stmt_num := 110;
408:
409: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
410: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
411: ,'Non Service Line Type : Getting Unit Price');
412: END IF;
413:
406: ELSE
407: l_stmt_num := 110;
408:
409: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
410: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
411: ,'Non Service Line Type : Getting Unit Price');
412: END IF;
413:
414: IF (p_event_type_id NOT IN (RCV_SeedEvents_PVT.INTERCOMPANY_INVOICE,
436: x_incr_transfer_price => l_incr_transfer_price,
437: x_incr_currency_code => l_incr_currency_code);
438: IF l_return_status <> FND_API.g_ret_sts_success THEN
439: l_api_message := 'Error getting unit price';
440: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
441: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
442: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
443: END IF;
444: RAISE FND_API.g_exc_unexpected_error;
437: x_incr_currency_code => l_incr_currency_code);
438: IF l_return_status <> FND_API.g_ret_sts_success THEN
439: l_api_message := 'Error getting unit price';
440: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
441: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
442: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
443: END IF;
444: RAISE FND_API.g_exc_unexpected_error;
445: END IF;
456: -- Initialize Transaction Quantity
457: IF l_rcv_event.service_flag = 'N' THEN
458: l_stmt_num := 120;
459:
460: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
461: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
462: ,'Non Service line type : Getting Quantity');
463: END IF;
464:
457: IF l_rcv_event.service_flag = 'N' THEN
458: l_stmt_num := 120;
459:
460: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
461: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
462: ,'Non Service line type : Getting Quantity');
463: END IF;
464:
465: Get_Quantity( p_api_version => l_api_version,
470: x_source_doc_quantity => l_source_doc_quantity);
471:
472: IF l_return_status <> FND_API.g_ret_sts_success THEN
473: l_api_message := 'Error getting quantity';
474: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
475: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
476: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
477: END IF;
478: RAISE FND_API.g_exc_unexpected_error;
471:
472: IF l_return_status <> FND_API.g_ret_sts_success THEN
473: l_api_message := 'Error getting quantity';
474: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
475: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
476: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
477: END IF;
478: RAISE FND_API.g_exc_unexpected_error;
479: END IF;
483: -- If transaction quantity is 0, then no event should be seeded.
484: IF (l_source_doc_quantity = 0) THEN
485: x_return_status := 'W';
486:
487: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
488: l_api_message := 'Transaction Quantity is 0. Returning without seeding event.';
489: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
490: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
491: END IF;
485: x_return_status := 'W';
486:
487: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
488: l_api_message := 'Transaction Quantity is 0. Returning without seeding event.';
489: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
490: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
491: END IF;
492:
493: return;
497:
498:
499: l_stmt_num := 130;
500:
501: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
502: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
503: ,'Getting Tax');
504: END IF;
505: Get_UnitTax( p_api_version => l_api_version,
498:
499: l_stmt_num := 130;
500:
501: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
502: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
503: ,'Getting Tax');
504: END IF;
505: Get_UnitTax( p_api_version => l_api_version,
506: x_return_status => l_return_status,
512: x_prior_nr_tax => l_prior_nr_tax,
513: x_prior_rec_tax => l_prior_rec_tax);
514: IF l_return_status <> FND_API.g_ret_sts_success THEN
515: l_api_message := 'Error getting tax';
516: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
517: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
518: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
519: END IF;
520: RAISE FND_API.g_exc_unexpected_error;
513: x_prior_rec_tax => l_prior_rec_tax);
514: IF l_return_status <> FND_API.g_ret_sts_success THEN
515: l_api_message := 'Error getting tax';
516: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
517: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
518: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
519: END IF;
520: RAISE FND_API.g_exc_unexpected_error;
521: END IF;
528:
529: l_stmt_num := 140;
530:
531: IF l_rcv_event.service_flag = 'N' THEN
532: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
533: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
534: ,'Getting UOM');
535: END IF;
536: Convert_UOM( p_api_version => l_api_version,
529: l_stmt_num := 140;
530:
531: IF l_rcv_event.service_flag = 'N' THEN
532: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
533: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
534: ,'Getting UOM');
535: END IF;
536: Convert_UOM( p_api_version => l_api_version,
537: x_return_status => l_return_status,
543: x_primary_qty => l_primary_qty,
544: x_trx_uom_code => l_trx_uom_code);
545: IF l_return_status <> FND_API.g_ret_sts_success THEN
546: l_api_message := 'Error Converting UOM';
547: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
548: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
549: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
550: END IF;
551: RAISE FND_API.g_exc_unexpected_error;
544: x_trx_uom_code => l_trx_uom_code);
545: IF l_return_status <> FND_API.g_ret_sts_success THEN
546: l_api_message := 'Error Converting UOM';
547: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
548: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
549: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
550: END IF;
551: RAISE FND_API.g_exc_unexpected_error;
552: END IF;
561: -- Initialize Currency Information
562: l_stmt_num := 150;
563:
564:
565: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
566: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
567: ,'Getting Currency Information');
568: END IF;
569: Get_Currency( p_api_version => l_api_version,
562: l_stmt_num := 150;
563:
564:
565: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
566: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
567: ,'Getting Currency Information');
568: END IF;
569: Get_Currency( p_api_version => l_api_version,
570: x_return_status => l_return_status,
577: x_currency_conversion_type => l_currency_conversion_type);
578:
579: IF l_return_status <> FND_API.g_ret_sts_success THEN
580: l_api_message := 'Error Getting Currency';
581: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
582: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
583: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
584: END IF;
585: RAISE FND_API.g_exc_unexpected_error;
578:
579: IF l_return_status <> FND_API.g_ret_sts_success THEN
580: l_api_message := 'Error Getting Currency';
581: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
582: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
583: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
584: END IF;
585: RAISE FND_API.g_exc_unexpected_error;
586: END IF;
592:
593: -- Get Debit and Credit Accounts
594: l_stmt_num := 160;
595:
596: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
597: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
598: ,'Getting Debit and Credit Accounts');
599: END IF;
600:
593: -- Get Debit and Credit Accounts
594: l_stmt_num := 160;
595:
596: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
597: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
598: ,'Getting Debit and Credit Accounts');
599: END IF;
600:
601: Get_Accounts(p_api_version => l_api_version,
613: /* Support for Landed Cost Management */
614: x_lcm_acct_id => l_lcm_acct_id);
615: IF l_return_status <> FND_API.g_ret_sts_success THEN
616: l_api_message := 'Error getting account information';
617: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
618: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
619: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
620: END IF;
621: RAISE FND_API.g_exc_unexpected_error;
614: x_lcm_acct_id => l_lcm_acct_id);
615: IF l_return_status <> FND_API.g_ret_sts_success THEN
616: l_api_message := 'Error getting account information';
617: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
618: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
619: ,'Seed_RAEEvent : '||l_stmt_num||' : '||l_api_message);
620: END IF;
621: RAISE FND_API.g_exc_unexpected_error;
622: END IF;
639: FND_MSG_PUB.Count_And_Get (
640: p_count => x_msg_count,
641: p_data => x_msg_data );
642:
643: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
644: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
645: ,'Seed_RAEEvent >>');
646: END IF;
647:
640: p_count => x_msg_count,
641: p_data => x_msg_data );
642:
643: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
644: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
645: ,'Seed_RAEEvent >>');
646: END IF;
647:
648: EXCEPTION
665: WHEN OTHERS THEN
666: ROLLBACK TO Seed_RAEEvent_PVT;
667: x_return_status := fnd_api.g_ret_sts_unexp_error ;
668:
669: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
670: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
671: ,'Seed_RAEEvent '||l_stmt_num||' : '||substr(SQLERRM,1,200));
672: END IF;
673:
666: ROLLBACK TO Seed_RAEEvent_PVT;
667: x_return_status := fnd_api.g_ret_sts_unexp_error ;
668:
669: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
670: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
671: ,'Seed_RAEEvent '||l_stmt_num||' : '||substr(SQLERRM,1,200));
672: END IF;
673:
674: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
746: SAVEPOINT Get_TransactionAmount_PVT;
747:
748: l_stmt_num := 0;
749:
750: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
751: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
752: ,'Get_TransactionAmount <<');
753: END IF;
754:
747:
748: l_stmt_num := 0;
749:
750: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
751: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
752: ,'Get_TransactionAmount <<');
753: END IF;
754:
755: -- Standard call to check for call compatibility
798: WHERE APID.invoice_distribution_id = p_rcv_event.inv_distribution_id;
799:
800: END IF;
801:
802: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
803: l_api_message := 'Transaction Amount : '||l_transaction_amount;
804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
805: ,l_api_message);
806: END IF;
800: END IF;
801:
802: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
803: l_api_message := 'Transaction Amount : '||l_transaction_amount;
804: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
805: ,l_api_message);
806: END IF;
807:
808:
830: INTO l_po_amount_ordered, l_po_amount_delivered
831: FROM po_distributions POD
832: WHERE po_distribution_id = p_rcv_event.po_distribution_id;
833:
834: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
835: l_api_message := substr('l_rcv_txn_type : '||l_rcv_txn_type||
836: ' l_par_rcv_txn_type : '||l_par_rcv_txn_type||
837: ' l_po_amount_ordered : '||l_po_amount_ordered||
838: ' l_po_amount_delivered : '||l_po_amount_delivered, 1, 1000);
835: l_api_message := substr('l_rcv_txn_type : '||l_rcv_txn_type||
836: ' l_par_rcv_txn_type : '||l_par_rcv_txn_type||
837: ' l_po_amount_ordered : '||l_po_amount_ordered||
838: ' l_po_amount_delivered : '||l_po_amount_delivered, 1, 1000);
839: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
840: ,l_api_message);
841: END IF;
842:
843:
873: END IF;
874:
875: x_transaction_amount := l_transaction_amount;
876:
877: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
878: l_api_message := 'x_transaction_amount : '||x_transaction_amount;
879: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
880: ,l_api_message);
881: END IF;
875: x_transaction_amount := l_transaction_amount;
876:
877: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
878: l_api_message := 'x_transaction_amount : '||x_transaction_amount;
879: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
880: ,l_api_message);
881: END IF;
882:
883:
891: FND_MSG_PUB.Count_And_Get (
892: p_count => x_msg_count,
893: p_data => x_msg_data );
894:
895: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
896: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
897: ,'Get_TransactionAmount >>');
898: END IF;
899: EXCEPTION
892: p_count => x_msg_count,
893: p_data => x_msg_data );
894:
895: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
896: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
897: ,'Get_TransactionAmount >>');
898: END IF;
899: EXCEPTION
900: WHEN FND_API.g_exc_error THEN
915: WHEN OTHERS THEN
916: ROLLBACK TO Get_TransactionAmount_PVT;
917: x_return_status := fnd_api.g_ret_sts_unexp_error ;
918:
919: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
920: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
921: ,'Get_TransactionAmount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
922: END IF;
923:
916: ROLLBACK TO Get_TransactionAmount_PVT;
917: x_return_status := fnd_api.g_ret_sts_unexp_error ;
918:
919: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
920: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
921: ,'Get_TransactionAmount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
922: END IF;
923:
924: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1002: SAVEPOINT Get_Quantity_PVT;
1003:
1004: l_stmt_num := 0;
1005:
1006: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1007: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
1008: ,'Get_Quantity <<');
1009: END IF;
1010:
1003:
1004: l_stmt_num := 0;
1005:
1006: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1007: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
1008: ,'Get_Quantity <<');
1009: END IF;
1010:
1011:
1088: INTO l_po_quantity_ordered, l_po_quantity_delivered
1089: FROM po_distributions POD
1090: WHERE POD.po_distribution_id = p_rcv_event.po_distribution_id;
1091:
1092: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1093: l_api_message := SUBSTR('l_rcv_txn_type : '||l_rcv_txn_type||
1094: ' l_parent_txn_id : '||l_parent_txn_id||
1095: ' l_par_rcv_txn_type : '||l_par_rcv_txn_type||
1096: ' l_abs_rt_quantity : '||l_abs_rt_quantity||
1095: ' l_par_rcv_txn_type : '||l_par_rcv_txn_type||
1096: ' l_abs_rt_quantity : '||l_abs_rt_quantity||
1097: ' l_po_quantity_ordered : '||l_po_quantity_ordered||
1098: ' l_po_quantity_delivered : '||l_po_quantity_delivered,1,1000);
1099: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1100: ,l_api_message);
1101: END IF;
1102:
1103: /* Bug #3333610. Receiving updates quantity delivered prior to calling the events API.
1147: END IF;
1148:
1149: x_source_doc_quantity := l_source_doc_quantity;
1150:
1151: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1152: l_api_message := 'x_source_doc_quantity : '||x_source_doc_quantity;
1153: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1154: ,l_api_message);
1155: END IF;
1149: x_source_doc_quantity := l_source_doc_quantity;
1150:
1151: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1152: l_api_message := 'x_source_doc_quantity : '||x_source_doc_quantity;
1153: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1154: ,l_api_message);
1155: END IF;
1156:
1157:
1164: FND_MSG_PUB.Count_And_Get (
1165: p_count => x_msg_count,
1166: p_data => x_msg_data );
1167:
1168: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1169: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1170: ,'Get_Quantity >>');
1171: END IF;
1172: EXCEPTION
1165: p_count => x_msg_count,
1166: p_data => x_msg_data );
1167:
1168: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1169: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1170: ,'Get_Quantity >>');
1171: END IF;
1172: EXCEPTION
1173: WHEN FND_API.g_exc_error THEN
1188: WHEN OTHERS THEN
1189: ROLLBACK TO Get_Quantity_PVT;
1190: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1191:
1192: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1193: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1194: ,'Get_Quantity : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1195: END IF;
1196:
1189: ROLLBACK TO Get_Quantity_PVT;
1190: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1191:
1192: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1193: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1194: ,'Get_Quantity : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1195: END IF;
1196:
1197: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1290: SAVEPOINT Get_UnitPrice_PVT;
1291:
1292: l_stmt_num := 0;
1293:
1294: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1295: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
1296: ,'Get_UnitPrice <<');
1297: END IF;
1298:
1291:
1292: l_stmt_num := 0;
1293:
1294: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1295: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
1296: ,'Get_UnitPrice <<');
1297: END IF;
1298:
1299: -- Standard call to check for call compatibility
1349:
1350: IF(l_item_exists = 0) THEN
1351: FND_MESSAGE.set_name('PO','PO_INVALID_ITEM');
1352: FND_MSG_pub.add;
1353: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1354: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
1355: END IF;
1356: RAISE FND_API.g_exc_error;
1357: END IF;
1350: IF(l_item_exists = 0) THEN
1351: FND_MESSAGE.set_name('PO','PO_INVALID_ITEM');
1352: FND_MSG_pub.add;
1353: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1354: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
1355: END IF;
1356: RAISE FND_API.g_exc_error;
1357: END IF;
1358:
1370: EXCEPTION
1371: WHEN NO_DATA_FOUND THEN
1372: FND_MESSAGE.set_name('PO','PO_INVALID_ITEM');
1373: FND_MSG_pub.add;
1374: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1375: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
1376: END IF;
1377: RAISE FND_API.g_exc_error;
1378: END;
1371: WHEN NO_DATA_FOUND THEN
1372: FND_MESSAGE.set_name('PO','PO_INVALID_ITEM');
1373: FND_MSG_pub.add;
1374: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1375: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
1376: END IF;
1377: RAISE FND_API.g_exc_error;
1378: END;
1379:
1384: END IF;
1385:
1386: END IF;
1387:
1388: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1389: l_api_message := 'l_ic_pricing_option : '||l_ic_pricing_option;
1390: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1391: ,l_api_message);
1392: END IF;
1386: END IF;
1387:
1388: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1389: l_api_message := 'l_ic_pricing_option : '||l_ic_pricing_option;
1390: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1391: ,l_api_message);
1392: END IF;
1393:
1394: -- l_ic_pricing_option of 1 => PO Price.
1426: -- currency chosen by the user. The returned values will have to be stored
1427: -- in MMT and will be used by Intercompany to determine the Currency in which
1428: -- to create the intercompany invoices.
1429: l_stmt_num := 60;
1430: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1431: l_api_message := 'Calling get_transfer_price API : '||
1432: ' l_from_org_id : '||l_from_org_id||
1433: ' l_to_org_id : '||l_to_org_id||
1434: ' l_transaction_uom : '||l_transaction_uom||
1434: ' l_transaction_uom : '||l_transaction_uom||
1435: ' item_id : '||p_rcv_event.item_id||
1436: ' p_transaction_id : '|| p_rcv_event.rcv_transaction_id;
1437:
1438: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1439: ,l_api_message);
1440: END IF;
1441: INV_TRANSACTION_FLOW_PUB.get_transfer_price(
1442: p_api_version => 1.0,
1455: p_from_organization_id => l_from_organization_id,
1456: p_global_procurement_flag => 'Y',
1457: p_drop_ship_flag => 'N');
1458: IF l_return_status <> FND_API.g_ret_sts_success THEN
1459: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1460: l_api_message := 'Error getting transfer price';
1461: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1462: ,l_api_message);
1463: END IF;
1457: p_drop_ship_flag => 'N');
1458: IF l_return_status <> FND_API.g_ret_sts_success THEN
1459: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1460: l_api_message := 'Error getting transfer price';
1461: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1462: ,l_api_message);
1463: END IF;
1464: RAISE FND_API.g_exc_unexpected_error;
1465: END IF;
1463: END IF;
1464: RAISE FND_API.g_exc_unexpected_error;
1465: END IF;
1466:
1467: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1468: l_api_message := SUBSTR('l_transfer_price : ' || l_transfer_price||
1469: ' l_currency_code : '||l_currency_code||
1470: ' l_incr_transfer_price : '||l_incr_transfer_price||
1471: ' l_incr_currency_code : '||l_incr_currency_code,1000);
1468: l_api_message := SUBSTR('l_transfer_price : ' || l_transfer_price||
1469: ' l_currency_code : '||l_currency_code||
1470: ' l_incr_transfer_price : '||l_incr_transfer_price||
1471: ' l_incr_currency_code : '||l_incr_currency_code,1000);
1472: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1473: ,'Get_TransferPrice : '||l_stmt_num||' : '||l_api_message);
1474: END IF;
1475:
1476: l_unit_price := l_transfer_price;
1504: x_intercompany_pricing_option := l_ic_pricing_option;
1505: x_unit_price := l_unit_price;
1506: x_currency_code := l_currency_code;
1507:
1508: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1509: l_api_message := SUBSTR('x_ic_pricing_option : '||x_intercompany_pricing_option||
1510: ' x_unit_price : '||x_unit_price ||
1511: ' x_currency_code : '||x_currency_code||
1512: ' x_incr_currency_code : '||x_incr_currency_code||
1510: ' x_unit_price : '||x_unit_price ||
1511: ' x_currency_code : '||x_currency_code||
1512: ' x_incr_currency_code : '||x_incr_currency_code||
1513: ' x_incr_transfer_price : '||x_incr_transfer_price,1,1000);
1514: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1515: ,l_api_message);
1516: END IF;
1517:
1518:
1526: FND_MSG_PUB.Count_And_Get (
1527: p_count => x_msg_count,
1528: p_data => x_msg_data );
1529:
1530: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1531: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1532: ,'Get_UnitPrice >>');
1533: END IF;
1534: EXCEPTION
1527: p_count => x_msg_count,
1528: p_data => x_msg_data );
1529:
1530: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1531: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1532: ,'Get_UnitPrice >>');
1533: END IF;
1534: EXCEPTION
1535: WHEN FND_API.g_exc_error THEN
1550: WHEN OTHERS THEN
1551: ROLLBACK TO Get_UnitPrice_PVT;
1552: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1553:
1554: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1555: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1556: ,'Get_UnitPrice : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1557: END IF;
1558:
1551: ROLLBACK TO Get_UnitPrice_PVT;
1552: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1553:
1554: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1555: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1556: ,'Get_UnitPrice : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1557: END IF;
1558:
1559: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1647:
1648: l_stmt_num := 0;
1649: l_hook_used:= 0;
1650:
1651: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1652: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
1653: ,'Get_UnitTax <<');
1654: END IF;
1655:
1648: l_stmt_num := 0;
1649: l_hook_used:= 0;
1650:
1651: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1652: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
1653: ,'Get_UnitTax <<');
1654: END IF;
1655:
1656: -- Standard call to check for call compatibility
1697: x_old_non_recoverable_tax => l_old_non_recoverable_tax);
1698:
1699: IF l_return_status <> FND_API.g_ret_sts_success THEN
1700: l_api_message := 'Error getting Tax';
1701: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1702: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1703: ,'Get_UnitPrice : '||l_stmt_num||' : '||l_api_message);
1704: END IF;
1705: RAISE FND_API.g_exc_unexpected_error;
1698:
1699: IF l_return_status <> FND_API.g_ret_sts_success THEN
1700: l_api_message := 'Error getting Tax';
1701: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1702: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1703: ,'Get_UnitPrice : '||l_stmt_num||' : '||l_api_message);
1704: END IF;
1705: RAISE FND_API.g_exc_unexpected_error;
1706: END IF;
1704: END IF;
1705: RAISE FND_API.g_exc_unexpected_error;
1706: END IF;
1707:
1708: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1709: l_api_message := SUBSTR('l_recoverable_tax : '||l_recoverable_tax||
1710: ' l_non_recoverable_tax : '||l_non_recoverable_tax||
1711: ' l_old_recoverable_tax : '||l_old_recoverable_tax||
1712: ' l_old_non_recoverable_tax : '||l_old_non_recoverable_tax,1,1000);
1709: l_api_message := SUBSTR('l_recoverable_tax : '||l_recoverable_tax||
1710: ' l_non_recoverable_tax : '||l_non_recoverable_tax||
1711: ' l_old_recoverable_tax : '||l_old_recoverable_tax||
1712: ' l_old_non_recoverable_tax : '||l_old_non_recoverable_tax,1,1000);
1713: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1714: ,l_api_message);
1715: END IF;
1716:
1717: /* Bug 6405593 :Added hook call to override the recoverable and Non-Recoverable
1739:
1740: IF (l_err_num <> 0) THEN
1741: -- Error occured
1742: l_api_message := 'Error getting Enc Tax error_code : '||l_Err_Code||' Error Message : '||l_Err_Msg;
1743: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1744: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1745: ,'CST_Common_hooks.Get_NRtax_amount : '||l_stmt_num||' : '||l_api_message);
1746: END IF;
1747: RAISE FND_API.g_exc_unexpected_error;
1740: IF (l_err_num <> 0) THEN
1741: -- Error occured
1742: l_api_message := 'Error getting Enc Tax error_code : '||l_Err_Code||' Error Message : '||l_Err_Msg;
1743: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1744: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1745: ,'CST_Common_hooks.Get_NRtax_amount : '||l_stmt_num||' : '||l_api_message);
1746: END IF;
1747: RAISE FND_API.g_exc_unexpected_error;
1748: END IF;
1747: RAISE FND_API.g_exc_unexpected_error;
1748: END IF;
1749:
1750:
1751: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1752: l_api_message := SUBSTR('Hook Used CST_Commonlocalization_hooks.Get_NRtax_amount :'|| l_hook_used ||
1753: ' l_loc_recoverable_tax : '||l_loc_recoverable_tax||
1754: ' l_loc_non_recoverable_tax : '||l_loc_non_recoverable_tax,1,1000);
1755: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1751: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1752: l_api_message := SUBSTR('Hook Used CST_Commonlocalization_hooks.Get_NRtax_amount :'|| l_hook_used ||
1753: ' l_loc_recoverable_tax : '||l_loc_recoverable_tax||
1754: ' l_loc_non_recoverable_tax : '||l_loc_non_recoverable_tax,1,1000);
1755: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1756: ,l_api_message);
1757: END IF;
1758:
1759: l_non_recoverable_tax:=nvl(l_non_recoverable_tax,0)+nvl(l_loc_non_recoverable_tax,0);
1797: x_unit_rec_tax := NVL(l_unit_rec_tax,0);
1798: x_prior_nr_tax := NVL(l_prior_nr_tax,0);
1799: x_prior_rec_tax := NVL(l_prior_rec_tax,0);
1800:
1801: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1802: l_api_message := SUBSTR('x_unit_nr_tax : '||x_unit_nr_tax||
1803: ' x_unit_rec_tax : '||x_unit_rec_tax||
1804: ' x_prior_nr_tax : '||x_prior_nr_tax||
1805: ' x_prior_rec_tax : '||x_prior_rec_tax,1,1000);
1802: l_api_message := SUBSTR('x_unit_nr_tax : '||x_unit_nr_tax||
1803: ' x_unit_rec_tax : '||x_unit_rec_tax||
1804: ' x_prior_nr_tax : '||x_prior_nr_tax||
1805: ' x_prior_rec_tax : '||x_prior_rec_tax,1,1000);
1806: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1807: ,l_api_message);
1808: END IF;
1809:
1810:
1817: FND_MSG_PUB.Count_And_Get (
1818: p_count => x_msg_count,
1819: p_data => x_msg_data );
1820:
1821: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1822: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1823: ,'Get_UnitTax >>');
1824: END IF;
1825:
1818: p_count => x_msg_count,
1819: p_data => x_msg_data );
1820:
1821: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1822: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1823: ,'Get_UnitTax >>');
1824: END IF;
1825:
1826:
1843: WHEN OTHERS THEN
1844: ROLLBACK TO Get_UnitTax_PVT;
1845: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1846:
1847: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1848: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1849: ,'Get_UnitTax : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1850: END IF;
1851:
1844: ROLLBACK TO Get_UnitTax_PVT;
1845: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1846:
1847: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1848: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1849: ,'Get_UnitTax : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1850: END IF;
1851:
1852: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1935: if FND_API.to_Boolean(P_INIT_MSG_LIST) then
1936: FND_MSG_PUB.initialize;
1937: end if;
1938:
1939: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1940: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.begin'
1941: ,'Convert_UOM <<');
1942: END IF;
1943:
1936: FND_MSG_PUB.initialize;
1937: end if;
1938:
1939: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1940: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.begin'
1941: ,'Convert_UOM <<');
1942: END IF;
1943:
1944: -- Standard check for compatibility
2013:
2014: IF (l_primary_uom_rate = -99999) THEN
2015: RAISE FND_API.G_EXC_ERROR;
2016: l_api_message := 'inv_convert.inv_um_conversion() failed to get the UOM rate';
2017: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2018: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2019: l_api_message);
2020: END IF;
2021: END IF;
2014: IF (l_primary_uom_rate = -99999) THEN
2015: RAISE FND_API.G_EXC_ERROR;
2016: l_api_message := 'inv_convert.inv_um_conversion() failed to get the UOM rate';
2017: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2018: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2019: l_api_message);
2020: END IF;
2021: END IF;
2022:
2030:
2031: IF (l_trx_uom_rate = -99999) THEN
2032: RAISE FND_API.G_EXC_ERROR;
2033: l_api_message := 'inv_convert.inv_um_conversion() failed to get the UOM rate';
2034: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2035: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2036: l_api_message);
2037: END IF;
2038: END IF;
2031: IF (l_trx_uom_rate = -99999) THEN
2032: RAISE FND_API.G_EXC_ERROR;
2033: l_api_message := 'inv_convert.inv_um_conversion() failed to get the UOM rate';
2034: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2035: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2036: l_api_message);
2037: END IF;
2038: END IF;
2039:
2043: x_primary_qty := l_primary_uom_rate * p_event_rec.source_doc_quantity; /*BUG 6838756 Removed rounding*/
2044: x_transaction_qty := l_trx_uom_rate * p_event_rec.source_doc_quantity; /*BUG 6838756 Removed rounding*/
2045: x_trx_uom_code := l_trx_uom_code;
2046:
2047: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2048: l_api_message := 'x_primary_uom : '||x_primary_uom||
2049: ' x_primary_qty : '||x_primary_qty||
2050: ' x_transaction_qty : '||x_transaction_qty||
2051: ' x_trx_uom_code : '||x_trx_uom_code;
2048: l_api_message := 'x_primary_uom : '||x_primary_uom||
2049: ' x_primary_qty : '||x_primary_qty||
2050: ' x_transaction_qty : '||x_transaction_qty||
2051: ' x_trx_uom_code : '||x_trx_uom_code;
2052: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2053: ,l_api_message);
2054: END IF;
2055:
2056: -- End of API body
2059: IF FND_API.to_Boolean(P_COMMIT) THEN
2060: COMMIT WORK;
2061: END IF;
2062:
2063: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2064: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.end'
2065: ,'Convert_UOM >>');
2066: END IF;
2067:
2060: COMMIT WORK;
2061: END IF;
2062:
2063: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2064: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.end'
2065: ,'Convert_UOM >>');
2066: END IF;
2067:
2068: EXCEPTION
2085: WHEN NO_DATA_FOUND then
2086: ROLLBACK TO Convert_UOM_PVT;
2087: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
2088: l_api_message := ': Statement # '||to_char(l_stmt_num)||' - No UOM found.';
2089: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2090: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2091: l_api_message);
2092: END IF;
2093: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
2086: ROLLBACK TO Convert_UOM_PVT;
2087: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
2088: l_api_message := ': Statement # '||to_char(l_stmt_num)||' - No UOM found.';
2089: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2090: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2091: l_api_message);
2092: END IF;
2093: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
2094: THEN
2105: WHEN OTHERS then
2106: ROLLBACK TO Convert_UOM_PVT;
2107: x_return_status := FND_API.g_ret_sts_unexp_error ;
2108: l_api_message := 'Unexpected Error at statement('||to_char(l_stmt_num)||'): '||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
2109: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2110: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2111: l_api_message);
2112: END IF;
2113: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2106: ROLLBACK TO Convert_UOM_PVT;
2107: x_return_status := FND_API.g_ret_sts_unexp_error ;
2108: l_api_message := 'Unexpected Error at statement('||to_char(l_stmt_num)||'): '||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
2109: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2110: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2111: l_api_message);
2112: END IF;
2113: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2114: FND_MSG_PUB.add_exc_msg
2300: x_currency_conversion_rate := l_currency_conversion_rate;
2301: x_currency_conversion_date := NVL(l_currency_conversion_date,sysdate);
2302: x_currency_conversion_type := l_currency_conversion_type;
2303:
2304: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2305: l_api_message := SUBSTR('x_currency_code : '||x_currency_code||
2306: ' x_currency_conversion_rate : '||TO_CHAR(x_currency_conversion_rate)||
2307: ' x_currency_conversion_date : '||TO_CHAR(x_currency_conversion_date,'DD-MON-YY')||
2308: ' x_currency_conversion_type : '||x_currency_conversion_type,1,1000);
2305: l_api_message := SUBSTR('x_currency_code : '||x_currency_code||
2306: ' x_currency_conversion_rate : '||TO_CHAR(x_currency_conversion_rate)||
2307: ' x_currency_conversion_date : '||TO_CHAR(x_currency_conversion_date,'DD-MON-YY')||
2308: ' x_currency_conversion_type : '||x_currency_conversion_type,1,1000);
2309: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2310: ,l_api_message);
2311: END IF;
2312:
2313:
2345: WHEN NO_DATA_FOUND then
2346: ROLLBACK TO GET_CURRENCY_PVT;
2347: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
2348: l_api_message := 'Unexpected Error: '||l_stmt_num||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,200);
2349: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2350: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2351: l_api_message);
2352: END IF;
2353:
2346: ROLLBACK TO GET_CURRENCY_PVT;
2347: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
2348: l_api_message := 'Unexpected Error: '||l_stmt_num||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,200);
2349: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2350: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2351: l_api_message);
2352: END IF;
2353:
2354: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2366: WHEN OTHERS then
2367: ROLLBACK TO GET_CURRENCY_PVT;
2368: x_return_status := FND_API.g_ret_sts_unexp_error ;
2369: l_api_message := 'Unexpected Error: '||l_stmt_num||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,200);
2370: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2371: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2372: l_api_message);
2373: END IF;
2374:
2367: ROLLBACK TO GET_CURRENCY_PVT;
2368: x_return_status := FND_API.g_ret_sts_unexp_error ;
2369: l_api_message := 'Unexpected Error: '||l_stmt_num||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,200);
2370: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2371: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2372: l_api_message);
2373: END IF;
2374:
2375: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2475: SAVEPOINT Get_Accounts_PVT;
2476:
2477: l_stmt_num := 0;
2478:
2479: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2480: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
2481: ,'Get_Accounts <<');
2482:
2483: END IF;
2476:
2477: l_stmt_num := 0;
2478:
2479: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2480: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
2481: ,'Get_Accounts <<');
2482:
2483: END IF;
2484:
2627: x_distribution_acct_id => l_dist_acct_id);
2628:
2629: IF l_return_status <> FND_API.g_ret_sts_success THEN
2630: l_api_message := 'Error in Get_HookAccount';
2631: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2632: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2633: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2634: END IF;
2635: RAISE FND_API.g_exc_unexpected_error;
2628:
2629: IF l_return_status <> FND_API.g_ret_sts_success THEN
2630: l_api_message := 'Error in Get_HookAccount';
2631: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2632: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2633: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2634: END IF;
2635: RAISE FND_API.g_exc_unexpected_error;
2636: END IF;
2697: x_distribution_acct_id => l_dist_acct_id);
2698:
2699: IF l_return_status <> FND_API.g_ret_sts_success THEN
2700: l_api_message := 'Error in Get_HookAccount';
2701: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2702: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2703: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2704: END IF;
2705: RAISE FND_API.g_exc_unexpected_error;
2698:
2699: IF l_return_status <> FND_API.g_ret_sts_success THEN
2700: l_api_message := 'Error in Get_HookAccount';
2701: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2702: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2703: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2704: END IF;
2705: RAISE FND_API.g_exc_unexpected_error;
2706: END IF;
2752: x_distribution_acct_id => l_dist_acct_id);
2753:
2754: IF l_return_status <> FND_API.g_ret_sts_success THEN
2755: l_api_message := 'Error in Get_HookAccount';
2756: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2757: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2758: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2759: END IF;
2760: RAISE FND_API.g_exc_unexpected_error;
2753:
2754: IF l_return_status <> FND_API.g_ret_sts_success THEN
2755: l_api_message := 'Error in Get_HookAccount';
2756: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2757: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2758: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2759: END IF;
2760: RAISE FND_API.g_exc_unexpected_error;
2761: END IF;
2798: x_distribution_acct_id => l_dist_acct_id);
2799:
2800: IF l_return_status <> FND_API.g_ret_sts_success THEN
2801: l_api_message := 'Error in Get_HookAccount';
2802: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2803: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2804: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2805: END IF;
2806: RAISE FND_API.g_exc_unexpected_error;
2799:
2800: IF l_return_status <> FND_API.g_ret_sts_success THEN
2801: l_api_message := 'Error in Get_HookAccount';
2802: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2803: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2804: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2805: END IF;
2806: RAISE FND_API.g_exc_unexpected_error;
2807: END IF;
2861: x_ic_cogs_acct_id := p_transaction_forward_flow_rec.intercompany_cogs_account_id;
2862: /* Support for Landed Cost Management */
2863: x_lcm_acct_id := l_lcm_acct_id;
2864:
2865: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2866: l_api_message := 'x_debit_acct_id : '||x_debit_acct_id||
2867: ' x_credit_acct_id : '||x_credit_acct_id||
2868: ' x_ic_cogs_acct_id : ' || x_ic_cogs_acct_id;
2869: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2865: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2866: l_api_message := 'x_debit_acct_id : '||x_debit_acct_id||
2867: ' x_credit_acct_id : '||x_credit_acct_id||
2868: ' x_ic_cogs_acct_id : ' || x_ic_cogs_acct_id;
2869: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2870: ,l_api_message);
2871: END IF;
2872:
2873: IF ((l_debit_acct_id IS NULL OR l_credit_acct_id IS NULL) AND
2873: IF ((l_debit_acct_id IS NULL OR l_credit_acct_id IS NULL) AND
2874: (p_rcv_event.event_type_id NOT IN (RCV_SeedEvents_PVT.INTERCOMPANY_INVOICE,
2875: RCV_SeedEvents_PVT.INTERCOMPANY_REVERSAL,
2876: RCV_SeedEvents_PVT.ENCUMBRANCE_REVERSAL))) THEN
2877: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2878: l_api_message := 'Unable to find credit and/or debit account. Setup is incomplete. ';
2879: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2880: ,l_api_message);
2881: END IF;
2875: RCV_SeedEvents_PVT.INTERCOMPANY_REVERSAL,
2876: RCV_SeedEvents_PVT.ENCUMBRANCE_REVERSAL))) THEN
2877: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2878: l_api_message := 'Unable to find credit and/or debit account. Setup is incomplete. ';
2879: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2880: ,l_api_message);
2881: END IF;
2882:
2883: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
2881: END IF;
2882:
2883: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
2884: FND_MSG_pub.add;
2885: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2886: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
2887: END IF;
2888: RAISE FND_API.g_exc_error;
2889: END IF;
2882:
2883: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
2884: FND_MSG_pub.add;
2885: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2886: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
2887: END IF;
2888: RAISE FND_API.g_exc_error;
2889: END IF;
2890:
2898: FND_MSG_PUB.Count_And_Get (
2899: p_count => x_msg_count,
2900: p_data => x_msg_data );
2901:
2902: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2903: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
2904: ,'Get_Accounts >>');
2905: END IF;
2906:
2899: p_count => x_msg_count,
2900: p_data => x_msg_data );
2901:
2902: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2903: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
2904: ,'Get_Accounts >>');
2905: END IF;
2906:
2907:
2924: WHEN OTHERS THEN
2925: ROLLBACK TO Get_Accounts_PVT;
2926: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2927:
2928: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2929: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2930: ,'Get_Accounts : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
2931: END IF;
2932:
2925: ROLLBACK TO Get_Accounts_PVT;
2926: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2927:
2928: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2929: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2930: ,'Get_Accounts : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
2931: END IF;
2932:
2933: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3005: SAVEPOINT Get_HookAccount_PVT;
3006:
3007: l_stmt_num := 0;
3008:
3009: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3010: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3011: ,'Get_HookAccount <<');
3012:
3013: END IF;
3006:
3007: l_stmt_num := 0;
3008:
3009: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3010: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3011: ,'Get_HookAccount <<');
3012:
3013: END IF;
3014:
3041: x_distribution_acct_id => l_dist_acct_id);
3042:
3043: IF l_return_status <> FND_API.g_ret_sts_success THEN
3044: l_api_message := 'Error in Account Hook';
3045: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3046: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3047: ,'Get_HookAccount : '||l_stmt_num||' : '||l_api_message);
3048: END IF;
3049: RAISE FND_API.g_exc_unexpected_error;
3042:
3043: IF l_return_status <> FND_API.g_ret_sts_success THEN
3044: l_api_message := 'Error in Account Hook';
3045: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3046: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3047: ,'Get_HookAccount : '||l_stmt_num||' : '||l_api_message);
3048: END IF;
3049: RAISE FND_API.g_exc_unexpected_error;
3050: END IF;
3062:
3063: IF(l_account_flag = 0)THEN
3064: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
3065: FND_MSG_pub.add;
3066: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3067: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
3068: END IF;
3069: RAISE FND_API.g_exc_error;
3070: END IF;
3063: IF(l_account_flag = 0)THEN
3064: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
3065: FND_MSG_pub.add;
3066: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3067: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
3068: END IF;
3069: RAISE FND_API.g_exc_error;
3070: END IF;
3071: END IF;
3071: END IF;
3072:
3073: x_distribution_acct_id := l_dist_acct_id;
3074:
3075: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3076: l_api_message := 'x_distribution_acct_id : '||x_distribution_acct_id;
3077: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3078: ,l_api_message);
3079: END IF;
3073: x_distribution_acct_id := l_dist_acct_id;
3074:
3075: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3076: l_api_message := 'x_distribution_acct_id : '||x_distribution_acct_id;
3077: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3078: ,l_api_message);
3079: END IF;
3080:
3081: -- Standard check of p_commit
3087: FND_MSG_PUB.Count_And_Get (
3088: p_count => x_msg_count,
3089: p_data => x_msg_data );
3090:
3091: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3092: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3093: ,'Get_HookAccount >>');
3094: END IF;
3095:
3088: p_count => x_msg_count,
3089: p_data => x_msg_data );
3090:
3091: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3092: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3093: ,'Get_HookAccount >>');
3094: END IF;
3095:
3096:
3113: WHEN OTHERS THEN
3114: ROLLBACK TO Get_HookAccount_PVT;
3115: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3116:
3117: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3118: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3119: ,'Get_HookAccount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3120: END IF;
3121:
3114: ROLLBACK TO Get_HookAccount_PVT;
3115: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3116:
3117: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3118: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3119: ,'Get_HookAccount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3120: END IF;
3121:
3122: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3204: SAVEPOINT Insert_RAEEvents_PVT;
3205:
3206: l_stmt_num := 0;
3207:
3208: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3209: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3210: ,'Insert_RAEEvents <<');
3211:
3212: END IF;
3205:
3206: l_stmt_num := 0;
3207:
3208: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3209: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3210: ,'Insert_RAEEvents <<');
3211:
3212: END IF;
3213:
3227:
3228: -- Initialize API return status to success
3229: x_return_status := FND_API.G_RET_STS_SUCCESS;
3230:
3231: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3232: l_api_message := 'Inserting '||p_rcv_events_tbl.count||' events into RAE';
3233: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3234: ,l_api_message);
3235: END IF;
3229: x_return_status := FND_API.G_RET_STS_SUCCESS;
3230:
3231: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3232: l_api_message := 'Inserting '||p_rcv_events_tbl.count||' events into RAE';
3233: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3234: ,l_api_message);
3235: END IF;
3236:
3237: l_ctr_first := p_rcv_events_tbl.FIRST;
3249: SELECT rcv_accounting_event_s.nextval
3250: INTO l_accounting_event_id
3251: FROM dual;
3252:
3253: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3254: l_api_message := SUBSTR('i : '||i||
3255: 'accounting_event_id : '||l_accounting_event_id||
3256: 'rcv_transaction_id : '||p_rcv_events_tbl(i).rcv_transaction_id||
3257: 'po_line_id : '||p_rcv_events_tbl(i).po_line_id||
3259: 'unit_price : '||p_rcv_events_tbl(i).unit_price||
3260: 'currency : '||p_rcv_events_tbl(i).currency_code||
3261: 'nr tax : '||p_rcv_events_tbl(i).unit_nr_tax||
3262: 'rec tax : '||p_rcv_events_tbl(i).unit_rec_tax,1,1000);
3263: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3264: ,l_api_message);
3265: END IF;
3266:
3267: -- We are not doing a bulk insert due to a database limitation. On databases
3406: /* Support for Landed Cost Management */
3407: p_rcv_events_tbl(i).unit_landed_cost
3408: FROM DUAL);
3409:
3410: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3411: l_api_message := 'Inserted '||SQL%ROWCOUNT||
3412: 'rows in RAE for org '||p_rcv_events_tbl(i).org_id;
3413: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3414: ,l_api_message);
3409:
3410: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3411: l_api_message := 'Inserted '||SQL%ROWCOUNT||
3412: 'rows in RAE for org '||p_rcv_events_tbl(i).org_id;
3413: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3414: ,l_api_message);
3415: END IF;
3416:
3417: /* For accrue on receipt POs, call the Create_Accounting API to generate accounting entries
3423: p_rcv_events_tbl(i).procurement_org_flag = 'N') AND
3424: p_rcv_events_tbl(i).event_type_id NOT IN
3425: (RCV_SeedEvents_PVT.INTERCOMPANY_INVOICE,RCV_SeedEvents_PVT.INTERCOMPANY_REVERSAL)) THEN
3426: l_stmt_num := 50;
3427: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3428: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3429: ,'Creating accounting entries in RRS');
3430: END IF;
3431:
3424: p_rcv_events_tbl(i).event_type_id NOT IN
3425: (RCV_SeedEvents_PVT.INTERCOMPANY_INVOICE,RCV_SeedEvents_PVT.INTERCOMPANY_REVERSAL)) THEN
3426: l_stmt_num := 50;
3427: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3428: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3429: ,'Creating accounting entries in RRS');
3430: END IF;
3431:
3432: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3428: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3429: ,'Creating accounting entries in RRS');
3430: END IF;
3431:
3432: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3433: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3434: ,'Creating accounting entries for accounting_event_id : '||l_accounting_event_id);
3435: END IF;
3436:
3429: ,'Creating accounting entries in RRS');
3430: END IF;
3431:
3432: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3433: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3434: ,'Creating accounting entries for accounting_event_id : '||l_accounting_event_id);
3435: END IF;
3436:
3437: -- Call Account generation API to create accounting entries
3444: /* Support for Landed Cost Management */
3445: p_lcm_flag => p_lcm_flag);
3446: IF l_return_status <> FND_API.g_ret_sts_success THEN
3447: l_api_message := 'Error in Create_AccountingEntry API';
3448: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3449: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3450: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3451: END IF;
3452: RAISE FND_API.g_exc_unexpected_error;
3445: p_lcm_flag => p_lcm_flag);
3446: IF l_return_status <> FND_API.g_ret_sts_success THEN
3447: l_api_message := 'Error in Create_AccountingEntry API';
3448: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3449: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3450: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3451: END IF;
3452: RAISE FND_API.g_exc_unexpected_error;
3453: END IF;
3454:
3455: -- Call PA API to update pa_addition_flag - bug 5074573 (fp of 4409125)
3456: l_stmt_num := 55;
3457:
3458: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3459: l_api_message := 'Calling PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg with '
3460: || 'p_api_version = '|| '1.0'
3461: || 'p_rcv_transaction_id = ' || p_rcv_events_tbl(i).rcv_transaction_id
3462: || 'p_po_distribution_id = ' || p_rcv_events_tbl(i).po_distribution_id
3460: || 'p_api_version = '|| '1.0'
3461: || 'p_rcv_transaction_id = ' || p_rcv_events_tbl(i).rcv_transaction_id
3462: || 'p_po_distribution_id = ' || p_rcv_events_tbl(i).po_distribution_id
3463: || 'p_accounting_event_id = ' || l_accounting_event_id;
3464: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3465: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3466: END IF;
3467:
3468: PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg (
3473: p_rcv_transaction_id => p_rcv_events_tbl(i).rcv_transaction_id,
3474: p_po_distribution_id => p_rcv_events_tbl(i).po_distribution_id,
3475: p_accounting_event_id => l_accounting_event_id);
3476:
3477: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3478: l_api_message := 'PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg returned with '
3479: || 'x_return_status = '|| l_return_status
3480: || 'x_msg_count = ' || l_msg_count
3481: || 'x_msg_data = ' || l_msg_data;
3478: l_api_message := 'PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg returned with '
3479: || 'x_return_status = '|| l_return_status
3480: || 'x_msg_count = ' || l_msg_count
3481: || 'x_msg_data = ' || l_msg_data;
3482: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3483: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3484: END IF;
3485:
3486: IF l_return_status <> FND_API.g_ret_sts_success THEN
3484: END IF;
3485:
3486: IF l_return_status <> FND_API.g_ret_sts_success THEN
3487: l_api_message := 'Error in PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg API';
3488: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3489: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3490: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3491: END IF;
3492: RAISE FND_API.g_exc_unexpected_error;
3485:
3486: IF l_return_status <> FND_API.g_ret_sts_success THEN
3487: l_api_message := 'Error in PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg API';
3488: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3489: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3490: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3491: END IF;
3492: RAISE FND_API.g_exc_unexpected_error;
3493: END IF;
3506: FND_MSG_PUB.Count_And_Get (
3507: p_count => x_msg_count,
3508: p_data => x_msg_data );
3509:
3510: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3511: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3512: ,'Insert_RAEEvents >>');
3513: END IF;
3514:
3507: p_count => x_msg_count,
3508: p_data => x_msg_data );
3509:
3510: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3511: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3512: ,'Insert_RAEEvents >>');
3513: END IF;
3514:
3515:
3533: WHEN OTHERS THEN
3534: ROLLBACK TO Insert_RAEEvents_PVT;
3535: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3536:
3537: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3538: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3539: ,'Insert_RAEEvents : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3540: END IF;
3541:
3534: ROLLBACK TO Insert_RAEEvents_PVT;
3535: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3536:
3537: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3538: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3539: ,'Insert_RAEEvents : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3540: END IF;
3541:
3542: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3615: SAVEPOINT Check_EncumbranceFlag_PVT;
3616:
3617: l_stmt_num := 0;
3618:
3619: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3620: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3621: ,'Check_EncumbranceFlag <<');
3622: END IF;
3623:
3616:
3617: l_stmt_num := 0;
3618:
3619: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3620: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3621: ,'Check_EncumbranceFlag <<');
3622: END IF;
3623:
3624: -- Standard call to check for call compatibility
3647: x_encumbrance_flag := l_encumbrance_flag;
3648: x_ussgl_option := NVL(FND_PROFILE.VALUE('USSGL_OPTION'),'N');
3649:
3650:
3651: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3652: l_api_message := 'Encumbrance Flag : '||x_encumbrance_flag||
3653: ' Ussgl Option : '||x_ussgl_option;
3654: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3655: ,l_api_message);
3650:
3651: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3652: l_api_message := 'Encumbrance Flag : '||x_encumbrance_flag||
3653: ' Ussgl Option : '||x_ussgl_option;
3654: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3655: ,l_api_message);
3656: END IF;
3657:
3658:
3665: FND_MSG_PUB.Count_And_Get (
3666: p_count => x_msg_count,
3667: p_data => x_msg_data );
3668:
3669: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3670: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3671: ,'Check_EncumbranceFlag >>');
3672: END IF;
3673:
3666: p_count => x_msg_count,
3667: p_data => x_msg_data );
3668:
3669: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3670: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3671: ,'Check_EncumbranceFlag >>');
3672: END IF;
3673:
3674:
3691: WHEN OTHERS THEN
3692: ROLLBACK TO Check_EncumbranceFlag_PVT;
3693: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3694:
3695: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3696: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3697: ,'Check_EncumbranceFlag : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3698: END IF;
3699:
3692: ROLLBACK TO Check_EncumbranceFlag_PVT;
3693: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3694:
3695: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3696: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3697: ,'Check_EncumbranceFlag : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3698: END IF;
3699:
3700: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3774: SAVEPOINT Insert_MMTEvents_PVT;
3775:
3776: l_stmt_num := 0;
3777:
3778: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3779: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.begin'
3780: ,'Insert_MMTEvents <<');
3781: END IF;
3782:
3775:
3776: l_stmt_num := 0;
3777:
3778: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3779: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.begin'
3780: ,'Insert_MMTEvents <<');
3781: END IF;
3782:
3783: -- Standard call to check for call compatibility
4070:
4071: l_ctr := p_rcv_events_tbl.NEXT(l_ctr);
4072: END LOOP;
4073:
4074: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4075: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
4076: ,'Creating Logical Transactions in MMT');
4077: END IF;
4078:
4071: l_ctr := p_rcv_events_tbl.NEXT(l_ctr);
4072: END LOOP;
4073:
4074: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4075: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
4076: ,'Creating Logical Transactions in MMT');
4077: END IF;
4078:
4079: l_stmt_num := 150;
4097: IF FND_API.to_Boolean(p_commit) THEN
4098: COMMIT WORK;
4099: END IF;
4100:
4101: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4102: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.end'
4103: ,'Insert_MMTEvents >>');
4104: END IF;
4105:
4098: COMMIT WORK;
4099: END IF;
4100:
4101: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4102: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.end'
4103: ,'Insert_MMTEvents >>');
4104: END IF;
4105:
4106: EXCEPTION
4109: ROLLBACK TO Insert_MMTEvents_PVT;
4110: x_return_status := FND_API.g_ret_sts_unexp_error ;
4111: l_api_message := 'Unexpected event in element '||to_char(l_ctr)||
4112: ' of input parameter p_rcv_events_tbl';
4113: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4114: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4115: l_api_message);
4116: END IF;
4117: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4110: x_return_status := FND_API.g_ret_sts_unexp_error ;
4111: l_api_message := 'Unexpected event in element '||to_char(l_ctr)||
4112: ' of input parameter p_rcv_events_tbl';
4113: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4114: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4115: l_api_message);
4116: END IF;
4117: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4118: FND_MSG_PUB.add_exc_msg
4127: WHEN FND_API.g_exc_error THEN
4128: ROLLBACK TO Insert_MMTEvents_PVT;
4129: x_return_status := FND_API.g_ret_sts_error;
4130: l_api_message := 'Call to procedure failed';
4131: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4132: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4133: l_api_message);
4134: END IF;
4135: FND_MSG_PUB.count_and_get
4128: ROLLBACK TO Insert_MMTEvents_PVT;
4129: x_return_status := FND_API.g_ret_sts_error;
4130: l_api_message := 'Call to procedure failed';
4131: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4132: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4133: l_api_message);
4134: END IF;
4135: FND_MSG_PUB.count_and_get
4136: ( p_count => x_msg_count
4140: WHEN FND_API.g_exc_unexpected_error THEN
4141: ROLLBACK TO Insert_MMTEvents_PVT;
4142: x_return_status := FND_API.g_ret_sts_unexp_error;
4143: l_api_message := 'Wrong version #, expecting version '||to_char(l_api_version);
4144: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4145: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4146: l_api_message);
4147: END IF;
4148: FND_MSG_PUB.count_and_get
4141: ROLLBACK TO Insert_MMTEvents_PVT;
4142: x_return_status := FND_API.g_ret_sts_unexp_error;
4143: l_api_message := 'Wrong version #, expecting version '||to_char(l_api_version);
4144: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4145: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4146: l_api_message);
4147: END IF;
4148: FND_MSG_PUB.count_and_get
4149: ( p_count => x_msg_count
4153: WHEN OTHERS THEN
4154: ROLLBACK TO Insert_MMTEvents_PVT;
4155: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4156: l_api_message := 'Unexpected Error: '||l_stmt_num||': '||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
4157: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4158: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4159: l_api_message);
4160: END IF;
4161: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4154: ROLLBACK TO Insert_MMTEvents_PVT;
4155: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4156: l_api_message := 'Unexpected Error: '||l_stmt_num||': '||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
4157: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4158: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4159: l_api_message);
4160: END IF;
4161: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4162: FND_MSG_PUB.add_exc_msg
4250:
4251: -- Standard start of API savepoint
4252: SAVEPOINT Create_MMTRecord_PVT;
4253:
4254: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4255: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||'.'||l_api_name||'.begin'
4256: ,'Create_MMTRecord <<');
4257: END IF;
4258:
4251: -- Standard start of API savepoint
4252: SAVEPOINT Create_MMTRecord_PVT;
4253:
4254: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4255: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||'.'||l_api_name||'.begin'
4256: ,'Create_MMTRecord <<');
4257: END IF;
4258:
4259: -- Standard call to check for call compatibility
4470: FND_MSG_PUB.Count_And_Get (
4471: p_count => x_msg_count,
4472: p_data => x_msg_data );
4473:
4474: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4475: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||'.'||l_api_name||'.end'
4476: ,'Create_MMTRecord >>');
4477: END IF;
4478:
4471: p_count => x_msg_count,
4472: p_data => x_msg_data );
4473:
4474: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4475: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||'.'||l_api_name||'.end'
4476: ,'Create_MMTRecord >>');
4477: END IF;
4478:
4479: EXCEPTION
4503: WHEN invalid_txn_type THEN
4504: ROLLBACK TO Create_MMTRecord_PVT;
4505: x_return_status := FND_API.g_ret_sts_error ;
4506: l_api_message := 'Unexpected transaction type passed in: '||to_char(p_txn_type_id);
4507: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4508: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4509: l_api_message);
4510: END IF;
4511: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
4504: ROLLBACK TO Create_MMTRecord_PVT;
4505: x_return_status := FND_API.g_ret_sts_error ;
4506: l_api_message := 'Unexpected transaction type passed in: '||to_char(p_txn_type_id);
4507: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4508: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4509: l_api_message);
4510: END IF;
4511: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
4512: FND_MSG_PUB.add_exc_msg
4520:
4521: WHEN NO_DATA_FOUND THEN
4522: ROLLBACK TO Create_MMTRecord_PVT;
4523: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
4524: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4525: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||'.'||l_api_name||'.'||l_stmt_num,
4526: l_api_message);
4527: END IF;
4528: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
4521: WHEN NO_DATA_FOUND THEN
4522: ROLLBACK TO Create_MMTRecord_PVT;
4523: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
4524: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4525: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||'.'||l_api_name||'.'||l_stmt_num,
4526: l_api_message);
4527: END IF;
4528: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
4529: THEN
4540: WHEN OTHERS THEN
4541: ROLLBACK TO Create_MMTRecord_PVT;
4542: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4543: l_api_message := to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
4544: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4545: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||'.'||l_api_name||'.'||l_stmt_num
4546: ,'Create_MMTRecord : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
4547: END IF;
4548: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
4541: ROLLBACK TO Create_MMTRecord_PVT;
4542: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4543: l_api_message := to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
4544: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4545: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||'.'||l_api_name||'.'||l_stmt_num
4546: ,'Create_MMTRecord : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
4547: END IF;
4548: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
4549: THEN