75: IF p_commit='T' THEN
76: COMMIT WORK;
77: END IF;
78: -- Standard callto get message count and if count is 1, get message info.
79: FND_MSG_PUB.Count_And_Get
80: ( p_count => x_msg_count,
81: p_data => x_msg_data
82: );
83: EXCEPTION
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: );
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
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
100: );
101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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
107: );
108: WHEN OTHERS THEN
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
114: FND_MSG_PUB.Add_Exc_Msg
115: ( G_PKG_NAME ,
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
114: FND_MSG_PUB.Add_Exc_Msg
115: ( G_PKG_NAME ,
116: l_api_name
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
114: FND_MSG_PUB.Add_Exc_Msg
115: ( G_PKG_NAME ,
116: l_api_name
117: );
118: END IF;
115: ( G_PKG_NAME ,
116: l_api_name
117: );
118: END IF;
119: FND_MSG_PUB.Count_And_Get
120: ( p_count => x_msg_count ,
121: p_data => x_msg_data
122: );
123: