[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,
3308:
3309: l_api_name CONSTANT VARCHAR2(30) := 'add_pool_contents_pvt';
3310: l_api_version CONSTANT NUMBER := 1.0;
3311:
3312: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3313:
3314: l_pocv_rec pocv_rec_type;
3315: x_pocv_rec pocv_rec_type;
3316: --Added by kthiruva on 21-Nov-2007 for Bug 6640050
3347: x_pocv_tbl pocv_tbl_type;
3348:
3349:
3350: BEGIN
3351: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
3352: p_pkg_name => G_PKG_NAME,
3353: p_init_msg_list => p_init_msg_list,
3354: l_api_version => l_api_version,
3355: p_api_version => p_api_version,
3363: END IF;
3364:
3365:
3366: -- Initialize API status to success
3367: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3368:
3369: l_pocv_rec.pol_id := p_pol_id;
3370: --Added by kthiruva on 21-Nov -2007 to fetch the Pool Status
3371: --Bug 6640050 - Start of Changes
3526: p_pocv_rec => l_pocv_rec,
3527: x_pocv_rec => x_pocv_rec);
3528:
3529:
3530: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3531: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3532: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3533: RAISE Okl_Api.G_EXCEPTION_ERROR;
3534: END IF;
3527: x_pocv_rec => x_pocv_rec);
3528:
3529:
3530: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3531: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3532: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3533: RAISE Okl_Api.G_EXCEPTION_ERROR;
3534: END IF;
3535:
3528:
3529:
3530: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3531: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3532: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3533: RAISE Okl_Api.G_EXCEPTION_ERROR;
3534: END IF;
3535:
3536: ELSE
3529:
3530: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3531: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3532: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3533: RAISE Okl_Api.G_EXCEPTION_ERROR;
3534: END IF;
3535:
3536: ELSE
3537: /* sosharma 21-Nov-2007
3622: ,x_msg_data => x_msg_data
3623: ,p_poxv_rec => lp_poxv_rec
3624: ,x_poxv_rec => lx_poxv_rec);
3625:
3626: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3627: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3628: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3629: RAISE Okl_Api.G_EXCEPTION_ERROR;
3630: END IF;
3623: ,p_poxv_rec => lp_poxv_rec
3624: ,x_poxv_rec => lx_poxv_rec);
3625:
3626: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3627: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3628: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3629: RAISE Okl_Api.G_EXCEPTION_ERROR;
3630: END IF;
3631: -- Assign the Transaction Id to pool contents
3624: ,x_poxv_rec => lx_poxv_rec);
3625:
3626: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3627: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3628: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3629: RAISE Okl_Api.G_EXCEPTION_ERROR;
3630: END IF;
3631: -- Assign the Transaction Id to pool contents
3632: FOR i IN l_pocv_tbl.FIRST..l_pocv_tbl.LAST LOOP
3625:
3626: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3627: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3628: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3629: RAISE Okl_Api.G_EXCEPTION_ERROR;
3630: END IF;
3631: -- Assign the Transaction Id to pool contents
3632: FOR i IN l_pocv_tbl.FIRST..l_pocv_tbl.LAST LOOP
3633: l_pocv_tbl(i).pox_id:= lx_poxv_rec.id;
3645: p_pocv_tbl => l_pocv_tbl,
3646: x_pocv_tbl => x_pocv_tbl);
3647:
3648:
3649: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3652: RAISE Okl_Api.G_EXCEPTION_ERROR;
3653: END IF;
3646: x_pocv_tbl => x_pocv_tbl);
3647:
3648:
3649: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3652: RAISE Okl_Api.G_EXCEPTION_ERROR;
3653: END IF;
3654:
3647:
3648:
3649: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3652: RAISE Okl_Api.G_EXCEPTION_ERROR;
3653: END IF;
3654:
3655: -- get existing the transaction status
3648:
3649: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3650: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3651: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3652: RAISE Okl_Api.G_EXCEPTION_ERROR;
3653: END IF;
3654:
3655: -- get existing the transaction status
3656: OPEN l_trans_status_csr(p_pol_id);
3670: ,x_msg_data => x_msg_data
3671: ,p_poxv_rec => lp_poxv_rec
3672: ,x_poxv_rec => lx_poxv_rec);
3673:
3674: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3675: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3676: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3677: RAISE Okl_Api.G_EXCEPTION_ERROR;
3678: END IF;
3671: ,p_poxv_rec => lp_poxv_rec
3672: ,x_poxv_rec => lx_poxv_rec);
3673:
3674: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3675: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3676: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3677: RAISE Okl_Api.G_EXCEPTION_ERROR;
3678: END IF;
3679: END IF;
3672: ,x_poxv_rec => lx_poxv_rec);
3673:
3674: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3675: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3676: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3677: RAISE Okl_Api.G_EXCEPTION_ERROR;
3678: END IF;
3679: END IF;
3680:
3673:
3674: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3675: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3676: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3677: RAISE Okl_Api.G_EXCEPTION_ERROR;
3678: END IF;
3679: END IF;
3680:
3681: END IF;
3768: END IF;
3769:
3770: x_row_count := l_add_count;
3771:
3772: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
3773: ,x_msg_data => x_msg_data);
3774:
3775: x_return_status := l_return_status;
3776:
3777:
3778: EXCEPTION
3779: WHEN G_EXCEPTION_ERROR THEN
3780:
3781: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3782: p_pkg_name => G_PKG_NAME,
3783: p_exc_name => G_EXC_NAME_ERROR,
3784: x_msg_count => x_msg_count,
3785: x_msg_data => x_msg_data,
3785: x_msg_data => x_msg_data,
3786: p_api_type => G_API_TYPE);
3787: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
3788:
3789: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3790: p_pkg_name => G_PKG_NAME,
3791: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
3792: x_msg_count => x_msg_count,
3793: x_msg_data => x_msg_data,
3793: x_msg_data => x_msg_data,
3794: p_api_type => G_API_TYPE);
3795: WHEN OTHERS THEN
3796:
3797: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3798: p_pkg_name => G_PKG_NAME,
3799: p_exc_name => G_EXC_NAME_OTHERS,
3800: x_msg_count => x_msg_count,
3801: x_msg_data => x_msg_data,
3857: IS
3858: l_api_name CONSTANT VARCHAR2(30) := 'cleanup_pool_contents';
3859: l_api_version CONSTANT NUMBER := 1.0;
3860: i NUMBER;
3861: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3862:
3863: l_pocv_rec pocv_rec_type;
3864: lp_poxv_rec poxv_rec_type;
3865: lx_poxv_rec poxv_rec_type;
3958: l_status_code okl_pools.status_Code%TYPE;
3959: --End - Changes for Bug 6640050 by varangan on 29-Nov-2007
3960:
3961: BEGIN
3962: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
3963: p_pkg_name => G_PKG_NAME,
3964: p_init_msg_list => p_init_msg_list,
3965: l_api_version => l_api_version,
3966: p_api_version => p_api_version,
4051: ,x_msg_data => x_msg_data
4052: ,p_poxv_rec => lp_poxv_rec
4053: ,x_poxv_rec => lx_poxv_rec);
4054:
4055: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4056: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4057: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4058: RAISE Okl_Api.G_EXCEPTION_ERROR;
4059: END IF;
4052: ,p_poxv_rec => lp_poxv_rec
4053: ,x_poxv_rec => lx_poxv_rec);
4054:
4055: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4056: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4057: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4058: RAISE Okl_Api.G_EXCEPTION_ERROR;
4059: END IF;
4060: END IF;
4053: ,x_poxv_rec => lx_poxv_rec);
4054:
4055: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4056: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4057: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4058: RAISE Okl_Api.G_EXCEPTION_ERROR;
4059: END IF;
4060: END IF;
4061:
4054:
4055: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4056: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4057: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4058: RAISE Okl_Api.G_EXCEPTION_ERROR;
4059: END IF;
4060: END IF;
4061:
4062: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
4058: RAISE Okl_Api.G_EXCEPTION_ERROR;
4059: END IF;
4060: END IF;
4061:
4062: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
4063: ,x_msg_data => x_msg_data);
4064:
4065: x_return_status := l_return_status;
4066:
4066:
4067: EXCEPTION
4068: WHEN G_EXCEPTION_ERROR THEN
4069:
4070: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
4071: p_pkg_name => G_PKG_NAME,
4072: p_exc_name => G_EXC_NAME_ERROR,
4073: x_msg_count => x_msg_count,
4074: x_msg_data => x_msg_data,
4074: x_msg_data => x_msg_data,
4075: p_api_type => G_API_TYPE);
4076: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
4077:
4078: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
4079: p_pkg_name => G_PKG_NAME,
4080: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
4081: x_msg_count => x_msg_count,
4082: x_msg_data => x_msg_data,
4082: x_msg_data => x_msg_data,
4083: p_api_type => G_API_TYPE);
4084: WHEN OTHERS THEN
4085:
4086: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
4087: p_pkg_name => G_PKG_NAME,
4088: p_exc_name => G_EXC_NAME_OTHERS,
4089: x_msg_count => x_msg_count,
4090: x_msg_data => x_msg_data,
4476: AND stmb.active_yn = 'Y';
4477:
4478: l_api_name CONSTANT VARCHAR2(30) := 'reconcile_contents';
4479: l_api_version CONSTANT NUMBER := 1.0;
4480: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
4481: lp_pocv_tbl pocv_tbl_type;
4482: lx_pocv_tbl pocv_tbl_type;
4483: lp_polv_rec polv_rec_type;
4484: lx_polv_rec polv_rec_type;
4487: l_date DATE;
4488:
4489: BEGIN
4490:
4491: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
4492: p_pkg_name => G_PKG_NAME,
4493: p_init_msg_list => p_init_msg_list,
4494: l_api_version => l_api_version,
4495: p_api_version => p_api_version,
4500: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
4501: RAISE G_EXCEPTION_ERROR;
4502: END IF;
4503:
4504: x_reconciled := Okl_Api.G_FALSE;
4505:
4506:
4507: /*sosharma 26-Dec-2007
4508: Bifurcating further processing based on the value of p_mode
4528: x_msg_count => x_msg_count,
4529: x_msg_data => x_msg_data,
4530: p_pocv_tbl => lp_pocv_tbl);
4531:
4532: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4533: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4534: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4535: RAISE Okl_Api.G_EXCEPTION_ERROR;
4536: END IF;
4529: x_msg_data => x_msg_data,
4530: p_pocv_tbl => lp_pocv_tbl);
4531:
4532: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4533: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4534: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4535: RAISE Okl_Api.G_EXCEPTION_ERROR;
4536: END IF;
4537:
4530: p_pocv_tbl => lp_pocv_tbl);
4531:
4532: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4533: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4534: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4535: RAISE Okl_Api.G_EXCEPTION_ERROR;
4536: END IF;
4537:
4538: x_reconciled := Okl_Api.G_TRUE;
4531:
4532: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4533: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4534: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4535: RAISE Okl_Api.G_EXCEPTION_ERROR;
4536: END IF;
4537:
4538: x_reconciled := Okl_Api.G_TRUE;
4539: END IF;
4534: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4535: RAISE Okl_Api.G_EXCEPTION_ERROR;
4536: END IF;
4537:
4538: x_reconciled := Okl_Api.G_TRUE;
4539: END IF;
4540: lp_pocv_tbl.DELETE; -- clear
4541: --fmiao 21-OCT-2005 bug 4775555 --
4542:
4558: x_msg_count => x_msg_count,
4559: x_msg_data => x_msg_data,
4560: p_pocv_tbl => lp_pocv_tbl);
4561:
4562: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4563: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4564: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4565: RAISE Okl_Api.G_EXCEPTION_ERROR;
4566: END IF;
4559: x_msg_data => x_msg_data,
4560: p_pocv_tbl => lp_pocv_tbl);
4561:
4562: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4563: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4564: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4565: RAISE Okl_Api.G_EXCEPTION_ERROR;
4566: END IF;
4567:
4560: p_pocv_tbl => lp_pocv_tbl);
4561:
4562: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4563: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4564: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4565: RAISE Okl_Api.G_EXCEPTION_ERROR;
4566: END IF;
4567:
4568: x_reconciled := Okl_Api.G_TRUE;
4561:
4562: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4563: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4564: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4565: RAISE Okl_Api.G_EXCEPTION_ERROR;
4566: END IF;
4567:
4568: x_reconciled := Okl_Api.G_TRUE;
4569: END IF;
4564: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4565: RAISE Okl_Api.G_EXCEPTION_ERROR;
4566: END IF;
4567:
4568: x_reconciled := Okl_Api.G_TRUE;
4569: END IF;
4570:
4571:
4572: lp_pocv_tbl.DELETE; -- clear
4588: x_msg_count => x_msg_count,
4589: x_msg_data => x_msg_data,
4590: p_pocv_tbl => lp_pocv_tbl);
4591:
4592: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4593: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4594: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4595: RAISE Okl_Api.G_EXCEPTION_ERROR;
4596: END IF;
4589: x_msg_data => x_msg_data,
4590: p_pocv_tbl => lp_pocv_tbl);
4591:
4592: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4593: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4594: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4595: RAISE Okl_Api.G_EXCEPTION_ERROR;
4596: END IF;
4597:
4590: p_pocv_tbl => lp_pocv_tbl);
4591:
4592: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4593: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4594: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4595: RAISE Okl_Api.G_EXCEPTION_ERROR;
4596: END IF;
4597:
4598: x_reconciled := Okl_Api.G_TRUE;
4591:
4592: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4593: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4594: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4595: RAISE Okl_Api.G_EXCEPTION_ERROR;
4596: END IF;
4597:
4598: x_reconciled := Okl_Api.G_TRUE;
4599: END IF;
4594: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4595: RAISE Okl_Api.G_EXCEPTION_ERROR;
4596: END IF;
4597:
4598: x_reconciled := Okl_Api.G_TRUE;
4599: END IF;
4600:
4601:
4602:
4622: x_msg_count => x_msg_count,
4623: x_msg_data => x_msg_data,
4624: p_pocv_tbl => lp_pocv_tbl);
4625:
4626: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4627: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4628: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4629: RAISE Okl_Api.G_EXCEPTION_ERROR;
4630: END IF;
4623: x_msg_data => x_msg_data,
4624: p_pocv_tbl => lp_pocv_tbl);
4625:
4626: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4627: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4628: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4629: RAISE Okl_Api.G_EXCEPTION_ERROR;
4630: END IF;
4631:
4624: p_pocv_tbl => lp_pocv_tbl);
4625:
4626: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4627: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4628: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4629: RAISE Okl_Api.G_EXCEPTION_ERROR;
4630: END IF;
4631:
4632: x_reconciled := Okl_Api.G_TRUE;
4625:
4626: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4627: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4628: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4629: RAISE Okl_Api.G_EXCEPTION_ERROR;
4630: END IF;
4631:
4632: x_reconciled := Okl_Api.G_TRUE;
4633: END IF;
4628: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4629: RAISE Okl_Api.G_EXCEPTION_ERROR;
4630: END IF;
4631:
4632: x_reconciled := Okl_Api.G_TRUE;
4633: END IF;
4634:
4635:
4636: lp_pocv_tbl.DELETE; -- clear
4653: x_msg_count => x_msg_count,
4654: x_msg_data => x_msg_data,
4655: p_pocv_tbl => lp_pocv_tbl);
4656:
4657: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4658: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4659: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4660: RAISE Okl_Api.G_EXCEPTION_ERROR;
4661: END IF;
4654: x_msg_data => x_msg_data,
4655: p_pocv_tbl => lp_pocv_tbl);
4656:
4657: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4658: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4659: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4660: RAISE Okl_Api.G_EXCEPTION_ERROR;
4661: END IF;
4662:
4655: p_pocv_tbl => lp_pocv_tbl);
4656:
4657: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4658: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4659: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4660: RAISE Okl_Api.G_EXCEPTION_ERROR;
4661: END IF;
4662:
4663: x_reconciled := Okl_Api.G_TRUE;
4656:
4657: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4658: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4659: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4660: RAISE Okl_Api.G_EXCEPTION_ERROR;
4661: END IF;
4662:
4663: x_reconciled := Okl_Api.G_TRUE;
4664: END IF;
4659: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4660: RAISE Okl_Api.G_EXCEPTION_ERROR;
4661: END IF;
4662:
4663: x_reconciled := Okl_Api.G_TRUE;
4664: END IF;
4665:
4666: lp_pocv_tbl.DELETE; -- clear
4667:
4683: x_msg_count => x_msg_count,
4684: x_msg_data => x_msg_data,
4685: p_pocv_tbl => lp_pocv_tbl);
4686:
4687: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4690: RAISE Okl_Api.G_EXCEPTION_ERROR;
4691: END IF;
4684: x_msg_data => x_msg_data,
4685: p_pocv_tbl => lp_pocv_tbl);
4686:
4687: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4690: RAISE Okl_Api.G_EXCEPTION_ERROR;
4691: END IF;
4692: x_reconciled := Okl_Api.G_TRUE;
4685: p_pocv_tbl => lp_pocv_tbl);
4686:
4687: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4690: RAISE Okl_Api.G_EXCEPTION_ERROR;
4691: END IF;
4692: x_reconciled := Okl_Api.G_TRUE;
4693: END IF;
4686:
4687: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4688: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4690: RAISE Okl_Api.G_EXCEPTION_ERROR;
4691: END IF;
4692: x_reconciled := Okl_Api.G_TRUE;
4693: END IF;
4694:
4688: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4689: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4690: RAISE Okl_Api.G_EXCEPTION_ERROR;
4691: END IF;
4692: x_reconciled := Okl_Api.G_TRUE;
4693: END IF;
4694:
4695: lp_pocv_tbl.DELETE; -- clear the contents to get updatable rows
4696:
4717: x_msg_data => x_msg_data,
4718: p_pocv_tbl => lp_pocv_tbl,
4719: x_pocv_tbl => lx_pocv_tbl);
4720:
4721: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4722: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4723: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4724: RAISE Okl_Api.G_EXCEPTION_ERROR;
4725: END IF;
4718: p_pocv_tbl => lp_pocv_tbl,
4719: x_pocv_tbl => lx_pocv_tbl);
4720:
4721: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4722: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4723: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4724: RAISE Okl_Api.G_EXCEPTION_ERROR;
4725: END IF;
4726:
4719: x_pocv_tbl => lx_pocv_tbl);
4720:
4721: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4722: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4723: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4724: RAISE Okl_Api.G_EXCEPTION_ERROR;
4725: END IF;
4726:
4727: x_reconciled := Okl_Api.G_TRUE;
4720:
4721: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4722: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4723: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4724: RAISE Okl_Api.G_EXCEPTION_ERROR;
4725: END IF;
4726:
4727: x_reconciled := Okl_Api.G_TRUE;
4728: END IF;
4723: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4724: RAISE Okl_Api.G_EXCEPTION_ERROR;
4725: END IF;
4726:
4727: x_reconciled := Okl_Api.G_TRUE;
4728: END IF;
4729:
4730: lp_pocv_tbl.DELETE; -- clear the contents to get new updatable rows
4731:
4755: x_msg_data => x_msg_data,
4756: p_pocv_tbl => lp_pocv_tbl,
4757: x_pocv_tbl => lx_pocv_tbl);
4758:
4759: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4762: RAISE Okl_Api.G_EXCEPTION_ERROR;
4763: END IF;
4756: p_pocv_tbl => lp_pocv_tbl,
4757: x_pocv_tbl => lx_pocv_tbl);
4758:
4759: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4762: RAISE Okl_Api.G_EXCEPTION_ERROR;
4763: END IF;
4764:
4757: x_pocv_tbl => lx_pocv_tbl);
4758:
4759: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4762: RAISE Okl_Api.G_EXCEPTION_ERROR;
4763: END IF;
4764:
4765: x_reconciled := Okl_Api.G_TRUE;
4758:
4759: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4762: RAISE Okl_Api.G_EXCEPTION_ERROR;
4763: END IF;
4764:
4765: x_reconciled := Okl_Api.G_TRUE;
4766: END IF;
4761: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4762: RAISE Okl_Api.G_EXCEPTION_ERROR;
4763: END IF;
4764:
4765: x_reconciled := Okl_Api.G_TRUE;
4766: END IF;
4767:
4768: ELSE
4769:
4785: x_msg_count => x_msg_count,
4786: x_msg_data => x_msg_data,
4787: p_pocv_tbl => lp_pocv_tbl);
4788:
4789: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4790: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4791: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4792: RAISE Okl_Api.G_EXCEPTION_ERROR;
4793: END IF;
4786: x_msg_data => x_msg_data,
4787: p_pocv_tbl => lp_pocv_tbl);
4788:
4789: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4790: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4791: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4792: RAISE Okl_Api.G_EXCEPTION_ERROR;
4793: END IF;
4794:
4787: p_pocv_tbl => lp_pocv_tbl);
4788:
4789: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4790: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4791: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4792: RAISE Okl_Api.G_EXCEPTION_ERROR;
4793: END IF;
4794:
4795: x_reconciled := Okl_Api.G_TRUE;
4788:
4789: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4790: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4791: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4792: RAISE Okl_Api.G_EXCEPTION_ERROR;
4793: END IF;
4794:
4795: x_reconciled := Okl_Api.G_TRUE;
4796: END IF;
4791: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4792: RAISE Okl_Api.G_EXCEPTION_ERROR;
4793: END IF;
4794:
4795: x_reconciled := Okl_Api.G_TRUE;
4796: END IF;
4797: lp_pocv_tbl.DELETE; -- clear
4798: --fmiao 21-OCT-2005 bug 4775555 --
4799:
4815: x_msg_count => x_msg_count,
4816: x_msg_data => x_msg_data,
4817: p_pocv_tbl => lp_pocv_tbl);
4818:
4819: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4820: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4821: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4822: RAISE Okl_Api.G_EXCEPTION_ERROR;
4823: END IF;
4816: x_msg_data => x_msg_data,
4817: p_pocv_tbl => lp_pocv_tbl);
4818:
4819: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4820: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4821: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4822: RAISE Okl_Api.G_EXCEPTION_ERROR;
4823: END IF;
4824:
4817: p_pocv_tbl => lp_pocv_tbl);
4818:
4819: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4820: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4821: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4822: RAISE Okl_Api.G_EXCEPTION_ERROR;
4823: END IF;
4824:
4825: x_reconciled := Okl_Api.G_TRUE;
4818:
4819: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4820: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4821: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4822: RAISE Okl_Api.G_EXCEPTION_ERROR;
4823: END IF;
4824:
4825: x_reconciled := Okl_Api.G_TRUE;
4826: END IF;
4821: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4822: RAISE Okl_Api.G_EXCEPTION_ERROR;
4823: END IF;
4824:
4825: x_reconciled := Okl_Api.G_TRUE;
4826: END IF;
4827:
4828:
4829: lp_pocv_tbl.DELETE; -- clear
4845: x_msg_count => x_msg_count,
4846: x_msg_data => x_msg_data,
4847: p_pocv_tbl => lp_pocv_tbl);
4848:
4849: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4850: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4852: RAISE Okl_Api.G_EXCEPTION_ERROR;
4853: END IF;
4846: x_msg_data => x_msg_data,
4847: p_pocv_tbl => lp_pocv_tbl);
4848:
4849: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4850: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4852: RAISE Okl_Api.G_EXCEPTION_ERROR;
4853: END IF;
4854:
4847: p_pocv_tbl => lp_pocv_tbl);
4848:
4849: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4850: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4852: RAISE Okl_Api.G_EXCEPTION_ERROR;
4853: END IF;
4854:
4855: x_reconciled := Okl_Api.G_TRUE;
4848:
4849: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4850: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4852: RAISE Okl_Api.G_EXCEPTION_ERROR;
4853: END IF;
4854:
4855: x_reconciled := Okl_Api.G_TRUE;
4856: END IF;
4851: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4852: RAISE Okl_Api.G_EXCEPTION_ERROR;
4853: END IF;
4854:
4855: x_reconciled := Okl_Api.G_TRUE;
4856: END IF;
4857:
4858:
4859:
4879: x_msg_count => x_msg_count,
4880: x_msg_data => x_msg_data,
4881: p_pocv_tbl => lp_pocv_tbl);
4882:
4883: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4884: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4885: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4886: RAISE Okl_Api.G_EXCEPTION_ERROR;
4887: END IF;
4880: x_msg_data => x_msg_data,
4881: p_pocv_tbl => lp_pocv_tbl);
4882:
4883: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4884: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4885: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4886: RAISE Okl_Api.G_EXCEPTION_ERROR;
4887: END IF;
4888:
4881: p_pocv_tbl => lp_pocv_tbl);
4882:
4883: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4884: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4885: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4886: RAISE Okl_Api.G_EXCEPTION_ERROR;
4887: END IF;
4888:
4889: x_reconciled := Okl_Api.G_TRUE;
4882:
4883: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4884: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4885: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4886: RAISE Okl_Api.G_EXCEPTION_ERROR;
4887: END IF;
4888:
4889: x_reconciled := Okl_Api.G_TRUE;
4890: END IF;
4885: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4886: RAISE Okl_Api.G_EXCEPTION_ERROR;
4887: END IF;
4888:
4889: x_reconciled := Okl_Api.G_TRUE;
4890: END IF;
4891:
4892:
4893: lp_pocv_tbl.DELETE; -- clear
4910: x_msg_count => x_msg_count,
4911: x_msg_data => x_msg_data,
4912: p_pocv_tbl => lp_pocv_tbl);
4913:
4914: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4915: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4916: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4917: RAISE Okl_Api.G_EXCEPTION_ERROR;
4918: END IF;
4911: x_msg_data => x_msg_data,
4912: p_pocv_tbl => lp_pocv_tbl);
4913:
4914: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4915: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4916: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4917: RAISE Okl_Api.G_EXCEPTION_ERROR;
4918: END IF;
4919:
4912: p_pocv_tbl => lp_pocv_tbl);
4913:
4914: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4915: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4916: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4917: RAISE Okl_Api.G_EXCEPTION_ERROR;
4918: END IF;
4919:
4920: x_reconciled := Okl_Api.G_TRUE;
4913:
4914: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4915: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4916: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4917: RAISE Okl_Api.G_EXCEPTION_ERROR;
4918: END IF;
4919:
4920: x_reconciled := Okl_Api.G_TRUE;
4921: END IF;
4916: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4917: RAISE Okl_Api.G_EXCEPTION_ERROR;
4918: END IF;
4919:
4920: x_reconciled := Okl_Api.G_TRUE;
4921: END IF;
4922:
4923: lp_pocv_tbl.DELETE; -- clear
4924:
4940: x_msg_count => x_msg_count,
4941: x_msg_data => x_msg_data,
4942: p_pocv_tbl => lp_pocv_tbl);
4943:
4944: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4947: RAISE Okl_Api.G_EXCEPTION_ERROR;
4948: END IF;
4941: x_msg_data => x_msg_data,
4942: p_pocv_tbl => lp_pocv_tbl);
4943:
4944: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4947: RAISE Okl_Api.G_EXCEPTION_ERROR;
4948: END IF;
4949: x_reconciled := Okl_Api.G_TRUE;
4942: p_pocv_tbl => lp_pocv_tbl);
4943:
4944: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4947: RAISE Okl_Api.G_EXCEPTION_ERROR;
4948: END IF;
4949: x_reconciled := Okl_Api.G_TRUE;
4950: END IF;
4943:
4944: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4945: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4947: RAISE Okl_Api.G_EXCEPTION_ERROR;
4948: END IF;
4949: x_reconciled := Okl_Api.G_TRUE;
4950: END IF;
4951:
4945: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4946: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4947: RAISE Okl_Api.G_EXCEPTION_ERROR;
4948: END IF;
4949: x_reconciled := Okl_Api.G_TRUE;
4950: END IF;
4951:
4952: lp_pocv_tbl.DELETE; -- clear the contents to get updatable rows
4953:
4974: x_msg_data => x_msg_data,
4975: p_pocv_tbl => lp_pocv_tbl,
4976: x_pocv_tbl => lx_pocv_tbl);
4977:
4978: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4979: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4980: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4981: RAISE Okl_Api.G_EXCEPTION_ERROR;
4982: END IF;
4975: p_pocv_tbl => lp_pocv_tbl,
4976: x_pocv_tbl => lx_pocv_tbl);
4977:
4978: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4979: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4980: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4981: RAISE Okl_Api.G_EXCEPTION_ERROR;
4982: END IF;
4983:
4976: x_pocv_tbl => lx_pocv_tbl);
4977:
4978: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4979: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4980: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4981: RAISE Okl_Api.G_EXCEPTION_ERROR;
4982: END IF;
4983:
4984: x_reconciled := Okl_Api.G_TRUE;
4977:
4978: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4979: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4980: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4981: RAISE Okl_Api.G_EXCEPTION_ERROR;
4982: END IF;
4983:
4984: x_reconciled := Okl_Api.G_TRUE;
4985: END IF;
4980: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4981: RAISE Okl_Api.G_EXCEPTION_ERROR;
4982: END IF;
4983:
4984: x_reconciled := Okl_Api.G_TRUE;
4985: END IF;
4986:
4987: lp_pocv_tbl.DELETE; -- clear the contents to get new updatable rows
4988:
5012: x_msg_data => x_msg_data,
5013: p_pocv_tbl => lp_pocv_tbl,
5014: x_pocv_tbl => lx_pocv_tbl);
5015:
5016: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5019: RAISE Okl_Api.G_EXCEPTION_ERROR;
5020: END IF;
5013: p_pocv_tbl => lp_pocv_tbl,
5014: x_pocv_tbl => lx_pocv_tbl);
5015:
5016: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5019: RAISE Okl_Api.G_EXCEPTION_ERROR;
5020: END IF;
5021:
5014: x_pocv_tbl => lx_pocv_tbl);
5015:
5016: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5019: RAISE Okl_Api.G_EXCEPTION_ERROR;
5020: END IF;
5021:
5022: x_reconciled := Okl_Api.G_TRUE;
5015:
5016: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5019: RAISE Okl_Api.G_EXCEPTION_ERROR;
5020: END IF;
5021:
5022: x_reconciled := Okl_Api.G_TRUE;
5023: END IF;
5018: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5019: RAISE Okl_Api.G_EXCEPTION_ERROR;
5020: END IF;
5021:
5022: x_reconciled := Okl_Api.G_TRUE;
5023: END IF;
5024: END IF;
5025: /*sosharma end changes*/
5026:
5035: x_msg_data => x_msg_data,
5036: p_polv_rec => lp_polv_rec,
5037: x_polv_rec => lx_polv_rec);
5038:
5039: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5040: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5041:
5042: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5043: RAISE Okl_Api.G_EXCEPTION_ERROR;
5036: p_polv_rec => lp_polv_rec,
5037: x_polv_rec => lx_polv_rec);
5038:
5039: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5040: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5041:
5042: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5043: RAISE Okl_Api.G_EXCEPTION_ERROR;
5044: END IF;
5038:
5039: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5040: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5041:
5042: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5043: RAISE Okl_Api.G_EXCEPTION_ERROR;
5044: END IF;
5045:
5046: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
5039: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5040: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5041:
5042: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5043: RAISE Okl_Api.G_EXCEPTION_ERROR;
5044: END IF;
5045:
5046: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
5047: x_msg_data => x_msg_data);
5042: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5043: RAISE Okl_Api.G_EXCEPTION_ERROR;
5044: END IF;
5045:
5046: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
5047: x_msg_data => x_msg_data);
5048:
5049: x_return_status := l_return_status;
5050:
5050:
5051: EXCEPTION
5052: WHEN G_EXCEPTION_ERROR THEN
5053:
5054: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5055: p_pkg_name => G_PKG_NAME,
5056: p_exc_name => G_EXC_NAME_ERROR,
5057: x_msg_count => x_msg_count,
5058: x_msg_data => x_msg_data,
5058: x_msg_data => x_msg_data,
5059: p_api_type => G_API_TYPE);
5060: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
5061:
5062: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5063: p_pkg_name => G_PKG_NAME,
5064: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
5065: x_msg_count => x_msg_count,
5066: x_msg_data => x_msg_data,
5066: x_msg_data => x_msg_data,
5067: p_api_type => G_API_TYPE);
5068: WHEN OTHERS THEN
5069:
5070: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5071: p_pkg_name => G_PKG_NAME,
5072: p_exc_name => G_EXC_NAME_OTHERS,
5073: x_msg_count => x_msg_count,
5074: x_msg_data => x_msg_data,
5109: p_api_version,
5110: l_api_name,
5111: G_PKG_NAME ))
5112: THEN
5113: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5114: END IF;
5115:
5116: -- Initialize message list if requested
5117: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
5118: Fnd_Msg_Pub.initialize;
5119: END IF;
5120:
5121: -- Initialize API status to success
5122: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5123:
5124:
5125: /*** Begin API body ****************************************************/
5126:
5132: x_msg_data => x_msg_data,
5133: p_pool_status => G_POL_STS_ACTIVE,
5134: p_pol_id => p_pol_id);
5135:
5136: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5139: RAISE Okl_Api.G_EXCEPTION_ERROR;
5140: END IF;
5133: p_pool_status => G_POL_STS_ACTIVE,
5134: p_pol_id => p_pol_id);
5135:
5136: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5139: RAISE Okl_Api.G_EXCEPTION_ERROR;
5140: END IF;
5141:
5134: p_pol_id => p_pol_id);
5135:
5136: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5139: RAISE Okl_Api.G_EXCEPTION_ERROR;
5140: END IF;
5141:
5142: /*** End API body ******************************************************/
5135:
5136: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5137: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5138: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5139: RAISE Okl_Api.G_EXCEPTION_ERROR;
5140: END IF;
5141:
5142: /*** End API body ******************************************************/
5143:
5146: (p_count => x_msg_count,
5147: p_data => x_msg_data);
5148:
5149: EXCEPTION
5150: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5151: ROLLBACK TO update_pool_status_active_PVT;
5152: x_return_status := Okl_Api.G_RET_STS_ERROR;
5153: Fnd_Msg_Pub.Count_And_Get
5154: (p_count => x_msg_count,
5148:
5149: EXCEPTION
5150: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5151: ROLLBACK TO update_pool_status_active_PVT;
5152: x_return_status := Okl_Api.G_RET_STS_ERROR;
5153: Fnd_Msg_Pub.Count_And_Get
5154: (p_count => x_msg_count,
5155: p_data => x_msg_data);
5156:
5153: Fnd_Msg_Pub.Count_And_Get
5154: (p_count => x_msg_count,
5155: p_data => x_msg_data);
5156:
5157: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5158:
5159: ROLLBACK TO update_pool_status_active_PVT;
5160: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5161: Fnd_Msg_Pub.Count_And_Get
5156:
5157: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5158:
5159: ROLLBACK TO update_pool_status_active_PVT;
5160: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5161: Fnd_Msg_Pub.Count_And_Get
5162: (p_count => x_msg_count,
5163: p_data => x_msg_data);
5164:
5163: p_data => x_msg_data);
5164:
5165: WHEN OTHERS THEN
5166: ROLLBACK TO update_pool_status_active_PVT;
5167: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5168: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5169: p_msg_name => G_UNEXPECTED_ERROR,
5170: p_token1 => G_SQLCODE_TOKEN,
5171: p_token1_value => SQLCODE,
5164:
5165: WHEN OTHERS THEN
5166: ROLLBACK TO update_pool_status_active_PVT;
5167: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5168: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5169: p_msg_name => G_UNEXPECTED_ERROR,
5170: p_token1 => G_SQLCODE_TOKEN,
5171: p_token1_value => SQLCODE,
5172: p_token2 => G_SQLERRM_TOKEN,
5210: l_api_name,
5211: G_PKG_NAME ))
5212: THEN
5213:
5214: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5215: END IF;
5216:
5217: -- Initialize message list if requested
5218: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
5219: Fnd_Msg_Pub.initialize;
5220: END IF;
5221:
5222: -- Initialize API status to success
5223: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5224:
5225:
5226: /*** Begin API body ****************************************************/
5227:
5233: x_msg_data => x_msg_data,
5234: p_pool_status => G_POL_STS_EXPIRED,
5235: p_pol_id => p_pol_id);
5236:
5237: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5238: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5239: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5240: RAISE Okl_Api.G_EXCEPTION_ERROR;
5241: END IF;
5234: p_pool_status => G_POL_STS_EXPIRED,
5235: p_pol_id => p_pol_id);
5236:
5237: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5238: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5239: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5240: RAISE Okl_Api.G_EXCEPTION_ERROR;
5241: END IF;
5242:
5235: p_pol_id => p_pol_id);
5236:
5237: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5238: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5239: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5240: RAISE Okl_Api.G_EXCEPTION_ERROR;
5241: END IF;
5242:
5243: /*** End API body ******************************************************/
5236:
5237: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5238: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5239: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5240: RAISE Okl_Api.G_EXCEPTION_ERROR;
5241: END IF;
5242:
5243: /*** End API body ******************************************************/
5244:
5247: (p_count => x_msg_count,
5248: p_data => x_msg_data);
5249:
5250: EXCEPTION
5251: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5252: ROLLBACK TO update_pool_status_expired_PVT;
5253: x_return_status := Okl_Api.G_RET_STS_ERROR;
5254: Fnd_Msg_Pub.Count_And_Get
5255: (p_count => x_msg_count,
5249:
5250: EXCEPTION
5251: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5252: ROLLBACK TO update_pool_status_expired_PVT;
5253: x_return_status := Okl_Api.G_RET_STS_ERROR;
5254: Fnd_Msg_Pub.Count_And_Get
5255: (p_count => x_msg_count,
5256: p_data => x_msg_data);
5257:
5254: Fnd_Msg_Pub.Count_And_Get
5255: (p_count => x_msg_count,
5256: p_data => x_msg_data);
5257:
5258: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5259: ROLLBACK TO update_pool_status_expired_PVT;
5260: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5261: Fnd_Msg_Pub.Count_And_Get
5262: (p_count => x_msg_count,
5256: p_data => x_msg_data);
5257:
5258: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5259: ROLLBACK TO update_pool_status_expired_PVT;
5260: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5261: Fnd_Msg_Pub.Count_And_Get
5262: (p_count => x_msg_count,
5263: p_data => x_msg_data);
5264:
5263: p_data => x_msg_data);
5264:
5265: WHEN OTHERS THEN
5266: ROLLBACK TO update_pool_status_expired_PVT;
5267: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5268: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5269: p_msg_name => G_UNEXPECTED_ERROR,
5270: p_token1 => G_SQLCODE_TOKEN,
5271: p_token1_value => SQLCODE,
5264:
5265: WHEN OTHERS THEN
5266: ROLLBACK TO update_pool_status_expired_PVT;
5267: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5268: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5269: p_msg_name => G_UNEXPECTED_ERROR,
5270: p_token1 => G_SQLCODE_TOKEN,
5271: p_token1_value => SQLCODE,
5272:
5290: -- End of comments
5291: ----------------------------------------------------------------------------------
5292: PROCEDURE get_total_stream_amount(
5293: p_api_version IN NUMBER
5294: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
5295: ,x_return_status OUT NOCOPY VARCHAR2
5296: ,x_msg_count OUT NOCOPY NUMBER
5297: ,x_msg_data OUT NOCOPY VARCHAR2
5298: ,p_poc_id IN okl_pool_contents.id%TYPE
5303:
5304: l_api_name CONSTANT VARCHAR2(30) := 'get_total_stream_amount';
5305: l_api_version CONSTANT NUMBER := 1.0;
5306: i NUMBER;
5307: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
5308:
5309: CURSOR l_okl_poc_stm_csr
5310: IS
5311: SELECT NVL(SUM(NVL(selb.amount,0)),0) amount
5354: ;
5355:
5356: BEGIN
5357:
5358: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
5359: p_pkg_name => G_PKG_NAME,
5360: p_init_msg_list => p_init_msg_list,
5361: l_api_version => l_api_version,
5362: p_api_version => p_api_version,
5382: x_amount := x_amount + l_okl_poc_rec.amount;
5383: END LOOP;
5384: END IF;
5385:
5386: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
5387: ,x_msg_data => x_msg_data);
5388:
5389: x_return_status := l_return_status;
5390:
5390:
5391: EXCEPTION
5392: WHEN G_EXCEPTION_ERROR THEN
5393:
5394: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5395: p_pkg_name => G_PKG_NAME,
5396: p_exc_name => G_EXC_NAME_ERROR,
5397: x_msg_count => x_msg_count,
5398: x_msg_data => x_msg_data,
5398: x_msg_data => x_msg_data,
5399: p_api_type => G_API_TYPE);
5400: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
5401:
5402: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5403: p_pkg_name => G_PKG_NAME,
5404: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
5405: x_msg_count => x_msg_count,
5406: x_msg_data => x_msg_data,
5406: x_msg_data => x_msg_data,
5407: p_api_type => G_API_TYPE);
5408: WHEN OTHERS THEN
5409:
5410: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
5411: p_pkg_name => G_PKG_NAME,
5412: p_exc_name => G_EXC_NAME_OTHERS,
5413: x_msg_count => x_msg_count,
5414: x_msg_data => x_msg_data,
5433: ) IS
5434: l_api_name CONSTANT VARCHAR2(30) := 'validate_pool';
5435: l_api_version CONSTANT NUMBER := 1.0;
5436: i NUMBER;
5437: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
5438: l_action VARCHAR2(40) := p_api_name;
5439: l_contract_number OKL_K_HEADERS_FULL_V.CONTRACT_NUMBER%type;
5440: l_polv_rec polv_rec_type := p_polv_rec;
5441:
5455: l_row_not_found BOOLEAN := FALSE;
5456: BEGIN
5457:
5458: -- Initialize API status to success
5459: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5460:
5461: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
5462: p_pkg_name => G_PKG_NAME,
5463: p_init_msg_list => p_init_msg_list,
5457:
5458: -- Initialize API status to success
5459: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5460:
5461: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
5462: p_pkg_name => G_PKG_NAME,
5463: p_init_msg_list => p_init_msg_list,
5464: l_api_version => l_api_version,
5465: p_api_version => p_api_version,
5465: p_api_version => p_api_version,
5466: p_api_type => G_API_TYPE,
5467: x_return_status => l_return_status);
5468: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5470: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
5471: RAISE OKL_API.G_EXCEPTION_ERROR;
5472: END IF;
5473:
5467: x_return_status => l_return_status);
5468: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5470: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
5471: RAISE OKL_API.G_EXCEPTION_ERROR;
5472: END IF;
5473:
5474: -- Initialize message list if requested
5475: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
5477: END IF;
5478:
5479: --update validation for pool id when the pool is in active or new status
5480: IF l_action = 'update_pool' THEN
5481: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5482: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5483: RAISE OKL_API.G_EXCEPTION_ERROR;
5484: END IF;
5485: END IF;
5478:
5479: --update validation for pool id when the pool is in active or new status
5480: IF l_action = 'update_pool' THEN
5481: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5482: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5483: RAISE OKL_API.G_EXCEPTION_ERROR;
5484: END IF;
5485: END IF;
5486:
5479: --update validation for pool id when the pool is in active or new status
5480: IF l_action = 'update_pool' THEN
5481: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5482: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5483: RAISE OKL_API.G_EXCEPTION_ERROR;
5484: END IF;
5485: END IF;
5486:
5487: --following actions are permitted only when pool status is NEW
5485: END IF;
5486:
5487: --following actions are permitted only when pool status is NEW
5488: IF l_action in ('add_pool_contents','cleanup_pool_contents') THEN
5489: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5490: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5491: RAISE OKL_API.G_EXCEPTION_ERROR;
5492: ELSE
5493: FOR l_okl_pol_status_rec IN l_okl_pol_status_csr(p_polv_rec.id)
5486:
5487: --following actions are permitted only when pool status is NEW
5488: IF l_action in ('add_pool_contents','cleanup_pool_contents') THEN
5489: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5490: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5491: RAISE OKL_API.G_EXCEPTION_ERROR;
5492: ELSE
5493: FOR l_okl_pol_status_rec IN l_okl_pol_status_csr(p_polv_rec.id)
5494: LOOP
5487: --following actions are permitted only when pool status is NEW
5488: IF l_action in ('add_pool_contents','cleanup_pool_contents') THEN
5489: IF ((p_polv_rec.id is null) OR (p_polv_rec.id=OKL_API.G_MISS_NUM )) THEN
5490: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
5491: RAISE OKL_API.G_EXCEPTION_ERROR;
5492: ELSE
5493: FOR l_okl_pol_status_rec IN l_okl_pol_status_csr(p_polv_rec.id)
5494: LOOP
5495:
5493: FOR l_okl_pol_status_rec IN l_okl_pol_status_csr(p_polv_rec.id)
5494: LOOP
5495:
5496: IF l_okl_pol_status_rec.status_code <> Okl_Pool_Pvt.G_POL_STS_NEW THEN
5497: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME, p_msg_name => 'OKL_POOL_NO_MODIFY');
5498: RAISE OKL_API.G_EXCEPTION_ERROR;
5499: END IF;
5500: END LOOP;
5501: End if;
5494: LOOP
5495:
5496: IF l_okl_pol_status_rec.status_code <> Okl_Pool_Pvt.G_POL_STS_NEW THEN
5497: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME, p_msg_name => 'OKL_POOL_NO_MODIFY');
5498: RAISE OKL_API.G_EXCEPTION_ERROR;
5499: END IF;
5500: END LOOP;
5501: End if;
5502: END IF;
5505: -- validte whether the currency code entered is correct
5506: -- currency code must be entered by user while adding
5507: -- the pool contents
5508:
5509: IF (p_polv_rec.currency_code = OKL_API.G_MISS_CHAR OR
5510: p_polv_rec.currency_code IS NULL)
5511: THEN
5512: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
5513: p_msg_name => 'OKL_REQUIRED_VALUE',
5508:
5509: IF (p_polv_rec.currency_code = OKL_API.G_MISS_CHAR OR
5510: p_polv_rec.currency_code IS NULL)
5511: THEN
5512: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
5513: p_msg_name => 'OKL_REQUIRED_VALUE',
5514: p_token1 => 'COL_NAME',
5515: p_token1_value => 'currency_code');
5516: RAISE G_EXCEPTION_ERROR;
5522: l_row_not_found := okl_fnd_curr_csr%NOTFOUND;
5523: CLOSE okl_fnd_curr_csr;
5524:
5525: IF l_row_not_found THEN
5526: OKL_API.set_message(G_APP_NAME,
5527: OKL_API.G_INVALID_VALUE,
5528: OKL_API.G_COL_NAME_TOKEN,
5529: 'currency_code');
5530: RAISE G_EXCEPTION_ERROR;
5523: CLOSE okl_fnd_curr_csr;
5524:
5525: IF l_row_not_found THEN
5526: OKL_API.set_message(G_APP_NAME,
5527: OKL_API.G_INVALID_VALUE,
5528: OKL_API.G_COL_NAME_TOKEN,
5529: 'currency_code');
5530: RAISE G_EXCEPTION_ERROR;
5531: END IF;
5524:
5525: IF l_row_not_found THEN
5526: OKL_API.set_message(G_APP_NAME,
5527: OKL_API.G_INVALID_VALUE,
5528: OKL_API.G_COL_NAME_TOKEN,
5529: 'currency_code');
5530: RAISE G_EXCEPTION_ERROR;
5531: END IF;
5532:
5537: (p_count => x_msg_count,
5538: p_data => x_msg_data);
5539:
5540: EXCEPTION
5541: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5542: x_return_status := Okl_Api.G_RET_STS_ERROR;
5543: Fnd_Msg_Pub.Count_And_Get
5544: (p_count => x_msg_count,
5545: p_data => x_msg_data);
5538: p_data => x_msg_data);
5539:
5540: EXCEPTION
5541: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
5542: x_return_status := Okl_Api.G_RET_STS_ERROR;
5543: Fnd_Msg_Pub.Count_And_Get
5544: (p_count => x_msg_count,
5545: p_data => x_msg_data);
5546:
5543: Fnd_Msg_Pub.Count_And_Get
5544: (p_count => x_msg_count,
5545: p_data => x_msg_data);
5546:
5547: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5548: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5549: Fnd_Msg_Pub.Count_And_Get
5550: (p_count => x_msg_count,
5551: p_data => x_msg_data);
5544: (p_count => x_msg_count,
5545: p_data => x_msg_data);
5546:
5547: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5548: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
5549: Fnd_Msg_Pub.Count_And_Get
5550: (p_count => x_msg_count,
5551: p_data => x_msg_data);
5552:
5550: (p_count => x_msg_count,
5551: p_data => x_msg_data);
5552:
5553: WHEN OTHERS THEN
5554: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5555:
5556: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5557: p_msg_name => G_UNEXPECTED_ERROR,
5558: p_token1 => G_SQLCODE_TOKEN,
5552:
5553: WHEN OTHERS THEN
5554: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
5555:
5556: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
5557: p_msg_name => G_UNEXPECTED_ERROR,
5558: p_token1 => G_SQLCODE_TOKEN,
5559: p_token1_value => SQLCODE,
5560: p_token2 => G_SQLERRM_TOKEN,