24: -- Version Initial version number = 1.0
25: -- History Current version number = 1.0
26: --=======================================================
27: procedure UPLOAD (
28: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
29: p_api_version_number IN NUMBER,
30: p_init_msg_tbl IN BOOLEAN := FALSE,
31: p_msg_count OUT NOCOPY NUMBER,
32: p_msg_data OUT NOCOPY VARCHAR2,
38: begin
39: --
40: -- Check verion number
41: --
42: IF NOT FND_API.Compatible_API_Call (
43: l_api_version_number, p_api_version_number, l_api_name,
44: G_PKG_NAME) then
45: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
46: return;
41: --
42: IF NOT FND_API.Compatible_API_Call (
43: l_api_version_number, p_api_version_number, l_api_name,
44: G_PKG_NAME) then
45: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
46: return;
47: END IF;
48:
49: -- Initialize the message table if requested.
64: p_msg_data => p_msg_data,
65: p_return_status => l_return_status
66: );
67:
68: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
69: (l_return_status = FND_API.G_RET_STS_ERROR) then
70: RAISE FND_API.G_EXC_ERROR;
71: end if;
72:
65: p_return_status => l_return_status
66: );
67:
68: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
69: (l_return_status = FND_API.G_RET_STS_ERROR) then
70: RAISE FND_API.G_EXC_ERROR;
71: end if;
72:
73: p_return_status := FND_API.G_RET_STS_SUCCESS;
66: );
67:
68: if (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) or
69: (l_return_status = FND_API.G_RET_STS_ERROR) then
70: RAISE FND_API.G_EXC_ERROR;
71: end if;
72:
73: p_return_status := FND_API.G_RET_STS_SUCCESS;
74:
69: (l_return_status = FND_API.G_RET_STS_ERROR) then
70: RAISE FND_API.G_EXC_ERROR;
71: end if;
72:
73: p_return_status := FND_API.G_RET_STS_SUCCESS;
74:
75: EXCEPTION
76: WHEN FND_API.G_EXC_ERROR THEN
77: p_return_status := FND_API.G_RET_STS_ERROR;
72:
73: p_return_status := FND_API.G_RET_STS_SUCCESS;
74:
75: EXCEPTION
76: WHEN FND_API.G_EXC_ERROR THEN
77: p_return_status := FND_API.G_RET_STS_ERROR;
78: -- rollback to Start_upload;
79: WHEN OTHERS THEN
80: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
73: p_return_status := FND_API.G_RET_STS_SUCCESS;
74:
75: EXCEPTION
76: WHEN FND_API.G_EXC_ERROR THEN
77: p_return_status := FND_API.G_RET_STS_ERROR;
78: -- rollback to Start_upload;
79: WHEN OTHERS THEN
80: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81: -- rollback to Start_upload;
76: WHEN FND_API.G_EXC_ERROR THEN
77: p_return_status := FND_API.G_RET_STS_ERROR;
78: -- rollback to Start_upload;
79: WHEN OTHERS THEN
80: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81: -- rollback to Start_upload;
82: FND_MSG_PUB.Build_Exc_Msg( G_PKG_NAME, l_api_name,
83: SUBSTR (SQLERRM, 1, 240) );
84: FND_MSG_PUB.Add;