[Home] [Help]
82: i NUMBER;
83: l_pol_id OKL_POOLS.ID%TYPE;
84: l_currency_code OKL_POOLS.CURRENCY_CODE%TYPE;
85: l_org_id OKL_POOLS.ORG_ID%TYPE;
86: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
87:
88: lp_polv_rec polv_rec_type;
89: lx_polv_rec polv_rec_type;
90: l_poc_id OKL_POOL_CONTENTS.ID%TYPE;
108: p_api_version,
109: l_api_name,
110: G_PKG_NAME ))
111: THEN
112: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
113: END IF;
114:
115: -- Initialize message list if requested
116: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
117: Fnd_Msg_Pub.initialize;
118: END IF;
119:
120: -- Initialize API status to success
121: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
122:
123:
124: /*** Begin API body ****************************************************/
125: ----------------------------------------------------------------------------
139: x_msg_data => x_msg_data,
140: p_polv_rec => lp_polv_rec,
141: x_polv_rec => lx_polv_rec);
142:
143: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
144: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
145: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
146: RAISE Okl_Api.G_EXCEPTION_ERROR;
147: END IF;
140: p_polv_rec => lp_polv_rec,
141: x_polv_rec => lx_polv_rec);
142:
143: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
144: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
145: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
146: RAISE Okl_Api.G_EXCEPTION_ERROR;
147: END IF;
148:
141: x_polv_rec => lx_polv_rec);
142:
143: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
144: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
145: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
146: RAISE Okl_Api.G_EXCEPTION_ERROR;
147: END IF;
148:
149: ----------------------------------------------------------------------------
142:
143: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
144: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
145: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
146: RAISE Okl_Api.G_EXCEPTION_ERROR;
147: END IF;
148:
149: ----------------------------------------------------------------------------
150: --2. update pool contents status
169: x_msg_data => x_msg_data,
170: p_pocv_rec => lp_pocv_rec,
171: x_pocv_rec => lx_pocv_rec);
172:
173: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
174: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
175: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
176: RAISE Okl_Api.G_EXCEPTION_ERROR;
177: END IF;
170: p_pocv_rec => lp_pocv_rec,
171: x_pocv_rec => lx_pocv_rec);
172:
173: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
174: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
175: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
176: RAISE Okl_Api.G_EXCEPTION_ERROR;
177: END IF;
178:
171: x_pocv_rec => lx_pocv_rec);
172:
173: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
174: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
175: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
176: RAISE Okl_Api.G_EXCEPTION_ERROR;
177: END IF;
178:
179: END LOOP;
172:
173: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
174: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
175: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
176: RAISE Okl_Api.G_EXCEPTION_ERROR;
177: END IF;
178:
179: END LOOP;
180: CLOSE c_poc;
188: (p_count => x_msg_count,
189: p_data => x_msg_data);
190:
191: EXCEPTION
192: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
193: ROLLBACK TO update_pool_status_PVT;
194: x_return_status := Okl_Api.G_RET_STS_ERROR;
195: Fnd_Msg_Pub.Count_And_Get
196: (p_count => x_msg_count,
190:
191: EXCEPTION
192: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
193: ROLLBACK TO update_pool_status_PVT;
194: x_return_status := Okl_Api.G_RET_STS_ERROR;
195: Fnd_Msg_Pub.Count_And_Get
196: (p_count => x_msg_count,
197: p_data => x_msg_data);
198:
195: Fnd_Msg_Pub.Count_And_Get
196: (p_count => x_msg_count,
197: p_data => x_msg_data);
198:
199: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
200: ROLLBACK TO update_pool_status_PVT;
201: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
202: Fnd_Msg_Pub.Count_And_Get
203: (p_count => x_msg_count,
197: p_data => x_msg_data);
198:
199: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
200: ROLLBACK TO update_pool_status_PVT;
201: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
202: Fnd_Msg_Pub.Count_And_Get
203: (p_count => x_msg_count,
204: p_data => x_msg_data);
205:
204: p_data => x_msg_data);
205:
206: WHEN OTHERS THEN
207: ROLLBACK TO update_pool_status_PVT;
208: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
209: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
210: p_msg_name => G_UNEXPECTED_ERROR,
211: p_token1 => G_SQLCODE_TOKEN,
212: p_token1_value => SQLCODE,
205:
206: WHEN OTHERS THEN
207: ROLLBACK TO update_pool_status_PVT;
208: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
209: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
210: p_msg_name => G_UNEXPECTED_ERROR,
211: p_token1 => G_SQLCODE_TOKEN,
212: p_token1_value => SQLCODE,
213: p_token2 => G_SQLERRM_TOKEN,
239: ) IS
240: l_api_name CONSTANT VARCHAR2(30) := 'create_pool_pvt';
241: l_api_version CONSTANT NUMBER := 1.0;
242: i NUMBER;
243: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
244:
245:
246: l_polv_rec polv_rec_type := p_polv_rec;
247: -- x_polv_rec polv_rec_type;
255: p_api_version,
256: l_api_name,
257: G_PKG_NAME ))
258: THEN
259: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
260: END IF;
261:
262: -- Initialize message list if requested
263: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
264: Fnd_Msg_Pub.initialize;
265: END IF;
266:
267: -- Initialize API status to success
268: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
269:
270:
271: /*** Begin API body ****************************************************/
272:
282: x_msg_data => x_msg_data,
283: p_polv_rec => l_polv_rec,
284: x_polv_rec => x_polv_rec);
285:
286: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
287: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
288: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
289: RAISE Okl_Api.G_EXCEPTION_ERROR;
290: END IF;
283: p_polv_rec => l_polv_rec,
284: x_polv_rec => x_polv_rec);
285:
286: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
287: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
288: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
289: RAISE Okl_Api.G_EXCEPTION_ERROR;
290: END IF;
291:
284: x_polv_rec => x_polv_rec);
285:
286: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
287: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
288: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
289: RAISE Okl_Api.G_EXCEPTION_ERROR;
290: END IF;
291:
292: /*** End API body ******************************************************/
285:
286: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
287: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
288: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
289: RAISE Okl_Api.G_EXCEPTION_ERROR;
290: END IF;
291:
292: /*** End API body ******************************************************/
293:
296: (p_count => x_msg_count,
297: p_data => x_msg_data);
298:
299: EXCEPTION
300: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
301: ROLLBACK TO create_pool_PVT;
302: x_return_status := Okl_Api.G_RET_STS_ERROR;
303: Fnd_Msg_Pub.Count_And_Get
304: (p_count => x_msg_count,
298:
299: EXCEPTION
300: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
301: ROLLBACK TO create_pool_PVT;
302: x_return_status := Okl_Api.G_RET_STS_ERROR;
303: Fnd_Msg_Pub.Count_And_Get
304: (p_count => x_msg_count,
305: p_data => x_msg_data);
306:
303: Fnd_Msg_Pub.Count_And_Get
304: (p_count => x_msg_count,
305: p_data => x_msg_data);
306:
307: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
308: ROLLBACK TO create_pool_PVT;
309: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
310: Fnd_Msg_Pub.Count_And_Get
311: (p_count => x_msg_count,
305: p_data => x_msg_data);
306:
307: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
308: ROLLBACK TO create_pool_PVT;
309: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
310: Fnd_Msg_Pub.Count_And_Get
311: (p_count => x_msg_count,
312: p_data => x_msg_data);
313:
312: p_data => x_msg_data);
313:
314: WHEN OTHERS THEN
315: ROLLBACK TO create_pool_PVT;
316: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
317:
318:
319:
320:
319:
320:
321:
322:
323: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
324: p_msg_name => G_UNEXPECTED_ERROR,
325: p_token1 => G_SQLCODE_TOKEN,
326: p_token1_value => SQLCODE,
327: p_token2 => G_SQLERRM_TOKEN,
352: ) IS
353: l_api_name CONSTANT VARCHAR2(30) := 'update_pool_pvt';
354: l_api_version CONSTANT NUMBER := 1.0;
355: i NUMBER;
356: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
357:
358: l_polv_rec polv_rec_type := p_polv_rec;
359: -- x_polv_rec polv_rec_type;
360:
367: p_api_version,
368: l_api_name,
369: G_PKG_NAME ))
370: THEN
371: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
372: END IF;
373:
374: -- Initialize message list if requested
375: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
376: Fnd_Msg_Pub.initialize;
377: END IF;
378:
379: -- Initialize API status to success
380: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
381:
382:
383: /*** Begin API body ****************************************************/
384:
391:
392: -- fmiao 12/09/05 fix OBJECT_VERSION_NUMBER
393:
394: IF (l_polv_rec.object_version_number IS NULL) THEN
395: l_polv_rec.object_version_number :=Okl_Api.G_MISS_NUM;
396: END IF;
397:
398: IF (l_polv_rec.date_created IS NULL) THEN
399: l_polv_rec.date_created :=Okl_Api.G_MISS_DATE;
395: l_polv_rec.object_version_number :=Okl_Api.G_MISS_NUM;
396: END IF;
397:
398: IF (l_polv_rec.date_created IS NULL) THEN
399: l_polv_rec.date_created :=Okl_Api.G_MISS_DATE;
400: END IF;
401:
402: IF (l_polv_rec.created_by IS NULL) THEN
403: l_polv_rec.created_by :=Okl_Api.G_MISS_NUM;
399: l_polv_rec.date_created :=Okl_Api.G_MISS_DATE;
400: END IF;
401:
402: IF (l_polv_rec.created_by IS NULL) THEN
403: l_polv_rec.created_by :=Okl_Api.G_MISS_NUM;
404: END IF;
405: IF (l_polv_rec.creation_date IS NULL) THEN
406: l_polv_rec.creation_date :=Okl_Api.G_MISS_DATE;
407: END IF;
402: IF (l_polv_rec.created_by IS NULL) THEN
403: l_polv_rec.created_by :=Okl_Api.G_MISS_NUM;
404: END IF;
405: IF (l_polv_rec.creation_date IS NULL) THEN
406: l_polv_rec.creation_date :=Okl_Api.G_MISS_DATE;
407: END IF;
408: IF (l_polv_rec.last_updated_by IS NULL) THEN
409: l_polv_rec.last_updated_by :=Okl_Api.G_MISS_NUM;
410: END IF;
405: IF (l_polv_rec.creation_date IS NULL) THEN
406: l_polv_rec.creation_date :=Okl_Api.G_MISS_DATE;
407: END IF;
408: IF (l_polv_rec.last_updated_by IS NULL) THEN
409: l_polv_rec.last_updated_by :=Okl_Api.G_MISS_NUM;
410: END IF;
411: IF (l_polv_rec.last_update_date IS NULL) THEN
412: l_polv_rec.last_update_date :=Okl_Api.G_MISS_DATE;
413: END IF;
408: IF (l_polv_rec.last_updated_by IS NULL) THEN
409: l_polv_rec.last_updated_by :=Okl_Api.G_MISS_NUM;
410: END IF;
411: IF (l_polv_rec.last_update_date IS NULL) THEN
412: l_polv_rec.last_update_date :=Okl_Api.G_MISS_DATE;
413: END IF;
414: IF (l_polv_rec.last_update_login IS NULL) THEN
415: l_polv_rec.last_update_login :=Okl_Api.G_MISS_NUM;
416: END IF;
411: IF (l_polv_rec.last_update_date IS NULL) THEN
412: l_polv_rec.last_update_date :=Okl_Api.G_MISS_DATE;
413: END IF;
414: IF (l_polv_rec.last_update_login IS NULL) THEN
415: l_polv_rec.last_update_login :=Okl_Api.G_MISS_NUM;
416: END IF;
417: -- end fmiao 12/09/05 fix OBJECT_VERSION_NUMBER
418:
419: Okl_Pol_Pvt.update_row(
424: x_msg_data => x_msg_data,
425: p_polv_rec => l_polv_rec,
426: x_polv_rec => x_polv_rec);
427:
428: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
430: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
431: RAISE Okl_Api.G_EXCEPTION_ERROR;
432: END IF;
425: p_polv_rec => l_polv_rec,
426: x_polv_rec => x_polv_rec);
427:
428: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
430: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
431: RAISE Okl_Api.G_EXCEPTION_ERROR;
432: END IF;
433:
426: x_polv_rec => x_polv_rec);
427:
428: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
430: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
431: RAISE Okl_Api.G_EXCEPTION_ERROR;
432: END IF;
433:
434: /*** End API body ******************************************************/
427:
428: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
430: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
431: RAISE Okl_Api.G_EXCEPTION_ERROR;
432: END IF;
433:
434: /*** End API body ******************************************************/
435:
438: (p_count => x_msg_count,
439: p_data => x_msg_data);
440:
441: EXCEPTION
442: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
443: ROLLBACK TO update_pool_PVT;
444: x_return_status := Okl_Api.G_RET_STS_ERROR;
445: Fnd_Msg_Pub.Count_And_Get
446: (p_count => x_msg_count,
440:
441: EXCEPTION
442: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
443: ROLLBACK TO update_pool_PVT;
444: x_return_status := Okl_Api.G_RET_STS_ERROR;
445: Fnd_Msg_Pub.Count_And_Get
446: (p_count => x_msg_count,
447: p_data => x_msg_data);
448:
445: Fnd_Msg_Pub.Count_And_Get
446: (p_count => x_msg_count,
447: p_data => x_msg_data);
448:
449: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
450: ROLLBACK TO update_pool_PVT;
451: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
452: Fnd_Msg_Pub.Count_And_Get
453: (p_count => x_msg_count,
447: p_data => x_msg_data);
448:
449: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
450: ROLLBACK TO update_pool_PVT;
451: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
452: Fnd_Msg_Pub.Count_And_Get
453: (p_count => x_msg_count,
454: p_data => x_msg_data);
455:
458:
459:
460: WHEN OTHERS THEN
461: ROLLBACK TO update_pool_PVT;
462: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
463: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
464: p_msg_name => G_UNEXPECTED_ERROR,
465: p_token1 => G_SQLCODE_TOKEN,
466: p_token1_value => SQLCODE,
459:
460: WHEN OTHERS THEN
461: ROLLBACK TO update_pool_PVT;
462: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
463: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
464: p_msg_name => G_UNEXPECTED_ERROR,
465: p_token1 => G_SQLCODE_TOKEN,
466: p_token1_value => SQLCODE,
467: p_token2 => G_SQLERRM_TOKEN,
490: ) IS
491: l_api_name CONSTANT VARCHAR2(30) := 'delete_pool_pvt';
492: l_api_version CONSTANT NUMBER := 1.0;
493: i NUMBER;
494: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
495:
496: l_polv_rec polv_rec_type := p_polv_rec;
497: -- x_polv_rec polv_rec_type;
498:
505: p_api_version,
506: l_api_name,
507: G_PKG_NAME ))
508: THEN
509: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
510: END IF;
511:
512: -- Initialize message list if requested
513: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
514: Fnd_Msg_Pub.initialize;
515: END IF;
516:
517: -- Initialize API status to success
518: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
519:
520:
521: /*** Begin API body ****************************************************/
522:
527: x_msg_count => x_msg_count,
528: x_msg_data => x_msg_data,
529: p_polv_rec => l_polv_rec);
530:
531: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
532: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
533: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
534: RAISE Okl_Api.G_EXCEPTION_ERROR;
535: END IF;
528: x_msg_data => x_msg_data,
529: p_polv_rec => l_polv_rec);
530:
531: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
532: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
533: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
534: RAISE Okl_Api.G_EXCEPTION_ERROR;
535: END IF;
536:
529: p_polv_rec => l_polv_rec);
530:
531: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
532: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
533: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
534: RAISE Okl_Api.G_EXCEPTION_ERROR;
535: END IF;
536:
537: /*** End API body ******************************************************/
530:
531: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
532: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
533: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
534: RAISE Okl_Api.G_EXCEPTION_ERROR;
535: END IF;
536:
537: /*** End API body ******************************************************/
538:
541: (p_count => x_msg_count,
542: p_data => x_msg_data);
543:
544: EXCEPTION
545: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
546: ROLLBACK TO delete_pool_PVT;
547: x_return_status := Okl_Api.G_RET_STS_ERROR;
548: Fnd_Msg_Pub.Count_And_Get
549: (p_count => x_msg_count,
543:
544: EXCEPTION
545: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
546: ROLLBACK TO delete_pool_PVT;
547: x_return_status := Okl_Api.G_RET_STS_ERROR;
548: Fnd_Msg_Pub.Count_And_Get
549: (p_count => x_msg_count,
550: p_data => x_msg_data);
551:
548: Fnd_Msg_Pub.Count_And_Get
549: (p_count => x_msg_count,
550: p_data => x_msg_data);
551:
552: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
553: ROLLBACK TO delete_pool_PVT;
554: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
555: Fnd_Msg_Pub.Count_And_Get
556: (p_count => x_msg_count,
550: p_data => x_msg_data);
551:
552: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
553: ROLLBACK TO delete_pool_PVT;
554: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
555: Fnd_Msg_Pub.Count_And_Get
556: (p_count => x_msg_count,
557: p_data => x_msg_data);
558:
557: p_data => x_msg_data);
558:
559: WHEN OTHERS THEN
560: ROLLBACK TO delete_pool_PVT;
561: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
562: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
563: p_msg_name => G_UNEXPECTED_ERROR,
564: p_token1 => G_SQLCODE_TOKEN,
565: p_token1_value => SQLCODE,
558:
559: WHEN OTHERS THEN
560: ROLLBACK TO delete_pool_PVT;
561: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
562: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
563: p_msg_name => G_UNEXPECTED_ERROR,
564: p_token1 => G_SQLCODE_TOKEN,
565: p_token1_value => SQLCODE,
566: p_token2 => G_SQLERRM_TOKEN,
590: ) IS
591: l_api_name CONSTANT VARCHAR2(30) := 'create_pool_contents_pvt';
592: l_api_version CONSTANT NUMBER := 1.0;
593: i NUMBER;
594: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
595:
596: l_pocv_rec pocv_rec_type := p_pocv_rec;
597: -- x_pocv_rec pocv_rec_type;
598: --Added by kthiruva on 21-Nov-2007 for Bug 6640050
610: p_api_version,
611: l_api_name,
612: G_PKG_NAME ))
613: THEN
614: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
615: END IF;
616:
617: -- Initialize message list if requested
618: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
619: Fnd_Msg_Pub.initialize;
620: END IF;
621:
622: -- Initialize API status to success
623: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
624: FOR pool_status_rec IN pool_status_csr(p_pocv_rec.pol_id)
625: LOOP
626: l_status_code := pool_status_rec.status_code;
627: END LOOP;
648: x_msg_data => x_msg_data,
649: p_pocv_rec => l_pocv_rec,
650: x_pocv_rec => x_pocv_rec);
651:
652: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
653: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
654: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
655: RAISE Okl_Api.G_EXCEPTION_ERROR;
656: END IF;
649: p_pocv_rec => l_pocv_rec,
650: x_pocv_rec => x_pocv_rec);
651:
652: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
653: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
654: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
655: RAISE Okl_Api.G_EXCEPTION_ERROR;
656: END IF;
657:
650: x_pocv_rec => x_pocv_rec);
651:
652: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
653: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
654: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
655: RAISE Okl_Api.G_EXCEPTION_ERROR;
656: END IF;
657:
658: lp_polv_rec.ID := p_pocv_rec.POL_ID;
651:
652: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
653: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
654: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
655: RAISE Okl_Api.G_EXCEPTION_ERROR;
656: END IF;
657:
658: lp_polv_rec.ID := p_pocv_rec.POL_ID;
659:
665: x_msg_data => x_msg_data,
666: p_polv_rec => lp_polv_rec,
667: x_polv_rec => lx_polv_rec);
668:
669: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
670: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
672:
673: RAISE Okl_Api.G_EXCEPTION_ERROR;
666: p_polv_rec => lp_polv_rec,
667: x_polv_rec => lx_polv_rec);
668:
669: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
670: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
672:
673: RAISE Okl_Api.G_EXCEPTION_ERROR;
674: END IF;
667: x_polv_rec => lx_polv_rec);
668:
669: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
670: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
672:
673: RAISE Okl_Api.G_EXCEPTION_ERROR;
674: END IF;
675:
669: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
670: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
672:
673: RAISE Okl_Api.G_EXCEPTION_ERROR;
674: END IF;
675:
676: /*** End API body ******************************************************/
677:
680: (p_count => x_msg_count,
681: p_data => x_msg_data);
682:
683: EXCEPTION
684: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
685: ROLLBACK TO create_pool_contents_PVT;
686: x_return_status := Okl_Api.G_RET_STS_ERROR;
687: Fnd_Msg_Pub.Count_And_Get
688: (p_count => x_msg_count,
682:
683: EXCEPTION
684: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
685: ROLLBACK TO create_pool_contents_PVT;
686: x_return_status := Okl_Api.G_RET_STS_ERROR;
687: Fnd_Msg_Pub.Count_And_Get
688: (p_count => x_msg_count,
689: p_data => x_msg_data);
690:
687: Fnd_Msg_Pub.Count_And_Get
688: (p_count => x_msg_count,
689: p_data => x_msg_data);
690:
691: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
692: ROLLBACK TO create_pool_contents_pvt;
693: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
694: Fnd_Msg_Pub.Count_And_Get
695: (p_count => x_msg_count,
689: p_data => x_msg_data);
690:
691: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
692: ROLLBACK TO create_pool_contents_pvt;
693: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
694: Fnd_Msg_Pub.Count_And_Get
695: (p_count => x_msg_count,
696: p_data => x_msg_data);
697:
696: p_data => x_msg_data);
697:
698: WHEN OTHERS THEN
699: ROLLBACK TO create_pool_contents_pvt;
700: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
701: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
702: p_msg_name => G_UNEXPECTED_ERROR,
703: p_token1 => G_SQLCODE_TOKEN,
704: p_token1_value => SQLCODE,
697:
698: WHEN OTHERS THEN
699: ROLLBACK TO create_pool_contents_pvt;
700: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
701: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
702: p_msg_name => G_UNEXPECTED_ERROR,
703: p_token1 => G_SQLCODE_TOKEN,
704: p_token1_value => SQLCODE,
705: p_token2 => G_SQLERRM_TOKEN,
730: ) IS
731: l_api_name CONSTANT VARCHAR2(30) := 'create_pool_contents_pvt';
732: l_api_version CONSTANT NUMBER := 1.0;
733: i NUMBER;
734: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
735:
736: l_pocv_tbl pocv_tbl_type := p_pocv_tbl;
737: -- x_pocv_tbl pocv_tbl_type;
738: lp_polv_rec polv_rec_type;
747: p_api_version,
748: l_api_name,
749: G_PKG_NAME ))
750: THEN
751: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
752: END IF;
753:
754: -- Initialize message list if requested
755: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
756: Fnd_Msg_Pub.initialize;
757: END IF;
758:
759: -- Initialize API status to success
760: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
761:
762:
763: /*** Begin API body ****************************************************/
764:
774: x_msg_data => x_msg_data,
775: p_pocv_rec => l_pocv_tbl(i),
776: x_pocv_rec => x_pocv_tbl(i));
777:
778: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
779: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
780: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
781: RAISE Okl_Api.G_EXCEPTION_ERROR;
782: END IF;
775: p_pocv_rec => l_pocv_tbl(i),
776: x_pocv_rec => x_pocv_tbl(i));
777:
778: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
779: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
780: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
781: RAISE Okl_Api.G_EXCEPTION_ERROR;
782: END IF;
783:
776: x_pocv_rec => x_pocv_tbl(i));
777:
778: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
779: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
780: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
781: RAISE Okl_Api.G_EXCEPTION_ERROR;
782: END IF;
783:
784: EXIT WHEN (i = l_pocv_tbl.LAST);
777:
778: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
779: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
780: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
781: RAISE Okl_Api.G_EXCEPTION_ERROR;
782: END IF;
783:
784: EXIT WHEN (i = l_pocv_tbl.LAST);
785: i := l_pocv_tbl.NEXT(i);
793: (p_count => x_msg_count,
794: p_data => x_msg_data);
795:
796: EXCEPTION
797: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
798: ROLLBACK TO create_pool_contents_PVT2;
799: x_return_status := Okl_Api.G_RET_STS_ERROR;
800: Fnd_Msg_Pub.Count_And_Get
801: (p_count => x_msg_count,
795:
796: EXCEPTION
797: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
798: ROLLBACK TO create_pool_contents_PVT2;
799: x_return_status := Okl_Api.G_RET_STS_ERROR;
800: Fnd_Msg_Pub.Count_And_Get
801: (p_count => x_msg_count,
802: p_data => x_msg_data);
803:
800: Fnd_Msg_Pub.Count_And_Get
801: (p_count => x_msg_count,
802: p_data => x_msg_data);
803:
804: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
805: ROLLBACK TO create_pool_contents_pvt2;
806: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
807: Fnd_Msg_Pub.Count_And_Get
808: (p_count => x_msg_count,
802: p_data => x_msg_data);
803:
804: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
805: ROLLBACK TO create_pool_contents_pvt2;
806: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
807: Fnd_Msg_Pub.Count_And_Get
808: (p_count => x_msg_count,
809: p_data => x_msg_data);
810:
809: p_data => x_msg_data);
810:
811: WHEN OTHERS THEN
812: ROLLBACK TO create_pool_contents_pvt2;
813: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
814: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
815: p_msg_name => G_UNEXPECTED_ERROR,
816: p_token1 => G_SQLCODE_TOKEN,
817: p_token1_value => SQLCODE,
810:
811: WHEN OTHERS THEN
812: ROLLBACK TO create_pool_contents_pvt2;
813: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
814: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
815: p_msg_name => G_UNEXPECTED_ERROR,
816: p_token1 => G_SQLCODE_TOKEN,
817: p_token1_value => SQLCODE,
818: p_token2 => G_SQLERRM_TOKEN,
844: ) IS
845: l_api_name CONSTANT VARCHAR2(30) := 'update_pool_contents_pvt';
846: l_api_version CONSTANT NUMBER := 1.0;
847: i NUMBER;
848: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
849:
850: l_pocv_rec pocv_rec_type := p_pocv_rec;
851: -- x_pocv_rec pocv_rec_type;
852: lp_polv_rec polv_rec_type;
867: p_api_version,
868: l_api_name,
869: G_PKG_NAME ))
870: THEN
871: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
872: END IF;
873:
874: -- Initialize message list if requested
875: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
876: Fnd_Msg_Pub.initialize;
877: END IF;
878:
879: -- Initialize API status to success
880: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
881:
882:
883: /*** Begin API body ****************************************************/
884:
895: x_msg_data => x_msg_data,
896: p_pocv_rec => l_pocv_rec,
897: x_pocv_rec => x_pocv_rec);
898:
899: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
902: RAISE Okl_Api.G_EXCEPTION_ERROR;
903: END IF;
896: p_pocv_rec => l_pocv_rec,
897: x_pocv_rec => x_pocv_rec);
898:
899: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
902: RAISE Okl_Api.G_EXCEPTION_ERROR;
903: END IF;
904:
897: x_pocv_rec => x_pocv_rec);
898:
899: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
902: RAISE Okl_Api.G_EXCEPTION_ERROR;
903: END IF;
904:
905: -- lp_polv_rec.ID := p_pocv_rec.POL_ID;
898:
899: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
900: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
901: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
902: RAISE Okl_Api.G_EXCEPTION_ERROR;
903: END IF;
904:
905: -- lp_polv_rec.ID := p_pocv_rec.POL_ID;
906:
912: x_msg_data => x_msg_data,
913: p_polv_rec => lp_polv_rec,
914: x_polv_rec => lx_polv_rec);
915:
916: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
917: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
918: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
919: RAISE Okl_Api.G_EXCEPTION_ERROR;
920: END IF;
913: p_polv_rec => lp_polv_rec,
914: x_polv_rec => lx_polv_rec);
915:
916: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
917: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
918: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
919: RAISE Okl_Api.G_EXCEPTION_ERROR;
920: END IF;
921:
914: x_polv_rec => lx_polv_rec);
915:
916: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
917: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
918: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
919: RAISE Okl_Api.G_EXCEPTION_ERROR;
920: END IF;
921:
922: /*** End API body ******************************************************/
915:
916: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
917: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
918: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
919: RAISE Okl_Api.G_EXCEPTION_ERROR;
920: END IF;
921:
922: /*** End API body ******************************************************/
923:
927: p_data => x_msg_data);
928:
929:
930: EXCEPTION
931: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
932: ROLLBACK TO update_pool_contents_PVT;
933:
934:
935:
933:
934:
935:
936:
937: x_return_status := Okl_Api.G_RET_STS_ERROR;
938: Fnd_Msg_Pub.Count_And_Get
939: (p_count => x_msg_count,
940: p_data => x_msg_data);
941:
938: Fnd_Msg_Pub.Count_And_Get
939: (p_count => x_msg_count,
940: p_data => x_msg_data);
941:
942: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
943: ROLLBACK TO update_pool_contents_pvt;
944: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
945: Fnd_Msg_Pub.Count_And_Get
946: (p_count => x_msg_count,
940: p_data => x_msg_data);
941:
942: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
943: ROLLBACK TO update_pool_contents_pvt;
944: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
945: Fnd_Msg_Pub.Count_And_Get
946: (p_count => x_msg_count,
947: p_data => x_msg_data);
948:
947: p_data => x_msg_data);
948:
949: WHEN OTHERS THEN
950: ROLLBACK TO update_pool_contents_pvt;
951: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
952: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
953: p_msg_name => G_UNEXPECTED_ERROR,
954: p_token1 => G_SQLCODE_TOKEN,
955: p_token1_value => SQLCODE,
948:
949: WHEN OTHERS THEN
950: ROLLBACK TO update_pool_contents_pvt;
951: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
952: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
953: p_msg_name => G_UNEXPECTED_ERROR,
954: p_token1 => G_SQLCODE_TOKEN,
955: p_token1_value => SQLCODE,
956: p_token2 => G_SQLERRM_TOKEN,
981: ) IS
982: l_api_name CONSTANT VARCHAR2(30) := 'update_pool_contents_pvt';
983: l_api_version CONSTANT NUMBER := 1.0;
984: i NUMBER;
985: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
986:
987: l_pocv_tbl pocv_tbl_type := p_pocv_tbl;
988: -- x_pocv_tbl pocv_tbl_type;
989: lp_polv_rec polv_rec_type;
998: p_api_version,
999: l_api_name,
1000: G_PKG_NAME ))
1001: THEN
1002: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1003: END IF;
1004:
1005: -- Initialize message list if requested
1006: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1007: Fnd_Msg_Pub.initialize;
1008: END IF;
1009:
1010: -- Initialize API status to success
1011: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1012:
1013:
1014: /*** Begin API body ****************************************************/
1015:
1025: x_msg_data => x_msg_data,
1026: p_pocv_rec => l_pocv_tbl(i),
1027: x_pocv_rec => x_pocv_tbl(i));
1028:
1029: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1030: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1031: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1032: RAISE Okl_Api.G_EXCEPTION_ERROR;
1033: END IF;
1026: p_pocv_rec => l_pocv_tbl(i),
1027: x_pocv_rec => x_pocv_tbl(i));
1028:
1029: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1030: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1031: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1032: RAISE Okl_Api.G_EXCEPTION_ERROR;
1033: END IF;
1034:
1027: x_pocv_rec => x_pocv_tbl(i));
1028:
1029: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1030: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1031: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1032: RAISE Okl_Api.G_EXCEPTION_ERROR;
1033: END IF;
1034:
1035: EXIT WHEN (i = l_pocv_tbl.LAST);
1028:
1029: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1030: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1031: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1032: RAISE Okl_Api.G_EXCEPTION_ERROR;
1033: END IF;
1034:
1035: EXIT WHEN (i = l_pocv_tbl.LAST);
1036: i := l_pocv_tbl.NEXT(i);
1044: (p_count => x_msg_count,
1045: p_data => x_msg_data);
1046:
1047: EXCEPTION
1048: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1049: ROLLBACK TO update_pool_contents_PVT2;
1050: x_return_status := Okl_Api.G_RET_STS_ERROR;
1051: Fnd_Msg_Pub.Count_And_Get
1052: (p_count => x_msg_count,
1046:
1047: EXCEPTION
1048: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1049: ROLLBACK TO update_pool_contents_PVT2;
1050: x_return_status := Okl_Api.G_RET_STS_ERROR;
1051: Fnd_Msg_Pub.Count_And_Get
1052: (p_count => x_msg_count,
1053: p_data => x_msg_data);
1054:
1051: Fnd_Msg_Pub.Count_And_Get
1052: (p_count => x_msg_count,
1053: p_data => x_msg_data);
1054:
1055: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1056: ROLLBACK TO update_pool_contents_pvt2;
1057: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1058: Fnd_Msg_Pub.Count_And_Get
1059: (p_count => x_msg_count,
1053: p_data => x_msg_data);
1054:
1055: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1056: ROLLBACK TO update_pool_contents_pvt2;
1057: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1058: Fnd_Msg_Pub.Count_And_Get
1059: (p_count => x_msg_count,
1060: p_data => x_msg_data);
1061:
1060: p_data => x_msg_data);
1061:
1062: WHEN OTHERS THEN
1063: ROLLBACK TO update_pool_contents_pvt2;
1064: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1065: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1066: p_msg_name => G_UNEXPECTED_ERROR,
1067: p_token1 => G_SQLCODE_TOKEN,
1068: p_token1_value => SQLCODE,
1061:
1062: WHEN OTHERS THEN
1063: ROLLBACK TO update_pool_contents_pvt2;
1064: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1065: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1066: p_msg_name => G_UNEXPECTED_ERROR,
1067: p_token1 => G_SQLCODE_TOKEN,
1068: p_token1_value => SQLCODE,
1069: p_token2 => G_SQLERRM_TOKEN,
1094: ) IS
1095: l_api_name CONSTANT VARCHAR2(30) := 'delete_pool_contents_pvt';
1096: l_api_version CONSTANT NUMBER := 1.0;
1097: i NUMBER;
1098: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1099:
1100: l_pocv_rec pocv_rec_type := p_pocv_rec;
1101: -- x_pocv_rec pocv_rec_type;
1102:
1118: p_api_version,
1119: l_api_name,
1120: G_PKG_NAME ))
1121: THEN
1122: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1123: END IF;
1124:
1125: -- Initialize message list if requested
1126: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1127: Fnd_Msg_Pub.initialize;
1128: END IF;
1129:
1130: -- Initialize API status to success
1131: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1132:
1133:
1134: /*** Begin API body ****************************************************/
1135:
1144: x_msg_count => x_msg_count,
1145: x_msg_data => x_msg_data,
1146: p_pocv_rec => l_pocv_rec);
1147:
1148: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1150: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1151: RAISE Okl_Api.G_EXCEPTION_ERROR;
1152: END IF;
1145: x_msg_data => x_msg_data,
1146: p_pocv_rec => l_pocv_rec);
1147:
1148: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1150: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1151: RAISE Okl_Api.G_EXCEPTION_ERROR;
1152: END IF;
1153:
1146: p_pocv_rec => l_pocv_rec);
1147:
1148: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1150: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1151: RAISE Okl_Api.G_EXCEPTION_ERROR;
1152: END IF;
1153:
1154: -- lp_polv_rec.ID := p_pocv_rec.POL_ID;
1147:
1148: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1149: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1150: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1151: RAISE Okl_Api.G_EXCEPTION_ERROR;
1152: END IF;
1153:
1154: -- lp_polv_rec.ID := p_pocv_rec.POL_ID;
1155:
1161: x_msg_data => x_msg_data,
1162: p_polv_rec => lp_polv_rec,
1163: x_polv_rec => lx_polv_rec);
1164:
1165: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1168: RAISE Okl_Api.G_EXCEPTION_ERROR;
1169: END IF;
1162: p_polv_rec => lp_polv_rec,
1163: x_polv_rec => lx_polv_rec);
1164:
1165: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1168: RAISE Okl_Api.G_EXCEPTION_ERROR;
1169: END IF;
1170:
1163: x_polv_rec => lx_polv_rec);
1164:
1165: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1168: RAISE Okl_Api.G_EXCEPTION_ERROR;
1169: END IF;
1170:
1171: /*** End API body ******************************************************/
1164:
1165: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1166: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1167: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1168: RAISE Okl_Api.G_EXCEPTION_ERROR;
1169: END IF;
1170:
1171: /*** End API body ******************************************************/
1172:
1175: (p_count => x_msg_count,
1176: p_data => x_msg_data);
1177:
1178: EXCEPTION
1179: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1180: ROLLBACK TO delete_pool_contents_PVT;
1181: x_return_status := Okl_Api.G_RET_STS_ERROR;
1182: Fnd_Msg_Pub.Count_And_Get
1183: (p_count => x_msg_count,
1177:
1178: EXCEPTION
1179: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1180: ROLLBACK TO delete_pool_contents_PVT;
1181: x_return_status := Okl_Api.G_RET_STS_ERROR;
1182: Fnd_Msg_Pub.Count_And_Get
1183: (p_count => x_msg_count,
1184: p_data => x_msg_data);
1185:
1182: Fnd_Msg_Pub.Count_And_Get
1183: (p_count => x_msg_count,
1184: p_data => x_msg_data);
1185:
1186: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1187: ROLLBACK TO delete_pool_contents_pvt;
1188: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1189: Fnd_Msg_Pub.Count_And_Get
1190: (p_count => x_msg_count,
1184: p_data => x_msg_data);
1185:
1186: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1187: ROLLBACK TO delete_pool_contents_pvt;
1188: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1189: Fnd_Msg_Pub.Count_And_Get
1190: (p_count => x_msg_count,
1191: p_data => x_msg_data);
1192:
1191: p_data => x_msg_data);
1192:
1193: WHEN OTHERS THEN
1194: ROLLBACK TO delete_pool_contents_pvt;
1195: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1196: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1197: p_msg_name => G_UNEXPECTED_ERROR,
1198: p_token1 => G_SQLCODE_TOKEN,
1199: p_token1_value => SQLCODE,
1192:
1193: WHEN OTHERS THEN
1194: ROLLBACK TO delete_pool_contents_pvt;
1195: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1196: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1197: p_msg_name => G_UNEXPECTED_ERROR,
1198: p_token1 => G_SQLCODE_TOKEN,
1199: p_token1_value => SQLCODE,
1200: p_token2 => G_SQLERRM_TOKEN,
1227: ) IS
1228: l_api_name CONSTANT VARCHAR2(30) := 'delete_pool_contents_pvt';
1229: l_api_version CONSTANT NUMBER := 1.0;
1230: i NUMBER;
1231: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1232:
1233: l_pocv_tbl pocv_tbl_type := p_pocv_tbl;
1234: -- x_pocv_tbl pocv_tbl_type;
1235: lp_polv_rec polv_rec_type;
1244: p_api_version,
1245: l_api_name,
1246: G_PKG_NAME ))
1247: THEN
1248: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1249: END IF;
1250:
1251: -- Initialize message list if requested
1252: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1253: Fnd_Msg_Pub.initialize;
1254: END IF;
1255:
1256: -- Initialize API status to success
1257: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1258:
1259:
1260: /*** Begin API body ****************************************************/
1261:
1271:
1272: x_msg_data => x_msg_data,
1273: p_pocv_rec => l_pocv_tbl(i));
1274:
1275: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1276: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1277: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1278: RAISE Okl_Api.G_EXCEPTION_ERROR;
1279: END IF;
1272: x_msg_data => x_msg_data,
1273: p_pocv_rec => l_pocv_tbl(i));
1274:
1275: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1276: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1277: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1278: RAISE Okl_Api.G_EXCEPTION_ERROR;
1279: END IF;
1280:
1273: p_pocv_rec => l_pocv_tbl(i));
1274:
1275: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1276: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1277: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1278: RAISE Okl_Api.G_EXCEPTION_ERROR;
1279: END IF;
1280:
1281: EXIT WHEN (i = l_pocv_tbl.LAST);
1274:
1275: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1276: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1277: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1278: RAISE Okl_Api.G_EXCEPTION_ERROR;
1279: END IF;
1280:
1281: EXIT WHEN (i = l_pocv_tbl.LAST);
1282: i := l_pocv_tbl.NEXT(i);
1291: (p_count => x_msg_count,
1292: p_data => x_msg_data);
1293:
1294: EXCEPTION
1295: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1296: ROLLBACK TO delete_pool_contents_PVT2;
1297: x_return_status := Okl_Api.G_RET_STS_ERROR;
1298: Fnd_Msg_Pub.Count_And_Get
1299: (p_count => x_msg_count,
1293:
1294: EXCEPTION
1295: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1296: ROLLBACK TO delete_pool_contents_PVT2;
1297: x_return_status := Okl_Api.G_RET_STS_ERROR;
1298: Fnd_Msg_Pub.Count_And_Get
1299: (p_count => x_msg_count,
1300: p_data => x_msg_data);
1301:
1298: Fnd_Msg_Pub.Count_And_Get
1299: (p_count => x_msg_count,
1300: p_data => x_msg_data);
1301:
1302: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1303: ROLLBACK TO delete_pool_contents_pvt2;
1304: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1305: Fnd_Msg_Pub.Count_And_Get
1306: (p_count => x_msg_count,
1300: p_data => x_msg_data);
1301:
1302: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1303: ROLLBACK TO delete_pool_contents_pvt2;
1304: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1305: Fnd_Msg_Pub.Count_And_Get
1306: (p_count => x_msg_count,
1307: p_data => x_msg_data);
1308:
1307: p_data => x_msg_data);
1308:
1309: WHEN OTHERS THEN
1310: ROLLBACK TO delete_pool_contents_pvt2;
1311: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1312: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1313: p_msg_name => G_UNEXPECTED_ERROR,
1314: p_token1 => G_SQLCODE_TOKEN,
1315: p_token1_value => SQLCODE,
1308:
1309: WHEN OTHERS THEN
1310: ROLLBACK TO delete_pool_contents_pvt2;
1311: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1312: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1313: p_msg_name => G_UNEXPECTED_ERROR,
1314: p_token1 => G_SQLCODE_TOKEN,
1315: p_token1_value => SQLCODE,
1316: p_token2 => G_SQLERRM_TOKEN,
1343: IS
1344: l_api_name CONSTANT VARCHAR2(30) := 'create_pool_transaction_pvt';
1345: l_api_version CONSTANT NUMBER := 1.0;
1346: i NUMBER;
1347: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1348:
1349: l_poxv_rec poxv_rec_type := p_poxv_rec;
1350: -- x_poxv_rec poxv_rec_type;
1351:
1359: l_api_name,
1360: G_PKG_NAME ))
1361: THEN
1362:
1363: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1364: END IF;
1365:
1366: -- Initialize message list if requested
1367: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1368: Fnd_Msg_Pub.initialize;
1369: END IF;
1370:
1371: -- Initialize API status to success
1372: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1373:
1374:
1375: /*** Begin API body ****************************************************/
1376:
1382: x_msg_data => x_msg_data,
1383: p_poxv_rec => l_poxv_rec,
1384: x_poxv_rec => x_poxv_rec);
1385:
1386: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1387: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1388: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1389: RAISE Okl_Api.G_EXCEPTION_ERROR;
1390: END IF;
1383: p_poxv_rec => l_poxv_rec,
1384: x_poxv_rec => x_poxv_rec);
1385:
1386: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1387: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1388: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1389: RAISE Okl_Api.G_EXCEPTION_ERROR;
1390: END IF;
1391:
1384: x_poxv_rec => x_poxv_rec);
1385:
1386: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1387: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1388: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1389: RAISE Okl_Api.G_EXCEPTION_ERROR;
1390: END IF;
1391:
1392: /*** End API body ******************************************************/
1385:
1386: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1387: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1388: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1389: RAISE Okl_Api.G_EXCEPTION_ERROR;
1390: END IF;
1391:
1392: /*** End API body ******************************************************/
1393:
1396: (p_count => x_msg_count,
1397: p_data => x_msg_data);
1398:
1399: EXCEPTION
1400: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1401: ROLLBACK TO create_pool_transaction_PVT;
1402: x_return_status := Okl_Api.G_RET_STS_ERROR;
1403: Fnd_Msg_Pub.Count_And_Get
1404: (p_count => x_msg_count,
1398:
1399: EXCEPTION
1400: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1401: ROLLBACK TO create_pool_transaction_PVT;
1402: x_return_status := Okl_Api.G_RET_STS_ERROR;
1403: Fnd_Msg_Pub.Count_And_Get
1404: (p_count => x_msg_count,
1405: p_data => x_msg_data);
1406:
1403: Fnd_Msg_Pub.Count_And_Get
1404: (p_count => x_msg_count,
1405: p_data => x_msg_data);
1406:
1407: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1408: ROLLBACK TO create_pool_transaction_pvt;
1409: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1410: Fnd_Msg_Pub.Count_And_Get
1411: (p_count => x_msg_count,
1405: p_data => x_msg_data);
1406:
1407: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1408: ROLLBACK TO create_pool_transaction_pvt;
1409: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1410: Fnd_Msg_Pub.Count_And_Get
1411: (p_count => x_msg_count,
1412: p_data => x_msg_data);
1413:
1412: p_data => x_msg_data);
1413:
1414: WHEN OTHERS THEN
1415: ROLLBACK TO create_pool_transaction_pvt;
1416: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1417: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1418: p_msg_name => G_UNEXPECTED_ERROR,
1419: p_token1 => G_SQLCODE_TOKEN,
1420: p_token1_value => SQLCODE,
1413:
1414: WHEN OTHERS THEN
1415: ROLLBACK TO create_pool_transaction_pvt;
1416: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1417: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1418: p_msg_name => G_UNEXPECTED_ERROR,
1419: p_token1 => G_SQLCODE_TOKEN,
1420: p_token1_value => SQLCODE,
1421: p_token2 => G_SQLERRM_TOKEN,
1447: IS
1448: l_api_name CONSTANT VARCHAR2(30) := 'update_pool_transaction_pvt';
1449: l_api_version CONSTANT NUMBER := 1.0;
1450: i NUMBER;
1451: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1452:
1453: l_poxv_rec poxv_rec_type := p_poxv_rec;
1454: -- x_poxv_rec poxv_rec_type;
1455:
1462: p_api_version,
1463: l_api_name,
1464: G_PKG_NAME ))
1465: THEN
1466: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1467: END IF;
1468:
1469: -- Initialize message list if requested
1470: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1471: Fnd_Msg_Pub.initialize;
1472: END IF;
1473:
1474: -- Initialize API status to success
1475: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1476:
1477:
1478: /*** Begin API body ****************************************************/
1479:
1485: x_msg_data => x_msg_data,
1486: p_poxv_rec => l_poxv_rec,
1487: x_poxv_rec => x_poxv_rec);
1488:
1489: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1491:
1492: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1493: RAISE Okl_Api.G_EXCEPTION_ERROR;
1486: p_poxv_rec => l_poxv_rec,
1487: x_poxv_rec => x_poxv_rec);
1488:
1489: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1491:
1492: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1493: RAISE Okl_Api.G_EXCEPTION_ERROR;
1494: END IF;
1488:
1489: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1491:
1492: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1493: RAISE Okl_Api.G_EXCEPTION_ERROR;
1494: END IF;
1495:
1496: /*** End API body ******************************************************/
1489: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1490: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1491:
1492: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1493: RAISE Okl_Api.G_EXCEPTION_ERROR;
1494: END IF;
1495:
1496: /*** End API body ******************************************************/
1497:
1501: (p_count => x_msg_count,
1502: p_data => x_msg_data);
1503:
1504: EXCEPTION
1505: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1506: ROLLBACK TO update_pool_transaction_PVT;
1507: x_return_status := Okl_Api.G_RET_STS_ERROR;
1508: Fnd_Msg_Pub.Count_And_Get
1509: (p_count => x_msg_count,
1503:
1504: EXCEPTION
1505: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1506: ROLLBACK TO update_pool_transaction_PVT;
1507: x_return_status := Okl_Api.G_RET_STS_ERROR;
1508: Fnd_Msg_Pub.Count_And_Get
1509: (p_count => x_msg_count,
1510: p_data => x_msg_data);
1511:
1508: Fnd_Msg_Pub.Count_And_Get
1509: (p_count => x_msg_count,
1510: p_data => x_msg_data);
1511:
1512: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1513: ROLLBACK TO update_pool_transaction_pvt;
1514: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1515: Fnd_Msg_Pub.Count_And_Get
1516: (p_count => x_msg_count,
1510: p_data => x_msg_data);
1511:
1512: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1513: ROLLBACK TO update_pool_transaction_pvt;
1514: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1515: Fnd_Msg_Pub.Count_And_Get
1516: (p_count => x_msg_count,
1517: p_data => x_msg_data);
1518:
1517: p_data => x_msg_data);
1518:
1519: WHEN OTHERS THEN
1520: ROLLBACK TO update_pool_transaction_pvt;
1521: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1522: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1523: p_msg_name => G_UNEXPECTED_ERROR,
1524: p_token1 => G_SQLCODE_TOKEN,
1525: p_token1_value => SQLCODE,
1518:
1519: WHEN OTHERS THEN
1520: ROLLBACK TO update_pool_transaction_pvt;
1521: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1522: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1523: p_msg_name => G_UNEXPECTED_ERROR,
1524: p_token1 => G_SQLCODE_TOKEN,
1525: p_token1_value => SQLCODE,
1526: p_token2 => G_SQLERRM_TOKEN,
1553: IS
1554: l_api_name CONSTANT VARCHAR2(30) := 'delete_pool_transaction_pvt';
1555: l_api_version CONSTANT NUMBER := 1.0;
1556: i NUMBER;
1557: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1558:
1559: l_poxv_rec poxv_rec_type := p_poxv_rec;
1560: -- x_poxv_rec poxv_rec_type;
1561:
1569: p_api_version,
1570: l_api_name,
1571: G_PKG_NAME ))
1572: THEN
1573: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1574: END IF;
1575:
1576: -- Initialize message list if requested
1577: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1578: Fnd_Msg_Pub.initialize;
1579: END IF;
1580:
1581: -- Initialize API status to success
1582: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1583:
1584:
1585: /*** Begin API body ****************************************************/
1586:
1592:
1593: x_msg_data => x_msg_data,
1594: p_poxv_rec => l_poxv_rec);
1595:
1596: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1599: RAISE Okl_Api.G_EXCEPTION_ERROR;
1600: END IF;
1593: x_msg_data => x_msg_data,
1594: p_poxv_rec => l_poxv_rec);
1595:
1596: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1599: RAISE Okl_Api.G_EXCEPTION_ERROR;
1600: END IF;
1601:
1594: p_poxv_rec => l_poxv_rec);
1595:
1596: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1599: RAISE Okl_Api.G_EXCEPTION_ERROR;
1600: END IF;
1601:
1602: /*** End API body ******************************************************/
1595:
1596: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1597: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1598: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1599: RAISE Okl_Api.G_EXCEPTION_ERROR;
1600: END IF;
1601:
1602: /*** End API body ******************************************************/
1603:
1606: (p_count => x_msg_count,
1607: p_data => x_msg_data);
1608:
1609: EXCEPTION
1610: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1611: ROLLBACK TO delete_pool_transaction_PVT2;
1612: x_return_status := Okl_Api.G_RET_STS_ERROR;
1613: Fnd_Msg_Pub.Count_And_Get
1614: (p_count => x_msg_count,
1608:
1609: EXCEPTION
1610: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1611: ROLLBACK TO delete_pool_transaction_PVT2;
1612: x_return_status := Okl_Api.G_RET_STS_ERROR;
1613: Fnd_Msg_Pub.Count_And_Get
1614: (p_count => x_msg_count,
1615: p_data => x_msg_data);
1616:
1613: Fnd_Msg_Pub.Count_And_Get
1614: (p_count => x_msg_count,
1615: p_data => x_msg_data);
1616:
1617: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1618: ROLLBACK TO delete_pool_transaction_pvt2;
1619: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1620: Fnd_Msg_Pub.Count_And_Get
1621: (p_count => x_msg_count,
1615: p_data => x_msg_data);
1616:
1617: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1618: ROLLBACK TO delete_pool_transaction_pvt2;
1619: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1620: Fnd_Msg_Pub.Count_And_Get
1621: (p_count => x_msg_count,
1622: p_data => x_msg_data);
1623:
1622: p_data => x_msg_data);
1623:
1624: WHEN OTHERS THEN
1625: ROLLBACK TO delete_pool_transaction_pvt2;
1626: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1627: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1628: p_msg_name => G_UNEXPECTED_ERROR,
1629: p_token1 => G_SQLCODE_TOKEN,
1630: p_token1_value => SQLCODE,
1623:
1624: WHEN OTHERS THEN
1625: ROLLBACK TO delete_pool_transaction_pvt2;
1626: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1627: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1628: p_msg_name => G_UNEXPECTED_ERROR,
1629: p_token1 => G_SQLCODE_TOKEN,
1630: p_token1_value => SQLCODE,
1631: p_token2 => G_SQLERRM_TOKEN,
1684:
1685: RETURN l_amount;
1686: EXCEPTION
1687: WHEN OTHERS THEN
1688: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1689: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
1690: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1691: p_token1 => 'OKL_SQLCODE',
1692: p_token1_value => SQLCODE,
1685: RETURN l_amount;
1686: EXCEPTION
1687: WHEN OTHERS THEN
1688: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1689: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
1690: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1691: p_token1 => 'OKL_SQLCODE',
1692: p_token1_value => SQLCODE,
1693: p_token2 => 'OKL_SQLERRM',
1746: RETURN l_tot_amount;
1747:
1748: EXCEPTION
1749: WHEN OTHERS THEN
1750: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1751: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
1752: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1753: p_token1 => 'OKL_SQLCODE',
1754: p_token1_value => SQLCODE,
1747:
1748: EXCEPTION
1749: WHEN OTHERS THEN
1750: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1751: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
1752: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1753: p_token1 => 'OKL_SQLCODE',
1754: p_token1_value => SQLCODE,
1755: p_token2 => 'OKL_SQLERRM',
1837: RETURN l_tot_amount;
1838:
1839: EXCEPTION
1840: WHEN OTHERS THEN
1841: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1842: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
1843: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1844: p_token1 => 'OKL_SQLCODE',
1845: p_token1_value => SQLCODE,
1838:
1839: EXCEPTION
1840: WHEN OTHERS THEN
1841: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1842: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
1843: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1844: p_token1 => 'OKL_SQLCODE',
1845: p_token1_value => SQLCODE,
1846: p_token2 => 'OKL_SQLERRM',
1874: l_api_name CONSTANT VARCHAR2(30) := 'get_tot_receivable_amt_pvt2';
1875: l_api_version CONSTANT NUMBER := 1.0;
1876:
1877: i NUMBER;
1878: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1879: l_amount NUMBER;
1880:
1881: BEGIN
1882: -- Set API savepoint
1887: p_api_version,
1888: l_api_name,
1889: G_PKG_NAME ))
1890: THEN
1891: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1892: END IF;
1893:
1894: -- Initialize message list if requested
1895: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1896: Fnd_Msg_Pub.initialize;
1897: END IF;
1898:
1899: -- Initialize API status to success
1900: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1901:
1902:
1903: /*** Begin API body ****************************************************/
1904:
1912:
1913: p_data => x_msg_data);
1914:
1915: EXCEPTION
1916: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1917: ROLLBACK TO get_tot_recv_amt_pend_pvt2;
1918: x_return_status := Okl_Api.G_RET_STS_ERROR;
1919: Fnd_Msg_Pub.Count_And_Get
1920: (p_count => x_msg_count,
1914:
1915: EXCEPTION
1916: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1917: ROLLBACK TO get_tot_recv_amt_pend_pvt2;
1918: x_return_status := Okl_Api.G_RET_STS_ERROR;
1919: Fnd_Msg_Pub.Count_And_Get
1920: (p_count => x_msg_count,
1921: p_data => x_msg_data);
1922:
1919: Fnd_Msg_Pub.Count_And_Get
1920: (p_count => x_msg_count,
1921: p_data => x_msg_data);
1922:
1923: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1924: ROLLBACK TO get_tot_recv_amt_pend_pvt2;
1925: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1926: Fnd_Msg_Pub.Count_And_Get
1927: (p_count => x_msg_count,
1921: p_data => x_msg_data);
1922:
1923: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1924: ROLLBACK TO get_tot_recv_amt_pend_pvt2;
1925: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1926: Fnd_Msg_Pub.Count_And_Get
1927: (p_count => x_msg_count,
1928: p_data => x_msg_data);
1929:
1928: p_data => x_msg_data);
1929:
1930: WHEN OTHERS THEN
1931: ROLLBACK TO get_tot_recv_amt_pend_pvt2;
1932: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1933: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1934: p_msg_name => G_UNEXPECTED_ERROR,
1935: p_token1 => G_SQLCODE_TOKEN,
1936: p_token1_value => SQLCODE,
1929:
1930: WHEN OTHERS THEN
1931: ROLLBACK TO get_tot_recv_amt_pend_pvt2;
1932: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1933: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1934: p_msg_name => G_UNEXPECTED_ERROR,
1935: p_token1 => G_SQLCODE_TOKEN,
1936: p_token1_value => SQLCODE,
1937: p_token2 => G_SQLERRM_TOKEN,
1970: l_api_name CONSTANT VARCHAR2(30) := 'get_tot_receivable_amt_pvt2';
1971: l_api_version CONSTANT NUMBER := 1.0;
1972:
1973: i NUMBER;
1974: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1975: l_amount NUMBER;
1976:
1977: BEGIN
1978: -- Set API savepoint
1983: p_api_version,
1984: l_api_name,
1985: G_PKG_NAME ))
1986: THEN
1987: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1988: END IF;
1989:
1990: -- Initialize message list if requested
1991: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1992: Fnd_Msg_Pub.initialize;
1993: END IF;
1994:
1995: -- Initialize API status to success
1996: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1997:
1998:
1999: /*** Begin API body ****************************************************/
2000:
2008:
2009: p_data => x_msg_data);
2010:
2011: EXCEPTION
2012: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2013: ROLLBACK TO get_tot_receivable_amt_pvt2;
2014: x_return_status := Okl_Api.G_RET_STS_ERROR;
2015: Fnd_Msg_Pub.Count_And_Get
2016: (p_count => x_msg_count,
2010:
2011: EXCEPTION
2012: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2013: ROLLBACK TO get_tot_receivable_amt_pvt2;
2014: x_return_status := Okl_Api.G_RET_STS_ERROR;
2015: Fnd_Msg_Pub.Count_And_Get
2016: (p_count => x_msg_count,
2017: p_data => x_msg_data);
2018:
2015: Fnd_Msg_Pub.Count_And_Get
2016: (p_count => x_msg_count,
2017: p_data => x_msg_data);
2018:
2019: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2020: ROLLBACK TO get_tot_receivable_amt_pvt2;
2021: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2022: Fnd_Msg_Pub.Count_And_Get
2023: (p_count => x_msg_count,
2017: p_data => x_msg_data);
2018:
2019: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2020: ROLLBACK TO get_tot_receivable_amt_pvt2;
2021: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2022: Fnd_Msg_Pub.Count_And_Get
2023: (p_count => x_msg_count,
2024: p_data => x_msg_data);
2025:
2024: p_data => x_msg_data);
2025:
2026: WHEN OTHERS THEN
2027: ROLLBACK TO get_tot_receivable_amt_pvt2;
2028: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
2029: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2030: p_msg_name => G_UNEXPECTED_ERROR,
2031: p_token1 => G_SQLCODE_TOKEN,
2032: p_token1_value => SQLCODE,
2025:
2026: WHEN OTHERS THEN
2027: ROLLBACK TO get_tot_receivable_amt_pvt2;
2028: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
2029: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2030: p_msg_name => G_UNEXPECTED_ERROR,
2031: p_token1 => G_SQLCODE_TOKEN,
2032: p_token1_value => SQLCODE,
2033: p_token2 => G_SQLERRM_TOKEN,
2060: IS
2061: l_api_name CONSTANT VARCHAR2(30) := 'get_tot_receivable_amt_pvt2';
2062: l_api_version CONSTANT NUMBER := 1.0;
2063: i NUMBER;
2064: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2065: l_pol_id okl_pools.id%TYPE;
2066:
2067: CURSOR c_khr(p_khr_id okc_k_headers_b.id%TYPE) IS
2068: SELECT ph.id
2079: p_api_version,
2080: l_api_name,
2081: G_PKG_NAME ))
2082: THEN
2083: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2084: END IF;
2085:
2086: -- Initialize message list if requested
2087: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
2091:
2092:
2093:
2094: -- Initialize API status to success
2095: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2096:
2097:
2098: /*** Begin API body ****************************************************/
2099:
2110: (p_count => x_msg_count,
2111: p_data => x_msg_data);
2112:
2113: EXCEPTION
2114: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2115: ROLLBACK TO get_tot_receivable_amt_pvt2;
2116: x_return_status := Okl_Api.G_RET_STS_ERROR;
2117: Fnd_Msg_Pub.Count_And_Get
2118:
2112:
2113: EXCEPTION
2114: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2115: ROLLBACK TO get_tot_receivable_amt_pvt2;
2116: x_return_status := Okl_Api.G_RET_STS_ERROR;
2117: Fnd_Msg_Pub.Count_And_Get
2118:
2119:
2120: (p_count => x_msg_count,
2119:
2120: (p_count => x_msg_count,
2121: p_data => x_msg_data);
2122:
2123: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2124: ROLLBACK TO get_tot_receivable_amt_pvt2;
2125: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2126: Fnd_Msg_Pub.Count_And_Get
2127: (p_count => x_msg_count,
2121: p_data => x_msg_data);
2122:
2123: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2124: ROLLBACK TO get_tot_receivable_amt_pvt2;
2125: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2126: Fnd_Msg_Pub.Count_And_Get
2127: (p_count => x_msg_count,
2128: p_data => x_msg_data);
2129:
2128: p_data => x_msg_data);
2129:
2130: WHEN OTHERS THEN
2131: ROLLBACK TO get_tot_receivable_amt_pvt2;
2132: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
2133: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2134: p_msg_name => G_UNEXPECTED_ERROR,
2135: p_token1 => G_SQLCODE_TOKEN,
2136: p_token1_value => SQLCODE,
2129:
2130: WHEN OTHERS THEN
2131: ROLLBACK TO get_tot_receivable_amt_pvt2;
2132: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
2133: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2134: p_msg_name => G_UNEXPECTED_ERROR,
2135: p_token1 => G_SQLCODE_TOKEN,
2136: p_token1_value => SQLCODE,
2137: p_token2 => G_SQLERRM_TOKEN,
2237: FETCH c_chr INTO l_contract_number,
2238: l_deal_type;
2239: CLOSE c_chr;
2240:
2241: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2242: p_msg_name => 'OKL_INVALID_DEAL_TYPE',
2243: p_token1 => 'CONTRACT_NUM',
2244: p_token1_value => l_contract_number,
2245: p_token2 => 'DEAL_TYPE',
2246: p_token2_value => l_deal_type);
2247:
2248:
2249:
2250: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2251: END IF;
2252:
2253: -- DBMS_OUTPUT.PUT_LINE('l_khr_id = ' || l_khr_id);
2254: -- DBMS_OUTPUT.PUT_LINE('l_kle_id = ' || l_kle_id);
2265: x_value => x_value);
2266:
2267: -- DBMS_OUTPUT.PUT_LINE('x_value = ' || x_value);
2268:
2269: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2270: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2271: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2272: RAISE Okl_Api.G_EXCEPTION_ERROR;
2273: END IF;
2266:
2267: -- DBMS_OUTPUT.PUT_LINE('x_value = ' || x_value);
2268:
2269: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2270: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2271: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2272: RAISE Okl_Api.G_EXCEPTION_ERROR;
2273: END IF;
2274:
2267: -- DBMS_OUTPUT.PUT_LINE('x_value = ' || x_value);
2268:
2269: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2270: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2271: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2272: RAISE Okl_Api.G_EXCEPTION_ERROR;
2273: END IF;
2274:
2275: l_tot_amount := l_tot_amount + NVL(x_value,0);
2268:
2269: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2270: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2271: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2272: RAISE Okl_Api.G_EXCEPTION_ERROR;
2273: END IF;
2274:
2275: l_tot_amount := l_tot_amount + NVL(x_value,0);
2276:
2280:
2281: RETURN l_tot_amount;
2282: EXCEPTION
2283: WHEN OTHERS THEN
2284: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2285: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
2286: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2287: p_token1 => 'OKL_SQLCODE',
2288: p_token1_value => SQLCODE,
2281: RETURN l_tot_amount;
2282: EXCEPTION
2283: WHEN OTHERS THEN
2284: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2285: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
2286: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2287: p_token1 => 'OKL_SQLCODE',
2288: p_token1_value => SQLCODE,
2289: p_token2 => 'OKL_SQLERRM',
2315: IS
2316: l_api_name CONSTANT VARCHAR2(30) := 'recal_tot_princ_amt_pvt';
2317: l_api_version CONSTANT NUMBER := 1.0;
2318: i NUMBER;
2319: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2320: l_amount NUMBER;
2321:
2322: lp_polv_rec polv_rec_type;
2323: lx_polv_rec polv_rec_type;
2331: p_api_version,
2332: l_api_name,
2333: G_PKG_NAME ))
2334: THEN
2335: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2336: END IF;
2337:
2338: -- Initialize message list if requested
2339: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
2340: Fnd_Msg_Pub.initialize;
2341: END IF;
2342:
2343: -- Initialize API status to success
2344: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2345:
2346:
2347: /*** Begin API body ****************************************************/
2348:
2348:
2349: x_value := get_tot_principal_amt(p_pol_id =>p_pol_id);
2350:
2351: IF x_value IS NULL THEN
2352: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2353: p_msg_name => 'OKL_RECAL_PRINC_AMT_ERR');
2354: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2355: END IF;
2356:
2350:
2351: IF x_value IS NULL THEN
2352: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2353: p_msg_name => 'OKL_RECAL_PRINC_AMT_ERR');
2354: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2355: END IF;
2356:
2357: lp_polv_rec.ID := p_pol_id;
2358: lp_polv_rec.TOTAL_PRINCIPAL_AMOUNT := x_value;
2367: p_polv_rec => lp_polv_rec,
2368: x_polv_rec => lx_polv_rec);
2369:
2370:
2371: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2372: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2373: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2374: RAISE Okl_Api.G_EXCEPTION_ERROR;
2375: END IF;
2368: x_polv_rec => lx_polv_rec);
2369:
2370:
2371: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2372: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2373: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2374: RAISE Okl_Api.G_EXCEPTION_ERROR;
2375: END IF;
2376:
2369:
2370:
2371: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2372: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2373: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2374: RAISE Okl_Api.G_EXCEPTION_ERROR;
2375: END IF;
2376:
2377: /*** End API body ******************************************************/
2370:
2371: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2372: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2373: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2374: RAISE Okl_Api.G_EXCEPTION_ERROR;
2375: END IF;
2376:
2377: /*** End API body ******************************************************/
2378:
2381: (p_count => x_msg_count,
2382: p_data => x_msg_data);
2383:
2384: EXCEPTION
2385: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2386: ROLLBACK TO recal_tot_princ_amt_pvt;
2387: x_return_status := Okl_Api.G_RET_STS_ERROR;
2388: Fnd_Msg_Pub.Count_And_Get
2389: (p_count => x_msg_count,
2383:
2384: EXCEPTION
2385: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2386: ROLLBACK TO recal_tot_princ_amt_pvt;
2387: x_return_status := Okl_Api.G_RET_STS_ERROR;
2388: Fnd_Msg_Pub.Count_And_Get
2389: (p_count => x_msg_count,
2390: p_data => x_msg_data);
2391:
2388: Fnd_Msg_Pub.Count_And_Get
2389: (p_count => x_msg_count,
2390: p_data => x_msg_data);
2391:
2392: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2393: ROLLBACK TO recal_tot_princ_amt_pvt;
2394:
2395: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2396: Fnd_Msg_Pub.Count_And_Get
2391:
2392: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2393: ROLLBACK TO recal_tot_princ_amt_pvt;
2394:
2395: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2396: Fnd_Msg_Pub.Count_And_Get
2397:
2398: (p_count => x_msg_count,
2399: p_data => x_msg_data);
2399: p_data => x_msg_data);
2400:
2401: WHEN OTHERS THEN
2402: ROLLBACK TO recal_tot_princ_amt_pvt;
2403: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
2404: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2405: p_msg_name => G_UNEXPECTED_ERROR,
2406: p_token1 => G_SQLCODE_TOKEN,
2407: p_token1_value => SQLCODE,
2400:
2401: WHEN OTHERS THEN
2402: ROLLBACK TO recal_tot_princ_amt_pvt;
2403: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
2404: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2405: p_msg_name => G_UNEXPECTED_ERROR,
2406: p_token1 => G_SQLCODE_TOKEN,
2407: p_token1_value => SQLCODE,
2408: p_token2 => G_SQLERRM_TOKEN,
2434: IS
2435: l_api_name CONSTANT VARCHAR2(30) := 'recal_tot_principal_amt_pvt';
2436: l_api_version CONSTANT NUMBER := 1.0;
2437: i NUMBER;
2438: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2439: l_pol_id okl_pools.id%TYPE;
2440:
2441: lp_polv_rec polv_rec_type;
2442: lx_polv_rec polv_rec_type;
2456: p_api_version,
2457: l_api_name,
2458: G_PKG_NAME ))
2459: THEN
2460: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2461: END IF;
2462:
2463: -- Initialize message list if requested
2464: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
2465: Fnd_Msg_Pub.initialize;
2466: END IF;
2467:
2468: -- Initialize API status to success
2469: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2470:
2471:
2472: /*** Begin API body ****************************************************/
2473:
2477:
2478: x_value := get_tot_principal_amt(p_pol_id =>l_pol_id);
2479:
2480: IF x_value IS NULL THEN
2481: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2482: p_msg_name => 'OKL_RECAL_PRINC_AMT_ERR');
2483: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2484: END IF;
2485:
2479:
2480: IF x_value IS NULL THEN
2481: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2482: p_msg_name => 'OKL_RECAL_PRINC_AMT_ERR');
2483: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2484: END IF;
2485:
2486: lp_polv_rec.ID := l_pol_id;
2487: lp_polv_rec.TOTAL_PRINCIPAL_AMOUNT := x_value;
2495: x_msg_data => x_msg_data,
2496: p_polv_rec => lp_polv_rec,
2497: x_polv_rec => lx_polv_rec);
2498:
2499: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2502: RAISE Okl_Api.G_EXCEPTION_ERROR;
2503: END IF;
2496: p_polv_rec => lp_polv_rec,
2497: x_polv_rec => lx_polv_rec);
2498:
2499: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2502: RAISE Okl_Api.G_EXCEPTION_ERROR;
2503: END IF;
2504:
2497: x_polv_rec => lx_polv_rec);
2498:
2499: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2502: RAISE Okl_Api.G_EXCEPTION_ERROR;
2503: END IF;
2504:
2505: /*** End API body ******************************************************/
2498:
2499: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2502: RAISE Okl_Api.G_EXCEPTION_ERROR;
2503: END IF;
2504:
2505: /*** End API body ******************************************************/
2506:
2509: (p_count => x_msg_count,
2510: p_data => x_msg_data);
2511:
2512: EXCEPTION
2513: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2514:
2515: ROLLBACK TO recal_tot_principal_amt_pvt;
2516: x_return_status := Okl_Api.G_RET_STS_ERROR;
2517: Fnd_Msg_Pub.Count_And_Get
2512: EXCEPTION
2513: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
2514:
2515: ROLLBACK TO recal_tot_principal_amt_pvt;
2516: x_return_status := Okl_Api.G_RET_STS_ERROR;
2517: Fnd_Msg_Pub.Count_And_Get
2518: (p_count => x_msg_count,
2519: p_data => x_msg_data);
2520:
2517: Fnd_Msg_Pub.Count_And_Get
2518: (p_count => x_msg_count,
2519: p_data => x_msg_data);
2520:
2521: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2522: ROLLBACK TO recal_tot_principal_amt_pvt;
2523: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2524: Fnd_Msg_Pub.Count_And_Get
2525: (p_count => x_msg_count,
2519: p_data => x_msg_data);
2520:
2521: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2522: ROLLBACK TO recal_tot_principal_amt_pvt;
2523: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
2524: Fnd_Msg_Pub.Count_And_Get
2525: (p_count => x_msg_count,
2526: p_data => x_msg_data);
2527:
2526: p_data => x_msg_data);
2527:
2528: WHEN OTHERS THEN
2529: ROLLBACK TO recal_tot_principal_amt_pvt;
2530: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
2531: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2532: p_msg_name => G_UNEXPECTED_ERROR,
2533: p_token1 => G_SQLCODE_TOKEN,
2534: p_token1_value => SQLCODE,
2527:
2528: WHEN OTHERS THEN
2529: ROLLBACK TO recal_tot_principal_amt_pvt;
2530: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
2531: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
2532: p_msg_name => G_UNEXPECTED_ERROR,
2533: p_token1 => G_SQLCODE_TOKEN,
2534: p_token1_value => SQLCODE,
2535: p_token2 => G_SQLERRM_TOKEN,
2593: IS
2594: l_api_name CONSTANT VARCHAR2(30) := 'add_pool_contents_pvt';
2595: l_api_version CONSTANT NUMBER := 1.0;
2596: i NUMBER;
2597: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2598:
2599: l_pocv_rec pocv_rec_type;
2600: x_pocv_rec pocv_rec_type;
2601:
2859: p_api_version,
2860: l_api_name,
2861: G_PKG_NAME ))
2862: THEN
2863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2864: END IF;
2865:
2866: -- Initialize message list if requested
2867: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
2868: FND_MSG_PUB.initialize;
2869: END IF;
2870:
2871: -- Initialize API status to success
2872: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2873:
2874:
2875: --/*** Begin API body ****************************************************
2876: ---------------------------------------------------------
2914: x_msg_data => x_msg_data,
2915: p_pocv_rec => l_pocv_rec,
2916: x_pocv_rec => x_pocv_rec);
2917:
2918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2921: RAISE OKL_API.G_EXCEPTION_ERROR;
2922: END IF;
2915: p_pocv_rec => l_pocv_rec,
2916: x_pocv_rec => x_pocv_rec);
2917:
2918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2921: RAISE OKL_API.G_EXCEPTION_ERROR;
2922: END IF;
2923:
2916: x_pocv_rec => x_pocv_rec);
2917:
2918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2921: RAISE OKL_API.G_EXCEPTION_ERROR;
2922: END IF;
2923:
2924: i := i+1;
2917:
2918: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2920: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2921: RAISE OKL_API.G_EXCEPTION_ERROR;
2922: END IF;
2923:
2924: i := i+1;
2925: END LOOP;
2954: x_msg_data => x_msg_data,
2955: p_pocv_rec => l_pocv_rec,
2956: x_pocv_rec => x_pocv_rec);
2957:
2958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2961: RAISE OKL_API.G_EXCEPTION_ERROR;
2962: END IF;
2955: p_pocv_rec => l_pocv_rec,
2956: x_pocv_rec => x_pocv_rec);
2957:
2958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2961: RAISE OKL_API.G_EXCEPTION_ERROR;
2962: END IF;
2963:
2956: x_pocv_rec => x_pocv_rec);
2957:
2958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2961: RAISE OKL_API.G_EXCEPTION_ERROR;
2962: END IF;
2963:
2964: i := i+1;
2957:
2958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2961: RAISE OKL_API.G_EXCEPTION_ERROR;
2962: END IF;
2963:
2964: i := i+1;
2965: END LOOP;
2977: (p_count => x_msg_count,
2978: p_data => x_msg_data);
2979:
2980: EXCEPTION
2981: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2982: ROLLBACK TO add_pool_contents_pvt;
2983: x_row_count := 0;
2984:
2985:
2982: ROLLBACK TO add_pool_contents_pvt;
2983: x_row_count := 0;
2984:
2985:
2986: x_return_status := OKL_API.G_RET_STS_ERROR;
2987: FND_MSG_PUB.Count_And_Get
2988: (p_count => x_msg_count,
2989: p_data => x_msg_data);
2990:
2987: FND_MSG_PUB.Count_And_Get
2988: (p_count => x_msg_count,
2989: p_data => x_msg_data);
2990:
2991: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2992: ROLLBACK TO add_pool_contents_pvt;
2993: x_row_count := 0;
2994:
2995: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2991: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2992: ROLLBACK TO add_pool_contents_pvt;
2993: x_row_count := 0;
2994:
2995: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2996: FND_MSG_PUB.Count_And_Get
2997: (p_count => x_msg_count,
2998: p_data => x_msg_data);
2999:
3000: WHEN OTHERS THEN
3001: ROLLBACK TO add_pool_contents_pvt;
3002: x_row_count := 0;
3003:
3004: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3005: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3006: p_msg_name => G_UNEXPECTED_ERROR,
3007: p_token1 => G_SQLCODE_TOKEN,
3008: p_token1_value => SQLCODE,
3001: ROLLBACK TO add_pool_contents_pvt;
3002: x_row_count := 0;
3003:
3004: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3005: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3006: p_msg_name => G_UNEXPECTED_ERROR,
3007: p_token1 => G_SQLCODE_TOKEN,
3008: p_token1_value => SQLCODE,
3009: p_token2 => G_SQLERRM_TOKEN,
3302:
3303: l_api_name CONSTANT VARCHAR2(30) := 'add_pool_contents_pvt';
3304: l_api_version CONSTANT NUMBER := 1.0;
3305:
3306: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3307:
3308: l_pocv_rec pocv_rec_type;
3309: x_pocv_rec pocv_rec_type;
3310: --Added by kthiruva on 21-Nov-2007 for Bug 6640050
3341: x_pocv_tbl pocv_tbl_type;
3342:
3343:
3344: BEGIN
3345: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
3346: p_pkg_name => G_PKG_NAME,
3347: p_init_msg_list => p_init_msg_list,
3348: l_api_version => l_api_version,
3349: p_api_version => p_api_version,
3357: END IF;
3358:
3359:
3360: -- Initialize API status to success
3361: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3362:
3363: l_pocv_rec.pol_id := p_pol_id;
3364: --Added by kthiruva on 21-Nov -2007 to fetch the Pool Status
3365: --Bug 6640050 - Start of Changes
3520: p_pocv_rec => l_pocv_rec,
3521: x_pocv_rec => x_pocv_rec);
3522:
3523:
3524: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3526: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3527: RAISE Okl_Api.G_EXCEPTION_ERROR;
3528: END IF;
3521: x_pocv_rec => x_pocv_rec);
3522:
3523:
3524: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3526: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3527: RAISE Okl_Api.G_EXCEPTION_ERROR;
3528: END IF;
3529:
3522:
3523:
3524: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3526: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3527: RAISE Okl_Api.G_EXCEPTION_ERROR;
3528: END IF;
3529:
3530: ELSE
3523:
3524: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3526: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3527: RAISE Okl_Api.G_EXCEPTION_ERROR;
3528: END IF;
3529:
3530: ELSE
3531: /* sosharma 21-Nov-2007
3616: ,x_msg_data => x_msg_data
3617: ,p_poxv_rec => lp_poxv_rec
3618: ,x_poxv_rec => lx_poxv_rec);
3619:
3620: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3621: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3622: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3623: RAISE Okl_Api.G_EXCEPTION_ERROR;
3624: END IF;
3617: ,p_poxv_rec => lp_poxv_rec
3618: ,x_poxv_rec => lx_poxv_rec);
3619:
3620: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3621: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3622: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3623: RAISE Okl_Api.G_EXCEPTION_ERROR;
3624: END IF;
3625: -- Assign the Transaction Id to pool contents
3618: ,x_poxv_rec => lx_poxv_rec);
3619:
3620: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3621: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3622: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3623: RAISE Okl_Api.G_EXCEPTION_ERROR;
3624: END IF;
3625: -- Assign the Transaction Id to pool contents
3626: FOR i IN l_pocv_tbl.FIRST..l_pocv_tbl.LAST LOOP
3619:
3620: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3621: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3622: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3623: RAISE Okl_Api.G_EXCEPTION_ERROR;
3624: END IF;
3625: -- Assign the Transaction Id to pool contents
3626: FOR i IN l_pocv_tbl.FIRST..l_pocv_tbl.LAST LOOP
3627: l_pocv_tbl(i).pox_id:= lx_poxv_rec.id;
3639: p_pocv_tbl => l_pocv_tbl,
3640: x_pocv_tbl => x_pocv_tbl);
3641:
3642:
3643: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3644: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3645: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3646: RAISE Okl_Api.G_EXCEPTION_ERROR;
3647: END IF;
3640: x_pocv_tbl => x_pocv_tbl);
3641:
3642:
3643: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3644: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3645: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3646: RAISE Okl_Api.G_EXCEPTION_ERROR;
3647: END IF;
3648:
3641:
3642:
3643: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3644: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3645: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3646: RAISE Okl_Api.G_EXCEPTION_ERROR;
3647: END IF;
3648:
3649: -- get existing the transaction status
3642:
3643: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3644: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3645: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3646: RAISE Okl_Api.G_EXCEPTION_ERROR;
3647: END IF;
3648:
3649: -- get existing the transaction status
3650: OPEN l_trans_status_csr(p_pol_id);
3664: ,x_msg_data => x_msg_data
3665: ,p_poxv_rec => lp_poxv_rec
3666: ,x_poxv_rec => lx_poxv_rec);
3667:
3668: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3669: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3670: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3671: RAISE Okl_Api.G_EXCEPTION_ERROR;
3672: END IF;
3665: ,p_poxv_rec => lp_poxv_rec
3666: ,x_poxv_rec => lx_poxv_rec);
3667:
3668: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3669: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3670: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3671: RAISE Okl_Api.G_EXCEPTION_ERROR;
3672: END IF;
3673: END IF;
3666: ,x_poxv_rec => lx_poxv_rec);
3667:
3668: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3669: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3670: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3671: RAISE Okl_Api.G_EXCEPTION_ERROR;
3672: END IF;
3673: END IF;
3674:
3667:
3668: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3669: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3670: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3671: RAISE Okl_Api.G_EXCEPTION_ERROR;
3672: END IF;
3673: END IF;
3674:
3675: END IF;
3762: END IF;
3763:
3764: x_row_count := l_add_count;
3765:
3766: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
3767: ,x_msg_data => x_msg_data);
3768:
3769: x_return_status := l_return_status;
3770:
3771:
3772: EXCEPTION
3773: WHEN G_EXCEPTION_ERROR THEN
3774:
3775: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3776: p_pkg_name => G_PKG_NAME,
3777: p_exc_name => G_EXC_NAME_ERROR,
3778: x_msg_count => x_msg_count,
3779: x_msg_data => x_msg_data,
3779: x_msg_data => x_msg_data,
3780: p_api_type => G_API_TYPE);
3781: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
3782:
3783: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3784: p_pkg_name => G_PKG_NAME,
3785: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
3786: x_msg_count => x_msg_count,
3787: x_msg_data => x_msg_data,
3787: x_msg_data => x_msg_data,
3788: p_api_type => G_API_TYPE);
3789: WHEN OTHERS THEN
3790:
3791: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3792: p_pkg_name => G_PKG_NAME,
3793: p_exc_name => G_EXC_NAME_OTHERS,
3794: x_msg_count => x_msg_count,
3795: x_msg_data => x_msg_data,
3851: IS
3852: l_api_name CONSTANT VARCHAR2(30) := 'cleanup_pool_contents';
3853: l_api_version CONSTANT NUMBER := 1.0;
3854: i NUMBER;
3855: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3856:
3857: l_pocv_rec pocv_rec_type;
3858: lp_poxv_rec poxv_rec_type;
3859: lx_poxv_rec poxv_rec_type;
3952: l_status_code okl_pools.status_Code%TYPE;
3953: --End - Changes for Bug 6640050 by varangan on 29-Nov-2007
3954:
3955: BEGIN
3956: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
3957: p_pkg_name => G_PKG_NAME,
3958: p_init_msg_list => p_init_msg_list,
3959: l_api_version => l_api_version,
3960: p_api_version => p_api_version,
4045: ,x_msg_data => x_msg_data
4046: ,p_poxv_rec => lp_poxv_rec
4047: ,x_poxv_rec => lx_poxv_rec);
4048:
4049: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4050: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4051: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4052: RAISE Okl_Api.G_EXCEPTION_ERROR;
4053: END IF;
4046: ,p_poxv_rec => lp_poxv_rec
4047: ,x_poxv_rec => lx_poxv_rec);
4048:
4049: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4050: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4051: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4052: RAISE Okl_Api.G_EXCEPTION_ERROR;
4053: END IF;
4054: END IF;
4047: ,x_poxv_rec => lx_poxv_rec);
4048:
4049: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4050: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4051: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4052: RAISE Okl_Api.G_EXCEPTION_ERROR;
4053: END IF;
4054: END IF;
4055:
4048:
4049: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4050: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4051: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4052: RAISE Okl_Api.G_EXCEPTION_ERROR;
4053: END IF;
4054: END IF;
4055:
4056: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
4052: RAISE Okl_Api.G_EXCEPTION_ERROR;
4053: END IF;
4054: END IF;
4055:
4056: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
4057: ,x_msg_data => x_msg_data);
4058:
4059: x_return_status := l_return_status;
4060:
4060:
4061: EXCEPTION
4062: WHEN G_EXCEPTION_ERROR THEN
4063:
4064: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
4065: p_pkg_name => G_PKG_NAME,
4066: p_exc_name => G_EXC_NAME_ERROR,
4067: x_msg_count => x_msg_count,
4068: x_msg_data => x_msg_data,
4068: x_msg_data => x_msg_data,
4069: p_api_type => G_API_TYPE);
4070: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
4071:
4072: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
4073: p_pkg_name => G_PKG_NAME,
4074: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
4075: x_msg_count => x_msg_count,
4076: x_msg_data => x_msg_data,
4076: x_msg_data => x_msg_data,
4077: p_api_type => G_API_TYPE);
4078: WHEN OTHERS THEN
4079:
4080: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
4081: p_pkg_name => G_PKG_NAME,
4082: p_exc_name => G_EXC_NAME_OTHERS,
4083: x_msg_count => x_msg_count,
4084: x_msg_data => x_msg_data,
4467: AND stmb.active_yn = 'Y';
4468:
4469: l_api_name CONSTANT VARCHAR2(30) := 'reconcile_contents';
4470: l_api_version CONSTANT NUMBER := 1.0;
4471: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
4472: lp_pocv_tbl pocv_tbl_type;
4473: lx_pocv_tbl pocv_tbl_type;
4474: lp_polv_rec polv_rec_type;
4475: lx_polv_rec polv_rec_type;
4478: l_date DATE;
4479:
4480: BEGIN
4481:
4482: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
4483: p_pkg_name => G_PKG_NAME,
4484: p_init_msg_list => p_init_msg_list,
4485: l_api_version => l_api_version,
4486: p_api_version => p_api_version,
4491: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
4492: RAISE G_EXCEPTION_ERROR;
4493: END IF;
4494:
4495: x_reconciled := Okl_Api.G_FALSE;
4496:
4497:
4498: /*sosharma 26-Dec-2007
4499: Bifurcating further processing based on the value of p_mode
4519: x_msg_count => x_msg_count,
4520: x_msg_data => x_msg_data,
4521: p_pocv_tbl => lp_pocv_tbl);
4522:
4523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4526: RAISE Okl_Api.G_EXCEPTION_ERROR;
4527: END IF;
4520: x_msg_data => x_msg_data,
4521: p_pocv_tbl => lp_pocv_tbl);
4522:
4523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4526: RAISE Okl_Api.G_EXCEPTION_ERROR;
4527: END IF;
4528:
4521: p_pocv_tbl => lp_pocv_tbl);
4522:
4523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4526: RAISE Okl_Api.G_EXCEPTION_ERROR;
4527: END IF;
4528:
4529: x_reconciled := Okl_Api.G_TRUE;
4522:
4523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4526: RAISE Okl_Api.G_EXCEPTION_ERROR;
4527: END IF;
4528:
4529: x_reconciled := Okl_Api.G_TRUE;
4530: END IF;
4525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4526: RAISE Okl_Api.G_EXCEPTION_ERROR;
4527: END IF;
4528:
4529: x_reconciled := Okl_Api.G_TRUE;
4530: END IF;
4531: lp_pocv_tbl.DELETE; -- clear
4532: --fmiao 21-OCT-2005 bug 4775555 --
4533:
4549: x_msg_count => x_msg_count,
4550: x_msg_data => x_msg_data,
4551: p_pocv_tbl => lp_pocv_tbl);
4552:
4553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4554: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4555: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4556: RAISE Okl_Api.G_EXCEPTION_ERROR;
4557: END IF;
4550: x_msg_data => x_msg_data,
4551: p_pocv_tbl => lp_pocv_tbl);
4552:
4553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4554: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4555: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4556: RAISE Okl_Api.G_EXCEPTION_ERROR;
4557: END IF;
4558:
4551: p_pocv_tbl => lp_pocv_tbl);
4552:
4553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4554: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4555: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4556: RAISE Okl_Api.G_EXCEPTION_ERROR;
4557: END IF;
4558:
4559: x_reconciled := Okl_Api.G_TRUE;
4552:
4553: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4554: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4555: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4556: RAISE Okl_Api.G_EXCEPTION_ERROR;
4557: END IF;
4558:
4559: x_reconciled := Okl_Api.G_TRUE;
4560: END IF;
4555: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4556: RAISE Okl_Api.G_EXCEPTION_ERROR;
4557: END IF;
4558:
4559: x_reconciled := Okl_Api.G_TRUE;
4560: END IF;
4561:
4562:
4563: lp_pocv_tbl.DELETE; -- clear
4579: x_msg_count => x_msg_count,
4580: x_msg_data => x_msg_data,
4581: p_pocv_tbl => lp_pocv_tbl);
4582:
4583: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4584: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4586: RAISE Okl_Api.G_EXCEPTION_ERROR;
4587: END IF;
4580: x_msg_data => x_msg_data,
4581: p_pocv_tbl => lp_pocv_tbl);
4582:
4583: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4584: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4586: RAISE Okl_Api.G_EXCEPTION_ERROR;
4587: END IF;
4588:
4581: p_pocv_tbl => lp_pocv_tbl);
4582:
4583: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4584: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4586: RAISE Okl_Api.G_EXCEPTION_ERROR;
4587: END IF;
4588:
4589: x_reconciled := Okl_Api.G_TRUE;
4582:
4583: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4584: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4585: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4586: RAISE Okl_Api.G_EXCEPTION_ERROR;
4587: END IF;
4588:
4589: x_reconciled := Okl_Api.G_TRUE;
4590: END IF;
4585: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4586: RAISE Okl_Api.G_EXCEPTION_ERROR;
4587: END IF;
4588:
4589: x_reconciled := Okl_Api.G_TRUE;
4590: END IF;
4591:
4592:
4593:
4613: x_msg_count => x_msg_count,
4614: x_msg_data => x_msg_data,
4615: p_pocv_tbl => lp_pocv_tbl);
4616:
4617: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4618: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4619: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4620: RAISE Okl_Api.G_EXCEPTION_ERROR;
4621: END IF;
4614: x_msg_data => x_msg_data,
4615: p_pocv_tbl => lp_pocv_tbl);
4616:
4617: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4618: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4619: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4620: RAISE Okl_Api.G_EXCEPTION_ERROR;
4621: END IF;
4622:
4615: p_pocv_tbl => lp_pocv_tbl);
4616:
4617: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4618: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4619: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4620: RAISE Okl_Api.G_EXCEPTION_ERROR;
4621: END IF;
4622:
4623: x_reconciled := Okl_Api.G_TRUE;
4616:
4617: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4618: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4619: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4620: RAISE Okl_Api.G_EXCEPTION_ERROR;
4621: END IF;
4622:
4623: x_reconciled := Okl_Api.G_TRUE;
4624: END IF;
4619: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4620: RAISE Okl_Api.G_EXCEPTION_ERROR;
4621: END IF;
4622:
4623: x_reconciled := Okl_Api.G_TRUE;
4624: END IF;
4625:
4626:
4627: lp_pocv_tbl.DELETE; -- clear
4644: x_msg_count => x_msg_count,
4645: x_msg_data => x_msg_data,
4646: p_pocv_tbl => lp_pocv_tbl);
4647:
4648: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4649: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4650: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4651: RAISE Okl_Api.G_EXCEPTION_ERROR;
4652: END IF;
4645: x_msg_data => x_msg_data,
4646: p_pocv_tbl => lp_pocv_tbl);
4647:
4648: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4649: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4650: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4651: RAISE Okl_Api.G_EXCEPTION_ERROR;
4652: END IF;
4653:
4646: p_pocv_tbl => lp_pocv_tbl);
4647:
4648: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4649: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4650: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4651: RAISE Okl_Api.G_EXCEPTION_ERROR;
4652: END IF;
4653:
4654: x_reconciled := Okl_Api.G_TRUE;
4647:
4648: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4649: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4650: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4651: RAISE Okl_Api.G_EXCEPTION_ERROR;
4652: END IF;
4653:
4654: x_reconciled := Okl_Api.G_TRUE;
4655: END IF;
4650: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4651: RAISE Okl_Api.G_EXCEPTION_ERROR;
4652: END IF;
4653:
4654: x_reconciled := Okl_Api.G_TRUE;
4655: END IF;
4656:
4657: lp_pocv_tbl.DELETE; -- clear
4658:
4674: x_msg_count => x_msg_count,
4675: x_msg_data => x_msg_data,
4676: p_pocv_tbl => lp_pocv_tbl);
4677:
4678: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4679: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4680: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4681: RAISE Okl_Api.G_EXCEPTION_ERROR;
4682: END IF;
4675: x_msg_data => x_msg_data,
4676: p_pocv_tbl => lp_pocv_tbl);
4677:
4678: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4679: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4680: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4681: RAISE Okl_Api.G_EXCEPTION_ERROR;
4682: END IF;
4683: x_reconciled := Okl_Api.G_TRUE;
4676: p_pocv_tbl => lp_pocv_tbl);
4677:
4678: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4679: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4680: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4681: RAISE Okl_Api.G_EXCEPTION_ERROR;
4682: END IF;
4683: x_reconciled := Okl_Api.G_TRUE;
4684: END IF;
4677:
4678: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4679: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4680: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4681: RAISE Okl_Api.G_EXCEPTION_ERROR;
4682: END IF;
4683: x_reconciled := Okl_Api.G_TRUE;
4684: END IF;
4685:
4679: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4680: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4681: RAISE Okl_Api.G_EXCEPTION_ERROR;
4682: END IF;
4683: x_reconciled := Okl_Api.G_TRUE;
4684: END IF;
4685:
4686: lp_pocv_tbl.DELETE; -- clear the contents to get updatable rows
4687:
4708: x_msg_data => x_msg_data,
4709: p_pocv_tbl => lp_pocv_tbl,
4710: x_pocv_tbl => lx_pocv_tbl);
4711:
4712: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4713: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4714: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4715: RAISE Okl_Api.G_EXCEPTION_ERROR;
4716: END IF;
4709: p_pocv_tbl => lp_pocv_tbl,
4710: x_pocv_tbl => lx_pocv_tbl);
4711:
4712: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4713: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4714: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4715: RAISE Okl_Api.G_EXCEPTION_ERROR;
4716: END IF;
4717:
4710: x_pocv_tbl => lx_pocv_tbl);
4711:
4712: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4713: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4714: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4715: RAISE Okl_Api.G_EXCEPTION_ERROR;
4716: END IF;
4717:
4718: x_reconciled := Okl_Api.G_TRUE;
4711:
4712: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4713: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4714: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4715: RAISE Okl_Api.G_EXCEPTION_ERROR;
4716: END IF;
4717:
4718: x_reconciled := Okl_Api.G_TRUE;
4719: END IF;
4714: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4715: RAISE Okl_Api.G_EXCEPTION_ERROR;
4716: END IF;
4717:
4718: x_reconciled := Okl_Api.G_TRUE;
4719: END IF;
4720:
4721: lp_pocv_tbl.DELETE; -- clear the contents to get new updatable rows
4722:
4746: x_msg_data => x_msg_data,
4747: p_pocv_tbl => lp_pocv_tbl,
4748: x_pocv_tbl => lx_pocv_tbl);
4749:
4750: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4751: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4752: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4753: RAISE Okl_Api.G_EXCEPTION_ERROR;
4754: END IF;
4747: p_pocv_tbl => lp_pocv_tbl,
4748: x_pocv_tbl => lx_pocv_tbl);
4749:
4750: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4751: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4752: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4753: RAISE Okl_Api.G_EXCEPTION_ERROR;
4754: END IF;
4755:
4748: x_pocv_tbl => lx_pocv_tbl);
4749:
4750: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4751: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4752: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4753: RAISE Okl_Api.G_EXCEPTION_ERROR;
4754: END IF;
4755:
4756: x_reconciled := Okl_Api.G_TRUE;
4749:
4750: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4751: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4752: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4753: RAISE Okl_Api.G_EXCEPTION_ERROR;
4754: END IF;
4755:
4756: x_reconciled := Okl_Api.G_TRUE;
4757: END IF;
4752: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4753: RAISE Okl_Api.G_EXCEPTION_ERROR;
4754: END IF;
4755:
4756: x_reconciled := Okl_Api.G_TRUE;
4757: END IF;
4758:
4759: ELSE
4760:
4776: x_msg_count => x_msg_count,
4777: x_msg_data => x_msg_data,
4778: p_pocv_tbl => lp_pocv_tbl);
4779:
4780: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4781: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4782: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4783: RAISE Okl_Api.G_EXCEPTION_ERROR;
4784: END IF;
4777: x_msg_data => x_msg_data,
4778: p_pocv_tbl => lp_pocv_tbl);
4779:
4780: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4781: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4782: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4783: RAISE Okl_Api.G_EXCEPTION_ERROR;
4784: END IF;
4785:
4778: p_pocv_tbl => lp_pocv_tbl);
4779:
4780: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4781: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4782: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4783: RAISE Okl_Api.G_EXCEPTION_ERROR;
4784: END IF;
4785:
4786: x_reconciled := Okl_Api.G_TRUE;
4779:
4780: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4781: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4782: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4783: RAISE Okl_Api.G_EXCEPTION_ERROR;
4784: END IF;
4785:
4786: x_reconciled := Okl_Api.G_TRUE;
4787: END IF;
4782: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4783: RAISE Okl_Api.G_EXCEPTION_ERROR;
4784: END IF;
4785:
4786: x_reconciled := Okl_Api.G_TRUE;
4787: END IF;
4788: lp_pocv_tbl.DELETE; -- clear
4789: --fmiao 21-OCT-2005 bug 4775555 --
4790:
4806: x_msg_count => x_msg_count,
4807: x_msg_data => x_msg_data,
4808: p_pocv_tbl => lp_pocv_tbl);
4809:
4810: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4811: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4812: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4813: RAISE Okl_Api.G_EXCEPTION_ERROR;
4814: END IF;
4807: x_msg_data => x_msg_data,
4808: p_pocv_tbl => lp_pocv_tbl);
4809:
4810: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4811: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4812: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4813: RAISE Okl_Api.G_EXCEPTION_ERROR;
4814: END IF;
4815:
4808: p_pocv_tbl => lp_pocv_tbl);
4809:
4810: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4811: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4812: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4813: RAISE Okl_Api.G_EXCEPTION_ERROR;
4814: END IF;
4815:
4816: x_reconciled := Okl_Api.G_TRUE;
4809:
4810: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4811: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4812: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4813: RAISE Okl_Api.G_EXCEPTION_ERROR;
4814: END IF;
4815:
4816: x_reconciled := Okl_Api.G_TRUE;
4817: END IF;
4812: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4813: RAISE Okl_Api.G_EXCEPTION_ERROR;
4814: END IF;
4815:
4816: x_reconciled := Okl_Api.G_TRUE;
4817: END IF;
4818:
4819:
4820: lp_pocv_tbl.DELETE; -- clear
4836: x_msg_count => x_msg_count,
4837: x_msg_data => x_msg_data,
4838: p_pocv_tbl => lp_pocv_tbl);
4839:
4840: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4841: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4842: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4843: RAISE Okl_Api.G_EXCEPTION_ERROR;
4844: END IF;
4837: x_msg_data => x_msg_data,
4838: p_pocv_tbl => lp_pocv_tbl);
4839:
4840: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4841: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4842: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4843: RAISE Okl_Api.G_EXCEPTION_ERROR;
4844: END IF;
4845:
4838: p_pocv_tbl => lp_pocv_tbl);
4839:
4840: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4841: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4842: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4843: RAISE Okl_Api.G_EXCEPTION_ERROR;
4844: END IF;
4845:
4846: x_reconciled := Okl_Api.G_TRUE;
4839:
4840: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4841: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4842: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4843: RAISE Okl_Api.G_EXCEPTION_ERROR;
4844: END IF;
4845:
4846: x_reconciled := Okl_Api.G_TRUE;
4847: END IF;
4842: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4843: RAISE Okl_Api.G_EXCEPTION_ERROR;
4844: END IF;
4845:
4846: x_reconciled := Okl_Api.G_TRUE;
4847: END IF;
4848:
4849:
4850:
4870: x_msg_count => x_msg_count,
4871: x_msg_data => x_msg_data,
4872: p_pocv_tbl => lp_pocv_tbl);
4873:
4874: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4876: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4877: RAISE Okl_Api.G_EXCEPTION_ERROR;
4878: END IF;
4871: x_msg_data => x_msg_data,
4872: p_pocv_tbl => lp_pocv_tbl);
4873:
4874: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4876: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4877: RAISE Okl_Api.G_EXCEPTION_ERROR;
4878: END IF;
4879:
4872: p_pocv_tbl => lp_pocv_tbl);
4873:
4874: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4876: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4877: RAISE Okl_Api.G_EXCEPTION_ERROR;
4878: END IF;
4879:
4880: x_reconciled := Okl_Api.G_TRUE;
4873:
4874: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4875: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4876: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4877: RAISE Okl_Api.G_EXCEPTION_ERROR;
4878: END IF;
4879:
4880: x_reconciled := Okl_Api.G_TRUE;
4881: END IF;
4876: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4877: RAISE Okl_Api.G_EXCEPTION_ERROR;
4878: END IF;
4879:
4880: x_reconciled := Okl_Api.G_TRUE;
4881: END IF;
4882:
4883:
4884: lp_pocv_tbl.DELETE; -- clear
4901: x_msg_count => x_msg_count,
4902: x_msg_data => x_msg_data,
4903: p_pocv_tbl => lp_pocv_tbl);
4904:
4905: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4908: RAISE Okl_Api.G_EXCEPTION_ERROR;
4909: END IF;
4902: x_msg_data => x_msg_data,
4903: p_pocv_tbl => lp_pocv_tbl);
4904:
4905: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4908: RAISE Okl_Api.G_EXCEPTION_ERROR;
4909: END IF;
4910:
4903: p_pocv_tbl => lp_pocv_tbl);
4904:
4905: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4908: RAISE Okl_Api.G_EXCEPTION_ERROR;
4909: END IF;
4910:
4911: x_reconciled := Okl_Api.G_TRUE;
4904:
4905: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4906: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4907: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4908: RAISE Okl_Api.G_EXCEPTION_ERROR;
4909: END IF;
4910:
4911: x_reconciled := Okl_Api.G_TRUE;
4912: END IF;
4907: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4908: RAISE Okl_Api.G_EXCEPTION_ERROR;
4909: END IF;
4910:
4911: x_reconciled := Okl_Api.G_TRUE;
4912: END IF;
4913:
4914: lp_pocv_tbl.DELETE; -- clear
4915:
4931: x_msg_count => x_msg_count,
4932: x_msg_data => x_msg_data,
4933: p_pocv_tbl => lp_pocv_tbl);
4934:
4935: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4936: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4937: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4938: RAISE Okl_Api.G_EXCEPTION_ERROR;
4939: END IF;
4932: x_msg_data => x_msg_data,
4933: p_pocv_tbl => lp_pocv_tbl);
4934:
4935: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4936: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4937: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4938: RAISE Okl_Api.G_EXCEPTION_ERROR;
4939: END IF;
4940: x_reconciled := Okl_Api.G_TRUE;
4933: p_pocv_tbl => lp_pocv_tbl);
4934:
4935: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4936: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4937: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4938: RAISE Okl_Api.G_EXCEPTION_ERROR;
4939: END IF;
4940: x_reconciled := Okl_Api.G_TRUE;
4941: END IF;
4934:
4935: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4936: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4937: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4938: RAISE Okl_Api.G_EXCEPTION_ERROR;
4939: END IF;
4940: x_reconciled := Okl_Api.G_TRUE;
4941: END IF;
4942:
4936: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4937: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4938: RAISE Okl_Api.G_EXCEPTION_ERROR;
4939: END IF;
4940: x_reconciled := Okl_Api.G_TRUE;
4941: END IF;
4942:
4943: lp_pocv_tbl.DELETE; -- clear the contents to get updatable rows
4944:
4965: x_msg_data => x_msg_data,
4966: p_pocv_tbl => lp_pocv_tbl,
4967: x_pocv_tbl => lx_pocv_tbl);
4968:
4969: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4970: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4971: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4972: RAISE Okl_Api.G_EXCEPTION_ERROR;
4973: END IF;
4966: p_pocv_tbl => lp_pocv_tbl,
4967: x_pocv_tbl => lx_pocv_tbl);
4968:
4969: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4970: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4971: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4972: RAISE Okl_Api.G_EXCEPTION_ERROR;
4973: END IF;
4974:
4967: x_pocv_tbl => lx_pocv_tbl);
4968:
4969: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4970: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4971: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4972: RAISE Okl_Api.G_EXCEPTION_ERROR;
4973: END IF;
4974:
4975: x_reconciled := Okl_Api.G_TRUE;
4968:
4969: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4970: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4971: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4972: RAISE Okl_Api.G_EXCEPTION_ERROR;
4973: END IF;
4974:
4975: x_reconciled := Okl_Api.G_TRUE;
4976: END IF;
4971: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4972: RAISE Okl_Api.G_EXCEPTION_ERROR;
4973: END IF;
4974:
4975: x_reconciled := Okl_Api.G_TRUE;
4976: END IF;
4977:
4978: lp_pocv_tbl.DELETE; -- clear the contents to get new updatable rows
4979:
5003: x_msg_data => x_msg_data,
5004: p_pocv_tbl => lp_pocv_tbl,
5005: x_pocv_tbl => lx_pocv_tbl);
5006:
5007: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5008: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5009: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5010: RAISE Okl_Api.G_EXCEPTION_ERROR;
5011: END IF;
5004: p_pocv_tbl => lp_pocv_tbl,
5005: x_pocv_tbl => lx_pocv_tbl);
5006:
5007: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5008: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5009: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5010: RAISE Okl_Api.G_EXCEPTION_ERROR;
5011: END IF;
5012:
5005: x_pocv_tbl => lx_pocv_tbl);
5006:
5007: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5008: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5009: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5010: RAISE Okl_Api.G_EXCEPTION_ERROR;
5011: END IF;
5012:
5013: x_reconciled := Okl_Api.G_TRUE;
5006:
5007: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5008: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5009: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5010: RAISE Okl_Api.G_EXCEPTION_ERROR;
5011: END IF;
5012:
5013: x_reconciled := Okl_Api.G_TRUE;
5014: END IF;
5009: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5010: RAISE Okl_Api.G_EXCEPTION_ERROR;
5011: END IF;
5012:
5013: x_reconciled := Okl_Api.G_TRUE;
5014: END IF;
5015: END IF;
5016: /*sosharma end changes*/
5017:
5026: x_msg_data => x_msg_data,
5027: p_polv_rec => lp_polv_rec,
5028: x_polv_rec => lx_polv_rec);
5029:
5030: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5031: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5032:
5033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5034: RAISE Okl_Api.G_EXCEPTION_ERROR;
5027: p_polv_rec => lp_polv_rec,
5028: x_polv_rec => lx_polv_rec);
5029:
5030: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5031: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5032:
5033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5034: RAISE Okl_Api.G_EXCEPTION_ERROR;
5035: END IF;
5029:
5030: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5031: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5032:
5033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5034: RAISE Okl_Api.G_EXCEPTION_ERROR;
5035: END IF;
5036:
5037: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
5030: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5031: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5032:
5033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5034: RAISE Okl_Api.G_EXCEPTION_ERROR;
5035: END IF;
5036:
5037: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
5038: x_msg_data => x_msg_data);
5033: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5034: RAISE Okl_Api.G_EXCEPTION_ERROR;
5035: END IF;
5036:
5037: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
5038: x_msg_data => x_msg_data);
5039:
5040: x_return_status := l_return_status;
5041:
5041:
5042: EXCEPTION
5043: WHEN G_EXCEPTION_ERROR THEN
5044:
5045: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5046: p_pkg_name => G_PKG_NAME,
5047: p_exc_name => G_EXC_NAME_ERROR,
5048: x_msg_count => x_msg_count,
5049: x_msg_data => x_msg_data,
5049: x_msg_data => x_msg_data,
5050: p_api_type => G_API_TYPE);
5051: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
5052:
5053: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5054: p_pkg_name => G_PKG_NAME,
5055: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
5056: x_msg_count => x_msg_count,
5057: x_msg_data => x_msg_data,
5057: x_msg_data => x_msg_data,
5058: p_api_type => G_API_TYPE);
5059: WHEN OTHERS THEN
5060:
5061: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5062: p_pkg_name => G_PKG_NAME,
5063: p_exc_name => G_EXC_NAME_OTHERS,
5064: x_msg_count => x_msg_count,
5065: x_msg_data => x_msg_data,
5100: p_api_version,
5101: l_api_name,
5102: G_PKG_NAME ))
5103: THEN
5104: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5105: END IF;
5106:
5107: -- Initialize message list if requested
5108: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
5109: Fnd_Msg_Pub.initialize;
5110: END IF;
5111:
5112: -- Initialize API status to success
5113: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5114:
5115:
5116: /*** Begin API body ****************************************************/
5117:
5123: x_msg_data => x_msg_data,
5124: p_pool_status => G_POL_STS_ACTIVE,
5125: p_pol_id => p_pol_id);
5126:
5127: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5128: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5129: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5130: RAISE Okl_Api.G_EXCEPTION_ERROR;
5131: END IF;
5124: p_pool_status => G_POL_STS_ACTIVE,
5125: p_pol_id => p_pol_id);
5126:
5127: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5128: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5129: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5130: RAISE Okl_Api.G_EXCEPTION_ERROR;
5131: END IF;
5132:
5125: p_pol_id => p_pol_id);
5126:
5127: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5128: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5129: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5130: RAISE Okl_Api.G_EXCEPTION_ERROR;
5131: END IF;
5132:
5133: /*** End API body ******************************************************/
5126:
5127: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5128: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5129: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5130: RAISE Okl_Api.G_EXCEPTION_ERROR;
5131: END IF;
5132:
5133: /*** End API body ******************************************************/
5134:
5137: (p_count => x_msg_count,
5138: p_data => x_msg_data);
5139:
5140: EXCEPTION
5141: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5142: ROLLBACK TO update_pool_status_active_PVT;
5143: x_return_status := Okl_Api.G_RET_STS_ERROR;
5144: Fnd_Msg_Pub.Count_And_Get
5145: (p_count => x_msg_count,
5139:
5140: EXCEPTION
5141: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5142: ROLLBACK TO update_pool_status_active_PVT;
5143: x_return_status := Okl_Api.G_RET_STS_ERROR;
5144: Fnd_Msg_Pub.Count_And_Get
5145: (p_count => x_msg_count,
5146: p_data => x_msg_data);
5147:
5144: Fnd_Msg_Pub.Count_And_Get
5145: (p_count => x_msg_count,
5146: p_data => x_msg_data);
5147:
5148: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5149:
5150: ROLLBACK TO update_pool_status_active_PVT;
5151: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5152: Fnd_Msg_Pub.Count_And_Get
5147:
5148: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5149:
5150: ROLLBACK TO update_pool_status_active_PVT;
5151: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5152: Fnd_Msg_Pub.Count_And_Get
5153: (p_count => x_msg_count,
5154: p_data => x_msg_data);
5155:
5154: p_data => x_msg_data);
5155:
5156: WHEN OTHERS THEN
5157: ROLLBACK TO update_pool_status_active_PVT;
5158: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5159: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5160: p_msg_name => G_UNEXPECTED_ERROR,
5161: p_token1 => G_SQLCODE_TOKEN,
5162: p_token1_value => SQLCODE,
5155:
5156: WHEN OTHERS THEN
5157: ROLLBACK TO update_pool_status_active_PVT;
5158: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5159: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5160: p_msg_name => G_UNEXPECTED_ERROR,
5161: p_token1 => G_SQLCODE_TOKEN,
5162: p_token1_value => SQLCODE,
5163: p_token2 => G_SQLERRM_TOKEN,
5201: l_api_name,
5202: G_PKG_NAME ))
5203: THEN
5204:
5205: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5206: END IF;
5207:
5208: -- Initialize message list if requested
5209: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
5210: Fnd_Msg_Pub.initialize;
5211: END IF;
5212:
5213: -- Initialize API status to success
5214: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5215:
5216:
5217: /*** Begin API body ****************************************************/
5218:
5224: x_msg_data => x_msg_data,
5225: p_pool_status => G_POL_STS_EXPIRED,
5226: p_pol_id => p_pol_id);
5227:
5228: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5231: RAISE Okl_Api.G_EXCEPTION_ERROR;
5232: END IF;
5225: p_pool_status => G_POL_STS_EXPIRED,
5226: p_pol_id => p_pol_id);
5227:
5228: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5231: RAISE Okl_Api.G_EXCEPTION_ERROR;
5232: END IF;
5233:
5226: p_pol_id => p_pol_id);
5227:
5228: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5231: RAISE Okl_Api.G_EXCEPTION_ERROR;
5232: END IF;
5233:
5234: /*** End API body ******************************************************/
5227:
5228: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5231: RAISE Okl_Api.G_EXCEPTION_ERROR;
5232: END IF;
5233:
5234: /*** End API body ******************************************************/
5235:
5238: (p_count => x_msg_count,
5239: p_data => x_msg_data);
5240:
5241: EXCEPTION
5242: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5243: ROLLBACK TO update_pool_status_expired_PVT;
5244: x_return_status := Okl_Api.G_RET_STS_ERROR;
5245: Fnd_Msg_Pub.Count_And_Get
5246: (p_count => x_msg_count,
5240:
5241: EXCEPTION
5242: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5243: ROLLBACK TO update_pool_status_expired_PVT;
5244: x_return_status := Okl_Api.G_RET_STS_ERROR;
5245: Fnd_Msg_Pub.Count_And_Get
5246: (p_count => x_msg_count,
5247: p_data => x_msg_data);
5248:
5245: Fnd_Msg_Pub.Count_And_Get
5246: (p_count => x_msg_count,
5247: p_data => x_msg_data);
5248:
5249: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5250: ROLLBACK TO update_pool_status_expired_PVT;
5251: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5252: Fnd_Msg_Pub.Count_And_Get
5253: (p_count => x_msg_count,
5247: p_data => x_msg_data);
5248:
5249: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5250: ROLLBACK TO update_pool_status_expired_PVT;
5251: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5252: Fnd_Msg_Pub.Count_And_Get
5253: (p_count => x_msg_count,
5254: p_data => x_msg_data);
5255:
5254: p_data => x_msg_data);
5255:
5256: WHEN OTHERS THEN
5257: ROLLBACK TO update_pool_status_expired_PVT;
5258: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5259: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5260: p_msg_name => G_UNEXPECTED_ERROR,
5261: p_token1 => G_SQLCODE_TOKEN,
5262: p_token1_value => SQLCODE,
5255:
5256: WHEN OTHERS THEN
5257: ROLLBACK TO update_pool_status_expired_PVT;
5258: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5259: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5260: p_msg_name => G_UNEXPECTED_ERROR,
5261: p_token1 => G_SQLCODE_TOKEN,
5262: p_token1_value => SQLCODE,
5263:
5281: -- End of comments
5282: ----------------------------------------------------------------------------------
5283: PROCEDURE get_total_stream_amount(
5284: p_api_version IN NUMBER
5285: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
5286: ,x_return_status OUT NOCOPY VARCHAR2
5287: ,x_msg_count OUT NOCOPY NUMBER
5288: ,x_msg_data OUT NOCOPY VARCHAR2
5289: ,p_poc_id IN okl_pool_contents.id%TYPE
5294:
5295: l_api_name CONSTANT VARCHAR2(30) := 'get_total_stream_amount';
5296: l_api_version CONSTANT NUMBER := 1.0;
5297: i NUMBER;
5298: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
5299:
5300: CURSOR l_okl_poc_stm_csr
5301: IS
5302: SELECT NVL(SUM(NVL(selb.amount,0)),0) amount
5345: ;
5346:
5347: BEGIN
5348:
5349: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
5350: p_pkg_name => G_PKG_NAME,
5351: p_init_msg_list => p_init_msg_list,
5352: l_api_version => l_api_version,
5353: p_api_version => p_api_version,
5373: x_amount := x_amount + l_okl_poc_rec.amount;
5374: END LOOP;
5375: END IF;
5376:
5377: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
5378: ,x_msg_data => x_msg_data);
5379:
5380: x_return_status := l_return_status;
5381:
5381:
5382: EXCEPTION
5383: WHEN G_EXCEPTION_ERROR THEN
5384:
5385: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5386: p_pkg_name => G_PKG_NAME,
5387: p_exc_name => G_EXC_NAME_ERROR,
5388: x_msg_count => x_msg_count,
5389: x_msg_data => x_msg_data,
5389: x_msg_data => x_msg_data,
5390: p_api_type => G_API_TYPE);
5391: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
5392:
5393: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5394: p_pkg_name => G_PKG_NAME,
5395: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
5396: x_msg_count => x_msg_count,
5397: x_msg_data => x_msg_data,
5397: x_msg_data => x_msg_data,
5398: p_api_type => G_API_TYPE);
5399: WHEN OTHERS THEN
5400:
5401: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5402: p_pkg_name => G_PKG_NAME,
5403: p_exc_name => G_EXC_NAME_OTHERS,
5404: x_msg_count => x_msg_count,
5405: x_msg_data => x_msg_data,
5424: ) IS
5425: l_api_name CONSTANT VARCHAR2(30) := 'validate_pool';
5426: l_api_version CONSTANT NUMBER := 1.0;
5427: i NUMBER;
5428: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
5429: l_action VARCHAR2(40) := p_api_name;
5430: l_contract_number OKL_K_HEADERS_FULL_V.CONTRACT_NUMBER%type;
5431: l_polv_rec polv_rec_type := p_polv_rec;
5432:
5446: l_row_not_found BOOLEAN := FALSE;
5447: BEGIN
5448:
5449: -- Initialize API status to success
5450: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5451:
5452: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
5453: p_pkg_name => G_PKG_NAME,
5454: p_init_msg_list => p_init_msg_list,
5448:
5449: -- Initialize API status to success
5450: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5451:
5452: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
5453: p_pkg_name => G_PKG_NAME,
5454: p_init_msg_list => p_init_msg_list,
5455: l_api_version => l_api_version,
5456: p_api_version => p_api_version,
5456: p_api_version => p_api_version,
5457: p_api_type => G_API_TYPE,
5458: x_return_status => l_return_status);
5459: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5461: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
5462: RAISE OKL_API.G_EXCEPTION_ERROR;
5463: END IF;
5464:
5458: x_return_status => l_return_status);
5459: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5460: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5461: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
5462: RAISE OKL_API.G_EXCEPTION_ERROR;
5463: END IF;
5464:
5465: -- Initialize message list if requested
5466: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
5468: END IF;
5469:
5470: --update validation for pool id when the pool is in active or new status
5471: IF l_action = 'update_pool' THEN
5472: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5473: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5474: RAISE OKL_API.G_EXCEPTION_ERROR;
5475: END IF;
5476: END IF;
5469:
5470: --update validation for pool id when the pool is in active or new status
5471: IF l_action = 'update_pool' THEN
5472: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5473: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5474: RAISE OKL_API.G_EXCEPTION_ERROR;
5475: END IF;
5476: END IF;
5477:
5470: --update validation for pool id when the pool is in active or new status
5471: IF l_action = 'update_pool' THEN
5472: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5473: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5474: RAISE OKL_API.G_EXCEPTION_ERROR;
5475: END IF;
5476: END IF;
5477:
5478: --following actions are permitted only when pool status is NEW
5476: END IF;
5477:
5478: --following actions are permitted only when pool status is NEW
5479: IF l_action in ('add_pool_contents','cleanup_pool_contents') THEN
5480: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5481: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5482: RAISE OKL_API.G_EXCEPTION_ERROR;
5483: ELSE
5484: FOR l_okl_pol_status_rec IN l_okl_pol_status_csr(p_polv_rec.id)
5477:
5478: --following actions are permitted only when pool status is NEW
5479: IF l_action in ('add_pool_contents','cleanup_pool_contents') THEN
5480: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5481: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5482: RAISE OKL_API.G_EXCEPTION_ERROR;
5483: ELSE
5484: FOR l_okl_pol_status_rec IN l_okl_pol_status_csr(p_polv_rec.id)
5485: LOOP
5478: --following actions are permitted only when pool status is NEW
5479: IF l_action in ('add_pool_contents','cleanup_pool_contents') THEN
5480: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5481: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5482: RAISE OKL_API.G_EXCEPTION_ERROR;
5483: ELSE
5484: FOR l_okl_pol_status_rec IN l_okl_pol_status_csr(p_polv_rec.id)
5485: LOOP
5486:
5484: FOR l_okl_pol_status_rec IN l_okl_pol_status_csr(p_polv_rec.id)
5485: LOOP
5486:
5487: IF l_okl_pol_status_rec.status_code <> Okl_Pool_Pvt.G_POL_STS_NEW THEN
5488: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME, p_msg_name => 'OKL_POOL_NO_MODIFY');
5489: RAISE OKL_API.G_EXCEPTION_ERROR;
5490: END IF;
5491: END LOOP;
5492: End if;
5485: LOOP
5486:
5487: IF l_okl_pol_status_rec.status_code <> Okl_Pool_Pvt.G_POL_STS_NEW THEN
5488: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME, p_msg_name => 'OKL_POOL_NO_MODIFY');
5489: RAISE OKL_API.G_EXCEPTION_ERROR;
5490: END IF;
5491: END LOOP;
5492: End if;
5493: END IF;
5496: -- validte whether the currency code entered is correct
5497: -- currency code must be entered by user while adding
5498: -- the pool contents
5499:
5500: IF (p_polv_rec.currency_code = OKL_API.G_MISS_CHAR OR
5501: p_polv_rec.currency_code IS NULL)
5502: THEN
5503: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
5504: p_msg_name => 'OKL_REQUIRED_VALUE',
5499:
5500: IF (p_polv_rec.currency_code = OKL_API.G_MISS_CHAR OR
5501: p_polv_rec.currency_code IS NULL)
5502: THEN
5503: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
5504: p_msg_name => 'OKL_REQUIRED_VALUE',
5505: p_token1 => 'COL_NAME',
5506: p_token1_value => 'currency_code');
5507: RAISE G_EXCEPTION_ERROR;
5513: l_row_not_found := okl_fnd_curr_csr%NOTFOUND;
5514: CLOSE okl_fnd_curr_csr;
5515:
5516: IF l_row_not_found THEN
5517: OKL_API.set_message(G_APP_NAME,
5518: OKL_API.G_INVALID_VALUE,
5519: OKL_API.G_COL_NAME_TOKEN,
5520: 'currency_code');
5521: RAISE G_EXCEPTION_ERROR;
5514: CLOSE okl_fnd_curr_csr;
5515:
5516: IF l_row_not_found THEN
5517: OKL_API.set_message(G_APP_NAME,
5518: OKL_API.G_INVALID_VALUE,
5519: OKL_API.G_COL_NAME_TOKEN,
5520: 'currency_code');
5521: RAISE G_EXCEPTION_ERROR;
5522: END IF;
5515:
5516: IF l_row_not_found THEN
5517: OKL_API.set_message(G_APP_NAME,
5518: OKL_API.G_INVALID_VALUE,
5519: OKL_API.G_COL_NAME_TOKEN,
5520: 'currency_code');
5521: RAISE G_EXCEPTION_ERROR;
5522: END IF;
5523:
5528: (p_count => x_msg_count,
5529: p_data => x_msg_data);
5530:
5531: EXCEPTION
5532: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5533: x_return_status := Okl_Api.G_RET_STS_ERROR;
5534: Fnd_Msg_Pub.Count_And_Get
5535: (p_count => x_msg_count,
5536: p_data => x_msg_data);
5529: p_data => x_msg_data);
5530:
5531: EXCEPTION
5532: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5533: x_return_status := Okl_Api.G_RET_STS_ERROR;
5534: Fnd_Msg_Pub.Count_And_Get
5535: (p_count => x_msg_count,
5536: p_data => x_msg_data);
5537:
5534: Fnd_Msg_Pub.Count_And_Get
5535: (p_count => x_msg_count,
5536: p_data => x_msg_data);
5537:
5538: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5539: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5540: Fnd_Msg_Pub.Count_And_Get
5541: (p_count => x_msg_count,
5542: p_data => x_msg_data);
5535: (p_count => x_msg_count,
5536: p_data => x_msg_data);
5537:
5538: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5539: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5540: Fnd_Msg_Pub.Count_And_Get
5541: (p_count => x_msg_count,
5542: p_data => x_msg_data);
5543:
5541: (p_count => x_msg_count,
5542: p_data => x_msg_data);
5543:
5544: WHEN OTHERS THEN
5545: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5546:
5547: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5548: p_msg_name => G_UNEXPECTED_ERROR,
5549: p_token1 => G_SQLCODE_TOKEN,
5543:
5544: WHEN OTHERS THEN
5545: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5546:
5547: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5548: p_msg_name => G_UNEXPECTED_ERROR,
5549: p_token1 => G_SQLCODE_TOKEN,
5550: p_token1_value => SQLCODE,
5551: p_token2 => G_SQLERRM_TOKEN,