[Home] [Help]
11: -- Pre-reqs :
12: -- Parameters :
13: -- IN : p_api_version IN NUMBER Required
14: -- p_init_msg_list IN VARCHAR2 Optional
15: -- Default = FND_API.G_FALSE
16: -- p_commit IN VARCHAR2 Optional
17: -- Default = FND_API.G_FALSE
18: -- p_validation_level IN NUMBER Optional
19: -- Default = FND_API.G_VALID_LEVEL_FULL
13: -- IN : p_api_version IN NUMBER Required
14: -- p_init_msg_list IN VARCHAR2 Optional
15: -- Default = FND_API.G_FALSE
16: -- p_commit IN VARCHAR2 Optional
17: -- Default = FND_API.G_FALSE
18: -- p_validation_level IN NUMBER Optional
19: -- Default = FND_API.G_VALID_LEVEL_FULL
20: -- p_event_source IN VARCHAR2 Required
21: -- p_event_type_id IN NUMBER Required
15: -- Default = FND_API.G_FALSE
16: -- p_commit IN VARCHAR2 Optional
17: -- Default = FND_API.G_FALSE
18: -- p_validation_level IN NUMBER Optional
19: -- Default = FND_API.G_VALID_LEVEL_FULL
20: -- p_event_source IN VARCHAR2 Required
21: -- p_event_type_id IN NUMBER Required
22: -- p_rcv_transaction_id IN NUMBER Optional
23: -- p_inv_distribution_id IN NUMBER Optional
84: ) IS
85: l_api_name CONSTANT VARCHAR2(30) := 'Seed_RAEEvent';
86: l_api_version CONSTANT NUMBER := 1.0;
87:
88: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
89: l_msg_count NUMBER := 0;
90: l_msg_data VARCHAR2(8000) := '';
91: l_stmt_num NUMBER := 0;
92: l_api_message VARCHAR2(1000);
143: ,'Seed_RAEEvent <<');
144: END IF;
145:
146: -- Standard call to check for call compatibility
147: IF NOT FND_API.Compatible_API_Call (
148: l_api_version,
149: p_api_version,
150: l_api_name,
151: G_PKG_NAME ) THEN
148: l_api_version,
149: p_api_version,
150: l_api_name,
151: G_PKG_NAME ) THEN
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: END IF;
154:
155: -- Initialize message list if p_init_msg_list is set to TRUE
156: IF FND_API.to_Boolean(p_init_msg_list) THEN
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: END IF;
154:
155: -- Initialize message list if p_init_msg_list is set to TRUE
156: IF FND_API.to_Boolean(p_init_msg_list) THEN
157: FND_MSG_PUB.initialize;
158: END IF;
159:
160: -- Initialize API return status to success
157: FND_MSG_PUB.initialize;
158: END IF;
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||
351: x_msg_data => l_msg_data,
352: p_rcv_sob_id => l_rcv_event.set_of_books_id,
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);
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;
363:
364: END IF;
365: END IF;
392: x_msg_count => l_msg_count,
393: x_msg_data => l_msg_data,
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);
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;
404:
405: l_rcv_event.transaction_amount := l_transaction_amount;
406: ELSE
434: x_unit_landed_cost => l_unit_landed_cost,
435: x_currency_code => l_currency_code,
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);
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;
446:
447: l_rcv_event.intercompany_pricing_option := l_ic_pricing_option;
448: l_rcv_event.currency_code := l_currency_code;
468: x_msg_data => l_msg_data,
469: p_rcv_event => l_rcv_event,
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);
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;
480:
481: l_rcv_event.source_doc_quantity := l_source_doc_quantity;
482:
510: x_unit_nr_tax => l_unit_nr_tax,
511: x_unit_rec_tax => l_unit_rec_tax,
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);
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;
522:
523: l_rcv_event.unit_nr_tax := l_unit_nr_tax;
524: l_rcv_event.unit_rec_tax := l_unit_rec_tax;
541: x_transaction_qty => l_transaction_quantity,
542: x_primary_uom => l_primary_uom,
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);
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;
553:
554: l_rcv_event.transaction_quantity := l_transaction_quantity;
555: l_rcv_event.primary_uom := l_primary_uom;
575: x_currency_conversion_rate => l_currency_conversion_rate,
576: x_currency_conversion_date => l_currency_conversion_date,
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);
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;
587:
588: l_rcv_event.currency_code := l_currency_code;
589: l_rcv_event.currency_conversion_rate := l_currency_conversion_rate;
611: x_debit_acct_id => l_debit_acct_id,
612: x_ic_cogs_acct_id => l_ic_cogs_acct_id,
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);
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;
623:
624: l_rcv_event.credit_account_id := l_credit_acct_id;
625: l_rcv_event.debit_account_id := l_debit_acct_id;
630:
631: x_rcv_event := l_rcv_event;
632:
633: --- Standard check of p_commit
634: IF FND_API.to_Boolean(p_commit) THEN
635: COMMIT WORK;
636: END IF;
637:
638: -- Standard Call to get message count and if count = 1, get message info
645: ,'Seed_RAEEvent >>');
646: END IF;
647:
648: EXCEPTION
649: WHEN FND_API.g_exc_error THEN
650: ROLLBACK TO Seed_RAEEvent_PVT;
651: x_return_status := FND_API.g_ret_sts_error;
652: FND_MSG_PUB.count_and_get
653: ( p_count => x_msg_count
647:
648: EXCEPTION
649: WHEN FND_API.g_exc_error THEN
650: ROLLBACK TO Seed_RAEEvent_PVT;
651: x_return_status := FND_API.g_ret_sts_error;
652: FND_MSG_PUB.count_and_get
653: ( p_count => x_msg_count
654: , p_data => x_msg_data
655: );
652: FND_MSG_PUB.count_and_get
653: ( p_count => x_msg_count
654: , p_data => x_msg_data
655: );
656: WHEN FND_API.g_exc_unexpected_error THEN
657:
658: ROLLBACK TO Seed_RAEEvent_PVT;
659: x_return_status := FND_API.g_ret_sts_unexp_error ;
660: FND_MSG_PUB.count_and_get
655: );
656: WHEN FND_API.g_exc_unexpected_error THEN
657:
658: ROLLBACK TO Seed_RAEEvent_PVT;
659: x_return_status := FND_API.g_ret_sts_unexp_error ;
660: FND_MSG_PUB.count_and_get
661: ( p_count => x_msg_count
662: , p_data => x_msg_data
663: );
663: );
664:
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));
692: -- Pre-reqs :
693: -- Parameters :
694: -- IN : p_api_version IN NUMBER Required
695: -- p_init_msg_list IN VARCHAR2 Optional
696: -- Default = FND_API.G_FALSE
697: -- p_commit IN VARCHAR2 Optional
698: -- Default = FND_API.G_FALSE
699: -- p_validation_level IN NUMBER Optional
700: -- Default = FND_API.G_VALID_LEVEL_FULL
694: -- IN : p_api_version IN NUMBER Required
695: -- p_init_msg_list IN VARCHAR2 Optional
696: -- Default = FND_API.G_FALSE
697: -- p_commit IN VARCHAR2 Optional
698: -- Default = FND_API.G_FALSE
699: -- p_validation_level IN NUMBER Optional
700: -- Default = FND_API.G_VALID_LEVEL_FULL
701: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
702: --
696: -- Default = FND_API.G_FALSE
697: -- p_commit IN VARCHAR2 Optional
698: -- Default = FND_API.G_FALSE
699: -- p_validation_level IN NUMBER Optional
700: -- Default = FND_API.G_VALID_LEVEL_FULL
701: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
702: --
703: -- OUT : x_return_status OUT VARCHAR2(1)
704: -- x_msg_count OUT NUMBER
725: ) IS
726: l_api_name CONSTANT VARCHAR2(30) := 'Get_TransactionAmount';
727: l_api_version CONSTANT NUMBER := 1.0;
728:
729: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
730: l_msg_count NUMBER := 0;
731: l_msg_data VARCHAR2(8000) := '';
732: l_stmt_num NUMBER := 0;
733: l_api_message VARCHAR2(1000);
752: ,'Get_TransactionAmount <<');
753: END IF;
754:
755: -- Standard call to check for call compatibility
756: IF NOT FND_API.Compatible_API_Call (
757: l_api_version,
758: p_api_version,
759: l_api_name,
760: G_PKG_NAME ) THEN
757: l_api_version,
758: p_api_version,
759: l_api_name,
760: G_PKG_NAME ) THEN
761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
762: END IF;
763:
764: -- Initialize message list if p_init_msg_list is set to TRUE
765: IF FND_API.to_Boolean(p_init_msg_list) THEN
761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
762: END IF;
763:
764: -- Initialize message list if p_init_msg_list is set to TRUE
765: IF FND_API.to_Boolean(p_init_msg_list) THEN
766: FND_MSG_PUB.initialize;
767: END IF;
768:
769: -- Initialize API return status to success
766: FND_MSG_PUB.initialize;
767: END IF;
768:
769: -- Initialize API return status to success
770: x_return_status := FND_API.G_RET_STS_SUCCESS;
771:
772: -- For service line types, only the source types of RECEIVING and INVOICEMATCH
773: -- are valid. Retroactive price changes on service line types have no accounting
774: -- impact.
882:
883:
884:
885: --- Standard check of p_commit
886: IF FND_API.to_Boolean(p_commit) THEN
887: COMMIT WORK;
888: END IF;
889:
890: -- Standard Call to get message count and if count = 1, get message info
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
901: ROLLBACK TO Get_TransactionAmount_PVT;
902: x_return_status := FND_API.g_ret_sts_error;
903: FND_MSG_PUB.count_and_get
904: ( p_count => x_msg_count
898: END IF;
899: EXCEPTION
900: WHEN FND_API.g_exc_error THEN
901: ROLLBACK TO Get_TransactionAmount_PVT;
902: x_return_status := FND_API.g_ret_sts_error;
903: FND_MSG_PUB.count_and_get
904: ( p_count => x_msg_count
905: , p_data => x_msg_data
906: );
903: FND_MSG_PUB.count_and_get
904: ( p_count => x_msg_count
905: , p_data => x_msg_data
906: );
907: WHEN FND_API.g_exc_unexpected_error THEN
908: ROLLBACK TO Get_TransactionAmount_PVT;
909: x_return_status := FND_API.g_ret_sts_unexp_error ;
910: FND_MSG_PUB.count_and_get
911: ( p_count => x_msg_count
905: , p_data => x_msg_data
906: );
907: WHEN FND_API.g_exc_unexpected_error THEN
908: ROLLBACK TO Get_TransactionAmount_PVT;
909: x_return_status := FND_API.g_ret_sts_unexp_error ;
910: FND_MSG_PUB.count_and_get
911: ( p_count => x_msg_count
912: , p_data => x_msg_data
913: );
913: );
914:
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));
946: -- Pre-reqs :
947: -- Parameters :
948: -- IN : p_api_version IN NUMBER Required
949: -- p_init_msg_list IN VARCHAR2 Optional
950: -- Default = FND_API.G_FALSE
951: -- p_commit IN VARCHAR2 Optional
952: -- Default = FND_API.G_FALSE
953: -- p_validation_level IN NUMBER Optional
954: -- Default = FND_API.G_VALID_LEVEL_FULL
948: -- IN : p_api_version IN NUMBER Required
949: -- p_init_msg_list IN VARCHAR2 Optional
950: -- Default = FND_API.G_FALSE
951: -- p_commit IN VARCHAR2 Optional
952: -- Default = FND_API.G_FALSE
953: -- p_validation_level IN NUMBER Optional
954: -- Default = FND_API.G_VALID_LEVEL_FULL
955: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
956: --
950: -- Default = FND_API.G_FALSE
951: -- p_commit IN VARCHAR2 Optional
952: -- Default = FND_API.G_FALSE
953: -- p_validation_level IN NUMBER Optional
954: -- Default = FND_API.G_VALID_LEVEL_FULL
955: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
956: --
957: -- OUT : x_return_status OUT VARCHAR2(1)
958: -- x_msg_count OUT NUMBER
980: ) IS
981: l_api_name CONSTANT VARCHAR2(30) := 'Get_Quantity';
982: l_api_version CONSTANT NUMBER := 1.0;
983:
984: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
985: l_msg_count NUMBER := 0;
986: l_msg_data VARCHAR2(8000) := '';
987: l_stmt_num NUMBER := 0;
988: l_api_message VARCHAR2(1000);
1009: END IF;
1010:
1011:
1012: -- Standard call to check for call compatibility
1013: IF NOT FND_API.Compatible_API_Call (
1014: l_api_version,
1015: p_api_version,
1016: l_api_name,
1017: G_PKG_NAME ) THEN
1014: l_api_version,
1015: p_api_version,
1016: l_api_name,
1017: G_PKG_NAME ) THEN
1018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1019: END IF;
1020:
1021: -- Initialize message list if p_init_msg_list is set to TRUE
1022: IF FND_API.to_Boolean(p_init_msg_list) THEN
1018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1019: END IF;
1020:
1021: -- Initialize message list if p_init_msg_list is set to TRUE
1022: IF FND_API.to_Boolean(p_init_msg_list) THEN
1023: FND_MSG_PUB.initialize;
1024: END IF;
1025:
1026: -- Initialize API return status to success
1023: FND_MSG_PUB.initialize;
1024: END IF;
1025:
1026: -- Initialize API return status to success
1027: x_return_status := FND_API.G_RET_STS_SUCCESS;
1028:
1029: l_stmt_num := 10;
1030:
1031: IF (p_rcv_event.event_source = 'RECEIVING') THEN
1155: END IF;
1156:
1157:
1158: --- Standard check of p_commit
1159: IF FND_API.to_Boolean(p_commit) THEN
1160: COMMIT WORK;
1161: END IF;
1162:
1163: -- Standard Call to get message count and if count = 1, get message info
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
1174: ROLLBACK TO Get_Quantity_PVT;
1175: x_return_status := FND_API.g_ret_sts_error;
1176: FND_MSG_PUB.count_and_get
1177: ( p_count => x_msg_count
1171: END IF;
1172: EXCEPTION
1173: WHEN FND_API.g_exc_error THEN
1174: ROLLBACK TO Get_Quantity_PVT;
1175: x_return_status := FND_API.g_ret_sts_error;
1176: FND_MSG_PUB.count_and_get
1177: ( p_count => x_msg_count
1178: , p_data => x_msg_data
1179: );
1176: FND_MSG_PUB.count_and_get
1177: ( p_count => x_msg_count
1178: , p_data => x_msg_data
1179: );
1180: WHEN FND_API.g_exc_unexpected_error THEN
1181: ROLLBACK TO Get_Quantity_PVT;
1182: x_return_status := FND_API.g_ret_sts_unexp_error ;
1183: FND_MSG_PUB.count_and_get
1184: ( p_count => x_msg_count
1178: , p_data => x_msg_data
1179: );
1180: WHEN FND_API.g_exc_unexpected_error THEN
1181: ROLLBACK TO Get_Quantity_PVT;
1182: x_return_status := FND_API.g_ret_sts_unexp_error ;
1183: FND_MSG_PUB.count_and_get
1184: ( p_count => x_msg_count
1185: , p_data => x_msg_data
1186: );
1186: );
1187:
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));
1216: -- Pre-reqs :
1217: -- Parameters :
1218: -- IN : p_api_version IN NUMBER Required
1219: -- p_init_msg_list IN VARCHAR2 Optional
1220: -- Default = FND_API.G_FALSE
1221: -- p_commit IN VARCHAR2 Optional
1222: -- Default = FND_API.G_FALSE
1223: -- p_validation_level IN NUMBER Optional
1224: -- Default = FND_API.G_VALID_LEVEL_FULL
1218: -- IN : p_api_version IN NUMBER Required
1219: -- p_init_msg_list IN VARCHAR2 Optional
1220: -- Default = FND_API.G_FALSE
1221: -- p_commit IN VARCHAR2 Optional
1222: -- Default = FND_API.G_FALSE
1223: -- p_validation_level IN NUMBER Optional
1224: -- Default = FND_API.G_VALID_LEVEL_FULL
1225: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
1226: -- p_lcm_flag IN VARCHAR2 Optional
1220: -- Default = FND_API.G_FALSE
1221: -- p_commit IN VARCHAR2 Optional
1222: -- Default = FND_API.G_FALSE
1223: -- p_validation_level IN NUMBER Optional
1224: -- Default = FND_API.G_VALID_LEVEL_FULL
1225: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
1226: -- p_lcm_flag IN VARCHAR2 Optional
1227: --
1228: -- OUT : x_return_status OUT VARCHAR2(1)
1264: ) IS
1265: l_api_name CONSTANT VARCHAR2(30) := 'Get_UnitPrice';
1266: l_api_version CONSTANT NUMBER := 1.0;
1267:
1268: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1269: l_msg_count NUMBER := 0;
1270: l_msg_data VARCHAR2(8000) := '';
1271: l_stmt_num NUMBER := 0;
1272: l_api_message VARCHAR2(1000);
1296: ,'Get_UnitPrice <<');
1297: END IF;
1298:
1299: -- Standard call to check for call compatibility
1300: IF NOT FND_API.Compatible_API_Call (
1301: l_api_version,
1302: p_api_version,
1303: l_api_name,
1304: G_PKG_NAME ) THEN
1301: l_api_version,
1302: p_api_version,
1303: l_api_name,
1304: G_PKG_NAME ) THEN
1305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1306: END IF;
1307:
1308: -- Initialize message list if p_init_msg_list is set to TRUE
1309: IF FND_API.to_Boolean(p_init_msg_list) THEN
1305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1306: END IF;
1307:
1308: -- Initialize message list if p_init_msg_list is set to TRUE
1309: IF FND_API.to_Boolean(p_init_msg_list) THEN
1310: FND_MSG_PUB.initialize;
1311: END IF;
1312:
1313: -- Initialize API return status to success
1310: FND_MSG_PUB.initialize;
1311: END IF;
1312:
1313: -- Initialize API return status to success
1314: x_return_status := FND_API.G_RET_STS_SUCCESS;
1315: x_incr_transfer_price := 0;
1316: x_incr_currency_code := NULL;
1317: /* Support for Landed Cost Management */
1318: x_unit_landed_cost := NULL;
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:
1359: -- Use Inventory Asset Flag in the organization where the physical event occurred. This
1360: -- would be the ship to organization id. Using POLL.ship_to_organization_id so it will be
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:
1380: IF(l_asset_flag = 'Y') THEN
1381: l_ic_pricing_option := p_asset_item_pricing_option;
1454: p_transaction_id => p_rcv_event.rcv_transaction_id,
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);
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;
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||
1517:
1518:
1519:
1520: -- Standard check of p_commit
1521: IF FND_API.to_Boolean(p_commit) THEN
1522: COMMIT WORK;
1523: END IF;
1524:
1525: -- Standard Call to get message count and if count = 1, get message info
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
1536: ROLLBACK TO Get_UnitPrice_PVT;
1537: x_return_status := FND_API.g_ret_sts_error;
1538: FND_MSG_PUB.count_and_get
1539: ( p_count => x_msg_count
1533: END IF;
1534: EXCEPTION
1535: WHEN FND_API.g_exc_error THEN
1536: ROLLBACK TO Get_UnitPrice_PVT;
1537: x_return_status := FND_API.g_ret_sts_error;
1538: FND_MSG_PUB.count_and_get
1539: ( p_count => x_msg_count
1540: , p_data => x_msg_data
1541: );
1538: FND_MSG_PUB.count_and_get
1539: ( p_count => x_msg_count
1540: , p_data => x_msg_data
1541: );
1542: WHEN FND_API.g_exc_unexpected_error THEN
1543: ROLLBACK TO Get_UnitPrice_PVT;
1544: x_return_status := FND_API.g_ret_sts_unexp_error ;
1545: FND_MSG_PUB.count_and_get
1546: ( p_count => x_msg_count
1540: , p_data => x_msg_data
1541: );
1542: WHEN FND_API.g_exc_unexpected_error THEN
1543: ROLLBACK TO Get_UnitPrice_PVT;
1544: x_return_status := FND_API.g_ret_sts_unexp_error ;
1545: FND_MSG_PUB.count_and_get
1546: ( p_count => x_msg_count
1547: , p_data => x_msg_data
1548: );
1548: );
1549:
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));
1576: -- Pre-reqs :
1577: -- Parameters :
1578: -- IN : p_api_version IN NUMBER Required
1579: -- p_init_msg_list IN VARCHAR2 Optional
1580: -- Default = FND_API.G_FALSE
1581: -- p_commit IN VARCHAR2 Optional
1582: -- Default = FND_API.G_FALSE
1583: -- p_validation_level IN NUMBER Optional
1584: -- Default = FND_API.G_VALID_LEVEL_FULL
1578: -- IN : p_api_version IN NUMBER Required
1579: -- p_init_msg_list IN VARCHAR2 Optional
1580: -- Default = FND_API.G_FALSE
1581: -- p_commit IN VARCHAR2 Optional
1582: -- Default = FND_API.G_FALSE
1583: -- p_validation_level IN NUMBER Optional
1584: -- Default = FND_API.G_VALID_LEVEL_FULL
1585: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
1586: --
1580: -- Default = FND_API.G_FALSE
1581: -- p_commit IN VARCHAR2 Optional
1582: -- Default = FND_API.G_FALSE
1583: -- p_validation_level IN NUMBER Optional
1584: -- Default = FND_API.G_VALID_LEVEL_FULL
1585: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
1586: --
1587: -- OUT : x_return_status OUT VARCHAR2(1)
1588: -- x_msg_count OUT NUMBER
1617: ) IS
1618: l_api_name CONSTANT VARCHAR2(30) := 'Get_UnitTax';
1619: l_api_version CONSTANT NUMBER := 1.0;
1620:
1621: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1622: l_msg_count NUMBER := 0;
1623: l_msg_data VARCHAR2(8000) := '';
1624: l_stmt_num NUMBER := 0;
1625: l_api_message VARCHAR2(1000);
1653: ,'Get_UnitTax <<');
1654: END IF;
1655:
1656: -- Standard call to check for call compatibility
1657: IF NOT FND_API.Compatible_API_Call (
1658: l_api_version,
1659: p_api_version,
1660: l_api_name,
1661: G_PKG_NAME ) THEN
1658: l_api_version,
1659: p_api_version,
1660: l_api_name,
1661: G_PKG_NAME ) THEN
1662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1663: END IF;
1664:
1665: -- Initialize message list if p_init_msg_list is set to TRUE
1666: IF FND_API.to_Boolean(p_init_msg_list) THEN
1662: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1663: END IF;
1664:
1665: -- Initialize message list if p_init_msg_list is set to TRUE
1666: IF FND_API.to_Boolean(p_init_msg_list) THEN
1667: FND_MSG_PUB.initialize;
1668: END IF;
1669:
1670: -- Initialize API return status to success
1667: FND_MSG_PUB.initialize;
1668: END IF;
1669:
1670: -- Initialize API return status to success
1671: x_return_status := FND_API.G_RET_STS_SUCCESS;
1672: x_unit_nr_tax := 0;
1673: x_unit_rec_tax := 0;
1674: x_prior_nr_tax := 0;
1675: x_prior_rec_tax := 0;
1695: x_non_recoverable_tax => l_non_recoverable_tax,
1696: x_old_recoverable_tax => l_old_recoverable_tax,
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);
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;
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||
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;
1749:
1750:
1751: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1808: END IF;
1809:
1810:
1811: --- Standard check of p_commit
1812: IF FND_API.to_Boolean(p_commit) THEN
1813: COMMIT WORK;
1814: END IF;
1815:
1816: -- Standard Call to get message count and if count = 1, get message info
1824: END IF;
1825:
1826:
1827: EXCEPTION
1828: WHEN FND_API.g_exc_error THEN
1829: ROLLBACK TO Get_UnitTax_PVT;
1830: x_return_status := FND_API.g_ret_sts_error;
1831: FND_MSG_PUB.count_and_get
1832: ( p_count => x_msg_count
1826:
1827: EXCEPTION
1828: WHEN FND_API.g_exc_error THEN
1829: ROLLBACK TO Get_UnitTax_PVT;
1830: x_return_status := FND_API.g_ret_sts_error;
1831: FND_MSG_PUB.count_and_get
1832: ( p_count => x_msg_count
1833: , p_data => x_msg_data
1834: );
1831: FND_MSG_PUB.count_and_get
1832: ( p_count => x_msg_count
1833: , p_data => x_msg_data
1834: );
1835: WHEN FND_API.g_exc_unexpected_error THEN
1836: ROLLBACK TO Get_UnitTax_PVT;
1837: x_return_status := FND_API.g_ret_sts_unexp_error ;
1838: FND_MSG_PUB.count_and_get
1839: ( p_count => x_msg_count
1833: , p_data => x_msg_data
1834: );
1835: WHEN FND_API.g_exc_unexpected_error THEN
1836: ROLLBACK TO Get_UnitTax_PVT;
1837: x_return_status := FND_API.g_ret_sts_unexp_error ;
1838: FND_MSG_PUB.count_and_get
1839: ( p_count => x_msg_count
1840: , p_data => x_msg_data
1841: );
1841: );
1842:
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));
1901: PROCEDURE Convert_UOM (
1902: P_API_VERSION IN NUMBER,
1903: P_INIT_MSG_LIST IN VARCHAR2,
1904: P_COMMIT IN VARCHAR2,
1905: P_VALIDATION_LEVEL IN NUMBER, -- := FND_API.G_VALID_LEVEL_FULL,
1906: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1907: X_MSG_COUNT OUT NOCOPY NUMBER,
1908: X_MSG_DATA OUT NOCOPY VARCHAR2,
1909: P_EVENT_REC IN RCV_SeedEvents_PVT.rcv_event_rec_type,
1931: BEGIN
1932:
1933: SAVEPOINT Convert_UOM_PVT;
1934: -- Initialize message list if p_init_msg_list is set to TRUE
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
1941: ,'Convert_UOM <<');
1942: END IF;
1943:
1944: -- Standard check for compatibility
1945: IF NOT FND_API.Compatible_API_Call (
1946: l_api_version,
1947: P_API_VERSION,
1948: l_api_name,
1949: G_PKG_NAME ) -- line 90
1947: P_API_VERSION,
1948: l_api_name,
1949: G_PKG_NAME ) -- line 90
1950: THEN
1951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1952: END IF;
1953:
1954: -- Initialize API return status to success
1955: x_return_status := FND_API.G_RET_STS_SUCCESS;
1951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1952: END IF;
1953:
1954: -- Initialize API return status to success
1955: x_return_status := FND_API.G_RET_STS_SUCCESS;
1956: x_msg_count := 0;
1957: x_msg_data := '';
1958:
1959: -- API body
2011: item_id => l_item_id,
2012: uom_rate => l_primary_uom_rate);
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);
2028: item_id => l_item_id,
2029: uom_rate => l_trx_uom_rate);
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);
2055:
2056: -- End of API body
2057:
2058: -- Standard check of P_COMMIT
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
2065: ,'Convert_UOM >>');
2066: END IF;
2067:
2068: EXCEPTION
2069: WHEN FND_API.g_exc_error THEN
2070: ROLLBACK TO Convert_UOM_PVT;
2071: x_return_status := FND_API.g_ret_sts_error;
2072: FND_MSG_PUB.count_and_get
2073: ( p_count => x_msg_count
2067:
2068: EXCEPTION
2069: WHEN FND_API.g_exc_error THEN
2070: ROLLBACK TO Convert_UOM_PVT;
2071: x_return_status := FND_API.g_ret_sts_error;
2072: FND_MSG_PUB.count_and_get
2073: ( p_count => x_msg_count
2074: , p_data => x_msg_data
2075: );
2073: ( p_count => x_msg_count
2074: , p_data => x_msg_data
2075: );
2076:
2077: WHEN FND_API.g_exc_unexpected_error THEN
2078: ROLLBACK TO Convert_UOM_PVT;
2079: x_return_status := FND_API.g_ret_sts_unexp_error;
2080: FND_MSG_PUB.count_and_get
2081: ( p_count => x_msg_count
2075: );
2076:
2077: WHEN FND_API.g_exc_unexpected_error THEN
2078: ROLLBACK TO Convert_UOM_PVT;
2079: x_return_status := FND_API.g_ret_sts_unexp_error;
2080: FND_MSG_PUB.count_and_get
2081: ( p_count => x_msg_count
2082: , p_data => x_msg_data
2083: );
2083: );
2084:
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);
2103: );
2104:
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);
2203:
2204: SAVEPOINT Get_Currency_PVT;
2205:
2206: -- Standard call to check for call compatibility
2207: IF NOT FND_API.Compatible_API_Call (
2208: l_api_version,
2209: p_api_version,
2210: l_api_name,
2211: G_PKG_NAME ) THEN
2208: l_api_version,
2209: p_api_version,
2210: l_api_name,
2211: G_PKG_NAME ) THEN
2212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2213: END IF;
2214:
2215: -- Initialize message list if p_init_msg_list is set to TRUE
2216: IF FND_API.to_Boolean(P_INIT_MSG_LIST) then
2212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2213: END IF;
2214:
2215: -- Initialize message list if p_init_msg_list is set to TRUE
2216: IF FND_API.to_Boolean(P_INIT_MSG_LIST) then
2217: FND_MSG_PUB.initialize;
2218: END IF;
2219:
2220:
2218: END IF;
2219:
2220:
2221: -- Initialize API return status to success
2222: x_return_status := FND_API.G_RET_STS_SUCCESS;
2223:
2224: -- API body
2225: l_stmt_num := 10;
2226:
2313:
2314: -- End of API body
2315:
2316: FND_MSG_PUB.Count_And_Get (
2317: p_encoded => FND_API.G_FALSE,
2318: p_count => X_MSG_COUNT,
2319: p_data => X_MSG_DATA );
2320:
2321:
2319: p_data => X_MSG_DATA );
2320:
2321:
2322: -- Standard check of P_COMMIT
2323: IF FND_API.to_Boolean(P_COMMIT) THEN
2324: COMMIT WORK;
2325: END IF;
2326:
2327:
2325: END IF;
2326:
2327:
2328: EXCEPTION
2329: WHEN FND_API.g_exc_error THEN
2330: ROLLBACK TO Get_Currency_PVT;
2331: x_return_status := FND_API.g_ret_sts_error;
2332: FND_MSG_PUB.count_and_get
2333: ( p_count => x_msg_count
2327:
2328: EXCEPTION
2329: WHEN FND_API.g_exc_error THEN
2330: ROLLBACK TO Get_Currency_PVT;
2331: x_return_status := FND_API.g_ret_sts_error;
2332: FND_MSG_PUB.count_and_get
2333: ( p_count => x_msg_count
2334: , p_data => x_msg_data
2335: );
2333: ( p_count => x_msg_count
2334: , p_data => x_msg_data
2335: );
2336:
2337: WHEN FND_API.g_exc_unexpected_error THEN
2338: ROLLBACK TO Get_Currency_PVT;
2339: x_return_status := FND_API.g_ret_sts_unexp_error ;
2340: FND_MSG_PUB.count_and_get
2341: ( p_count => x_msg_count
2335: );
2336:
2337: WHEN FND_API.g_exc_unexpected_error THEN
2338: ROLLBACK TO Get_Currency_PVT;
2339: x_return_status := FND_API.g_ret_sts_unexp_error ;
2340: FND_MSG_PUB.count_and_get
2341: ( p_count => x_msg_count
2342: , p_data => x_msg_data
2343: );
2343: );
2344:
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);
2364: p_data => X_MSG_DATA );
2365:
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);
2395: -- Pre-reqs :
2396: -- Parameters :
2397: -- IN : p_api_version IN NUMBER Required
2398: -- p_init_msg_list IN VARCHAR2 Optional
2399: -- Default = FND_API.G_FALSE
2400: -- p_commit IN VARCHAR2 Optional
2401: -- Default = FND_API.G_FALSE
2402: -- p_validation_level IN NUMBER Optional
2403: -- Default = FND_API.G_VALID_LEVEL_FULL
2397: -- IN : p_api_version IN NUMBER Required
2398: -- p_init_msg_list IN VARCHAR2 Optional
2399: -- Default = FND_API.G_FALSE
2400: -- p_commit IN VARCHAR2 Optional
2401: -- Default = FND_API.G_FALSE
2402: -- p_validation_level IN NUMBER Optional
2403: -- Default = FND_API.G_VALID_LEVEL_FULL
2404: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
2405: -- p_transaction_forward_flow_rec mtl_transaction_flow_rec_type,
2399: -- Default = FND_API.G_FALSE
2400: -- p_commit IN VARCHAR2 Optional
2401: -- Default = FND_API.G_FALSE
2402: -- p_validation_level IN NUMBER Optional
2403: -- Default = FND_API.G_VALID_LEVEL_FULL
2404: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
2405: -- p_transaction_forward_flow_rec mtl_transaction_flow_rec_type,
2406: -- p_transaction_reverse_flow_rec mtl_transaction_flow_rec_type,
2407: --
2441: ) IS
2442: l_api_name CONSTANT VARCHAR2(30) := 'Get_Accounts';
2443: l_api_version CONSTANT NUMBER := 1.0;
2444:
2445: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2446: l_msg_count NUMBER := 0;
2447: l_msg_data VARCHAR2(8000) := '';
2448: l_stmt_num NUMBER := 0;
2449: l_api_message VARCHAR2(1000);
2482:
2483: END IF;
2484:
2485: -- Standard call to check for call compatibility
2486: IF NOT FND_API.Compatible_API_Call (
2487: l_api_version,
2488: p_api_version,
2489: l_api_name,
2490: G_PKG_NAME ) THEN
2487: l_api_version,
2488: p_api_version,
2489: l_api_name,
2490: G_PKG_NAME ) THEN
2491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2492: END IF;
2493:
2494: -- Initialize message list if p_init_msg_list is set to TRUE
2495: IF FND_API.to_Boolean(p_init_msg_list) THEN
2491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2492: END IF;
2493:
2494: -- Initialize message list if p_init_msg_list is set to TRUE
2495: IF FND_API.to_Boolean(p_init_msg_list) THEN
2496: FND_MSG_PUB.initialize;
2497: END IF;
2498:
2499: -- Initialize API return status to success
2496: FND_MSG_PUB.initialize;
2497: END IF;
2498:
2499: -- Initialize API return status to success
2500: x_return_status := FND_API.G_RET_STS_SUCCESS;
2501: x_credit_acct_id := NULL;
2502: x_debit_acct_id := NULL;
2503: x_ic_cogs_acct_id := NULL;
2504: /* Support for Landed Cost Management */
2551:
2552: l_stmt_num := 30;
2553: PO_Accounting_GRP.build_offset_account
2554: (p_api_version => 1.0,
2555: p_init_msg_list => FND_API.G_FALSE,
2556: x_return_status => l_return_status,
2557: p_base_ccid => l_receiving_insp_acct_id,
2558: p_overlay_ccid => l_dest_pod_ccid,
2559: p_accounting_date =>sysdate,
2625: p_accounting_line_type => 'IC Cost Of Sales',
2626: p_org_id => p_rcv_event.org_id,
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);
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;
2637:
2638: IF(l_dist_acct_id = -1) THEN
2639: l_debit_acct_id := l_ic_coss_acct_id;
2695: p_accounting_line_type => 'IC Cost Of Sales',
2696: p_org_id => p_rcv_event.org_id,
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);
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;
2707:
2708: IF(l_dist_acct_id = -1) THEN
2709: l_credit_acct_id := l_ic_coss_acct_id;
2750: p_accounting_line_type => 'Retroprice Adjustment',
2751: p_org_id => p_rcv_event.org_id,
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);
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;
2762:
2763: IF(l_dist_acct_id = -1) THEN
2764: l_debit_acct_id := l_retroprice_adj_acct_id;
2796: p_accounting_line_type => 'Retroprice Adjustment',
2797: p_org_id => p_rcv_event.org_id,
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);
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;
2808:
2809: IF(l_dist_acct_id = -1) THEN
2810: l_debit_acct_id := l_retroprice_adj_acct_id;
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:
2891:
2892: -- Standard check of p_commit
2889: END IF;
2890:
2891:
2892: -- Standard check of p_commit
2893: IF FND_API.to_Boolean(p_commit) THEN
2894: COMMIT WORK;
2895: END IF;
2896:
2897: -- Standard Call to get message count and if count = 1, get message info
2905: END IF;
2906:
2907:
2908: EXCEPTION
2909: WHEN FND_API.g_exc_error THEN
2910: ROLLBACK TO Get_Accounts_PVT;
2911: x_return_status := FND_API.g_ret_sts_error;
2912: FND_MSG_PUB.count_and_get
2913: ( p_count => x_msg_count
2907:
2908: EXCEPTION
2909: WHEN FND_API.g_exc_error THEN
2910: ROLLBACK TO Get_Accounts_PVT;
2911: x_return_status := FND_API.g_ret_sts_error;
2912: FND_MSG_PUB.count_and_get
2913: ( p_count => x_msg_count
2914: , p_data => x_msg_data
2915: );
2912: FND_MSG_PUB.count_and_get
2913: ( p_count => x_msg_count
2914: , p_data => x_msg_data
2915: );
2916: WHEN FND_API.g_exc_unexpected_error THEN
2917: ROLLBACK TO Get_Accounts_PVT;
2918: x_return_status := FND_API.g_ret_sts_unexp_error ;
2919: FND_MSG_PUB.count_and_get
2920: ( p_count => x_msg_count
2914: , p_data => x_msg_data
2915: );
2916: WHEN FND_API.g_exc_unexpected_error THEN
2917: ROLLBACK TO Get_Accounts_PVT;
2918: x_return_status := FND_API.g_ret_sts_unexp_error ;
2919: FND_MSG_PUB.count_and_get
2920: ( p_count => x_msg_count
2921: , p_data => x_msg_data
2922: );
2922: );
2923:
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));
2951: -- Pre-reqs :
2952: -- Parameters :
2953: -- IN : p_api_version IN NUMBER Required
2954: -- p_init_msg_list IN VARCHAR2 Optional
2955: -- Default = FND_API.G_FALSE
2956: -- p_commit IN VARCHAR2 Optional
2957: -- Default = FND_API.G_FALSE
2958: -- p_validation_level IN NUMBER Optional
2959: -- Default = FND_API.G_VALID_LEVEL_FULL
2953: -- IN : p_api_version IN NUMBER Required
2954: -- p_init_msg_list IN VARCHAR2 Optional
2955: -- Default = FND_API.G_FALSE
2956: -- p_commit IN VARCHAR2 Optional
2957: -- Default = FND_API.G_FALSE
2958: -- p_validation_level IN NUMBER Optional
2959: -- Default = FND_API.G_VALID_LEVEL_FULL
2960: -- p_rcv_transaction_id IN NUMBER Required
2961: -- p_accounting_line_type IN VARCHAR2 Required
2955: -- Default = FND_API.G_FALSE
2956: -- p_commit IN VARCHAR2 Optional
2957: -- Default = FND_API.G_FALSE
2958: -- p_validation_level IN NUMBER Optional
2959: -- Default = FND_API.G_VALID_LEVEL_FULL
2960: -- p_rcv_transaction_id IN NUMBER Required
2961: -- p_accounting_line_type IN VARCHAR2 Required
2962: -- p_org_id IN NUMBER Required
2963: --
2975: --
2976: -- End of comments
2977: PROCEDURE Get_HookAccount(
2978: p_api_version IN NUMBER,
2979: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2980: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2981: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2982: x_return_status OUT NOCOPY VARCHAR2,
2983: x_msg_count OUT NOCOPY NUMBER,
2976: -- End of comments
2977: PROCEDURE Get_HookAccount(
2978: p_api_version IN NUMBER,
2979: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2980: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2981: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2982: x_return_status OUT NOCOPY VARCHAR2,
2983: x_msg_count OUT NOCOPY NUMBER,
2984: x_msg_data OUT NOCOPY VARCHAR2,
2977: PROCEDURE Get_HookAccount(
2978: p_api_version IN NUMBER,
2979: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2980: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2981: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2982: x_return_status OUT NOCOPY VARCHAR2,
2983: x_msg_count OUT NOCOPY NUMBER,
2984: x_msg_data OUT NOCOPY VARCHAR2,
2985:
2990: ) IS
2991: l_api_name CONSTANT VARCHAR2(30) := 'Get_HookAccount';
2992: l_api_version CONSTANT NUMBER := 1.0;
2993:
2994: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2995: l_msg_count NUMBER := 0;
2996: l_msg_data VARCHAR2(8000) := '';
2997: l_stmt_num NUMBER := 0;
2998: l_api_message VARCHAR2(1000);
3012:
3013: END IF;
3014:
3015: -- Standard call to check for call compatibility
3016: IF NOT FND_API.Compatible_API_Call (
3017: l_api_version,
3018: p_api_version,
3019: l_api_name,
3020: G_PKG_NAME ) THEN
3017: l_api_version,
3018: p_api_version,
3019: l_api_name,
3020: G_PKG_NAME ) THEN
3021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3022: END IF;
3023:
3024: -- Initialize message list if p_init_msg_list is set to TRUE
3025: IF FND_API.to_Boolean(p_init_msg_list) THEN
3021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3022: END IF;
3023:
3024: -- Initialize message list if p_init_msg_list is set to TRUE
3025: IF FND_API.to_Boolean(p_init_msg_list) THEN
3026: FND_MSG_PUB.initialize;
3027: END IF;
3028:
3029: -- Initialize API return status to success
3026: FND_MSG_PUB.initialize;
3027: END IF;
3028:
3029: -- Initialize API return status to success
3030: x_return_status := FND_API.G_RET_STS_SUCCESS;
3031: x_distribution_acct_id := -1;
3032:
3033: l_stmt_num := 10;
3034: RCV_AccountHook_PUB.Get_Account(
3039: p_rcv_transaction_id => p_rcv_transaction_id,
3040: p_accounting_line_type => p_accounting_line_type,
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);
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;
3051:
3052: IF(l_dist_acct_id <> -1) THEN
3053:
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;
3072:
3073: x_distribution_acct_id := l_dist_acct_id;
3078: ,l_api_message);
3079: END IF;
3080:
3081: -- Standard check of p_commit
3082: IF FND_API.to_Boolean(p_commit) THEN
3083: COMMIT WORK;
3084: END IF;
3085:
3086: -- Standard Call to get message count and if count = 1, get message info
3094: END IF;
3095:
3096:
3097: EXCEPTION
3098: WHEN FND_API.g_exc_error THEN
3099: ROLLBACK TO Get_HookAccount_PVT;
3100: x_return_status := FND_API.g_ret_sts_error;
3101: FND_MSG_PUB.count_and_get
3102: ( p_count => x_msg_count
3096:
3097: EXCEPTION
3098: WHEN FND_API.g_exc_error THEN
3099: ROLLBACK TO Get_HookAccount_PVT;
3100: x_return_status := FND_API.g_ret_sts_error;
3101: FND_MSG_PUB.count_and_get
3102: ( p_count => x_msg_count
3103: , p_data => x_msg_data
3104: );
3101: FND_MSG_PUB.count_and_get
3102: ( p_count => x_msg_count
3103: , p_data => x_msg_data
3104: );
3105: WHEN FND_API.g_exc_unexpected_error THEN
3106: ROLLBACK TO Get_HookAccount_PVT;
3107: x_return_status := FND_API.g_ret_sts_unexp_error ;
3108: FND_MSG_PUB.count_and_get
3109: ( p_count => x_msg_count
3103: , p_data => x_msg_data
3104: );
3105: WHEN FND_API.g_exc_unexpected_error THEN
3106: ROLLBACK TO Get_HookAccount_PVT;
3107: x_return_status := FND_API.g_ret_sts_unexp_error ;
3108: FND_MSG_PUB.count_and_get
3109: ( p_count => x_msg_count
3110: , p_data => x_msg_data
3111: );
3111: );
3112:
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));
3143: -- Pre-reqs :
3144: -- Parameters :
3145: -- IN : p_api_version IN NUMBER Required
3146: -- p_init_msg_list IN VARCHAR2 Optional
3147: -- Default = FND_API.G_FALSE
3148: -- p_commit IN VARCHAR2 Optional
3149: -- Default = FND_API.G_FALSE
3150: -- p_validation_level IN NUMBER Optional
3151: -- Default = FND_API.G_VALID_LEVEL_FULL
3145: -- IN : p_api_version IN NUMBER Required
3146: -- p_init_msg_list IN VARCHAR2 Optional
3147: -- Default = FND_API.G_FALSE
3148: -- p_commit IN VARCHAR2 Optional
3149: -- Default = FND_API.G_FALSE
3150: -- p_validation_level IN NUMBER Optional
3151: -- Default = FND_API.G_VALID_LEVEL_FULL
3152: -- p_rcv_events_tbl IN RCV_SeedEvents_PVT.rcv_event_tbl_type Required
3153: --
3147: -- Default = FND_API.G_FALSE
3148: -- p_commit IN VARCHAR2 Optional
3149: -- Default = FND_API.G_FALSE
3150: -- p_validation_level IN NUMBER Optional
3151: -- Default = FND_API.G_VALID_LEVEL_FULL
3152: -- p_rcv_events_tbl IN RCV_SeedEvents_PVT.rcv_event_tbl_type Required
3153: --
3154: -- OUT : x_return_status OUT VARCHAR2(1)
3155: -- x_msg_count OUT NUMBER
3177: ) IS
3178: l_api_name CONSTANT VARCHAR2(30) := 'Insert_RAEEvents';
3179: l_api_version CONSTANT NUMBER := 1.0;
3180:
3181: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3182: l_msg_count NUMBER := 0;
3183: l_msg_data VARCHAR2(8000) := '';
3184: l_stmt_num NUMBER := 0;
3185: l_api_message VARCHAR2(1000);
3211:
3212: END IF;
3213:
3214: -- Standard call to check for call compatibility
3215: IF NOT FND_API.Compatible_API_Call (
3216: l_api_version,
3217: p_api_version,
3218: l_api_name,
3219: G_PKG_NAME ) THEN
3216: l_api_version,
3217: p_api_version,
3218: l_api_name,
3219: G_PKG_NAME ) THEN
3220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3221: END IF;
3222:
3223: -- Initialize message list if p_init_msg_list is set to TRUE
3224: IF FND_API.to_Boolean(p_init_msg_list) THEN
3220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3221: END IF;
3222:
3223: -- Initialize message list if p_init_msg_list is set to TRUE
3224: IF FND_API.to_Boolean(p_init_msg_list) THEN
3225: FND_MSG_PUB.initialize;
3226: END IF;
3227:
3228: -- Initialize API return status to success
3225: FND_MSG_PUB.initialize;
3226: END IF;
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
3442: x_msg_data => l_msg_data,
3443: p_accounting_event_id => l_accounting_event_id,
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);
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;
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
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);
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;
3494:
3495: END IF;
3496: END LOOP;
3497:
3498:
3499:
3500: --- Standard check of p_commit
3501: IF FND_API.to_Boolean(p_commit) THEN
3502: COMMIT WORK;
3503: END IF;
3504:
3505: -- Standard Call to get message count and if count = 1, get message info
3513: END IF;
3514:
3515:
3516: EXCEPTION
3517: WHEN FND_API.g_exc_error THEN
3518: ROLLBACK TO Insert_RAEEvents_PVT;
3519: x_return_status := FND_API.g_ret_sts_error;
3520: FND_MSG_PUB.count_and_get
3521: ( p_count => x_msg_count
3515:
3516: EXCEPTION
3517: WHEN FND_API.g_exc_error THEN
3518: ROLLBACK TO Insert_RAEEvents_PVT;
3519: x_return_status := FND_API.g_ret_sts_error;
3520: FND_MSG_PUB.count_and_get
3521: ( p_count => x_msg_count
3522: , p_data => x_msg_data
3523: );
3521: ( p_count => x_msg_count
3522: , p_data => x_msg_data
3523: );
3524:
3525: WHEN FND_API.g_exc_unexpected_error THEN
3526: ROLLBACK TO Insert_RAEEvents_PVT;
3527: x_return_status := FND_API.g_ret_sts_unexp_error ;
3528: FND_MSG_PUB.count_and_get
3529: ( p_count => x_msg_count
3523: );
3524:
3525: WHEN FND_API.g_exc_unexpected_error THEN
3526: ROLLBACK TO Insert_RAEEvents_PVT;
3527: x_return_status := FND_API.g_ret_sts_unexp_error ;
3528: FND_MSG_PUB.count_and_get
3529: ( p_count => x_msg_count
3530: , p_data => x_msg_data
3531: );
3531: );
3532:
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));
3560: -- Pre-reqs :
3561: -- Parameters :
3562: -- IN : p_api_version IN NUMBER Required
3563: -- p_init_msg_list IN VARCHAR2 Optional
3564: -- Default = FND_API.G_FALSE
3565: -- p_commit IN VARCHAR2 Optional
3566: -- Default = FND_API.G_FALSE
3567: -- p_validation_level IN NUMBER Optional
3568: -- Default = FND_API.G_VALID_LEVEL_FULL
3562: -- IN : p_api_version IN NUMBER Required
3563: -- p_init_msg_list IN VARCHAR2 Optional
3564: -- Default = FND_API.G_FALSE
3565: -- p_commit IN VARCHAR2 Optional
3566: -- Default = FND_API.G_FALSE
3567: -- p_validation_level IN NUMBER Optional
3568: -- Default = FND_API.G_VALID_LEVEL_FULL
3569: -- p_rcv_sob_id IN NUMBER Required
3570: -- p_po_header_id IN NUMBER Required
3564: -- Default = FND_API.G_FALSE
3565: -- p_commit IN VARCHAR2 Optional
3566: -- Default = FND_API.G_FALSE
3567: -- p_validation_level IN NUMBER Optional
3568: -- Default = FND_API.G_VALID_LEVEL_FULL
3569: -- p_rcv_sob_id IN NUMBER Required
3570: -- p_po_header_id IN NUMBER Required
3571: --
3572: -- x_encumbrance_flag OUT VARCHAR2(1)
3601: ) IS
3602: l_api_name CONSTANT VARCHAR2(30) := 'Check_EncumbranceFlag';
3603: l_api_version CONSTANT NUMBER := 1.0;
3604:
3605: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3606: l_msg_count NUMBER := 0;
3607: l_msg_data VARCHAR2(8000) := '';
3608: l_stmt_num NUMBER := 0;
3609: l_api_message VARCHAR2(1000);
3621: ,'Check_EncumbranceFlag <<');
3622: END IF;
3623:
3624: -- Standard call to check for call compatibility
3625: IF NOT FND_API.Compatible_API_Call (
3626: l_api_version,
3627: p_api_version,
3628: l_api_name,
3629: G_PKG_NAME ) THEN
3626: l_api_version,
3627: p_api_version,
3628: l_api_name,
3629: G_PKG_NAME ) THEN
3630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3631: END IF;
3632:
3633: -- Initialize message list if p_init_msg_list is set to TRUE
3634: IF FND_API.to_Boolean(p_init_msg_list) THEN
3630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3631: END IF;
3632:
3633: -- Initialize message list if p_init_msg_list is set to TRUE
3634: IF FND_API.to_Boolean(p_init_msg_list) THEN
3635: FND_MSG_PUB.initialize;
3636: END IF;
3637:
3638: -- Initialize API return status to success
3635: FND_MSG_PUB.initialize;
3636: END IF;
3637:
3638: -- Initialize API return status to success
3639: x_return_status := FND_API.G_RET_STS_SUCCESS;
3640:
3641: l_stmt_num := 10;
3642: SELECT nvl(FSP.purch_encumbrance_flag, 'N')
3643: INTO l_encumbrance_flag
3656: END IF;
3657:
3658:
3659: -- Standard check of p_commit
3660: IF FND_API.to_Boolean(p_commit) THEN
3661: COMMIT WORK;
3662: END IF;
3663:
3664: -- Standard Call to get message count and if count = 1, get message info
3672: END IF;
3673:
3674:
3675: EXCEPTION
3676: WHEN FND_API.g_exc_error THEN
3677: ROLLBACK TO Check_EncumbranceFlag_PVT;
3678: x_return_status := FND_API.g_ret_sts_error;
3679: FND_MSG_PUB.count_and_get
3680: ( p_count => x_msg_count
3674:
3675: EXCEPTION
3676: WHEN FND_API.g_exc_error THEN
3677: ROLLBACK TO Check_EncumbranceFlag_PVT;
3678: x_return_status := FND_API.g_ret_sts_error;
3679: FND_MSG_PUB.count_and_get
3680: ( p_count => x_msg_count
3681: , p_data => x_msg_data
3682: );
3679: FND_MSG_PUB.count_and_get
3680: ( p_count => x_msg_count
3681: , p_data => x_msg_data
3682: );
3683: WHEN FND_API.g_exc_unexpected_error THEN
3684: ROLLBACK TO Check_EncumbranceFlag_PVT;
3685: x_return_status := FND_API.g_ret_sts_unexp_error ;
3686: FND_MSG_PUB.count_and_get
3687: ( p_count => x_msg_count
3681: , p_data => x_msg_data
3682: );
3683: WHEN FND_API.g_exc_unexpected_error THEN
3684: ROLLBACK TO Check_EncumbranceFlag_PVT;
3685: x_return_status := FND_API.g_ret_sts_unexp_error ;
3686: FND_MSG_PUB.count_and_get
3687: ( p_count => x_msg_count
3688: , p_data => x_msg_data
3689: );
3689: );
3690:
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));
3750: l_api_name CONSTANT VARCHAR2(30) := 'Insert_MMTEvents';
3751: l_api_version CONSTANT NUMBER := 1.0;
3752: l_api_message VARCHAR2(1000);
3753:
3754: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3755: l_msg_count NUMBER := 0;
3756: l_msg_data VARCHAR2(8000) := '';
3757: l_stmt_num NUMBER := 0;
3758:
3780: ,'Insert_MMTEvents <<');
3781: END IF;
3782:
3783: -- Standard call to check for call compatibility
3784: IF NOT FND_API.Compatible_API_Call (
3785: l_api_version,
3786: p_api_version,
3787: l_api_name,
3788: G_PKG_NAME ) THEN
3785: l_api_version,
3786: p_api_version,
3787: l_api_name,
3788: G_PKG_NAME ) THEN
3789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3790: END IF;
3791:
3792: -- Initialize message list if p_init_msg_list is set to TRUE
3793: IF FND_API.to_Boolean(p_init_msg_list) THEN
3789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3790: END IF;
3791:
3792: -- Initialize message list if p_init_msg_list is set to TRUE
3793: IF FND_API.to_Boolean(p_init_msg_list) THEN
3794: FND_MSG_PUB.initialize;
3795: END IF;
3796:
3797: -- Initialize API return status to success
3794: FND_MSG_PUB.initialize;
3795: END IF;
3796:
3797: -- Initialize API return status to success
3798: x_return_status := FND_API.G_RET_STS_SUCCESS;
3799: x_msg_count := 0;
3800: x_msg_data := '';
3801:
3802: -- API Body
3898: x_msg_data => l_msg_data,
3899: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
3900: END IF;
3901:
3902: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3903: RAISE FND_API.g_exc_error;
3904: END IF;
3905:
3906: l_stmt_num := 50;
3899: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
3900: END IF;
3901:
3902: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3903: RAISE FND_API.g_exc_error;
3904: END IF;
3905:
3906: l_stmt_num := 50;
3907: l_inv_trx_tbl_ctr := l_inv_trx_tbl_ctr + 1;
3944: x_msg_count => l_msg_count,
3945: x_msg_data => l_msg_data,
3946: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
3947: END IF;
3948: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
3949: RAISE FND_API.g_exc_error;
3950: END IF;
3951:
3952: ELSIF (p_rcv_events_tbl(l_ctr).event_type_id = RCV_SeedEvents_PVT.LOGICAL_RETURN_TO_VENDOR) THEN
3945: x_msg_data => l_msg_data,
3946: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
3947: END IF;
3948: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
3949: RAISE FND_API.g_exc_error;
3950: END IF;
3951:
3952: ELSIF (p_rcv_events_tbl(l_ctr).event_type_id = RCV_SeedEvents_PVT.LOGICAL_RETURN_TO_VENDOR) THEN
3953: l_stmt_num := 80;
4007: x_msg_data => l_msg_data,
4008: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
4009: END IF;
4010:
4011: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4012: RAISE FND_API.g_exc_error;
4013: END IF;
4014:
4015: l_stmt_num := 120;
4008: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
4009: END IF;
4010:
4011: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4012: RAISE FND_API.g_exc_error;
4013: END IF;
4014:
4015: l_stmt_num := 120;
4016: l_inv_trx_tbl_ctr := l_inv_trx_tbl_ctr + 1;
4054: x_msg_count => l_msg_count,
4055: x_msg_data => l_msg_data,
4056: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
4057: END IF;
4058: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
4059: RAISE FND_API.g_exc_error;
4060: END IF;
4061:
4062: ELSE
4055: x_msg_data => l_msg_data,
4056: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
4057: END IF;
4058: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
4059: RAISE FND_API.g_exc_error;
4060: END IF;
4061:
4062: ELSE
4063: RAISE invalid_event;
4086: p_trx_flow_header_id => p_rcv_events_tbl(p_rcv_events_tbl.FIRST).trx_flow_header_id,
4087: p_defer_logical_transactions => 2,
4088: p_logical_trx_type_code => 3,
4089: p_exploded_flag => 1);
4090: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4091: RAISE FND_API.g_exc_error;
4092: END IF;
4093:
4094: -- End API Body
4087: p_defer_logical_transactions => 2,
4088: p_logical_trx_type_code => 3,
4089: p_exploded_flag => 1);
4090: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4091: RAISE FND_API.g_exc_error;
4092: END IF;
4093:
4094: -- End API Body
4095:
4093:
4094: -- End API Body
4095:
4096: -- Standard check of p_commit
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
4106: EXCEPTION
4107:
4108: WHEN invalid_event THEN
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,
4123: ( p_count => x_msg_count
4124: , p_data => x_msg_data
4125: );
4126:
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
4125: );
4126:
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);
4136: ( p_count => x_msg_count
4137: , p_data => x_msg_data
4138: );
4139:
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
4138: );
4139:
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);
4151: );
4152:
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);
4232: l_api_name CONSTANT VARCHAR2(30) := 'Create_MMTRecord';
4233: l_api_version CONSTANT NUMBER := 1.0;
4234: l_api_message VARCHAR2(1000);
4235:
4236: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4237: l_msg_count NUMBER := 0;
4238: l_msg_data VARCHAR2(8000) := '';
4239: l_stmt_num NUMBER := 0;
4240:
4256: ,'Create_MMTRecord <<');
4257: END IF;
4258:
4259: -- Standard call to check for call compatibility
4260: IF NOT FND_API.Compatible_API_Call (
4261: l_api_version,
4262: p_api_version,
4263: l_api_name,
4264: G_PKG_NAME ) THEN
4261: l_api_version,
4262: p_api_version,
4263: l_api_name,
4264: G_PKG_NAME ) THEN
4265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4266: END IF;
4267:
4268: -- Initialize message list if p_init_msg_list is set to TRUE
4269: IF FND_API.to_Boolean(p_init_msg_list) THEN
4265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4266: END IF;
4267:
4268: -- Initialize message list if p_init_msg_list is set to TRUE
4269: IF FND_API.to_Boolean(p_init_msg_list) THEN
4270: FND_MSG_PUB.initialize;
4271: END IF;
4272:
4273: -- Initialize API return status to success
4270: FND_MSG_PUB.initialize;
4271: END IF;
4272:
4273: -- Initialize API return status to success
4274: x_return_status := FND_API.G_RET_STS_SUCCESS;
4275: x_msg_count := 0;
4276: x_msg_data := '';
4277:
4278: -- API Body
4461: X_INV_TRX := l_inv_trx;
4462: -- ***************
4463:
4464: -- Standard check of p_commit
4465: IF FND_API.to_Boolean(p_commit) THEN
4466: COMMIT WORK;
4467: END IF;
4468:
4469: -- Standard Call to get message count and if count = 1, get message info
4477: END IF;
4478:
4479: EXCEPTION
4480:
4481: WHEN FND_API.g_exc_error THEN
4482: ROLLBACK TO Create_MMTRecord_PVT;
4483: x_return_status := FND_API.g_ret_sts_error;
4484: FND_MSG_PUB.count_and_get
4485: ( p_count => x_msg_count
4479: EXCEPTION
4480:
4481: WHEN FND_API.g_exc_error THEN
4482: ROLLBACK TO Create_MMTRecord_PVT;
4483: x_return_status := FND_API.g_ret_sts_error;
4484: FND_MSG_PUB.count_and_get
4485: ( p_count => x_msg_count
4486: , p_data => x_msg_data
4487: );
4485: ( p_count => x_msg_count
4486: , p_data => x_msg_data
4487: );
4488:
4489: WHEN FND_API.g_exc_unexpected_error THEN
4490: ROLLBACK TO Create_MMTRecord_PVT;
4491: x_return_status := FND_API.g_ret_sts_unexp_error ;
4492: l_api_message := 'Unexpected error at statement '||to_char(l_stmt_num);
4493: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4487: );
4488:
4489: WHEN FND_API.g_exc_unexpected_error THEN
4490: ROLLBACK TO Create_MMTRecord_PVT;
4491: x_return_status := FND_API.g_ret_sts_unexp_error ;
4492: l_api_message := 'Unexpected error at statement '||to_char(l_stmt_num);
4493: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4494: FND_MSG_PUB.add_exc_msg
4495: ( G_PKG_NAME,
4501: );
4502:
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);
4519: );
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;
4538: );
4539:
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));