19: -- Pre-reqs : None.
20: -- Parameters :
21: -- IN : p_api_version IN NUMBER Required
22: -- p_init_msg_list IN VARCHAR2 Optional
23: -- Default = FND_API.G_FALSE
24: -- p_commit IN VARCHAR2 Optional
25: -- Default = FND_API.G_FALSE
26: -- p_validation_level IN NUMBER Optional
27: -- Default = FND_API.G_VALID_LEVEL_FULL
21: -- IN : p_api_version IN NUMBER Required
22: -- p_init_msg_list IN VARCHAR2 Optional
23: -- Default = FND_API.G_FALSE
24: -- p_commit IN VARCHAR2 Optional
25: -- Default = FND_API.G_FALSE
26: -- p_validation_level IN NUMBER Optional
27: -- Default = FND_API.G_VALID_LEVEL_FULL
28: --
29: -- OUT : x_return_status OUT VARCHAR2(1)
23: -- Default = FND_API.G_FALSE
24: -- p_commit IN VARCHAR2 Optional
25: -- Default = FND_API.G_FALSE
26: -- p_validation_level IN NUMBER Optional
27: -- Default = FND_API.G_VALID_LEVEL_FULL
28: --
29: -- OUT : x_return_status OUT VARCHAR2(1)
30: -- x_msg_count OUT NUMBER
31: -- x_msg_data OUT VARCHAR2(2000)
40: -- End of comments
41: --=========================================================================
42: PROCEDURE create_calc_ext_table
43: ( p_api_version IN NUMBER,
44: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
45: p_commit IN VARCHAR2 := FND_API.G_FALSE,
46: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
47: x_return_status OUT NOCOPY VARCHAR2,
48: x_msg_count OUT NOCOPY NUMBER,
41: --=========================================================================
42: PROCEDURE create_calc_ext_table
43: ( p_api_version IN NUMBER,
44: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
45: p_commit IN VARCHAR2 := FND_API.G_FALSE,
46: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
47: x_return_status OUT NOCOPY VARCHAR2,
48: x_msg_count OUT NOCOPY NUMBER,
49: x_msg_data OUT NOCOPY VARCHAR2,
42: PROCEDURE create_calc_ext_table
43: ( p_api_version IN NUMBER,
44: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
45: p_commit IN VARCHAR2 := FND_API.G_FALSE,
46: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
47: x_return_status OUT NOCOPY VARCHAR2,
48: x_msg_count OUT NOCOPY NUMBER,
49: x_msg_data OUT NOCOPY VARCHAR2,
50: x_loading_status OUT NOCOPY VARCHAR2,
85:
86: -- Standard Start of API savepoint
87: SAVEPOINT Create_Calc_Ext_Table;
88: -- Standard call to check for call compatibility.
89: IF NOT FND_API.Compatible_API_Call ( l_api_version,
90: p_api_version,
91: l_api_name,
92: G_PKG_NAME )
93: THEN
90: p_api_version,
91: l_api_name,
92: G_PKG_NAME )
93: THEN
94: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: -- Initialize message list if p_init_msg_list is set to TRUE.
98: IF FND_API.to_Boolean( p_init_msg_list )
94: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
95: END IF;
96:
97: -- Initialize message list if p_init_msg_list is set to TRUE.
98: IF FND_API.to_Boolean( p_init_msg_list )
99: THEN
100: FND_MSG_PUB.initialize;
101: END IF;
102:
100: FND_MSG_PUB.initialize;
101: END IF;
102:
103: -- Initialize API return status to success
104: x_return_status := FND_API.G_RET_STS_SUCCESS;
105: x_loading_status := 'CN_INSERTED';
106:
107: -- API body
108:
121: IF (cn_api.chk_miss_null_char_para
122: ( p_calc_ext_table_rec.name,
123: cn_api.get_lkup_meaning('NAME', 'EXTERNAL_TABLE'),
124: x_loading_status,
125: x_loading_status) = FND_API.G_TRUE )
126: THEN
127: RAISE fnd_api.g_exc_error;
128: END IF;
129:
123: cn_api.get_lkup_meaning('NAME', 'EXTERNAL_TABLE'),
124: x_loading_status,
125: x_loading_status) = FND_API.G_TRUE )
126: THEN
127: RAISE fnd_api.g_exc_error;
128: END IF;
129:
130: IF (cn_api.chk_miss_null_num_para
131: ( p_calc_ext_table_rec.internal_table_id,
130: IF (cn_api.chk_miss_null_num_para
131: ( p_calc_ext_table_rec.internal_table_id,
132: cn_api.get_lkup_meaning('INTERNAL_TABLE_ID', 'EXTERNAL_TABLE'),
133: x_loading_status,
134: x_loading_status) = FND_API.G_TRUE )
135: THEN
136: RAISE fnd_api.g_exc_error;
137: END IF;
138:
132: cn_api.get_lkup_meaning('INTERNAL_TABLE_ID', 'EXTERNAL_TABLE'),
133: x_loading_status,
134: x_loading_status) = FND_API.G_TRUE )
135: THEN
136: RAISE fnd_api.g_exc_error;
137: END IF;
138:
139: if p_calc_ext_table_rec.internal_table_id = 0 THEN
140: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
142: fnd_message.set_name('CN', 'CN_INTERNAL_TABLE_NOT_NULL');
143: fnd_msg_pub.add;
144: END IF;
145: x_loading_status := 'CN_INTERNAL_TABLE_NOT_NULL';
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
148:
149: IF (cn_api.chk_miss_null_num_para
150: ( p_calc_ext_table_rec.external_table_id,
149: IF (cn_api.chk_miss_null_num_para
150: ( p_calc_ext_table_rec.external_table_id,
151: cn_api.get_lkup_meaning('EXTERNAL_TABLE_ID', 'EXTERNAL_TABLE'),
152: x_loading_status,
153: x_loading_status) = FND_API.G_TRUE )
154: THEN
155: RAISE fnd_api.g_exc_error;
156: END IF;
157:
151: cn_api.get_lkup_meaning('EXTERNAL_TABLE_ID', 'EXTERNAL_TABLE'),
152: x_loading_status,
153: x_loading_status) = FND_API.G_TRUE )
154: THEN
155: RAISE fnd_api.g_exc_error;
156: END IF;
157:
158: if p_calc_ext_table_rec.external_table_id = 0 THEN
159: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
161: fnd_message.set_name('CN', 'CN_EXTERNAL_TABLE_NOT_NULL');
162: fnd_msg_pub.add;
163: END IF;
164: x_loading_status := 'CN_EXTERNAL_TABLE_NOT_NULL';
165: RAISE FND_API.G_EXC_ERROR;
166: END IF;
167:
168: IF (cn_api.chk_miss_null_char_para
169: ( p_calc_ext_table_rec.used_flag,
168: IF (cn_api.chk_miss_null_char_para
169: ( p_calc_ext_table_rec.used_flag,
170: cn_api.get_lkup_meaning('USED_FLAG', 'EXTERNAL_TABLE'),
171: x_loading_status,
172: x_loading_status) = FND_API.G_TRUE )
173: THEN
174: RAISE fnd_api.g_exc_error;
175: END IF;
176:
170: cn_api.get_lkup_meaning('USED_FLAG', 'EXTERNAL_TABLE'),
171: x_loading_status,
172: x_loading_status) = FND_API.G_TRUE )
173: THEN
174: RAISE fnd_api.g_exc_error;
175: END IF;
176:
177: IF (cn_api.chk_miss_null_char_para
178: ( p_calc_ext_table_rec.schema,
177: IF (cn_api.chk_miss_null_char_para
178: ( p_calc_ext_table_rec.schema,
179: cn_api.get_lkup_meaning('SCHEMA', 'EXTERNAL_TABLE'),
180: x_loading_status,
181: x_loading_status) = FND_API.G_TRUE )
182: THEN
183: RAISE fnd_api.g_exc_error;
184: END IF;
185:
179: cn_api.get_lkup_meaning('SCHEMA', 'EXTERNAL_TABLE'),
180: x_loading_status,
181: x_loading_status) = FND_API.G_TRUE )
182: THEN
183: RAISE fnd_api.g_exc_error;
184: END IF;
185:
186: /* IF (cn_api.chk_miss_null_char_para
187: ( p_calc_ext_table_rec.alias,
186: /* IF (cn_api.chk_miss_null_char_para
187: ( p_calc_ext_table_rec.alias,
188: cn_api.get_lkup_meaning('ALIAS', 'EXTERNAL_TABLE'),
189: x_loading_status,
190: x_loading_status) = FND_API.G_TRUE )
191: THEN
192: RAISE fnd_api.g_exc_error;
193: END IF ;
194: */
188: cn_api.get_lkup_meaning('ALIAS', 'EXTERNAL_TABLE'),
189: x_loading_status,
190: x_loading_status) = FND_API.G_TRUE )
191: THEN
192: RAISE fnd_api.g_exc_error;
193: END IF ;
194: */
195:
196: open table_name_curs( p_calc_ext_table_rec.external_table_id);
216:
217: -- End of API body.
218:
219: -- Standard check of p_commit.
220: IF FND_API.To_Boolean( p_commit )
221: THEN
222: COMMIT WORK;
223: END IF;
224:
225: FND_MSG_PUB.Count_And_Get
226: (
227: p_count => x_msg_count ,
228: p_data => x_msg_data ,
229: p_encoded => FND_API.G_FALSE
230: );
231: EXCEPTION
232: WHEN FND_API.G_EXC_ERROR THEN
233: ROLLBACK TO Create_Calc_Ext_Table;
228: p_data => x_msg_data ,
229: p_encoded => FND_API.G_FALSE
230: );
231: EXCEPTION
232: WHEN FND_API.G_EXC_ERROR THEN
233: ROLLBACK TO Create_Calc_Ext_Table;
234: x_return_status := FND_API.G_RET_STS_ERROR ;
235: FND_MSG_PUB.Count_And_Get
236: (
230: );
231: EXCEPTION
232: WHEN FND_API.G_EXC_ERROR THEN
233: ROLLBACK TO Create_Calc_Ext_Table;
234: x_return_status := FND_API.G_RET_STS_ERROR ;
235: FND_MSG_PUB.Count_And_Get
236: (
237: p_count => x_msg_count ,
238: p_data => x_msg_data ,
235: FND_MSG_PUB.Count_And_Get
236: (
237: p_count => x_msg_count ,
238: p_data => x_msg_data ,
239: p_encoded => FND_API.G_FALSE
240: );
241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
242: ROLLBACK TO Create_Calc_Ext_Table;
243: x_loading_status := 'UNEXPECTED_ERR';
237: p_count => x_msg_count ,
238: p_data => x_msg_data ,
239: p_encoded => FND_API.G_FALSE
240: );
241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
242: ROLLBACK TO Create_Calc_Ext_Table;
243: x_loading_status := 'UNEXPECTED_ERR';
244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
245: FND_MSG_PUB.Count_And_Get
240: );
241: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
242: ROLLBACK TO Create_Calc_Ext_Table;
243: x_loading_status := 'UNEXPECTED_ERR';
244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
245: FND_MSG_PUB.Count_And_Get
246: (
247: p_count => x_msg_count ,
248: p_data => x_msg_data ,
245: FND_MSG_PUB.Count_And_Get
246: (
247: p_count => x_msg_count ,
248: p_data => x_msg_data ,
249: p_encoded => FND_API.G_FALSE
250: );
251: WHEN OTHERS THEN
252: ROLLBACK TO Create_Calc_Ext_Table;
253: x_loading_status := 'UNEXPECTED_ERR';
250: );
251: WHEN OTHERS THEN
252: ROLLBACK TO Create_Calc_Ext_Table;
253: x_loading_status := 'UNEXPECTED_ERR';
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
255: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
256: THEN
257: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
258: END IF;
259: FND_MSG_PUB.Count_And_Get
260: (
261: p_count => x_msg_count ,
262: p_data => x_msg_data ,
263: p_encoded => FND_API.G_FALSE
264: );
265: END Create_Calc_Ext_Table;
266: --=========================================================================
267: -- Start of comments
273: -- Pre-reqs : None.
274: -- Parameters :
275: -- IN : p_api_version IN NUMBER Required
276: -- p_init_msg_list IN VARCHAR2 Optional
277: -- Default = FND_API.G_FALSE
278: -- p_commit IN VARCHAR2 Optional
279: -- Default = FND_API.G_FALSE
280: -- p_validation_level IN NUMBER Optional
281: -- Default = FND_API.G_VALID_LEVEL_FULL
275: -- IN : p_api_version IN NUMBER Required
276: -- p_init_msg_list IN VARCHAR2 Optional
277: -- Default = FND_API.G_FALSE
278: -- p_commit IN VARCHAR2 Optional
279: -- Default = FND_API.G_FALSE
280: -- p_validation_level IN NUMBER Optional
281: -- Default = FND_API.G_VALID_LEVEL_FULL
282: --
283: -- OUT : x_return_status OUT VARCHAR2(1)
277: -- Default = FND_API.G_FALSE
278: -- p_commit IN VARCHAR2 Optional
279: -- Default = FND_API.G_FALSE
280: -- p_validation_level IN NUMBER Optional
281: -- Default = FND_API.G_VALID_LEVEL_FULL
282: --
283: -- OUT : x_return_status OUT VARCHAR2(1)
284: -- x_msg_count OUT NUMBER
285: -- x_msg_data OUT VARCHAR2(2000)
295: --=========================================================================
296:
297: PROCEDURE Update_calc_ext_table
298: ( p_api_version IN NUMBER,
299: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
300: p_commit IN VARCHAR2 := FND_API.G_FALSE,
301: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
302: x_return_status OUT NOCOPY VARCHAR2,
303: x_msg_count OUT NOCOPY NUMBER,
296:
297: PROCEDURE Update_calc_ext_table
298: ( p_api_version IN NUMBER,
299: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
300: p_commit IN VARCHAR2 := FND_API.G_FALSE,
301: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
302: x_return_status OUT NOCOPY VARCHAR2,
303: x_msg_count OUT NOCOPY NUMBER,
304: x_msg_data OUT NOCOPY VARCHAR2,
297: PROCEDURE Update_calc_ext_table
298: ( p_api_version IN NUMBER,
299: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
300: p_commit IN VARCHAR2 := FND_API.G_FALSE,
301: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
302: x_return_status OUT NOCOPY VARCHAR2,
303: x_msg_count OUT NOCOPY NUMBER,
304: x_msg_data OUT NOCOPY VARCHAR2,
305: x_loading_status OUT NOCOPY VARCHAR2,
360:
361: -- Standard Start of API savepoint
362: SAVEPOINT Update_CALC_EXT_TABLES;
363: -- Standard call to check for call compatibility.
364: IF NOT FND_API.Compatible_API_Call ( l_api_version,
365: p_api_version,
366: l_api_name,
367: G_PKG_NAME )
368: THEN
365: p_api_version,
366: l_api_name,
367: G_PKG_NAME )
368: THEN
369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
370: END IF;
371:
372: -- Initialize message list if p_init_msg_list is set to TRUE.
373: IF FND_API.to_Boolean( p_init_msg_list )
369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
370: END IF;
371:
372: -- Initialize message list if p_init_msg_list is set to TRUE.
373: IF FND_API.to_Boolean( p_init_msg_list )
374: THEN
375: FND_MSG_PUB.initialize;
376: END IF;
377:
375: FND_MSG_PUB.initialize;
376: END IF;
377:
378: -- Initialize API return status to success
379: x_return_status := FND_API.G_RET_STS_SUCCESS;
380: x_loading_status := 'CN_UPDATED';
381:
382: p_old_calc_ext_table_rec.calc_ext_table_id := p_calc_ext_table_rec.calc_ext_table_id;
383:
396: IF (cn_api.chk_miss_null_char_para
397: ( p_calc_ext_table_rec.name,
398: cn_api.get_lkup_meaning('NAME', 'EXTERNAL_TABLE'),
399: x_loading_status,
400: x_loading_status) = FND_API.G_TRUE )
401: THEN
402: RAISE fnd_api.g_exc_error;
403: END IF;
404:
398: cn_api.get_lkup_meaning('NAME', 'EXTERNAL_TABLE'),
399: x_loading_status,
400: x_loading_status) = FND_API.G_TRUE )
401: THEN
402: RAISE fnd_api.g_exc_error;
403: END IF;
404:
405:
406: IF (cn_api.chk_miss_null_num_para
406: IF (cn_api.chk_miss_null_num_para
407: ( p_calc_ext_table_rec.internal_table_id,
408: cn_api.get_lkup_meaning('INTERNAL_TABLE_ID', 'EXTERNAL_TABLE'),
409: x_loading_status,
410: x_loading_status) = FND_API.G_TRUE )
411: THEN
412: RAISE fnd_api.g_exc_error;
413: END IF ;
414:
408: cn_api.get_lkup_meaning('INTERNAL_TABLE_ID', 'EXTERNAL_TABLE'),
409: x_loading_status,
410: x_loading_status) = FND_API.G_TRUE )
411: THEN
412: RAISE fnd_api.g_exc_error;
413: END IF ;
414:
415: if p_calc_ext_table_rec.internal_table_id = 0 THEN
416: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
418: fnd_message.set_name('CN', 'CN_INTERNAL_TABLE_NOT_NULL');
419: fnd_msg_pub.add;
420: END IF;
421: x_loading_status := 'CN_INTERNAL_TABLE_NOT_NULL';
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424:
425: IF (cn_api.chk_miss_null_num_para
426: ( p_calc_ext_table_rec.external_table_id,
425: IF (cn_api.chk_miss_null_num_para
426: ( p_calc_ext_table_rec.external_table_id,
427: cn_api.get_lkup_meaning('EXTERNAL_TABLE_ID', 'EXTERNAL_TABLE'),
428: x_loading_status,
429: x_loading_status) = FND_API.G_TRUE )
430: THEN
431: RAISE fnd_api.g_exc_error;
432: END IF ;
433:
427: cn_api.get_lkup_meaning('EXTERNAL_TABLE_ID', 'EXTERNAL_TABLE'),
428: x_loading_status,
429: x_loading_status) = FND_API.G_TRUE )
430: THEN
431: RAISE fnd_api.g_exc_error;
432: END IF ;
433:
434: IF (cn_api.chk_miss_null_char_para
435: ( p_calc_ext_table_rec.used_flag,
434: IF (cn_api.chk_miss_null_char_para
435: ( p_calc_ext_table_rec.used_flag,
436: cn_api.get_lkup_meaning('USED_FLAG', 'EXTERNAL_TABLE'),
437: x_loading_status,
438: x_loading_status) = FND_API.G_TRUE )
439: THEN
440: RAISE fnd_api.g_exc_error;
441: END IF;
442:
436: cn_api.get_lkup_meaning('USED_FLAG', 'EXTERNAL_TABLE'),
437: x_loading_status,
438: x_loading_status) = FND_API.G_TRUE )
439: THEN
440: RAISE fnd_api.g_exc_error;
441: END IF;
442:
443: if p_calc_ext_table_rec.external_table_id = 0 THEN
444: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
446: fnd_message.set_name('CN', 'CN_EXTERNAL_TABLE_NOT_NULL');
447: fnd_msg_pub.add;
448: END IF;
449: x_loading_status := 'CN_EXTERNAL_TABLE_NOT_NULL';
450: RAISE FND_API.G_EXC_ERROR;
451: END IF;
452:
453: IF (cn_api.chk_miss_null_char_para
454: ( p_calc_ext_table_rec.schema,
453: IF (cn_api.chk_miss_null_char_para
454: ( p_calc_ext_table_rec.schema,
455: cn_api.get_lkup_meaning('SCHEMA', 'EXTERNAL_TABLE'),
456: x_loading_status,
457: x_loading_status) = FND_API.G_TRUE )
458: THEN
459: RAISE fnd_api.g_exc_error;
460: END IF ;
461:
455: cn_api.get_lkup_meaning('SCHEMA', 'EXTERNAL_TABLE'),
456: x_loading_status,
457: x_loading_status) = FND_API.G_TRUE )
458: THEN
459: RAISE fnd_api.g_exc_error;
460: END IF ;
461:
462: IF (cn_api.chk_miss_null_char_para
463: ( p_calc_ext_table_rec.alias,
462: IF (cn_api.chk_miss_null_char_para
463: ( p_calc_ext_table_rec.alias,
464: cn_api.get_lkup_meaning('ALIAS', 'EXTERNAL_TABLE'),
465: x_loading_status,
466: x_loading_status) = FND_API.G_TRUE )
467: THEN
468: RAISE fnd_api.g_exc_error;
469: END IF ;
470:
464: cn_api.get_lkup_meaning('ALIAS', 'EXTERNAL_TABLE'),
465: x_loading_status,
466: x_loading_status) = FND_API.G_TRUE )
467: THEN
468: RAISE fnd_api.g_exc_error;
469: END IF ;
470:
471: open table_name_curs( p_calc_ext_table_rec.external_table_id);
472: fetch table_name_curs into l_external_table_name;
491: fnd_message.set_name('CN', 'CN_EXT_UPDATE_NOT_ALLOWED');
492: fnd_msg_pub.add;
493: END IF;
494: x_loading_status := 'CN_EXT_UPDATE_NOT_ALLOWED';
495: RAISE FND_API.G_EXC_ERROR;
496: END IF;
497: END IF;
498:
499:
513:
514:
515: -- End of API body.
516: -- Standard check of p_commit.
517: IF FND_API.To_Boolean( p_commit )
518: THEN
519: COMMIT WORK;
520: END IF;
521:
524: FND_MSG_PUB.Count_And_Get
525: (
526: p_count => x_msg_count ,
527: p_data => x_msg_data ,
528: p_encoded => FND_API.G_FALSE
529: );
530:
531: EXCEPTION
532: WHEN FND_API.G_EXC_ERROR THEN
528: p_encoded => FND_API.G_FALSE
529: );
530:
531: EXCEPTION
532: WHEN FND_API.G_EXC_ERROR THEN
533: ROLLBACK TO Update_CALC_EXT_TABLES;
534: x_return_status := FND_API.G_RET_STS_ERROR ;
535:
536: FND_MSG_PUB.Count_And_Get
530:
531: EXCEPTION
532: WHEN FND_API.G_EXC_ERROR THEN
533: ROLLBACK TO Update_CALC_EXT_TABLES;
534: x_return_status := FND_API.G_RET_STS_ERROR ;
535:
536: FND_MSG_PUB.Count_And_Get
537: (
538: p_count => x_msg_count ,
536: FND_MSG_PUB.Count_And_Get
537: (
538: p_count => x_msg_count ,
539: p_data => x_msg_data ,
540: p_encoded => FND_API.G_FALSE
541: );
542:
543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
544: ROLLBACK TO Update_CALC_EXT_TABLES;
539: p_data => x_msg_data ,
540: p_encoded => FND_API.G_FALSE
541: );
542:
543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
544: ROLLBACK TO Update_CALC_EXT_TABLES;
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
546: FND_MSG_PUB.Count_And_Get
547: (
541: );
542:
543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
544: ROLLBACK TO Update_CALC_EXT_TABLES;
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
546: FND_MSG_PUB.Count_And_Get
547: (
548: p_count => x_msg_count ,
549: p_data => x_msg_data ,
546: FND_MSG_PUB.Count_And_Get
547: (
548: p_count => x_msg_count ,
549: p_data => x_msg_data ,
550: p_encoded => FND_API.G_FALSE
551: );
552:
553: WHEN OTHERS THEN
554: ROLLBACK TO Update_CALC_EXT_TABLES;
551: );
552:
553: WHEN OTHERS THEN
554: ROLLBACK TO Update_CALC_EXT_TABLES;
555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
556: IF FND_MSG_PUB.Check_Msg_Level
557: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
558: THEN
559: FND_MSG_PUB.Add_Exc_Msg
565: FND_MSG_PUB.Count_And_Get
566: (
567: p_count => x_msg_count ,
568: p_data => x_msg_data ,
569: p_encoded => FND_API.G_FALSE
570: );
571:
572: END;
573: --=========================================================================
578: -- Pre-reqs : None.
579: -- Parameters :
580: -- IN : p_api_version IN NUMBER Required
581: -- p_init_msg_list IN VARCHAR2 Optional
582: -- Default = FND_API.G_FALSE
583: -- p_commit IN VARCHAR2 Optional
584: -- Default = FND_API.G_FALSE
585: -- p_validation_level IN NUMBER Optional
586: -- Default = FND_API.G_VALID_LEVEL_FULL
580: -- IN : p_api_version IN NUMBER Required
581: -- p_init_msg_list IN VARCHAR2 Optional
582: -- Default = FND_API.G_FALSE
583: -- p_commit IN VARCHAR2 Optional
584: -- Default = FND_API.G_FALSE
585: -- p_validation_level IN NUMBER Optional
586: -- Default = FND_API.G_VALID_LEVEL_FULL
587: -- p_ruleset_rec_type IN
588: --
582: -- Default = FND_API.G_FALSE
583: -- p_commit IN VARCHAR2 Optional
584: -- Default = FND_API.G_FALSE
585: -- p_validation_level IN NUMBER Optional
586: -- Default = FND_API.G_VALID_LEVEL_FULL
587: -- p_ruleset_rec_type IN
588: --
589: -- OUT : x_return_status OUT VARCHAR2(1)
590: -- x_msg_count OUT NUMBER
599: -- End of comments
600: --=========================================================================
601: PROCEDURE Delete_Calc_Ext_Table
602: ( p_api_version IN NUMBER,
603: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
604: p_commit IN VARCHAR2 := FND_API.G_FALSE,
605: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
606: x_return_status OUT NOCOPY VARCHAR2,
607: x_msg_count OUT NOCOPY NUMBER,
600: --=========================================================================
601: PROCEDURE Delete_Calc_Ext_Table
602: ( p_api_version IN NUMBER,
603: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
604: p_commit IN VARCHAR2 := FND_API.G_FALSE,
605: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
606: x_return_status OUT NOCOPY VARCHAR2,
607: x_msg_count OUT NOCOPY NUMBER,
608: x_msg_data OUT NOCOPY VARCHAR2,
601: PROCEDURE Delete_Calc_Ext_Table
602: ( p_api_version IN NUMBER,
603: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
604: p_commit IN VARCHAR2 := FND_API.G_FALSE,
605: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
606: x_return_status OUT NOCOPY VARCHAR2,
607: x_msg_count OUT NOCOPY NUMBER,
608: x_msg_data OUT NOCOPY VARCHAR2,
609: x_loading_status OUT NOCOPY VARCHAR2,
630:
631: -- Standard Start of API savepoint
632: SAVEPOINT Delete_CALC_EXT_TABLES;
633: -- Standard call to check for call compatibility.
634: IF NOT FND_API.Compatible_API_Call ( l_api_version,
635: p_api_version,
636: l_api_name,
637: G_PKG_NAME )
638: THEN
635: p_api_version,
636: l_api_name,
637: G_PKG_NAME )
638: THEN
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: END IF;
641:
642: -- Initialize message list if p_init_msg_list is set to TRUE.
643: IF FND_API.to_Boolean( p_init_msg_list )
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: END IF;
641:
642: -- Initialize message list if p_init_msg_list is set to TRUE.
643: IF FND_API.to_Boolean( p_init_msg_list )
644: THEN
645: FND_MSG_PUB.initialize;
646: END IF;
647:
645: FND_MSG_PUB.initialize;
646: END IF;
647:
648: -- Initialize API return status to success
649: x_return_status := FND_API.G_RET_STS_SUCCESS;
650:
651: -- API body
652:
653: -- check delete allowed
662: fnd_message.set_name('CN', 'CN_COLUMN_EXISTS');
663: fnd_msg_pub.add;
664: END IF;
665: x_loading_status := 'CN_COLUMN_EXISTS';
666: RAISE FND_API.G_EXC_ERROR;
667: END IF;
668:
669:
670: CN_CALC_EXT_TABLE_PKG.Delete_row(p_calc_ext_table_id);
671:
672: -- End of API body.
673:
674: -- Standard check of p_commit.
675: IF FND_API.To_Boolean( p_commit )
676: THEN
677: COMMIT WORK;
678: END IF;
679:
681: FND_MSG_PUB.Count_And_Get
682: (
683: p_count => x_msg_count ,
684: p_data => x_msg_data ,
685: p_encoded => FND_API.G_FALSE
686: );
687:
688: EXCEPTION
689: WHEN FND_API.G_EXC_ERROR THEN
685: p_encoded => FND_API.G_FALSE
686: );
687:
688: EXCEPTION
689: WHEN FND_API.G_EXC_ERROR THEN
690: ROLLBACK TO Delete_CALC_EXT_TABLES;
691: x_return_status := FND_API.G_RET_STS_ERROR ;
692: FND_MSG_PUB.Count_And_Get
693: (
687:
688: EXCEPTION
689: WHEN FND_API.G_EXC_ERROR THEN
690: ROLLBACK TO Delete_CALC_EXT_TABLES;
691: x_return_status := FND_API.G_RET_STS_ERROR ;
692: FND_MSG_PUB.Count_And_Get
693: (
694: p_count => x_msg_count ,
695: p_data => x_msg_data ,
692: FND_MSG_PUB.Count_And_Get
693: (
694: p_count => x_msg_count ,
695: p_data => x_msg_data ,
696: p_encoded => FND_API.G_FALSE
697: );
698:
699: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
700: ROLLBACK TO Delete_CALC_EXT_TABLES;
695: p_data => x_msg_data ,
696: p_encoded => FND_API.G_FALSE
697: );
698:
699: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
700: ROLLBACK TO Delete_CALC_EXT_TABLES;
701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
702:
703: FND_MSG_PUB.Count_And_Get
697: );
698:
699: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
700: ROLLBACK TO Delete_CALC_EXT_TABLES;
701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
702:
703: FND_MSG_PUB.Count_And_Get
704: (
705: p_count => x_msg_count ,
703: FND_MSG_PUB.Count_And_Get
704: (
705: p_count => x_msg_count ,
706: p_data => x_msg_data ,
707: p_encoded => FND_API.G_FALSE
708: );
709:
710: WHEN OTHERS THEN
711: ROLLBACK TO Delete_CALC_EXT_TABLES;
708: );
709:
710: WHEN OTHERS THEN
711: ROLLBACK TO Delete_CALC_EXT_TABLES;
712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
713: IF FND_MSG_PUB.Check_Msg_Level
714: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
715: THEN
716: FND_MSG_PUB.Add_Exc_Msg
722: FND_MSG_PUB.Count_And_Get
723: (
724: p_count => x_msg_count ,
725: p_data => x_msg_data ,
726: p_encoded => FND_API.G_FALSE
727: );
728:
729: END;
730: