[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
1148: END IF;
1149:
1150:
1151: --- Standard check of p_commit
1152: IF FND_API.to_Boolean(p_commit) THEN
1153: COMMIT WORK;
1154: END IF;
1155:
1156: -- Standard Call to get message count and if count = 1, get message info
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
1167: ROLLBACK TO Get_Quantity_PVT;
1168: x_return_status := FND_API.g_ret_sts_error;
1169: FND_MSG_PUB.count_and_get
1170: ( p_count => x_msg_count
1164: END IF;
1165: EXCEPTION
1166: WHEN FND_API.g_exc_error THEN
1167: ROLLBACK TO Get_Quantity_PVT;
1168: x_return_status := FND_API.g_ret_sts_error;
1169: FND_MSG_PUB.count_and_get
1170: ( p_count => x_msg_count
1171: , p_data => x_msg_data
1172: );
1169: FND_MSG_PUB.count_and_get
1170: ( p_count => x_msg_count
1171: , p_data => x_msg_data
1172: );
1173: WHEN FND_API.g_exc_unexpected_error THEN
1174: ROLLBACK TO Get_Quantity_PVT;
1175: x_return_status := FND_API.g_ret_sts_unexp_error ;
1176: FND_MSG_PUB.count_and_get
1177: ( p_count => x_msg_count
1171: , p_data => x_msg_data
1172: );
1173: WHEN FND_API.g_exc_unexpected_error THEN
1174: ROLLBACK TO Get_Quantity_PVT;
1175: x_return_status := FND_API.g_ret_sts_unexp_error ;
1176: FND_MSG_PUB.count_and_get
1177: ( p_count => x_msg_count
1178: , p_data => x_msg_data
1179: );
1179: );
1180:
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));
1209: -- Pre-reqs :
1210: -- Parameters :
1211: -- IN : p_api_version IN NUMBER Required
1212: -- p_init_msg_list IN VARCHAR2 Optional
1213: -- Default = FND_API.G_FALSE
1214: -- p_commit IN VARCHAR2 Optional
1215: -- Default = FND_API.G_FALSE
1216: -- p_validation_level IN NUMBER Optional
1217: -- Default = FND_API.G_VALID_LEVEL_FULL
1211: -- IN : p_api_version IN NUMBER Required
1212: -- p_init_msg_list IN VARCHAR2 Optional
1213: -- Default = FND_API.G_FALSE
1214: -- p_commit IN VARCHAR2 Optional
1215: -- Default = FND_API.G_FALSE
1216: -- p_validation_level IN NUMBER Optional
1217: -- Default = FND_API.G_VALID_LEVEL_FULL
1218: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
1219: -- p_lcm_flag IN VARCHAR2 Optional
1213: -- Default = FND_API.G_FALSE
1214: -- p_commit IN VARCHAR2 Optional
1215: -- Default = FND_API.G_FALSE
1216: -- p_validation_level IN NUMBER Optional
1217: -- Default = FND_API.G_VALID_LEVEL_FULL
1218: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
1219: -- p_lcm_flag IN VARCHAR2 Optional
1220: --
1221: -- OUT : x_return_status OUT VARCHAR2(1)
1257: ) IS
1258: l_api_name CONSTANT VARCHAR2(30) := 'Get_UnitPrice';
1259: l_api_version CONSTANT NUMBER := 1.0;
1260:
1261: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1262: l_msg_count NUMBER := 0;
1263: l_msg_data VARCHAR2(8000) := '';
1264: l_stmt_num NUMBER := 0;
1265: l_api_message VARCHAR2(1000);
1289: ,'Get_UnitPrice <<');
1290: END IF;
1291:
1292: -- Standard call to check for call compatibility
1293: IF NOT FND_API.Compatible_API_Call (
1294: l_api_version,
1295: p_api_version,
1296: l_api_name,
1297: G_PKG_NAME ) THEN
1294: l_api_version,
1295: p_api_version,
1296: l_api_name,
1297: G_PKG_NAME ) THEN
1298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1299: END IF;
1300:
1301: -- Initialize message list if p_init_msg_list is set to TRUE
1302: IF FND_API.to_Boolean(p_init_msg_list) THEN
1298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1299: END IF;
1300:
1301: -- Initialize message list if p_init_msg_list is set to TRUE
1302: IF FND_API.to_Boolean(p_init_msg_list) THEN
1303: FND_MSG_PUB.initialize;
1304: END IF;
1305:
1306: -- Initialize API return status to success
1303: FND_MSG_PUB.initialize;
1304: END IF;
1305:
1306: -- Initialize API return status to success
1307: x_return_status := FND_API.G_RET_STS_SUCCESS;
1308: x_incr_transfer_price := 0;
1309: x_incr_currency_code := NULL;
1310: /* Support for Landed Cost Management */
1311: x_unit_landed_cost := NULL;
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:
1352: -- Use Inventory Asset Flag in the organization where the physical event occurred. This
1353: -- would be the ship to organization id. Using POLL.ship_to_organization_id so it will be
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:
1373: IF(l_asset_flag = 'Y') THEN
1374: l_ic_pricing_option := p_asset_item_pricing_option;
1447: p_transaction_id => p_rcv_event.rcv_transaction_id,
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);
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;
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||
1510:
1511:
1512:
1513: -- Standard check of p_commit
1514: IF FND_API.to_Boolean(p_commit) THEN
1515: COMMIT WORK;
1516: END IF;
1517:
1518: -- Standard Call to get message count and if count = 1, get message info
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
1529: ROLLBACK TO Get_UnitPrice_PVT;
1530: x_return_status := FND_API.g_ret_sts_error;
1531: FND_MSG_PUB.count_and_get
1532: ( p_count => x_msg_count
1526: END IF;
1527: EXCEPTION
1528: WHEN FND_API.g_exc_error THEN
1529: ROLLBACK TO Get_UnitPrice_PVT;
1530: x_return_status := FND_API.g_ret_sts_error;
1531: FND_MSG_PUB.count_and_get
1532: ( p_count => x_msg_count
1533: , p_data => x_msg_data
1534: );
1531: FND_MSG_PUB.count_and_get
1532: ( p_count => x_msg_count
1533: , p_data => x_msg_data
1534: );
1535: WHEN FND_API.g_exc_unexpected_error THEN
1536: ROLLBACK TO Get_UnitPrice_PVT;
1537: x_return_status := FND_API.g_ret_sts_unexp_error ;
1538: FND_MSG_PUB.count_and_get
1539: ( p_count => x_msg_count
1533: , p_data => x_msg_data
1534: );
1535: WHEN FND_API.g_exc_unexpected_error THEN
1536: ROLLBACK TO Get_UnitPrice_PVT;
1537: x_return_status := FND_API.g_ret_sts_unexp_error ;
1538: FND_MSG_PUB.count_and_get
1539: ( p_count => x_msg_count
1540: , p_data => x_msg_data
1541: );
1541: );
1542:
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));
1569: -- Pre-reqs :
1570: -- Parameters :
1571: -- IN : p_api_version IN NUMBER Required
1572: -- p_init_msg_list IN VARCHAR2 Optional
1573: -- Default = FND_API.G_FALSE
1574: -- p_commit IN VARCHAR2 Optional
1575: -- Default = FND_API.G_FALSE
1576: -- p_validation_level IN NUMBER Optional
1577: -- Default = FND_API.G_VALID_LEVEL_FULL
1571: -- IN : p_api_version IN NUMBER Required
1572: -- p_init_msg_list IN VARCHAR2 Optional
1573: -- Default = FND_API.G_FALSE
1574: -- p_commit IN VARCHAR2 Optional
1575: -- Default = FND_API.G_FALSE
1576: -- p_validation_level IN NUMBER Optional
1577: -- Default = FND_API.G_VALID_LEVEL_FULL
1578: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
1579: --
1573: -- Default = FND_API.G_FALSE
1574: -- p_commit IN VARCHAR2 Optional
1575: -- Default = FND_API.G_FALSE
1576: -- p_validation_level IN NUMBER Optional
1577: -- Default = FND_API.G_VALID_LEVEL_FULL
1578: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
1579: --
1580: -- OUT : x_return_status OUT VARCHAR2(1)
1581: -- x_msg_count OUT NUMBER
1610: ) IS
1611: l_api_name CONSTANT VARCHAR2(30) := 'Get_UnitTax';
1612: l_api_version CONSTANT NUMBER := 1.0;
1613:
1614: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1615: l_msg_count NUMBER := 0;
1616: l_msg_data VARCHAR2(8000) := '';
1617: l_stmt_num NUMBER := 0;
1618: l_api_message VARCHAR2(1000);
1646: ,'Get_UnitTax <<');
1647: END IF;
1648:
1649: -- Standard call to check for call compatibility
1650: IF NOT FND_API.Compatible_API_Call (
1651: l_api_version,
1652: p_api_version,
1653: l_api_name,
1654: G_PKG_NAME ) THEN
1651: l_api_version,
1652: p_api_version,
1653: l_api_name,
1654: G_PKG_NAME ) THEN
1655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1656: END IF;
1657:
1658: -- Initialize message list if p_init_msg_list is set to TRUE
1659: IF FND_API.to_Boolean(p_init_msg_list) THEN
1655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1656: END IF;
1657:
1658: -- Initialize message list if p_init_msg_list is set to TRUE
1659: IF FND_API.to_Boolean(p_init_msg_list) THEN
1660: FND_MSG_PUB.initialize;
1661: END IF;
1662:
1663: -- Initialize API return status to success
1660: FND_MSG_PUB.initialize;
1661: END IF;
1662:
1663: -- Initialize API return status to success
1664: x_return_status := FND_API.G_RET_STS_SUCCESS;
1665: x_unit_nr_tax := 0;
1666: x_unit_rec_tax := 0;
1667: x_prior_nr_tax := 0;
1668: x_prior_rec_tax := 0;
1688: x_non_recoverable_tax => l_non_recoverable_tax,
1689: x_old_recoverable_tax => l_old_recoverable_tax,
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);
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;
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||
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;
1742:
1743:
1744: IF G_DEBUG = 'Y' AND FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1801: END IF;
1802:
1803:
1804: --- Standard check of p_commit
1805: IF FND_API.to_Boolean(p_commit) THEN
1806: COMMIT WORK;
1807: END IF;
1808:
1809: -- Standard Call to get message count and if count = 1, get message info
1817: END IF;
1818:
1819:
1820: EXCEPTION
1821: WHEN FND_API.g_exc_error THEN
1822: ROLLBACK TO Get_UnitTax_PVT;
1823: x_return_status := FND_API.g_ret_sts_error;
1824: FND_MSG_PUB.count_and_get
1825: ( p_count => x_msg_count
1819:
1820: EXCEPTION
1821: WHEN FND_API.g_exc_error THEN
1822: ROLLBACK TO Get_UnitTax_PVT;
1823: x_return_status := FND_API.g_ret_sts_error;
1824: FND_MSG_PUB.count_and_get
1825: ( p_count => x_msg_count
1826: , p_data => x_msg_data
1827: );
1824: FND_MSG_PUB.count_and_get
1825: ( p_count => x_msg_count
1826: , p_data => x_msg_data
1827: );
1828: WHEN FND_API.g_exc_unexpected_error THEN
1829: ROLLBACK TO Get_UnitTax_PVT;
1830: x_return_status := FND_API.g_ret_sts_unexp_error ;
1831: FND_MSG_PUB.count_and_get
1832: ( p_count => x_msg_count
1826: , p_data => x_msg_data
1827: );
1828: WHEN FND_API.g_exc_unexpected_error THEN
1829: ROLLBACK TO Get_UnitTax_PVT;
1830: x_return_status := FND_API.g_ret_sts_unexp_error ;
1831: FND_MSG_PUB.count_and_get
1832: ( p_count => x_msg_count
1833: , p_data => x_msg_data
1834: );
1834: );
1835:
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));
1894: PROCEDURE Convert_UOM (
1895: P_API_VERSION IN NUMBER,
1896: P_INIT_MSG_LIST IN VARCHAR2,
1897: P_COMMIT IN VARCHAR2,
1898: P_VALIDATION_LEVEL IN NUMBER, -- := FND_API.G_VALID_LEVEL_FULL,
1899: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
1900: X_MSG_COUNT OUT NOCOPY NUMBER,
1901: X_MSG_DATA OUT NOCOPY VARCHAR2,
1902: P_EVENT_REC IN RCV_SeedEvents_PVT.rcv_event_rec_type,
1924: BEGIN
1925:
1926: SAVEPOINT Convert_UOM_PVT;
1927: -- Initialize message list if p_init_msg_list is set to TRUE
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
1934: ,'Convert_UOM <<');
1935: END IF;
1936:
1937: -- Standard check for compatibility
1938: IF NOT FND_API.Compatible_API_Call (
1939: l_api_version,
1940: P_API_VERSION,
1941: l_api_name,
1942: G_PKG_NAME ) -- line 90
1940: P_API_VERSION,
1941: l_api_name,
1942: G_PKG_NAME ) -- line 90
1943: THEN
1944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1945: END IF;
1946:
1947: -- Initialize API return status to success
1948: x_return_status := FND_API.G_RET_STS_SUCCESS;
1944: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1945: END IF;
1946:
1947: -- Initialize API return status to success
1948: x_return_status := FND_API.G_RET_STS_SUCCESS;
1949: x_msg_count := 0;
1950: x_msg_data := '';
1951:
1952: -- API body
2004: item_id => l_item_id,
2005: uom_rate => l_primary_uom_rate);
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);
2021: item_id => l_item_id,
2022: uom_rate => l_trx_uom_rate);
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);
2048:
2049: -- End of API body
2050:
2051: -- Standard check of P_COMMIT
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
2058: ,'Convert_UOM >>');
2059: END IF;
2060:
2061: EXCEPTION
2062: WHEN FND_API.g_exc_error THEN
2063: ROLLBACK TO Convert_UOM_PVT;
2064: x_return_status := FND_API.g_ret_sts_error;
2065: FND_MSG_PUB.count_and_get
2066: ( p_count => x_msg_count
2060:
2061: EXCEPTION
2062: WHEN FND_API.g_exc_error THEN
2063: ROLLBACK TO Convert_UOM_PVT;
2064: x_return_status := FND_API.g_ret_sts_error;
2065: FND_MSG_PUB.count_and_get
2066: ( p_count => x_msg_count
2067: , p_data => x_msg_data
2068: );
2066: ( p_count => x_msg_count
2067: , p_data => x_msg_data
2068: );
2069:
2070: WHEN FND_API.g_exc_unexpected_error THEN
2071: ROLLBACK TO Convert_UOM_PVT;
2072: x_return_status := FND_API.g_ret_sts_unexp_error;
2073: FND_MSG_PUB.count_and_get
2074: ( p_count => x_msg_count
2068: );
2069:
2070: WHEN FND_API.g_exc_unexpected_error THEN
2071: ROLLBACK TO Convert_UOM_PVT;
2072: x_return_status := FND_API.g_ret_sts_unexp_error;
2073: FND_MSG_PUB.count_and_get
2074: ( p_count => x_msg_count
2075: , p_data => x_msg_data
2076: );
2076: );
2077:
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);
2096: );
2097:
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);
2196:
2197: SAVEPOINT Get_Currency_PVT;
2198:
2199: -- Standard call to check for call compatibility
2200: IF NOT FND_API.Compatible_API_Call (
2201: l_api_version,
2202: p_api_version,
2203: l_api_name,
2204: G_PKG_NAME ) THEN
2201: l_api_version,
2202: p_api_version,
2203: l_api_name,
2204: G_PKG_NAME ) THEN
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: END IF;
2207:
2208: -- Initialize message list if p_init_msg_list is set to TRUE
2209: IF FND_API.to_Boolean(P_INIT_MSG_LIST) then
2205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2206: END IF;
2207:
2208: -- Initialize message list if p_init_msg_list is set to TRUE
2209: IF FND_API.to_Boolean(P_INIT_MSG_LIST) then
2210: FND_MSG_PUB.initialize;
2211: END IF;
2212:
2213:
2211: END IF;
2212:
2213:
2214: -- Initialize API return status to success
2215: x_return_status := FND_API.G_RET_STS_SUCCESS;
2216:
2217: -- API body
2218: l_stmt_num := 10;
2219:
2306:
2307: -- End of API body
2308:
2309: FND_MSG_PUB.Count_And_Get (
2310: p_encoded => FND_API.G_FALSE,
2311: p_count => X_MSG_COUNT,
2312: p_data => X_MSG_DATA );
2313:
2314:
2312: p_data => X_MSG_DATA );
2313:
2314:
2315: -- Standard check of P_COMMIT
2316: IF FND_API.to_Boolean(P_COMMIT) THEN
2317: COMMIT WORK;
2318: END IF;
2319:
2320:
2318: END IF;
2319:
2320:
2321: EXCEPTION
2322: WHEN FND_API.g_exc_error THEN
2323: ROLLBACK TO Get_Currency_PVT;
2324: x_return_status := FND_API.g_ret_sts_error;
2325: FND_MSG_PUB.count_and_get
2326: ( p_count => x_msg_count
2320:
2321: EXCEPTION
2322: WHEN FND_API.g_exc_error THEN
2323: ROLLBACK TO Get_Currency_PVT;
2324: x_return_status := FND_API.g_ret_sts_error;
2325: FND_MSG_PUB.count_and_get
2326: ( p_count => x_msg_count
2327: , p_data => x_msg_data
2328: );
2326: ( p_count => x_msg_count
2327: , p_data => x_msg_data
2328: );
2329:
2330: WHEN FND_API.g_exc_unexpected_error THEN
2331: ROLLBACK TO Get_Currency_PVT;
2332: x_return_status := FND_API.g_ret_sts_unexp_error ;
2333: FND_MSG_PUB.count_and_get
2334: ( p_count => x_msg_count
2328: );
2329:
2330: WHEN FND_API.g_exc_unexpected_error THEN
2331: ROLLBACK TO Get_Currency_PVT;
2332: x_return_status := FND_API.g_ret_sts_unexp_error ;
2333: FND_MSG_PUB.count_and_get
2334: ( p_count => x_msg_count
2335: , p_data => x_msg_data
2336: );
2336: );
2337:
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);
2357: p_data => X_MSG_DATA );
2358:
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);
2388: -- Pre-reqs :
2389: -- Parameters :
2390: -- IN : p_api_version IN NUMBER Required
2391: -- p_init_msg_list IN VARCHAR2 Optional
2392: -- Default = FND_API.G_FALSE
2393: -- p_commit IN VARCHAR2 Optional
2394: -- Default = FND_API.G_FALSE
2395: -- p_validation_level IN NUMBER Optional
2396: -- Default = FND_API.G_VALID_LEVEL_FULL
2390: -- IN : p_api_version IN NUMBER Required
2391: -- p_init_msg_list IN VARCHAR2 Optional
2392: -- Default = FND_API.G_FALSE
2393: -- p_commit IN VARCHAR2 Optional
2394: -- Default = FND_API.G_FALSE
2395: -- p_validation_level IN NUMBER Optional
2396: -- Default = FND_API.G_VALID_LEVEL_FULL
2397: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
2398: -- p_transaction_forward_flow_rec mtl_transaction_flow_rec_type,
2392: -- Default = FND_API.G_FALSE
2393: -- p_commit IN VARCHAR2 Optional
2394: -- Default = FND_API.G_FALSE
2395: -- p_validation_level IN NUMBER Optional
2396: -- Default = FND_API.G_VALID_LEVEL_FULL
2397: -- p_rcv_event IN RCV_SeedEvents_PVT.rcv_event_rec_type Required
2398: -- p_transaction_forward_flow_rec mtl_transaction_flow_rec_type,
2399: -- p_transaction_reverse_flow_rec mtl_transaction_flow_rec_type,
2400: --
2434: ) IS
2435: l_api_name CONSTANT VARCHAR2(30) := 'Get_Accounts';
2436: l_api_version CONSTANT NUMBER := 1.0;
2437:
2438: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2439: l_msg_count NUMBER := 0;
2440: l_msg_data VARCHAR2(8000) := '';
2441: l_stmt_num NUMBER := 0;
2442: l_api_message VARCHAR2(1000);
2475:
2476: END IF;
2477:
2478: -- Standard call to check for call compatibility
2479: IF NOT FND_API.Compatible_API_Call (
2480: l_api_version,
2481: p_api_version,
2482: l_api_name,
2483: G_PKG_NAME ) THEN
2480: l_api_version,
2481: p_api_version,
2482: l_api_name,
2483: G_PKG_NAME ) THEN
2484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2485: END IF;
2486:
2487: -- Initialize message list if p_init_msg_list is set to TRUE
2488: IF FND_API.to_Boolean(p_init_msg_list) THEN
2484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2485: END IF;
2486:
2487: -- Initialize message list if p_init_msg_list is set to TRUE
2488: IF FND_API.to_Boolean(p_init_msg_list) THEN
2489: FND_MSG_PUB.initialize;
2490: END IF;
2491:
2492: -- Initialize API return status to success
2489: FND_MSG_PUB.initialize;
2490: END IF;
2491:
2492: -- Initialize API return status to success
2493: x_return_status := FND_API.G_RET_STS_SUCCESS;
2494: x_credit_acct_id := NULL;
2495: x_debit_acct_id := NULL;
2496: x_ic_cogs_acct_id := NULL;
2497: /* Support for Landed Cost Management */
2544:
2545: l_stmt_num := 30;
2546: PO_Accounting_GRP.build_offset_account
2547: (p_api_version => 1.0,
2548: p_init_msg_list => FND_API.G_FALSE,
2549: x_return_status => l_return_status,
2550: p_base_ccid => l_receiving_insp_acct_id,
2551: p_overlay_ccid => l_dest_pod_ccid,
2552: p_accounting_date =>sysdate,
2618: p_accounting_line_type => 'IC Cost Of Sales',
2619: p_org_id => p_rcv_event.org_id,
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);
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;
2630:
2631: IF(l_dist_acct_id = -1) THEN
2632: l_debit_acct_id := l_ic_coss_acct_id;
2688: p_accounting_line_type => 'IC Cost Of Sales',
2689: p_org_id => p_rcv_event.org_id,
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);
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;
2700:
2701: IF(l_dist_acct_id = -1) THEN
2702: l_credit_acct_id := l_ic_coss_acct_id;
2743: p_accounting_line_type => 'Retroprice Adjustment',
2744: p_org_id => p_rcv_event.org_id,
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);
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;
2755:
2756: IF(l_dist_acct_id = -1) THEN
2757: l_debit_acct_id := l_retroprice_adj_acct_id;
2787: p_accounting_line_type => 'Retroprice Adjustment',
2788: p_org_id => p_rcv_event.org_id,
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);
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;
2799:
2800: IF(l_dist_acct_id = -1) THEN
2801: l_debit_acct_id := l_retroprice_adj_acct_id;
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:
2882:
2883: -- Standard check of p_commit
2880: END IF;
2881:
2882:
2883: -- Standard check of p_commit
2884: IF FND_API.to_Boolean(p_commit) THEN
2885: COMMIT WORK;
2886: END IF;
2887:
2888: -- Standard Call to get message count and if count = 1, get message info
2896: END IF;
2897:
2898:
2899: EXCEPTION
2900: WHEN FND_API.g_exc_error THEN
2901: ROLLBACK TO Get_Accounts_PVT;
2902: x_return_status := FND_API.g_ret_sts_error;
2903: FND_MSG_PUB.count_and_get
2904: ( p_count => x_msg_count
2898:
2899: EXCEPTION
2900: WHEN FND_API.g_exc_error THEN
2901: ROLLBACK TO Get_Accounts_PVT;
2902: x_return_status := FND_API.g_ret_sts_error;
2903: FND_MSG_PUB.count_and_get
2904: ( p_count => x_msg_count
2905: , p_data => x_msg_data
2906: );
2903: FND_MSG_PUB.count_and_get
2904: ( p_count => x_msg_count
2905: , p_data => x_msg_data
2906: );
2907: WHEN FND_API.g_exc_unexpected_error THEN
2908: ROLLBACK TO Get_Accounts_PVT;
2909: x_return_status := FND_API.g_ret_sts_unexp_error ;
2910: FND_MSG_PUB.count_and_get
2911: ( p_count => x_msg_count
2905: , p_data => x_msg_data
2906: );
2907: WHEN FND_API.g_exc_unexpected_error THEN
2908: ROLLBACK TO Get_Accounts_PVT;
2909: x_return_status := FND_API.g_ret_sts_unexp_error ;
2910: FND_MSG_PUB.count_and_get
2911: ( p_count => x_msg_count
2912: , p_data => x_msg_data
2913: );
2913: );
2914:
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));
2942: -- Pre-reqs :
2943: -- Parameters :
2944: -- IN : p_api_version IN NUMBER Required
2945: -- p_init_msg_list IN VARCHAR2 Optional
2946: -- Default = FND_API.G_FALSE
2947: -- p_commit IN VARCHAR2 Optional
2948: -- Default = FND_API.G_FALSE
2949: -- p_validation_level IN NUMBER Optional
2950: -- Default = FND_API.G_VALID_LEVEL_FULL
2944: -- IN : p_api_version IN NUMBER Required
2945: -- p_init_msg_list IN VARCHAR2 Optional
2946: -- Default = FND_API.G_FALSE
2947: -- p_commit IN VARCHAR2 Optional
2948: -- Default = FND_API.G_FALSE
2949: -- p_validation_level IN NUMBER Optional
2950: -- Default = FND_API.G_VALID_LEVEL_FULL
2951: -- p_rcv_transaction_id IN NUMBER Required
2952: -- p_accounting_line_type IN VARCHAR2 Required
2946: -- Default = FND_API.G_FALSE
2947: -- p_commit IN VARCHAR2 Optional
2948: -- Default = FND_API.G_FALSE
2949: -- p_validation_level IN NUMBER Optional
2950: -- Default = FND_API.G_VALID_LEVEL_FULL
2951: -- p_rcv_transaction_id IN NUMBER Required
2952: -- p_accounting_line_type IN VARCHAR2 Required
2953: -- p_org_id IN NUMBER Required
2954: --
2966: --
2967: -- End of comments
2968: PROCEDURE Get_HookAccount(
2969: p_api_version IN NUMBER,
2970: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2971: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2972: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2973: x_return_status OUT NOCOPY VARCHAR2,
2974: x_msg_count OUT NOCOPY NUMBER,
2967: -- End of comments
2968: PROCEDURE Get_HookAccount(
2969: p_api_version IN NUMBER,
2970: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2971: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2972: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2973: x_return_status OUT NOCOPY VARCHAR2,
2974: x_msg_count OUT NOCOPY NUMBER,
2975: x_msg_data OUT NOCOPY VARCHAR2,
2968: PROCEDURE Get_HookAccount(
2969: p_api_version IN NUMBER,
2970: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2971: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2972: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2973: x_return_status OUT NOCOPY VARCHAR2,
2974: x_msg_count OUT NOCOPY NUMBER,
2975: x_msg_data OUT NOCOPY VARCHAR2,
2976:
2981: ) IS
2982: l_api_name CONSTANT VARCHAR2(30) := 'Get_HookAccount';
2983: l_api_version CONSTANT NUMBER := 1.0;
2984:
2985: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2986: l_msg_count NUMBER := 0;
2987: l_msg_data VARCHAR2(8000) := '';
2988: l_stmt_num NUMBER := 0;
2989: l_api_message VARCHAR2(1000);
3003:
3004: END IF;
3005:
3006: -- Standard call to check for call compatibility
3007: IF NOT FND_API.Compatible_API_Call (
3008: l_api_version,
3009: p_api_version,
3010: l_api_name,
3011: G_PKG_NAME ) THEN
3008: l_api_version,
3009: p_api_version,
3010: l_api_name,
3011: G_PKG_NAME ) THEN
3012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3013: END IF;
3014:
3015: -- Initialize message list if p_init_msg_list is set to TRUE
3016: IF FND_API.to_Boolean(p_init_msg_list) THEN
3012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3013: END IF;
3014:
3015: -- Initialize message list if p_init_msg_list is set to TRUE
3016: IF FND_API.to_Boolean(p_init_msg_list) THEN
3017: FND_MSG_PUB.initialize;
3018: END IF;
3019:
3020: -- Initialize API return status to success
3017: FND_MSG_PUB.initialize;
3018: END IF;
3019:
3020: -- Initialize API return status to success
3021: x_return_status := FND_API.G_RET_STS_SUCCESS;
3022: x_distribution_acct_id := -1;
3023:
3024: l_stmt_num := 10;
3025: RCV_AccountHook_PUB.Get_Account(
3030: p_rcv_transaction_id => p_rcv_transaction_id,
3031: p_accounting_line_type => p_accounting_line_type,
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);
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;
3042:
3043: IF(l_dist_acct_id <> -1) THEN
3044:
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;
3063:
3064: x_distribution_acct_id := l_dist_acct_id;
3069: ,l_api_message);
3070: END IF;
3071:
3072: -- Standard check of p_commit
3073: IF FND_API.to_Boolean(p_commit) THEN
3074: COMMIT WORK;
3075: END IF;
3076:
3077: -- Standard Call to get message count and if count = 1, get message info
3085: END IF;
3086:
3087:
3088: EXCEPTION
3089: WHEN FND_API.g_exc_error THEN
3090: ROLLBACK TO Get_HookAccount_PVT;
3091: x_return_status := FND_API.g_ret_sts_error;
3092: FND_MSG_PUB.count_and_get
3093: ( p_count => x_msg_count
3087:
3088: EXCEPTION
3089: WHEN FND_API.g_exc_error THEN
3090: ROLLBACK TO Get_HookAccount_PVT;
3091: x_return_status := FND_API.g_ret_sts_error;
3092: FND_MSG_PUB.count_and_get
3093: ( p_count => x_msg_count
3094: , p_data => x_msg_data
3095: );
3092: FND_MSG_PUB.count_and_get
3093: ( p_count => x_msg_count
3094: , p_data => x_msg_data
3095: );
3096: WHEN FND_API.g_exc_unexpected_error THEN
3097: ROLLBACK TO Get_HookAccount_PVT;
3098: x_return_status := FND_API.g_ret_sts_unexp_error ;
3099: FND_MSG_PUB.count_and_get
3100: ( p_count => x_msg_count
3094: , p_data => x_msg_data
3095: );
3096: WHEN FND_API.g_exc_unexpected_error THEN
3097: ROLLBACK TO Get_HookAccount_PVT;
3098: x_return_status := FND_API.g_ret_sts_unexp_error ;
3099: FND_MSG_PUB.count_and_get
3100: ( p_count => x_msg_count
3101: , p_data => x_msg_data
3102: );
3102: );
3103:
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));
3134: -- Pre-reqs :
3135: -- Parameters :
3136: -- IN : p_api_version IN NUMBER Required
3137: -- p_init_msg_list IN VARCHAR2 Optional
3138: -- Default = FND_API.G_FALSE
3139: -- p_commit IN VARCHAR2 Optional
3140: -- Default = FND_API.G_FALSE
3141: -- p_validation_level IN NUMBER Optional
3142: -- Default = FND_API.G_VALID_LEVEL_FULL
3136: -- IN : p_api_version IN NUMBER Required
3137: -- p_init_msg_list IN VARCHAR2 Optional
3138: -- Default = FND_API.G_FALSE
3139: -- p_commit IN VARCHAR2 Optional
3140: -- Default = FND_API.G_FALSE
3141: -- p_validation_level IN NUMBER Optional
3142: -- Default = FND_API.G_VALID_LEVEL_FULL
3143: -- p_rcv_events_tbl IN RCV_SeedEvents_PVT.rcv_event_tbl_type Required
3144: --
3138: -- Default = FND_API.G_FALSE
3139: -- p_commit IN VARCHAR2 Optional
3140: -- Default = FND_API.G_FALSE
3141: -- p_validation_level IN NUMBER Optional
3142: -- Default = FND_API.G_VALID_LEVEL_FULL
3143: -- p_rcv_events_tbl IN RCV_SeedEvents_PVT.rcv_event_tbl_type Required
3144: --
3145: -- OUT : x_return_status OUT VARCHAR2(1)
3146: -- x_msg_count OUT NUMBER
3168: ) IS
3169: l_api_name CONSTANT VARCHAR2(30) := 'Insert_RAEEvents';
3170: l_api_version CONSTANT NUMBER := 1.0;
3171:
3172: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3173: l_msg_count NUMBER := 0;
3174: l_msg_data VARCHAR2(8000) := '';
3175: l_stmt_num NUMBER := 0;
3176: l_api_message VARCHAR2(1000);
3202:
3203: END IF;
3204:
3205: -- Standard call to check for call compatibility
3206: IF NOT FND_API.Compatible_API_Call (
3207: l_api_version,
3208: p_api_version,
3209: l_api_name,
3210: G_PKG_NAME ) THEN
3207: l_api_version,
3208: p_api_version,
3209: l_api_name,
3210: G_PKG_NAME ) THEN
3211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3212: END IF;
3213:
3214: -- Initialize message list if p_init_msg_list is set to TRUE
3215: IF FND_API.to_Boolean(p_init_msg_list) THEN
3211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3212: END IF;
3213:
3214: -- Initialize message list if p_init_msg_list is set to TRUE
3215: IF FND_API.to_Boolean(p_init_msg_list) THEN
3216: FND_MSG_PUB.initialize;
3217: END IF;
3218:
3219: -- Initialize API return status to success
3216: FND_MSG_PUB.initialize;
3217: END IF;
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
3433: x_msg_data => l_msg_data,
3434: p_accounting_event_id => l_accounting_event_id,
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);
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;
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
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);
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;
3485:
3486: END IF;
3487: END LOOP;
3488:
3489:
3490:
3491: --- Standard check of p_commit
3492: IF FND_API.to_Boolean(p_commit) THEN
3493: COMMIT WORK;
3494: END IF;
3495:
3496: -- Standard Call to get message count and if count = 1, get message info
3504: END IF;
3505:
3506:
3507: EXCEPTION
3508: WHEN FND_API.g_exc_error THEN
3509: ROLLBACK TO Insert_RAEEvents_PVT;
3510: x_return_status := FND_API.g_ret_sts_error;
3511: FND_MSG_PUB.count_and_get
3512: ( p_count => x_msg_count
3506:
3507: EXCEPTION
3508: WHEN FND_API.g_exc_error THEN
3509: ROLLBACK TO Insert_RAEEvents_PVT;
3510: x_return_status := FND_API.g_ret_sts_error;
3511: FND_MSG_PUB.count_and_get
3512: ( p_count => x_msg_count
3513: , p_data => x_msg_data
3514: );
3512: ( p_count => x_msg_count
3513: , p_data => x_msg_data
3514: );
3515:
3516: WHEN FND_API.g_exc_unexpected_error THEN
3517: ROLLBACK TO Insert_RAEEvents_PVT;
3518: x_return_status := FND_API.g_ret_sts_unexp_error ;
3519: FND_MSG_PUB.count_and_get
3520: ( p_count => x_msg_count
3514: );
3515:
3516: WHEN FND_API.g_exc_unexpected_error THEN
3517: ROLLBACK TO Insert_RAEEvents_PVT;
3518: x_return_status := FND_API.g_ret_sts_unexp_error ;
3519: FND_MSG_PUB.count_and_get
3520: ( p_count => x_msg_count
3521: , p_data => x_msg_data
3522: );
3522: );
3523:
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));
3551: -- Pre-reqs :
3552: -- Parameters :
3553: -- IN : p_api_version IN NUMBER Required
3554: -- p_init_msg_list IN VARCHAR2 Optional
3555: -- Default = FND_API.G_FALSE
3556: -- p_commit IN VARCHAR2 Optional
3557: -- Default = FND_API.G_FALSE
3558: -- p_validation_level IN NUMBER Optional
3559: -- Default = FND_API.G_VALID_LEVEL_FULL
3553: -- IN : p_api_version IN NUMBER Required
3554: -- p_init_msg_list IN VARCHAR2 Optional
3555: -- Default = FND_API.G_FALSE
3556: -- p_commit IN VARCHAR2 Optional
3557: -- Default = FND_API.G_FALSE
3558: -- p_validation_level IN NUMBER Optional
3559: -- Default = FND_API.G_VALID_LEVEL_FULL
3560: -- p_rcv_sob_id IN NUMBER Required
3561: -- p_po_header_id IN NUMBER Required
3555: -- Default = FND_API.G_FALSE
3556: -- p_commit IN VARCHAR2 Optional
3557: -- Default = FND_API.G_FALSE
3558: -- p_validation_level IN NUMBER Optional
3559: -- Default = FND_API.G_VALID_LEVEL_FULL
3560: -- p_rcv_sob_id IN NUMBER Required
3561: -- p_po_header_id IN NUMBER Required
3562: --
3563: -- x_encumbrance_flag OUT VARCHAR2(1)
3592: ) IS
3593: l_api_name CONSTANT VARCHAR2(30) := 'Check_EncumbranceFlag';
3594: l_api_version CONSTANT NUMBER := 1.0;
3595:
3596: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3597: l_msg_count NUMBER := 0;
3598: l_msg_data VARCHAR2(8000) := '';
3599: l_stmt_num NUMBER := 0;
3600: l_api_message VARCHAR2(1000);
3612: ,'Check_EncumbranceFlag <<');
3613: END IF;
3614:
3615: -- Standard call to check for call compatibility
3616: IF NOT FND_API.Compatible_API_Call (
3617: l_api_version,
3618: p_api_version,
3619: l_api_name,
3620: G_PKG_NAME ) THEN
3617: l_api_version,
3618: p_api_version,
3619: l_api_name,
3620: G_PKG_NAME ) THEN
3621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3622: END IF;
3623:
3624: -- Initialize message list if p_init_msg_list is set to TRUE
3625: IF FND_API.to_Boolean(p_init_msg_list) THEN
3621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3622: END IF;
3623:
3624: -- Initialize message list if p_init_msg_list is set to TRUE
3625: IF FND_API.to_Boolean(p_init_msg_list) THEN
3626: FND_MSG_PUB.initialize;
3627: END IF;
3628:
3629: -- Initialize API return status to success
3626: FND_MSG_PUB.initialize;
3627: END IF;
3628:
3629: -- Initialize API return status to success
3630: x_return_status := FND_API.G_RET_STS_SUCCESS;
3631:
3632: l_stmt_num := 10;
3633: SELECT nvl(FSP.purch_encumbrance_flag, 'N')
3634: INTO l_encumbrance_flag
3647: END IF;
3648:
3649:
3650: -- Standard check of p_commit
3651: IF FND_API.to_Boolean(p_commit) THEN
3652: COMMIT WORK;
3653: END IF;
3654:
3655: -- Standard Call to get message count and if count = 1, get message info
3663: END IF;
3664:
3665:
3666: EXCEPTION
3667: WHEN FND_API.g_exc_error THEN
3668: ROLLBACK TO Check_EncumbranceFlag_PVT;
3669: x_return_status := FND_API.g_ret_sts_error;
3670: FND_MSG_PUB.count_and_get
3671: ( p_count => x_msg_count
3665:
3666: EXCEPTION
3667: WHEN FND_API.g_exc_error THEN
3668: ROLLBACK TO Check_EncumbranceFlag_PVT;
3669: x_return_status := FND_API.g_ret_sts_error;
3670: FND_MSG_PUB.count_and_get
3671: ( p_count => x_msg_count
3672: , p_data => x_msg_data
3673: );
3670: FND_MSG_PUB.count_and_get
3671: ( p_count => x_msg_count
3672: , p_data => x_msg_data
3673: );
3674: WHEN FND_API.g_exc_unexpected_error THEN
3675: ROLLBACK TO Check_EncumbranceFlag_PVT;
3676: x_return_status := FND_API.g_ret_sts_unexp_error ;
3677: FND_MSG_PUB.count_and_get
3678: ( p_count => x_msg_count
3672: , p_data => x_msg_data
3673: );
3674: WHEN FND_API.g_exc_unexpected_error THEN
3675: ROLLBACK TO Check_EncumbranceFlag_PVT;
3676: x_return_status := FND_API.g_ret_sts_unexp_error ;
3677: FND_MSG_PUB.count_and_get
3678: ( p_count => x_msg_count
3679: , p_data => x_msg_data
3680: );
3680: );
3681:
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));
3741: l_api_name CONSTANT VARCHAR2(30) := 'Insert_MMTEvents';
3742: l_api_version CONSTANT NUMBER := 1.0;
3743: l_api_message VARCHAR2(1000);
3744:
3745: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3746: l_msg_count NUMBER := 0;
3747: l_msg_data VARCHAR2(8000) := '';
3748: l_stmt_num NUMBER := 0;
3749:
3771: ,'Insert_MMTEvents <<');
3772: END IF;
3773:
3774: -- Standard call to check for call compatibility
3775: IF NOT FND_API.Compatible_API_Call (
3776: l_api_version,
3777: p_api_version,
3778: l_api_name,
3779: G_PKG_NAME ) THEN
3776: l_api_version,
3777: p_api_version,
3778: l_api_name,
3779: G_PKG_NAME ) THEN
3780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3781: END IF;
3782:
3783: -- Initialize message list if p_init_msg_list is set to TRUE
3784: IF FND_API.to_Boolean(p_init_msg_list) THEN
3780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3781: END IF;
3782:
3783: -- Initialize message list if p_init_msg_list is set to TRUE
3784: IF FND_API.to_Boolean(p_init_msg_list) THEN
3785: FND_MSG_PUB.initialize;
3786: END IF;
3787:
3788: -- Initialize API return status to success
3785: FND_MSG_PUB.initialize;
3786: END IF;
3787:
3788: -- Initialize API return status to success
3789: x_return_status := FND_API.G_RET_STS_SUCCESS;
3790: x_msg_count := 0;
3791: x_msg_data := '';
3792:
3793: -- API Body
3889: x_msg_data => l_msg_data,
3890: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
3891: END IF;
3892:
3893: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3894: RAISE FND_API.g_exc_error;
3895: END IF;
3896:
3897: l_stmt_num := 50;
3890: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
3891: END IF;
3892:
3893: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3894: RAISE FND_API.g_exc_error;
3895: END IF;
3896:
3897: l_stmt_num := 50;
3898: l_inv_trx_tbl_ctr := l_inv_trx_tbl_ctr + 1;
3935: x_msg_count => l_msg_count,
3936: x_msg_data => l_msg_data,
3937: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
3938: END IF;
3939: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
3940: RAISE FND_API.g_exc_error;
3941: END IF;
3942:
3943: ELSIF (p_rcv_events_tbl(l_ctr).event_type_id = RCV_SeedEvents_PVT.LOGICAL_RETURN_TO_VENDOR) THEN
3936: x_msg_data => l_msg_data,
3937: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
3938: END IF;
3939: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
3940: RAISE FND_API.g_exc_error;
3941: END IF;
3942:
3943: ELSIF (p_rcv_events_tbl(l_ctr).event_type_id = RCV_SeedEvents_PVT.LOGICAL_RETURN_TO_VENDOR) THEN
3944: l_stmt_num := 80;
3998: x_msg_data => l_msg_data,
3999: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
4000: END IF;
4001:
4002: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4003: RAISE FND_API.g_exc_error;
4004: END IF;
4005:
4006: l_stmt_num := 120;
3999: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
4000: END IF;
4001:
4002: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4003: RAISE FND_API.g_exc_error;
4004: END IF;
4005:
4006: l_stmt_num := 120;
4007: l_inv_trx_tbl_ctr := l_inv_trx_tbl_ctr + 1;
4045: x_msg_count => l_msg_count,
4046: x_msg_data => l_msg_data,
4047: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
4048: END IF;
4049: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
4050: RAISE FND_API.g_exc_error;
4051: END IF;
4052:
4053: ELSE
4046: x_msg_data => l_msg_data,
4047: x_inv_trx => l_inv_trx_tbl(l_inv_trx_tbl_ctr));
4048: END IF;
4049: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) then
4050: RAISE FND_API.g_exc_error;
4051: END IF;
4052:
4053: ELSE
4054: RAISE invalid_event;
4077: p_trx_flow_header_id => p_rcv_events_tbl(p_rcv_events_tbl.FIRST).trx_flow_header_id,
4078: p_defer_logical_transactions => 2,
4079: p_logical_trx_type_code => 3,
4080: p_exploded_flag => 1);
4081: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4082: RAISE FND_API.g_exc_error;
4083: END IF;
4084:
4085: -- End API Body
4078: p_defer_logical_transactions => 2,
4079: p_logical_trx_type_code => 3,
4080: p_exploded_flag => 1);
4081: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4082: RAISE FND_API.g_exc_error;
4083: END IF;
4084:
4085: -- End API Body
4086:
4084:
4085: -- End API Body
4086:
4087: -- Standard check of p_commit
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
4097: EXCEPTION
4098:
4099: WHEN invalid_event THEN
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,
4114: ( p_count => x_msg_count
4115: , p_data => x_msg_data
4116: );
4117:
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
4116: );
4117:
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);
4127: ( p_count => x_msg_count
4128: , p_data => x_msg_data
4129: );
4130:
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
4129: );
4130:
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);
4142: );
4143:
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);
4223: l_api_name CONSTANT VARCHAR2(30) := 'Create_MMTRecord';
4224: l_api_version CONSTANT NUMBER := 1.0;
4225: l_api_message VARCHAR2(1000);
4226:
4227: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4228: l_msg_count NUMBER := 0;
4229: l_msg_data VARCHAR2(8000) := '';
4230: l_stmt_num NUMBER := 0;
4231:
4247: ,'Create_MMTRecord <<');
4248: END IF;
4249:
4250: -- Standard call to check for call compatibility
4251: IF NOT FND_API.Compatible_API_Call (
4252: l_api_version,
4253: p_api_version,
4254: l_api_name,
4255: G_PKG_NAME ) THEN
4252: l_api_version,
4253: p_api_version,
4254: l_api_name,
4255: G_PKG_NAME ) THEN
4256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4257: END IF;
4258:
4259: -- Initialize message list if p_init_msg_list is set to TRUE
4260: IF FND_API.to_Boolean(p_init_msg_list) THEN
4256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4257: END IF;
4258:
4259: -- Initialize message list if p_init_msg_list is set to TRUE
4260: IF FND_API.to_Boolean(p_init_msg_list) THEN
4261: FND_MSG_PUB.initialize;
4262: END IF;
4263:
4264: -- Initialize API return status to success
4261: FND_MSG_PUB.initialize;
4262: END IF;
4263:
4264: -- Initialize API return status to success
4265: x_return_status := FND_API.G_RET_STS_SUCCESS;
4266: x_msg_count := 0;
4267: x_msg_data := '';
4268:
4269: -- API Body
4452: X_INV_TRX := l_inv_trx;
4453: -- ***************
4454:
4455: -- Standard check of p_commit
4456: IF FND_API.to_Boolean(p_commit) THEN
4457: COMMIT WORK;
4458: END IF;
4459:
4460: -- Standard Call to get message count and if count = 1, get message info
4468: END IF;
4469:
4470: EXCEPTION
4471:
4472: WHEN FND_API.g_exc_error THEN
4473: ROLLBACK TO Create_MMTRecord_PVT;
4474: x_return_status := FND_API.g_ret_sts_error;
4475: FND_MSG_PUB.count_and_get
4476: ( p_count => x_msg_count
4470: EXCEPTION
4471:
4472: WHEN FND_API.g_exc_error THEN
4473: ROLLBACK TO Create_MMTRecord_PVT;
4474: x_return_status := FND_API.g_ret_sts_error;
4475: FND_MSG_PUB.count_and_get
4476: ( p_count => x_msg_count
4477: , p_data => x_msg_data
4478: );
4476: ( p_count => x_msg_count
4477: , p_data => x_msg_data
4478: );
4479:
4480: WHEN FND_API.g_exc_unexpected_error THEN
4481: ROLLBACK TO Create_MMTRecord_PVT;
4482: x_return_status := FND_API.g_ret_sts_unexp_error ;
4483: l_api_message := 'Unexpected error at statement '||to_char(l_stmt_num);
4484: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4478: );
4479:
4480: WHEN FND_API.g_exc_unexpected_error THEN
4481: ROLLBACK TO Create_MMTRecord_PVT;
4482: x_return_status := FND_API.g_ret_sts_unexp_error ;
4483: l_api_message := 'Unexpected error at statement '||to_char(l_stmt_num);
4484: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4485: FND_MSG_PUB.add_exc_msg
4486: ( G_PKG_NAME,
4492: );
4493:
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);
4510: );
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;
4529: );
4530:
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));