142: -- Initialize message list
143: FND_MSG_PUB.initialize;
144:
145: /* Initialize API return status to success */
146: l_return_status := FND_API.G_RET_STS_SUCCESS;
147:
148: l_stmt_num := 10;
149:
150: /* Call the landed cost interface records validation proceduere */
149:
150: /* Call the landed cost interface records validation proceduere */
151: Validate_Lc_Interface
152: (p_api_version => l_api_version,
153: p_init_msg_list => FND_API.G_FALSE,
154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
155: p_group_id => p_group_id,
156: p_organization_id => p_organization_id,
157: x_no_of_errored => l_no_of_errored,
150: /* Call the landed cost interface records validation proceduere */
151: Validate_Lc_Interface
152: (p_api_version => l_api_version,
153: p_init_msg_list => FND_API.G_FALSE,
154: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
155: p_group_id => p_group_id,
156: p_organization_id => p_organization_id,
157: x_no_of_errored => l_no_of_errored,
158: x_return_status => l_return_status);
156: p_organization_id => p_organization_id,
157: x_no_of_errored => l_no_of_errored,
158: x_return_status => l_return_status);
159:
160: IF l_return_status <> FND_API.g_ret_sts_success THEN
161: IF l_exceptionLog THEN
162: fnd_message.set_name('BOM','CST_LOG_EXCEPTION');
163: fnd_message.set_token('CALLED','Validate_Lc_Interface');
164:
163: fnd_message.set_token('CALLED','Validate_Lc_Interface');
164:
165: END IF;
166:
167: RAISE FND_API.g_exc_unexpected_error;
168: END IF;
169:
170: l_stmt_num := 15;
171:
186:
187: /* Populate common information related to the lcm adjustment transaction */
188: Populate_Lcm_Adjustment_Info
189: (p_api_version => l_api_version,
190: p_init_msg_list => FND_API.G_FALSE,
191: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
192: p_group_id => p_group_id,
193: p_organization_id => p_organization_id,
194: x_ledger_id => l_ledger_id,
187: /* Populate common information related to the lcm adjustment transaction */
188: Populate_Lcm_Adjustment_Info
189: (p_api_version => l_api_version,
190: p_init_msg_list => FND_API.G_FALSE,
191: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
192: p_group_id => p_group_id,
193: p_organization_id => p_organization_id,
194: x_ledger_id => l_ledger_id,
195: x_primary_cost_method => l_primary_cost_method,
195: x_primary_cost_method => l_primary_cost_method,
196: x_wms_enabled_flag => l_wms_enabled_flag,
197: x_return_status => l_return_status);
198:
199: IF l_return_status <> FND_API.g_ret_sts_success THEN
200: IF l_exceptionLog THEN
201: fnd_message.set_name('BOM','CST_LOG_EXCEPTION');
202: fnd_message.set_token('CALLED','Populate_Temp_Adjustment_Data');
203:
201: fnd_message.set_name('BOM','CST_LOG_EXCEPTION');
202: fnd_message.set_token('CALLED','Populate_Temp_Adjustment_Data');
203:
204: END IF;
205: RAISE FND_API.g_exc_unexpected_error;
206: END IF;
207:
208: l_stmt_num := 40;
209:
209:
210: /* Populate the adjustment data into the global temporary tables */
211: Populate_Temp_Adjustment_Data
212: (p_api_version => l_api_version,
213: p_init_msg_list => FND_API.G_FALSE,
214: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
215: p_primary_cost_method => l_primary_cost_method,
216: p_wms_enabled_flag => l_wms_enabled_flag,
217: x_return_status => l_return_status);
210: /* Populate the adjustment data into the global temporary tables */
211: Populate_Temp_Adjustment_Data
212: (p_api_version => l_api_version,
213: p_init_msg_list => FND_API.G_FALSE,
214: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
215: p_primary_cost_method => l_primary_cost_method,
216: p_wms_enabled_flag => l_wms_enabled_flag,
217: x_return_status => l_return_status);
218:
215: p_primary_cost_method => l_primary_cost_method,
216: p_wms_enabled_flag => l_wms_enabled_flag,
217: x_return_status => l_return_status);
218:
219: IF l_return_status <> FND_API.g_ret_sts_success THEN
220: IF l_exceptionLog THEN
221: fnd_message.set_name('BOM','CST_LOG_EXCEPTION');
222: fnd_message.set_token('CALLED','Populate_Temp_Adjustment_Data');
223:
222: fnd_message.set_token('CALLED','Populate_Temp_Adjustment_Data');
223:
224: END IF;
225:
226: RAISE FND_API.g_exc_unexpected_error;
227: END IF;
228:
229: l_stmt_num := 50;
230:
230:
231: /* Insert the adjustment data from the GTTs into the actual tables */
232: Insert_Adjustment_Data
233: (p_api_version => l_api_version,
234: p_init_msg_list => FND_API.G_FALSE,
235: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
236: p_group_id => p_group_id,
237: p_organization_id => p_organization_id,
238: p_ledger_id => l_ledger_id,
231: /* Insert the adjustment data from the GTTs into the actual tables */
232: Insert_Adjustment_Data
233: (p_api_version => l_api_version,
234: p_init_msg_list => FND_API.G_FALSE,
235: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
236: p_group_id => p_group_id,
237: p_organization_id => p_organization_id,
238: p_ledger_id => l_ledger_id,
239: x_return_status => l_return_status);
237: p_organization_id => p_organization_id,
238: p_ledger_id => l_ledger_id,
239: x_return_status => l_return_status);
240:
241: IF l_return_status <> FND_API.g_ret_sts_success THEN
242: IF l_exceptionLog THEN
243: fnd_message.set_name('BOM','CST_LOG_EXCEPTION');
244: fnd_message.set_token('CALLED','Insert_Adjustment_Data');
245:
243: fnd_message.set_name('BOM','CST_LOG_EXCEPTION');
244: fnd_message.set_token('CALLED','Insert_Adjustment_Data');
245:
246: END IF;
247: RAISE FND_API.g_exc_unexpected_error;
248: END IF;
249:
250: l_stmt_num := 60;
251:
285: END IF;
286:
287: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',FND_MESSAGE.GET);
288:
289: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
290: ROLLBACK;
291:
292: IF (l_ulog) THEN
293: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
295:
296: /* Set concurrent program status to error */
297: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',FND_MESSAGE.GET);
298:
299: WHEN FND_API.G_EXC_ERROR THEN
300: ROLLBACK;
301:
302: IF (l_exceptionLog) THEN
303: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
444: );
445: END IF;
446:
447: /* Standard call to check for call compatibility */
448: IF NOT FND_API.Compatible_API_Call ( l_api_version,
449: p_api_version,
450: l_api_name,
451: G_PKG_NAME )
452: THEN
449: p_api_version,
450: l_api_name,
451: G_PKG_NAME )
452: THEN
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: END IF;
455:
456: /* Initialize message list if p_init_msg_list is set to TRUE */
457: IF FND_API.to_Boolean( p_init_msg_list ) THEN
453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454: END IF;
455:
456: /* Initialize message list if p_init_msg_list is set to TRUE */
457: IF FND_API.to_Boolean( p_init_msg_list ) THEN
458: FND_MSG_PUB.initialize;
459: END IF;
460:
461: /* Initialize API return status to success */
458: FND_MSG_PUB.initialize;
459: END IF;
460:
461: /* Initialize API return status to success */
462: x_return_status := FND_API.G_RET_STS_SUCCESS;
463: l_return_status := FND_API.G_RET_STS_SUCCESS;
464:
465: l_stmt_num := 10;
466:
459: END IF;
460:
461: /* Initialize API return status to success */
462: x_return_status := FND_API.G_RET_STS_SUCCESS;
463: l_return_status := FND_API.G_RET_STS_SUCCESS;
464:
465: l_stmt_num := 10;
466:
467: /* Retrieve the organization / ledger / OU related information for the organization */
1033: END IF;
1034:
1035: EXCEPTION
1036:
1037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1038: x_return_status := FND_API.g_ret_sts_error;
1039: IF (l_ulog) THEN
1040: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
1041: END IF;
1034:
1035: EXCEPTION
1036:
1037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1038: x_return_status := FND_API.g_ret_sts_error;
1039: IF (l_ulog) THEN
1040: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
1041: END IF;
1042:
1039: IF (l_ulog) THEN
1040: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
1041: END IF;
1042:
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: x_return_status := FND_API.g_ret_sts_error;
1045: IF (l_exceptionLog) THEN
1046: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
1047: END IF;
1040: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
1041: END IF;
1042:
1043: WHEN FND_API.G_EXC_ERROR THEN
1044: x_return_status := FND_API.g_ret_sts_error;
1045: IF (l_exceptionLog) THEN
1046: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
1047: END IF;
1048:
1046: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
1047: END IF;
1048:
1049: WHEN OTHERS THEN
1050: x_return_status := FND_API.g_ret_sts_error;
1051: IF (l_uLog) THEN
1052: FND_MESSAGE.set_name('BOM', 'CST_UNEXP_ERROR');
1053: FND_MESSAGE.set_token('PACKAGE', G_PKG_NAME);
1054: FND_MESSAGE.set_token('PROCEDURE',l_api_name);
1137: );
1138: END IF;
1139:
1140: /* Standard call to check for call compatibility */
1141: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1142: p_api_version,
1143: l_api_name,
1144: G_PKG_NAME )
1145: THEN
1142: p_api_version,
1143: l_api_name,
1144: G_PKG_NAME )
1145: THEN
1146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1147: END IF;
1148:
1149: /* Initialize message list if p_init_msg_list is set to TRUE */
1150: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1146: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1147: END IF;
1148:
1149: /* Initialize message list if p_init_msg_list is set to TRUE */
1150: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1151: FND_MSG_PUB.initialize;
1152: END IF;
1153:
1154: /* Initialize API return status to success */
1151: FND_MSG_PUB.initialize;
1152: END IF;
1153:
1154: /* Initialize API return status to success */
1155: x_return_status := FND_API.G_RET_STS_SUCCESS;
1156: l_return_status := FND_API.G_RET_STS_SUCCESS;
1157:
1158: l_stmt_num := 10;
1159:
1152: END IF;
1153:
1154: /* Initialize API return status to success */
1155: x_return_status := FND_API.G_RET_STS_SUCCESS;
1156: l_return_status := FND_API.G_RET_STS_SUCCESS;
1157:
1158: l_stmt_num := 10;
1159:
1160: /* Create the Receipt Adjustment Events - Event type id = 15 */
1774: END IF;
1775:
1776: EXCEPTION
1777:
1778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1779: x_return_status := FND_API.g_ret_sts_error;
1780: IF (l_uLog) THEN
1781: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
1782: END IF;
1775:
1776: EXCEPTION
1777:
1778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1779: x_return_status := FND_API.g_ret_sts_error;
1780: IF (l_uLog) THEN
1781: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
1782: END IF;
1783:
1780: IF (l_uLog) THEN
1781: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
1782: END IF;
1783:
1784: WHEN FND_API.G_EXC_ERROR THEN
1785: x_return_status := FND_API.g_ret_sts_error;
1786: IF (l_exceptionLog) THEN
1787: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
1788: END IF;
1781: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
1782: END IF;
1783:
1784: WHEN FND_API.G_EXC_ERROR THEN
1785: x_return_status := FND_API.g_ret_sts_error;
1786: IF (l_exceptionLog) THEN
1787: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
1788: END IF;
1789:
1787: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
1788: END IF;
1789:
1790: WHEN OTHERS THEN
1791: x_return_status := FND_API.g_ret_sts_error;
1792: IF (l_uLog) THEN
1793: FND_MESSAGE.set_name('BOM', 'CST_UNEXP_ERROR');
1794: FND_MESSAGE.set_token('PACKAGE', G_PKG_NAME);
1795: FND_MESSAGE.set_token('PROCEDURE',l_api_name);
1881: );
1882: END IF;
1883:
1884: /* Standard call to check for call compatibility */
1885: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1886: p_api_version,
1887: l_api_name,
1888: G_PKG_NAME )
1889: THEN
1886: p_api_version,
1887: l_api_name,
1888: G_PKG_NAME )
1889: THEN
1890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1891: END IF;
1892:
1893: /* Initialize message list if p_init_msg_list is set to TRUE */
1894: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1891: END IF;
1892:
1893: /* Initialize message list if p_init_msg_list is set to TRUE */
1894: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1895: FND_MSG_PUB.initialize;
1896: END IF;
1897:
1898: /* Initialize API return status to success */
1895: FND_MSG_PUB.initialize;
1896: END IF;
1897:
1898: /* Initialize API return status to success */
1899: x_return_status := FND_API.G_RET_STS_SUCCESS;
1900: l_return_status := FND_API.G_RET_STS_SUCCESS;
1901:
1902: l_stmt_num := 10;
1903:
1896: END IF;
1897:
1898: /* Initialize API return status to success */
1899: x_return_status := FND_API.G_RET_STS_SUCCESS;
1900: l_return_status := FND_API.G_RET_STS_SUCCESS;
1901:
1902: l_stmt_num := 10;
1903:
1904: /* Create RCV accounting events data from the GTT */
2484: END IF;
2485:
2486: EXCEPTION
2487:
2488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2489: x_return_status := FND_API.g_ret_sts_error;
2490: IF (l_uLog) THEN
2491: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
2492: END IF;
2485:
2486: EXCEPTION
2487:
2488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2489: x_return_status := FND_API.g_ret_sts_error;
2490: IF (l_uLog) THEN
2491: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
2492: END IF;
2493:
2490: IF (l_uLog) THEN
2491: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
2492: END IF;
2493:
2494: WHEN FND_API.G_EXC_ERROR THEN
2495: x_return_status := FND_API.g_ret_sts_error;
2496: IF (l_exceptionLog) THEN
2497: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
2498: END IF;
2491: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
2492: END IF;
2493:
2494: WHEN FND_API.G_EXC_ERROR THEN
2495: x_return_status := FND_API.g_ret_sts_error;
2496: IF (l_exceptionLog) THEN
2497: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
2498: END IF;
2499:
2497: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
2498: END IF;
2499:
2500: WHEN OTHERS THEN
2501: x_return_status := FND_API.g_ret_sts_error;
2502: IF (l_uLog) THEN
2503: FND_MESSAGE.set_name('BOM', 'CST_UNEXP_ERROR');
2504: FND_MESSAGE.set_token('PACKAGE', G_PKG_NAME);
2505: FND_MESSAGE.set_token('PROCEDURE',l_api_name);
2593: );
2594: END IF;
2595:
2596: /* Initialize API return status to success */
2597: x_return_status := FND_API.G_RET_STS_SUCCESS;
2598: l_return_status := FND_API.G_RET_STS_SUCCESS;
2599:
2600: /* Standard call to check for call compatibility */
2601: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2594: END IF;
2595:
2596: /* Initialize API return status to success */
2597: x_return_status := FND_API.G_RET_STS_SUCCESS;
2598: l_return_status := FND_API.G_RET_STS_SUCCESS;
2599:
2600: /* Standard call to check for call compatibility */
2601: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2602: p_api_version,
2597: x_return_status := FND_API.G_RET_STS_SUCCESS;
2598: l_return_status := FND_API.G_RET_STS_SUCCESS;
2599:
2600: /* Standard call to check for call compatibility */
2601: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2602: p_api_version,
2603: l_api_name,
2604: G_PKG_NAME )
2605: THEN
2602: p_api_version,
2603: l_api_name,
2604: G_PKG_NAME )
2605: THEN
2606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2607: END IF;
2608:
2609: /* Initialize message list if p_init_msg_list is set to TRUE */
2610: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2607: END IF;
2608:
2609: /* Initialize message list if p_init_msg_list is set to TRUE */
2610: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2611: FND_MSG_PUB.initialize;
2612: END IF;
2613:
2614: l_stmt_num := 10;
2861: END IF;
2862:
2863: EXCEPTION
2864:
2865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2866: x_return_status := FND_API.g_ret_sts_error;
2867: IF (l_uLog) THEN
2868: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
2869: END IF;
2862:
2863: EXCEPTION
2864:
2865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2866: x_return_status := FND_API.g_ret_sts_error;
2867: IF (l_uLog) THEN
2868: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
2869: END IF;
2870:
2867: IF (l_uLog) THEN
2868: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
2869: END IF;
2870:
2871: WHEN FND_API.G_EXC_ERROR THEN
2872: x_return_status := FND_API.g_ret_sts_error;
2873: IF (l_exceptionLog) THEN
2874: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
2875: END IF;
2868: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,l_module, TRUE);
2869: END IF;
2870:
2871: WHEN FND_API.G_EXC_ERROR THEN
2872: x_return_status := FND_API.g_ret_sts_error;
2873: IF (l_exceptionLog) THEN
2874: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
2875: END IF;
2876:
2874: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,l_module, TRUE);
2875: END IF;
2876:
2877: WHEN OTHERS THEN
2878: x_return_status := FND_API.g_ret_sts_error;
2879: IF (l_uLog) THEN
2880: FND_MESSAGE.set_name('BOM', 'CST_UNEXP_ERROR');
2881: FND_MESSAGE.set_token('PACKAGE', G_PKG_NAME);
2882: FND_MESSAGE.set_token('PROCEDURE',l_api_name);