2: -- $Header: ICXPTREB.pls 115.1 99/07/17 03:21:10 porting ship $
3:
4: PROCEDURE Create_Resp_Excl_Attr
5: ( p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT VARCHAR2,
3:
4: PROCEDURE Create_Resp_Excl_Attr
5: ( p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT VARCHAR2,
11: p_msg_count OUT NUMBER,
4: PROCEDURE Create_Resp_Excl_Attr
5: ( p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT VARCHAR2,
11: p_msg_count OUT NUMBER,
12: p_msg_data OUT VARCHAR2,
5: ( p_api_version_number IN NUMBER,
6: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT VARCHAR2,
11: p_msg_count OUT NUMBER,
12: p_msg_data OUT VARCHAR2,
13: -- p_msg_entity OUT VARCHAR2,
37: SAVEPOINT Create_Resp_Excl_Attr_PUB;
38:
39: -- Standard call to check for call compatibility.
40:
41: if NOT FND_API.Compatible_API_Call
42: (
43: l_api_version_number,
44: p_api_version_number,
45: l_api_name,
45: l_api_name,
46: G_PKG_NAME
47: )
48: then
49: raise FND_API.G_EXC_UNEXPECTED_ERROR;
50: end if;
51:
52: -- Initialize message list if p_init_msg_list is set to TRUE.
53:
50: end if;
51:
52: -- Initialize message list if p_init_msg_list is set to TRUE.
53:
54: if FND_API.to_Boolean( p_init_msg_list)
55: then
56: FND_MSG_PUB.initialize;
57: end if;
58:
57: end if;
58:
59: -- Initialize API return status to success
60:
61: p_return_status := FND_API.G_RET_STS_SUCCESS;
62:
63: -- ***************************
64: -- VALIDATION
65:
93:
94: -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
95: -- the API exception handler.
96:
97: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
98: then
99:
100: -- Unexpected error, abort processing.
101:
98: then
99:
100: -- Unexpected error, abort processing.
101:
102: raise FND_API.G_EXC_UNEXPECTED_ERROR;
103:
104: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
105:
106: -- Error, abort processing
100: -- Unexpected error, abort processing.
101:
102: raise FND_API.G_EXC_UNEXPECTED_ERROR;
103:
104: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
105:
106: -- Error, abort processing
107:
108: raise FND_API.G_EXC_ERROR;
104: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
105:
106: -- Error, abort processing
107:
108: raise FND_API.G_EXC_ERROR;
109:
110: end if;
111:
112: -- Standard check of p_simulate and p_commit parameters
110: end if;
111:
112: -- Standard check of p_simulate and p_commit parameters
113:
114: if FND_API.To_Boolean( p_simulate)
115: then
116: ROLLBACK to Create_Resp_Excl_Attr_PUB;
117:
118: elsif FND_API.To_Boolean( p_commit)
114: if FND_API.To_Boolean( p_simulate)
115: then
116: ROLLBACK to Create_Resp_Excl_Attr_PUB;
117:
118: elsif FND_API.To_Boolean( p_commit)
119: then
120: commit work;
121: end if;
122:
129: );
130:
131: EXCEPTION
132:
133: WHEN FND_API.G_EXC_ERROR THEN
134:
135: Rollback to Create_Resp_Excl_Attr_PUB;
136: p_return_status := FND_API.G_RET_STS_ERROR;
137:
132:
133: WHEN FND_API.G_EXC_ERROR THEN
134:
135: Rollback to Create_Resp_Excl_Attr_PUB;
136: p_return_status := FND_API.G_RET_STS_ERROR;
137:
138: FND_MSG_PUB.Count_And_Get
139: (
140: p_count => p_msg_count,
140: p_count => p_msg_count,
141: p_data => p_msg_data
142: );
143:
144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
145:
146: Rollback to Create_Resp_Excl_Attr_PUB;
147: p_return_status := FND_API.G_RET_STS_ERROR;
148:
143:
144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
145:
146: Rollback to Create_Resp_Excl_Attr_PUB;
147: p_return_status := FND_API.G_RET_STS_ERROR;
148:
149: FND_MSG_PUB.Count_And_Get
150: (
151: p_count => p_msg_count,
154:
155: WHEN OTHERS THEN
156:
157: Rollback to Create_Resp_Excl_Attr_PUB;
158: p_return_status := FND_API.G_RET_STS_ERROR;
159:
160: if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
161: then
162: FND_MSG_PUB.Add_Exc_Msg
179:
180:
181: PROCEDURE Delete_Resp_Excl_Attr
182: ( p_api_version_number IN NUMBER,
183: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
184: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
185: p_commit IN VARCHAR2 := FND_API.G_FALSE,
186: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
187: p_return_status OUT VARCHAR2,
180:
181: PROCEDURE Delete_Resp_Excl_Attr
182: ( p_api_version_number IN NUMBER,
183: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
184: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
185: p_commit IN VARCHAR2 := FND_API.G_FALSE,
186: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
187: p_return_status OUT VARCHAR2,
188: p_msg_count OUT NUMBER,
181: PROCEDURE Delete_Resp_Excl_Attr
182: ( p_api_version_number IN NUMBER,
183: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
184: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
185: p_commit IN VARCHAR2 := FND_API.G_FALSE,
186: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
187: p_return_status OUT VARCHAR2,
188: p_msg_count OUT NUMBER,
189: p_msg_data OUT VARCHAR2,
182: ( p_api_version_number IN NUMBER,
183: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
184: p_simulate IN VARCHAR2 := FND_API.G_FALSE,
185: p_commit IN VARCHAR2 := FND_API.G_FALSE,
186: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
187: p_return_status OUT VARCHAR2,
188: p_msg_count OUT NUMBER,
189: p_msg_data OUT VARCHAR2,
190: -- p_msg_entity OUT VARCHAR2,
206: SAVEPOINT Delete_Resp_Excl_Attr_PUB;
207:
208: -- Standard call to check for call compatibility.
209:
210: if NOT FND_API.Compatible_API_Call
211: (
212: l_api_version_number,
213: p_api_version_number,
214: l_api_name,
214: l_api_name,
215: G_PKG_NAME
216: )
217: then
218: raise FND_API.G_EXC_UNEXPECTED_ERROR;
219: end if;
220:
221: -- Initialize message list if p_init_msg_list is set to TRUE.
222:
219: end if;
220:
221: -- Initialize message list if p_init_msg_list is set to TRUE.
222:
223: if FND_API.to_Boolean( p_init_msg_list)
224: then
225: FND_MSG_PUB.initialize;
226: end if;
227:
226: end if;
227:
228: -- Initialize API return status to success
229:
230: p_return_status := FND_API.G_RET_STS_SUCCESS;
231:
232: ICX_Resp_Excl_Attr_PVT.Delete_Resp_Excl_Attr
233: (
234: p_api_version_number => p_api_version_number ,
249:
250: -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
251: -- the API exception handler.
252:
253: if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
254: then
255:
256: -- Unexpected error, abort processing.
257:
254: then
255:
256: -- Unexpected error, abort processing.
257:
258: raise FND_API.G_EXC_UNEXPECTED_ERROR;
259:
260: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
261:
262: -- Error, abort processing
256: -- Unexpected error, abort processing.
257:
258: raise FND_API.G_EXC_UNEXPECTED_ERROR;
259:
260: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
261:
262: -- Error, abort processing
263:
264: raise FND_API.G_EXC_ERROR;
260: elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
261:
262: -- Error, abort processing
263:
264: raise FND_API.G_EXC_ERROR;
265:
266: end if;
267:
268: -- Standard check of p_simulate and p_commit parameters
266: end if;
267:
268: -- Standard check of p_simulate and p_commit parameters
269:
270: if FND_API.To_Boolean( p_simulate)
271: then
272: ROLLBACK to Delete_Resp_Excl_Attr_PUB;
273:
274: elsif FND_API.To_Boolean( p_commit)
270: if FND_API.To_Boolean( p_simulate)
271: then
272: ROLLBACK to Delete_Resp_Excl_Attr_PUB;
273:
274: elsif FND_API.To_Boolean( p_commit)
275: then
276: commit work;
277: end if;
278:
285: );
286:
287: EXCEPTION
288:
289: WHEN FND_API.G_EXC_ERROR THEN
290:
291: Rollback to Delete_Resp_Excl_Attr_PUB;
292: p_return_status := FND_API.G_RET_STS_ERROR;
293:
288:
289: WHEN FND_API.G_EXC_ERROR THEN
290:
291: Rollback to Delete_Resp_Excl_Attr_PUB;
292: p_return_status := FND_API.G_RET_STS_ERROR;
293:
294: FND_MSG_PUB.Count_And_Get
295: (
296: p_count => p_msg_count,
296: p_count => p_msg_count,
297: p_data => p_msg_data
298: );
299:
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301:
302: Rollback to Delete_Resp_Excl_Attr_PUB;
303: p_return_status := FND_API.G_RET_STS_ERROR;
304:
299:
300: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301:
302: Rollback to Delete_Resp_Excl_Attr_PUB;
303: p_return_status := FND_API.G_RET_STS_ERROR;
304:
305: FND_MSG_PUB.Count_And_Get
306: (
307: p_count => p_msg_count,
310:
311: WHEN OTHERS THEN
312:
313: Rollback to Delete_Resp_Excl_Attr_PUB;
314: p_return_status := FND_API.G_RET_STS_ERROR;
315:
316: if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
317: then
318: FND_MSG_PUB.Add_Exc_Msg