[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.
1140: END IF;
1141:
1142: x_source_doc_quantity := l_source_doc_quantity;
1143:
1144: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1145: l_api_message := 'x_source_doc_quantity : '||x_source_doc_quantity;
1146: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1147: ,l_api_message);
1148: END IF;
1142: x_source_doc_quantity := l_source_doc_quantity;
1143:
1144: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1145: l_api_message := 'x_source_doc_quantity : '||x_source_doc_quantity;
1146: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1147: ,l_api_message);
1148: END IF;
1149:
1150:
1157: FND_MSG_PUB.Count_And_Get (
1158: p_count => x_msg_count,
1159: p_data => x_msg_data );
1160:
1161: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1162: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1163: ,'Get_Quantity >>');
1164: END IF;
1165: EXCEPTION
1158: p_count => x_msg_count,
1159: p_data => x_msg_data );
1160:
1161: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1162: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1163: ,'Get_Quantity >>');
1164: END IF;
1165: EXCEPTION
1166: WHEN FND_API.g_exc_error THEN
1181: WHEN OTHERS THEN
1182: ROLLBACK TO Get_Quantity_PVT;
1183: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1184:
1185: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1186: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1187: ,'Get_Quantity : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1188: END IF;
1189:
1182: ROLLBACK TO Get_Quantity_PVT;
1183: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1184:
1185: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1186: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1187: ,'Get_Quantity : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1188: END IF;
1189:
1190: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1283: SAVEPOINT Get_UnitPrice_PVT;
1284:
1285: l_stmt_num := 0;
1286:
1287: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1288: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
1289: ,'Get_UnitPrice <<');
1290: END IF;
1291:
1284:
1285: l_stmt_num := 0;
1286:
1287: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1288: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
1289: ,'Get_UnitPrice <<');
1290: END IF;
1291:
1292: -- Standard call to check for call compatibility
1342:
1343: IF(l_item_exists = 0) THEN
1344: FND_MESSAGE.set_name('PO','PO_INVALID_ITEM');
1345: FND_MSG_pub.add;
1346: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1347: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
1348: END IF;
1349: RAISE FND_API.g_exc_error;
1350: END IF;
1343: IF(l_item_exists = 0) THEN
1344: FND_MESSAGE.set_name('PO','PO_INVALID_ITEM');
1345: FND_MSG_pub.add;
1346: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1347: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
1348: END IF;
1349: RAISE FND_API.g_exc_error;
1350: END IF;
1351:
1363: EXCEPTION
1364: WHEN NO_DATA_FOUND THEN
1365: FND_MESSAGE.set_name('PO','PO_INVALID_ITEM');
1366: FND_MSG_pub.add;
1367: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1368: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
1369: END IF;
1370: RAISE FND_API.g_exc_error;
1371: END;
1364: WHEN NO_DATA_FOUND THEN
1365: FND_MESSAGE.set_name('PO','PO_INVALID_ITEM');
1366: FND_MSG_pub.add;
1367: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1368: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
1369: END IF;
1370: RAISE FND_API.g_exc_error;
1371: END;
1372:
1377: END IF;
1378:
1379: END IF;
1380:
1381: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1382: l_api_message := 'l_ic_pricing_option : '||l_ic_pricing_option;
1383: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1384: ,l_api_message);
1385: END IF;
1379: END IF;
1380:
1381: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1382: l_api_message := 'l_ic_pricing_option : '||l_ic_pricing_option;
1383: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1384: ,l_api_message);
1385: END IF;
1386:
1387: -- l_ic_pricing_option of 1 => PO Price.
1419: -- currency chosen by the user. The returned values will have to be stored
1420: -- in MMT and will be used by Intercompany to determine the Currency in which
1421: -- to create the intercompany invoices.
1422: l_stmt_num := 60;
1423: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1424: l_api_message := 'Calling get_transfer_price API : '||
1425: ' l_from_org_id : '||l_from_org_id||
1426: ' l_to_org_id : '||l_to_org_id||
1427: ' l_transaction_uom : '||l_transaction_uom||
1427: ' l_transaction_uom : '||l_transaction_uom||
1428: ' item_id : '||p_rcv_event.item_id||
1429: ' p_transaction_id : '|| p_rcv_event.rcv_transaction_id;
1430:
1431: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1432: ,l_api_message);
1433: END IF;
1434: INV_TRANSACTION_FLOW_PUB.get_transfer_price(
1435: p_api_version => 1.0,
1448: p_from_organization_id => l_from_organization_id,
1449: p_global_procurement_flag => 'Y',
1450: p_drop_ship_flag => 'N');
1451: IF l_return_status <> FND_API.g_ret_sts_success THEN
1452: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1453: l_api_message := 'Error getting transfer price';
1454: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1455: ,l_api_message);
1456: END IF;
1450: p_drop_ship_flag => 'N');
1451: IF l_return_status <> FND_API.g_ret_sts_success THEN
1452: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1453: l_api_message := 'Error getting transfer price';
1454: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1455: ,l_api_message);
1456: END IF;
1457: RAISE FND_API.g_exc_unexpected_error;
1458: END IF;
1456: END IF;
1457: RAISE FND_API.g_exc_unexpected_error;
1458: END IF;
1459:
1460: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1461: l_api_message := SUBSTR('l_transfer_price : ' || l_transfer_price||
1462: ' l_currency_code : '||l_currency_code||
1463: ' l_incr_transfer_price : '||l_incr_transfer_price||
1464: ' l_incr_currency_code : '||l_incr_currency_code,1000);
1461: l_api_message := SUBSTR('l_transfer_price : ' || l_transfer_price||
1462: ' l_currency_code : '||l_currency_code||
1463: ' l_incr_transfer_price : '||l_incr_transfer_price||
1464: ' l_incr_currency_code : '||l_incr_currency_code,1000);
1465: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1466: ,'Get_TransferPrice : '||l_stmt_num||' : '||l_api_message);
1467: END IF;
1468:
1469: l_unit_price := l_transfer_price;
1497: x_intercompany_pricing_option := l_ic_pricing_option;
1498: x_unit_price := l_unit_price;
1499: x_currency_code := l_currency_code;
1500:
1501: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1502: l_api_message := SUBSTR('x_ic_pricing_option : '||x_intercompany_pricing_option||
1503: ' x_unit_price : '||x_unit_price ||
1504: ' x_currency_code : '||x_currency_code||
1505: ' x_incr_currency_code : '||x_incr_currency_code||
1503: ' x_unit_price : '||x_unit_price ||
1504: ' x_currency_code : '||x_currency_code||
1505: ' x_incr_currency_code : '||x_incr_currency_code||
1506: ' x_incr_transfer_price : '||x_incr_transfer_price,1,1000);
1507: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1508: ,l_api_message);
1509: END IF;
1510:
1511:
1519: FND_MSG_PUB.Count_And_Get (
1520: p_count => x_msg_count,
1521: p_data => x_msg_data );
1522:
1523: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1524: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1525: ,'Get_UnitPrice >>');
1526: END IF;
1527: EXCEPTION
1520: p_count => x_msg_count,
1521: p_data => x_msg_data );
1522:
1523: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1524: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1525: ,'Get_UnitPrice >>');
1526: END IF;
1527: EXCEPTION
1528: WHEN FND_API.g_exc_error THEN
1543: WHEN OTHERS THEN
1544: ROLLBACK TO Get_UnitPrice_PVT;
1545: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1546:
1547: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1548: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1549: ,'Get_UnitPrice : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1550: END IF;
1551:
1544: ROLLBACK TO Get_UnitPrice_PVT;
1545: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1546:
1547: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1548: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1549: ,'Get_UnitPrice : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1550: END IF;
1551:
1552: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1640:
1641: l_stmt_num := 0;
1642: l_hook_used:= 0;
1643:
1644: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1645: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
1646: ,'Get_UnitTax <<');
1647: END IF;
1648:
1641: l_stmt_num := 0;
1642: l_hook_used:= 0;
1643:
1644: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1645: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
1646: ,'Get_UnitTax <<');
1647: END IF;
1648:
1649: -- Standard call to check for call compatibility
1690: x_old_non_recoverable_tax => l_old_non_recoverable_tax);
1691:
1692: IF l_return_status <> FND_API.g_ret_sts_success THEN
1693: l_api_message := 'Error getting Tax';
1694: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1695: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1696: ,'Get_UnitPrice : '||l_stmt_num||' : '||l_api_message);
1697: END IF;
1698: RAISE FND_API.g_exc_unexpected_error;
1691:
1692: IF l_return_status <> FND_API.g_ret_sts_success THEN
1693: l_api_message := 'Error getting Tax';
1694: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1695: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1696: ,'Get_UnitPrice : '||l_stmt_num||' : '||l_api_message);
1697: END IF;
1698: RAISE FND_API.g_exc_unexpected_error;
1699: END IF;
1697: END IF;
1698: RAISE FND_API.g_exc_unexpected_error;
1699: END IF;
1700:
1701: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1702: l_api_message := SUBSTR('l_recoverable_tax : '||l_recoverable_tax||
1703: ' l_non_recoverable_tax : '||l_non_recoverable_tax||
1704: ' l_old_recoverable_tax : '||l_old_recoverable_tax||
1705: ' l_old_non_recoverable_tax : '||l_old_non_recoverable_tax,1,1000);
1702: l_api_message := SUBSTR('l_recoverable_tax : '||l_recoverable_tax||
1703: ' l_non_recoverable_tax : '||l_non_recoverable_tax||
1704: ' l_old_recoverable_tax : '||l_old_recoverable_tax||
1705: ' l_old_non_recoverable_tax : '||l_old_non_recoverable_tax,1,1000);
1706: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1707: ,l_api_message);
1708: END IF;
1709:
1710: /* Bug 6405593 :Added hook call to override the recoverable and Non-Recoverable
1732:
1733: IF (l_err_num <> 0) THEN
1734: -- Error occured
1735: l_api_message := 'Error getting Enc Tax error_code : '||l_Err_Code||' Error Message : '||l_Err_Msg;
1736: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1737: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1738: ,'CST_Common_hooks.Get_NRtax_amount : '||l_stmt_num||' : '||l_api_message);
1739: END IF;
1740: RAISE FND_API.g_exc_unexpected_error;
1733: IF (l_err_num <> 0) THEN
1734: -- Error occured
1735: l_api_message := 'Error getting Enc Tax error_code : '||l_Err_Code||' Error Message : '||l_Err_Msg;
1736: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1737: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1738: ,'CST_Common_hooks.Get_NRtax_amount : '||l_stmt_num||' : '||l_api_message);
1739: END IF;
1740: RAISE FND_API.g_exc_unexpected_error;
1741: END IF;
1740: RAISE FND_API.g_exc_unexpected_error;
1741: END IF;
1742:
1743:
1744: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1745: l_api_message := SUBSTR('Hook Used CST_Commonlocalization_hooks.Get_NRtax_amount :'|| l_hook_used ||
1746: ' l_loc_recoverable_tax : '||l_loc_recoverable_tax||
1747: ' l_loc_non_recoverable_tax : '||l_loc_non_recoverable_tax,1,1000);
1748: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1744: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1745: l_api_message := SUBSTR('Hook Used CST_Commonlocalization_hooks.Get_NRtax_amount :'|| l_hook_used ||
1746: ' l_loc_recoverable_tax : '||l_loc_recoverable_tax||
1747: ' l_loc_non_recoverable_tax : '||l_loc_non_recoverable_tax,1,1000);
1748: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1749: ,l_api_message);
1750: END IF;
1751:
1752: l_non_recoverable_tax:=nvl(l_non_recoverable_tax,0)+nvl(l_loc_non_recoverable_tax,0);
1790: x_unit_rec_tax := NVL(l_unit_rec_tax,0);
1791: x_prior_nr_tax := NVL(l_prior_nr_tax,0);
1792: x_prior_rec_tax := NVL(l_prior_rec_tax,0);
1793:
1794: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1795: l_api_message := SUBSTR('x_unit_nr_tax : '||x_unit_nr_tax||
1796: ' x_unit_rec_tax : '||x_unit_rec_tax||
1797: ' x_prior_nr_tax : '||x_prior_nr_tax||
1798: ' x_prior_rec_tax : '||x_prior_rec_tax,1,1000);
1795: l_api_message := SUBSTR('x_unit_nr_tax : '||x_unit_nr_tax||
1796: ' x_unit_rec_tax : '||x_unit_rec_tax||
1797: ' x_prior_nr_tax : '||x_prior_nr_tax||
1798: ' x_prior_rec_tax : '||x_prior_rec_tax,1,1000);
1799: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
1800: ,l_api_message);
1801: END IF;
1802:
1803:
1810: FND_MSG_PUB.Count_And_Get (
1811: p_count => x_msg_count,
1812: p_data => x_msg_data );
1813:
1814: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1815: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1816: ,'Get_UnitTax >>');
1817: END IF;
1818:
1811: p_count => x_msg_count,
1812: p_data => x_msg_data );
1813:
1814: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1815: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
1816: ,'Get_UnitTax >>');
1817: END IF;
1818:
1819:
1836: WHEN OTHERS THEN
1837: ROLLBACK TO Get_UnitTax_PVT;
1838: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1839:
1840: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1841: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1842: ,'Get_UnitTax : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1843: END IF;
1844:
1837: ROLLBACK TO Get_UnitTax_PVT;
1838: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1839:
1840: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1841: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
1842: ,'Get_UnitTax : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
1843: END IF;
1844:
1845: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1928: if FND_API.to_Boolean(P_INIT_MSG_LIST) then
1929: FND_MSG_PUB.initialize;
1930: end if;
1931:
1932: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1933: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.begin'
1934: ,'Convert_UOM <<');
1935: END IF;
1936:
1929: FND_MSG_PUB.initialize;
1930: end if;
1931:
1932: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1933: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.begin'
1934: ,'Convert_UOM <<');
1935: END IF;
1936:
1937: -- Standard check for compatibility
2006:
2007: IF (l_primary_uom_rate = -99999) THEN
2008: RAISE FND_API.G_EXC_ERROR;
2009: l_api_message := 'inv_convert.inv_um_conversion() failed to get the UOM rate';
2010: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2011: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2012: l_api_message);
2013: END IF;
2014: END IF;
2007: IF (l_primary_uom_rate = -99999) THEN
2008: RAISE FND_API.G_EXC_ERROR;
2009: l_api_message := 'inv_convert.inv_um_conversion() failed to get the UOM rate';
2010: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2011: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2012: l_api_message);
2013: END IF;
2014: END IF;
2015:
2023:
2024: IF (l_trx_uom_rate = -99999) THEN
2025: RAISE FND_API.G_EXC_ERROR;
2026: l_api_message := 'inv_convert.inv_um_conversion() failed to get the UOM rate';
2027: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2028: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2029: l_api_message);
2030: END IF;
2031: END IF;
2024: IF (l_trx_uom_rate = -99999) THEN
2025: RAISE FND_API.G_EXC_ERROR;
2026: l_api_message := 'inv_convert.inv_um_conversion() failed to get the UOM rate';
2027: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2028: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2029: l_api_message);
2030: END IF;
2031: END IF;
2032:
2036: x_primary_qty := l_primary_uom_rate * p_event_rec.source_doc_quantity; /*BUG 6838756 Removed rounding*/
2037: x_transaction_qty := l_trx_uom_rate * p_event_rec.source_doc_quantity; /*BUG 6838756 Removed rounding*/
2038: x_trx_uom_code := l_trx_uom_code;
2039:
2040: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2041: l_api_message := 'x_primary_uom : '||x_primary_uom||
2042: ' x_primary_qty : '||x_primary_qty||
2043: ' x_transaction_qty : '||x_transaction_qty||
2044: ' x_trx_uom_code : '||x_trx_uom_code;
2041: l_api_message := 'x_primary_uom : '||x_primary_uom||
2042: ' x_primary_qty : '||x_primary_qty||
2043: ' x_transaction_qty : '||x_transaction_qty||
2044: ' x_trx_uom_code : '||x_trx_uom_code;
2045: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2046: ,l_api_message);
2047: END IF;
2048:
2049: -- End of API body
2052: IF FND_API.to_Boolean(P_COMMIT) THEN
2053: COMMIT WORK;
2054: END IF;
2055:
2056: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2057: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.end'
2058: ,'Convert_UOM >>');
2059: END IF;
2060:
2053: COMMIT WORK;
2054: END IF;
2055:
2056: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2057: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.end'
2058: ,'Convert_UOM >>');
2059: END IF;
2060:
2061: EXCEPTION
2078: WHEN NO_DATA_FOUND then
2079: ROLLBACK TO Convert_UOM_PVT;
2080: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
2081: l_api_message := ': Statement # '||to_char(l_stmt_num)||' - No UOM found.';
2082: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2083: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2084: l_api_message);
2085: END IF;
2086: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
2079: ROLLBACK TO Convert_UOM_PVT;
2080: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
2081: l_api_message := ': Statement # '||to_char(l_stmt_num)||' - No UOM found.';
2082: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2083: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2084: l_api_message);
2085: END IF;
2086: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
2087: THEN
2098: WHEN OTHERS then
2099: ROLLBACK TO Convert_UOM_PVT;
2100: x_return_status := FND_API.g_ret_sts_unexp_error ;
2101: l_api_message := 'Unexpected Error at statement('||to_char(l_stmt_num)||'): '||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
2102: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2103: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2104: l_api_message);
2105: END IF;
2106: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2099: ROLLBACK TO Convert_UOM_PVT;
2100: x_return_status := FND_API.g_ret_sts_unexp_error ;
2101: l_api_message := 'Unexpected Error at statement('||to_char(l_stmt_num)||'): '||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
2102: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2103: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2104: l_api_message);
2105: END IF;
2106: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2107: FND_MSG_PUB.add_exc_msg
2293: x_currency_conversion_rate := l_currency_conversion_rate;
2294: x_currency_conversion_date := NVL(l_currency_conversion_date,sysdate);
2295: x_currency_conversion_type := l_currency_conversion_type;
2296:
2297: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2298: l_api_message := SUBSTR('x_currency_code : '||x_currency_code||
2299: ' x_currency_conversion_rate : '||TO_CHAR(x_currency_conversion_rate)||
2300: ' x_currency_conversion_date : '||TO_CHAR(x_currency_conversion_date,'DD-MON-YY')||
2301: ' x_currency_conversion_type : '||x_currency_conversion_type,1,1000);
2298: l_api_message := SUBSTR('x_currency_code : '||x_currency_code||
2299: ' x_currency_conversion_rate : '||TO_CHAR(x_currency_conversion_rate)||
2300: ' x_currency_conversion_date : '||TO_CHAR(x_currency_conversion_date,'DD-MON-YY')||
2301: ' x_currency_conversion_type : '||x_currency_conversion_type,1,1000);
2302: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2303: ,l_api_message);
2304: END IF;
2305:
2306:
2338: WHEN NO_DATA_FOUND then
2339: ROLLBACK TO GET_CURRENCY_PVT;
2340: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
2341: l_api_message := 'Unexpected Error: '||l_stmt_num||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,200);
2342: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2343: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2344: l_api_message);
2345: END IF;
2346:
2339: ROLLBACK TO GET_CURRENCY_PVT;
2340: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
2341: l_api_message := 'Unexpected Error: '||l_stmt_num||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,200);
2342: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2343: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2344: l_api_message);
2345: END IF;
2346:
2347: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2359: WHEN OTHERS then
2360: ROLLBACK TO GET_CURRENCY_PVT;
2361: x_return_status := FND_API.g_ret_sts_unexp_error ;
2362: l_api_message := 'Unexpected Error: '||l_stmt_num||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,200);
2363: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2364: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2365: l_api_message);
2366: END IF;
2367:
2360: ROLLBACK TO GET_CURRENCY_PVT;
2361: x_return_status := FND_API.g_ret_sts_unexp_error ;
2362: l_api_message := 'Unexpected Error: '||l_stmt_num||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,200);
2363: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2364: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
2365: l_api_message);
2366: END IF;
2367:
2368: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2468: SAVEPOINT Get_Accounts_PVT;
2469:
2470: l_stmt_num := 0;
2471:
2472: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2473: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
2474: ,'Get_Accounts <<');
2475:
2476: END IF;
2469:
2470: l_stmt_num := 0;
2471:
2472: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2473: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
2474: ,'Get_Accounts <<');
2475:
2476: END IF;
2477:
2620: x_distribution_acct_id => l_dist_acct_id);
2621:
2622: IF l_return_status <> FND_API.g_ret_sts_success THEN
2623: l_api_message := 'Error in Get_HookAccount';
2624: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2625: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2626: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2627: END IF;
2628: RAISE FND_API.g_exc_unexpected_error;
2621:
2622: IF l_return_status <> FND_API.g_ret_sts_success THEN
2623: l_api_message := 'Error in Get_HookAccount';
2624: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2625: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2626: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2627: END IF;
2628: RAISE FND_API.g_exc_unexpected_error;
2629: END IF;
2690: x_distribution_acct_id => l_dist_acct_id);
2691:
2692: IF l_return_status <> FND_API.g_ret_sts_success THEN
2693: l_api_message := 'Error in Get_HookAccount';
2694: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2695: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2696: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2697: END IF;
2698: RAISE FND_API.g_exc_unexpected_error;
2691:
2692: IF l_return_status <> FND_API.g_ret_sts_success THEN
2693: l_api_message := 'Error in Get_HookAccount';
2694: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2695: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2696: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2697: END IF;
2698: RAISE FND_API.g_exc_unexpected_error;
2699: END IF;
2745: x_distribution_acct_id => l_dist_acct_id);
2746:
2747: IF l_return_status <> FND_API.g_ret_sts_success THEN
2748: l_api_message := 'Error in Get_HookAccount';
2749: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2750: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2751: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2752: END IF;
2753: RAISE FND_API.g_exc_unexpected_error;
2746:
2747: IF l_return_status <> FND_API.g_ret_sts_success THEN
2748: l_api_message := 'Error in Get_HookAccount';
2749: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2750: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2751: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2752: END IF;
2753: RAISE FND_API.g_exc_unexpected_error;
2754: END IF;
2789: x_distribution_acct_id => l_dist_acct_id);
2790:
2791: IF l_return_status <> FND_API.g_ret_sts_success THEN
2792: l_api_message := 'Error in Get_HookAccount';
2793: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2794: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2795: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2796: END IF;
2797: RAISE FND_API.g_exc_unexpected_error;
2790:
2791: IF l_return_status <> FND_API.g_ret_sts_success THEN
2792: l_api_message := 'Error in Get_HookAccount';
2793: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2794: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2795: ,'Get_Accounts : '||l_stmt_num||' : '||l_api_message);
2796: END IF;
2797: RAISE FND_API.g_exc_unexpected_error;
2798: END IF;
2852: x_ic_cogs_acct_id := p_transaction_forward_flow_rec.intercompany_cogs_account_id;
2853: /* Support for Landed Cost Management */
2854: x_lcm_acct_id := l_lcm_acct_id;
2855:
2856: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2857: l_api_message := 'x_debit_acct_id : '||x_debit_acct_id||
2858: ' x_credit_acct_id : '||x_credit_acct_id||
2859: ' x_ic_cogs_acct_id : ' || x_ic_cogs_acct_id;
2860: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2856: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2857: l_api_message := 'x_debit_acct_id : '||x_debit_acct_id||
2858: ' x_credit_acct_id : '||x_credit_acct_id||
2859: ' x_ic_cogs_acct_id : ' || x_ic_cogs_acct_id;
2860: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2861: ,l_api_message);
2862: END IF;
2863:
2864: IF ((l_debit_acct_id IS NULL OR l_credit_acct_id IS NULL) AND
2864: IF ((l_debit_acct_id IS NULL OR l_credit_acct_id IS NULL) AND
2865: (p_rcv_event.event_type_id NOT IN (RCV_SeedEvents_PVT.INTERCOMPANY_INVOICE,
2866: RCV_SeedEvents_PVT.INTERCOMPANY_REVERSAL,
2867: RCV_SeedEvents_PVT.ENCUMBRANCE_REVERSAL))) THEN
2868: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2869: l_api_message := 'Unable to find credit and/or debit account. Setup is incomplete. ';
2870: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2871: ,l_api_message);
2872: END IF;
2866: RCV_SeedEvents_PVT.INTERCOMPANY_REVERSAL,
2867: RCV_SeedEvents_PVT.ENCUMBRANCE_REVERSAL))) THEN
2868: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2869: l_api_message := 'Unable to find credit and/or debit account. Setup is incomplete. ';
2870: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
2871: ,l_api_message);
2872: END IF;
2873:
2874: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
2872: END IF;
2873:
2874: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
2875: FND_MSG_pub.add;
2876: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2877: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
2878: END IF;
2879: RAISE FND_API.g_exc_error;
2880: END IF;
2873:
2874: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
2875: FND_MSG_pub.add;
2876: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2877: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
2878: END IF;
2879: RAISE FND_API.g_exc_error;
2880: END IF;
2881:
2889: FND_MSG_PUB.Count_And_Get (
2890: p_count => x_msg_count,
2891: p_data => x_msg_data );
2892:
2893: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2894: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
2895: ,'Get_Accounts >>');
2896: END IF;
2897:
2890: p_count => x_msg_count,
2891: p_data => x_msg_data );
2892:
2893: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2894: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
2895: ,'Get_Accounts >>');
2896: END IF;
2897:
2898:
2915: WHEN OTHERS THEN
2916: ROLLBACK TO Get_Accounts_PVT;
2917: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2918:
2919: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2920: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2921: ,'Get_Accounts : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
2922: END IF;
2923:
2916: ROLLBACK TO Get_Accounts_PVT;
2917: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2918:
2919: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2920: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
2921: ,'Get_Accounts : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
2922: END IF;
2923:
2924: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2996: SAVEPOINT Get_HookAccount_PVT;
2997:
2998: l_stmt_num := 0;
2999:
3000: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3001: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3002: ,'Get_HookAccount <<');
3003:
3004: END IF;
2997:
2998: l_stmt_num := 0;
2999:
3000: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3001: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3002: ,'Get_HookAccount <<');
3003:
3004: END IF;
3005:
3032: x_distribution_acct_id => l_dist_acct_id);
3033:
3034: IF l_return_status <> FND_API.g_ret_sts_success THEN
3035: l_api_message := 'Error in Account Hook';
3036: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3037: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3038: ,'Get_HookAccount : '||l_stmt_num||' : '||l_api_message);
3039: END IF;
3040: RAISE FND_API.g_exc_unexpected_error;
3033:
3034: IF l_return_status <> FND_API.g_ret_sts_success THEN
3035: l_api_message := 'Error in Account Hook';
3036: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3037: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3038: ,'Get_HookAccount : '||l_stmt_num||' : '||l_api_message);
3039: END IF;
3040: RAISE FND_API.g_exc_unexpected_error;
3041: END IF;
3053:
3054: IF(l_account_flag = 0)THEN
3055: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
3056: FND_MSG_pub.add;
3057: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3058: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
3059: END IF;
3060: RAISE FND_API.g_exc_error;
3061: END IF;
3054: IF(l_account_flag = 0)THEN
3055: FND_MESSAGE.set_name('PO','PO_INVALID_ACCOUNT');
3056: FND_MSG_pub.add;
3057: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3058: FND_LOG.message(FND_LOG.LEVEL_ERROR,G_LOG_HEAD || '.'||l_api_name||l_stmt_num,FALSE);
3059: END IF;
3060: RAISE FND_API.g_exc_error;
3061: END IF;
3062: END IF;
3062: END IF;
3063:
3064: x_distribution_acct_id := l_dist_acct_id;
3065:
3066: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3067: l_api_message := 'x_distribution_acct_id : '||x_distribution_acct_id;
3068: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3069: ,l_api_message);
3070: END IF;
3064: x_distribution_acct_id := l_dist_acct_id;
3065:
3066: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3067: l_api_message := 'x_distribution_acct_id : '||x_distribution_acct_id;
3068: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3069: ,l_api_message);
3070: END IF;
3071:
3072: -- Standard check of p_commit
3078: FND_MSG_PUB.Count_And_Get (
3079: p_count => x_msg_count,
3080: p_data => x_msg_data );
3081:
3082: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3083: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3084: ,'Get_HookAccount >>');
3085: END IF;
3086:
3079: p_count => x_msg_count,
3080: p_data => x_msg_data );
3081:
3082: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3083: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3084: ,'Get_HookAccount >>');
3085: END IF;
3086:
3087:
3104: WHEN OTHERS THEN
3105: ROLLBACK TO Get_HookAccount_PVT;
3106: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3107:
3108: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3109: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3110: ,'Get_HookAccount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3111: END IF;
3112:
3105: ROLLBACK TO Get_HookAccount_PVT;
3106: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3107:
3108: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3109: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3110: ,'Get_HookAccount : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3111: END IF;
3112:
3113: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3195: SAVEPOINT Insert_RAEEvents_PVT;
3196:
3197: l_stmt_num := 0;
3198:
3199: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3200: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3201: ,'Insert_RAEEvents <<');
3202:
3203: END IF;
3196:
3197: l_stmt_num := 0;
3198:
3199: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3200: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3201: ,'Insert_RAEEvents <<');
3202:
3203: END IF;
3204:
3218:
3219: -- Initialize API return status to success
3220: x_return_status := FND_API.G_RET_STS_SUCCESS;
3221:
3222: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3223: l_api_message := 'Inserting '||p_rcv_events_tbl.count||' events into RAE';
3224: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3225: ,l_api_message);
3226: END IF;
3220: x_return_status := FND_API.G_RET_STS_SUCCESS;
3221:
3222: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3223: l_api_message := 'Inserting '||p_rcv_events_tbl.count||' events into RAE';
3224: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3225: ,l_api_message);
3226: END IF;
3227:
3228: l_ctr_first := p_rcv_events_tbl.FIRST;
3240: SELECT rcv_accounting_event_s.nextval
3241: INTO l_accounting_event_id
3242: FROM dual;
3243:
3244: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3245: l_api_message := SUBSTR('i : '||i||
3246: 'accounting_event_id : '||l_accounting_event_id||
3247: 'rcv_transaction_id : '||p_rcv_events_tbl(i).rcv_transaction_id||
3248: 'po_line_id : '||p_rcv_events_tbl(i).po_line_id||
3250: 'unit_price : '||p_rcv_events_tbl(i).unit_price||
3251: 'currency : '||p_rcv_events_tbl(i).currency_code||
3252: 'nr tax : '||p_rcv_events_tbl(i).unit_nr_tax||
3253: 'rec tax : '||p_rcv_events_tbl(i).unit_rec_tax,1,1000);
3254: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3255: ,l_api_message);
3256: END IF;
3257:
3258: -- We are not doing a bulk insert due to a database limitation. On databases
3397: /* Support for Landed Cost Management */
3398: p_rcv_events_tbl(i).unit_landed_cost
3399: FROM DUAL);
3400:
3401: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3402: l_api_message := 'Inserted '||SQL%ROWCOUNT||
3403: 'rows in RAE for org '||p_rcv_events_tbl(i).org_id;
3404: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3405: ,l_api_message);
3400:
3401: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3402: l_api_message := 'Inserted '||SQL%ROWCOUNT||
3403: 'rows in RAE for org '||p_rcv_events_tbl(i).org_id;
3404: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3405: ,l_api_message);
3406: END IF;
3407:
3408: /* For accrue on receipt POs, call the Create_Accounting API to generate accounting entries
3414: p_rcv_events_tbl(i).procurement_org_flag = 'N') AND
3415: p_rcv_events_tbl(i).event_type_id NOT IN
3416: (RCV_SeedEvents_PVT.INTERCOMPANY_INVOICE,RCV_SeedEvents_PVT.INTERCOMPANY_REVERSAL)) THEN
3417: l_stmt_num := 50;
3418: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3419: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3420: ,'Creating accounting entries in RRS');
3421: END IF;
3422:
3415: p_rcv_events_tbl(i).event_type_id NOT IN
3416: (RCV_SeedEvents_PVT.INTERCOMPANY_INVOICE,RCV_SeedEvents_PVT.INTERCOMPANY_REVERSAL)) THEN
3417: l_stmt_num := 50;
3418: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3419: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3420: ,'Creating accounting entries in RRS');
3421: END IF;
3422:
3423: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3419: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3420: ,'Creating accounting entries in RRS');
3421: END IF;
3422:
3423: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3424: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3425: ,'Creating accounting entries for accounting_event_id : '||l_accounting_event_id);
3426: END IF;
3427:
3420: ,'Creating accounting entries in RRS');
3421: END IF;
3422:
3423: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3424: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3425: ,'Creating accounting entries for accounting_event_id : '||l_accounting_event_id);
3426: END IF;
3427:
3428: -- Call Account generation API to create accounting entries
3435: /* Support for Landed Cost Management */
3436: p_lcm_flag => p_lcm_flag);
3437: IF l_return_status <> FND_API.g_ret_sts_success THEN
3438: l_api_message := 'Error in Create_AccountingEntry API';
3439: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3440: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3441: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3442: END IF;
3443: RAISE FND_API.g_exc_unexpected_error;
3436: p_lcm_flag => p_lcm_flag);
3437: IF l_return_status <> FND_API.g_ret_sts_success THEN
3438: l_api_message := 'Error in Create_AccountingEntry API';
3439: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3440: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3441: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3442: END IF;
3443: RAISE FND_API.g_exc_unexpected_error;
3444: END IF;
3445:
3446: -- Call PA API to update pa_addition_flag - bug 5074573 (fp of 4409125)
3447: l_stmt_num := 55;
3448:
3449: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3450: l_api_message := 'Calling PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg with '
3451: || 'p_api_version = '|| '1.0'
3452: || 'p_rcv_transaction_id = ' || p_rcv_events_tbl(i).rcv_transaction_id
3453: || 'p_po_distribution_id = ' || p_rcv_events_tbl(i).po_distribution_id
3451: || 'p_api_version = '|| '1.0'
3452: || 'p_rcv_transaction_id = ' || p_rcv_events_tbl(i).rcv_transaction_id
3453: || 'p_po_distribution_id = ' || p_rcv_events_tbl(i).po_distribution_id
3454: || 'p_accounting_event_id = ' || l_accounting_event_id;
3455: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3456: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3457: END IF;
3458:
3459: PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg (
3464: p_rcv_transaction_id => p_rcv_events_tbl(i).rcv_transaction_id,
3465: p_po_distribution_id => p_rcv_events_tbl(i).po_distribution_id,
3466: p_accounting_event_id => l_accounting_event_id);
3467:
3468: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3469: l_api_message := 'PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg returned with '
3470: || 'x_return_status = '|| l_return_status
3471: || 'x_msg_count = ' || l_msg_count
3472: || 'x_msg_data = ' || l_msg_data;
3469: l_api_message := 'PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg returned with '
3470: || 'x_return_status = '|| l_return_status
3471: || 'x_msg_count = ' || l_msg_count
3472: || 'x_msg_data = ' || l_msg_data;
3473: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3474: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3475: END IF;
3476:
3477: IF l_return_status <> FND_API.g_ret_sts_success THEN
3475: END IF;
3476:
3477: IF l_return_status <> FND_API.g_ret_sts_success THEN
3478: l_api_message := 'Error in PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg API';
3479: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3480: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3481: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3482: END IF;
3483: RAISE FND_API.g_exc_unexpected_error;
3476:
3477: IF l_return_status <> FND_API.g_ret_sts_success THEN
3478: l_api_message := 'Error in PA_PO_INTEGRATION_UTILS.Update_PA_Addition_Flg API';
3479: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3480: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3481: ,'Insert_RAEEvents : '||l_stmt_num||' : '||l_api_message);
3482: END IF;
3483: RAISE FND_API.g_exc_unexpected_error;
3484: END IF;
3497: FND_MSG_PUB.Count_And_Get (
3498: p_count => x_msg_count,
3499: p_data => x_msg_data );
3500:
3501: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3502: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3503: ,'Insert_RAEEvents >>');
3504: END IF;
3505:
3498: p_count => x_msg_count,
3499: p_data => x_msg_data );
3500:
3501: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3502: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3503: ,'Insert_RAEEvents >>');
3504: END IF;
3505:
3506:
3524: WHEN OTHERS THEN
3525: ROLLBACK TO Insert_RAEEvents_PVT;
3526: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3527:
3528: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3529: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3530: ,'Insert_RAEEvents : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3531: END IF;
3532:
3525: ROLLBACK TO Insert_RAEEvents_PVT;
3526: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3527:
3528: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3529: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3530: ,'Insert_RAEEvents : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3531: END IF;
3532:
3533: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3606: SAVEPOINT Check_EncumbranceFlag_PVT;
3607:
3608: l_stmt_num := 0;
3609:
3610: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3611: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3612: ,'Check_EncumbranceFlag <<');
3613: END IF;
3614:
3607:
3608: l_stmt_num := 0;
3609:
3610: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3611: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.begin'
3612: ,'Check_EncumbranceFlag <<');
3613: END IF;
3614:
3615: -- Standard call to check for call compatibility
3638: x_encumbrance_flag := l_encumbrance_flag;
3639: x_ussgl_option := NVL(FND_PROFILE.VALUE('USSGL_OPTION'),'N');
3640:
3641:
3642: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3643: l_api_message := 'Encumbrance Flag : '||x_encumbrance_flag||
3644: ' Ussgl Option : '||x_ussgl_option;
3645: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3646: ,l_api_message);
3641:
3642: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3643: l_api_message := 'Encumbrance Flag : '||x_encumbrance_flag||
3644: ' Ussgl Option : '||x_ussgl_option;
3645: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
3646: ,l_api_message);
3647: END IF;
3648:
3649:
3656: FND_MSG_PUB.Count_And_Get (
3657: p_count => x_msg_count,
3658: p_data => x_msg_data );
3659:
3660: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3661: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3662: ,'Check_EncumbranceFlag >>');
3663: END IF;
3664:
3657: p_count => x_msg_count,
3658: p_data => x_msg_data );
3659:
3660: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3661: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD || '.'||l_api_name||'.end'
3662: ,'Check_EncumbranceFlag >>');
3663: END IF;
3664:
3665:
3682: WHEN OTHERS THEN
3683: ROLLBACK TO Check_EncumbranceFlag_PVT;
3684: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3685:
3686: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3687: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3688: ,'Check_EncumbranceFlag : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3689: END IF;
3690:
3683: ROLLBACK TO Check_EncumbranceFlag_PVT;
3684: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3685:
3686: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3687: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD || '.'||l_api_name||l_stmt_num
3688: ,'Check_EncumbranceFlag : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
3689: END IF;
3690:
3691: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3765: SAVEPOINT Insert_MMTEvents_PVT;
3766:
3767: l_stmt_num := 0;
3768:
3769: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3770: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.begin'
3771: ,'Insert_MMTEvents <<');
3772: END IF;
3773:
3766:
3767: l_stmt_num := 0;
3768:
3769: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3770: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.begin'
3771: ,'Insert_MMTEvents <<');
3772: END IF;
3773:
3774: -- Standard call to check for call compatibility
4061:
4062: l_ctr := p_rcv_events_tbl.NEXT(l_ctr);
4063: END LOOP;
4064:
4065: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4066: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
4067: ,'Creating Logical Transactions in MMT');
4068: END IF;
4069:
4062: l_ctr := p_rcv_events_tbl.NEXT(l_ctr);
4063: END LOOP;
4064:
4065: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4066: FND_LOG.string(FND_LOG.LEVEL_EVENT,G_LOG_HEAD||'.'||l_api_name||'.'||l_stmt_num
4067: ,'Creating Logical Transactions in MMT');
4068: END IF;
4069:
4070: l_stmt_num := 150;
4088: IF FND_API.to_Boolean(p_commit) THEN
4089: COMMIT WORK;
4090: END IF;
4091:
4092: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4093: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.end'
4094: ,'Insert_MMTEvents >>');
4095: END IF;
4096:
4089: COMMIT WORK;
4090: END IF;
4091:
4092: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4093: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||l_api_name||'.end'
4094: ,'Insert_MMTEvents >>');
4095: END IF;
4096:
4097: EXCEPTION
4100: ROLLBACK TO Insert_MMTEvents_PVT;
4101: x_return_status := FND_API.g_ret_sts_unexp_error ;
4102: l_api_message := 'Unexpected event in element '||to_char(l_ctr)||
4103: ' of input parameter p_rcv_events_tbl';
4104: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4105: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4106: l_api_message);
4107: END IF;
4108: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4101: x_return_status := FND_API.g_ret_sts_unexp_error ;
4102: l_api_message := 'Unexpected event in element '||to_char(l_ctr)||
4103: ' of input parameter p_rcv_events_tbl';
4104: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4105: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4106: l_api_message);
4107: END IF;
4108: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4109: FND_MSG_PUB.add_exc_msg
4118: WHEN FND_API.g_exc_error THEN
4119: ROLLBACK TO Insert_MMTEvents_PVT;
4120: x_return_status := FND_API.g_ret_sts_error;
4121: l_api_message := 'Call to procedure failed';
4122: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4123: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4124: l_api_message);
4125: END IF;
4126: FND_MSG_PUB.count_and_get
4119: ROLLBACK TO Insert_MMTEvents_PVT;
4120: x_return_status := FND_API.g_ret_sts_error;
4121: l_api_message := 'Call to procedure failed';
4122: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4123: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4124: l_api_message);
4125: END IF;
4126: FND_MSG_PUB.count_and_get
4127: ( p_count => x_msg_count
4131: WHEN FND_API.g_exc_unexpected_error THEN
4132: ROLLBACK TO Insert_MMTEvents_PVT;
4133: x_return_status := FND_API.g_ret_sts_unexp_error;
4134: l_api_message := 'Wrong version #, expecting version '||to_char(l_api_version);
4135: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4136: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4137: l_api_message);
4138: END IF;
4139: FND_MSG_PUB.count_and_get
4132: ROLLBACK TO Insert_MMTEvents_PVT;
4133: x_return_status := FND_API.g_ret_sts_unexp_error;
4134: l_api_message := 'Wrong version #, expecting version '||to_char(l_api_version);
4135: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4136: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4137: l_api_message);
4138: END IF;
4139: FND_MSG_PUB.count_and_get
4140: ( p_count => x_msg_count
4144: WHEN OTHERS THEN
4145: ROLLBACK TO Insert_MMTEvents_PVT;
4146: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4147: l_api_message := 'Unexpected Error: '||l_stmt_num||': '||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
4148: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4149: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4150: l_api_message);
4151: END IF;
4152: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4145: ROLLBACK TO Insert_MMTEvents_PVT;
4146: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4147: l_api_message := 'Unexpected Error: '||l_stmt_num||': '||to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
4148: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4149: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4150: l_api_message);
4151: END IF;
4152: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4153: FND_MSG_PUB.add_exc_msg
4241:
4242: -- Standard start of API savepoint
4243: SAVEPOINT Create_MMTRecord_PVT;
4244:
4245: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4246: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||'.'||l_api_name||'.begin'
4247: ,'Create_MMTRecord <<');
4248: END IF;
4249:
4242: -- Standard start of API savepoint
4243: SAVEPOINT Create_MMTRecord_PVT;
4244:
4245: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4246: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||'.'||l_api_name||'.begin'
4247: ,'Create_MMTRecord <<');
4248: END IF;
4249:
4250: -- Standard call to check for call compatibility
4461: FND_MSG_PUB.Count_And_Get (
4462: p_count => x_msg_count,
4463: p_data => x_msg_data );
4464:
4465: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4466: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||'.'||l_api_name||'.end'
4467: ,'Create_MMTRecord >>');
4468: END IF;
4469:
4462: p_count => x_msg_count,
4463: p_data => x_msg_data );
4464:
4465: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4466: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,G_LOG_HEAD ||'.'||l_api_name||'.end'
4467: ,'Create_MMTRecord >>');
4468: END IF;
4469:
4470: EXCEPTION
4494: WHEN invalid_txn_type THEN
4495: ROLLBACK TO Create_MMTRecord_PVT;
4496: x_return_status := FND_API.g_ret_sts_error ;
4497: l_api_message := 'Unexpected transaction type passed in: '||to_char(p_txn_type_id);
4498: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4499: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4500: l_api_message);
4501: END IF;
4502: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
4495: ROLLBACK TO Create_MMTRecord_PVT;
4496: x_return_status := FND_API.g_ret_sts_error ;
4497: l_api_message := 'Unexpected transaction type passed in: '||to_char(p_txn_type_id);
4498: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4499: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||l_api_name||'.'||l_stmt_num,
4500: l_api_message);
4501: END IF;
4502: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
4503: FND_MSG_PUB.add_exc_msg
4511:
4512: WHEN NO_DATA_FOUND THEN
4513: ROLLBACK TO Create_MMTRecord_PVT;
4514: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
4515: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4516: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||'.'||l_api_name||'.'||l_stmt_num,
4517: l_api_message);
4518: END IF;
4519: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
4512: WHEN NO_DATA_FOUND THEN
4513: ROLLBACK TO Create_MMTRecord_PVT;
4514: X_RETURN_STATUS := fnd_api.g_ret_sts_error;
4515: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4516: FND_LOG.string(FND_LOG.LEVEL_ERROR,G_LOG_HEAD ||'.'||l_api_name||'.'||l_stmt_num,
4517: l_api_message);
4518: END IF;
4519: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
4520: THEN
4531: WHEN OTHERS THEN
4532: ROLLBACK TO Create_MMTRecord_PVT;
4533: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4534: l_api_message := to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
4535: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4536: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||'.'||l_api_name||'.'||l_stmt_num
4537: ,'Create_MMTRecord : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
4538: END IF;
4539: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
4532: ROLLBACK TO Create_MMTRecord_PVT;
4533: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4534: l_api_message := to_char(SQLCODE)||'- '|| substrb(SQLERRM,1,100);
4535: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4536: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED,G_LOG_HEAD ||'.'||l_api_name||'.'||l_stmt_num
4537: ,'Create_MMTRecord : '||l_stmt_num||' : '||substr(SQLERRM,1,200));
4538: END IF;
4539: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)
4540: THEN