29: FOLDER_CREATE_ERROR EXCEPTION;
30:
31: BEGIN
32: -- Standard call to check for call compatibility.
33: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
34: p_api_version_number,
35: l_api_name,
36: G_PKG_NAME)
37: THEN
34: p_api_version_number,
35: l_api_name,
36: G_PKG_NAME)
37: THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: END IF;
40: x_return_status := FND_API.G_RET_STS_SUCCESS;
41: SAVEPOINT IEM_ARCHFLD_PVT;
42: select iem_archived_folders_s1.nextval into l_seq_id from dual;
36: G_PKG_NAME)
37: THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: END IF;
40: x_return_status := FND_API.G_RET_STS_SUCCESS;
41: SAVEPOINT IEM_ARCHFLD_PVT;
42: select iem_archived_folders_s1.nextval into l_seq_id from dual;
43: select nvl(max(FOLDER_SEQ_NUM),0)+1
44: INTO l_fld_id
81: p_data => x_msg_data
82: );
83: EXCEPTION
84: WHEN FOLDER_CREATE_ERROR THEN
85: x_return_status := FND_API.G_RET_STS_ERROR ;
86: rollback to IEM_ARCHFLD_PVT;
87: FND_MESSAGE.Set_Name('IEM', 'IEM_ARCH_OES_FLD_CREATE_ERROR');
88: FND_MESSAGE.Set_Token('CODE',l_oes_ret_code);
89: FND_MSG_PUB.Add;
90: FND_MSG_PUB.Count_And_Get
91: ( p_count => x_msg_count,
92: p_data => x_msg_data
93: );
94: WHEN FND_API.G_EXC_ERROR THEN
95: x_return_status := FND_API.G_RET_STS_ERROR ;
96: rollback to IEM_ARCHFLD_PVT;
97: FND_MSG_PUB.Count_And_Get
98: ( p_count => x_msg_count,
91: ( p_count => x_msg_count,
92: p_data => x_msg_data
93: );
94: WHEN FND_API.G_EXC_ERROR THEN
95: x_return_status := FND_API.G_RET_STS_ERROR ;
96: rollback to IEM_ARCHFLD_PVT;
97: FND_MSG_PUB.Count_And_Get
98: ( p_count => x_msg_count,
99: p_data => x_msg_data
97: FND_MSG_PUB.Count_And_Get
98: ( p_count => x_msg_count,
99: p_data => x_msg_data
100: );
101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
103: rollback to IEM_ARCHFLD_PVT;
104: FND_MSG_PUB.Count_And_Get
105: ( p_count => x_msg_count,
98: ( p_count => x_msg_count,
99: p_data => x_msg_data
100: );
101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
103: rollback to IEM_ARCHFLD_PVT;
104: FND_MSG_PUB.Count_And_Get
105: ( p_count => x_msg_count,
106: p_data => x_msg_data
105: ( p_count => x_msg_count,
106: p_data => x_msg_data
107: );
108: WHEN OTHERS THEN
109: x_return_status := FND_API.G_RET_STS_ERROR;
110: rollback to IEM_ARCHFLD_PVT;
111: IF FND_MSG_PUB.Check_Msg_Level
112: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
113: THEN