1: PACKAGE BODY IMC_CSV_LOAD AS
2: /* $Header: IMCLOADB.pls 120.13.12010000.2 2009/07/31 06:26:24 vsegu ship $ */
3: PROCEDURE LOAD_DETAILS(loadId NUMBER, batchId NUMBER) IS
4: p_init_msg_list VARCHAR2(25) := FND_API.G_FALSE;
5: x_return_status VARCHAR2(50);
6: x_msg_count NUMBER;
7: x_msg_data VARCHAR2(100);
8: load_id imc_csv_interface_fields.LOAD_ID%TYPE;
1083: close get_details;
1084: -- Activating the created batch
1085:
1086: EXCEPTION
1087: WHEN FND_API.G_EXC_ERROR THEN
1088: ROLLBACK;
1089: x_return_status := FND_API.G_RET_STS_ERROR;
1090: FND_MSG_PUB.Count_And_Get(
1091: p_encoded => FND_API.G_FALSE,
1085:
1086: EXCEPTION
1087: WHEN FND_API.G_EXC_ERROR THEN
1088: ROLLBACK;
1089: x_return_status := FND_API.G_RET_STS_ERROR;
1090: FND_MSG_PUB.Count_And_Get(
1091: p_encoded => FND_API.G_FALSE,
1092: p_count => x_msg_count,
1093: p_data => x_msg_data);
1087: WHEN FND_API.G_EXC_ERROR THEN
1088: ROLLBACK;
1089: x_return_status := FND_API.G_RET_STS_ERROR;
1090: FND_MSG_PUB.Count_And_Get(
1091: p_encoded => FND_API.G_FALSE,
1092: p_count => x_msg_count,
1093: p_data => x_msg_data);
1094: RAISE FND_API.G_EXC_ERROR;
1095: execute immediate 'update hz_imp_batch_summary set csv_status=''ERROR'' where load_type=''CSV'' and batch_id = '||batchId;
1090: FND_MSG_PUB.Count_And_Get(
1091: p_encoded => FND_API.G_FALSE,
1092: p_count => x_msg_count,
1093: p_data => x_msg_data);
1094: RAISE FND_API.G_EXC_ERROR;
1095: execute immediate 'update hz_imp_batch_summary set csv_status=''ERROR'' where load_type=''CSV'' and batch_id = '||batchId;
1096:
1097:
1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1094: RAISE FND_API.G_EXC_ERROR;
1095: execute immediate 'update hz_imp_batch_summary set csv_status=''ERROR'' where load_type=''CSV'' and batch_id = '||batchId;
1096:
1097:
1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1099: ROLLBACK;
1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1101: FND_MSG_PUB.Count_And_Get(
1102: p_encoded => FND_API.G_FALSE,
1096:
1097:
1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1099: ROLLBACK;
1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1101: FND_MSG_PUB.Count_And_Get(
1102: p_encoded => FND_API.G_FALSE,
1103: p_count => x_msg_count,
1104: p_data => x_msg_data);
1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1099: ROLLBACK;
1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1101: FND_MSG_PUB.Count_And_Get(
1102: p_encoded => FND_API.G_FALSE,
1103: p_count => x_msg_count,
1104: p_data => x_msg_data);
1105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1106: execute immediate 'update hz_imp_batch_summary set csv_status=''ERROR'' where load_type=''CSV'' and batch_id = '||batchId;
1101: FND_MSG_PUB.Count_And_Get(
1102: p_encoded => FND_API.G_FALSE,
1103: p_count => x_msg_count,
1104: p_data => x_msg_data);
1105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1106: execute immediate 'update hz_imp_batch_summary set csv_status=''ERROR'' where load_type=''CSV'' and batch_id = '||batchId;
1107:
1108:
1109: WHEN OTHERS THEN
1107:
1108:
1109: WHEN OTHERS THEN
1110: ROLLBACK;
1111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1112:
1113: FND_MESSAGE.SET_NAME('AR', 'IMC_API_OTHERS_EXCEP');
1114: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1115: FND_MSG_PUB.ADD;
1114: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
1115: FND_MSG_PUB.ADD;
1116:
1117: FND_MSG_PUB.Count_And_Get(
1118: p_encoded => FND_API.G_FALSE,
1119: p_count => x_msg_count,
1120: p_data => x_msg_data );
1121: RAISE FND_API.G_EXC_ERROR;
1122: execute immediate 'update hz_imp_batch_summary set csv_status=''ERROR'' where load_type=''CSV'' and batch_id = '||batchId;
1117: FND_MSG_PUB.Count_And_Get(
1118: p_encoded => FND_API.G_FALSE,
1119: p_count => x_msg_count,
1120: p_data => x_msg_data );
1121: RAISE FND_API.G_EXC_ERROR;
1122: execute immediate 'update hz_imp_batch_summary set csv_status=''ERROR'' where load_type=''CSV'' and batch_id = '||batchId;
1123:
1124: END;
1125: END IMC_CSV_LOAD;