17:
18: i NUMBER;
19: l_api_name CONSTANT VARCHAR2(30) := 'create_trx_contracts';
20: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
21: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22: l_tclv_tbl tclv_tbl_type := p_tclv_tbl;
23:
24:
25:
25:
26: BEGIN
27:
28: SAVEPOINT create_trx_contracts;
29: x_return_status := FND_API.G_RET_STS_SUCCESS;
30:
31: -- customer pre-processing
32:
33:
55: ,p_tclv_tbl => l_tclv_tbl
56: ,x_tcnv_rec => x_tcnv_rec
57: ,x_tclv_tbl => x_tclv_tbl);
58:
59: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
60: RAISE FND_API.G_EXC_ERROR;
61: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63: END IF;
56: ,x_tcnv_rec => x_tcnv_rec
57: ,x_tclv_tbl => x_tclv_tbl);
58:
59: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
60: RAISE FND_API.G_EXC_ERROR;
61: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63: END IF;
64:
57: ,x_tclv_tbl => x_tclv_tbl);
58:
59: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
60: RAISE FND_API.G_EXC_ERROR;
61: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63: END IF;
64:
65:
58:
59: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
60: RAISE FND_API.G_EXC_ERROR;
61: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63: END IF;
64:
65:
66: l_tcnv_rec := x_tcnv_rec;
80:
81:
82:
83: EXCEPTION
84: WHEN FND_API.G_EXC_ERROR THEN
85: ROLLBACK TO create_trx_contracts;
86: x_return_status := FND_API.G_RET_STS_ERROR;
87:
88: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
82:
83: EXCEPTION
84: WHEN FND_API.G_EXC_ERROR THEN
85: ROLLBACK TO create_trx_contracts;
86: x_return_status := FND_API.G_RET_STS_ERROR;
87:
88: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
89: ,p_count => x_msg_count
90: ,p_data => x_msg_data);
88: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
89: ,p_count => x_msg_count
90: ,p_data => x_msg_data);
91:
92: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93: ROLLBACK TO create_trx_contracts;
94: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
95: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
96: ,p_count => x_msg_count
90: ,p_data => x_msg_data);
91:
92: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93: ROLLBACK TO create_trx_contracts;
94: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
95: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
96: ,p_count => x_msg_count
97: ,p_data => x_msg_data);
98:
102: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
103: ,p_count => x_msg_count
104: ,p_data => x_msg_data);
105: -- notify caller of an UNEXPECTED error
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
107:
108:
109: END create_trx_contracts;
110:
117: ,x_msg_count OUT NOCOPY NUMBER
118: ,x_msg_data OUT NOCOPY VARCHAR2
119: ,p_tcnv_rec IN tcnv_rec_type
120: ,x_tcnv_rec OUT NOCOPY tcnv_rec_type) IS
121: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
122: l_api_name CONSTANT VARCHAR2(30) := 'create_trx_contracts';
123: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
124:
125:
126:
127: BEGIN
128:
129: SAVEPOINT create_trx_contracts;
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
131:
132:
133:
134: -- customer pre-processing
158: );
159:
160:
161:
162: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
166: END IF;
159:
160:
161:
162: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
166: END IF;
167:
160:
161:
162: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
166: END IF;
167:
168: l_tcnv_rec := x_tcnv_rec;
161:
162: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
163: RAISE FND_API.G_EXC_ERROR;
164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
166: END IF;
167:
168: l_tcnv_rec := x_tcnv_rec;
169:
182:
183:
184: EXCEPTION
185:
186: WHEN FND_API.G_EXC_ERROR THEN
187: ROLLBACK TO create_trx_contracts;
188: x_return_status := FND_API.G_RET_STS_ERROR;
189:
190: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
184: EXCEPTION
185:
186: WHEN FND_API.G_EXC_ERROR THEN
187: ROLLBACK TO create_trx_contracts;
188: x_return_status := FND_API.G_RET_STS_ERROR;
189:
190: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
191: ,p_count => x_msg_count
192: ,p_data => x_msg_data);
190: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
191: ,p_count => x_msg_count
192: ,p_data => x_msg_data);
193:
194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
195: ROLLBACK TO create_trx_contracts;
196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
198: ,p_count => x_msg_count
192: ,p_data => x_msg_data);
193:
194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
195: ROLLBACK TO create_trx_contracts;
196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
198: ,p_count => x_msg_count
199: ,p_data => x_msg_data);
200:
204: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
205: ,p_count => x_msg_count
206: ,p_data => x_msg_data);
207: -- notify caller of an UNEXPECTED error
208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
209:
210: END create_trx_contracts;
211:
212:
219: ,x_msg_data OUT NOCOPY VARCHAR2
220: ,p_tcnv_tbl IN tcnv_tbl_type
221: ,x_tcnv_tbl OUT NOCOPY tcnv_tbl_type) IS
222:
223: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
224: l_api_name CONSTANT VARCHAR2(30) := 'create_trx_contracts';
225: i NUMBER;
226: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
227: l_tcnv_tbl tcnv_tbl_type := p_tcnv_tbl;
222:
223: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
224: l_api_name CONSTANT VARCHAR2(30) := 'create_trx_contracts';
225: i NUMBER;
226: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
227: l_tcnv_tbl tcnv_tbl_type := p_tcnv_tbl;
228:
229: BEGIN
230:
229: BEGIN
230:
231: --Initialize the return status
232: SAVEPOINT create_trx_contracts;
233: x_return_status := FND_API.G_RET_STS_SUCCESS;
234:
235:
236:
237: -- customer pre-processing
265:
266: );
267:
268: -- store the highest degree of error
269: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
270: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
271: l_overall_status := l_return_status;
272: END IF;
273: END IF;
266: );
267:
268: -- store the highest degree of error
269: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
270: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
271: l_overall_status := l_return_status;
272: END IF;
273: END IF;
274:
280: -- return overall status
281: l_return_status := l_overall_status;
282: END IF;
283:
284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
285: RAISE FND_API.G_EXC_ERROR;
286: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: END IF;
281: l_return_status := l_overall_status;
282: END IF;
283:
284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
285: RAISE FND_API.G_EXC_ERROR;
286: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: END IF;
289:
282: END IF;
283:
284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
285: RAISE FND_API.G_EXC_ERROR;
286: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: END IF;
289:
290: l_tcnv_tbl := x_tcnv_tbl;
283:
284: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
285: RAISE FND_API.G_EXC_ERROR;
286: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288: END IF;
289:
290: l_tcnv_tbl := x_tcnv_tbl;
291:
305:
306:
307: EXCEPTION
308:
309: WHEN FND_API.G_EXC_ERROR THEN
310: ROLLBACK TO create_trx_contracts;
311: x_return_status := FND_API.G_RET_STS_ERROR;
312:
313: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
307: EXCEPTION
308:
309: WHEN FND_API.G_EXC_ERROR THEN
310: ROLLBACK TO create_trx_contracts;
311: x_return_status := FND_API.G_RET_STS_ERROR;
312:
313: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
314: ,p_count => x_msg_count
315: ,p_data => x_msg_data);
313: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
314: ,p_count => x_msg_count
315: ,p_data => x_msg_data);
316:
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
318: ROLLBACK TO create_trx_contracts;
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
321: ,p_count => x_msg_count
315: ,p_data => x_msg_data);
316:
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
318: ROLLBACK TO create_trx_contracts;
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
321: ,p_count => x_msg_count
322: ,p_data => x_msg_data);
323:
327: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
328: ,p_count => x_msg_count
329: ,p_data => x_msg_data);
330: -- notify caller of an UNEXPECTED error
331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
332:
333:
334: END create_trx_contracts;
335:
347: p_tclv_tbl IN tclv_tbl_type,
348: x_tcnv_rec OUT NOCOPY tcnv_rec_type,
349: x_tclv_tbl OUT NOCOPY tclv_tbl_type) IS
350:
351: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
352: l_api_name CONSTANT VARCHAR2(30) := 'update_trx_contracts';
353: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
354: l_tclv_tbl tclv_tbl_type := p_tclv_tbl;
355:
357:
358: BEGIN
359:
360: SAVEPOINT update_trx_contracts;
361: x_return_status := FND_API.G_RET_STS_SUCCESS;
362:
363:
364:
365: -- customer pre-processing
391: ,x_tcnv_rec => x_tcnv_rec
392: ,x_tclv_tbl => x_tclv_tbl
393: );
394:
395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
396: RAISE FND_API.G_EXC_ERROR;
397: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399: END IF;
392: ,x_tclv_tbl => x_tclv_tbl
393: );
394:
395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
396: RAISE FND_API.G_EXC_ERROR;
397: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399: END IF;
400:
393: );
394:
395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
396: RAISE FND_API.G_EXC_ERROR;
397: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399: END IF;
400:
401: l_tcnv_rec := x_tcnv_rec;
394:
395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
396: RAISE FND_API.G_EXC_ERROR;
397: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399: END IF;
400:
401: l_tcnv_rec := x_tcnv_rec;
402: l_tclv_tbl := x_tclv_tbl;
416:
417:
418: EXCEPTION
419:
420: WHEN FND_API.G_EXC_ERROR THEN
421: ROLLBACK TO update_trx_contracts;
422: x_return_status := FND_API.G_RET_STS_ERROR;
423:
424: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
418: EXCEPTION
419:
420: WHEN FND_API.G_EXC_ERROR THEN
421: ROLLBACK TO update_trx_contracts;
422: x_return_status := FND_API.G_RET_STS_ERROR;
423:
424: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
425: ,p_count => x_msg_count
426: ,p_data => x_msg_data);
424: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
425: ,p_count => x_msg_count
426: ,p_data => x_msg_data);
427:
428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
429: ROLLBACK TO update_trx_contracts;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
432: ,p_count => x_msg_count
426: ,p_data => x_msg_data);
427:
428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
429: ROLLBACK TO update_trx_contracts;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
432: ,p_count => x_msg_count
433: ,p_data => x_msg_data);
434:
438: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
439: ,p_count => x_msg_count
440: ,p_data => x_msg_data);
441: -- notify caller of an UNEXPECTED error
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
443:
444: END update_trx_contracts;
445:
446:
454: ,x_msg_data OUT NOCOPY VARCHAR2
455: ,p_tcnv_rec IN tcnv_rec_type
456: ,x_tcnv_rec OUT NOCOPY tcnv_rec_type) IS
457:
458: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
459:
460: l_api_name CONSTANT VARCHAR2(30) := 'update_trx_contracts';
461:
462: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
463:
464: BEGIN
465:
466: SAVEPOINT update_trx_contracts;
467: x_return_status := FND_API.G_RET_STS_SUCCESS;
468:
469:
470:
471: -- customer pre-processing
494: ,x_tcnv_rec => x_tcnv_rec
495:
496: );
497:
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
495:
496: );
497:
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
496: );
497:
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
504: l_tcnv_rec := x_tcnv_rec;
497:
498: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
499: RAISE FND_API.G_EXC_ERROR;
500: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
504: l_tcnv_rec := x_tcnv_rec;
505:
518:
519:
520: EXCEPTION
521:
522: WHEN FND_API.G_EXC_ERROR THEN
523: ROLLBACK TO update_trx_contracts;
524: x_return_status := FND_API.G_RET_STS_ERROR;
525:
526: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
520: EXCEPTION
521:
522: WHEN FND_API.G_EXC_ERROR THEN
523: ROLLBACK TO update_trx_contracts;
524: x_return_status := FND_API.G_RET_STS_ERROR;
525:
526: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
527: ,p_count => x_msg_count
528: ,p_data => x_msg_data);
526: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
527: ,p_count => x_msg_count
528: ,p_data => x_msg_data);
529:
530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
531: ROLLBACK TO update_trx_contracts;
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
534: ,p_count => x_msg_count
528: ,p_data => x_msg_data);
529:
530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
531: ROLLBACK TO update_trx_contracts;
532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
533: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
534: ,p_count => x_msg_count
535: ,p_data => x_msg_data);
536:
540: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
541: ,p_count => x_msg_count
542: ,p_data => x_msg_data);
543: -- notify caller of an UNEXPECTED error
544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
545:
546: END update_trx_contracts;
547:
548:
556: ,p_tcnv_tbl IN tcnv_tbl_type
557: ,x_tcnv_tbl OUT NOCOPY tcnv_tbl_type) IS
558:
559:
560: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
561:
562: l_api_name CONSTANT VARCHAR2(30) := 'update_trx_contracts';
563:
564: i NUMBER;
562: l_api_name CONSTANT VARCHAR2(30) := 'update_trx_contracts';
563:
564: i NUMBER;
565:
566: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
567:
568: l_tcnv_tbl tcnv_tbl_type := p_tcnv_tbl;
569:
570: BEGIN
570: BEGIN
571:
572: --Initialize the return status
573:
574: x_return_status := FND_API.G_RET_STS_SUCCESS;
575: SAVEPOINT update_trx_contracts;
576:
577: -- customer pre-processing
578:
611: ,x_tcnv_rec => x_tcnv_tbl(i)
612:
613: );
614: -- store the highest degree of error
615: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
616: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
617: l_overall_status := l_return_status;
618: END IF;
619: END IF;
612:
613: );
614: -- store the highest degree of error
615: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
616: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
617: l_overall_status := l_return_status;
618: END IF;
619: END IF;
620:
627: -- return overall status
628: l_return_status := l_overall_status;
629: END IF;
630:
631: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
632: RAISE FND_API.G_EXC_ERROR;
633: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
635: END IF;
628: l_return_status := l_overall_status;
629: END IF;
630:
631: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
632: RAISE FND_API.G_EXC_ERROR;
633: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
635: END IF;
636:
629: END IF;
630:
631: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
632: RAISE FND_API.G_EXC_ERROR;
633: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
635: END IF;
636:
637:
630:
631: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
632: RAISE FND_API.G_EXC_ERROR;
633: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
635: END IF;
636:
637:
638: l_tcnv_tbl := x_tcnv_tbl;
652:
653:
654: EXCEPTION
655:
656: WHEN FND_API.G_EXC_ERROR THEN
657: ROLLBACK TO update_trx_contracts;
658: x_return_status := FND_API.G_RET_STS_ERROR;
659:
660: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
654: EXCEPTION
655:
656: WHEN FND_API.G_EXC_ERROR THEN
657: ROLLBACK TO update_trx_contracts;
658: x_return_status := FND_API.G_RET_STS_ERROR;
659:
660: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
661: ,p_count => x_msg_count
662: ,p_data => x_msg_data);
660: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
661: ,p_count => x_msg_count
662: ,p_data => x_msg_data);
663:
664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
665: ROLLBACK TO update_trx_contracts;
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
667: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
668: ,p_count => x_msg_count
662: ,p_data => x_msg_data);
663:
664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
665: ROLLBACK TO update_trx_contracts;
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
667: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
668: ,p_count => x_msg_count
669: ,p_data => x_msg_data);
670:
674: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
675: ,p_count => x_msg_count
676: ,p_data => x_msg_data);
677: -- notify caller of an UNEXPECTED error
678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
679:
680:
681:
682: END update_trx_contracts;
700: ,p_tcnv_rec IN tcnv_rec_type) IS
701:
702: i NUMBER :=0;
703:
704: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
705:
706: l_api_name CONSTANT VARCHAR2(30) := 'delete_trx_contracts';
707:
708: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
711:
712: BEGIN
713:
714: SAVEPOINT delete_trx_contracts;
715: x_return_status := FND_API.G_RET_STS_SUCCESS;
716:
717:
718:
719: -- customer pre-processing
749: );
750:
751:
752:
753: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
754: RAISE FND_API.G_EXC_ERROR;
755: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
750:
751:
752:
753: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
754: RAISE FND_API.G_EXC_ERROR;
755: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
758:
751:
752:
753: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
754: RAISE FND_API.G_EXC_ERROR;
755: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
758:
759:
752:
753: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
754: RAISE FND_API.G_EXC_ERROR;
755: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
757: END IF;
758:
759:
760:
773:
774:
775: EXCEPTION
776:
777: WHEN FND_API.G_EXC_ERROR THEN
778: ROLLBACK TO delete_trx_contracts;
779: x_return_status := FND_API.G_RET_STS_ERROR;
780:
781: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
775: EXCEPTION
776:
777: WHEN FND_API.G_EXC_ERROR THEN
778: ROLLBACK TO delete_trx_contracts;
779: x_return_status := FND_API.G_RET_STS_ERROR;
780:
781: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
782: ,p_count => x_msg_count
783: ,p_data => x_msg_data);
781: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
782: ,p_count => x_msg_count
783: ,p_data => x_msg_data);
784:
785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
786: ROLLBACK TO delete_trx_contracts;
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
788: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
789: ,p_count => x_msg_count
783: ,p_data => x_msg_data);
784:
785: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
786: ROLLBACK TO delete_trx_contracts;
787: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
788: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
789: ,p_count => x_msg_count
790: ,p_data => x_msg_data);
791:
795: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
796: ,p_count => x_msg_count
797: ,p_data => x_msg_data);
798: -- notify caller of an UNEXPECTED error
799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
800:
801: END delete_trx_contracts;
802:
803:
817: ,p_tcnv_tbl IN tcnv_tbl_type) IS
818:
819: i NUMBER :=0;
820:
821: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
822:
823: l_api_name CONSTANT VARCHAR2(30) := 'delete_trx_contracts';
824:
825: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
821: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
822:
823: l_api_name CONSTANT VARCHAR2(30) := 'delete_trx_contracts';
824:
825: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
826:
827: l_tcnv_tbl tcnv_tbl_type := p_tcnv_tbl;
828:
829: BEGIN
829: BEGIN
830:
831: --Initialize the return status
832:
833: x_return_status := FND_API.G_RET_STS_SUCCESS;
834: SAVEPOINT delete_trx_contracts;
835:
836: -- customer pre-processing
837:
869:
870: );
871:
872: -- store the highest degree of error
873: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
874: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
875: l_overall_status := l_return_status;
876: END IF;
877: END IF;
870: );
871:
872: -- store the highest degree of error
873: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
874: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
875: l_overall_status := l_return_status;
876: END IF;
877: END IF;
878:
885: l_return_status := l_overall_status;
886:
887: END IF;
888:
889: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
890: RAISE FND_API.G_EXC_ERROR;
891: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: END IF;
886:
887: END IF;
888:
889: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
890: RAISE FND_API.G_EXC_ERROR;
891: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: END IF;
894:
887: END IF;
888:
889: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
890: RAISE FND_API.G_EXC_ERROR;
891: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: END IF;
894:
895:
888:
889: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
890: RAISE FND_API.G_EXC_ERROR;
891: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
892: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
893: END IF;
894:
895:
896:
909:
910:
911: EXCEPTION
912:
913: WHEN FND_API.G_EXC_ERROR THEN
914: ROLLBACK TO delete_trx_contracts;
915: x_return_status := FND_API.G_RET_STS_ERROR;
916:
917: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
911: EXCEPTION
912:
913: WHEN FND_API.G_EXC_ERROR THEN
914: ROLLBACK TO delete_trx_contracts;
915: x_return_status := FND_API.G_RET_STS_ERROR;
916:
917: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
918: ,p_count => x_msg_count
919: ,p_data => x_msg_data);
917: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
918: ,p_count => x_msg_count
919: ,p_data => x_msg_data);
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: ROLLBACK TO delete_trx_contracts;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
925: ,p_count => x_msg_count
919: ,p_data => x_msg_data);
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: ROLLBACK TO delete_trx_contracts;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
925: ,p_count => x_msg_count
926: ,p_data => x_msg_data);
927:
931: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
932: ,p_count => x_msg_count
933: ,p_data => x_msg_data);
934: -- notify caller of an UNEXPECTED error
935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936:
937:
938:
939: END delete_trx_contracts;
956: ,p_tclv_rec IN tclv_rec_type
957:
958: ,x_tclv_rec OUT NOCOPY tclv_rec_type) IS
959:
960: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
961:
962: l_api_name CONSTANT VARCHAR2(30) := 'create_trx_cntrct_lines';
963:
964: l_tclv_rec tclv_rec_type := p_tclv_rec;
965:
966: BEGIN
967:
968: SAVEPOINT create_trx_cntrct_lines;
969: x_return_status := FND_API.G_RET_STS_SUCCESS;
970:
971:
972:
973: -- customer pre-processing
1007: ,x_tclv_rec => x_tclv_rec
1008:
1009: );
1010:
1011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1012: RAISE FND_API.G_EXC_ERROR;
1013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END IF;
1008:
1009: );
1010:
1011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1012: RAISE FND_API.G_EXC_ERROR;
1013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END IF;
1016:
1009: );
1010:
1011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1012: RAISE FND_API.G_EXC_ERROR;
1013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END IF;
1016:
1017: l_tclv_rec := x_tclv_rec;
1010:
1011: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1012: RAISE FND_API.G_EXC_ERROR;
1013: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END IF;
1016:
1017: l_tclv_rec := x_tclv_rec;
1018:
1031:
1032:
1033: EXCEPTION
1034:
1035: WHEN FND_API.G_EXC_ERROR THEN
1036: ROLLBACK TO create_trx_cntrct_lines;
1037: x_return_status := FND_API.G_RET_STS_ERROR;
1038:
1039: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1033: EXCEPTION
1034:
1035: WHEN FND_API.G_EXC_ERROR THEN
1036: ROLLBACK TO create_trx_cntrct_lines;
1037: x_return_status := FND_API.G_RET_STS_ERROR;
1038:
1039: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1040: ,p_count => x_msg_count
1041: ,p_data => x_msg_data);
1039: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1040: ,p_count => x_msg_count
1041: ,p_data => x_msg_data);
1042:
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: ROLLBACK TO create_trx_cntrct_lines;
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1047: ,p_count => x_msg_count
1041: ,p_data => x_msg_data);
1042:
1043: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1044: ROLLBACK TO create_trx_cntrct_lines;
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1047: ,p_count => x_msg_count
1048: ,p_data => x_msg_data);
1049:
1053: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1054: ,p_count => x_msg_count
1055: ,p_data => x_msg_data);
1056: -- notify caller of an UNEXPECTED error
1057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1058:
1059: END create_trx_cntrct_lines;
1060:
1061:
1075: ,p_tclv_tbl IN tclv_tbl_type
1076:
1077: ,x_tclv_tbl OUT NOCOPY tclv_tbl_type) IS
1078:
1079: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1080:
1081: l_api_name CONSTANT VARCHAR2(30) := 'create_trx_cntrct_lines';
1082:
1083: i NUMBER;
1081: l_api_name CONSTANT VARCHAR2(30) := 'create_trx_cntrct_lines';
1082:
1083: i NUMBER;
1084:
1085: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1086:
1087: l_tclv_tbl tclv_tbl_type := p_tclv_tbl;
1088:
1089: BEGIN
1089: BEGIN
1090:
1091: --Initialize the return status
1092: SAVEPOINT create_trx_cntrct_lines;
1093: x_return_status := FND_API.G_RET_STS_SUCCESS;
1094:
1095:
1096:
1097: -- customer pre-processing
1131: ,x_tclv_rec => x_tclv_tbl(i)
1132:
1133: );
1134: -- store the highest degree of error
1135: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1136: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1137: l_overall_status := l_return_status;
1138: END IF;
1139: END IF;
1132:
1133: );
1134: -- store the highest degree of error
1135: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1136: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1137: l_overall_status := l_return_status;
1138: END IF;
1139: END IF;
1140:
1147: l_return_status := l_overall_status;
1148:
1149: END IF;
1150:
1151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1152: RAISE FND_API.G_EXC_ERROR;
1153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155: END IF;
1148:
1149: END IF;
1150:
1151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1152: RAISE FND_API.G_EXC_ERROR;
1153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155: END IF;
1156:
1149: END IF;
1150:
1151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1152: RAISE FND_API.G_EXC_ERROR;
1153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155: END IF;
1156:
1157:
1150:
1151: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1152: RAISE FND_API.G_EXC_ERROR;
1153: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1155: END IF;
1156:
1157:
1158: l_tclv_tbl := x_tclv_tbl;
1172:
1173:
1174: EXCEPTION
1175:
1176: WHEN FND_API.G_EXC_ERROR THEN
1177: ROLLBACK TO create_trx_cntrct_lines;
1178: x_return_status := FND_API.G_RET_STS_ERROR;
1179:
1180: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1174: EXCEPTION
1175:
1176: WHEN FND_API.G_EXC_ERROR THEN
1177: ROLLBACK TO create_trx_cntrct_lines;
1178: x_return_status := FND_API.G_RET_STS_ERROR;
1179:
1180: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1181: ,p_count => x_msg_count
1182: ,p_data => x_msg_data);
1180: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1181: ,p_count => x_msg_count
1182: ,p_data => x_msg_data);
1183:
1184: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1185: ROLLBACK TO create_trx_cntrct_lines;
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1187: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1188: ,p_count => x_msg_count
1182: ,p_data => x_msg_data);
1183:
1184: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1185: ROLLBACK TO create_trx_cntrct_lines;
1186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1187: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1188: ,p_count => x_msg_count
1189: ,p_data => x_msg_data);
1190:
1194: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1195: ,p_count => x_msg_count
1196: ,p_data => x_msg_data);
1197: -- notify caller of an UNEXPECTED error
1198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1199:
1200:
1201:
1202: END create_trx_cntrct_lines;
1219: ,p_tclv_rec IN tclv_rec_type
1220:
1221: ,x_tclv_rec OUT NOCOPY tclv_rec_type) IS
1222:
1223: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1224:
1225: l_api_name CONSTANT VARCHAR2(30) := 'update_trx_cntrct_lines';
1226:
1227: l_tclv_rec tclv_rec_type := p_tclv_rec;
1228:
1229: BEGIN
1230:
1231: SAVEPOINT update_trx_cntrct_lines;
1232: x_return_status := FND_API.G_RET_STS_SUCCESS;
1233:
1234:
1235:
1236: -- customer pre-processing
1266: ,x_tclv_rec => x_tclv_rec
1267:
1268: );
1269:
1270: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1271: RAISE FND_API.G_EXC_ERROR;
1272: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1274: END IF;
1267:
1268: );
1269:
1270: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1271: RAISE FND_API.G_EXC_ERROR;
1272: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1274: END IF;
1275:
1268: );
1269:
1270: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1271: RAISE FND_API.G_EXC_ERROR;
1272: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1274: END IF;
1275:
1276: l_tclv_rec := x_tclv_rec;
1269:
1270: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1271: RAISE FND_API.G_EXC_ERROR;
1272: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1274: END IF;
1275:
1276: l_tclv_rec := x_tclv_rec;
1277:
1290:
1291:
1292: EXCEPTION
1293:
1294: WHEN FND_API.G_EXC_ERROR THEN
1295: ROLLBACK TO update_trx_cntrct_lines;
1296: x_return_status := FND_API.G_RET_STS_ERROR;
1297:
1298: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1292: EXCEPTION
1293:
1294: WHEN FND_API.G_EXC_ERROR THEN
1295: ROLLBACK TO update_trx_cntrct_lines;
1296: x_return_status := FND_API.G_RET_STS_ERROR;
1297:
1298: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1299: ,p_count => x_msg_count
1300: ,p_data => x_msg_data);
1298: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1299: ,p_count => x_msg_count
1300: ,p_data => x_msg_data);
1301:
1302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1303: ROLLBACK TO update_trx_cntrct_lines;
1304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1305: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1306: ,p_count => x_msg_count
1300: ,p_data => x_msg_data);
1301:
1302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1303: ROLLBACK TO update_trx_cntrct_lines;
1304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1305: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1306: ,p_count => x_msg_count
1307: ,p_data => x_msg_data);
1308:
1312: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1313: ,p_count => x_msg_count
1314: ,p_data => x_msg_data);
1315: -- notify caller of an UNEXPECTED error
1316: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1317:
1318: END update_trx_cntrct_lines;
1319:
1320:
1334: ,p_tclv_tbl IN tclv_tbl_type
1335:
1336: ,x_tclv_tbl OUT NOCOPY tclv_tbl_type) IS
1337:
1338: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1339:
1340: l_api_name CONSTANT VARCHAR2(30) := 'update_trx_cntrct_lines';
1341:
1342: i NUMBER;
1340: l_api_name CONSTANT VARCHAR2(30) := 'update_trx_cntrct_lines';
1341:
1342: i NUMBER;
1343:
1344: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1345:
1346: l_tclv_tbl tclv_tbl_type := p_tclv_tbl;
1347:
1348: BEGIN
1348: BEGIN
1349:
1350: --Initialize the return status
1351: SAVEPOINT update_trx_cntrct_lines;
1352: x_return_status := FND_API.G_RET_STS_SUCCESS;
1353:
1354:
1355:
1356: -- customer pre-processing
1390: ,x_tclv_rec => x_tclv_tbl(i)
1391:
1392: );
1393: -- store the highest degree of error
1394: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1395: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1396: l_overall_status := l_return_status;
1397: END IF;
1398: END IF;
1391:
1392: );
1393: -- store the highest degree of error
1394: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1395: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1396: l_overall_status := l_return_status;
1397: END IF;
1398: END IF;
1399:
1406: l_return_status := l_overall_status;
1407:
1408: END IF;
1409:
1410: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1411: RAISE FND_API.G_EXC_ERROR;
1412: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1414: END IF;
1407:
1408: END IF;
1409:
1410: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1411: RAISE FND_API.G_EXC_ERROR;
1412: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1414: END IF;
1415:
1408: END IF;
1409:
1410: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1411: RAISE FND_API.G_EXC_ERROR;
1412: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1414: END IF;
1415:
1416: l_tclv_tbl := x_tclv_tbl;
1409:
1410: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1411: RAISE FND_API.G_EXC_ERROR;
1412: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1414: END IF;
1415:
1416: l_tclv_tbl := x_tclv_tbl;
1417:
1430:
1431:
1432: EXCEPTION
1433:
1434: WHEN FND_API.G_EXC_ERROR THEN
1435: ROLLBACK TO update_trx_cntrct_lines;
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437:
1438: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1432: EXCEPTION
1433:
1434: WHEN FND_API.G_EXC_ERROR THEN
1435: ROLLBACK TO update_trx_cntrct_lines;
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437:
1438: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1439: ,p_count => x_msg_count
1440: ,p_data => x_msg_data);
1438: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1439: ,p_count => x_msg_count
1440: ,p_data => x_msg_data);
1441:
1442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1443: ROLLBACK TO update_trx_cntrct_lines;
1444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1445: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1446: ,p_count => x_msg_count
1440: ,p_data => x_msg_data);
1441:
1442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1443: ROLLBACK TO update_trx_cntrct_lines;
1444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1445: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1446: ,p_count => x_msg_count
1447: ,p_data => x_msg_data);
1448:
1452: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1453: ,p_count => x_msg_count
1454: ,p_data => x_msg_data);
1455: -- notify caller of an UNEXPECTED error
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1457:
1458:
1459:
1460: END update_trx_cntrct_lines;
1478: ,p_tclv_rec IN tclv_rec_type) IS
1479:
1480: i NUMBER :=0;
1481:
1482: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1483:
1484: l_api_name CONSTANT VARCHAR2(30) := 'delete_trx_cntrct_lines';
1485:
1486: l_tclv_rec tclv_rec_type := p_tclv_rec;
1487:
1488: BEGIN
1489:
1490: SAVEPOINT delete_trx_cntrct_lines;
1491: x_return_status := FND_API.G_RET_STS_SUCCESS;
1492:
1493:
1494:
1495: -- customer pre-processing
1523: ,x_msg_data => x_msg_data
1524:
1525: ,p_tclv_rec => l_tclv_rec);
1526:
1527: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1528: RAISE FND_API.G_EXC_ERROR;
1529: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1524:
1525: ,p_tclv_rec => l_tclv_rec);
1526:
1527: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1528: RAISE FND_API.G_EXC_ERROR;
1529: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1532:
1525: ,p_tclv_rec => l_tclv_rec);
1526:
1527: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1528: RAISE FND_API.G_EXC_ERROR;
1529: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1532:
1533:
1526:
1527: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1528: RAISE FND_API.G_EXC_ERROR;
1529: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1532:
1533:
1534:
1547:
1548:
1549: EXCEPTION
1550:
1551: WHEN FND_API.G_EXC_ERROR THEN
1552: ROLLBACK TO delete_trx_cntrct_lines;
1553: x_return_status := FND_API.G_RET_STS_ERROR;
1554:
1555: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1549: EXCEPTION
1550:
1551: WHEN FND_API.G_EXC_ERROR THEN
1552: ROLLBACK TO delete_trx_cntrct_lines;
1553: x_return_status := FND_API.G_RET_STS_ERROR;
1554:
1555: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1556: ,p_count => x_msg_count
1557: ,p_data => x_msg_data);
1555: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1556: ,p_count => x_msg_count
1557: ,p_data => x_msg_data);
1558:
1559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1560: ROLLBACK TO delete_trx_cntrct_lines;
1561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1562: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1563: ,p_count => x_msg_count
1557: ,p_data => x_msg_data);
1558:
1559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1560: ROLLBACK TO delete_trx_cntrct_lines;
1561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1562: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1563: ,p_count => x_msg_count
1564: ,p_data => x_msg_data);
1565:
1569: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1570: ,p_count => x_msg_count
1571: ,p_data => x_msg_data);
1572: -- notify caller of an UNEXPECTED error
1573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1574:
1575: END delete_trx_cntrct_lines;
1576:
1577:
1593:
1594:
1595: i NUMBER :=0;
1596:
1597: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1598:
1599: l_api_name CONSTANT VARCHAR2(30) := 'delete_trx_cntrct_lines';
1600:
1601: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1597: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1598:
1599: l_api_name CONSTANT VARCHAR2(30) := 'delete_trx_cntrct_lines';
1600:
1601: l_overall_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1602:
1603: l_tclv_tbl tclv_tbl_type := p_tclv_tbl;
1604:
1605: BEGIN
1605: BEGIN
1606:
1607: --Initialize the return status
1608: SAVEPOINT delete_trx_cntrct_lines;
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1611:
1612:
1613: -- customer pre-processing
1643: ,x_msg_data => x_msg_data
1644:
1645: ,p_tclv_rec => l_tclv_tbl(i));
1646: -- store the highest degree of error
1647: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1648: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1649: l_overall_status := l_return_status;
1650: END IF;
1651: END IF;
1644:
1645: ,p_tclv_rec => l_tclv_tbl(i));
1646: -- store the highest degree of error
1647: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1648: IF l_overall_status <> FND_API.G_RET_STS_UNEXP_ERROR THEN
1649: l_overall_status := l_return_status;
1650: END IF;
1651: END IF;
1652:
1659: l_return_status := l_overall_status;
1660:
1661: END IF;
1662:
1663: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1664: RAISE FND_API.G_EXC_ERROR;
1665: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1667: END IF;
1660:
1661: END IF;
1662:
1663: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1664: RAISE FND_API.G_EXC_ERROR;
1665: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1667: END IF;
1668:
1661: END IF;
1662:
1663: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1664: RAISE FND_API.G_EXC_ERROR;
1665: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1667: END IF;
1668:
1669:
1662:
1663: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1664: RAISE FND_API.G_EXC_ERROR;
1665: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1667: END IF;
1668:
1669:
1670:
1683:
1684:
1685: EXCEPTION
1686:
1687: WHEN FND_API.G_EXC_ERROR THEN
1688: ROLLBACK TO delete_trx_cntrct_lines;
1689: x_return_status := FND_API.G_RET_STS_ERROR;
1690:
1691: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1685: EXCEPTION
1686:
1687: WHEN FND_API.G_EXC_ERROR THEN
1688: ROLLBACK TO delete_trx_cntrct_lines;
1689: x_return_status := FND_API.G_RET_STS_ERROR;
1690:
1691: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1692: ,p_count => x_msg_count
1693: ,p_data => x_msg_data);
1691: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1692: ,p_count => x_msg_count
1693: ,p_data => x_msg_data);
1694:
1695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1696: ROLLBACK TO delete_trx_cntrct_lines;
1697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1698: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1699: ,p_count => x_msg_count
1693: ,p_data => x_msg_data);
1694:
1695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1696: ROLLBACK TO delete_trx_cntrct_lines;
1697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1698: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1699: ,p_count => x_msg_count
1700: ,p_data => x_msg_data);
1701:
1705: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
1706: ,p_count => x_msg_count
1707: ,p_data => x_msg_data);
1708: -- notify caller of an UNEXPECTED error
1709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1710:
1711: END delete_trx_cntrct_lines;
1712:
1713: