63: IF p_commit='T' THEN
64: COMMIT WORK;
65: END IF;
66: -- Standard callto get message count and if count is 1, get message info.
67: FND_MSG_PUB.Count_And_Get
68: ( p_count => x_msg_count,
69: p_data => x_msg_data
70: );
71: EXCEPTION
70: );
71: EXCEPTION
72: WHEN FND_API.G_EXC_ERROR THEN
73: x_return_status := FND_API.G_RET_STS_ERROR ;
74: FND_MSG_PUB.Count_And_Get
75: ( p_count => x_msg_count,
76: p_data => x_msg_data
77: );
78: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
76: p_data => x_msg_data
77: );
78: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
79: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
80: FND_MSG_PUB.Count_And_Get
81: ( p_count => x_msg_count,
82: p_data => x_msg_data
83: );
84: WHEN OTHERS THEN
82: p_data => x_msg_data
83: );
84: WHEN OTHERS THEN
85: x_return_status := FND_API.G_RET_STS_ERROR;
86: IF FND_MSG_PUB.Check_Msg_Level
87: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
88: THEN
89: FND_MSG_PUB.Add_Exc_Msg
90: ( G_PKG_NAME ,
83: );
84: WHEN OTHERS THEN
85: x_return_status := FND_API.G_RET_STS_ERROR;
86: IF FND_MSG_PUB.Check_Msg_Level
87: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
88: THEN
89: FND_MSG_PUB.Add_Exc_Msg
90: ( G_PKG_NAME ,
91: l_api_name
85: x_return_status := FND_API.G_RET_STS_ERROR;
86: IF FND_MSG_PUB.Check_Msg_Level
87: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
88: THEN
89: FND_MSG_PUB.Add_Exc_Msg
90: ( G_PKG_NAME ,
91: l_api_name
92: );
93: END IF;
90: ( G_PKG_NAME ,
91: l_api_name
92: );
93: END IF;
94: FND_MSG_PUB.Count_And_Get
95: ( p_count => x_msg_count ,
96: p_data => x_msg_data
97: );
98:
126: IF p_commit='T' THEN
127: COMMIT WORK;
128: END IF;
129: -- Standard callto get message count and if count is 1, get message info.
130: FND_MSG_PUB.Count_And_Get
131: ( p_count => x_msg_count,
132: p_data => x_msg_data
133: );
134: EXCEPTION
134: EXCEPTION
135: WHEN FND_API.G_EXC_ERROR THEN
136: ROLLBACK TO delete_item_PVT;
137: x_return_status := FND_API.G_RET_STS_ERROR ;
138: FND_MSG_PUB.Count_And_Get
139: ( p_count => x_msg_count,
140: p_data => x_msg_data
141: );
142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
141: );
142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143: ROLLBACK TO delete_item_PVT;
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
145: FND_MSG_PUB.Count_And_Get
146: ( p_count => x_msg_count,
147: p_data => x_msg_data
148: );
149: WHEN OTHERS THEN
148: );
149: WHEN OTHERS THEN
150: ROLLBACK TO delete_item_PVT;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: IF FND_MSG_PUB.Check_Msg_Level
153: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
154: THEN
155: FND_MSG_PUB.Add_Exc_Msg
156: ( G_PKG_NAME ,
149: WHEN OTHERS THEN
150: ROLLBACK TO delete_item_PVT;
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: IF FND_MSG_PUB.Check_Msg_Level
153: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
154: THEN
155: FND_MSG_PUB.Add_Exc_Msg
156: ( G_PKG_NAME ,
157: l_api_name
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: IF FND_MSG_PUB.Check_Msg_Level
153: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
154: THEN
155: FND_MSG_PUB.Add_Exc_Msg
156: ( G_PKG_NAME ,
157: l_api_name
158: );
159: END IF;
156: ( G_PKG_NAME ,
157: l_api_name
158: );
159: END IF;
160: FND_MSG_PUB.Count_And_Get
161: ( p_count => x_msg_count ,
162: p_data => x_msg_data
163: );
164: