3: G_PKG_NAME CONSTANT VARCHAR2(30):='EAM_FailureCodes_PUB';
4:
5: PROCEDURE Create_Code
6: (p_api_version IN NUMBER ,
7: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
9: p_failurecode_rec IN EAM_FailureCodes_PUB.eam_failurecode_rec_type,
10: x_return_status OUT NOCOPY VARCHAR2 ,
11: x_msg_count OUT NOCOPY NUMBER ,
4:
5: PROCEDURE Create_Code
6: (p_api_version IN NUMBER ,
7: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
9: p_failurecode_rec IN EAM_FailureCodes_PUB.eam_failurecode_rec_type,
10: x_return_status OUT NOCOPY VARCHAR2 ,
11: x_msg_count OUT NOCOPY NUMBER ,
12: x_msg_data OUT NOCOPY VARCHAR2
13: )
14: IS
15: l_api_name CONSTANT VARCHAR2(30) := 'Create_Code';
16: l_api_version CONSTANT NUMBER := 1.0;
17: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
18:
19: BEGIN
20: -- API savepoint
21: SAVEPOINT Create_Code_PUB;
20: -- API savepoint
21: SAVEPOINT Create_Code_PUB;
22:
23: -- check for call compatibility.
24: IF NOT FND_API.Compatible_API_Call (l_api_version,
25: p_api_version,
26: l_api_name,
27: G_PKG_NAME )
28: THEN
25: p_api_version,
26: l_api_name,
27: G_PKG_NAME )
28: THEN
29: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30: END IF;
31:
32: -- Initialize message list if p_init_msg_list is set to TRUE.
33: IF FND_API.to_Boolean( p_init_msg_list ) THEN
29: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
30: END IF;
31:
32: -- Initialize message list if p_init_msg_list is set to TRUE.
33: IF FND_API.to_Boolean( p_init_msg_list ) THEN
34: FND_MSG_PUB.initialize;
35: END IF;
36:
37: -- Initialize API return status to success
34: FND_MSG_PUB.initialize;
35: END IF;
36:
37: -- Initialize API return status to success
38: x_return_status := FND_API.G_RET_STS_SUCCESS;
39:
40: -- Call PVT API
41: EAM_FailureCodes_PVT.Setup_Code
42: (1.0 ,
58: EXCEPTION
59:
60: WHEN OTHERS THEN
61: ROLLBACK TO Create_Code_PUB;
62: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
63: IF FND_MSG_PUB.Check_Msg_Level
64: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
65: THEN
66: FND_MSG_PUB.Add_Exc_Msg
75: END Create_Code;
76:
77: PROCEDURE Update_Code
78: (p_api_version IN NUMBER ,
79: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
80: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
81: p_failurecode_rec IN EAM_FailureCodes_PUB.eam_failurecode_rec_type,
82: x_return_status OUT NOCOPY VARCHAR2 ,
83: x_msg_count OUT NOCOPY NUMBER ,
76:
77: PROCEDURE Update_Code
78: (p_api_version IN NUMBER ,
79: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
80: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
81: p_failurecode_rec IN EAM_FailureCodes_PUB.eam_failurecode_rec_type,
82: x_return_status OUT NOCOPY VARCHAR2 ,
83: x_msg_count OUT NOCOPY NUMBER ,
84: x_msg_data OUT NOCOPY VARCHAR2
85: )
86: IS
87: l_api_name CONSTANT VARCHAR2(30) := 'Update_Code';
88: l_api_version CONSTANT NUMBER := 1.0;
89: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
90:
91: BEGIN
92: -- API savepoint
93: SAVEPOINT Update_Code_PUB;
92: -- API savepoint
93: SAVEPOINT Update_Code_PUB;
94:
95: -- check for call compatibility.
96: IF NOT FND_API.Compatible_API_Call (l_api_version,
97: p_api_version,
98: l_api_name,
99: G_PKG_NAME )
100: THEN
97: p_api_version,
98: l_api_name,
99: G_PKG_NAME )
100: THEN
101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
102: END IF;
103:
104: -- Initialize message list if p_init_msg_list is set to TRUE.
105: IF FND_API.to_Boolean( p_init_msg_list ) THEN
101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
102: END IF;
103:
104: -- Initialize message list if p_init_msg_list is set to TRUE.
105: IF FND_API.to_Boolean( p_init_msg_list ) THEN
106: FND_MSG_PUB.initialize;
107: END IF;
108:
109: -- Initialize API return status to success
106: FND_MSG_PUB.initialize;
107: END IF;
108:
109: -- Initialize API return status to success
110: x_return_status := FND_API.G_RET_STS_SUCCESS;
111:
112: -- Call PVT API
113: EAM_FailureCodes_PVT.Setup_Code
114: (1.0 ,
130: EXCEPTION
131:
132: WHEN OTHERS THEN
133: ROLLBACK TO Update_Code_PUB;
134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
135: IF FND_MSG_PUB.Check_Msg_Level
136: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
137: THEN
138: FND_MSG_PUB.Add_Exc_Msg
147: END Update_Code;
148:
149: PROCEDURE Delete_Code
150: (p_api_version IN NUMBER ,
151: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
152: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
153: p_failurecode_rec IN EAM_FailureCodes_PUB.eam_failurecode_rec_type,
154: x_return_status OUT NOCOPY VARCHAR2 ,
155: x_msg_count OUT NOCOPY NUMBER ,
148:
149: PROCEDURE Delete_Code
150: (p_api_version IN NUMBER ,
151: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
152: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
153: p_failurecode_rec IN EAM_FailureCodes_PUB.eam_failurecode_rec_type,
154: x_return_status OUT NOCOPY VARCHAR2 ,
155: x_msg_count OUT NOCOPY NUMBER ,
156: x_msg_data OUT NOCOPY VARCHAR2
157: )
158: IS
159: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Code';
160: l_api_version CONSTANT NUMBER := 1.0;
161: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
162:
163: BEGIN
164: -- API savepoint
165: SAVEPOINT Delete_Code_PUB;
164: -- API savepoint
165: SAVEPOINT Delete_Code_PUB;
166:
167: -- check for call compatibility.
168: IF NOT FND_API.Compatible_API_Call (l_api_version,
169: p_api_version,
170: l_api_name,
171: G_PKG_NAME )
172: THEN
169: p_api_version,
170: l_api_name,
171: G_PKG_NAME )
172: THEN
173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
174: END IF;
175:
176: -- Initialize message list if p_init_msg_list is set to TRUE.
177: IF FND_API.to_Boolean( p_init_msg_list ) THEN
173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
174: END IF;
175:
176: -- Initialize message list if p_init_msg_list is set to TRUE.
177: IF FND_API.to_Boolean( p_init_msg_list ) THEN
178: FND_MSG_PUB.initialize;
179: END IF;
180:
181: -- Initialize API return status to success
178: FND_MSG_PUB.initialize;
179: END IF;
180:
181: -- Initialize API return status to success
182: x_return_status := FND_API.G_RET_STS_SUCCESS;
183:
184: -- Call PVT API
185: EAM_FailureCodes_PVT.Setup_Code
186: (1.0 ,
202: EXCEPTION
203:
204: WHEN OTHERS THEN
205: ROLLBACK TO Delete_Code_PUB;
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
207: IF FND_MSG_PUB.Check_Msg_Level
208: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
209: THEN
210: FND_MSG_PUB.Add_Exc_Msg
219: END Delete_Code;
220:
221: PROCEDURE Create_Combination
222: (p_api_version IN NUMBER ,
223: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
224: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
225: p_combination_rec IN EAM_FailureCodes_PUB.eam_combination_rec_type,
226: x_return_status OUT NOCOPY VARCHAR2 ,
227: x_msg_count OUT NOCOPY NUMBER ,
220:
221: PROCEDURE Create_Combination
222: (p_api_version IN NUMBER ,
223: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
224: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
225: p_combination_rec IN EAM_FailureCodes_PUB.eam_combination_rec_type,
226: x_return_status OUT NOCOPY VARCHAR2 ,
227: x_msg_count OUT NOCOPY NUMBER ,
228: x_msg_data OUT NOCOPY VARCHAR2,
230: )
231: IS
232: l_api_name CONSTANT VARCHAR2(30) := 'Create_Combination';
233: l_api_version CONSTANT NUMBER := 1.0;
234: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
235: l_combination_id NUMBER;
236: l_combination_rec EAM_FailureCodes_PUB.eam_combination_rec_type;
237:
238: BEGIN
239: -- API savepoint
240: SAVEPOINT Create_Combination_PUB;
241:
242: -- check for call compatibility.
243: IF NOT FND_API.Compatible_API_Call (l_api_version,
244: p_api_version,
245: l_api_name,
246: G_PKG_NAME )
247: THEN
244: p_api_version,
245: l_api_name,
246: G_PKG_NAME )
247: THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END IF;
250:
251: -- Initialize message list if p_init_msg_list is set to TRUE.
252: IF FND_API.to_Boolean( p_init_msg_list ) THEN
248: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
249: END IF;
250:
251: -- Initialize message list if p_init_msg_list is set to TRUE.
252: IF FND_API.to_Boolean( p_init_msg_list ) THEN
253: FND_MSG_PUB.initialize;
254: END IF;
255:
256: -- Initialize API return status to success
253: FND_MSG_PUB.initialize;
254: END IF;
255:
256: -- Initialize API return status to success
257: x_return_status := FND_API.G_RET_STS_SUCCESS;
258:
259: -- populate combination rec
260: l_combination_rec.set_id := p_combination_rec.set_id;
261: l_combination_rec.set_name := p_combination_rec.set_name;
294: EXCEPTION
295:
296: WHEN OTHERS THEN
297: ROLLBACK TO Create_Combination_PUB;
298: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
299: IF FND_MSG_PUB.Check_Msg_Level
300: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
301: THEN
302: FND_MSG_PUB.Add_Exc_Msg
311: END Create_Combination;
312:
313: PROCEDURE Update_Combination
314: (p_api_version IN NUMBER ,
315: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
316: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
317: p_combination_rec IN EAM_FailureCodes_PUB.eam_combination_rec_type,
318: x_return_status OUT NOCOPY VARCHAR2 ,
319: x_msg_count OUT NOCOPY NUMBER ,
312:
313: PROCEDURE Update_Combination
314: (p_api_version IN NUMBER ,
315: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
316: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
317: p_combination_rec IN EAM_FailureCodes_PUB.eam_combination_rec_type,
318: x_return_status OUT NOCOPY VARCHAR2 ,
319: x_msg_count OUT NOCOPY NUMBER ,
320: x_msg_data OUT NOCOPY VARCHAR2,
322: )
323: IS
324: l_api_name CONSTANT VARCHAR2(30) := 'Update_Combination';
325: l_api_version CONSTANT NUMBER := 1.0;
326: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
327: l_combination_id NUMBER;
328: l_combination_rec EAM_FailureCodes_PUB.eam_combination_rec_type;
329: BEGIN
330: -- API savepoint
330: -- API savepoint
331: SAVEPOINT Update_Combination_PUB;
332:
333: -- check for call compatibility.
334: IF NOT FND_API.Compatible_API_Call (l_api_version,
335: p_api_version,
336: l_api_name,
337: G_PKG_NAME )
338: THEN
335: p_api_version,
336: l_api_name,
337: G_PKG_NAME )
338: THEN
339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340: END IF;
341:
342: -- Initialize message list if p_init_msg_list is set to TRUE.
343: IF FND_API.to_Boolean( p_init_msg_list ) THEN
339: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
340: END IF;
341:
342: -- Initialize message list if p_init_msg_list is set to TRUE.
343: IF FND_API.to_Boolean( p_init_msg_list ) THEN
344: FND_MSG_PUB.initialize;
345: END IF;
346:
347: -- Initialize API return status to success
344: FND_MSG_PUB.initialize;
345: END IF;
346:
347: -- Initialize API return status to success
348: x_return_status := FND_API.G_RET_STS_SUCCESS;
349:
350: -- populate combination rec
351: l_combination_rec.set_id := p_combination_rec.set_id;
352: l_combination_rec.set_name := p_combination_rec.set_name;
385: EXCEPTION
386:
387: WHEN OTHERS THEN
388: ROLLBACK TO Update_Combination_PUB;
389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
390: IF FND_MSG_PUB.Check_Msg_Level
391: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
392: THEN
393: FND_MSG_PUB.Add_Exc_Msg
402: END Update_Combination;
403:
404: PROCEDURE Delete_Combination
405: (p_api_version IN NUMBER ,
406: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
407: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
408: p_combination_rec IN EAM_FailureCodes_PUB.eam_combination_rec_type,
409: x_return_status OUT NOCOPY VARCHAR2 ,
410: x_msg_count OUT NOCOPY NUMBER ,
403:
404: PROCEDURE Delete_Combination
405: (p_api_version IN NUMBER ,
406: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
407: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
408: p_combination_rec IN EAM_FailureCodes_PUB.eam_combination_rec_type,
409: x_return_status OUT NOCOPY VARCHAR2 ,
410: x_msg_count OUT NOCOPY NUMBER ,
411: x_msg_data OUT NOCOPY VARCHAR2
412: )
413: IS
414: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Combination';
415: l_api_version CONSTANT NUMBER := 1.0;
416: l_validation_level NUMBER := FND_API.G_VALID_LEVEL_FULL;
417: l_combination_id NUMBER;
418:
419: BEGIN
420: -- API savepoint
420: -- API savepoint
421: SAVEPOINT Delete_Combination_PUB;
422:
423: -- check for call compatibility.
424: IF NOT FND_API.Compatible_API_Call (l_api_version,
425: p_api_version,
426: l_api_name,
427: G_PKG_NAME )
428: THEN
425: p_api_version,
426: l_api_name,
427: G_PKG_NAME )
428: THEN
429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
430: END IF;
431:
432: -- Initialize message list if p_init_msg_list is set to TRUE.
433: IF FND_API.to_Boolean( p_init_msg_list ) THEN
429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
430: END IF;
431:
432: -- Initialize message list if p_init_msg_list is set to TRUE.
433: IF FND_API.to_Boolean( p_init_msg_list ) THEN
434: FND_MSG_PUB.initialize;
435: END IF;
436:
437: -- Initialize API return status to success
434: FND_MSG_PUB.initialize;
435: END IF;
436:
437: -- Initialize API return status to success
438: x_return_status := FND_API.G_RET_STS_SUCCESS;
439:
440: -- Call PVT API
441: EAM_FailureCodes_PVT.Setup_Combination
442: (1.0 ,
458: EXCEPTION
459:
460: WHEN OTHERS THEN
461: ROLLBACK TO Delete_Combination_PUB;
462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
463: IF FND_MSG_PUB.Check_Msg_Level
464: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
465: THEN
466: FND_MSG_PUB.Add_Exc_Msg