[Home] [Help]
12: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(30) := 'OKL_UNEXPECTED_ERROR';
13: G_SQLERRM_TOKEN CONSTANT VARCHAR2(30) := 'OKL_SQLERRM';
14: G_SQLCODE_TOKEN CONSTANT VARCHAR2(30) := 'OKL_SQLCODE';
15:
16: G_NO_INIT_MSG CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
17: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
18:
19: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
20: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
15:
16: G_NO_INIT_MSG CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
17: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
18:
19: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
20: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
21: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
22: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
23: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
16: G_NO_INIT_MSG CONSTANT VARCHAR2(1) := OKL_API.G_FALSE;
17: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
18:
19: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
20: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
21: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
22: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
23: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
24: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
17: G_VIEW CONSTANT VARCHAR2(30) := 'OKL_TRX_AP_INVOICES_V';
18:
19: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
20: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
21: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
22: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
23: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
24: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
25: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
18:
19: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
20: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
21: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
22: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
23: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
24: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
25: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
26: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
19: G_FND_APP CONSTANT VARCHAR2(30) := OKL_API.G_FND_APP;
20: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(30) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
21: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
22: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
23: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
24: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
25: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
26: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
27: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
21: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_DELETED;
22: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
23: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
24: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
25: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
26: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
27: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
28: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
29: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
22: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(30) := OKL_API.G_FORM_RECORD_CHANGED;
23: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
24: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
25: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
26: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
27: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
28: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
29: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
30: G_NOT_SAME CONSTANT VARCHAR2(30) :='OKL_CANNOT_BE_SAME';
23: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(30) := OKL_API.G_RECORD_LOGICALLY_DELETED;
24: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
25: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
26: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
27: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
28: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
29: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
30: G_NOT_SAME CONSTANT VARCHAR2(30) :='OKL_CANNOT_BE_SAME';
31:
24: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
25: G_INVALID_VALUE CONSTANT VARCHAR2(30) := OKL_API.G_INVALID_VALUE;
26: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
27: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_PARENT_TABLE_TOKEN;
28: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_CHILD_TABLE_TOKEN;
29: G_NO_PARENT_RECORD CONSTANT VARCHAR2(30) :='OKL_NO_PARENT_RECORD';
30: G_NOT_SAME CONSTANT VARCHAR2(30) :='OKL_CANNOT_BE_SAME';
31:
32: G_PREFUNDING_TYPE CONSTANT VARCHAR2(30) :='PREFUNDING';
86: -- Debug messages:
87: PROCEDURE msg (text VARCHAR2)
88: IS
89: BEGIN
90: OKL_API.Set_Message(G_APP_NAME,'FND_GENERIC_MESSAGE','MESSAGE', text);
91: END;
92:
93: ----------------------------------------------------------------------------
94: /*
130: p_parameters => l_parameter_list);
131:
132: EXCEPTION
133: WHEN OTHERS THEN
134: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
136: END raise_business_event;
137:
138: /*
131:
132: EXCEPTION
133: WHEN OTHERS THEN
134: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
135: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
136: END raise_business_event;
137:
138: /*
139: -- vthiruva, 08/31/2004
143: ----------------------------------------------------------------------------------
144:
145: PROCEDURE create_fund_asset_subsidies
146: (p_api_version IN NUMBER,
147: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
148: x_return_status OUT NOCOPY VARCHAR2,
149: x_msg_count OUT NOCOPY NUMBER,
150: x_msg_data OUT NOCOPY VARCHAR2,
151: p_status IN OKL_TRX_AP_INVOICES_B.trx_status_code%TYPE,
155: l_api_name CONSTANT VARCHAR2(30) := 'create_fund_asset_subsidies';
156: l_api_version CONSTANT NUMBER := 1.0;
157: i NUMBER;
158: j NUMBER;
159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
160: l_row_found boolean := false;
161:
162: l_tapv_rec tapv_rec_type;
163: x_tapv_rec tapv_rec_type;
220: p_api_version,
221: l_api_name,
222: G_PKG_NAME ))
223: THEN
224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
225: END IF;
226:
227: -- Initialize message list if requested
228: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
229: FND_MSG_PUB.initialize;
230: END IF;
231:
232: -- Initialize API status to success
233: x_return_status := OKL_API.G_RET_STS_SUCCESS;
234:
235:
236: --*** Begin API body ****************************************************
237: -------------------------------------------------------------------------
285: x_msg_data => x_msg_data,
286: p_tapv_rec => l_tapv_rec,
287: x_tapv_rec => x_tapv_rec);
288:
289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
292: RAISE OKL_API.G_EXCEPTION_ERROR;
293: END IF;
286: p_tapv_rec => l_tapv_rec,
287: x_tapv_rec => x_tapv_rec);
288:
289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
292: RAISE OKL_API.G_EXCEPTION_ERROR;
293: END IF;
294: -----------------------------------------------------------------------
287: x_tapv_rec => x_tapv_rec);
288:
289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
292: RAISE OKL_API.G_EXCEPTION_ERROR;
293: END IF;
294: -----------------------------------------------------------------------
295: -- 2. get assets by funding request id
288:
289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
292: RAISE OKL_API.G_EXCEPTION_ERROR;
293: END IF;
294: -----------------------------------------------------------------------
295: -- 2. get assets by funding request id
296: -----------------------------------------------------------------------
310: p_req_fund_amount => r_ast.amount,
311: x_asbv_tbl => x_asbv_tbl
312: );
313:
314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
317: RAISE OKL_API.G_EXCEPTION_ERROR;
318: END IF;
311: x_asbv_tbl => x_asbv_tbl
312: );
313:
314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
317: RAISE OKL_API.G_EXCEPTION_ERROR;
318: END IF;
319: -------------------------------------------------------------------
312: );
313:
314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
317: RAISE OKL_API.G_EXCEPTION_ERROR;
318: END IF;
319: -------------------------------------------------------------------
320: -- if subsidies found
313:
314: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
316: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
317: RAISE OKL_API.G_EXCEPTION_ERROR;
318: END IF;
319: -------------------------------------------------------------------
320: -- if subsidies found
321: -------------------------------------------------------------------
358: x_msg_data => x_msg_data,
359: p_tplv_rec => l_tplv_rec,
360: x_tplv_rec => x_tplv_rec);
361:
362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_ERROR;
366: END IF;
359: p_tplv_rec => l_tplv_rec,
360: x_tplv_rec => x_tplv_rec);
361:
362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_ERROR;
366: END IF;
367:
360: x_tplv_rec => x_tplv_rec);
361:
362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_ERROR;
366: END IF;
367:
368: -- smadhava - Bug#5200033 - Added - Start
361:
362: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
363: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
365: RAISE OKL_API.G_EXCEPTION_ERROR;
366: END IF;
367:
368: -- smadhava - Bug#5200033 - Added - Start
369: -- Create a table of records of the AP subsidy lines to synchronize the header amount
387: p_fund_line_id => x_tplv_rec.id,
388: p_subsidy_amt => l_tplv_rec.amount,
389: p_sty_id => l_tplv_rec.sty_id);
390:
391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
393: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
394: RAISE OKL_API.G_EXCEPTION_ERROR;
395: END IF;
388: p_subsidy_amt => l_tplv_rec.amount,
389: p_sty_id => l_tplv_rec.sty_id);
390:
391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
393: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
394: RAISE OKL_API.G_EXCEPTION_ERROR;
395: END IF;
396: */
389: p_sty_id => l_tplv_rec.sty_id);
390:
391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
393: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
394: RAISE OKL_API.G_EXCEPTION_ERROR;
395: END IF;
396: */
397: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
390:
391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
393: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
394: RAISE OKL_API.G_EXCEPTION_ERROR;
395: END IF;
396: */
397: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
398:
417: x_msg_data => x_msg_data,
418: p_status => l_tapv_rec.trx_status_code,
419: p_fund_id => x_tapv_rec.id);
420:
421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
423: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
424: RAISE OKL_API.G_EXCEPTION_ERROR;
425: END IF;
418: p_status => l_tapv_rec.trx_status_code,
419: p_fund_id => x_tapv_rec.id);
420:
421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
423: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
424: RAISE OKL_API.G_EXCEPTION_ERROR;
425: END IF;
426: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
419: p_fund_id => x_tapv_rec.id);
420:
421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
423: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
424: RAISE OKL_API.G_EXCEPTION_ERROR;
425: END IF;
426: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
427:
420:
421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
422: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
423: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
424: RAISE OKL_API.G_EXCEPTION_ERROR;
425: END IF;
426: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
427:
428: -- smadhava - Bug#5200033 - Added - Start
434: x_return_status => x_return_status,
435: x_msg_count => x_msg_count,
436: x_msg_data => x_msg_data,
437: p_tplv_tbl => l_tplv_tbl);
438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
440: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
441: RAISE G_EXCEPTION_HALT_VALIDATION;
442: END IF;
435: x_msg_count => x_msg_count,
436: x_msg_data => x_msg_data,
437: p_tplv_tbl => l_tplv_tbl);
438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
440: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
441: RAISE G_EXCEPTION_HALT_VALIDATION;
442: END IF;
443: -- smadhava - Bug#5200033 - Added - End
436: x_msg_data => x_msg_data,
437: p_tplv_tbl => l_tplv_tbl);
438: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
440: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
441: RAISE G_EXCEPTION_HALT_VALIDATION;
442: END IF;
443: -- smadhava - Bug#5200033 - Added - End
444:
454: p_data => x_msg_data);
455:
456: EXCEPTION
457: WHEN G_EXCEPTION_HALT_VALIDATION THEN
458: x_return_status := OKL_API.G_RET_STS_ERROR;
459: WHEN OTHERS THEN
460: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
461: OKL_API.Set_Message(p_app_name => G_APP_NAME,
462: p_msg_name => G_UNEXPECTED_ERROR,
456: EXCEPTION
457: WHEN G_EXCEPTION_HALT_VALIDATION THEN
458: x_return_status := OKL_API.G_RET_STS_ERROR;
459: WHEN OTHERS THEN
460: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
461: OKL_API.Set_Message(p_app_name => G_APP_NAME,
462: p_msg_name => G_UNEXPECTED_ERROR,
463: p_token1 => G_SQLCODE_TOKEN,
464: p_token1_value => SQLCODE,
457: WHEN G_EXCEPTION_HALT_VALIDATION THEN
458: x_return_status := OKL_API.G_RET_STS_ERROR;
459: WHEN OTHERS THEN
460: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
461: OKL_API.Set_Message(p_app_name => G_APP_NAME,
462: p_msg_name => G_UNEXPECTED_ERROR,
463: p_token1 => G_SQLCODE_TOKEN,
464: p_token1_value => SQLCODE,
465: p_token2 => G_SQLERRM_TOKEN,
491: is
492: l_api_name CONSTANT VARCHAR2(30) := 'create_funding_chklst_tpl';
493: l_api_version CONSTANT NUMBER := 1.0;
494: i NUMBER;
495: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
496: lp_rgpv_rec rgpv_rec_type;
497: lp_rulv_rec rulv_rec_type;
498: lx_rgpv_rec rgpv_rec_type;
499: lx_rulv_rec rulv_rec_type;
618:
619: l_api_name,
620: G_PKG_NAME ))
621: THEN
622: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
623: END IF;
624:
625: -- Initialize message list if requested
626: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
627: FND_MSG_PUB.initialize;
628: END IF;
629:
630: -- Initialize API status to success
631: x_return_status := OKL_API.G_RET_STS_SUCCESS;
632:
633:
634: /*** Begin API body ****************************************************/
635:
831: p_data => x_msg_data);
832:
833: EXCEPTION
834: WHEN G_EXCEPTION_HALT_VALIDATION THEN
835: x_return_status := OKL_API.G_RET_STS_ERROR;
836: WHEN OTHERS THEN
837: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
838: OKL_API.Set_Message(p_app_name => G_APP_NAME,
839: p_msg_name => G_UNEXPECTED_ERROR,
833: EXCEPTION
834: WHEN G_EXCEPTION_HALT_VALIDATION THEN
835: x_return_status := OKL_API.G_RET_STS_ERROR;
836: WHEN OTHERS THEN
837: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
838: OKL_API.Set_Message(p_app_name => G_APP_NAME,
839: p_msg_name => G_UNEXPECTED_ERROR,
840: p_token1 => G_SQLCODE_TOKEN,
841: p_token1_value => SQLCODE,
834: WHEN G_EXCEPTION_HALT_VALIDATION THEN
835: x_return_status := OKL_API.G_RET_STS_ERROR;
836: WHEN OTHERS THEN
837: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
838: OKL_API.Set_Message(p_app_name => G_APP_NAME,
839: p_msg_name => G_UNEXPECTED_ERROR,
840: p_token1 => G_SQLCODE_TOKEN,
841: p_token1_value => SQLCODE,
842: p_token2 => G_SQLERRM_TOKEN,
868: IS
869: l_api_name CONSTANT VARCHAR2(30) := 'refresh_fund_chklst';
870: l_api_version CONSTANT NUMBER := 1.0;
871: i NUMBER;
872: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
873: l_old_credit_id okc_k_headers_b.id%TYPE;
874: l_funded_amout NUMBER := 0;
875: l_fund_req_id okl_trx_ap_invoices_b.id%type;
876:
964:
965: l_api_name,
966: G_PKG_NAME ))
967: THEN
968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
969: END IF;
970:
971: -- Initialize message list if requested
972: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
973: FND_MSG_PUB.initialize;
974: END IF;
975:
976: -- Initialize API status to success
977: x_return_status := OKL_API.G_RET_STS_SUCCESS;
978:
979:
980: /*** Begin API body ****************************************************/
981:
1003: end loop;
1004: ------------------------------------------------------------------------
1005: */
1006:
1007: IF (p_chr_id IS NOT NULL AND p_chr_id <> OKL_API.G_MISS_NUM) THEN
1008:
1009: -----------------------------------------------------------------
1010: -- get credit line id
1011: -----------------------------------------------------------------
1015: -- 1st to get new credit line id if there is any
1016: -- 1. old list <> new list
1017: -- 2. No old list, create a new list
1018: IF ((p_creditline_id IS NOT NULL AND
1019: p_creditline_id <> OKL_API.G_MISS_NUM AND
1020: l_old_credit_id IS NOT NULL AND
1021: l_old_credit_id <> p_creditline_id)
1022: OR
1023: (l_old_credit_id IS NULL AND
1021: l_old_credit_id <> p_creditline_id)
1022: OR
1023: (l_old_credit_id IS NULL AND
1024: p_creditline_id IS NOT NULL AND
1025: p_creditline_id <> OKL_API.G_MISS_NUM)
1026: ) THEN
1027:
1028: l_refresh_flag := true;
1029: l_final_creditline_id := p_creditline_id;
1030:
1031: END IF;
1032:
1033: IF ( p_creditline_id IS NULL OR
1034: p_creditline_id = OKL_API.G_MISS_NUM) THEN
1035:
1036: --------------------------------------------------------------------------------
1037: -- 1. p_MLA_id could be NULL
1038: -- 2. MLA doesn't have credit line attached
1128: p_fund_req_id => l_fund_req_id,
1129: p_creditline_id => l_final_creditline_id);
1130:
1131:
1132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1135: RAISE OKL_API.G_EXCEPTION_ERROR;
1136: END IF;
1129: p_creditline_id => l_final_creditline_id);
1130:
1131:
1132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1135: RAISE OKL_API.G_EXCEPTION_ERROR;
1136: END IF;
1137:
1130:
1131:
1132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1135: RAISE OKL_API.G_EXCEPTION_ERROR;
1136: END IF;
1137:
1138: END LOOP;-- Funding requests
1131:
1132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1135: RAISE OKL_API.G_EXCEPTION_ERROR;
1136: END IF;
1137:
1138: END LOOP;-- Funding requests
1139: CLOSE c_fund_req;
1155: (p_count => x_msg_count,
1156: p_data => x_msg_data);
1157:
1158: EXCEPTION
1159: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1160: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
1161: x_return_status := OKL_API.G_RET_STS_ERROR;
1162: FND_MSG_PUB.Count_And_Get
1163: (p_count => x_msg_count,
1157:
1158: EXCEPTION
1159: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1160: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
1161: x_return_status := OKL_API.G_RET_STS_ERROR;
1162: FND_MSG_PUB.Count_And_Get
1163: (p_count => x_msg_count,
1164: p_data => x_msg_data);
1165:
1162: FND_MSG_PUB.Count_And_Get
1163: (p_count => x_msg_count,
1164: p_data => x_msg_data);
1165:
1166: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1167: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
1168: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1169: FND_MSG_PUB.Count_And_Get
1170: (p_count => x_msg_count,
1164: p_data => x_msg_data);
1165:
1166: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1167: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
1168: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1169: FND_MSG_PUB.Count_And_Get
1170: (p_count => x_msg_count,
1171: p_data => x_msg_data);
1172:
1171: p_data => x_msg_data);
1172:
1173: WHEN OTHERS THEN
1174: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
1175: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1176: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1177: p_msg_name => G_UNEXPECTED_ERROR,
1178: p_token1 => G_SQLCODE_TOKEN,
1179: p_token1_value => SQLCODE,
1172:
1173: WHEN OTHERS THEN
1174: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
1175: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1176: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1177: p_msg_name => G_UNEXPECTED_ERROR,
1178: p_token1 => G_SQLCODE_TOKEN,
1179: p_token1_value => SQLCODE,
1180: p_token2 => G_SQLERRM_TOKEN,
1398:
1399: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
1400:
1401: BEGIN
1402: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1403: -- Call start_activity to create savepoint, check compatibility
1404: -- and initialize message list
1405: x_return_status := OKL_API.START_ACTIVITY (
1406: l_api_name,
1401: BEGIN
1402: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1403: -- Call start_activity to create savepoint, check compatibility
1404: -- and initialize message list
1405: x_return_status := OKL_API.START_ACTIVITY (
1406: l_api_name,
1407: p_init_msg_list,
1408: '_PVT',
1409: x_return_status);
1407: p_init_msg_list,
1408: '_PVT',
1409: x_return_status);
1410: -- Check if activity started successfully
1411: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1408: '_PVT',
1409: x_return_status);
1410: -- Check if activity started successfully
1411: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416:
1409: x_return_status);
1410: -- Check if activity started successfully
1411: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416:
1417:
1410: -- Check if activity started successfully
1411: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416:
1417:
1418: IF (p_status = 'APPROVED') THEN
1514: x_primary_sty_id => l_stream_id );
1515:
1516: END IF;
1517:
1518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_ERROR;
1522: END IF;
1515:
1516: END IF;
1517:
1518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_ERROR;
1522: END IF;
1523: -- cklee: user defined stream changes
1516: END IF;
1517:
1518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_ERROR;
1522: END IF;
1523: -- cklee: user defined stream changes
1524:
1517:
1518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_ERROR;
1522: END IF;
1523: -- cklee: user defined stream changes
1524:
1525:
1559: ,p_trx_date => l_date_invoiced
1560: ,x_fact_synd_code => l_fact_synd_code
1561: ,x_inv_acct_code => l_inv_acct_code);
1562:
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1560: ,x_fact_synd_code => l_fact_synd_code
1561: ,x_inv_acct_code => l_inv_acct_code);
1562:
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568:
1561: ,x_inv_acct_code => l_inv_acct_code);
1562:
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568:
1569: cnt := 0;
1562:
1563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1564: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1566: RAISE OKL_API.G_EXCEPTION_ERROR;
1567: END IF;
1568:
1569: cnt := 0;
1570: FOR r_this IN c_fund_lines (p_fund_id) LOOP
1691: ,x_amount_tbl => l_amount_tbl
1692: ,p_trx_header_id => p_fund_id
1693: ,p_trx_header_table => 'OKL_TRX_AP_INVOICES_B');
1694:
1695: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1696: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1697: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1698: RAISE OKL_API.G_EXCEPTION_ERROR;
1699: END IF;
1692: ,p_trx_header_id => p_fund_id
1693: ,p_trx_header_table => 'OKL_TRX_AP_INVOICES_B');
1694:
1695: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1696: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1697: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1698: RAISE OKL_API.G_EXCEPTION_ERROR;
1699: END IF;
1700:
1693: ,p_trx_header_table => 'OKL_TRX_AP_INVOICES_B');
1694:
1695: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1696: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1697: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1698: RAISE OKL_API.G_EXCEPTION_ERROR;
1699: END IF;
1700:
1701: END IF;
1694:
1695: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1696: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1697: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1698: RAISE OKL_API.G_EXCEPTION_ERROR;
1699: END IF;
1700:
1701: END IF;
1702: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
1700:
1701: END IF;
1702: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
1703:
1704: OKL_API.END_ACTIVITY (x_msg_count,
1705: x_msg_data );
1706: EXCEPTION
1707: WHEN OTHERS THEN
1708: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1704: OKL_API.END_ACTIVITY (x_msg_count,
1705: x_msg_data );
1706: EXCEPTION
1707: WHEN OTHERS THEN
1708: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1709: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1710: p_msg_name => G_UNEXPECTED_ERROR,
1711: p_token1 => G_SQLCODE_TOKEN,
1712: p_token1_value => SQLCODE,
1705: x_msg_data );
1706: EXCEPTION
1707: WHEN OTHERS THEN
1708: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1709: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1710: p_msg_name => G_UNEXPECTED_ERROR,
1711: p_token1 => G_SQLCODE_TOKEN,
1712: p_token1_value => SQLCODE,
1713: p_token2 => G_SQLERRM_TOKEN,
1719: p_contract_id IN NUMBER -- contract hdr
1720: ) RETURN NUMBER
1721: IS
1722:
1723: --l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1724: l_api_version NUMBER := 1.0;
1725: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
1726: x_return_status VARCHAR2(1);
1727: x_msg_count NUMBER;
1721: IS
1722:
1723: --l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1724: l_api_version NUMBER := 1.0;
1725: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
1726: x_return_status VARCHAR2(1);
1727: x_msg_count NUMBER;
1728: x_msg_data VARCHAR2(2000);
1729: x_value NUMBER := 0;
1741:
1742:
1743: EXCEPTION
1744: WHEN OTHERS THEN
1745: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1746: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1747: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1748: p_token1 => 'OKL_SQLCODE',
1749: p_token1_value => SQLCODE,
1742:
1743: EXCEPTION
1744: WHEN OTHERS THEN
1745: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1746: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1747: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1748: p_token1 => 'OKL_SQLCODE',
1749: p_token1_value => SQLCODE,
1750: p_token2 => 'OKL_SQLERRM',
1845: RETURN l_yn;
1846:
1847: EXCEPTION
1848: WHEN OTHERS THEN
1849: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1850: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1851: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1852: p_token1 => 'OKL_SQLCODE',
1853: p_token1_value => SQLCODE,
1846:
1847: EXCEPTION
1848: WHEN OTHERS THEN
1849: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1850: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1851: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1852: p_token1 => 'OKL_SQLCODE',
1853: p_token1_value => SQLCODE,
1854: p_token2 => 'OKL_SQLERRM',
1894: and a.ipvs_id = p_vendor_site_id;
1895:
1896: BEGIN
1897:
1898: IF (p_vendor_site_id IS NULL OR p_vendor_site_id = OKL_API.G_MISS_NUM) THEN
1899:
1900: OPEN c (p_contract_id);
1901: FETCH c INTO l_amount;
1902: CLOSE c;
1909: RETURN l_amount;
1910:
1911: EXCEPTION
1912: WHEN OTHERS THEN
1913: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1914: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1915: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1916: p_token1 => 'OKL_SQLCODE',
1917: p_token1_value => SQLCODE,
1910:
1911: EXCEPTION
1912: WHEN OTHERS THEN
1913: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1914: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1915: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1916: p_token1 => 'OKL_SQLCODE',
1917: p_token1_value => SQLCODE,
1918: p_token2 => 'OKL_SQLERRM',
1976: EXCEPTION
1977:
1978:
1979: WHEN OTHERS THEN
1980: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1981: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1982: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1983: p_token1 => 'OKL_SQLCODE',
1984: p_token1_value => SQLCODE,
1977:
1978:
1979: WHEN OTHERS THEN
1980: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1981: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1982: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1983: p_token1 => 'OKL_SQLCODE',
1984: p_token1_value => SQLCODE,
1985: p_token2 => 'OKL_SQLERRM',
2033:
2034: RETURN l_amount;
2035: EXCEPTION
2036: WHEN OTHERS THEN
2037: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2038: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2039: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2040: p_token1 => 'OKL_SQLCODE',
2041: p_token1_value => SQLCODE,
2034: RETURN l_amount;
2035: EXCEPTION
2036: WHEN OTHERS THEN
2037: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2038: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2039: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2040: p_token1 => 'OKL_SQLCODE',
2041: p_token1_value => SQLCODE,
2042: p_token2 => 'OKL_SQLERRM',
2064:
2065: RETURN l_amount;
2066: EXCEPTION
2067: WHEN OTHERS THEN
2068: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2069: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2070: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2071: p_token1 => 'OKL_SQLCODE',
2072: p_token1_value => SQLCODE,
2065: RETURN l_amount;
2066: EXCEPTION
2067: WHEN OTHERS THEN
2068: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2069: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2070: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2071: p_token1 => 'OKL_SQLCODE',
2072: p_token1_value => SQLCODE,
2073: p_token2 => 'OKL_SQLERRM',
2095:
2096: RETURN l_amount;
2097: EXCEPTION
2098: WHEN OTHERS THEN
2099: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2100: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2101: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2102: p_token1 => 'OKL_SQLCODE',
2103: p_token1_value => SQLCODE,
2096: RETURN l_amount;
2097: EXCEPTION
2098: WHEN OTHERS THEN
2099: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2100: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2101: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2102: p_token1 => 'OKL_SQLCODE',
2103: p_token1_value => SQLCODE,
2104: p_token2 => 'OKL_SQLERRM',
2150: and a.ipvs_id = p_vendor_site_id
2151: ;
2152:
2153: BEGIN
2154: IF (p_vendor_site_id IS NULL OR p_vendor_site_id = OKL_API.G_MISS_NUM)
2155: THEN
2156:
2157: OPEN c_tot_asset_fund(p_contract_id);
2158: FETCH c_tot_asset_fund INTO l_amount;
2166:
2167: RETURN l_amount;
2168: EXCEPTION
2169: WHEN OTHERS THEN
2170: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2171: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2172: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2173: p_token1 => 'OKL_SQLCODE',
2174: p_token1_value => SQLCODE,
2167: RETURN l_amount;
2168: EXCEPTION
2169: WHEN OTHERS THEN
2170: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2171: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2172: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2173: p_token1 => 'OKL_SQLCODE',
2174: p_token1_value => SQLCODE,
2175: p_token2 => 'OKL_SQLERRM',
2199:
2200: RETURN l_amount;
2201: EXCEPTION
2202: WHEN OTHERS THEN
2203: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2204: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2205: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2206: p_token1 => 'OKL_SQLCODE',
2207: p_token1_value => SQLCODE,
2200: RETURN l_amount;
2201: EXCEPTION
2202: WHEN OTHERS THEN
2203: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2204: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2205: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2206: p_token1 => 'OKL_SQLCODE',
2207: p_token1_value => SQLCODE,
2208: p_token2 => 'OKL_SQLERRM',
2247:
2248: RETURN l_amount;
2249: EXCEPTION
2250: WHEN OTHERS THEN
2251: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2252: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2253: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2254: p_token1 => 'OKL_SQLCODE',
2255: p_token1_value => SQLCODE,
2248: RETURN l_amount;
2249: EXCEPTION
2250: WHEN OTHERS THEN
2251: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2252: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2253: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2254: p_token1 => 'OKL_SQLCODE',
2255: p_token1_value => SQLCODE,
2256: p_token2 => 'OKL_SQLERRM',
2289:
2290: RETURN l_amount;
2291: EXCEPTION
2292: WHEN OTHERS THEN
2293: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2294:
2295: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2296: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2297: p_token1 => 'OKL_SQLCODE',
2291: EXCEPTION
2292: WHEN OTHERS THEN
2293: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2294:
2295: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2296: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2297: p_token1 => 'OKL_SQLCODE',
2298: p_token1_value => SQLCODE,
2299: p_token2 => 'OKL_SQLERRM',
2443:
2444: BEGIN
2445:
2446:
2447: IF (p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM)
2448: THEN
2449: RETURN 0; -- error
2450: ELSE
2451: OPEN cv1 (p_vendor_site_id);
2578: RETURN l_amount;
2579:
2580: EXCEPTION
2581: WHEN OTHERS THEN
2582: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2583: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2584: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2585: p_token1 => 'OKL_SQLCODE',
2586: p_token1_value => SQLCODE,
2579:
2580: EXCEPTION
2581: WHEN OTHERS THEN
2582: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2583: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2584: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2585: p_token1 => 'OKL_SQLCODE',
2586: p_token1_value => SQLCODE,
2587: p_token2 => 'OKL_SQLERRM',
2720:
2721:
2722: BEGIN
2723:
2724: IF (p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM)
2725: THEN
2726: RETURN 0; -- error
2727: ELSE
2728:
2861: RETURN l_amount;
2862:
2863: EXCEPTION
2864: WHEN OTHERS THEN
2865: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2866: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2867: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2868: p_token1 => 'OKL_SQLCODE',
2869: p_token1_value => SQLCODE,
2862:
2863: EXCEPTION
2864: WHEN OTHERS THEN
2865: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2866: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2867: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2868: p_token1 => 'OKL_SQLCODE',
2869: p_token1_value => SQLCODE,
2870: p_token2 => 'OKL_SQLERRM',
2911: */
2912:
2913: --Bug# 15992711 End Modification
2914:
2915: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2916: l_release_flag okc_rules_b.rule_information1%type;
2917:
2918:
2919: BEGIN
2925: IF (l_release_flag = 'Y') THEN
2926: -- re-leased contract
2927: IF (p_tapv_rec.funding_type_code <> 'MANUAL_DISB' ) THEN
2928:
2929: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2930: p_msg_name => 'OKL_LLA_RELK_FUNDTYPE_CHK',
2931: p_token1 => 'COL_NAME',
2932: p_token1_value => p_tapv_rec.funding_type_code);
2933:
2936: END IF;
2937: RETURN l_return_status;
2938: EXCEPTION
2939: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2940: l_return_status := OKL_API.G_RET_STS_ERROR;
2941: RETURN l_return_status;
2942: WHEN OTHERS THEN
2943: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2944: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2939: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2940: l_return_status := OKL_API.G_RET_STS_ERROR;
2941: RETURN l_return_status;
2942: WHEN OTHERS THEN
2943: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2944: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2945: p_msg_name => G_UNEXPECTED_ERROR,
2946: p_token1 => G_SQLCODE_TOKEN,
2947: p_token1_value => SQLCODE,
2940: l_return_status := OKL_API.G_RET_STS_ERROR;
2941: RETURN l_return_status;
2942: WHEN OTHERS THEN
2943: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2944: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2945: p_msg_name => G_UNEXPECTED_ERROR,
2946: p_token1 => G_SQLCODE_TOKEN,
2947: p_token1_value => SQLCODE,
2948: p_token2 => G_SQLERRM_TOKEN,
2956: FUNCTION validate_funding_checklist(
2957: p_tapv_rec IN tapv_rec_type
2958: ) RETURN VARCHAR2
2959: IS
2960: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2961: l_req_row_found boolean;
2962: l_list_row_not_found boolean;
2963: l_template_row_not_found boolean;
2964:
3068:
3069: -- credit line checklist tempate doesn't exists
3070: IF (l_template_row_not_found) THEN
3071: -- Funding request checklist template not found. Please setup checklist template for associated credit line.
3072: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3073: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK');
3074:
3075: RAISE G_EXCEPTION_HALT_VALIDATION;
3076: END IF;
3085:
3086: IF (l_status IS NOT NULL and l_status <> 'ACTIVE') THEN
3087: -- Funding request checklist template status is new. Please activate Funding request checklist template
3088: -- for associated credit line.
3089: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3090: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK7');
3091:
3092: RAISE G_EXCEPTION_HALT_VALIDATION;
3093: END IF;
3107:
3108: -- funding checklist template expired.
3109: IF (l_fund_cls_tpl_exp_found) THEN
3110: -- Funding request checklist template expired. Please modify effective date of Funding request checklist template.
3111: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3112: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK6');
3113:
3114: RAISE G_EXCEPTION_HALT_VALIDATION;
3115: END IF;
3134:
3135: -- checklist doesn't exists
3136: IF (l_list_row_not_found) THEN
3137: -- Funding checklist not found. Please update request and setup checklist before submit request.
3138: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3139: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK2');
3140:
3141: RAISE G_EXCEPTION_HALT_VALIDATION;
3142: END IF;
3154:
3155: -- all required items have not met requirement
3156: IF (l_req_row_found) THEN
3157: -- Funding request has not met all checklist items. Please check off all mandatory checklist items.
3158: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3159: p_msg_name => 'OKL_LLA_FUND_CHKLST');
3160:
3161: RAISE G_EXCEPTION_HALT_VALIDATION;
3162: END IF;
3165: RETURN l_return_status;
3166:
3167: EXCEPTION
3168: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3169: l_return_status := OKL_API.G_RET_STS_ERROR;
3170: RETURN l_return_status;
3171: WHEN OTHERS THEN
3172: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3173:
3168: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3169: l_return_status := OKL_API.G_RET_STS_ERROR;
3170: RETURN l_return_status;
3171: WHEN OTHERS THEN
3172: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3173:
3174: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3175: p_msg_name => G_UNEXPECTED_ERROR,
3176: p_token1 => G_SQLCODE_TOKEN,
3170: RETURN l_return_status;
3171: WHEN OTHERS THEN
3172: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3173:
3174: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3175: p_msg_name => G_UNEXPECTED_ERROR,
3176: p_token1 => G_SQLCODE_TOKEN,
3177: p_token1_value => SQLCODE,
3178: p_token2 => G_SQLERRM_TOKEN,
3188: p_tapv_rec IN tapv_rec_type
3189: ) RETURN VARCHAR2
3190: IS
3191:
3192: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3193: l_amount NUMBER := 0;
3194: BEGIN
3195:
3196: -- trx_status_code is required:
3194: BEGIN
3195:
3196: -- trx_status_code is required:
3197: IF (p_tapv_rec.trx_status_code IS NULL) OR
3198: (p_tapv_rec.trx_status_code = OKL_API.G_MISS_CHAR)
3199:
3200: THEN
3201: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3202: p_msg_name => G_REQUIRED_VALUE,
3197: IF (p_tapv_rec.trx_status_code IS NULL) OR
3198: (p_tapv_rec.trx_status_code = OKL_API.G_MISS_CHAR)
3199:
3200: THEN
3201: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3202: p_msg_name => G_REQUIRED_VALUE,
3203: p_token1 => G_COL_NAME_TOKEN,
3204: p_token1_value => 'Request Status');
3205: RAISE G_EXCEPTION_HALT_VALIDATION;
3207:
3208: RETURN l_return_status;
3209: EXCEPTION
3210: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3211: l_return_status := OKL_API.G_RET_STS_ERROR;
3212: RETURN l_return_status;
3213: WHEN OTHERS THEN
3214: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3215: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3210: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3211: l_return_status := OKL_API.G_RET_STS_ERROR;
3212: RETURN l_return_status;
3213: WHEN OTHERS THEN
3214: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3215: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3216: p_msg_name => G_UNEXPECTED_ERROR,
3217: p_token1 => G_SQLCODE_TOKEN,
3218: p_token1_value => SQLCODE,
3211: l_return_status := OKL_API.G_RET_STS_ERROR;
3212: RETURN l_return_status;
3213: WHEN OTHERS THEN
3214: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3215: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3216: p_msg_name => G_UNEXPECTED_ERROR,
3217: p_token1 => G_SQLCODE_TOKEN,
3218: p_token1_value => SQLCODE,
3219: p_token2 => G_SQLERRM_TOKEN,
3229: p_tapv_rec IN tapv_rec_type
3230: ) RETURN VARCHAR2
3231:
3232: IS
3233: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3234: BEGIN
3235:
3236:
3237: -- payment_due_date is required:
3235:
3236:
3237: -- payment_due_date is required:
3238: IF (p_tapv_rec.date_invoiced IS NULL) OR
3239: (p_tapv_rec.date_invoiced = OKL_API.G_MISS_DATE)
3240: THEN
3241: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3242: p_msg_name => G_REQUIRED_VALUE,
3243: p_token1 => G_COL_NAME_TOKEN,
3237: -- payment_due_date is required:
3238: IF (p_tapv_rec.date_invoiced IS NULL) OR
3239: (p_tapv_rec.date_invoiced = OKL_API.G_MISS_DATE)
3240: THEN
3241: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3242: p_msg_name => G_REQUIRED_VALUE,
3243: p_token1 => G_COL_NAME_TOKEN,
3244: p_token1_value => 'Payment due date');
3245: RAISE G_EXCEPTION_HALT_VALIDATION;
3248: /*** comment out this check
3249: -- date range check : date_entered will be default to sysdate @ UI
3250: IF (trunc(p_tapv_rec.date_invoiced) < trunc(p_tapv_rec.date_entered))
3251: THEN
3252: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3253: p_msg_name => 'OKL_LLA_RANGE_CHECK',
3254: p_token1 => 'COL_NAME1',
3255: p_token1_value => 'Payment due date',
3256: p_token2 => 'COL_NAME2',
3261: ***/
3262: RETURN l_return_status;
3263: EXCEPTION
3264: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3265: l_return_status := OKL_API.G_RET_STS_ERROR;
3266: RETURN l_return_status;
3267: WHEN OTHERS THEN
3268: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3269: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3264: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3265: l_return_status := OKL_API.G_RET_STS_ERROR;
3266: RETURN l_return_status;
3267: WHEN OTHERS THEN
3268: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3269: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3270: p_msg_name => G_UNEXPECTED_ERROR,
3271: p_token1 => G_SQLCODE_TOKEN,
3272: p_token1_value => SQLCODE,
3265: l_return_status := OKL_API.G_RET_STS_ERROR;
3266: RETURN l_return_status;
3267: WHEN OTHERS THEN
3268: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3269: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3270: p_msg_name => G_UNEXPECTED_ERROR,
3271: p_token1 => G_SQLCODE_TOKEN,
3272: p_token1_value => SQLCODE,
3273: p_token2 => G_SQLERRM_TOKEN,
3282: FUNCTION validate_header_amount(
3283: p_tapv_rec IN tapv_rec_type
3284: ) RETURN VARCHAR2
3285: IS
3286: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3287: l_api_version NUMBER := 1.0;
3288: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
3289: x_return_status VARCHAR2(1);
3290: x_msg_count NUMBER;
3284: ) RETURN VARCHAR2
3285: IS
3286: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3287: l_api_version NUMBER := 1.0;
3288: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
3289: x_return_status VARCHAR2(1);
3290: x_msg_count NUMBER;
3291: x_msg_data VARCHAR2(2000);
3292: x_value NUMBER := 0;
3420:
3421: -- header Amount is required
3422: IF ((p_tapv_rec.funding_type_code in ('PREFUNDING','BORROWER_PAYMENT')) AND
3423: (p_tapv_rec.amount IS NULL OR
3424: p_tapv_rec.amount = OKL_API.G_MISS_NUM))
3425: THEN
3426: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3427: p_msg_name => G_REQUIRED_VALUE,
3428: p_token1 => G_COL_NAME_TOKEN,
3422: IF ((p_tapv_rec.funding_type_code in ('PREFUNDING','BORROWER_PAYMENT')) AND
3423: (p_tapv_rec.amount IS NULL OR
3424: p_tapv_rec.amount = OKL_API.G_MISS_NUM))
3425: THEN
3426: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3427: p_msg_name => G_REQUIRED_VALUE,
3428: p_token1 => G_COL_NAME_TOKEN,
3429: p_token1_value => 'Amount');
3430: RAISE G_EXCEPTION_HALT_VALIDATION;
3468: IF ( l_credit_id IS NULL AND
3469: p_tapv_rec.funding_type_code NOT IN ('SUPPLIER_RETENTION', 'MANUAL_DISB')) THEN
3470: -- Your request cannot be submitted. Credit line for this contract doesn't exists.
3471: l_message_name := 'OKL_LLA_FUND_CREDIT_AMT_CHK2';
3472: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3473: p_msg_name => l_message_name);
3474:
3475: RAISE G_EXCEPTION_HALT_VALIDATION;
3476: END IF;
3495: END IF;
3496:
3497: -- check amount
3498: IF (l_cur_amount = 0 ) THEN
3499: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3500: p_msg_name => 'OKL_LLA_AMOUNT_CHECK');
3501: RAISE G_EXCEPTION_HALT_VALIDATION;
3502: END IF;
3503:
3517:
3518: -- start: 23-May-2005 cklee okl.h Lease App IA Authoring |
3519: l_chk_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_tapv_rec.khr_id);
3520: IF l_loan_row_found OR (NOT l_loan_row_found and l_chk_credit_id is not null) THEN
3521: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3522: p_msg_name => l_message_name);
3523: RAISE G_EXCEPTION_HALT_VALIDATION;
3524: END IF;
3525: -- end: 23-May-2005 cklee okl.h Lease App IA Authoring |
3533: l_resuts_amount := l_total_hasbeen_funded_amount + l_cur_amount;
3534: --Your request cannot be submitted. The total funded amount cannot be less than 0.
3535: IF (l_resuts_amount < 0) THEN
3536: l_message_name := 'OKL_LLA_ADJUSTMENTS_AMT_CHK';
3537: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3538: p_msg_name => l_message_name);
3539: RAISE G_EXCEPTION_HALT_VALIDATION;
3540:
3541: END IF;
3555: --Your request cannot be submitted. The total funded amount cannot be less than 0.
3556: IF (l_resuts_amount < 0) THEN
3557: l_message_name := 'OKL_LLA_ADJUSTMENTS_AMT_CHK';
3558:
3559: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3560: p_msg_name => l_message_name);
3561: RAISE G_EXCEPTION_HALT_VALIDATION;
3562:
3563: END IF;
3572: -- booked: check contract
3573: IF (l_booked_count > 0 AND l_cur_amount > 0 ) THEN
3574: --Your request cannot be submitted. Pre-funding requests are not allowed for contracts in Booked status.
3575: l_message_name := 'OKL_LLA_PREFUNDED_AMT_CHK2';
3576: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3577: p_msg_name => l_message_name);
3578: RAISE G_EXCEPTION_HALT_VALIDATION;
3579: END IF;
3580:
3610:
3611: IF (l_invalid_fund <> 'X') THEN
3612:
3613: l_message_name := 'OKL_LLA_FUND_ASSET_AMT_CHK';
3614: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3615: p_msg_name => l_message_name,
3616: p_token1 => 'ASSET_NUMBER',
3617: p_token1_value => l_invalid_fund);
3618: RAISE G_EXCEPTION_HALT_VALIDATION;
3629: IF (l_resuts_amount > l_total_canbe_OEC_amount) THEN
3630: --Your request cannot be submitted. The total amount of this request exceeds
3631: -- the value of the contract total asset amount.
3632: l_message_name := 'OKL_LLA_FUND_TOT_ASSET_AMT_CHK';
3633: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3634: p_msg_name => l_message_name);
3635: RAISE G_EXCEPTION_HALT_VALIDATION;
3636: END IF;
3637:
3646: l_resuts_amount := l_cur_total_amount + l_cur_amount;
3647: IF (l_resuts_amount > l_total_canbe_expense_amount) THEN
3648:
3649: l_message_name := 'OKL_LLA_EXPENSE_AMT_CHK';
3650: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3651: p_msg_name => l_message_name);
3652: RAISE G_EXCEPTION_HALT_VALIDATION;
3653: END IF;
3654:
3664:
3665: IF (l_resuts_amount > l_total_canbe_funded_amount) THEN
3666:
3667: l_message_name := 'OKL_LLA_FUNDED_AMT_CHK';
3668: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3669: p_msg_name => l_message_name);
3670: RAISE G_EXCEPTION_HALT_VALIDATION;
3671: END IF;
3672: END IF;
3673:
3674: RETURN l_return_status;
3675: EXCEPTION
3676: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3677: l_return_status := OKL_API.G_RET_STS_ERROR;
3678: RETURN l_return_status;
3679: WHEN OTHERS THEN
3680: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3681: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3676: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3677: l_return_status := OKL_API.G_RET_STS_ERROR;
3678: RETURN l_return_status;
3679: WHEN OTHERS THEN
3680: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3681: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3682: p_msg_name => G_UNEXPECTED_ERROR,
3683: p_token1 => G_SQLCODE_TOKEN,
3684: p_token1_value => SQLCODE,
3677: l_return_status := OKL_API.G_RET_STS_ERROR;
3678: RETURN l_return_status;
3679: WHEN OTHERS THEN
3680: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3681: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3682: p_msg_name => G_UNEXPECTED_ERROR,
3683: p_token1 => G_SQLCODE_TOKEN,
3684: p_token1_value => SQLCODE,
3685: p_token2 => G_SQLERRM_TOKEN,
3697: FUNCTION validate_header_amount_for_RL(
3698: p_tapv_rec IN tapv_rec_type
3699: ) RETURN VARCHAR2
3700: IS
3701: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3702: l_loan_rev NUMBER := 0;
3703: l_loan_row_found boolean := false;
3704:
3705: -- bug 2604862
3721: -- is loan revolving contract
3722: IF (l_loan_row_found) THEN
3723: IF (p_tapv_rec.funding_type_code = 'PREFUNDING' AND nvl(p_tapv_rec.amount,0) >= 0 ) THEN
3724: --Please enter negative amount for your adjustment. Revolving line of credit loan contract are not allowed for pre-funding request with positive amount.
3725: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3726: p_msg_name => 'OKL_LLA_REVLOAN_ADJ_AMT_CHK');
3727: RAISE G_EXCEPTION_HALT_VALIDATION;
3728:
3729: END IF;
3728:
3729: END IF;
3730:
3731: IF (p_tapv_rec.funding_type_code = 'BORROWER_PAYMENT' AND nvl(p_tapv_rec.amount,0) < 0 ) THEN
3732: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3733: p_msg_name => 'OKL_LLA_POSITIVE_AMOUNT_ONLY',
3734: p_token1 => 'COL_NAME',
3735: p_token1_value => 'Amount');
3736:
3743:
3744: RETURN l_return_status;
3745: EXCEPTION
3746: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3747: l_return_status := OKL_API.G_RET_STS_ERROR;
3748:
3749: RETURN l_return_status;
3750: WHEN OTHERS THEN
3751: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3747: l_return_status := OKL_API.G_RET_STS_ERROR;
3748:
3749: RETURN l_return_status;
3750: WHEN OTHERS THEN
3751: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3752: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3753: p_msg_name => G_UNEXPECTED_ERROR,
3754: p_token1 => G_SQLCODE_TOKEN,
3755: p_token1_value => SQLCODE,
3748:
3749: RETURN l_return_status;
3750: WHEN OTHERS THEN
3751: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3752: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3753: p_msg_name => G_UNEXPECTED_ERROR,
3754: p_token1 => G_SQLCODE_TOKEN,
3755: p_token1_value => SQLCODE,
3756: p_token2 => G_SQLERRM_TOKEN,
3764: FUNCTION populate_more_attrs(
3765: p_tapv_rec IN OUT NOCOPY tapv_rec_type
3766: ) RETURN VARCHAR2
3767: IS
3768: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3769: -- l_set_of_books_id NUMBER;
3770: l_terms_id NUMBER;
3771: l_application_id NUMBER;
3772: l_pay_group_lookup_code PO_VENDOR_SITES_ALL.PAY_GROUP_LOOKUP_CODE%TYPE;
3824: p_tapv_rec.SET_OF_BOOKS_ID := OKL_ACCOUNTING_UTIL.get_set_of_books_id;--l_set_of_books_id;
3825: -- 2. IPPT_ID
3826: -- cklee 05/04/2004
3827: IF (p_tapv_rec.IPPT_ID IS NULL or
3828: p_tapv_rec.IPPT_ID = OKL_API.G_MISS_NUM) THEN
3829:
3830: OPEN c_vendor_sites(p_tapv_rec.ipvs_id);
3831: FETCH c_vendor_sites INTO l_terms_id, l_pay_group_lookup_code;
3832: CLOSE c_vendor_sites;
3857: dbseqid => lx_dbseqid);
3858: EXCEPTION
3859: WHEN OTHERS THEN
3860: IF SQLCODE = 100 THEN
3861: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3862: p_msg_name => 'OKL_PAY_INV_SEQ_CHECK');
3863: RAISE G_EXCEPTION_HALT_VALIDATION;
3864: END IF;
3865: END;
3874:
3875: -- 5. PAY_GROUP_LOOKUP_CODE
3876: -- cklee 05/04/2004
3877: IF (p_tapv_rec.PAY_GROUP_LOOKUP_CODE IS NULL or
3878: p_tapv_rec.PAY_GROUP_LOOKUP_CODE = OKL_API.G_MISS_CHAR) THEN
3879:
3880: -- fixed PAY_GROUP_LOOKUP_CODE default data missing issues
3881: OPEN c_vendor_sites(p_tapv_rec.ipvs_id);
3882: FETCH c_vendor_sites INTO l_terms_id, l_pay_group_lookup_code;
3896: -- 7. invoice_type
3897: -- cklee 05/04/2004
3898:
3899: IF (p_tapv_rec.INVOICE_TYPE is null or
3900: p_tapv_rec.INVOICE_TYPE = OKL_API.G_MISS_CHAR) THEN
3901:
3902: p_tapv_rec.INVOICE_TYPE := G_STANDARD;
3903:
3904: END IF;
3920: EXCEPTION
3921:
3922: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3923:
3924: l_return_status := OKL_API.G_RET_STS_ERROR;
3925:
3926:
3927: RETURN l_return_status;
3928: WHEN OTHERS THEN
3925:
3926:
3927: RETURN l_return_status;
3928: WHEN OTHERS THEN
3929: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3930:
3931: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3932: p_msg_name => G_UNEXPECTED_ERROR,
3933: p_token1 => G_SQLCODE_TOKEN,
3927: RETURN l_return_status;
3928: WHEN OTHERS THEN
3929: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3930:
3931: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3932: p_msg_name => G_UNEXPECTED_ERROR,
3933: p_token1 => G_SQLCODE_TOKEN,
3934: p_token1_value => SQLCODE,
3935: p_token2 => G_SQLERRM_TOKEN,
3946: ,p_funding_type_code IN VARCHAR2
3947: ) RETURN VARCHAR2
3948:
3949: IS
3950: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3951: l_status OKC_STATUSES_V.meaning%TYPE;
3952:
3953: CURSOR c_sts (p_contract_id NUMBER)
3954: IS
3967: OPEN c_sts(p_chr_id);
3968: FETCH c_sts INTO l_status;
3969: CLOSE c_sts;
3970:
3971: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3972: p_msg_name => 'OKL_LLA_INVALID_FUNDED_REQUEST',
3973: p_token1 => 'CHR_STATUS',
3974: p_token1_value => l_status);
3975: RAISE G_EXCEPTION_HALT_VALIDATION;
3977:
3978: RETURN l_return_status;
3979: EXCEPTION
3980: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3981: l_return_status := OKL_API.G_RET_STS_ERROR;
3982: RETURN l_return_status;
3983: WHEN OTHERS THEN
3984:
3985: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3981: l_return_status := OKL_API.G_RET_STS_ERROR;
3982: RETURN l_return_status;
3983: WHEN OTHERS THEN
3984:
3985: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3986: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3987: p_msg_name => G_UNEXPECTED_ERROR,
3988: p_token1 => G_SQLCODE_TOKEN,
3989: p_token1_value => SQLCODE,
3982: RETURN l_return_status;
3983: WHEN OTHERS THEN
3984:
3985: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3986: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3987: p_msg_name => G_UNEXPECTED_ERROR,
3988: p_token1 => G_SQLCODE_TOKEN,
3989: p_token1_value => SQLCODE,
3990: p_token2 => G_SQLERRM_TOKEN,
4001:
4002:
4003: IS
4004:
4005: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4006:
4007: l_REVOLVING_CREDIT_YN OKL_K_HEADERS.REVOLVING_CREDIT_YN%TYPE;
4008: l_END_DATE OKC_K_HEADERS_B.END_DATE%TYPE;
4009:
4054:
4055: --Either Revolving line of credit attach to a normal contract (book classification is not LOAN-REVOLVING)
4056: -- or non-revolving line of credit attach to LOAN-REVOLVING contract.
4057: -- Invalid credit line attach to funding request contract.
4058: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4059: p_msg_name => 'OKL_LLA_CREDITLINE_CHECK');
4060:
4061: RAISE G_EXCEPTION_HALT_VALIDATION;
4062:
4064:
4065: --Bug# 10144381: Do not check credit line expiry for Manual Disbursements
4066: IF (NVL(p_tapv_rec.funding_type_code,'XXX') <> G_MANUAL_DISB) THEN
4067: IF (trunc(l_END_DATE) < trunc(SYSDATE)) THEN
4068: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4069: p_msg_name => 'OKL_LLA_CREDITLINE_EXPIRED');
4070:
4071: RAISE G_EXCEPTION_HALT_VALIDATION;
4072:
4080: -- start: 23-May-2005 cklee okl.h Lease App IA Authoring
4081: -- Credit Line is not required after okl.h except loan-revolving contract
4082: --
4083: IF l_DEAL_TYPE = 'LOAN-REVOLVING' THEN
4084: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4085: p_msg_name => 'OKL_LLA_CREDITLINE_NOTFOUND');
4086:
4087: RAISE G_EXCEPTION_HALT_VALIDATION;
4088: END IF;
4095: RETURN l_return_status;
4096: EXCEPTION
4097:
4098: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4099: l_return_status := OKL_API.G_RET_STS_ERROR;
4100: RETURN l_return_status;
4101: WHEN OTHERS THEN
4102: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4103: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4098: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4099: l_return_status := OKL_API.G_RET_STS_ERROR;
4100: RETURN l_return_status;
4101: WHEN OTHERS THEN
4102: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4103: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4104: p_msg_name => G_UNEXPECTED_ERROR,
4105: p_token1 => G_SQLCODE_TOKEN,
4106: p_token1_value => SQLCODE,
4099: l_return_status := OKL_API.G_RET_STS_ERROR;
4100: RETURN l_return_status;
4101: WHEN OTHERS THEN
4102: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4103: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4104: p_msg_name => G_UNEXPECTED_ERROR,
4105: p_token1 => G_SQLCODE_TOKEN,
4106: p_token1_value => SQLCODE,
4107: p_token2 => G_SQLERRM_TOKEN,
4115: FUNCTION validate_vendor_invoice_number(
4116: p_tapv_rec IN tapv_rec_type
4117: ) RETURN VARCHAR2
4118: IS
4119: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4120: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
4121: BEGIN
4122: -- Invoice Number is required:
4123: -- TO DO: When in 'C'reate mode - allow user to omit invoice
4116: p_tapv_rec IN tapv_rec_type
4117: ) RETURN VARCHAR2
4118: IS
4119: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4120: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
4121: BEGIN
4122: -- Invoice Number is required:
4123: -- TO DO: When in 'C'reate mode - allow user to omit invoice
4124: -- (funding request) number and generate one automatically,
4126: -- combination is unique in OKL_TRX_AP_INVOICES_V (OKL) and
4127: -- in the AP_INVOICES_ALL (AP).
4128:
4129: IF (p_tapv_rec.vendor_invoice_number IS NULL) OR
4130: (p_tapv_rec.vendor_invoice_number = OKL_API.G_MISS_CHAR)
4131: THEN
4132: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4133: p_msg_name => G_REQUIRED_VALUE,
4134: p_token1 => G_COL_NAME_TOKEN,
4128:
4129: IF (p_tapv_rec.vendor_invoice_number IS NULL) OR
4130: (p_tapv_rec.vendor_invoice_number = OKL_API.G_MISS_CHAR)
4131: THEN
4132: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4133: p_msg_name => G_REQUIRED_VALUE,
4134: p_token1 => G_COL_NAME_TOKEN,
4135: p_token1_value => 'Request Number');
4136: RAISE G_EXCEPTION_HALT_VALIDATION;
4138:
4139: -- due to the external interface table limit to 30 chars
4140: IF (length(p_tapv_rec.vendor_invoice_number) > 30)
4141: THEN
4142: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4143: p_msg_name => 'OKL_LLA_EXCEED_MAXIMUM_LENGTH',
4144: p_token1 => 'MAX_CHARS',
4145: p_token1_value => 'thirty',
4146: p_token2 => 'COL_NAME',
4151:
4152: RETURN l_return_status;
4153: EXCEPTION
4154: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4155: l_return_status := OKL_API.G_RET_STS_ERROR;
4156: RETURN l_return_status;
4157: WHEN OTHERS THEN
4158: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4159: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4154: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4155: l_return_status := OKL_API.G_RET_STS_ERROR;
4156: RETURN l_return_status;
4157: WHEN OTHERS THEN
4158: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4159: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4160: p_msg_name => G_UNEXPECTED_ERROR,
4161: p_token1 => G_SQLCODE_TOKEN,
4162: p_token1_value => SQLCODE,
4155: l_return_status := OKL_API.G_RET_STS_ERROR;
4156: RETURN l_return_status;
4157: WHEN OTHERS THEN
4158: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4159: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4160: p_msg_name => G_UNEXPECTED_ERROR,
4161: p_token1 => G_SQLCODE_TOKEN,
4162: p_token1_value => SQLCODE,
4163: p_token2 => G_SQLERRM_TOKEN,
4171: FUNCTION validate_ipvs_id(
4172: p_tapv_rec IN tapv_rec_type
4173: ) RETURN VARCHAR2
4174: IS
4175: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4176: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
4177: l_dum number;
4178: l_rl_found boolean;
4179: l_lv_found boolean;
4172: p_tapv_rec IN tapv_rec_type
4173: ) RETURN VARCHAR2
4174: IS
4175: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4176: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
4177: l_dum number;
4178: l_rl_found boolean;
4179: l_lv_found boolean;
4180:
4191:
4192:
4193: BEGIN
4194: IF (p_tapv_rec.ipvs_id IS NULL) OR
4195: (p_tapv_rec.ipvs_id = OKL_API.G_MISS_NUM)
4196: THEN
4197:
4198: -- 10-10-2003 cklee fixed bug# 3159723
4199: open c_rl(p_tapv_rec.khr_id);
4202: close c_rl;
4203:
4204: IF (l_rl_found) THEN
4205:
4206: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4207: p_msg_name => 'OKL_LLA_LESSEE_AS_VENDOR_CHK');
4208: ELSE
4209:
4210: open c_lv(p_tapv_rec.khr_id);
4213: close c_lv;
4214:
4215: IF (l_lv_found) THEN
4216:
4217: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4218: p_msg_name => G_REQUIRED_VALUE,
4219: p_token1 => G_COL_NAME_TOKEN,
4220: p_token1_value => 'Vendor Site');
4221: ELSE
4219: p_token1 => G_COL_NAME_TOKEN,
4220: p_token1_value => 'Vendor Site');
4221: ELSE
4222:
4223: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4224: p_msg_name => 'OKL_LLA_FUNDING_VENDOR_CHK');
4225:
4226: END IF;
4227: END IF;
4232:
4233: RETURN l_return_status;
4234: EXCEPTION
4235: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4236: l_return_status := OKL_API.G_RET_STS_ERROR;
4237:
4238: RETURN l_return_status;
4239: WHEN OTHERS THEN
4240: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4236: l_return_status := OKL_API.G_RET_STS_ERROR;
4237:
4238: RETURN l_return_status;
4239: WHEN OTHERS THEN
4240: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4241: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4242: p_msg_name => G_UNEXPECTED_ERROR,
4243: p_token1 => G_SQLCODE_TOKEN,
4244: p_token1_value => SQLCODE,
4237:
4238: RETURN l_return_status;
4239: WHEN OTHERS THEN
4240: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4241: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4242: p_msg_name => G_UNEXPECTED_ERROR,
4243: p_token1 => G_SQLCODE_TOKEN,
4244: p_token1_value => SQLCODE,
4245: p_token2 => G_SQLERRM_TOKEN,
4254: p_tapv_rec IN tapv_rec_type
4255: ,p_mode IN VARCHAR2 -- 'C'reate,'U'pdate,'D'elete
4256: ) RETURN VARCHAR2
4257: IS
4258: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4259: l_loan_rev NUMBER := 0;
4260: l_loan_row_found boolean := false;
4261: l_prefunding_eligible_yn okl_k_headers.PREFUNDING_ELIGIBLE_YN%type;
4262: l_trx_status_code okl_trx_ap_invoices_b.trx_status_code%type;
4311: IF (l_loan_row_found) THEN
4312: IF (p_tapv_rec.funding_type_code NOT IN ('PREFUNDING','BORROWER_PAYMENT', 'MANUAL_DISB') ) THEN
4313:
4314: --Revolving line of credit loan contract are not allowed for TOKEN funding type.
4315: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4316: p_msg_name => 'OKL_LLA_REVLOAN_FUNDTYPE_CHK',
4317: p_token1 => 'COL_NAME',
4318: p_token1_value => p_tapv_rec.funding_type_code);
4319:
4325: ELSE -- is not revolvong line of credit loan contract
4326: IF (p_tapv_rec.funding_type_code IN ('BORROWER_PAYMENT') ) THEN
4327:
4328: --Borrower payment funding type is allow for revolving line of credit loan contract only.
4329: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4330: p_msg_name => 'OKL_LLA_FUNDING_TYPE_CHK');
4331: RAISE G_EXCEPTION_HALT_VALIDATION;
4332:
4333: END IF;
4336: -- bug 2604862
4337:
4338: -- funding_type_code is required
4339: IF (p_tapv_rec.funding_type_code IS NULL) OR
4340: (p_tapv_rec.funding_type_code = OKL_API.G_MISS_CHAR)
4341: THEN
4342: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4343: p_msg_name => G_REQUIRED_VALUE,
4344: p_token1 => G_COL_NAME_TOKEN,
4338: -- funding_type_code is required
4339: IF (p_tapv_rec.funding_type_code IS NULL) OR
4340: (p_tapv_rec.funding_type_code = OKL_API.G_MISS_CHAR)
4341: THEN
4342: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4343: p_msg_name => G_REQUIRED_VALUE,
4344: p_token1 => G_COL_NAME_TOKEN,
4345: p_token1_value => 'Funding Type');
4346: RAISE G_EXCEPTION_HALT_VALIDATION;
4376: -- CKLEE 02-24-2003 :internal request will have the same value for these 2 columns
4377: IF (l_reverse_row_notfound) THEN
4378: -- You are not allowed to submit pre-funding request if Eligible For Pre-Funding
4379: -- has not been set for this contract.
4380: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4381: p_msg_name => 'OKL_LLA_PREFUND_ELIGIBLE_CHK');
4382: RAISE G_EXCEPTION_HALT_VALIDATION;
4383: END IF;
4384:
4388:
4389: RETURN l_return_status;
4390: EXCEPTION
4391: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4392: l_return_status := OKL_API.G_RET_STS_ERROR;
4393: RETURN l_return_status;
4394: WHEN OTHERS THEN
4395: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4396: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4391: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4392: l_return_status := OKL_API.G_RET_STS_ERROR;
4393: RETURN l_return_status;
4394: WHEN OTHERS THEN
4395: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4396: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4397: p_msg_name => G_UNEXPECTED_ERROR,
4398: p_token1 => G_SQLCODE_TOKEN,
4399: p_token1_value => SQLCODE,
4392: l_return_status := OKL_API.G_RET_STS_ERROR;
4393: RETURN l_return_status;
4394: WHEN OTHERS THEN
4395: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4396: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4397: p_msg_name => G_UNEXPECTED_ERROR,
4398: p_token1 => G_SQLCODE_TOKEN,
4399: p_token1_value => SQLCODE,
4400: p_token2 => G_SQLERRM_TOKEN,
4411: FUNCTION validate_payment_method(
4412: p_tapv_rec IN tapv_rec_type
4413: ) RETURN VARCHAR2
4414: IS
4415: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4416: BEGIN
4417: -- payment_method_code is required
4418: IF (p_tapv_rec.payment_method_code IS NULL) OR
4419: (p_tapv_rec.payment_method_code = OKL_API.G_MISS_CHAR)
4415: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4416: BEGIN
4417: -- payment_method_code is required
4418: IF (p_tapv_rec.payment_method_code IS NULL) OR
4419: (p_tapv_rec.payment_method_code = OKL_API.G_MISS_CHAR)
4420: THEN
4421: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4422: p_msg_name => G_REQUIRED_VALUE,
4423: p_token1 => G_COL_NAME_TOKEN,
4417: -- payment_method_code is required
4418: IF (p_tapv_rec.payment_method_code IS NULL) OR
4419: (p_tapv_rec.payment_method_code = OKL_API.G_MISS_CHAR)
4420: THEN
4421: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4422: p_msg_name => G_REQUIRED_VALUE,
4423: p_token1 => G_COL_NAME_TOKEN,
4424: p_token1_value => 'Payment Method');
4425: RAISE G_EXCEPTION_HALT_VALIDATION;
4426: END IF;
4427: RETURN l_return_status;
4428: EXCEPTION
4429: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4430: l_return_status := OKL_API.G_RET_STS_ERROR;
4431: RETURN l_return_status;
4432: WHEN OTHERS THEN
4433: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4434: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4429: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4430: l_return_status := OKL_API.G_RET_STS_ERROR;
4431: RETURN l_return_status;
4432: WHEN OTHERS THEN
4433: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4434: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4435: p_msg_name => G_UNEXPECTED_ERROR,
4436: p_token1 => G_SQLCODE_TOKEN,
4437: p_token1_value => SQLCODE,
4430: l_return_status := OKL_API.G_RET_STS_ERROR;
4431: RETURN l_return_status;
4432: WHEN OTHERS THEN
4433: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4434: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4435: p_msg_name => G_UNEXPECTED_ERROR,
4436: p_token1 => G_SQLCODE_TOKEN,
4437: p_token1_value => SQLCODE,
4438: p_token2 => G_SQLERRM_TOKEN,
4447: FUNCTION validate_invoice_type(
4448: p_tapv_rec IN tapv_rec_type
4449: ) RETURN VARCHAR2
4450: IS
4451: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4452: l_funding_type varchar2(80);
4453:
4454: cursor c_funding_type (p_funding_type_code varchar2)
4455: is
4462: BEGIN
4463:
4464: -- check if value exists
4465: IF (p_tapv_rec.invoice_type IS NOT NULL) AND
4466: (p_tapv_rec.invoice_type <> OKL_API.G_MISS_CHAR)
4467: THEN
4468:
4469: --start: cklee 3/01/07 added invoice type and amount sign check at line level
4470: /*
4482: open c_funding_type(p_tapv_rec.funding_type_code);
4483: fetch c_funding_type into l_funding_type;
4484: close c_funding_type;
4485:
4486: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4487: p_msg_name => 'OKL_LLA_FUNDING_INVOICE_TYPE',
4488: p_token1 => 'INVOICE_TYPE',
4489: p_token1_value => p_tapv_rec.invoice_type,
4490: p_token2 => 'FUNDING_TYPE',
4498:
4499: RETURN l_return_status;
4500: EXCEPTION
4501: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4502: l_return_status := OKL_API.G_RET_STS_ERROR;
4503: RETURN l_return_status;
4504: WHEN OTHERS THEN
4505: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4506: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4501: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4502: l_return_status := OKL_API.G_RET_STS_ERROR;
4503: RETURN l_return_status;
4504: WHEN OTHERS THEN
4505: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4506: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4507: p_msg_name => G_UNEXPECTED_ERROR,
4508: p_token1 => G_SQLCODE_TOKEN,
4509: p_token1_value => SQLCODE,
4502: l_return_status := OKL_API.G_RET_STS_ERROR;
4503: RETURN l_return_status;
4504: WHEN OTHERS THEN
4505: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4506: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4507: p_msg_name => G_UNEXPECTED_ERROR,
4508: p_token1 => G_SQLCODE_TOKEN,
4509: p_token1_value => SQLCODE,
4510: p_token2 => G_SQLERRM_TOKEN,
4520: -- negative.
4521: -------------------------------------------------------------------------
4522: FUNCTION validate_invoice_type_and_sign(p_tapv_rec IN tapv_rec_type
4523: ) RETURN VARCHAR2 IS
4524: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4525: BEGIN
4526: -- If invoice type is G_STANDARD then invoice amount is positive
4527: -- If invoice type is G_CREDIT then the invoice amount is negative.
4528: -- sjalasut, made changes to incorporate the business rule as part
4534: --end: cklee 03/01/07 added the following condition, somehow UI has passed
4535: -- wrong data.
4536: IF((p_tapv_rec.INVOICE_TYPE = G_STANDARD AND p_tapv_rec.AMOUNT < 0)
4537: OR(p_tapv_rec.INVOICE_TYPE = G_CREDIT AND p_tapv_rec.AMOUNT > 0))THEN
4538: OKL_API.set_message(
4539: p_app_name => G_APP_NAME
4540: ,p_msg_name => 'OKL_LLA_INV_TYPE_AND_SIGN'
4541: );
4542: RAISE G_EXCEPTION_HALT_VALIDATION;
4548: END IF;
4549: RETURN l_return_status;
4550: EXCEPTION
4551: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4552: l_return_status := OKL_API.G_RET_STS_ERROR;
4553: RETURN l_return_status;
4554: WHEN OTHERS THEN
4555: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4556: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4551: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4552: l_return_status := OKL_API.G_RET_STS_ERROR;
4553: RETURN l_return_status;
4554: WHEN OTHERS THEN
4555: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4556: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4557: p_msg_name => G_UNEXPECTED_ERROR,
4558: p_token1 => G_SQLCODE_TOKEN,
4559: p_token1_value => SQLCODE,
4552: l_return_status := OKL_API.G_RET_STS_ERROR;
4553: RETURN l_return_status;
4554: WHEN OTHERS THEN
4555: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4556: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4557: p_msg_name => G_UNEXPECTED_ERROR,
4558: p_token1 => G_SQLCODE_TOKEN,
4559: p_token1_value => SQLCODE,
4560: p_token2 => G_SQLERRM_TOKEN,
4572: p_tplv_rec IN tplv_rec_type
4573: ,p_mode IN VARCHAR2
4574: ) RETURN VARCHAR2
4575: IS
4576: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4577: l_dummy VARCHAR2(1) := '?';
4578: l_result VARCHAR2(1) := OKL_API.G_TRUE;
4579:
4580: CURSOR c (p_tap_id NUMBER)
4574: ) RETURN VARCHAR2
4575: IS
4576: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4577: l_dummy VARCHAR2(1) := '?';
4578: l_result VARCHAR2(1) := OKL_API.G_TRUE;
4579:
4580: CURSOR c (p_tap_id NUMBER)
4581: IS
4582: SELECT 'X'
4594: IF (l_dummy = 'X') THEN
4595:
4596: -- kle_id is required:
4597: IF (p_tplv_rec.kle_id IS NULL) OR
4598: (p_tplv_rec.kle_id = OKL_API.G_MISS_NUM)
4599: THEN
4600: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4601: p_msg_name => G_REQUIRED_VALUE,
4602: p_token1 => G_COL_NAME_TOKEN,
4596: -- kle_id is required:
4597: IF (p_tplv_rec.kle_id IS NULL) OR
4598: (p_tplv_rec.kle_id = OKL_API.G_MISS_NUM)
4599: THEN
4600: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4601: p_msg_name => G_REQUIRED_VALUE,
4602: p_token1 => G_COL_NAME_TOKEN,
4603: --START:| 30-May-2006 cklee -- Fixed bug#5241187 |
4604: -- p_token1_value => 'Contract Top Line'); -- kle_id (contract_line_id) assoc asset number
4613: ,p_fund_id => p_tplv_rec.tap_id
4614:
4615: ,p_fund_line_id => p_tplv_rec.id
4616: ,p_mode => p_mode);
4617: IF (l_result = OKL_API.G_FALSE) THEN
4618: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4619: p_msg_name => G_NOT_UNIQUE,
4620: p_token1 => G_COL_NAME_TOKEN,
4621: p_token1_value => 'Asset Number');
4614:
4615: ,p_fund_line_id => p_tplv_rec.id
4616: ,p_mode => p_mode);
4617: IF (l_result = OKL_API.G_FALSE) THEN
4618: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4619: p_msg_name => G_NOT_UNIQUE,
4620: p_token1 => G_COL_NAME_TOKEN,
4621: p_token1_value => 'Asset Number');
4622: RAISE G_EXCEPTION_HALT_VALIDATION;
4626:
4627: RETURN l_return_status;
4628: EXCEPTION
4629: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4630: l_return_status := OKL_API.G_RET_STS_ERROR;
4631: RETURN l_return_status;
4632: WHEN OTHERS THEN
4633: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4634: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4629: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4630: l_return_status := OKL_API.G_RET_STS_ERROR;
4631: RETURN l_return_status;
4632: WHEN OTHERS THEN
4633: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4634: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4635: p_msg_name => G_UNEXPECTED_ERROR,
4636: p_token1 => G_SQLCODE_TOKEN,
4637: p_token1_value => SQLCODE,
4630: l_return_status := OKL_API.G_RET_STS_ERROR;
4631: RETURN l_return_status;
4632: WHEN OTHERS THEN
4633: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4634: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4635: p_msg_name => G_UNEXPECTED_ERROR,
4636: p_token1 => G_SQLCODE_TOKEN,
4637: p_token1_value => SQLCODE,
4638: p_token2 => G_SQLERRM_TOKEN,
4651: p_tplv_tbl IN tplv_tbl_type
4652:
4653: ) RETURN VARCHAR2
4654: IS
4655: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4656:
4657: l_dummy VARCHAR2(1) := '?';
4658: l_result VARCHAR2(1) := OKL_API.G_TRUE;
4659:
4654: IS
4655: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4656:
4657: l_dummy VARCHAR2(1) := '?';
4658: l_result VARCHAR2(1) := OKL_API.G_TRUE;
4659:
4660: CURSOR c (p_tap_id NUMBER)
4661:
4662: IS
4676:
4677: -- check uniqueness
4678: l_result := is_kle_id_unique(p_tplv_tbl=>p_tplv_tbl);
4679:
4680: IF (l_result = OKL_API.G_FALSE) THEN
4681:
4682: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4683: p_msg_name => G_NOT_UNIQUE,
4684: p_token1 => G_COL_NAME_TOKEN,
4678: l_result := is_kle_id_unique(p_tplv_tbl=>p_tplv_tbl);
4679:
4680: IF (l_result = OKL_API.G_FALSE) THEN
4681:
4682: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4683: p_msg_name => G_NOT_UNIQUE,
4684: p_token1 => G_COL_NAME_TOKEN,
4685: p_token1_value => 'Asset Number');
4686: RAISE G_EXCEPTION_HALT_VALIDATION;
4691: RETURN l_return_status;
4692: EXCEPTION
4693:
4694: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4695: l_return_status := OKL_API.G_RET_STS_ERROR;
4696: RETURN l_return_status;
4697: WHEN OTHERS THEN
4698: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4699: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4694: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4695: l_return_status := OKL_API.G_RET_STS_ERROR;
4696: RETURN l_return_status;
4697: WHEN OTHERS THEN
4698: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4699: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4700: p_msg_name => G_UNEXPECTED_ERROR,
4701: p_token1 => G_SQLCODE_TOKEN,
4702: p_token1_value => SQLCODE,
4695: l_return_status := OKL_API.G_RET_STS_ERROR;
4696: RETURN l_return_status;
4697: WHEN OTHERS THEN
4698: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4699: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4700: p_msg_name => G_UNEXPECTED_ERROR,
4701: p_token1 => G_SQLCODE_TOKEN,
4702: p_token1_value => SQLCODE,
4703: p_token2 => G_SQLERRM_TOKEN,
4714: FUNCTION validate_stream_id(
4715: p_tplv_rec IN tplv_rec_type
4716: ) RETURN VARCHAR2
4717: IS
4718: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4719: l_dummy VARCHAR2(1) := '?';
4720:
4721: CURSOR c (p_tap_id NUMBER)
4722: IS
4733:
4734: IF (l_dummy = 'X') THEN
4735: -- Stream Type ID is required:
4736: IF (p_tplv_rec.sty_id IS NULL) OR
4737: (p_tplv_rec.sty_id = OKL_API.G_MISS_NUM)
4738: THEN
4739: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4740: p_msg_name => G_REQUIRED_VALUE,
4741: p_token1 => G_COL_NAME_TOKEN,
4735: -- Stream Type ID is required:
4736: IF (p_tplv_rec.sty_id IS NULL) OR
4737: (p_tplv_rec.sty_id = OKL_API.G_MISS_NUM)
4738: THEN
4739: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4740: p_msg_name => G_REQUIRED_VALUE,
4741: p_token1 => G_COL_NAME_TOKEN,
4742: p_token1_value => 'Stream Type'); -- sty_id
4743: RAISE G_EXCEPTION_HALT_VALIDATION;
4746:
4747: RETURN l_return_status;
4748: EXCEPTION
4749: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4750: l_return_status := OKL_API.G_RET_STS_ERROR;
4751: RETURN l_return_status;
4752: WHEN OTHERS THEN
4753: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4754: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4749: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4750: l_return_status := OKL_API.G_RET_STS_ERROR;
4751: RETURN l_return_status;
4752: WHEN OTHERS THEN
4753: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4754: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4755: p_msg_name => G_UNEXPECTED_ERROR,
4756: p_token1 => G_SQLCODE_TOKEN,
4757: p_token1_value => SQLCODE,
4750: l_return_status := OKL_API.G_RET_STS_ERROR;
4751: RETURN l_return_status;
4752: WHEN OTHERS THEN
4753: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4754: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4755: p_msg_name => G_UNEXPECTED_ERROR,
4756: p_token1 => G_SQLCODE_TOKEN,
4757: p_token1_value => SQLCODE,
4758: p_token2 => G_SQLERRM_TOKEN,
4767: p_tplv_rec IN tplv_rec_type
4768: ,p_mode IN VARCHAR2
4769: ) RETURN VARCHAR2
4770: IS
4771: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4772:
4773: l_api_version NUMBER := 1.0;
4774: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
4775: x_return_status VARCHAR2(1);
4770: IS
4771: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4772:
4773: l_api_version NUMBER := 1.0;
4774: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
4775: x_return_status VARCHAR2(1);
4776: x_msg_count NUMBER;
4777: x_msg_data VARCHAR2(2000);
4778: x_value NUMBER := 0;
4794:
4795: BEGIN
4796: -- line Amount is required: default to 0 @ UI
4797: IF (p_tplv_rec.amount IS NULL) OR
4798: (p_tplv_rec.amount = OKL_API.G_MISS_NUM)
4799: THEN
4800: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4801: p_msg_name => G_REQUIRED_VALUE,
4802: p_token1 => G_COL_NAME_TOKEN,
4796: -- line Amount is required: default to 0 @ UI
4797: IF (p_tplv_rec.amount IS NULL) OR
4798: (p_tplv_rec.amount = OKL_API.G_MISS_NUM)
4799: THEN
4800: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4801: p_msg_name => G_REQUIRED_VALUE,
4802: p_token1 => G_COL_NAME_TOKEN,
4803: p_token1_value => 'Amount');
4804: RAISE G_EXCEPTION_HALT_VALIDATION;
4813: close c_invoice_type;
4814:
4815: IF((l_invoice_type = G_STANDARD AND p_tplv_rec.AMOUNT < 0)
4816: OR(l_invoice_type = G_CREDIT AND p_tplv_rec.AMOUNT > 0))THEN
4817: OKL_API.set_message(
4818: p_app_name => G_APP_NAME
4819: ,p_msg_name => 'OKL_LLA_INV_TYPE_AND_SIGN'
4820: );
4821: RAISE G_EXCEPTION_HALT_VALIDATION;
4826: -- project.
4827: /*
4828: IF (p_tplv_rec.amount < 0 ) THEN
4829:
4830: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4831: p_msg_name => 'OKL_LLA_POSITIVE_AMOUNT_ONLY',
4832: p_token1 => 'COL_NAME',
4833: p_token1_value => 'Amount');
4834:
4838: */
4839: RETURN l_return_status;
4840: EXCEPTION
4841: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4842: l_return_status := OKL_API.G_RET_STS_ERROR;
4843: RETURN l_return_status;
4844: WHEN OTHERS THEN
4845:
4846:
4843: RETURN l_return_status;
4844: WHEN OTHERS THEN
4845:
4846:
4847: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4848:
4849: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4850: p_msg_name => G_UNEXPECTED_ERROR,
4851: p_token1 => G_SQLCODE_TOKEN,
4845:
4846:
4847: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4848:
4849: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4850: p_msg_name => G_UNEXPECTED_ERROR,
4851: p_token1 => G_SQLCODE_TOKEN,
4852: p_token1_value => SQLCODE,
4853: p_token2 => G_SQLERRM_TOKEN,
4861: ,p_mode IN VARCHAR2 -- 'C'reate,'U'pdate,'D'elete
4862:
4863: ) RETURN VARCHAR2
4864: IS
4865: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4866: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4867:
4868: l_vendor_id PO_VENDOR_SITES_ALL.vendor_id%TYPE;
4869: l_org_id okc_k_headers_b.AUTHORING_ORG_ID%TYPE;
4862:
4863: ) RETURN VARCHAR2
4864: IS
4865: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4866: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4867:
4868: l_vendor_id PO_VENDOR_SITES_ALL.vendor_id%TYPE;
4869: l_org_id okc_k_headers_b.AUTHORING_ORG_ID%TYPE;
4870:
4886:
4887: -- Do formal attribute validation:
4888: l_return_status := validate_trx_status_code(p_tapv_rec);
4889: --- Store the highest degree of error
4890: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4891: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4892: x_return_status := l_return_status;
4893: END IF;
4894: RAISE G_EXCEPTION_HALT_VALIDATION;
4887: -- Do formal attribute validation:
4888: l_return_status := validate_trx_status_code(p_tapv_rec);
4889: --- Store the highest degree of error
4890: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4891: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4892: x_return_status := l_return_status;
4893: END IF;
4894: RAISE G_EXCEPTION_HALT_VALIDATION;
4895: END IF;
4897: -- Do formal attribute validation:
4898: l_return_status := validate_payment_due_date(p_tapv_rec);
4899:
4900: --- Store the highest degree of error
4901: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4902: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4903: x_return_status := l_return_status;
4904: END IF;
4905: RAISE G_EXCEPTION_HALT_VALIDATION;
4898: l_return_status := validate_payment_due_date(p_tapv_rec);
4899:
4900: --- Store the highest degree of error
4901: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4902: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4903: x_return_status := l_return_status;
4904: END IF;
4905: RAISE G_EXCEPTION_HALT_VALIDATION;
4906: END IF;
4911:
4912: --
4913: l_return_status := validate_creditline(p_tapv_rec);
4914: --- Store the highest degree of error
4915: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4916: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4917: x_return_status := l_return_status;
4918: END IF;
4919: RAISE G_EXCEPTION_HALT_VALIDATION;
4912: --
4913: l_return_status := validate_creditline(p_tapv_rec);
4914: --- Store the highest degree of error
4915: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4916: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4917: x_return_status := l_return_status;
4918: END IF;
4919: RAISE G_EXCEPTION_HALT_VALIDATION;
4920: END IF;
4926:
4927: --Bug# 10156343
4928: l_return_status := validate_chr_status(p_tapv_rec.khr_id, p_tapv_rec.funding_type_code);
4929: --- Store the highest degree of error
4930: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4931: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4932: x_return_status := l_return_status;
4933: END IF;
4934: RAISE G_EXCEPTION_HALT_VALIDATION;
4927: --Bug# 10156343
4928: l_return_status := validate_chr_status(p_tapv_rec.khr_id, p_tapv_rec.funding_type_code);
4929: --- Store the highest degree of error
4930: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4931: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4932: x_return_status := l_return_status;
4933: END IF;
4934: RAISE G_EXCEPTION_HALT_VALIDATION;
4935: END IF;
4935: END IF;
4936:
4937: l_return_status := validate_header_amount(p_tapv_rec);
4938: --- Store the highest degree of error
4939: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4940: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4941: x_return_status := l_return_status;
4942: END IF;
4943: RAISE G_EXCEPTION_HALT_VALIDATION;
4936:
4937: l_return_status := validate_header_amount(p_tapv_rec);
4938: --- Store the highest degree of error
4939: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4940: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4941: x_return_status := l_return_status;
4942: END IF;
4943: RAISE G_EXCEPTION_HALT_VALIDATION;
4944: END IF;
4946: END IF;
4947:
4948: l_return_status := validate_funding_checklist(p_tapv_rec);
4949: --- Store the highest degree of error
4950: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4951: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4952: x_return_status := l_return_status;
4953: END IF;
4954: RAISE G_EXCEPTION_HALT_VALIDATION;
4947:
4948: l_return_status := validate_funding_checklist(p_tapv_rec);
4949: --- Store the highest degree of error
4950: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4951: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4952: x_return_status := l_return_status;
4953: END IF;
4954: RAISE G_EXCEPTION_HALT_VALIDATION;
4955: END IF;
4957: -- bug 2604862
4958: l_return_status := validate_header_amount_for_RL(p_tapv_rec);
4959:
4960: --- Store the highest degree of error
4961: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4962: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4963: x_return_status := l_return_status;
4964: END IF;
4965: RAISE G_EXCEPTION_HALT_VALIDATION;
4958: l_return_status := validate_header_amount_for_RL(p_tapv_rec);
4959:
4960: --- Store the highest degree of error
4961: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4962: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4963: x_return_status := l_return_status;
4964: END IF;
4965: RAISE G_EXCEPTION_HALT_VALIDATION;
4966:
4969:
4970: IF (p_tapv_rec.FUNDING_TYPE_CODE <> G_ASSET_SUBSIDY) THEN -- cklee 09/17/03
4971: l_return_status := validate_vendor_invoice_number(p_tapv_rec);
4972: --- Store the highest degree of error
4973: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4974: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4975: x_return_status := l_return_status;
4976: END IF;
4977: RAISE G_EXCEPTION_HALT_VALIDATION;
4970: IF (p_tapv_rec.FUNDING_TYPE_CODE <> G_ASSET_SUBSIDY) THEN -- cklee 09/17/03
4971: l_return_status := validate_vendor_invoice_number(p_tapv_rec);
4972: --- Store the highest degree of error
4973: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4974: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4975: x_return_status := l_return_status;
4976: END IF;
4977: RAISE G_EXCEPTION_HALT_VALIDATION;
4978: END IF;
4979: END IF;
4980:
4981: l_return_status := validate_ipvs_id(p_tapv_rec);
4982: --- Store the highest degree of error
4983: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4984: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4985: x_return_status := l_return_status;
4986: END IF;
4987: RAISE G_EXCEPTION_HALT_VALIDATION;
4980:
4981: l_return_status := validate_ipvs_id(p_tapv_rec);
4982: --- Store the highest degree of error
4983: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4984: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4985: x_return_status := l_return_status;
4986: END IF;
4987: RAISE G_EXCEPTION_HALT_VALIDATION;
4988: END IF;
4988: END IF;
4989:
4990: l_return_status := validate_funding_type(p_tapv_rec,p_mode);
4991: --- Store the highest degree of error
4992: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4993: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4994: x_return_status := l_return_status;
4995: END IF;
4996: RAISE G_EXCEPTION_HALT_VALIDATION;
4989:
4990: l_return_status := validate_funding_type(p_tapv_rec,p_mode);
4991: --- Store the highest degree of error
4992: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4993: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4994: x_return_status := l_return_status;
4995: END IF;
4996: RAISE G_EXCEPTION_HALT_VALIDATION;
4997: END IF;
4997: END IF;
4998: -- Added for bug 5704212 -- start
4999: l_return_status := validate_release_contract(p_tapv_rec);
5000: --- Store the highest degree of error
5001: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5002: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5003: x_return_status := l_return_status;
5004: END IF;
5005: RAISE G_EXCEPTION_HALT_VALIDATION;
4998: -- Added for bug 5704212 -- start
4999: l_return_status := validate_release_contract(p_tapv_rec);
5000: --- Store the highest degree of error
5001: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5002: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5003: x_return_status := l_return_status;
5004: END IF;
5005: RAISE G_EXCEPTION_HALT_VALIDATION;
5006: END IF;
5007: -- Added for bug 5704212 - End
5008:
5009: l_return_status := validate_payment_method(p_tapv_rec);
5010: --- Store the highest degree of error
5011: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5012: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5013: x_return_status := l_return_status;
5014: END IF;
5015: RAISE G_EXCEPTION_HALT_VALIDATION;
5008:
5009: l_return_status := validate_payment_method(p_tapv_rec);
5010: --- Store the highest degree of error
5011: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5012: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5013: x_return_status := l_return_status;
5014: END IF;
5015: RAISE G_EXCEPTION_HALT_VALIDATION;
5016: END IF;
5017:
5018: -- 05/04/2004 cklee
5019: l_return_status := validate_invoice_type(p_tapv_rec);
5020: --- Store the highest degree of error
5021: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5022: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5023: x_return_status := l_return_status;
5024: END IF;
5025: RAISE G_EXCEPTION_HALT_VALIDATION;
5018: -- 05/04/2004 cklee
5019: l_return_status := validate_invoice_type(p_tapv_rec);
5020: --- Store the highest degree of error
5021: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5022: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5023: x_return_status := l_return_status;
5024: END IF;
5025: RAISE G_EXCEPTION_HALT_VALIDATION;
5026: END IF;
5027:
5028: -- sjalasut, added the function validate_invoice_type_and_sign
5029: -- as part of OKLR12B disbursements project
5030: l_return_status := validate_invoice_type_and_sign(p_tapv_rec);
5031: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5032: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5033: x_return_status := l_return_status;
5034: END IF;
5035: RAISE G_EXCEPTION_HALT_VALIDATION;
5028: -- sjalasut, added the function validate_invoice_type_and_sign
5029: -- as part of OKLR12B disbursements project
5030: l_return_status := validate_invoice_type_and_sign(p_tapv_rec);
5031: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5032: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5033: x_return_status := l_return_status;
5034: END IF;
5035: RAISE G_EXCEPTION_HALT_VALIDATION;
5036: END IF;
5050: p_vendor_id => l_vendor_id
5051: ,p_org_id => l_org_id
5052: ,p_fund_number => p_tapv_rec.vendor_invoice_number);
5053:
5054: IF (l_return_status = OKL_API.G_FALSE) THEN
5055: x_return_status := OKL_API.G_RET_STS_ERROR;
5056: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5057: p_msg_name => G_NOT_UNIQUE,
5058: p_token1 => G_COL_NAME_TOKEN,
5051: ,p_org_id => l_org_id
5052: ,p_fund_number => p_tapv_rec.vendor_invoice_number);
5053:
5054: IF (l_return_status = OKL_API.G_FALSE) THEN
5055: x_return_status := OKL_API.G_RET_STS_ERROR;
5056: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5057: p_msg_name => G_NOT_UNIQUE,
5058: p_token1 => G_COL_NAME_TOKEN,
5059: p_token1_value => 'Request Number');
5052: ,p_fund_number => p_tapv_rec.vendor_invoice_number);
5053:
5054: IF (l_return_status = OKL_API.G_FALSE) THEN
5055: x_return_status := OKL_API.G_RET_STS_ERROR;
5056: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5057: p_msg_name => G_NOT_UNIQUE,
5058: p_token1 => G_COL_NAME_TOKEN,
5059: p_token1_value => 'Request Number');
5060:
5068:
5069:
5070: RETURN x_return_status;
5071: WHEN OTHERS THEN
5072: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5073: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5074: p_msg_name => G_UNEXPECTED_ERROR,
5075: p_token1 => G_SQLCODE_TOKEN,
5076: p_token1_value => SQLCODE,
5069:
5070: RETURN x_return_status;
5071: WHEN OTHERS THEN
5072: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5073: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5074: p_msg_name => G_UNEXPECTED_ERROR,
5075: p_token1 => G_SQLCODE_TOKEN,
5076: p_token1_value => SQLCODE,
5077: p_token2 => G_SQLERRM_TOKEN,
5085: p_tplv_rec IN tplv_rec_type
5086: ,p_mode IN VARCHAR2 -- 'C'reate,'U'pdate,'D'elete
5087: ) RETURN VARCHAR2
5088: IS
5089: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5090: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5091: BEGIN
5092:
5093: -- Do formal attribute validation:
5086: ,p_mode IN VARCHAR2 -- 'C'reate,'U'pdate,'D'elete
5087: ) RETURN VARCHAR2
5088: IS
5089: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5090: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5091: BEGIN
5092:
5093: -- Do formal attribute validation:
5094: -- check sty_id
5094: -- check sty_id
5095: l_return_status := validate_stream_id(p_tplv_rec);
5096:
5097: --- Store the highest degree of error
5098: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5099: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5100:
5101: x_return_status := l_return_status;
5102: END IF;
5095: l_return_status := validate_stream_id(p_tplv_rec);
5096:
5097: --- Store the highest degree of error
5098: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5099: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5100:
5101: x_return_status := l_return_status;
5102: END IF;
5103: RAISE G_EXCEPTION_HALT_VALIDATION; -- 09/2001: one error at a time until Okx/Java can accept more
5105:
5106: -- check kle_id
5107: l_return_status := validate_kle_id(p_tplv_rec, p_mode);
5108: --- Store the highest degree of error
5109: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5110: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5111: x_return_status := l_return_status;
5112: END IF;
5113: RAISE G_EXCEPTION_HALT_VALIDATION; -- 09/2001: one error at a time until Okx/Java can accept more
5106: -- check kle_id
5107: l_return_status := validate_kle_id(p_tplv_rec, p_mode);
5108: --- Store the highest degree of error
5109: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5110: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5111: x_return_status := l_return_status;
5112: END IF;
5113: RAISE G_EXCEPTION_HALT_VALIDATION; -- 09/2001: one error at a time until Okx/Java can accept more
5114: END IF;
5114: END IF;
5115:
5116: l_return_status := validate_line_amount(p_tplv_rec,p_mode);
5117: --- Store the highest degree of error
5118: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5119: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5120: x_return_status := l_return_status;
5121: END IF;
5122: RAISE G_EXCEPTION_HALT_VALIDATION;
5115:
5116: l_return_status := validate_line_amount(p_tplv_rec,p_mode);
5117: --- Store the highest degree of error
5118: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5119: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5120: x_return_status := l_return_status;
5121: END IF;
5122: RAISE G_EXCEPTION_HALT_VALIDATION;
5123: END IF;
5126: EXCEPTION
5127: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5128: RETURN x_return_status;
5129: WHEN OTHERS THEN
5130: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5131: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5132: p_msg_name => G_UNEXPECTED_ERROR,
5133: p_token1 => G_SQLCODE_TOKEN,
5134: p_token1_value => SQLCODE,
5127: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5128: RETURN x_return_status;
5129: WHEN OTHERS THEN
5130: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5131: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5132: p_msg_name => G_UNEXPECTED_ERROR,
5133: p_token1 => G_SQLCODE_TOKEN,
5134: p_token1_value => SQLCODE,
5135: p_token2 => G_SQLERRM_TOKEN,
5143: FUNCTION populate_sty_id(
5144: p_tplv_rec IN OUT NOCOPY tplv_rec_type
5145: ) RETURN VARCHAR2
5146: IS
5147: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5148: l_stream_id NUMBER;
5149: l_chr_id NUMBER;
5150: l_name VARCHAR2(30);
5151: l_funding_type_code okl_trx_ap_invoices_b.funding_type_code%TYPE;
5223:
5224: END IF;
5225: --cklee user defined stream type modification
5226:
5227: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5228: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5230: RAISE OKL_API.G_EXCEPTION_ERROR;
5231: END IF;
5224: END IF;
5225: --cklee user defined stream type modification
5226:
5227: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5228: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5230: RAISE OKL_API.G_EXCEPTION_ERROR;
5231: END IF;
5232:
5225: --cklee user defined stream type modification
5226:
5227: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5228: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5230: RAISE OKL_API.G_EXCEPTION_ERROR;
5231: END IF;
5232:
5233: -- only fill if sty_id not exists
5226:
5227: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5228: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5230: RAISE OKL_API.G_EXCEPTION_ERROR;
5231: END IF;
5232:
5233: -- only fill if sty_id not exists
5234: IF (l_funding_type_code in (G_PREFUNDING_TYPE_CODE,
5241: EXCEPTION
5242:
5243: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5244:
5245: l_return_status := OKL_API.G_RET_STS_ERROR;
5246: RETURN l_return_status;
5247: WHEN OTHERS THEN
5248: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5249:
5244:
5245: l_return_status := OKL_API.G_RET_STS_ERROR;
5246: RETURN l_return_status;
5247: WHEN OTHERS THEN
5248: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5249:
5250: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5251: p_msg_name => G_UNEXPECTED_ERROR,
5252: p_token1 => G_SQLCODE_TOKEN,
5246: RETURN l_return_status;
5247: WHEN OTHERS THEN
5248: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5249:
5250: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5251: p_msg_name => G_UNEXPECTED_ERROR,
5252: p_token1 => G_SQLCODE_TOKEN,
5253: p_token1_value => SQLCODE,
5254: p_token2 => G_SQLERRM_TOKEN,
5271: l_api_version CONSTANT NUMBER := 1.0;
5272: l_tapv_rec tapv_rec_type;
5273: x_tapv_rec tapv_rec_type;
5274: j BINARY_INTEGER;
5275: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5276: l_id OKL_TRX_AP_INVOICES_B.ID%TYPE;
5277: l_funding_type_code OKL_TRX_AP_INVOICES_B.funding_type_code%TYPE;
5278: l_VENDOR_INVOICE_NUMBER OKL_TRX_AP_INVOICES_B.VENDOR_INVOICE_NUMBER%TYPE;
5279: l_PAY_GROUP_LOOKUP_CODE OKL_TRX_AP_INVOICES_B.PAY_GROUP_LOOKUP_CODE%TYPE;
5294: ;
5295:
5296: BEGIN
5297:
5298: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5299: -- Call start_activity to create savepoint, check compatibility
5300: -- and initialize message list
5301: x_return_status := OKL_API.START_ACTIVITY (
5302: l_api_name,
5297:
5298: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5299: -- Call start_activity to create savepoint, check compatibility
5300: -- and initialize message list
5301: x_return_status := OKL_API.START_ACTIVITY (
5302: l_api_name,
5303: p_init_msg_list,
5304: '_PVT',
5305: x_return_status);
5303: p_init_msg_list,
5304: '_PVT',
5305: x_return_status);
5306: -- Check if activity started successfully
5307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309:
5310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5311: RAISE OKL_API.G_EXCEPTION_ERROR;
5304: '_PVT',
5305: x_return_status);
5306: -- Check if activity started successfully
5307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309:
5310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5311: RAISE OKL_API.G_EXCEPTION_ERROR;
5312: END IF;
5306: -- Check if activity started successfully
5307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309:
5310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5311: RAISE OKL_API.G_EXCEPTION_ERROR;
5312: END IF;
5313: --
5314:
5307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5309:
5310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5311: RAISE OKL_API.G_EXCEPTION_ERROR;
5312: END IF;
5313: --
5314:
5315: --*** Begin API body ****************************************************
5341: x_msg_data => x_msg_data,
5342: p_tapv_rec => l_tapv_rec,
5343: x_tapv_rec => x_tapv_rec);
5344:
5345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5348: RAISE OKL_API.G_EXCEPTION_ERROR;
5349: END IF;
5342: p_tapv_rec => l_tapv_rec,
5343: x_tapv_rec => x_tapv_rec);
5344:
5345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5348: RAISE OKL_API.G_EXCEPTION_ERROR;
5349: END IF;
5350:
5343: x_tapv_rec => x_tapv_rec);
5344:
5345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5348: RAISE OKL_API.G_EXCEPTION_ERROR;
5349: END IF;
5350:
5351: OKL_API.END_ACTIVITY (x_msg_count,
5344:
5345: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5348: RAISE OKL_API.G_EXCEPTION_ERROR;
5349: END IF;
5350:
5351: OKL_API.END_ACTIVITY (x_msg_count,
5352: x_msg_data );
5347: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5348: RAISE OKL_API.G_EXCEPTION_ERROR;
5349: END IF;
5350:
5351: OKL_API.END_ACTIVITY (x_msg_count,
5352: x_msg_data );
5353: EXCEPTION
5354: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5355: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5350:
5351: OKL_API.END_ACTIVITY (x_msg_count,
5352: x_msg_data );
5353: EXCEPTION
5354: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5355: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5356: l_api_name,
5357: G_PKG_NAME,
5358: 'OKL_API.G_RET_STS_ERROR',
5351: OKL_API.END_ACTIVITY (x_msg_count,
5352: x_msg_data );
5353: EXCEPTION
5354: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5355: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5356: l_api_name,
5357: G_PKG_NAME,
5358: 'OKL_API.G_RET_STS_ERROR',
5359: x_msg_count,
5354: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5355: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5356: l_api_name,
5357: G_PKG_NAME,
5358: 'OKL_API.G_RET_STS_ERROR',
5359: x_msg_count,
5360: x_msg_data,
5361: '_PVT');
5362: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5358: 'OKL_API.G_RET_STS_ERROR',
5359: x_msg_count,
5360: x_msg_data,
5361: '_PVT');
5362: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5363: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5364: l_api_name,
5365: G_PKG_NAME,
5366: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5359: x_msg_count,
5360: x_msg_data,
5361: '_PVT');
5362: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5363: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5364: l_api_name,
5365: G_PKG_NAME,
5366: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5367: x_msg_count,
5362: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5363: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5364: l_api_name,
5365: G_PKG_NAME,
5366: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5367: x_msg_count,
5368: x_msg_data,
5369: '_PVT');
5370: WHEN OTHERS THEN
5367: x_msg_count,
5368: x_msg_data,
5369: '_PVT');
5370: WHEN OTHERS THEN
5371: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5372: l_api_name,
5373: G_PKG_NAME,
5374: 'OTHERS',
5375: x_msg_count,
5395: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_FUNDING_HEADER';
5396: l_api_version CONSTANT NUMBER := 1.0;
5397: l_tapv_rec tapv_rec_type := p_tapv_rec;
5398: i NUMBER;
5399: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5400: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
5401: l_try_id NUMBER;
5402: l_org_id NUMBER;
5403: l_try_name OKL_TRX_TYPES_TL.NAME%TYPE;
5396: l_api_version CONSTANT NUMBER := 1.0;
5397: l_tapv_rec tapv_rec_type := p_tapv_rec;
5398: i NUMBER;
5399: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5400: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
5401: l_try_id NUMBER;
5402: l_org_id NUMBER;
5403: l_try_name OKL_TRX_TYPES_TL.NAME%TYPE;
5404:
5447: p_api_version,
5448: l_api_name,
5449: G_PKG_NAME ))
5450: THEN
5451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5452: END IF;
5453:
5454: -- Initialize message list if requested
5455: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
5456: FND_MSG_PUB.initialize;
5457: END IF;
5458:
5459: -- Initialize API status to success
5460: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5461:
5462:
5463: /*** Begin API body ****************************************************/
5464:
5486:
5487: -- populates more attributes for BPD
5488: l_return_status := populate_more_attrs(l_tapv_rec);
5489: --- Store the highest degree of error
5490: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5491: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5492: x_return_status := l_return_status;
5493: END IF;
5494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5487: -- populates more attributes for BPD
5488: l_return_status := populate_more_attrs(l_tapv_rec);
5489: --- Store the highest degree of error
5490: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5491: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5492: x_return_status := l_return_status;
5493: END IF;
5494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5495: END IF;
5490: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5491: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5492: x_return_status := l_return_status;
5493: END IF;
5494: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5495: END IF;
5496:
5497: l_return_status := validate_header_attributes(l_tapv_rec, 'C');
5498: --- Store the highest degree of error
5495: END IF;
5496:
5497: l_return_status := validate_header_attributes(l_tapv_rec, 'C');
5498: --- Store the highest degree of error
5499: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5500: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5501: x_return_status := l_return_status;
5502: END IF;
5503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5496:
5497: l_return_status := validate_header_attributes(l_tapv_rec, 'C');
5498: --- Store the highest degree of error
5499: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5500: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5501: x_return_status := l_return_status;
5502: END IF;
5503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5504: END IF;
5499: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5500: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5501: x_return_status := l_return_status;
5502: END IF;
5503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5504: END IF;
5505: --Added by dpsingh for LE Uptake
5506: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_tapv_rec.khr_id) ;
5507: IF l_legal_entity_id IS NOT NULL THEN
5510: -- get the contract number
5511: OPEN contract_num_csr(p_tapv_rec.khr_id);
5512: FETCH contract_num_csr INTO l_cntrct_number;
5513: CLOSE contract_num_csr;
5514: Okl_Api.set_message(p_app_name => g_app_name,
5515: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
5516: p_token1 => 'CONTRACT_NUMBER',
5517: p_token1_value => l_cntrct_number);
5518: RAISE OKL_API.G_EXCEPTION_ERROR;
5514: Okl_Api.set_message(p_app_name => g_app_name,
5515: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
5516: p_token1 => 'CONTRACT_NUMBER',
5517: p_token1_value => l_cntrct_number);
5518: RAISE OKL_API.G_EXCEPTION_ERROR;
5519: END IF;
5520: -- smadhava - Bug#5200033 - Added - Start
5521: -- Round the amount to the System Options setup
5522: l_tapv_rec.AMOUNT := OKL_ACCOUNTING_UTIL.round_amount(p_amount => l_tapv_rec.AMOUNT
5532: x_msg_data => x_msg_data,
5533: p_tapv_rec => l_tapv_rec,
5534: x_tapv_rec => x_tapv_rec);
5535:
5536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5539: RAISE OKL_API.G_EXCEPTION_ERROR;
5540: END IF;
5533: p_tapv_rec => l_tapv_rec,
5534: x_tapv_rec => x_tapv_rec);
5535:
5536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5539: RAISE OKL_API.G_EXCEPTION_ERROR;
5540: END IF;
5541:
5534: x_tapv_rec => x_tapv_rec);
5535:
5536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5539: RAISE OKL_API.G_EXCEPTION_ERROR;
5540: END IF;
5541:
5542: --
5535:
5536: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5537: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5538: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5539: RAISE OKL_API.G_EXCEPTION_ERROR;
5540: END IF;
5541:
5542: --
5543: -- create dummy funding line for pre-funding, AP required
5560:
5561: -- fixed bug#3338910
5562: l_return_status := populate_sty_id(l_tplv_rec);
5563: --- Store the highest degree of error
5564: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5565: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5566: x_return_status := l_return_status;
5567: END IF;
5568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5561: -- fixed bug#3338910
5562: l_return_status := populate_sty_id(l_tplv_rec);
5563: --- Store the highest degree of error
5564: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5565: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5566: x_return_status := l_return_status;
5567: END IF;
5568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5569: END IF;
5564: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5565: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5566: x_return_status := l_return_status;
5567: END IF;
5568: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5569: END IF;
5570:
5571:
5572: OKL_TXL_AP_INV_LNS_PUB.INSERT_TXL_AP_INV_LNS(
5577: x_msg_data => x_msg_data,
5578: p_tplv_rec => l_tplv_rec,
5579: x_tplv_rec => x_tplv_rec);
5580:
5581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5584: RAISE OKL_API.G_EXCEPTION_ERROR;
5585: END IF;
5578: p_tplv_rec => l_tplv_rec,
5579: x_tplv_rec => x_tplv_rec);
5580:
5581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5584: RAISE OKL_API.G_EXCEPTION_ERROR;
5585: END IF;
5586:
5579: x_tplv_rec => x_tplv_rec);
5580:
5581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5584: RAISE OKL_API.G_EXCEPTION_ERROR;
5585: END IF;
5586:
5587: END IF;
5580:
5581: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5582: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5583: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5584: RAISE OKL_API.G_EXCEPTION_ERROR;
5585: END IF;
5586:
5587: END IF;
5588:
5609: p_khr_id => p_tapv_rec.khr_id,
5610: p_id => x_tapv_rec.id,
5611: p_event_name => G_WF_EVT_FUN_REQ_CREATED);
5612:
5613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5616: RAISE OKL_API.G_EXCEPTION_ERROR;
5617: END IF;
5610: p_id => x_tapv_rec.id,
5611: p_event_name => G_WF_EVT_FUN_REQ_CREATED);
5612:
5613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5616: RAISE OKL_API.G_EXCEPTION_ERROR;
5617: END IF;
5618:
5611: p_event_name => G_WF_EVT_FUN_REQ_CREATED);
5612:
5613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5616: RAISE OKL_API.G_EXCEPTION_ERROR;
5617: END IF;
5618:
5619: End If;
5612:
5613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5616: RAISE OKL_API.G_EXCEPTION_ERROR;
5617: END IF;
5618:
5619: End If;
5620:
5630: (p_count => x_msg_count,
5631: p_data => x_msg_data);
5632:
5633: EXCEPTION
5634: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5635: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5636: x_return_status := OKL_API.G_RET_STS_ERROR;
5637:
5638: FND_MSG_PUB.Count_And_Get
5632:
5633: EXCEPTION
5634: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5635: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5636: x_return_status := OKL_API.G_RET_STS_ERROR;
5637:
5638: FND_MSG_PUB.Count_And_Get
5639: (p_count => x_msg_count,
5640: p_data => x_msg_data);
5638: FND_MSG_PUB.Count_And_Get
5639: (p_count => x_msg_count,
5640: p_data => x_msg_data);
5641:
5642: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5643: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5644: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5645: FND_MSG_PUB.Count_And_Get
5646: (p_count => x_msg_count,
5640: p_data => x_msg_data);
5641:
5642: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5643: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5644: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5645: FND_MSG_PUB.Count_And_Get
5646: (p_count => x_msg_count,
5647: p_data => x_msg_data);
5648:
5647: p_data => x_msg_data);
5648:
5649: WHEN OTHERS THEN
5650: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5651: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5652: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5653: p_msg_name => G_UNEXPECTED_ERROR,
5654: p_token1 => G_SQLCODE_TOKEN,
5655: p_token1_value => SQLCODE,
5648:
5649: WHEN OTHERS THEN
5650: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5651: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5652: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5653: p_msg_name => G_UNEXPECTED_ERROR,
5654: p_token1 => G_SQLCODE_TOKEN,
5655: p_token1_value => SQLCODE,
5656: p_token2 => G_SQLERRM_TOKEN,
5679: l_api_version CONSTANT NUMBER := 1.0;
5680: l_tapv_rec tapv_rec_type := p_tapv_rec;
5681: i NUMBER;
5682:
5683: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5684:
5685: l_row_not_found boolean := false;
5686: l_dummy number;
5687: funding_line_id number;
5689:
5690: -- vthiruva, 08/31/2004
5691: -- variables to raise business events
5692: l_event_name wf_events.name%TYPE := null;
5693: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
5694:
5695: cursor c_chklst_exists(p_fund_id varchar2) is
5696: --start modified abhsaxen for performance SQLID 20562448
5697: SELECT 1
5717: p_api_version,
5718: l_api_name,
5719: G_PKG_NAME ))
5720: THEN
5721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5722: END IF;
5723:
5724: -- Initialize message list if requested
5725:
5727: FND_MSG_PUB.initialize;
5728: END IF;
5729:
5730: -- Initialize API status to success
5731: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5732:
5733:
5734: /*** Begin API body ****************************************************/
5735: l_return_status := validate_header_attributes(l_tapv_rec, 'U');
5733:
5734: /*** Begin API body ****************************************************/
5735: l_return_status := validate_header_attributes(l_tapv_rec, 'U');
5736: --- Store the highest degree of error
5737: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5738: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5739: x_return_status := l_return_status;
5740: END IF;
5741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: /*** Begin API body ****************************************************/
5735: l_return_status := validate_header_attributes(l_tapv_rec, 'U');
5736: --- Store the highest degree of error
5737: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5738: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5739: x_return_status := l_return_status;
5740: END IF;
5741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5742: END IF;
5737: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5738: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5739: x_return_status := l_return_status;
5740: END IF;
5741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5742: END IF;
5743:
5744: ------------------------------------------------------------------
5745: -- added for approval process
5762: p_khr_id => l_tapv_rec.khr_id,
5763: p_id => l_tapv_rec.id,
5764: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5765:
5766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5769: RAISE OKL_API.G_EXCEPTION_ERROR;
5770: END IF;
5763: p_id => l_tapv_rec.id,
5764: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5765:
5766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5769: RAISE OKL_API.G_EXCEPTION_ERROR;
5770: END IF;
5771:
5764: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5765:
5766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5769: RAISE OKL_API.G_EXCEPTION_ERROR;
5770: END IF;
5771:
5772: /*
5765:
5766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5769: RAISE OKL_API.G_EXCEPTION_ERROR;
5770: END IF;
5771:
5772: /*
5773: -- cklee, 12/21/2004
5805: x_return_status => x_return_status,
5806: x_msg_count => x_msg_count,
5807: x_msg_data => x_msg_data,
5808: p_chr_id => l_tapv_rec.khr_id);
5809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5812: RAISE OKL_API.G_EXCEPTION_ERROR;
5813: END IF;
5806: x_msg_count => x_msg_count,
5807: x_msg_data => x_msg_data,
5808: p_chr_id => l_tapv_rec.khr_id);
5809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5812: RAISE OKL_API.G_EXCEPTION_ERROR;
5813: END IF;
5814:
5807: x_msg_data => x_msg_data,
5808: p_chr_id => l_tapv_rec.khr_id);
5809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5812: RAISE OKL_API.G_EXCEPTION_ERROR;
5813: END IF;
5814:
5815: END IF;
5808: p_chr_id => l_tapv_rec.khr_id);
5809: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5810: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5811: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5812: RAISE OKL_API.G_EXCEPTION_ERROR;
5813: END IF;
5814:
5815: END IF;
5816:
5830: p_tapv_rec => l_tapv_rec,
5831: x_tapv_rec => x_tapv_rec);
5832:
5833:
5834: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5837: RAISE OKL_API.G_EXCEPTION_ERROR;
5838: END IF;
5831: x_tapv_rec => x_tapv_rec);
5832:
5833:
5834: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5837: RAISE OKL_API.G_EXCEPTION_ERROR;
5838: END IF;
5839:
5832:
5833:
5834: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5837: RAISE OKL_API.G_EXCEPTION_ERROR;
5838: END IF;
5839:
5840: -----------------------------------------------------------
5833:
5834: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5835: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5837: RAISE OKL_API.G_EXCEPTION_ERROR;
5838: END IF;
5839:
5840: -----------------------------------------------------------
5841: -- trigger WF event if l_tapv_rec.trx_status_code = 'SUBMITTED' and
5858: p_khr_id => l_tapv_rec.khr_id,
5859: p_id => l_tapv_rec.id,
5860: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5861:
5862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_ERROR;
5866: END IF;
5859: p_id => l_tapv_rec.id,
5860: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5861:
5862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_ERROR;
5866: END IF;
5867:
5860: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5861:
5862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_ERROR;
5866: END IF;
5867:
5868: /*
5861:
5862: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5863: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5864: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5865: RAISE OKL_API.G_EXCEPTION_ERROR;
5866: END IF;
5867:
5868: /*
5869: -- cklee, 12/21/2004
5920: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
5921: -- p_fund_line_id => funding_line_id);
5922: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
5923:
5924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5926: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5927: RAISE OKL_API.G_EXCEPTION_ERROR;
5928: END IF;
5921: -- p_fund_line_id => funding_line_id);
5922: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
5923:
5924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5926: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5927: RAISE OKL_API.G_EXCEPTION_ERROR;
5928: END IF;
5929:
5922: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
5923:
5924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5926: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5927: RAISE OKL_API.G_EXCEPTION_ERROR;
5928: END IF;
5929:
5930: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
5923:
5924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5926: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5927: RAISE OKL_API.G_EXCEPTION_ERROR;
5928: END IF;
5929:
5930: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
5931: -- END LOOP;
5945: x_msg_data => x_msg_data,
5946: p_status => l_tapv_rec.trx_status_code,
5947: p_fund_id => l_tapv_rec.id);
5948:
5949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5951: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5952: RAISE OKL_API.G_EXCEPTION_ERROR;
5953: END IF;
5946: p_status => l_tapv_rec.trx_status_code,
5947: p_fund_id => l_tapv_rec.id);
5948:
5949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5951: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5952: RAISE OKL_API.G_EXCEPTION_ERROR;
5953: END IF;
5954: END IF;
5947: p_fund_id => l_tapv_rec.id);
5948:
5949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5951: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5952: RAISE OKL_API.G_EXCEPTION_ERROR;
5953: END IF;
5954: END IF;
5955: END IF;
5948:
5949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5951: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5952: RAISE OKL_API.G_EXCEPTION_ERROR;
5953: END IF;
5954: END IF;
5955: END IF;
5956:
5973: x_msg_data => x_msg_data,
5974: p_chr_id => l_tapv_rec.khr_id,
5975: p_fund_req_id => l_tapv_rec.id);
5976:
5977: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5980: RAISE OKL_API.G_EXCEPTION_ERROR;
5981: END IF;
5974: p_chr_id => l_tapv_rec.khr_id,
5975: p_fund_req_id => l_tapv_rec.id);
5976:
5977: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5980: RAISE OKL_API.G_EXCEPTION_ERROR;
5981: END IF;
5982: END IF;
5975: p_fund_req_id => l_tapv_rec.id);
5976:
5977: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5980: RAISE OKL_API.G_EXCEPTION_ERROR;
5981: END IF;
5982: END IF;
5983:
5976:
5977: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5978: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5979: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5980: RAISE OKL_API.G_EXCEPTION_ERROR;
5981: END IF;
5982: END IF;
5983:
5984: END IF;
5992: IF(p_tapv_rec.trx_status_code = 'ENTERED')THEN
5993: --raise the business event for update funding request
5994: --if transaction status code is ENTERED
5995: l_event_name := G_WF_EVT_FUN_REQ_UPDATED;
5996: l_raise_business_event := OKL_API.G_TRUE;
5997:
5998: ELSIF(p_tapv_rec.trx_status_code = 'CANCELED')THEN
5999: --raise the business event for cancel funding request
6000: --if transaction status code is CANCELED
6000: --if transaction status code is CANCELED
6001: --In DO the value of trx_status_code is being set to CANCELED
6002: --in place of CANCELLED. Hence changed the spelling in the above check.
6003: l_event_name := G_WF_EVT_FUN_REQ_CANCELLED;
6004: l_raise_business_event := OKL_API.G_TRUE;
6005:
6006: ELSIF(p_tapv_rec.trx_status_code = 'SUBMITTED')THEN
6007: --raise the business event for submit funding request
6008: --if transaction status code is SUBMITTED
6006: ELSIF(p_tapv_rec.trx_status_code = 'SUBMITTED')THEN
6007: --raise the business event for submit funding request
6008: --if transaction status code is SUBMITTED
6009: l_event_name := G_WF_EVT_FUN_REQ_SUBMITTED;
6010: l_raise_business_event := OKL_API.G_TRUE;
6011: END If;
6012:
6013: IF(l_raise_business_event = OKL_API.G_TRUE AND l_event_name IS NOT NULL) THEN
6014: --call to raise the appropriate business event
6009: l_event_name := G_WF_EVT_FUN_REQ_SUBMITTED;
6010: l_raise_business_event := OKL_API.G_TRUE;
6011: END If;
6012:
6013: IF(l_raise_business_event = OKL_API.G_TRUE AND l_event_name IS NOT NULL) THEN
6014: --call to raise the appropriate business event
6015: raise_business_event(p_api_version => p_api_version,
6016: p_init_msg_list => p_init_msg_list,
6017: x_return_status => x_return_status,
6020: p_khr_id => p_tapv_rec.khr_id,
6021: p_id => p_tapv_rec.id,
6022: p_event_name => l_event_name);
6023:
6024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6027: RAISE OKL_API.G_EXCEPTION_ERROR;
6028: END IF;
6021: p_id => p_tapv_rec.id,
6022: p_event_name => l_event_name);
6023:
6024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6027: RAISE OKL_API.G_EXCEPTION_ERROR;
6028: END IF;
6029: END IF;
6022: p_event_name => l_event_name);
6023:
6024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6027: RAISE OKL_API.G_EXCEPTION_ERROR;
6028: END IF;
6029: END IF;
6030:
6023:
6024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6025: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6027: RAISE OKL_API.G_EXCEPTION_ERROR;
6028: END IF;
6029: END IF;
6030:
6031: /*
6040: (p_count => x_msg_count,
6041: p_data => x_msg_data);
6042:
6043: EXCEPTION
6044: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6045: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
6046: x_return_status := OKL_API.G_RET_STS_ERROR;
6047: FND_MSG_PUB.Count_And_Get
6048: (p_count => x_msg_count,
6042:
6043: EXCEPTION
6044: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6045: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
6046: x_return_status := OKL_API.G_RET_STS_ERROR;
6047: FND_MSG_PUB.Count_And_Get
6048: (p_count => x_msg_count,
6049: p_data => x_msg_data);
6050:
6047: FND_MSG_PUB.Count_And_Get
6048: (p_count => x_msg_count,
6049: p_data => x_msg_data);
6050:
6051: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6052: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
6053: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6054: FND_MSG_PUB.Count_And_Get
6055: (p_count => x_msg_count,
6049: p_data => x_msg_data);
6050:
6051: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6052: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
6053: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6054: FND_MSG_PUB.Count_And_Get
6055: (p_count => x_msg_count,
6056: p_data => x_msg_data);
6057:
6056: p_data => x_msg_data);
6057:
6058: WHEN OTHERS THEN
6059: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
6060: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6061: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6062: p_msg_name => G_UNEXPECTED_ERROR,
6063: p_token1 => G_SQLCODE_TOKEN,
6064: p_token1_value => SQLCODE,
6057:
6058: WHEN OTHERS THEN
6059: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
6060: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6061: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6062: p_msg_name => G_UNEXPECTED_ERROR,
6063: p_token1 => G_SQLCODE_TOKEN,
6064: p_token1_value => SQLCODE,
6065: p_token2 => G_SQLERRM_TOKEN,
6086:
6087: l_api_version CONSTANT NUMBER := 1.0;
6088: l_tplv_tbl tplv_tbl_type := p_tplv_tbl;
6089: i NUMBER;
6090: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6091:
6092: -- smadhava - Bug#5200033 - Added - Start
6093: l_currency_code OKL_TRX_AP_INVOICES_B.CURRENCY_CODE%TYPE;
6094:
6128: p_api_version,
6129: l_api_name,
6130: G_PKG_NAME ))
6131: THEN
6132: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6133: END IF;
6134:
6135: -- Initialize message list if requested
6136: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6137: FND_MSG_PUB.initialize;
6138: END IF;
6139:
6140: -- Initialize API status to success
6141: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6142:
6143:
6144:
6145: /*** Begin API body ****************************************************/
6147:
6148: -- OKL_TPL_PVT is not belongs to our dev team, so we have to write valid code here
6149: -- validate kle_id for passed in pl/sql table before insert into DB
6150: l_return_status := validate_table_kle_id(p_tplv_tbl);
6151: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6152: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6153: x_return_status := l_return_status;
6154: END IF;
6155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6148: -- OKL_TPL_PVT is not belongs to our dev team, so we have to write valid code here
6149: -- validate kle_id for passed in pl/sql table before insert into DB
6150: l_return_status := validate_table_kle_id(p_tplv_tbl);
6151: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6152: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6153: x_return_status := l_return_status;
6154: END IF;
6155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6156: END IF;
6151: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6152: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6153: x_return_status := l_return_status;
6154: END IF;
6155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6156: END IF;
6157:
6158: -- check kle_id and sty_id if applicable
6159: IF (p_tplv_tbl.COUNT > 0) THEN
6198: --
6199: --
6200: --
6201: -- dcshanmu added - 23-Nov-2007 - bug # 6639928 - start
6202: IF (l_tplv_tbl(i).line_number = OKL_API.G_MISS_NUM OR l_tplv_tbl(i).line_number IS NULL) THEN
6203: l_max_line_number := l_max_line_number + 1;
6204: l_tplv_tbl(i).line_number := l_max_line_number;
6205: END IF;
6206: -- dcshanmu added - 23-Nov-2007 - bug # 6639928 - end
6207:
6208: -- fixed bug#3338910
6209: l_return_status := populate_sty_id(l_tplv_tbl(i));
6210:
6211: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6212: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6213: x_return_status := l_return_status;
6214: END IF;
6215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6208: -- fixed bug#3338910
6209: l_return_status := populate_sty_id(l_tplv_tbl(i));
6210:
6211: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6212: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6213: x_return_status := l_return_status;
6214: END IF;
6215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6216: END IF;
6211: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6212: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6213: x_return_status := l_return_status;
6214: END IF;
6215: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6216: END IF;
6217:
6218:
6219: l_return_status := validate_line_attributes(p_tplv_tbl(i), 'C');
6217:
6218:
6219: l_return_status := validate_line_attributes(p_tplv_tbl(i), 'C');
6220:
6221: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6223: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_ERROR;
6225: END IF;
6218:
6219: l_return_status := validate_line_attributes(p_tplv_tbl(i), 'C');
6220:
6221: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6223: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_ERROR;
6225: END IF;
6226:
6219: l_return_status := validate_line_attributes(p_tplv_tbl(i), 'C');
6220:
6221: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6223: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_ERROR;
6225: END IF;
6226:
6227: -- smadhava - Bug#5200033 - Added - Start
6220:
6221: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6223: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6224: RAISE OKL_API.G_EXCEPTION_ERROR;
6225: END IF;
6226:
6227: -- smadhava - Bug#5200033 - Added - Start
6228: -- Round the amount to the System Options setup
6246: x_msg_data => x_msg_data,
6247: p_tplv_tbl => l_tplv_tbl,
6248: x_tplv_tbl => x_tplv_tbl);
6249:
6250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6253: RAISE OKL_API.G_EXCEPTION_ERROR;
6254: END IF;
6247: p_tplv_tbl => l_tplv_tbl,
6248: x_tplv_tbl => x_tplv_tbl);
6249:
6250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6253: RAISE OKL_API.G_EXCEPTION_ERROR;
6254: END IF;
6255:
6248: x_tplv_tbl => x_tplv_tbl);
6249:
6250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6253: RAISE OKL_API.G_EXCEPTION_ERROR;
6254: END IF;
6255:
6256:
6249:
6250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6253: RAISE OKL_API.G_EXCEPTION_ERROR;
6254: END IF;
6255:
6256:
6257: -- sync funding header amount
6262: x_msg_count => x_msg_count,
6263: x_msg_data => x_msg_data,
6264: p_tplv_tbl => x_tplv_tbl);
6265:
6266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6269: RAISE OKL_API.G_EXCEPTION_ERROR;
6270: END IF;
6263: x_msg_data => x_msg_data,
6264: p_tplv_tbl => x_tplv_tbl);
6265:
6266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6269: RAISE OKL_API.G_EXCEPTION_ERROR;
6270: END IF;
6271:
6264: p_tplv_tbl => x_tplv_tbl);
6265:
6266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6269: RAISE OKL_API.G_EXCEPTION_ERROR;
6270: END IF;
6271:
6272:
6265:
6266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6269: RAISE OKL_API.G_EXCEPTION_ERROR;
6270: END IF;
6271:
6272:
6273: /*** End API body ******************************************************/
6277: (p_count => x_msg_count,
6278: p_data => x_msg_data);
6279:
6280: EXCEPTION
6281: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6282:
6283: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6284: x_return_status := OKL_API.G_RET_STS_ERROR;
6285: FND_MSG_PUB.Count_And_Get
6280: EXCEPTION
6281: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6282:
6283: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6284: x_return_status := OKL_API.G_RET_STS_ERROR;
6285: FND_MSG_PUB.Count_And_Get
6286: (p_count => x_msg_count,
6287: p_data => x_msg_data);
6288:
6286: (p_count => x_msg_count,
6287: p_data => x_msg_data);
6288:
6289:
6290: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6291: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6292: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6293: FND_MSG_PUB.Count_And_Get
6294: (p_count => x_msg_count,
6288:
6289:
6290: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6291: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6292: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6293: FND_MSG_PUB.Count_And_Get
6294: (p_count => x_msg_count,
6295: p_data => x_msg_data);
6296:
6295: p_data => x_msg_data);
6296:
6297: WHEN OTHERS THEN
6298: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6299: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6300: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6301: p_msg_name => G_UNEXPECTED_ERROR,
6302: p_token1 => G_SQLCODE_TOKEN,
6303: p_token1_value => SQLCODE,
6296:
6297: WHEN OTHERS THEN
6298: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6299: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6300: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6301: p_msg_name => G_UNEXPECTED_ERROR,
6302: p_token1 => G_SQLCODE_TOKEN,
6303: p_token1_value => SQLCODE,
6304: p_token2 => G_SQLERRM_TOKEN,
6328: IS
6329: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_FUNDING_LINES';
6330:
6331: l_api_version CONSTANT NUMBER := 1.0;
6332: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6333: l_khr_id OKL_TRX_AP_INVOICES_B.KHR_ID%TYPE;
6334: l_vendor_site_id OKL_TRX_AP_INVOICES_B.IPVS_ID%TYPE;
6335: l_vendor_id OKL_TRX_AP_INVOICES_B.VENDOR_ID%TYPE;
6336:
6377:
6378: BEGIN
6379: SAVEPOINT CREATE_FUNDING_LINES_PVT;
6380:
6381: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6382:
6383: OPEN c_get_assets(p_vendor_site_id, p_khr_id);
6384: FETCH c_get_assets BULK COLLECT INTO l_assets_tbl;
6385: CLOSE c_get_assets;
6413: ,x_tplv_tbl);
6414: END IF;
6415:
6416:
6417: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6419: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6420: RAISE OKL_API.G_EXCEPTION_ERROR;
6421: END IF;
6414: END IF;
6415:
6416:
6417: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6419: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6420: RAISE OKL_API.G_EXCEPTION_ERROR;
6421: END IF;
6422:
6415:
6416:
6417: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6419: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6420: RAISE OKL_API.G_EXCEPTION_ERROR;
6421: END IF;
6422:
6423: -- Get message count and if count is 1, get message info
6416:
6417: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6419: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6420: RAISE OKL_API.G_EXCEPTION_ERROR;
6421: END IF;
6422:
6423: -- Get message count and if count is 1, get message info
6424: FND_MSG_PUB.Count_And_Get
6425: (p_count => x_msg_count,
6426: p_data => x_msg_data);
6427:
6428: EXCEPTION
6429: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6430:
6431: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6432: x_return_status := OKL_API.G_RET_STS_ERROR;
6433: FND_MSG_PUB.Count_And_Get
6428: EXCEPTION
6429: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6430:
6431: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6432: x_return_status := OKL_API.G_RET_STS_ERROR;
6433: FND_MSG_PUB.Count_And_Get
6434: (p_count => x_msg_count,
6435: p_data => x_msg_data);
6436:
6434: (p_count => x_msg_count,
6435: p_data => x_msg_data);
6436:
6437:
6438: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6439: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6440: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6441: FND_MSG_PUB.Count_And_Get
6442: (p_count => x_msg_count,
6436:
6437:
6438: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6439: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6440: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6441: FND_MSG_PUB.Count_And_Get
6442: (p_count => x_msg_count,
6443: p_data => x_msg_data);
6444:
6443: p_data => x_msg_data);
6444:
6445: WHEN OTHERS THEN
6446: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6447: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6448: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6449: p_msg_name => G_UNEXPECTED_ERROR,
6450: p_token1 => G_SQLCODE_TOKEN,
6451: p_token1_value => SQLCODE,
6444:
6445: WHEN OTHERS THEN
6446: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6447: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6448: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6449: p_msg_name => G_UNEXPECTED_ERROR,
6450: p_token1 => G_SQLCODE_TOKEN,
6451: p_token1_value => SQLCODE,
6452: p_token2 => G_SQLERRM_TOKEN,
6474: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FUNDING_LINES';
6475: l_api_version CONSTANT NUMBER := 1.0;
6476: l_tplv_tbl tplv_tbl_type := p_tplv_tbl;
6477: i NUMBER;
6478: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6479: l_sty_id number;
6480:
6481: --- vpanwar added 28/02/2007 start
6482: l_khr_id OKL_TRX_AP_INVOICES_B.KHR_ID%TYPE;
6514: p_api_version,
6515: l_api_name,
6516: G_PKG_NAME ))
6517: THEN
6518: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6519: END IF;
6520:
6521: -- Initialize message list if requested
6522: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6523: FND_MSG_PUB.initialize;
6524: END IF;
6525:
6526: -- Initialize API status to success
6527: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6528:
6529: /*** Begin API body ****************************************************/
6530:
6531: -- check kle_id and sty_id if applicable
6553: l_tplv_tbl(i).KHR_ID := l_khr_id;
6554: --- vpanwar added 28/02/2007 start
6555:
6556: -- cklee: 09/16/2004
6557: IF (l_tplv_tbl(i).sty_id IS NULL or l_tplv_tbl(i).sty_id = OKL_API.G_MISS_NUM) THEN
6558:
6559: open c_sty_id(l_tplv_tbl(i).id);
6560: fetch c_sty_id into l_sty_id;
6561: IF c_sty_id%found THEN
6564: close c_sty_id;
6565: END IF;
6566:
6567: l_return_status := validate_line_attributes(l_tplv_tbl(i), 'U');
6568: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6570: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6571: RAISE OKL_API.G_EXCEPTION_ERROR;
6572: END IF;
6565: END IF;
6566:
6567: l_return_status := validate_line_attributes(l_tplv_tbl(i), 'U');
6568: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6570: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6571: RAISE OKL_API.G_EXCEPTION_ERROR;
6572: END IF;
6573:
6566:
6567: l_return_status := validate_line_attributes(l_tplv_tbl(i), 'U');
6568: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6570: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6571: RAISE OKL_API.G_EXCEPTION_ERROR;
6572: END IF;
6573:
6574: -- smadhava - Bug#5200033 - Added - Start
6567: l_return_status := validate_line_attributes(l_tplv_tbl(i), 'U');
6568: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6570: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6571: RAISE OKL_API.G_EXCEPTION_ERROR;
6572: END IF;
6573:
6574: -- smadhava - Bug#5200033 - Added - Start
6575: -- Round the amount to the System Options setup
6592: x_msg_data => x_msg_data,
6593: p_tplv_tbl => l_tplv_tbl,
6594: x_tplv_tbl => x_tplv_tbl);
6595:
6596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6599: RAISE OKL_API.G_EXCEPTION_ERROR;
6600: END IF;
6593: p_tplv_tbl => l_tplv_tbl,
6594: x_tplv_tbl => x_tplv_tbl);
6595:
6596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6599: RAISE OKL_API.G_EXCEPTION_ERROR;
6600: END IF;
6601:
6594: x_tplv_tbl => x_tplv_tbl);
6595:
6596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6599: RAISE OKL_API.G_EXCEPTION_ERROR;
6600: END IF;
6601:
6602: -- sync funding header amount
6595:
6596: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6597: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6598: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6599: RAISE OKL_API.G_EXCEPTION_ERROR;
6600: END IF;
6601:
6602: -- sync funding header amount
6603: SYNC_HEADER_AMOUNT(
6607: x_msg_count => x_msg_count,
6608: x_msg_data => x_msg_data,
6609: p_tplv_tbl => l_tplv_tbl);
6610:
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6608: x_msg_data => x_msg_data,
6609: p_tplv_tbl => l_tplv_tbl);
6610:
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6616:
6609: p_tplv_tbl => l_tplv_tbl);
6610:
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6616:
6617:
6610:
6611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6614: RAISE OKL_API.G_EXCEPTION_ERROR;
6615: END IF;
6616:
6617:
6618: /*** End API body ******************************************************/
6622: (p_count => x_msg_count,
6623: p_data => x_msg_data);
6624:
6625: EXCEPTION
6626: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6627: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6628: x_return_status := OKL_API.G_RET_STS_ERROR;
6629: FND_MSG_PUB.Count_And_Get
6630: (p_count => x_msg_count,
6624:
6625: EXCEPTION
6626: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6627: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6628: x_return_status := OKL_API.G_RET_STS_ERROR;
6629: FND_MSG_PUB.Count_And_Get
6630: (p_count => x_msg_count,
6631: p_data => x_msg_data);
6632:
6629: FND_MSG_PUB.Count_And_Get
6630: (p_count => x_msg_count,
6631: p_data => x_msg_data);
6632:
6633: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6634: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6635: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6636: FND_MSG_PUB.Count_And_Get
6637: (p_count => x_msg_count,
6631: p_data => x_msg_data);
6632:
6633: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6634: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6635: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6636: FND_MSG_PUB.Count_And_Get
6637: (p_count => x_msg_count,
6638: p_data => x_msg_data);
6639:
6639:
6640:
6641: WHEN OTHERS THEN
6642: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6643: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6644: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6645: p_msg_name => G_UNEXPECTED_ERROR,
6646: p_token1 => G_SQLCODE_TOKEN,
6647: p_token1_value => SQLCODE,
6640:
6641: WHEN OTHERS THEN
6642: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6643: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6644: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6645: p_msg_name => G_UNEXPECTED_ERROR,
6646: p_token1 => G_SQLCODE_TOKEN,
6647: p_token1_value => SQLCODE,
6648: p_token2 => G_SQLERRM_TOKEN,
6667: l_api_version CONSTANT NUMBER := 1.0;
6668: l_tplv_tbl tplv_tbl_type;
6669: x_tplv_tbl tplv_tbl_type;
6670: i NUMBER;
6671: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6672: --l_khr_id NUMBER;
6673: l_org_id NUMBER;
6674: l_kle_id NUMBER;
6675: l_asset_cost NUMBER;
6749: p_api_version,
6750: l_api_name,
6751: G_PKG_NAME ))
6752: THEN
6753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6754: END IF;
6755:
6756: -- Initialize message list if requested
6757: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6758: FND_MSG_PUB.initialize;
6759: END IF;
6760:
6761: -- Initialize API status to success
6762: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6763:
6764:
6765: /*** Begin API body ****************************************************/
6766:
6810:
6811: -- fixed bug#3338910
6812: l_return_status := populate_sty_id(l_tplv_tbl(i));
6813:
6814: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6815: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6816: x_return_status := l_return_status;
6817: END IF;
6818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6811: -- fixed bug#3338910
6812: l_return_status := populate_sty_id(l_tplv_tbl(i));
6813:
6814: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6815: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6816: x_return_status := l_return_status;
6817: END IF;
6818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6819: END IF;
6814: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6815: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6816: x_return_status := l_return_status;
6817: END IF;
6818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6819: END IF;
6820:
6821:
6822: i := i + 1;
6838: p_tplv_tbl => l_tplv_tbl,
6839: x_tplv_tbl => x_tplv_tbl);
6840:
6841:
6842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6845: RAISE OKL_API.G_EXCEPTION_ERROR;
6846: END IF;
6839: x_tplv_tbl => x_tplv_tbl);
6840:
6841:
6842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6845: RAISE OKL_API.G_EXCEPTION_ERROR;
6846: END IF;
6847:
6840:
6841:
6842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6845: RAISE OKL_API.G_EXCEPTION_ERROR;
6846: END IF;
6847:
6848: -- sync funding header amount
6841:
6842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6845: RAISE OKL_API.G_EXCEPTION_ERROR;
6846: END IF;
6847:
6848: -- sync funding header amount
6849: OKL_FUNDING_PVT.SYNC_HEADER_AMOUNT(
6853: x_msg_count => x_msg_count,
6854: x_msg_data => x_msg_data,
6855: p_tplv_tbl => x_tplv_tbl);
6856:
6857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6860: RAISE OKL_API.G_EXCEPTION_ERROR;
6861: END IF;
6854: x_msg_data => x_msg_data,
6855: p_tplv_tbl => x_tplv_tbl);
6856:
6857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6860: RAISE OKL_API.G_EXCEPTION_ERROR;
6861: END IF;
6862:
6855: p_tplv_tbl => x_tplv_tbl);
6856:
6857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6860: RAISE OKL_API.G_EXCEPTION_ERROR;
6861: END IF;
6862:
6863: END IF;
6856:
6857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6860: RAISE OKL_API.G_EXCEPTION_ERROR;
6861: END IF;
6862:
6863: END IF;
6864:
6869: (p_count => x_msg_count,
6870: p_data => x_msg_data);
6871:
6872: EXCEPTION
6873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6874: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6875: x_return_status := OKL_API.G_RET_STS_ERROR;
6876: FND_MSG_PUB.Count_And_Get
6877: (p_count => x_msg_count,
6871:
6872: EXCEPTION
6873: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6874: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6875: x_return_status := OKL_API.G_RET_STS_ERROR;
6876: FND_MSG_PUB.Count_And_Get
6877: (p_count => x_msg_count,
6878: p_data => x_msg_data);
6879:
6876: FND_MSG_PUB.Count_And_Get
6877: (p_count => x_msg_count,
6878: p_data => x_msg_data);
6879:
6880: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6881: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6882: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6883:
6884: FND_MSG_PUB.Count_And_Get
6878: p_data => x_msg_data);
6879:
6880: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6881: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6882: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6883:
6884: FND_MSG_PUB.Count_And_Get
6885: (p_count => x_msg_count,
6886: p_data => x_msg_data);
6886: p_data => x_msg_data);
6887:
6888: WHEN OTHERS THEN
6889: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6890: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6891: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6892: p_msg_name => G_UNEXPECTED_ERROR,
6893: p_token1 => G_SQLCODE_TOKEN,
6894: p_token1_value => SQLCODE,
6887:
6888: WHEN OTHERS THEN
6889: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6890: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6891: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6892: p_msg_name => G_UNEXPECTED_ERROR,
6893: p_token1 => G_SQLCODE_TOKEN,
6894: p_token1_value => SQLCODE,
6895: p_token2 => G_SQLERRM_TOKEN,
6919:
6920: funding_line_id number;
6921:
6922:
6923: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6924: l_currency_code okc_k_headers_b.CURRENCY_CODE%TYPE;
6925: l_org_id okc_k_headers_b.AUTHORING_ORG_ID%TYPE;
6926: l_contract_number okc_k_headers_b.CONTRACT_NUMBER%TYPE;
6927:
6995:
6996: l_api_name,
6997: G_PKG_NAME ))
6998: THEN
6999: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7000:
7001: END IF;
7002:
7003: -- Initialize message list if requested
7005: FND_MSG_PUB.initialize;
7006: END IF;
7007:
7008: -- Initialize API status to success
7009: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7010:
7011:
7012: /*** Begin API body ****************************************************/
7013: -- get org_id
7074: p_tapv_rec => l_tapv_rec,
7075: x_tapv_rec => x_tapv_rec);
7076:
7077:
7078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7081: RAISE OKL_API.G_EXCEPTION_ERROR;
7082: END IF;
7075: x_tapv_rec => x_tapv_rec);
7076:
7077:
7078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7081: RAISE OKL_API.G_EXCEPTION_ERROR;
7082: END IF;
7083:
7076:
7077:
7078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7081: RAISE OKL_API.G_EXCEPTION_ERROR;
7082: END IF;
7083:
7084: OPEN cu (x_tapv_rec.id);
7077:
7078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7081: RAISE OKL_API.G_EXCEPTION_ERROR;
7082: END IF;
7083:
7084: OPEN cu (x_tapv_rec.id);
7085: FETCH cu INTO l_PAY_GROUP_LOOKUP_CODE,
7102: x_msg_data => x_msg_data,
7103: p_tapv_rec => l_tapv_rec,
7104: x_tapv_rec => x_tapv_rec);
7105:
7106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7108:
7109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_ERROR;
7103: p_tapv_rec => l_tapv_rec,
7104: x_tapv_rec => x_tapv_rec);
7105:
7106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7108:
7109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_ERROR;
7111: END IF;
7105:
7106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7108:
7109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_ERROR;
7111: END IF;
7112:
7113: -- WF enable, add accounting entry 06/24/03 cklee
7106: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7107: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7108:
7109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_ERROR;
7111: END IF;
7112:
7113: -- WF enable, add accounting entry 06/24/03 cklee
7114:
7133: p_fund_id => l_tapv_rec.id);--,--:| 21-May-2007 cklee OKLR12B Accounting CR |
7134: -- p_fund_line_id => funding_line_id);--:| 21-May-2007 cklee OKLR12B Accounting CR |
7135:
7136:
7137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7139: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
7140: RAISE OKL_API.G_EXCEPTION_ERROR;
7141: END IF;
7134: -- p_fund_line_id => funding_line_id);--:| 21-May-2007 cklee OKLR12B Accounting CR |
7135:
7136:
7137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7139: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
7140: RAISE OKL_API.G_EXCEPTION_ERROR;
7141: END IF;
7142:
7135:
7136:
7137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7139: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
7140: RAISE OKL_API.G_EXCEPTION_ERROR;
7141: END IF;
7142:
7143: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
7136:
7137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7139: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
7140: RAISE OKL_API.G_EXCEPTION_ERROR;
7141: END IF;
7142:
7143: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
7144: -- END LOOP;
7158: (p_count => x_msg_count,
7159: p_data => x_msg_data);
7160:
7161: EXCEPTION
7162: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7163: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7164: x_return_status := OKL_API.G_RET_STS_ERROR;
7165: FND_MSG_PUB.Count_And_Get
7166: (p_count => x_msg_count,
7160:
7161: EXCEPTION
7162: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7163: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7164: x_return_status := OKL_API.G_RET_STS_ERROR;
7165: FND_MSG_PUB.Count_And_Get
7166: (p_count => x_msg_count,
7167: p_data => x_msg_data);
7168:
7165: FND_MSG_PUB.Count_And_Get
7166: (p_count => x_msg_count,
7167: p_data => x_msg_data);
7168:
7169: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7170: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7171: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7172: FND_MSG_PUB.Count_And_Get
7173: (p_count => x_msg_count,
7167: p_data => x_msg_data);
7168:
7169: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7170: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7171: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7172: FND_MSG_PUB.Count_And_Get
7173: (p_count => x_msg_count,
7174: p_data => x_msg_data);
7175:
7174: p_data => x_msg_data);
7175:
7176: WHEN OTHERS THEN
7177: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7178: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7179:
7180: OKL_API.Set_Message(p_app_name => G_APP_NAME,
7181: p_msg_name => G_UNEXPECTED_ERROR,
7182: p_token1 => G_SQLCODE_TOKEN,
7176: WHEN OTHERS THEN
7177: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7178: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7179:
7180: OKL_API.Set_Message(p_app_name => G_APP_NAME,
7181: p_msg_name => G_UNEXPECTED_ERROR,
7182: p_token1 => G_SQLCODE_TOKEN,
7183: p_token1_value => SQLCODE,
7184: p_token2 => G_SQLERRM_TOKEN,
7223: l_amount NUMBER := 0;
7224: l_amount_buffer NUMBER := 0;
7225: l_vendor_id NUMBER := 0;
7226: -- start: okl.h: cklee
7227: x_return_status VARCHAR2(3) := okl_api.g_ret_sts_success;
7228: l_api_version NUMBER := 1.0;
7229: x_msg_count NUMBER;
7230: x_msg_data VARCHAR2(4000);
7231: l_init_msg_list VARCHAR2(10) := okl_api.g_false;
7227: x_return_status VARCHAR2(3) := okl_api.g_ret_sts_success;
7228: l_api_version NUMBER := 1.0;
7229: x_msg_count NUMBER;
7230: x_msg_data VARCHAR2(4000);
7231: l_init_msg_list VARCHAR2(10) := okl_api.g_false;
7232: x_value NUMBER;
7233:
7234: -- start: okl.h: cklee
7235: CURSOR cv1(
7519:
7520: --end:| 08-Feb-08 cklee Fixed bug: 6783566 |
7521:
7522: BEGIN
7523: IF (p_khr_id IS NULL) OR (p_khr_id = okl_api.g_miss_num) THEN
7524: RETURN 0; -- error
7525: ELSIF ((p_kle_id IS NULL) OR (p_kle_id = okl_api.g_miss_num) AND (p_vendor_site_id IS NULL OR p_vendor_site_id = okl_api.g_miss_num)) THEN
7526:
7527: OPEN c_no_line_and_vendor(p_khr_id);
7521:
7522: BEGIN
7523: IF (p_khr_id IS NULL) OR (p_khr_id = okl_api.g_miss_num) THEN
7524: RETURN 0; -- error
7525: ELSIF ((p_kle_id IS NULL) OR (p_kle_id = okl_api.g_miss_num) AND (p_vendor_site_id IS NULL OR p_vendor_site_id = okl_api.g_miss_num)) THEN
7526:
7527: OPEN c_no_line_and_vendor(p_khr_id);
7528: FETCH c_no_line_and_vendor INTO l_amount;
7529: CLOSE c_no_line_and_vendor;
7534: FOR l_kle_id IN c_kle_id(p_khr_id) LOOP
7535: BEGIN
7536: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
7537:
7538: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7539: l_amount_buffer := 0;
7540: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7541: l_amount_buffer := 0;
7542: END IF;
7536: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
7537:
7538: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7539: l_amount_buffer := 0;
7540: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7541: l_amount_buffer := 0;
7542: END IF;
7543: EXCEPTION
7544: WHEN OTHERS THEN
7550: BEGIN
7551: IF ((l_kle_id.downpymnt_recvr IS NULL) OR (l_kle_id.downpymnt_recvr = 'VENDOR')) THEN
7552: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
7553:
7554: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7555: l_amount_buffer := 0;
7556: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7557: l_amount_buffer := 0;
7558: END IF;
7552: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
7553:
7554: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7555: l_amount_buffer := 0;
7556: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7557: l_amount_buffer := 0;
7558: END IF;
7559: ELSIF(l_kle_id.downpymnt_recvr = 'LESSOR') THEN
7560: l_amount_buffer := 0;
7567:
7568: l_amount := l_amount - l_amount_buffer;
7569: END LOOP;
7570:
7571: ELSIF (p_vendor_site_id IS NULL OR p_vendor_site_id = okl_api.g_miss_num) THEN
7572:
7573: OPEN cv_no_vendor(p_khr_id, p_kle_id);
7574: FETCH cv_no_vendor INTO l_amount;
7575: CLOSE cv_no_vendor;
7580: --------------------------------------------------
7581: BEGIN
7582: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7583:
7584: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7585: l_amount_buffer := 0;
7586: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7587: l_amount_buffer := 0;
7588: END IF;
7582: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7583:
7584: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7585: l_amount_buffer := 0;
7586: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7587: l_amount_buffer := 0;
7588: END IF;
7589: EXCEPTION
7590: WHEN OTHERS THEN
7605: IF ((l_downpymnt_recvr IS NULL) OR (l_downpymnt_recvr = 'VENDOR')) THEN
7606: -- bug 5384359 -- end
7607: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7608:
7609: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7610: l_amount_buffer := 0;
7611: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7612: l_amount_buffer := 0;
7613: END IF;
7607: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7608:
7609: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7610: l_amount_buffer := 0;
7611: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7612: l_amount_buffer := 0;
7613: END IF;
7614: --bug 5473370 --start
7615: ELSIF(l_downpymnt_recvr = 'LESSOR') THEN
7682: -- bug 5402377 -- end
7683: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7684:
7685: --END:| 27-Feb-2006 cklee -- Fixed bug#5003962 |
7686: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7687: l_amount_buffer := 0;
7688: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7689: l_amount_buffer := 0;
7690: END IF;
7684:
7685: --END:| 27-Feb-2006 cklee -- Fixed bug#5003962 |
7686: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7687: l_amount_buffer := 0;
7688: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7689: l_amount_buffer := 0;
7690: END IF;
7691: --bug 5500032 --start
7692: ELSIF(l_downpymnt_recvr = 'LESSOR') THEN
7722: --skgautam Bug#5260198
7723: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7724:
7725: --END:| 27-Feb-2006 cklee -- Fixed bug#5003962 |
7726: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7727: l_amount_buffer := 0;
7728: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7729: l_amount_buffer := 0;
7730: END IF;
7724:
7725: --END:| 27-Feb-2006 cklee -- Fixed bug#5003962 |
7726: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7727: l_amount_buffer := 0;
7728: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7729: l_amount_buffer := 0;
7730: END IF;
7731: EXCEPTION
7732: WHEN OTHERS THEN
7787: AND th.funding_type_code = p_funding_type_code
7788: -- fixed bug 3007875
7789: AND th.TRX_STATUS_CODE NOT IN ('CANCELED', 'ERROR', 'REJECTED');
7790: BEGIN
7791: IF (p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM) OR
7792: (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM)
7793: THEN
7794: RETURN OKL_API.G_MISS_NUM; -- error
7795: ELSIF (p_ref_type_code IS NULL OR p_ref_type_code = OKL_API.G_MISS_CHAR) THEN
7788: -- fixed bug 3007875
7789: AND th.TRX_STATUS_CODE NOT IN ('CANCELED', 'ERROR', 'REJECTED');
7790: BEGIN
7791: IF (p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM) OR
7792: (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM)
7793: THEN
7794: RETURN OKL_API.G_MISS_NUM; -- error
7795: ELSIF (p_ref_type_code IS NULL OR p_ref_type_code = OKL_API.G_MISS_CHAR) THEN
7796: OPEN c (p_khr_id, p_kle_id);
7790: BEGIN
7791: IF (p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM) OR
7792: (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM)
7793: THEN
7794: RETURN OKL_API.G_MISS_NUM; -- error
7795: ELSIF (p_ref_type_code IS NULL OR p_ref_type_code = OKL_API.G_MISS_CHAR) THEN
7796: OPEN c (p_khr_id, p_kle_id);
7797: FETCH c INTO l_amount;
7798: CLOSE c;
7791: IF (p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM) OR
7792: (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM)
7793: THEN
7794: RETURN OKL_API.G_MISS_NUM; -- error
7795: ELSIF (p_ref_type_code IS NULL OR p_ref_type_code = OKL_API.G_MISS_CHAR) THEN
7796: OPEN c (p_khr_id, p_kle_id);
7797: FETCH c INTO l_amount;
7798: CLOSE c;
7799: ELSE
7867: ,p_fund_number IN VARCHAR2
7868: ,p_org_id IN NUMBER
7869: ) RETURN VARCHAR2
7870: IS
7871: l_result VARCHAR2(1) := OKL_API.G_TRUE;
7872: l_dummy VARCHAR2(1) := '?';
7873:
7874: -- sjalasut, modified the cursor below to have khr_id referred from
7875: -- okl_txl_ap_inv_lns_all_b instead of okl_trx_ap_invoices_b. changes made
7890: AND chr.AUTHORING_ORG_ID = p_org_id
7891: AND VS.vendor_id = p_vendor_id;
7892:
7893: BEGIN
7894: IF (p_vendor_id IS NULL OR p_vendor_id = OKL_API.G_MISS_NUM) OR
7895: (p_fund_number IS NULL OR p_fund_number = OKL_API.G_MISS_CHAR)
7896: THEN
7897: RETURN OKL_API.G_MISS_CHAR;
7898: END IF;
7891: AND VS.vendor_id = p_vendor_id;
7892:
7893: BEGIN
7894: IF (p_vendor_id IS NULL OR p_vendor_id = OKL_API.G_MISS_NUM) OR
7895: (p_fund_number IS NULL OR p_fund_number = OKL_API.G_MISS_CHAR)
7896: THEN
7897: RETURN OKL_API.G_MISS_CHAR;
7898: END IF;
7899:
7893: BEGIN
7894: IF (p_vendor_id IS NULL OR p_vendor_id = OKL_API.G_MISS_NUM) OR
7895: (p_fund_number IS NULL OR p_fund_number = OKL_API.G_MISS_CHAR)
7896: THEN
7897: RETURN OKL_API.G_MISS_CHAR;
7898: END IF;
7899:
7900: -- OPEN c(p_vendor_id, p_fund_number);
7901: OPEN c(p_fund_number, p_org_id, p_vendor_id);
7902:
7903: FETCH c INTO l_dummy;
7904: CLOSE c;
7905: IF (l_dummy = 'X') THEN
7906: l_result := OKL_API.G_FALSE;
7907: END IF;
7908: RETURN l_result;
7909: END is_funding_unique;
7910: ----------------------------------------------------------------------------
7916: ,p_mode IN VARCHAR2
7917: ,p_org_id IN NUMBER
7918: ) RETURN VARCHAR2
7919: IS
7920: l_result VARCHAR2(1) := OKL_API.G_TRUE;
7921: l_dummy VARCHAR2(1) := '?';
7922: l_count NUMBER(1) := 0;
7923:
7924: CURSOR c (p_fund_id NUMBER, p_kle_id NUMBER)
7942: ;
7943:
7944: BEGIN
7945:
7946: IF (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM) OR
7947: (p_fund_id IS NULL OR p_fund_id = OKL_API.G_MISS_NUM)
7948: THEN
7949: RETURN OKL_API.G_MISS_NUM;
7950: END IF;
7943:
7944: BEGIN
7945:
7946: IF (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM) OR
7947: (p_fund_id IS NULL OR p_fund_id = OKL_API.G_MISS_NUM)
7948: THEN
7949: RETURN OKL_API.G_MISS_NUM;
7950: END IF;
7951:
7945:
7946: IF (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM) OR
7947: (p_fund_id IS NULL OR p_fund_id = OKL_API.G_MISS_NUM)
7948: THEN
7949: RETURN OKL_API.G_MISS_NUM;
7950: END IF;
7951:
7952: IF (p_mode = 'C') THEN
7953:
7963:
7964: END IF;
7965:
7966: IF (l_dummy = 'X') THEN
7967: l_result := OKL_API.G_FALSE;
7968: END IF;
7969:
7970:
7971: RETURN l_result;
7978: FUNCTION is_kle_id_unique(
7979: p_tplv_tbl IN tplv_tbl_type
7980: ) RETURN VARCHAR2
7981: IS
7982: l_result VARCHAR2(1) := OKL_API.G_TRUE;
7983: l_tplv_tbl tplv_tbl_type := p_tplv_tbl;
7984: i NUMBER;
7985: j NUMBER;
7986: l_count NUMBER;
8001:
8002: IF (p_tplv_tbl(i).kle_id = l_tplv_tbl(j).kle_id) THEN
8003: l_count := l_count+1;
8004: IF (l_count > 1) THEN
8005: l_result := OKL_API.G_FALSE;
8006: EXIT;
8007:
8008: END IF;
8009: END IF;
8082: ;
8083:
8084: BEGIN
8085:
8086: IF (p_vendor_site_id IS NULL OR p_vendor_site_id = OKL_API.G_MISS_NUM) THEN
8087:
8088: OPEN c (p_contract_id);
8089: FETCH c INTO l_amount;
8090: CLOSE c;
8096:
8097: RETURN l_amount;
8098: EXCEPTION
8099: WHEN OTHERS THEN
8100: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8101:
8102: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8103: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8104: p_token1 => 'OKL_SQLCODE',
8098: EXCEPTION
8099: WHEN OTHERS THEN
8100: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8101:
8102: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8103: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8104: p_token1 => 'OKL_SQLCODE',
8105: p_token1_value => SQLCODE,
8106: p_token2 => 'OKL_SQLERRM',
8160:
8161: RETURN x_amount;
8162: EXCEPTION
8163: WHEN OTHERS THEN
8164: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8165: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8166: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8167: p_token1 => 'OKL_SQLCODE',
8168: p_token1_value => SQLCODE,
8161: RETURN x_amount;
8162: EXCEPTION
8163: WHEN OTHERS THEN
8164: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8165: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8166: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8167: p_token1 => 'OKL_SQLCODE',
8168: p_token1_value => SQLCODE,
8169: p_token2 => 'OKL_SQLERRM',
8210:
8211: RETURN l_amount;
8212: EXCEPTION
8213: WHEN OTHERS THEN
8214: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8215: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8216: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8217: p_token1 => 'OKL_SQLCODE',
8218: p_token1_value => SQLCODE,
8211: RETURN l_amount;
8212: EXCEPTION
8213: WHEN OTHERS THEN
8214: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8215: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8216: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8217: p_token1 => 'OKL_SQLCODE',
8218: p_token1_value => SQLCODE,
8219: p_token2 => 'OKL_SQLERRM',
8260:
8261: RETURN l_amount;
8262: EXCEPTION
8263: WHEN OTHERS THEN
8264: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8265:
8266: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8267: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8268: p_token1 => 'OKL_SQLCODE',
8262: EXCEPTION
8263: WHEN OTHERS THEN
8264: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8265:
8266: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8267: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8268: p_token1 => 'OKL_SQLCODE',
8269: p_token1_value => SQLCODE,
8270: p_token2 => 'OKL_SQLERRM',
8320:
8321:
8322: BEGIN
8323:
8324: IF (p_contract_line_id IS NULL OR p_contract_line_id = OKL_API.G_MISS_NUM) THEN
8325:
8326: OPEN c (p_contract_id);
8327: FETCH c INTO l_amount;
8328: CLOSE c;
8337:
8338: RETURN l_amount;
8339: EXCEPTION
8340: WHEN OTHERS THEN
8341: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8342: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8343: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8344: p_token1 => 'OKL_SQLCODE',
8345: p_token1_value => SQLCODE,
8338: RETURN l_amount;
8339: EXCEPTION
8340: WHEN OTHERS THEN
8341: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8342: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8343: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8344: p_token1 => 'OKL_SQLCODE',
8345: p_token1_value => SQLCODE,
8346: p_token2 => 'OKL_SQLERRM',
8358: ) RETURN NUMBER
8359: IS
8360: -- l_amount NUMBER := 0;
8361: l_api_version NUMBER := 1.0;
8362: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
8363: x_return_status VARCHAR2(1);
8364: x_msg_count NUMBER;
8365: x_msg_data VARCHAR2(2000);
8366: x_subsidy_amount NUMBER := 0;
8395:
8396: );
8397:
8398:
8399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8402: RAISE OKL_API.G_EXCEPTION_ERROR;
8403: END IF;
8396: );
8397:
8398:
8399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8402: RAISE OKL_API.G_EXCEPTION_ERROR;
8403: END IF;
8404:
8397:
8398:
8399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8402: RAISE OKL_API.G_EXCEPTION_ERROR;
8403: END IF;
8404:
8405: RETURN x_subsidy_amount;
8398:
8399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8402: RAISE OKL_API.G_EXCEPTION_ERROR;
8403: END IF;
8404:
8405: RETURN x_subsidy_amount;
8406:
8406:
8407: EXCEPTION
8408: WHEN OTHERS THEN
8409:
8410: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8411: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8412: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8413: p_token1 => 'OKL_SQLCODE',
8414: p_token1_value => SQLCODE,
8407: EXCEPTION
8408: WHEN OTHERS THEN
8409:
8410: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8411: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8412: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8413: p_token1 => 'OKL_SQLCODE',
8414: p_token1_value => SQLCODE,
8415: p_token2 => 'OKL_SQLERRM',
8427: IS
8428: l_amount NUMBER := 0;
8429: i NUMBER;
8430: l_api_version NUMBER := 1.0;
8431: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
8432: x_return_status VARCHAR2(1);
8433: x_msg_count NUMBER;
8434: x_msg_data VARCHAR2(2000);
8435: x_partial_subsidy_amount NUMBER := 0;
8448: p_req_fund_amount => p_req_fund_amount,
8449: x_asbv_tbl => x_asbv_tbl
8450: );
8451:
8452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8455: RAISE OKL_API.G_EXCEPTION_ERROR;
8456: END IF;
8449: x_asbv_tbl => x_asbv_tbl
8450: );
8451:
8452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8455: RAISE OKL_API.G_EXCEPTION_ERROR;
8456: END IF;
8457:
8450: );
8451:
8452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8455: RAISE OKL_API.G_EXCEPTION_ERROR;
8456: END IF;
8457:
8458: IF (x_asbv_tbl.COUNT > 0) THEN
8451:
8452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8453: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8455: RAISE OKL_API.G_EXCEPTION_ERROR;
8456: END IF;
8457:
8458: IF (x_asbv_tbl.COUNT > 0) THEN
8459: i := x_asbv_tbl.FIRST;
8469: RETURN l_amount;
8470:
8471: EXCEPTION
8472: WHEN OTHERS THEN
8473: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8474:
8475: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8476: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8477: p_token1 => 'OKL_SQLCODE',
8471: EXCEPTION
8472: WHEN OTHERS THEN
8473: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8474:
8475: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8476: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8477: p_token1 => 'OKL_SQLCODE',
8478: p_token1_value => SQLCODE,
8479: p_token2 => 'OKL_SQLERRM',
8524:
8525: RETURN l_amount;
8526: EXCEPTION
8527: WHEN OTHERS THEN
8528: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8529: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8530: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8531: p_token1 => 'OKL_SQLCODE',
8532: p_token1_value => SQLCODE,
8525: RETURN l_amount;
8526: EXCEPTION
8527: WHEN OTHERS THEN
8528: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8529: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8530: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8531: p_token1 => 'OKL_SQLCODE',
8532: p_token1_value => SQLCODE,
8533: p_token2 => 'OKL_SQLERRM',
8574: )
8575: IS
8576: l_api_name CONSTANT VARCHAR2(30) := 'contract_fee_canbe_funded';
8577: l_api_version CONSTANT NUMBER := 1.0;
8578: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8579:
8580: BEGIN
8581: -- Set API savepoint
8582:
8587: p_api_version,
8588: l_api_name,
8589: G_PKG_NAME ))
8590: THEN
8591: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8592: END IF;
8593:
8594: -- Initialize message list if requested
8595: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
8596: FND_MSG_PUB.initialize;
8597: END IF;
8598:
8599: -- Initialize API status to success
8600: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8601:
8602:
8603: /*** Begin API body ****************************************************/
8604: x_value := get_chr_fee_canbe_funded_amt(
8613: (p_count => x_msg_count,
8614: p_data => x_msg_data);
8615:
8616: EXCEPTION
8617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8618: ROLLBACK TO contract_fee_canbe_funded;
8619: x_return_status := OKL_API.G_RET_STS_ERROR;
8620: FND_MSG_PUB.Count_And_Get
8621: (p_count => x_msg_count,
8615:
8616: EXCEPTION
8617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8618: ROLLBACK TO contract_fee_canbe_funded;
8619: x_return_status := OKL_API.G_RET_STS_ERROR;
8620: FND_MSG_PUB.Count_And_Get
8621: (p_count => x_msg_count,
8622: p_data => x_msg_data);
8623:
8620: FND_MSG_PUB.Count_And_Get
8621: (p_count => x_msg_count,
8622: p_data => x_msg_data);
8623:
8624: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8625: ROLLBACK TO contract_fee_canbe_funded;
8626: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8627: FND_MSG_PUB.Count_And_Get
8628: (p_count => x_msg_count,
8622: p_data => x_msg_data);
8623:
8624: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8625: ROLLBACK TO contract_fee_canbe_funded;
8626: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8627: FND_MSG_PUB.Count_And_Get
8628: (p_count => x_msg_count,
8629: p_data => x_msg_data);
8630:
8629: p_data => x_msg_data);
8630:
8631: WHEN OTHERS THEN
8632: ROLLBACK TO contract_fee_canbe_funded;
8633: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8634:
8635: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8636: p_msg_name => G_UNEXPECTED_ERROR,
8637: p_token1 => G_SQLCODE_TOKEN,
8631: WHEN OTHERS THEN
8632: ROLLBACK TO contract_fee_canbe_funded;
8633: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8634:
8635: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8636: p_msg_name => G_UNEXPECTED_ERROR,
8637: p_token1 => G_SQLCODE_TOKEN,
8638: p_token1_value => SQLCODE,
8639: p_token2 => G_SQLERRM_TOKEN,
8766: ;
8767:
8768:
8769: BEGIN
8770: IF ((p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM) or
8771: (p_fee_line_id IS NULL OR p_fee_line_id = OKL_API.G_MISS_NUM) or
8772: (p_effective_date IS NULL OR p_effective_date = OKL_API.G_MISS_DATE))
8773: THEN
8774: RETURN 0; -- error
8767:
8768:
8769: BEGIN
8770: IF ((p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM) or
8771: (p_fee_line_id IS NULL OR p_fee_line_id = OKL_API.G_MISS_NUM) or
8772: (p_effective_date IS NULL OR p_effective_date = OKL_API.G_MISS_DATE))
8773: THEN
8774: RETURN 0; -- error
8775: ELSE
8768:
8769: BEGIN
8770: IF ((p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM) or
8771: (p_fee_line_id IS NULL OR p_fee_line_id = OKL_API.G_MISS_NUM) or
8772: (p_effective_date IS NULL OR p_effective_date = OKL_API.G_MISS_DATE))
8773: THEN
8774: RETURN 0; -- error
8775: ELSE
8776:
8839: RETURN l_amount;
8840:
8841: EXCEPTION
8842: WHEN OTHERS THEN
8843: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8844: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8845: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8846: p_token1 => 'OKL_SQLCODE',
8847: p_token1_value => SQLCODE,
8840:
8841: EXCEPTION
8842: WHEN OTHERS THEN
8843: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8844: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8845: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8846: p_token1 => 'OKL_SQLCODE',
8847: p_token1_value => SQLCODE,
8848: p_token2 => 'OKL_SQLERRM',
8887: RETURN l_flag;
8888:
8889: EXCEPTION
8890: WHEN OTHERS THEN
8891: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8892: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8893: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8894: p_token1 => 'OKL_SQLCODE',
8895: p_token1_value => SQLCODE,
8888:
8889: EXCEPTION
8890: WHEN OTHERS THEN
8891: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8892: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8893: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8894: p_token1 => 'OKL_SQLCODE',
8895: p_token1_value => SQLCODE,
8896: p_token2 => 'OKL_SQLERRM',
8911: -- End of comments
8912: ----------------------------------------------------------------------------------
8913: PROCEDURE is_contract_fully_funded(
8914: p_api_version IN NUMBER
8915: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
8916: ,x_return_status OUT NOCOPY VARCHAR2
8917: ,x_msg_count OUT NOCOPY NUMBER
8918: ,x_msg_data OUT NOCOPY VARCHAR2
8919: ,x_value OUT NOCOPY BOOLEAN
8921: )
8922: IS
8923: l_api_name CONSTANT VARCHAR2(30) := 'is_contract_fully_funded';
8924: l_api_version CONSTANT NUMBER := 1.0;
8925: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8926:
8927: BEGIN
8928: -- Set API savepoint
8929:
8934: p_api_version,
8935: l_api_name,
8936: G_PKG_NAME ))
8937: THEN
8938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8939: END IF;
8940:
8941: -- Initialize message list if requested
8942: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
8943: FND_MSG_PUB.initialize;
8944: END IF;
8945:
8946: -- Initialize API status to success
8947: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8948:
8949:
8950: /*** Begin API body ****************************************************/
8951: x_value := is_contract_fully_funded(
8958: (p_count => x_msg_count,
8959: p_data => x_msg_data);
8960:
8961: EXCEPTION
8962: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8963: ROLLBACK TO is_contract_fully_funded;
8964: x_return_status := OKL_API.G_RET_STS_ERROR;
8965: FND_MSG_PUB.Count_And_Get
8966: (p_count => x_msg_count,
8960:
8961: EXCEPTION
8962: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8963: ROLLBACK TO is_contract_fully_funded;
8964: x_return_status := OKL_API.G_RET_STS_ERROR;
8965: FND_MSG_PUB.Count_And_Get
8966: (p_count => x_msg_count,
8967: p_data => x_msg_data);
8968:
8965: FND_MSG_PUB.Count_And_Get
8966: (p_count => x_msg_count,
8967: p_data => x_msg_data);
8968:
8969: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8970: ROLLBACK TO is_contract_fully_funded;
8971: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8972: FND_MSG_PUB.Count_And_Get
8973: (p_count => x_msg_count,
8967: p_data => x_msg_data);
8968:
8969: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8970: ROLLBACK TO is_contract_fully_funded;
8971: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8972: FND_MSG_PUB.Count_And_Get
8973: (p_count => x_msg_count,
8974: p_data => x_msg_data);
8975:
8974: p_data => x_msg_data);
8975:
8976: WHEN OTHERS THEN
8977: ROLLBACK TO is_contract_fully_funded;
8978: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8979:
8980: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8981: p_msg_name => G_UNEXPECTED_ERROR,
8982: p_token1 => G_SQLCODE_TOKEN,
8976: WHEN OTHERS THEN
8977: ROLLBACK TO is_contract_fully_funded;
8978: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8979:
8980: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8981: p_msg_name => G_UNEXPECTED_ERROR,
8982: p_token1 => G_SQLCODE_TOKEN,
8983: p_token1_value => SQLCODE,
8984: p_token2 => G_SQLERRM_TOKEN,
9011: -- End of comments
9012: ----------------------------------------------------------------------------------
9013: PROCEDURE get_checklist_source(
9014: p_api_version IN NUMBER
9015: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
9016: ,x_return_status OUT NOCOPY VARCHAR2
9017: ,x_msg_count OUT NOCOPY NUMBER
9018: ,x_msg_data OUT NOCOPY VARCHAR2
9019: ,p_chr_id IN okc_k_headers_b.id%type
9104: x_credit_id := l_credit_id;
9105: x_return_status := 'S';
9106: EXCEPTION
9107: WHEN G_EXCEPTION_HALT_VALIDATION THEN
9108: x_return_status := OKL_API.G_RET_STS_ERROR;
9109: WHEN OTHERS THEN
9110: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
9111: OKL_API.Set_Message(p_app_name => G_APP_NAME,
9112: p_msg_name => G_UNEXPECTED_ERROR,
9106: EXCEPTION
9107: WHEN G_EXCEPTION_HALT_VALIDATION THEN
9108: x_return_status := OKL_API.G_RET_STS_ERROR;
9109: WHEN OTHERS THEN
9110: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
9111: OKL_API.Set_Message(p_app_name => G_APP_NAME,
9112: p_msg_name => G_UNEXPECTED_ERROR,
9113: p_token1 => G_SQLCODE_TOKEN,
9114: p_token1_value => SQLCODE,
9107: WHEN G_EXCEPTION_HALT_VALIDATION THEN
9108: x_return_status := OKL_API.G_RET_STS_ERROR;
9109: WHEN OTHERS THEN
9110: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
9111: OKL_API.Set_Message(p_app_name => G_APP_NAME,
9112: p_msg_name => G_UNEXPECTED_ERROR,
9113: p_token1 => G_SQLCODE_TOKEN,
9114: p_token1_value => SQLCODE,
9115: p_token2 => G_SQLERRM_TOKEN,
9139: ) is
9140: l_api_name CONSTANT VARCHAR2(30) := 'update_checklist_function';
9141: l_api_version CONSTANT NUMBER := 1.0;
9142: i NUMBER;
9143: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9144: l_dummy number;
9145:
9146: l_row_not_found boolean := false;
9147:
9175: p_api_version,
9176: l_api_name,
9177: G_PKG_NAME ))
9178: THEN
9179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9180: END IF;
9181:
9182: -- Initialize message list if requested
9183: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
9184: FND_MSG_PUB.initialize;
9185: END IF;
9186:
9187: -- Initialize API status to success
9188: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9189:
9190:
9191: /*** Begin API body ****************************************************/
9192: ------------------------------------------------------------------------
9217: lp_msg_data := r_this_row.FUNCTION_SOURCE || ' returns: ' || lp_return_status;
9218: END IF;
9219:
9220: EXCEPTION
9221: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9222: lp_fund_rst := 'ERROR';
9223: FND_MSG_PUB.Count_And_Get
9224: (p_count => x_msg_count,
9225: p_data => x_msg_data);
9224: (p_count => x_msg_count,
9225: p_data => x_msg_data);
9226: lp_msg_data := substr('Application error: ' || x_msg_data, 240);
9227:
9228: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9229: lp_fund_rst := 'ERROR';
9230: FND_MSG_PUB.Count_And_Get
9231: (p_count => x_msg_count,
9232: p_data => x_msg_data);
9270: (p_count => x_msg_count,
9271: p_data => x_msg_data);
9272:
9273: EXCEPTION
9274: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9275: ROLLBACK TO update_checklist_function;
9276: x_return_status := OKL_API.G_RET_STS_ERROR;
9277: FND_MSG_PUB.Count_And_Get
9278: (p_count => x_msg_count,
9272:
9273: EXCEPTION
9274: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9275: ROLLBACK TO update_checklist_function;
9276: x_return_status := OKL_API.G_RET_STS_ERROR;
9277: FND_MSG_PUB.Count_And_Get
9278: (p_count => x_msg_count,
9279: p_data => x_msg_data);
9280:
9277: FND_MSG_PUB.Count_And_Get
9278: (p_count => x_msg_count,
9279: p_data => x_msg_data);
9280:
9281: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9282: ROLLBACK TO update_checklist_function;
9283: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9284: FND_MSG_PUB.Count_And_Get
9285: (p_count => x_msg_count,
9279: p_data => x_msg_data);
9280:
9281: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9282: ROLLBACK TO update_checklist_function;
9283: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9284: FND_MSG_PUB.Count_And_Get
9285: (p_count => x_msg_count,
9286: p_data => x_msg_data);
9287:
9287:
9288: WHEN OTHERS THEN
9289:
9290: ROLLBACK TO update_checklist_function;
9291: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
9292: OKL_API.Set_Message(p_app_name => G_APP_NAME,
9293: p_msg_name => G_UNEXPECTED_ERROR,
9294: p_token1 => G_SQLCODE_TOKEN,
9295: p_token1_value => SQLCODE,
9288: WHEN OTHERS THEN
9289:
9290: ROLLBACK TO update_checklist_function;
9291: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
9292: OKL_API.Set_Message(p_app_name => G_APP_NAME,
9293: p_msg_name => G_UNEXPECTED_ERROR,
9294: p_token1 => G_SQLCODE_TOKEN,
9295: p_token1_value => SQLCODE,
9296: p_token2 => G_SQLERRM_TOKEN,
9319: --
9320:
9321: PROCEDURE get_fund_summary(
9322: p_api_version IN NUMBER,
9323: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9324: x_return_status OUT NOCOPY VARCHAR2,
9325: x_msg_count OUT NOCOPY NUMBER,
9326: x_msg_data OUT NOCOPY VARCHAR2,
9327: p_contract_id IN NUMBER,
9348:
9349:
9350: EXCEPTION
9351: WHEN OTHERS THEN
9352: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9354: END get_fund_summary;
9355:
9356: /*
9349:
9350: EXCEPTION
9351: WHEN OTHERS THEN
9352: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9354: END get_fund_summary;
9355:
9356: /*
9357: -- zrehman, 10/13/2006
9368: l_amount NUMBER := 0;
9369: l_amount_buffer NUMBER := 0;
9370: l_vendor_id NUMBER := 0;
9371: -- start: okl.h: cklee
9372: x_return_status VARCHAR2(3) := okl_api.g_ret_sts_success;
9373: l_api_version NUMBER := 1.0;
9374: x_msg_count NUMBER;
9375: x_msg_data VARCHAR2(4000);
9376: l_init_msg_list VARCHAR2(10) := okl_api.g_false;
9372: x_return_status VARCHAR2(3) := okl_api.g_ret_sts_success;
9373: l_api_version NUMBER := 1.0;
9374: x_msg_count NUMBER;
9375: x_msg_data VARCHAR2(4000);
9376: l_init_msg_list VARCHAR2(10) := okl_api.g_false;
9377: x_value NUMBER;
9378:
9379: --Bug# 16567807 : snarasip - Total release asset amount should be displayed
9380: -- even if no vendor information is provided on the asset
9491:
9492: --end:| 08-Feb-08 cklee Fixed bug: 6783566 |
9493:
9494: BEGIN
9495: IF (p_khr_id IS NULL) OR (p_khr_id = okl_api.g_miss_num) THEN
9496: RETURN 0; -- error
9497: ELSE
9498:
9499: --Bug# 16567807 : snarasip - Total release asset amount should be displayed
9512: /*FOR l_kle_id IN c_kle_id(p_khr_id) LOOP
9513: BEGIN
9514: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
9515:
9516: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
9517: l_amount_buffer := 0;
9518: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
9519: l_amount_buffer := 0;
9520: END IF;
9514: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
9515:
9516: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
9517: l_amount_buffer := 0;
9518: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
9519: l_amount_buffer := 0;
9520: END IF;
9521: EXCEPTION
9522: WHEN OTHERS THEN
9528: BEGIN
9529: IF ((l_kle_id.downpymnt_recvr IS NULL) OR (l_kle_id.downpymnt_recvr = 'VENDOR')) THEN
9530: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
9531:
9532: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
9533: l_amount_buffer := 0;
9534: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
9535: l_amount_buffer := 0;
9536: END IF;
9530: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
9531:
9532: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
9533: l_amount_buffer := 0;
9534: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
9535: l_amount_buffer := 0;
9536: END IF;
9537: ELSIF(l_kle_id.downpymnt_recvr = 'LESSOR') THEN
9538: l_amount_buffer := 0;