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',
1823: RETURN l_yn;
1824:
1825: EXCEPTION
1826: WHEN OTHERS THEN
1827: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1828: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1829: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1830: p_token1 => 'OKL_SQLCODE',
1831: p_token1_value => SQLCODE,
1824:
1825: EXCEPTION
1826: WHEN OTHERS THEN
1827: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1828: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1829: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1830: p_token1 => 'OKL_SQLCODE',
1831: p_token1_value => SQLCODE,
1832: p_token2 => 'OKL_SQLERRM',
1872: and a.ipvs_id = p_vendor_site_id;
1873:
1874: BEGIN
1875:
1876: IF (p_vendor_site_id IS NULL OR p_vendor_site_id = OKL_API.G_MISS_NUM) THEN
1877:
1878: OPEN c (p_contract_id);
1879: FETCH c INTO l_amount;
1880: CLOSE c;
1887: RETURN l_amount;
1888:
1889: EXCEPTION
1890: WHEN OTHERS THEN
1891: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1892: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1893: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1894: p_token1 => 'OKL_SQLCODE',
1895: p_token1_value => SQLCODE,
1888:
1889: EXCEPTION
1890: WHEN OTHERS THEN
1891: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1892: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1893: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1894: p_token1 => 'OKL_SQLCODE',
1895: p_token1_value => SQLCODE,
1896: p_token2 => 'OKL_SQLERRM',
1954: EXCEPTION
1955:
1956:
1957: WHEN OTHERS THEN
1958: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1959: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1960: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1961: p_token1 => 'OKL_SQLCODE',
1962: p_token1_value => SQLCODE,
1955:
1956:
1957: WHEN OTHERS THEN
1958: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1959: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
1960: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1961: p_token1 => 'OKL_SQLCODE',
1962: p_token1_value => SQLCODE,
1963: p_token2 => 'OKL_SQLERRM',
2007:
2008: RETURN l_amount;
2009: EXCEPTION
2010: WHEN OTHERS THEN
2011: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2012: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2013: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2014: p_token1 => 'OKL_SQLCODE',
2015: p_token1_value => SQLCODE,
2008: RETURN l_amount;
2009: EXCEPTION
2010: WHEN OTHERS THEN
2011: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2012: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2013: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2014: p_token1 => 'OKL_SQLCODE',
2015: p_token1_value => SQLCODE,
2016: p_token2 => 'OKL_SQLERRM',
2038:
2039: RETURN l_amount;
2040: EXCEPTION
2041: WHEN OTHERS THEN
2042: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2043: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2044: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2045: p_token1 => 'OKL_SQLCODE',
2046: p_token1_value => SQLCODE,
2039: RETURN l_amount;
2040: EXCEPTION
2041: WHEN OTHERS THEN
2042: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2043: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2044: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2045: p_token1 => 'OKL_SQLCODE',
2046: p_token1_value => SQLCODE,
2047: p_token2 => 'OKL_SQLERRM',
2069:
2070: RETURN l_amount;
2071: EXCEPTION
2072: WHEN OTHERS THEN
2073: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2074: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2075: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2076: p_token1 => 'OKL_SQLCODE',
2077: p_token1_value => SQLCODE,
2070: RETURN l_amount;
2071: EXCEPTION
2072: WHEN OTHERS THEN
2073: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2074: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2075: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2076: p_token1 => 'OKL_SQLCODE',
2077: p_token1_value => SQLCODE,
2078: p_token2 => 'OKL_SQLERRM',
2124: and a.ipvs_id = p_vendor_site_id
2125: ;
2126:
2127: BEGIN
2128: IF (p_vendor_site_id IS NULL OR p_vendor_site_id = OKL_API.G_MISS_NUM)
2129: THEN
2130:
2131: OPEN c_tot_asset_fund(p_contract_id);
2132: FETCH c_tot_asset_fund INTO l_amount;
2140:
2141: RETURN l_amount;
2142: EXCEPTION
2143: WHEN OTHERS THEN
2144: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2145: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2146: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2147: p_token1 => 'OKL_SQLCODE',
2148: p_token1_value => SQLCODE,
2141: RETURN l_amount;
2142: EXCEPTION
2143: WHEN OTHERS THEN
2144: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2145: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2146: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2147: p_token1 => 'OKL_SQLCODE',
2148: p_token1_value => SQLCODE,
2149: p_token2 => 'OKL_SQLERRM',
2173:
2174: RETURN l_amount;
2175: EXCEPTION
2176: WHEN OTHERS THEN
2177: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2178: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2179: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2180: p_token1 => 'OKL_SQLCODE',
2181: p_token1_value => SQLCODE,
2174: RETURN l_amount;
2175: EXCEPTION
2176: WHEN OTHERS THEN
2177: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2178: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2179: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2180: p_token1 => 'OKL_SQLCODE',
2181: p_token1_value => SQLCODE,
2182: p_token2 => 'OKL_SQLERRM',
2221:
2222: RETURN l_amount;
2223: EXCEPTION
2224: WHEN OTHERS THEN
2225: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2226: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2227: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2228: p_token1 => 'OKL_SQLCODE',
2229: p_token1_value => SQLCODE,
2222: RETURN l_amount;
2223: EXCEPTION
2224: WHEN OTHERS THEN
2225: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2226: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2227: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2228: p_token1 => 'OKL_SQLCODE',
2229: p_token1_value => SQLCODE,
2230: p_token2 => 'OKL_SQLERRM',
2263:
2264: RETURN l_amount;
2265: EXCEPTION
2266: WHEN OTHERS THEN
2267: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2268:
2269: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2270: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2271: p_token1 => 'OKL_SQLCODE',
2265: EXCEPTION
2266: WHEN OTHERS THEN
2267: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2268:
2269: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2270: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2271: p_token1 => 'OKL_SQLCODE',
2272: p_token1_value => SQLCODE,
2273: p_token2 => 'OKL_SQLERRM',
2386: ;
2387:
2388:
2389: BEGIN
2390: IF (p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM)
2391: THEN
2392: RETURN 0; -- error
2393: ELSE
2394: OPEN cv1 (p_vendor_site_id);
2511: RETURN l_amount;
2512:
2513: EXCEPTION
2514: WHEN OTHERS THEN
2515: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2516: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2517: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2518: p_token1 => 'OKL_SQLCODE',
2519: p_token1_value => SQLCODE,
2512:
2513: EXCEPTION
2514: WHEN OTHERS THEN
2515: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2516: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2517: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2518: p_token1 => 'OKL_SQLCODE',
2519: p_token1_value => SQLCODE,
2520: p_token2 => 'OKL_SQLERRM',
2621: ;
2622:
2623:
2624: BEGIN
2625: IF (p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM)
2626: THEN
2627: RETURN 0; -- error
2628: ELSE
2629:
2750: RETURN l_amount;
2751:
2752: EXCEPTION
2753: WHEN OTHERS THEN
2754: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2755: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2756: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2757: p_token1 => 'OKL_SQLCODE',
2758: p_token1_value => SQLCODE,
2751:
2752: EXCEPTION
2753: WHEN OTHERS THEN
2754: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2755: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
2756: p_msg_name => 'OKL_UNEXPECTED_ERROR',
2757: p_token1 => 'OKL_SQLCODE',
2758: p_token1_value => SQLCODE,
2759: p_token2 => 'OKL_SQLERRM',
2781: AND rgp.id = rul.rgp_id
2782: AND rgp.rgd_code = 'LARLES'
2783: AND rgp.dnz_chr_id= p_contract_id;
2784:
2785: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2786: l_release_flag okc_rules_b.rule_information1%type;
2787:
2788:
2789: BEGIN
2795: IF (l_release_flag = 'Y') THEN
2796: -- re-leased contract
2797: IF (p_tapv_rec.funding_type_code <> 'MANUAL_DISB' ) THEN
2798:
2799: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2800: p_msg_name => 'OKL_LLA_RELK_FUNDTYPE_CHK',
2801: p_token1 => 'COL_NAME',
2802: p_token1_value => p_tapv_rec.funding_type_code);
2803:
2806: END IF;
2807: RETURN l_return_status;
2808: EXCEPTION
2809: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2810: l_return_status := OKL_API.G_RET_STS_ERROR;
2811: RETURN l_return_status;
2812: WHEN OTHERS THEN
2813: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2814: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2809: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2810: l_return_status := OKL_API.G_RET_STS_ERROR;
2811: RETURN l_return_status;
2812: WHEN OTHERS THEN
2813: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2814: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2815: p_msg_name => G_UNEXPECTED_ERROR,
2816: p_token1 => G_SQLCODE_TOKEN,
2817: p_token1_value => SQLCODE,
2810: l_return_status := OKL_API.G_RET_STS_ERROR;
2811: RETURN l_return_status;
2812: WHEN OTHERS THEN
2813: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2814: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2815: p_msg_name => G_UNEXPECTED_ERROR,
2816: p_token1 => G_SQLCODE_TOKEN,
2817: p_token1_value => SQLCODE,
2818: p_token2 => G_SQLERRM_TOKEN,
2826: FUNCTION validate_funding_checklist(
2827: p_tapv_rec IN tapv_rec_type
2828: ) RETURN VARCHAR2
2829: IS
2830: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2831: l_req_row_found boolean;
2832: l_list_row_not_found boolean;
2833: l_template_row_not_found boolean;
2834:
2938:
2939: -- credit line checklist tempate doesn't exists
2940: IF (l_template_row_not_found) THEN
2941: -- Funding request checklist template not found. Please setup checklist template for associated credit line.
2942: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2943: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK');
2944:
2945: RAISE G_EXCEPTION_HALT_VALIDATION;
2946: END IF;
2955:
2956: IF (l_status IS NOT NULL and l_status <> 'ACTIVE') THEN
2957: -- Funding request checklist template status is new. Please activate Funding request checklist template
2958: -- for associated credit line.
2959: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2960: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK7');
2961:
2962: RAISE G_EXCEPTION_HALT_VALIDATION;
2963: END IF;
2977:
2978: -- funding checklist template expired.
2979: IF (l_fund_cls_tpl_exp_found) THEN
2980: -- Funding request checklist template expired. Please modify effective date of Funding request checklist template.
2981: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2982: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK6');
2983:
2984: RAISE G_EXCEPTION_HALT_VALIDATION;
2985: END IF;
3004:
3005: -- checklist doesn't exists
3006: IF (l_list_row_not_found) THEN
3007: -- Funding checklist not found. Please update request and setup checklist before submit request.
3008: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3009: p_msg_name => 'OKL_LLA_FUND_CHKLST_CHECK2');
3010:
3011: RAISE G_EXCEPTION_HALT_VALIDATION;
3012: END IF;
3024:
3025: -- all required items have not met requirement
3026: IF (l_req_row_found) THEN
3027: -- Funding request has not met all checklist items. Please check off all mandatory checklist items.
3028: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3029: p_msg_name => 'OKL_LLA_FUND_CHKLST');
3030:
3031: RAISE G_EXCEPTION_HALT_VALIDATION;
3032: END IF;
3035: RETURN l_return_status;
3036:
3037: EXCEPTION
3038: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3039: l_return_status := OKL_API.G_RET_STS_ERROR;
3040: RETURN l_return_status;
3041: WHEN OTHERS THEN
3042: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3043:
3038: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3039: l_return_status := OKL_API.G_RET_STS_ERROR;
3040: RETURN l_return_status;
3041: WHEN OTHERS THEN
3042: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3043:
3044: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3045: p_msg_name => G_UNEXPECTED_ERROR,
3046: p_token1 => G_SQLCODE_TOKEN,
3040: RETURN l_return_status;
3041: WHEN OTHERS THEN
3042: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3043:
3044: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3045: p_msg_name => G_UNEXPECTED_ERROR,
3046: p_token1 => G_SQLCODE_TOKEN,
3047: p_token1_value => SQLCODE,
3048: p_token2 => G_SQLERRM_TOKEN,
3058: p_tapv_rec IN tapv_rec_type
3059: ) RETURN VARCHAR2
3060: IS
3061:
3062: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3063: l_amount NUMBER := 0;
3064: BEGIN
3065:
3066: -- trx_status_code is required:
3064: BEGIN
3065:
3066: -- trx_status_code is required:
3067: IF (p_tapv_rec.trx_status_code IS NULL) OR
3068: (p_tapv_rec.trx_status_code = OKL_API.G_MISS_CHAR)
3069:
3070: THEN
3071: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3072: p_msg_name => G_REQUIRED_VALUE,
3067: IF (p_tapv_rec.trx_status_code IS NULL) OR
3068: (p_tapv_rec.trx_status_code = OKL_API.G_MISS_CHAR)
3069:
3070: THEN
3071: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3072: p_msg_name => G_REQUIRED_VALUE,
3073: p_token1 => G_COL_NAME_TOKEN,
3074: p_token1_value => 'Request Status');
3075: RAISE G_EXCEPTION_HALT_VALIDATION;
3077:
3078: RETURN l_return_status;
3079: EXCEPTION
3080: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3081: l_return_status := OKL_API.G_RET_STS_ERROR;
3082: RETURN l_return_status;
3083: WHEN OTHERS THEN
3084: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3085: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3080: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3081: l_return_status := OKL_API.G_RET_STS_ERROR;
3082: RETURN l_return_status;
3083: WHEN OTHERS THEN
3084: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3085: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3086: p_msg_name => G_UNEXPECTED_ERROR,
3087: p_token1 => G_SQLCODE_TOKEN,
3088: p_token1_value => SQLCODE,
3081: l_return_status := OKL_API.G_RET_STS_ERROR;
3082: RETURN l_return_status;
3083: WHEN OTHERS THEN
3084: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3085: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3086: p_msg_name => G_UNEXPECTED_ERROR,
3087: p_token1 => G_SQLCODE_TOKEN,
3088: p_token1_value => SQLCODE,
3089: p_token2 => G_SQLERRM_TOKEN,
3099: p_tapv_rec IN tapv_rec_type
3100: ) RETURN VARCHAR2
3101:
3102: IS
3103: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3104: BEGIN
3105:
3106:
3107: -- payment_due_date is required:
3105:
3106:
3107: -- payment_due_date is required:
3108: IF (p_tapv_rec.date_invoiced IS NULL) OR
3109: (p_tapv_rec.date_invoiced = OKL_API.G_MISS_DATE)
3110: THEN
3111: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3112: p_msg_name => G_REQUIRED_VALUE,
3113: p_token1 => G_COL_NAME_TOKEN,
3107: -- payment_due_date is required:
3108: IF (p_tapv_rec.date_invoiced IS NULL) OR
3109: (p_tapv_rec.date_invoiced = OKL_API.G_MISS_DATE)
3110: THEN
3111: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3112: p_msg_name => G_REQUIRED_VALUE,
3113: p_token1 => G_COL_NAME_TOKEN,
3114: p_token1_value => 'Payment due date');
3115: RAISE G_EXCEPTION_HALT_VALIDATION;
3118: /*** comment out this check
3119: -- date range check : date_entered will be default to sysdate @ UI
3120: IF (trunc(p_tapv_rec.date_invoiced) < trunc(p_tapv_rec.date_entered))
3121: THEN
3122: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3123: p_msg_name => 'OKL_LLA_RANGE_CHECK',
3124: p_token1 => 'COL_NAME1',
3125: p_token1_value => 'Payment due date',
3126: p_token2 => 'COL_NAME2',
3131: ***/
3132: RETURN l_return_status;
3133: EXCEPTION
3134: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3135: l_return_status := OKL_API.G_RET_STS_ERROR;
3136: RETURN l_return_status;
3137: WHEN OTHERS THEN
3138: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3139: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3134: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3135: l_return_status := OKL_API.G_RET_STS_ERROR;
3136: RETURN l_return_status;
3137: WHEN OTHERS THEN
3138: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3139: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3140: p_msg_name => G_UNEXPECTED_ERROR,
3141: p_token1 => G_SQLCODE_TOKEN,
3142: p_token1_value => SQLCODE,
3135: l_return_status := OKL_API.G_RET_STS_ERROR;
3136: RETURN l_return_status;
3137: WHEN OTHERS THEN
3138: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3139: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3140: p_msg_name => G_UNEXPECTED_ERROR,
3141: p_token1 => G_SQLCODE_TOKEN,
3142: p_token1_value => SQLCODE,
3143: p_token2 => G_SQLERRM_TOKEN,
3152: FUNCTION validate_header_amount(
3153: p_tapv_rec IN tapv_rec_type
3154: ) RETURN VARCHAR2
3155: IS
3156: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3157: l_api_version NUMBER := 1.0;
3158: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
3159: x_return_status VARCHAR2(1);
3160: x_msg_count NUMBER;
3154: ) RETURN VARCHAR2
3155: IS
3156: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3157: l_api_version NUMBER := 1.0;
3158: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
3159: x_return_status VARCHAR2(1);
3160: x_msg_count NUMBER;
3161: x_msg_data VARCHAR2(2000);
3162: x_value NUMBER := 0;
3290:
3291: -- header Amount is required
3292: IF ((p_tapv_rec.funding_type_code in ('PREFUNDING','BORROWER_PAYMENT')) AND
3293: (p_tapv_rec.amount IS NULL OR
3294: p_tapv_rec.amount = OKL_API.G_MISS_NUM))
3295: THEN
3296: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3297: p_msg_name => G_REQUIRED_VALUE,
3298: p_token1 => G_COL_NAME_TOKEN,
3292: IF ((p_tapv_rec.funding_type_code in ('PREFUNDING','BORROWER_PAYMENT')) AND
3293: (p_tapv_rec.amount IS NULL OR
3294: p_tapv_rec.amount = OKL_API.G_MISS_NUM))
3295: THEN
3296: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3297: p_msg_name => G_REQUIRED_VALUE,
3298: p_token1 => G_COL_NAME_TOKEN,
3299: p_token1_value => 'Amount');
3300: RAISE G_EXCEPTION_HALT_VALIDATION;
3338: IF ( l_credit_id IS NULL AND
3339: p_tapv_rec.funding_type_code NOT IN ('SUPPLIER_RETENTION', 'MANUAL_DISB')) THEN
3340: -- Your request cannot be submitted. Credit line for this contract doesn't exists.
3341: l_message_name := 'OKL_LLA_FUND_CREDIT_AMT_CHK2';
3342: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3343: p_msg_name => l_message_name);
3344:
3345: RAISE G_EXCEPTION_HALT_VALIDATION;
3346: END IF;
3365: END IF;
3366:
3367: -- check amount
3368: IF (l_cur_amount = 0 ) THEN
3369: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3370: p_msg_name => 'OKL_LLA_AMOUNT_CHECK');
3371: RAISE G_EXCEPTION_HALT_VALIDATION;
3372: END IF;
3373:
3387:
3388: -- start: 23-May-2005 cklee okl.h Lease App IA Authoring |
3389: l_chk_credit_id := OKL_CREDIT_PUB.get_creditline_by_chrid(p_tapv_rec.khr_id);
3390: IF l_loan_row_found OR (NOT l_loan_row_found and l_chk_credit_id is not null) THEN
3391: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3392: p_msg_name => l_message_name);
3393: RAISE G_EXCEPTION_HALT_VALIDATION;
3394: END IF;
3395: -- end: 23-May-2005 cklee okl.h Lease App IA Authoring |
3403: l_resuts_amount := l_total_hasbeen_funded_amount + l_cur_amount;
3404: --Your request cannot be submitted. The total funded amount cannot be less than 0.
3405: IF (l_resuts_amount < 0) THEN
3406: l_message_name := 'OKL_LLA_ADJUSTMENTS_AMT_CHK';
3407: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3408: p_msg_name => l_message_name);
3409: RAISE G_EXCEPTION_HALT_VALIDATION;
3410:
3411: END IF;
3425: --Your request cannot be submitted. The total funded amount cannot be less than 0.
3426: IF (l_resuts_amount < 0) THEN
3427: l_message_name := 'OKL_LLA_ADJUSTMENTS_AMT_CHK';
3428:
3429: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3430: p_msg_name => l_message_name);
3431: RAISE G_EXCEPTION_HALT_VALIDATION;
3432:
3433: END IF;
3442: -- booked: check contract
3443: IF (l_booked_count > 0 AND l_cur_amount > 0 ) THEN
3444: --Your request cannot be submitted. Pre-funding requests are not allowed for contracts in Booked status.
3445: l_message_name := 'OKL_LLA_PREFUNDED_AMT_CHK2';
3446: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3447: p_msg_name => l_message_name);
3448: RAISE G_EXCEPTION_HALT_VALIDATION;
3449: END IF;
3450:
3480:
3481: IF (l_invalid_fund <> 'X') THEN
3482:
3483: l_message_name := 'OKL_LLA_FUND_ASSET_AMT_CHK';
3484: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3485: p_msg_name => l_message_name,
3486: p_token1 => 'ASSET_NUMBER',
3487: p_token1_value => l_invalid_fund);
3488: RAISE G_EXCEPTION_HALT_VALIDATION;
3499: IF (l_resuts_amount > l_total_canbe_OEC_amount) THEN
3500: --Your request cannot be submitted. The total amount of this request exceeds
3501: -- the value of the contract total asset amount.
3502: l_message_name := 'OKL_LLA_FUND_TOT_ASSET_AMT_CHK';
3503: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3504: p_msg_name => l_message_name);
3505: RAISE G_EXCEPTION_HALT_VALIDATION;
3506: END IF;
3507:
3516: l_resuts_amount := l_cur_total_amount + l_cur_amount;
3517: IF (l_resuts_amount > l_total_canbe_expense_amount) THEN
3518:
3519: l_message_name := 'OKL_LLA_EXPENSE_AMT_CHK';
3520: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3521: p_msg_name => l_message_name);
3522: RAISE G_EXCEPTION_HALT_VALIDATION;
3523: END IF;
3524:
3534:
3535: IF (l_resuts_amount > l_total_canbe_funded_amount) THEN
3536:
3537: l_message_name := 'OKL_LLA_FUNDED_AMT_CHK';
3538: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3539: p_msg_name => l_message_name);
3540: RAISE G_EXCEPTION_HALT_VALIDATION;
3541: END IF;
3542: END IF;
3543:
3544: RETURN l_return_status;
3545: EXCEPTION
3546: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3547: l_return_status := OKL_API.G_RET_STS_ERROR;
3548: RETURN l_return_status;
3549: WHEN OTHERS THEN
3550: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3551: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3546: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3547: l_return_status := OKL_API.G_RET_STS_ERROR;
3548: RETURN l_return_status;
3549: WHEN OTHERS THEN
3550: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3551: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3552: p_msg_name => G_UNEXPECTED_ERROR,
3553: p_token1 => G_SQLCODE_TOKEN,
3554: p_token1_value => SQLCODE,
3547: l_return_status := OKL_API.G_RET_STS_ERROR;
3548: RETURN l_return_status;
3549: WHEN OTHERS THEN
3550: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3551: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3552: p_msg_name => G_UNEXPECTED_ERROR,
3553: p_token1 => G_SQLCODE_TOKEN,
3554: p_token1_value => SQLCODE,
3555: p_token2 => G_SQLERRM_TOKEN,
3567: FUNCTION validate_header_amount_for_RL(
3568: p_tapv_rec IN tapv_rec_type
3569: ) RETURN VARCHAR2
3570: IS
3571: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3572: l_loan_rev NUMBER := 0;
3573: l_loan_row_found boolean := false;
3574:
3575: -- bug 2604862
3591: -- is loan revolving contract
3592: IF (l_loan_row_found) THEN
3593: IF (p_tapv_rec.funding_type_code = 'PREFUNDING' AND nvl(p_tapv_rec.amount,0) >= 0 ) THEN
3594: --Please enter negative amount for your adjustment. Revolving line of credit loan contract are not allowed for pre-funding request with positive amount.
3595: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3596: p_msg_name => 'OKL_LLA_REVLOAN_ADJ_AMT_CHK');
3597: RAISE G_EXCEPTION_HALT_VALIDATION;
3598:
3599: END IF;
3598:
3599: END IF;
3600:
3601: IF (p_tapv_rec.funding_type_code = 'BORROWER_PAYMENT' AND nvl(p_tapv_rec.amount,0) < 0 ) THEN
3602: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3603: p_msg_name => 'OKL_LLA_POSITIVE_AMOUNT_ONLY',
3604: p_token1 => 'COL_NAME',
3605: p_token1_value => 'Amount');
3606:
3613:
3614: RETURN l_return_status;
3615: EXCEPTION
3616: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3617: l_return_status := OKL_API.G_RET_STS_ERROR;
3618:
3619: RETURN l_return_status;
3620: WHEN OTHERS THEN
3621: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3617: l_return_status := OKL_API.G_RET_STS_ERROR;
3618:
3619: RETURN l_return_status;
3620: WHEN OTHERS THEN
3621: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3622: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3623: p_msg_name => G_UNEXPECTED_ERROR,
3624: p_token1 => G_SQLCODE_TOKEN,
3625: p_token1_value => SQLCODE,
3618:
3619: RETURN l_return_status;
3620: WHEN OTHERS THEN
3621: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3622: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3623: p_msg_name => G_UNEXPECTED_ERROR,
3624: p_token1 => G_SQLCODE_TOKEN,
3625: p_token1_value => SQLCODE,
3626: p_token2 => G_SQLERRM_TOKEN,
3634: FUNCTION populate_more_attrs(
3635: p_tapv_rec IN OUT NOCOPY tapv_rec_type
3636: ) RETURN VARCHAR2
3637: IS
3638: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3639: -- l_set_of_books_id NUMBER;
3640: l_terms_id NUMBER;
3641: l_application_id NUMBER;
3642: l_pay_group_lookup_code PO_VENDOR_SITES_ALL.PAY_GROUP_LOOKUP_CODE%TYPE;
3694: p_tapv_rec.SET_OF_BOOKS_ID := OKL_ACCOUNTING_UTIL.get_set_of_books_id;--l_set_of_books_id;
3695: -- 2. IPPT_ID
3696: -- cklee 05/04/2004
3697: IF (p_tapv_rec.IPPT_ID IS NULL or
3698: p_tapv_rec.IPPT_ID = OKL_API.G_MISS_NUM) THEN
3699:
3700: OPEN c_vendor_sites(p_tapv_rec.ipvs_id);
3701: FETCH c_vendor_sites INTO l_terms_id, l_pay_group_lookup_code;
3702: CLOSE c_vendor_sites;
3727: dbseqid => lx_dbseqid);
3728: EXCEPTION
3729: WHEN OTHERS THEN
3730: IF SQLCODE = 100 THEN
3731: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3732: p_msg_name => 'OKL_PAY_INV_SEQ_CHECK');
3733: RAISE G_EXCEPTION_HALT_VALIDATION;
3734: END IF;
3735: END;
3744:
3745: -- 5. PAY_GROUP_LOOKUP_CODE
3746: -- cklee 05/04/2004
3747: IF (p_tapv_rec.PAY_GROUP_LOOKUP_CODE IS NULL or
3748: p_tapv_rec.PAY_GROUP_LOOKUP_CODE = OKL_API.G_MISS_CHAR) THEN
3749:
3750: -- fixed PAY_GROUP_LOOKUP_CODE default data missing issues
3751: OPEN c_vendor_sites(p_tapv_rec.ipvs_id);
3752: FETCH c_vendor_sites INTO l_terms_id, l_pay_group_lookup_code;
3766: -- 7. invoice_type
3767: -- cklee 05/04/2004
3768:
3769: IF (p_tapv_rec.INVOICE_TYPE is null or
3770: p_tapv_rec.INVOICE_TYPE = OKL_API.G_MISS_CHAR) THEN
3771:
3772: p_tapv_rec.INVOICE_TYPE := G_STANDARD;
3773:
3774: END IF;
3790: EXCEPTION
3791:
3792: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3793:
3794: l_return_status := OKL_API.G_RET_STS_ERROR;
3795:
3796:
3797: RETURN l_return_status;
3798: WHEN OTHERS THEN
3795:
3796:
3797: RETURN l_return_status;
3798: WHEN OTHERS THEN
3799: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3800:
3801: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3802: p_msg_name => G_UNEXPECTED_ERROR,
3803: p_token1 => G_SQLCODE_TOKEN,
3797: RETURN l_return_status;
3798: WHEN OTHERS THEN
3799: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3800:
3801: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3802: p_msg_name => G_UNEXPECTED_ERROR,
3803: p_token1 => G_SQLCODE_TOKEN,
3804: p_token1_value => SQLCODE,
3805: p_token2 => G_SQLERRM_TOKEN,
3814: p_chr_id IN NUMBER
3815: ) RETURN VARCHAR2
3816:
3817: IS
3818: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3819: l_status OKC_STATUSES_V.meaning%TYPE;
3820:
3821: CURSOR c_sts (p_contract_id NUMBER)
3822: IS
3834: OPEN c_sts(p_chr_id);
3835: FETCH c_sts INTO l_status;
3836: CLOSE c_sts;
3837:
3838: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3839: p_msg_name => 'OKL_LLA_INVALID_FUNDED_REQUEST',
3840: p_token1 => 'CHR_STATUS',
3841: p_token1_value => l_status);
3842: RAISE G_EXCEPTION_HALT_VALIDATION;
3844:
3845: RETURN l_return_status;
3846: EXCEPTION
3847: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3848: l_return_status := OKL_API.G_RET_STS_ERROR;
3849: RETURN l_return_status;
3850: WHEN OTHERS THEN
3851:
3852: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3848: l_return_status := OKL_API.G_RET_STS_ERROR;
3849: RETURN l_return_status;
3850: WHEN OTHERS THEN
3851:
3852: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3853: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3854: p_msg_name => G_UNEXPECTED_ERROR,
3855: p_token1 => G_SQLCODE_TOKEN,
3856: p_token1_value => SQLCODE,
3849: RETURN l_return_status;
3850: WHEN OTHERS THEN
3851:
3852: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3853: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3854: p_msg_name => G_UNEXPECTED_ERROR,
3855: p_token1 => G_SQLCODE_TOKEN,
3856: p_token1_value => SQLCODE,
3857: p_token2 => G_SQLERRM_TOKEN,
3868:
3869:
3870: IS
3871:
3872: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3873:
3874: l_REVOLVING_CREDIT_YN OKL_K_HEADERS.REVOLVING_CREDIT_YN%TYPE;
3875: l_END_DATE OKC_K_HEADERS_B.END_DATE%TYPE;
3876:
3921:
3922: --Either Revolving line of credit attach to a normal contract (book classification is not LOAN-REVOLVING)
3923: -- or non-revolving line of credit attach to LOAN-REVOLVING contract.
3924: -- Invalid credit line attach to funding request contract.
3925: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3926: p_msg_name => 'OKL_LLA_CREDITLINE_CHECK');
3927:
3928: RAISE G_EXCEPTION_HALT_VALIDATION;
3929:
3929:
3930: END IF;
3931:
3932: IF (trunc(l_END_DATE) < trunc(SYSDATE)) THEN
3933: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3934: p_msg_name => 'OKL_LLA_CREDITLINE_EXPIRED');
3935:
3936: RAISE G_EXCEPTION_HALT_VALIDATION;
3937:
3944: -- start: 23-May-2005 cklee okl.h Lease App IA Authoring
3945: -- Credit Line is not required after okl.h except loan-revolving contract
3946: --
3947: IF l_DEAL_TYPE = 'LOAN-REVOLVING' THEN
3948: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3949: p_msg_name => 'OKL_LLA_CREDITLINE_NOTFOUND');
3950:
3951: RAISE G_EXCEPTION_HALT_VALIDATION;
3952: END IF;
3959: RETURN l_return_status;
3960: EXCEPTION
3961:
3962: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3963: l_return_status := OKL_API.G_RET_STS_ERROR;
3964: RETURN l_return_status;
3965: WHEN OTHERS THEN
3966: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3967: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3962: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3963: l_return_status := OKL_API.G_RET_STS_ERROR;
3964: RETURN l_return_status;
3965: WHEN OTHERS THEN
3966: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3967: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3968: p_msg_name => G_UNEXPECTED_ERROR,
3969: p_token1 => G_SQLCODE_TOKEN,
3970: p_token1_value => SQLCODE,
3963: l_return_status := OKL_API.G_RET_STS_ERROR;
3964: RETURN l_return_status;
3965: WHEN OTHERS THEN
3966: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3967: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3968: p_msg_name => G_UNEXPECTED_ERROR,
3969: p_token1 => G_SQLCODE_TOKEN,
3970: p_token1_value => SQLCODE,
3971: p_token2 => G_SQLERRM_TOKEN,
3979: FUNCTION validate_vendor_invoice_number(
3980: p_tapv_rec IN tapv_rec_type
3981: ) RETURN VARCHAR2
3982: IS
3983: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3984: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
3985: BEGIN
3986: -- Invoice Number is required:
3987: -- TO DO: When in 'C'reate mode - allow user to omit invoice
3980: p_tapv_rec IN tapv_rec_type
3981: ) RETURN VARCHAR2
3982: IS
3983: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3984: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
3985: BEGIN
3986: -- Invoice Number is required:
3987: -- TO DO: When in 'C'reate mode - allow user to omit invoice
3988: -- (funding request) number and generate one automatically,
3990: -- combination is unique in OKL_TRX_AP_INVOICES_V (OKL) and
3991: -- in the AP_INVOICES_ALL (AP).
3992:
3993: IF (p_tapv_rec.vendor_invoice_number IS NULL) OR
3994: (p_tapv_rec.vendor_invoice_number = OKL_API.G_MISS_CHAR)
3995: THEN
3996: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3997: p_msg_name => G_REQUIRED_VALUE,
3998: p_token1 => G_COL_NAME_TOKEN,
3992:
3993: IF (p_tapv_rec.vendor_invoice_number IS NULL) OR
3994: (p_tapv_rec.vendor_invoice_number = OKL_API.G_MISS_CHAR)
3995: THEN
3996: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3997: p_msg_name => G_REQUIRED_VALUE,
3998: p_token1 => G_COL_NAME_TOKEN,
3999: p_token1_value => 'Request Number');
4000: RAISE G_EXCEPTION_HALT_VALIDATION;
4002:
4003: -- due to the external interface table limit to 30 chars
4004: IF (length(p_tapv_rec.vendor_invoice_number) > 30)
4005: THEN
4006: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4007: p_msg_name => 'OKL_LLA_EXCEED_MAXIMUM_LENGTH',
4008: p_token1 => 'MAX_CHARS',
4009: p_token1_value => 'thirty',
4010: p_token2 => 'COL_NAME',
4015:
4016: RETURN l_return_status;
4017: EXCEPTION
4018: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4019: l_return_status := OKL_API.G_RET_STS_ERROR;
4020: RETURN l_return_status;
4021: WHEN OTHERS THEN
4022: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4023: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4018: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4019: l_return_status := OKL_API.G_RET_STS_ERROR;
4020: RETURN l_return_status;
4021: WHEN OTHERS THEN
4022: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4023: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4024: p_msg_name => G_UNEXPECTED_ERROR,
4025: p_token1 => G_SQLCODE_TOKEN,
4026: p_token1_value => SQLCODE,
4019: l_return_status := OKL_API.G_RET_STS_ERROR;
4020: RETURN l_return_status;
4021: WHEN OTHERS THEN
4022: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4023: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4024: p_msg_name => G_UNEXPECTED_ERROR,
4025: p_token1 => G_SQLCODE_TOKEN,
4026: p_token1_value => SQLCODE,
4027: p_token2 => G_SQLERRM_TOKEN,
4035: FUNCTION validate_ipvs_id(
4036: p_tapv_rec IN tapv_rec_type
4037: ) RETURN VARCHAR2
4038: IS
4039: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4040: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
4041: l_dum number;
4042: l_rl_found boolean;
4043: l_lv_found boolean;
4036: p_tapv_rec IN tapv_rec_type
4037: ) RETURN VARCHAR2
4038: IS
4039: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4040: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
4041: l_dum number;
4042: l_rl_found boolean;
4043: l_lv_found boolean;
4044:
4055:
4056:
4057: BEGIN
4058: IF (p_tapv_rec.ipvs_id IS NULL) OR
4059: (p_tapv_rec.ipvs_id = OKL_API.G_MISS_NUM)
4060: THEN
4061:
4062: -- 10-10-2003 cklee fixed bug# 3159723
4063: open c_rl(p_tapv_rec.khr_id);
4066: close c_rl;
4067:
4068: IF (l_rl_found) THEN
4069:
4070: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4071: p_msg_name => 'OKL_LLA_LESSEE_AS_VENDOR_CHK');
4072: ELSE
4073:
4074: open c_lv(p_tapv_rec.khr_id);
4077: close c_lv;
4078:
4079: IF (l_lv_found) THEN
4080:
4081: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4082: p_msg_name => G_REQUIRED_VALUE,
4083: p_token1 => G_COL_NAME_TOKEN,
4084: p_token1_value => 'Vendor Site');
4085: ELSE
4083: p_token1 => G_COL_NAME_TOKEN,
4084: p_token1_value => 'Vendor Site');
4085: ELSE
4086:
4087: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4088: p_msg_name => 'OKL_LLA_FUNDING_VENDOR_CHK');
4089:
4090: END IF;
4091: END IF;
4096:
4097: RETURN l_return_status;
4098: EXCEPTION
4099: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4100: l_return_status := OKL_API.G_RET_STS_ERROR;
4101:
4102: RETURN l_return_status;
4103: WHEN OTHERS THEN
4104: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4100: l_return_status := OKL_API.G_RET_STS_ERROR;
4101:
4102: RETURN l_return_status;
4103: WHEN OTHERS THEN
4104: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4105: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4106: p_msg_name => G_UNEXPECTED_ERROR,
4107: p_token1 => G_SQLCODE_TOKEN,
4108: p_token1_value => SQLCODE,
4101:
4102: RETURN l_return_status;
4103: WHEN OTHERS THEN
4104: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4105: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4106: p_msg_name => G_UNEXPECTED_ERROR,
4107: p_token1 => G_SQLCODE_TOKEN,
4108: p_token1_value => SQLCODE,
4109: p_token2 => G_SQLERRM_TOKEN,
4118: p_tapv_rec IN tapv_rec_type
4119: ,p_mode IN VARCHAR2 -- 'C'reate,'U'pdate,'D'elete
4120: ) RETURN VARCHAR2
4121: IS
4122: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4123: l_loan_rev NUMBER := 0;
4124: l_loan_row_found boolean := false;
4125: l_prefunding_eligible_yn okl_k_headers.PREFUNDING_ELIGIBLE_YN%type;
4126: l_trx_status_code okl_trx_ap_invoices_b.trx_status_code%type;
4175: IF (l_loan_row_found) THEN
4176: IF (p_tapv_rec.funding_type_code NOT IN ('PREFUNDING','BORROWER_PAYMENT', 'MANUAL_DISB') ) THEN
4177:
4178: --Revolving line of credit loan contract are not allowed for TOKEN funding type.
4179: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4180: p_msg_name => 'OKL_LLA_REVLOAN_FUNDTYPE_CHK',
4181: p_token1 => 'COL_NAME',
4182: p_token1_value => p_tapv_rec.funding_type_code);
4183:
4189: ELSE -- is not revolvong line of credit loan contract
4190: IF (p_tapv_rec.funding_type_code IN ('BORROWER_PAYMENT') ) THEN
4191:
4192: --Borrower payment funding type is allow for revolving line of credit loan contract only.
4193: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4194: p_msg_name => 'OKL_LLA_FUNDING_TYPE_CHK');
4195: RAISE G_EXCEPTION_HALT_VALIDATION;
4196:
4197: END IF;
4200: -- bug 2604862
4201:
4202: -- funding_type_code is required
4203: IF (p_tapv_rec.funding_type_code IS NULL) OR
4204: (p_tapv_rec.funding_type_code = OKL_API.G_MISS_CHAR)
4205: THEN
4206: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4207: p_msg_name => G_REQUIRED_VALUE,
4208: p_token1 => G_COL_NAME_TOKEN,
4202: -- funding_type_code is required
4203: IF (p_tapv_rec.funding_type_code IS NULL) OR
4204: (p_tapv_rec.funding_type_code = OKL_API.G_MISS_CHAR)
4205: THEN
4206: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4207: p_msg_name => G_REQUIRED_VALUE,
4208: p_token1 => G_COL_NAME_TOKEN,
4209: p_token1_value => 'Funding Type');
4210: RAISE G_EXCEPTION_HALT_VALIDATION;
4240: -- CKLEE 02-24-2003 :internal request will have the same value for these 2 columns
4241: IF (l_reverse_row_notfound) THEN
4242: -- You are not allowed to submit pre-funding request if Eligible For Pre-Funding
4243: -- has not been set for this contract.
4244: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4245: p_msg_name => 'OKL_LLA_PREFUND_ELIGIBLE_CHK');
4246: RAISE G_EXCEPTION_HALT_VALIDATION;
4247: END IF;
4248:
4252:
4253: RETURN l_return_status;
4254: EXCEPTION
4255: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4256: l_return_status := OKL_API.G_RET_STS_ERROR;
4257: RETURN l_return_status;
4258: WHEN OTHERS THEN
4259: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4260: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4255: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4256: l_return_status := OKL_API.G_RET_STS_ERROR;
4257: RETURN l_return_status;
4258: WHEN OTHERS THEN
4259: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4260: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4261: p_msg_name => G_UNEXPECTED_ERROR,
4262: p_token1 => G_SQLCODE_TOKEN,
4263: p_token1_value => SQLCODE,
4256: l_return_status := OKL_API.G_RET_STS_ERROR;
4257: RETURN l_return_status;
4258: WHEN OTHERS THEN
4259: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4260: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4261: p_msg_name => G_UNEXPECTED_ERROR,
4262: p_token1 => G_SQLCODE_TOKEN,
4263: p_token1_value => SQLCODE,
4264: p_token2 => G_SQLERRM_TOKEN,
4275: FUNCTION validate_payment_method(
4276: p_tapv_rec IN tapv_rec_type
4277: ) RETURN VARCHAR2
4278: IS
4279: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4280: BEGIN
4281: -- payment_method_code is required
4282: IF (p_tapv_rec.payment_method_code IS NULL) OR
4283: (p_tapv_rec.payment_method_code = OKL_API.G_MISS_CHAR)
4279: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4280: BEGIN
4281: -- payment_method_code is required
4282: IF (p_tapv_rec.payment_method_code IS NULL) OR
4283: (p_tapv_rec.payment_method_code = OKL_API.G_MISS_CHAR)
4284: THEN
4285: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4286: p_msg_name => G_REQUIRED_VALUE,
4287: p_token1 => G_COL_NAME_TOKEN,
4281: -- payment_method_code is required
4282: IF (p_tapv_rec.payment_method_code IS NULL) OR
4283: (p_tapv_rec.payment_method_code = OKL_API.G_MISS_CHAR)
4284: THEN
4285: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4286: p_msg_name => G_REQUIRED_VALUE,
4287: p_token1 => G_COL_NAME_TOKEN,
4288: p_token1_value => 'Payment Method');
4289: RAISE G_EXCEPTION_HALT_VALIDATION;
4290: END IF;
4291: RETURN l_return_status;
4292: EXCEPTION
4293: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4294: l_return_status := OKL_API.G_RET_STS_ERROR;
4295: RETURN l_return_status;
4296: WHEN OTHERS THEN
4297: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4298: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4293: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4294: l_return_status := OKL_API.G_RET_STS_ERROR;
4295: RETURN l_return_status;
4296: WHEN OTHERS THEN
4297: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4298: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4299: p_msg_name => G_UNEXPECTED_ERROR,
4300: p_token1 => G_SQLCODE_TOKEN,
4301: p_token1_value => SQLCODE,
4294: l_return_status := OKL_API.G_RET_STS_ERROR;
4295: RETURN l_return_status;
4296: WHEN OTHERS THEN
4297: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4298: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4299: p_msg_name => G_UNEXPECTED_ERROR,
4300: p_token1 => G_SQLCODE_TOKEN,
4301: p_token1_value => SQLCODE,
4302: p_token2 => G_SQLERRM_TOKEN,
4311: FUNCTION validate_invoice_type(
4312: p_tapv_rec IN tapv_rec_type
4313: ) RETURN VARCHAR2
4314: IS
4315: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4316: l_funding_type varchar2(80);
4317:
4318: cursor c_funding_type (p_funding_type_code varchar2)
4319: is
4326: BEGIN
4327:
4328: -- check if value exists
4329: IF (p_tapv_rec.invoice_type IS NOT NULL) AND
4330: (p_tapv_rec.invoice_type <> OKL_API.G_MISS_CHAR)
4331: THEN
4332:
4333: --start: cklee 3/01/07 added invoice type and amount sign check at line level
4334: /*
4346: open c_funding_type(p_tapv_rec.funding_type_code);
4347: fetch c_funding_type into l_funding_type;
4348: close c_funding_type;
4349:
4350: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4351: p_msg_name => 'OKL_LLA_FUNDING_INVOICE_TYPE',
4352: p_token1 => 'INVOICE_TYPE',
4353: p_token1_value => p_tapv_rec.invoice_type,
4354: p_token2 => 'FUNDING_TYPE',
4362:
4363: RETURN l_return_status;
4364: EXCEPTION
4365: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4366: l_return_status := OKL_API.G_RET_STS_ERROR;
4367: RETURN l_return_status;
4368: WHEN OTHERS THEN
4369: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4370: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4365: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4366: l_return_status := OKL_API.G_RET_STS_ERROR;
4367: RETURN l_return_status;
4368: WHEN OTHERS THEN
4369: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4370: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4371: p_msg_name => G_UNEXPECTED_ERROR,
4372: p_token1 => G_SQLCODE_TOKEN,
4373: p_token1_value => SQLCODE,
4366: l_return_status := OKL_API.G_RET_STS_ERROR;
4367: RETURN l_return_status;
4368: WHEN OTHERS THEN
4369: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4370: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4371: p_msg_name => G_UNEXPECTED_ERROR,
4372: p_token1 => G_SQLCODE_TOKEN,
4373: p_token1_value => SQLCODE,
4374: p_token2 => G_SQLERRM_TOKEN,
4384: -- negative.
4385: -------------------------------------------------------------------------
4386: FUNCTION validate_invoice_type_and_sign(p_tapv_rec IN tapv_rec_type
4387: ) RETURN VARCHAR2 IS
4388: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4389: BEGIN
4390: -- If invoice type is G_STANDARD then invoice amount is positive
4391: -- If invoice type is G_CREDIT then the invoice amount is negative.
4392: -- sjalasut, made changes to incorporate the business rule as part
4398: --end: cklee 03/01/07 added the following condition, somehow UI has passed
4399: -- wrong data.
4400: IF((p_tapv_rec.INVOICE_TYPE = G_STANDARD AND p_tapv_rec.AMOUNT < 0)
4401: OR(p_tapv_rec.INVOICE_TYPE = G_CREDIT AND p_tapv_rec.AMOUNT > 0))THEN
4402: OKL_API.set_message(
4403: p_app_name => G_APP_NAME
4404: ,p_msg_name => 'OKL_LLA_INV_TYPE_AND_SIGN'
4405: );
4406: RAISE G_EXCEPTION_HALT_VALIDATION;
4412: END IF;
4413: RETURN l_return_status;
4414: EXCEPTION
4415: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4416: l_return_status := OKL_API.G_RET_STS_ERROR;
4417: RETURN l_return_status;
4418: WHEN OTHERS THEN
4419: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4420: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4415: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4416: l_return_status := OKL_API.G_RET_STS_ERROR;
4417: RETURN l_return_status;
4418: WHEN OTHERS THEN
4419: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4420: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4421: p_msg_name => G_UNEXPECTED_ERROR,
4422: p_token1 => G_SQLCODE_TOKEN,
4423: p_token1_value => SQLCODE,
4416: l_return_status := OKL_API.G_RET_STS_ERROR;
4417: RETURN l_return_status;
4418: WHEN OTHERS THEN
4419: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4420: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4421: p_msg_name => G_UNEXPECTED_ERROR,
4422: p_token1 => G_SQLCODE_TOKEN,
4423: p_token1_value => SQLCODE,
4424: p_token2 => G_SQLERRM_TOKEN,
4436: p_tplv_rec IN tplv_rec_type
4437: ,p_mode IN VARCHAR2
4438: ) RETURN VARCHAR2
4439: IS
4440: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4441: l_dummy VARCHAR2(1) := '?';
4442: l_result VARCHAR2(1) := OKL_API.G_TRUE;
4443:
4444: CURSOR c (p_tap_id NUMBER)
4438: ) RETURN VARCHAR2
4439: IS
4440: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4441: l_dummy VARCHAR2(1) := '?';
4442: l_result VARCHAR2(1) := OKL_API.G_TRUE;
4443:
4444: CURSOR c (p_tap_id NUMBER)
4445: IS
4446: SELECT 'X'
4458: IF (l_dummy = 'X') THEN
4459:
4460: -- kle_id is required:
4461: IF (p_tplv_rec.kle_id IS NULL) OR
4462: (p_tplv_rec.kle_id = OKL_API.G_MISS_NUM)
4463: THEN
4464: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4465: p_msg_name => G_REQUIRED_VALUE,
4466: p_token1 => G_COL_NAME_TOKEN,
4460: -- kle_id is required:
4461: IF (p_tplv_rec.kle_id IS NULL) OR
4462: (p_tplv_rec.kle_id = OKL_API.G_MISS_NUM)
4463: THEN
4464: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4465: p_msg_name => G_REQUIRED_VALUE,
4466: p_token1 => G_COL_NAME_TOKEN,
4467: --START:| 30-May-2006 cklee -- Fixed bug#5241187 |
4468: -- p_token1_value => 'Contract Top Line'); -- kle_id (contract_line_id) assoc asset number
4477: ,p_fund_id => p_tplv_rec.tap_id
4478:
4479: ,p_fund_line_id => p_tplv_rec.id
4480: ,p_mode => p_mode);
4481: IF (l_result = OKL_API.G_FALSE) THEN
4482: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4483: p_msg_name => G_NOT_UNIQUE,
4484: p_token1 => G_COL_NAME_TOKEN,
4485: p_token1_value => 'Asset Number');
4478:
4479: ,p_fund_line_id => p_tplv_rec.id
4480: ,p_mode => p_mode);
4481: IF (l_result = OKL_API.G_FALSE) THEN
4482: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4483: p_msg_name => G_NOT_UNIQUE,
4484: p_token1 => G_COL_NAME_TOKEN,
4485: p_token1_value => 'Asset Number');
4486: RAISE G_EXCEPTION_HALT_VALIDATION;
4490:
4491: RETURN l_return_status;
4492: EXCEPTION
4493: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4494: l_return_status := OKL_API.G_RET_STS_ERROR;
4495: RETURN l_return_status;
4496: WHEN OTHERS THEN
4497: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4498: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4493: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4494: l_return_status := OKL_API.G_RET_STS_ERROR;
4495: RETURN l_return_status;
4496: WHEN OTHERS THEN
4497: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4498: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4499: p_msg_name => G_UNEXPECTED_ERROR,
4500: p_token1 => G_SQLCODE_TOKEN,
4501: p_token1_value => SQLCODE,
4494: l_return_status := OKL_API.G_RET_STS_ERROR;
4495: RETURN l_return_status;
4496: WHEN OTHERS THEN
4497: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4498: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4499: p_msg_name => G_UNEXPECTED_ERROR,
4500: p_token1 => G_SQLCODE_TOKEN,
4501: p_token1_value => SQLCODE,
4502: p_token2 => G_SQLERRM_TOKEN,
4515: p_tplv_tbl IN tplv_tbl_type
4516:
4517: ) RETURN VARCHAR2
4518: IS
4519: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4520:
4521: l_dummy VARCHAR2(1) := '?';
4522: l_result VARCHAR2(1) := OKL_API.G_TRUE;
4523:
4518: IS
4519: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4520:
4521: l_dummy VARCHAR2(1) := '?';
4522: l_result VARCHAR2(1) := OKL_API.G_TRUE;
4523:
4524: CURSOR c (p_tap_id NUMBER)
4525:
4526: IS
4540:
4541: -- check uniqueness
4542: l_result := is_kle_id_unique(p_tplv_tbl=>p_tplv_tbl);
4543:
4544: IF (l_result = OKL_API.G_FALSE) THEN
4545:
4546: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4547: p_msg_name => G_NOT_UNIQUE,
4548: p_token1 => G_COL_NAME_TOKEN,
4542: l_result := is_kle_id_unique(p_tplv_tbl=>p_tplv_tbl);
4543:
4544: IF (l_result = OKL_API.G_FALSE) THEN
4545:
4546: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4547: p_msg_name => G_NOT_UNIQUE,
4548: p_token1 => G_COL_NAME_TOKEN,
4549: p_token1_value => 'Asset Number');
4550: RAISE G_EXCEPTION_HALT_VALIDATION;
4555: RETURN l_return_status;
4556: EXCEPTION
4557:
4558: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4559: l_return_status := OKL_API.G_RET_STS_ERROR;
4560: RETURN l_return_status;
4561: WHEN OTHERS THEN
4562: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4563: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4558: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4559: l_return_status := OKL_API.G_RET_STS_ERROR;
4560: RETURN l_return_status;
4561: WHEN OTHERS THEN
4562: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4563: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4564: p_msg_name => G_UNEXPECTED_ERROR,
4565: p_token1 => G_SQLCODE_TOKEN,
4566: p_token1_value => SQLCODE,
4559: l_return_status := OKL_API.G_RET_STS_ERROR;
4560: RETURN l_return_status;
4561: WHEN OTHERS THEN
4562: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4563: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4564: p_msg_name => G_UNEXPECTED_ERROR,
4565: p_token1 => G_SQLCODE_TOKEN,
4566: p_token1_value => SQLCODE,
4567: p_token2 => G_SQLERRM_TOKEN,
4578: FUNCTION validate_stream_id(
4579: p_tplv_rec IN tplv_rec_type
4580: ) RETURN VARCHAR2
4581: IS
4582: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4583: l_dummy VARCHAR2(1) := '?';
4584:
4585: CURSOR c (p_tap_id NUMBER)
4586: IS
4597:
4598: IF (l_dummy = 'X') THEN
4599: -- Stream Type ID is required:
4600: IF (p_tplv_rec.sty_id IS NULL) OR
4601: (p_tplv_rec.sty_id = OKL_API.G_MISS_NUM)
4602: THEN
4603: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4604: p_msg_name => G_REQUIRED_VALUE,
4605: p_token1 => G_COL_NAME_TOKEN,
4599: -- Stream Type ID is required:
4600: IF (p_tplv_rec.sty_id IS NULL) OR
4601: (p_tplv_rec.sty_id = OKL_API.G_MISS_NUM)
4602: THEN
4603: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4604: p_msg_name => G_REQUIRED_VALUE,
4605: p_token1 => G_COL_NAME_TOKEN,
4606: p_token1_value => 'Stream Type'); -- sty_id
4607: RAISE G_EXCEPTION_HALT_VALIDATION;
4610:
4611: RETURN l_return_status;
4612: EXCEPTION
4613: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4614: l_return_status := OKL_API.G_RET_STS_ERROR;
4615: RETURN l_return_status;
4616: WHEN OTHERS THEN
4617: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4618: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4613: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4614: l_return_status := OKL_API.G_RET_STS_ERROR;
4615: RETURN l_return_status;
4616: WHEN OTHERS THEN
4617: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4618: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4619: p_msg_name => G_UNEXPECTED_ERROR,
4620: p_token1 => G_SQLCODE_TOKEN,
4621: p_token1_value => SQLCODE,
4614: l_return_status := OKL_API.G_RET_STS_ERROR;
4615: RETURN l_return_status;
4616: WHEN OTHERS THEN
4617: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4618: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4619: p_msg_name => G_UNEXPECTED_ERROR,
4620: p_token1 => G_SQLCODE_TOKEN,
4621: p_token1_value => SQLCODE,
4622: p_token2 => G_SQLERRM_TOKEN,
4631: p_tplv_rec IN tplv_rec_type
4632: ,p_mode IN VARCHAR2
4633: ) RETURN VARCHAR2
4634: IS
4635: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4636:
4637: l_api_version NUMBER := 1.0;
4638: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
4639: x_return_status VARCHAR2(1);
4634: IS
4635: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4636:
4637: l_api_version NUMBER := 1.0;
4638: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
4639: x_return_status VARCHAR2(1);
4640: x_msg_count NUMBER;
4641: x_msg_data VARCHAR2(2000);
4642: x_value NUMBER := 0;
4658:
4659: BEGIN
4660: -- line Amount is required: default to 0 @ UI
4661: IF (p_tplv_rec.amount IS NULL) OR
4662: (p_tplv_rec.amount = OKL_API.G_MISS_NUM)
4663: THEN
4664: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4665: p_msg_name => G_REQUIRED_VALUE,
4666: p_token1 => G_COL_NAME_TOKEN,
4660: -- line Amount is required: default to 0 @ UI
4661: IF (p_tplv_rec.amount IS NULL) OR
4662: (p_tplv_rec.amount = OKL_API.G_MISS_NUM)
4663: THEN
4664: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4665: p_msg_name => G_REQUIRED_VALUE,
4666: p_token1 => G_COL_NAME_TOKEN,
4667: p_token1_value => 'Amount');
4668: RAISE G_EXCEPTION_HALT_VALIDATION;
4677: close c_invoice_type;
4678:
4679: IF((l_invoice_type = G_STANDARD AND p_tplv_rec.AMOUNT < 0)
4680: OR(l_invoice_type = G_CREDIT AND p_tplv_rec.AMOUNT > 0))THEN
4681: OKL_API.set_message(
4682: p_app_name => G_APP_NAME
4683: ,p_msg_name => 'OKL_LLA_INV_TYPE_AND_SIGN'
4684: );
4685: RAISE G_EXCEPTION_HALT_VALIDATION;
4690: -- project.
4691: /*
4692: IF (p_tplv_rec.amount < 0 ) THEN
4693:
4694: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4695: p_msg_name => 'OKL_LLA_POSITIVE_AMOUNT_ONLY',
4696: p_token1 => 'COL_NAME',
4697: p_token1_value => 'Amount');
4698:
4702: */
4703: RETURN l_return_status;
4704: EXCEPTION
4705: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4706: l_return_status := OKL_API.G_RET_STS_ERROR;
4707: RETURN l_return_status;
4708: WHEN OTHERS THEN
4709:
4710:
4707: RETURN l_return_status;
4708: WHEN OTHERS THEN
4709:
4710:
4711: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4712:
4713: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4714: p_msg_name => G_UNEXPECTED_ERROR,
4715: p_token1 => G_SQLCODE_TOKEN,
4709:
4710:
4711: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4712:
4713: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4714: p_msg_name => G_UNEXPECTED_ERROR,
4715: p_token1 => G_SQLCODE_TOKEN,
4716: p_token1_value => SQLCODE,
4717: p_token2 => G_SQLERRM_TOKEN,
4725: ,p_mode IN VARCHAR2 -- 'C'reate,'U'pdate,'D'elete
4726:
4727: ) RETURN VARCHAR2
4728: IS
4729: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4730: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4731:
4732: l_vendor_id PO_VENDOR_SITES_ALL.vendor_id%TYPE;
4733: l_org_id okc_k_headers_b.AUTHORING_ORG_ID%TYPE;
4726:
4727: ) RETURN VARCHAR2
4728: IS
4729: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4730: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4731:
4732: l_vendor_id PO_VENDOR_SITES_ALL.vendor_id%TYPE;
4733: l_org_id okc_k_headers_b.AUTHORING_ORG_ID%TYPE;
4734:
4750:
4751: -- Do formal attribute validation:
4752: l_return_status := validate_trx_status_code(p_tapv_rec);
4753: --- Store the highest degree of error
4754: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4755: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4756: x_return_status := l_return_status;
4757: END IF;
4758: RAISE G_EXCEPTION_HALT_VALIDATION;
4751: -- Do formal attribute validation:
4752: l_return_status := validate_trx_status_code(p_tapv_rec);
4753: --- Store the highest degree of error
4754: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4755: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4756: x_return_status := l_return_status;
4757: END IF;
4758: RAISE G_EXCEPTION_HALT_VALIDATION;
4759: END IF;
4761: -- Do formal attribute validation:
4762: l_return_status := validate_payment_due_date(p_tapv_rec);
4763:
4764: --- Store the highest degree of error
4765: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4766: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4767: x_return_status := l_return_status;
4768: END IF;
4769: RAISE G_EXCEPTION_HALT_VALIDATION;
4762: l_return_status := validate_payment_due_date(p_tapv_rec);
4763:
4764: --- Store the highest degree of error
4765: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4766: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4767: x_return_status := l_return_status;
4768: END IF;
4769: RAISE G_EXCEPTION_HALT_VALIDATION;
4770: END IF;
4775:
4776: --
4777: l_return_status := validate_creditline(p_tapv_rec);
4778: --- Store the highest degree of error
4779: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4780: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4781: x_return_status := l_return_status;
4782: END IF;
4783: RAISE G_EXCEPTION_HALT_VALIDATION;
4776: --
4777: l_return_status := validate_creditline(p_tapv_rec);
4778: --- Store the highest degree of error
4779: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4780: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4781: x_return_status := l_return_status;
4782: END IF;
4783: RAISE G_EXCEPTION_HALT_VALIDATION;
4784: END IF;
4789: IF (upper(p_mode) = 'U' AND p_tapv_rec.trx_status_code in ('SUBMITTED','APPROVED')) THEN
4790:
4791: l_return_status := validate_chr_status(p_tapv_rec.khr_id);
4792: --- Store the highest degree of error
4793: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4794: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4795: x_return_status := l_return_status;
4796: END IF;
4797: RAISE G_EXCEPTION_HALT_VALIDATION;
4790:
4791: l_return_status := validate_chr_status(p_tapv_rec.khr_id);
4792: --- Store the highest degree of error
4793: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4794: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4795: x_return_status := l_return_status;
4796: END IF;
4797: RAISE G_EXCEPTION_HALT_VALIDATION;
4798: END IF;
4798: END IF;
4799:
4800: l_return_status := validate_header_amount(p_tapv_rec);
4801: --- Store the highest degree of error
4802: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4803: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4804: x_return_status := l_return_status;
4805: END IF;
4806: RAISE G_EXCEPTION_HALT_VALIDATION;
4799:
4800: l_return_status := validate_header_amount(p_tapv_rec);
4801: --- Store the highest degree of error
4802: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4803: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4804: x_return_status := l_return_status;
4805: END IF;
4806: RAISE G_EXCEPTION_HALT_VALIDATION;
4807: END IF;
4809: END IF;
4810:
4811: l_return_status := validate_funding_checklist(p_tapv_rec);
4812: --- Store the highest degree of error
4813: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4814: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4815: x_return_status := l_return_status;
4816: END IF;
4817: RAISE G_EXCEPTION_HALT_VALIDATION;
4810:
4811: l_return_status := validate_funding_checklist(p_tapv_rec);
4812: --- Store the highest degree of error
4813: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4814: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4815: x_return_status := l_return_status;
4816: END IF;
4817: RAISE G_EXCEPTION_HALT_VALIDATION;
4818: END IF;
4820: -- bug 2604862
4821: l_return_status := validate_header_amount_for_RL(p_tapv_rec);
4822:
4823: --- Store the highest degree of error
4824: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4825: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4826: x_return_status := l_return_status;
4827: END IF;
4828: RAISE G_EXCEPTION_HALT_VALIDATION;
4821: l_return_status := validate_header_amount_for_RL(p_tapv_rec);
4822:
4823: --- Store the highest degree of error
4824: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4825: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4826: x_return_status := l_return_status;
4827: END IF;
4828: RAISE G_EXCEPTION_HALT_VALIDATION;
4829:
4832:
4833: IF (p_tapv_rec.FUNDING_TYPE_CODE <> G_ASSET_SUBSIDY) THEN -- cklee 09/17/03
4834: l_return_status := validate_vendor_invoice_number(p_tapv_rec);
4835: --- Store the highest degree of error
4836: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4837: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4838: x_return_status := l_return_status;
4839: END IF;
4840: RAISE G_EXCEPTION_HALT_VALIDATION;
4833: IF (p_tapv_rec.FUNDING_TYPE_CODE <> G_ASSET_SUBSIDY) THEN -- cklee 09/17/03
4834: l_return_status := validate_vendor_invoice_number(p_tapv_rec);
4835: --- Store the highest degree of error
4836: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4837: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4838: x_return_status := l_return_status;
4839: END IF;
4840: RAISE G_EXCEPTION_HALT_VALIDATION;
4841: END IF;
4842: END IF;
4843:
4844: l_return_status := validate_ipvs_id(p_tapv_rec);
4845: --- Store the highest degree of error
4846: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4847: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4848: x_return_status := l_return_status;
4849: END IF;
4850: RAISE G_EXCEPTION_HALT_VALIDATION;
4843:
4844: l_return_status := validate_ipvs_id(p_tapv_rec);
4845: --- Store the highest degree of error
4846: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4847: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4848: x_return_status := l_return_status;
4849: END IF;
4850: RAISE G_EXCEPTION_HALT_VALIDATION;
4851: END IF;
4851: END IF;
4852:
4853: l_return_status := validate_funding_type(p_tapv_rec,p_mode);
4854: --- Store the highest degree of error
4855: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4856: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4857: x_return_status := l_return_status;
4858: END IF;
4859: RAISE G_EXCEPTION_HALT_VALIDATION;
4852:
4853: l_return_status := validate_funding_type(p_tapv_rec,p_mode);
4854: --- Store the highest degree of error
4855: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4856: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4857: x_return_status := l_return_status;
4858: END IF;
4859: RAISE G_EXCEPTION_HALT_VALIDATION;
4860: END IF;
4860: END IF;
4861: -- Added for bug 5704212 -- start
4862: l_return_status := validate_release_contract(p_tapv_rec);
4863: --- Store the highest degree of error
4864: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4865: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4866: x_return_status := l_return_status;
4867: END IF;
4868: RAISE G_EXCEPTION_HALT_VALIDATION;
4861: -- Added for bug 5704212 -- start
4862: l_return_status := validate_release_contract(p_tapv_rec);
4863: --- Store the highest degree of error
4864: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4865: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4866: x_return_status := l_return_status;
4867: END IF;
4868: RAISE G_EXCEPTION_HALT_VALIDATION;
4869: END IF;
4870: -- Added for bug 5704212 - End
4871:
4872: l_return_status := validate_payment_method(p_tapv_rec);
4873: --- Store the highest degree of error
4874: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4875: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4876: x_return_status := l_return_status;
4877: END IF;
4878: RAISE G_EXCEPTION_HALT_VALIDATION;
4871:
4872: l_return_status := validate_payment_method(p_tapv_rec);
4873: --- Store the highest degree of error
4874: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4875: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4876: x_return_status := l_return_status;
4877: END IF;
4878: RAISE G_EXCEPTION_HALT_VALIDATION;
4879: END IF;
4880:
4881: -- 05/04/2004 cklee
4882: l_return_status := validate_invoice_type(p_tapv_rec);
4883: --- Store the highest degree of error
4884: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4885: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4886: x_return_status := l_return_status;
4887: END IF;
4888: RAISE G_EXCEPTION_HALT_VALIDATION;
4881: -- 05/04/2004 cklee
4882: l_return_status := validate_invoice_type(p_tapv_rec);
4883: --- Store the highest degree of error
4884: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4885: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4886: x_return_status := l_return_status;
4887: END IF;
4888: RAISE G_EXCEPTION_HALT_VALIDATION;
4889: END IF;
4890:
4891: -- sjalasut, added the function validate_invoice_type_and_sign
4892: -- as part of OKLR12B disbursements project
4893: l_return_status := validate_invoice_type_and_sign(p_tapv_rec);
4894: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4895: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4896: x_return_status := l_return_status;
4897: END IF;
4898: RAISE G_EXCEPTION_HALT_VALIDATION;
4891: -- sjalasut, added the function validate_invoice_type_and_sign
4892: -- as part of OKLR12B disbursements project
4893: l_return_status := validate_invoice_type_and_sign(p_tapv_rec);
4894: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4895: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4896: x_return_status := l_return_status;
4897: END IF;
4898: RAISE G_EXCEPTION_HALT_VALIDATION;
4899: END IF;
4913: p_vendor_id => l_vendor_id
4914: ,p_org_id => l_org_id
4915: ,p_fund_number => p_tapv_rec.vendor_invoice_number);
4916:
4917: IF (l_return_status = OKL_API.G_FALSE) THEN
4918: x_return_status := OKL_API.G_RET_STS_ERROR;
4919: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4920: p_msg_name => G_NOT_UNIQUE,
4921: p_token1 => G_COL_NAME_TOKEN,
4914: ,p_org_id => l_org_id
4915: ,p_fund_number => p_tapv_rec.vendor_invoice_number);
4916:
4917: IF (l_return_status = OKL_API.G_FALSE) THEN
4918: x_return_status := OKL_API.G_RET_STS_ERROR;
4919: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4920: p_msg_name => G_NOT_UNIQUE,
4921: p_token1 => G_COL_NAME_TOKEN,
4922: p_token1_value => 'Request Number');
4915: ,p_fund_number => p_tapv_rec.vendor_invoice_number);
4916:
4917: IF (l_return_status = OKL_API.G_FALSE) THEN
4918: x_return_status := OKL_API.G_RET_STS_ERROR;
4919: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4920: p_msg_name => G_NOT_UNIQUE,
4921: p_token1 => G_COL_NAME_TOKEN,
4922: p_token1_value => 'Request Number');
4923:
4931:
4932:
4933: RETURN x_return_status;
4934: WHEN OTHERS THEN
4935: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4936: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4937: p_msg_name => G_UNEXPECTED_ERROR,
4938: p_token1 => G_SQLCODE_TOKEN,
4939: p_token1_value => SQLCODE,
4932:
4933: RETURN x_return_status;
4934: WHEN OTHERS THEN
4935: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4936: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4937: p_msg_name => G_UNEXPECTED_ERROR,
4938: p_token1 => G_SQLCODE_TOKEN,
4939: p_token1_value => SQLCODE,
4940: p_token2 => G_SQLERRM_TOKEN,
4948: p_tplv_rec IN tplv_rec_type
4949: ,p_mode IN VARCHAR2 -- 'C'reate,'U'pdate,'D'elete
4950: ) RETURN VARCHAR2
4951: IS
4952: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4953: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4954: BEGIN
4955:
4956: -- Do formal attribute validation:
4949: ,p_mode IN VARCHAR2 -- 'C'reate,'U'pdate,'D'elete
4950: ) RETURN VARCHAR2
4951: IS
4952: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4953: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4954: BEGIN
4955:
4956: -- Do formal attribute validation:
4957: -- check sty_id
4957: -- check sty_id
4958: l_return_status := validate_stream_id(p_tplv_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:
4964: x_return_status := l_return_status;
4965: END IF;
4958: l_return_status := validate_stream_id(p_tplv_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:
4964: x_return_status := l_return_status;
4965: END IF;
4966: RAISE G_EXCEPTION_HALT_VALIDATION; -- 09/2001: one error at a time until Okx/Java can accept more
4968:
4969: -- check kle_id
4970: l_return_status := validate_kle_id(p_tplv_rec, p_mode);
4971: --- Store the highest degree of error
4972: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4973: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4974: x_return_status := l_return_status;
4975: END IF;
4976: RAISE G_EXCEPTION_HALT_VALIDATION; -- 09/2001: one error at a time until Okx/Java can accept more
4969: -- check kle_id
4970: l_return_status := validate_kle_id(p_tplv_rec, p_mode);
4971: --- Store the highest degree of error
4972: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4973: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4974: x_return_status := l_return_status;
4975: END IF;
4976: RAISE G_EXCEPTION_HALT_VALIDATION; -- 09/2001: one error at a time until Okx/Java can accept more
4977: END IF;
4977: END IF;
4978:
4979: l_return_status := validate_line_amount(p_tplv_rec,p_mode);
4980: --- Store the highest degree of error
4981: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4982: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4983: x_return_status := l_return_status;
4984: END IF;
4985: RAISE G_EXCEPTION_HALT_VALIDATION;
4978:
4979: l_return_status := validate_line_amount(p_tplv_rec,p_mode);
4980: --- Store the highest degree of error
4981: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4982: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4983: x_return_status := l_return_status;
4984: END IF;
4985: RAISE G_EXCEPTION_HALT_VALIDATION;
4986: END IF;
4989: EXCEPTION
4990: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4991: RETURN x_return_status;
4992: WHEN OTHERS THEN
4993: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4994: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4995: p_msg_name => G_UNEXPECTED_ERROR,
4996: p_token1 => G_SQLCODE_TOKEN,
4997: p_token1_value => SQLCODE,
4990: WHEN G_EXCEPTION_HALT_VALIDATION THEN
4991: RETURN x_return_status;
4992: WHEN OTHERS THEN
4993: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4994: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4995: p_msg_name => G_UNEXPECTED_ERROR,
4996: p_token1 => G_SQLCODE_TOKEN,
4997: p_token1_value => SQLCODE,
4998: p_token2 => G_SQLERRM_TOKEN,
5006: FUNCTION populate_sty_id(
5007: p_tplv_rec IN OUT NOCOPY tplv_rec_type
5008: ) RETURN VARCHAR2
5009: IS
5010: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5011: l_stream_id NUMBER;
5012: l_chr_id NUMBER;
5013: l_name VARCHAR2(30);
5014: l_funding_type_code okl_trx_ap_invoices_b.funding_type_code%TYPE;
5086:
5087: END IF;
5088: --cklee user defined stream type modification
5089:
5090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5093: RAISE OKL_API.G_EXCEPTION_ERROR;
5094: END IF;
5087: END IF;
5088: --cklee user defined stream type modification
5089:
5090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5093: RAISE OKL_API.G_EXCEPTION_ERROR;
5094: END IF;
5095:
5088: --cklee user defined stream type modification
5089:
5090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5093: RAISE OKL_API.G_EXCEPTION_ERROR;
5094: END IF;
5095:
5096: -- only fill if sty_id not exists
5089:
5090: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5091: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5092: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5093: RAISE OKL_API.G_EXCEPTION_ERROR;
5094: END IF;
5095:
5096: -- only fill if sty_id not exists
5097: IF (l_funding_type_code in (G_PREFUNDING_TYPE_CODE,
5104: EXCEPTION
5105:
5106: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5107:
5108: l_return_status := OKL_API.G_RET_STS_ERROR;
5109: RETURN l_return_status;
5110: WHEN OTHERS THEN
5111: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5112:
5107:
5108: l_return_status := OKL_API.G_RET_STS_ERROR;
5109: RETURN l_return_status;
5110: WHEN OTHERS THEN
5111: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5112:
5113: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5114: p_msg_name => G_UNEXPECTED_ERROR,
5115: p_token1 => G_SQLCODE_TOKEN,
5109: RETURN l_return_status;
5110: WHEN OTHERS THEN
5111: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5112:
5113: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5114: p_msg_name => G_UNEXPECTED_ERROR,
5115: p_token1 => G_SQLCODE_TOKEN,
5116: p_token1_value => SQLCODE,
5117: p_token2 => G_SQLERRM_TOKEN,
5134: l_api_version CONSTANT NUMBER := 1.0;
5135: l_tapv_rec tapv_rec_type;
5136: x_tapv_rec tapv_rec_type;
5137: j BINARY_INTEGER;
5138: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5139: l_id OKL_TRX_AP_INVOICES_B.ID%TYPE;
5140: l_funding_type_code OKL_TRX_AP_INVOICES_B.funding_type_code%TYPE;
5141: l_VENDOR_INVOICE_NUMBER OKL_TRX_AP_INVOICES_B.VENDOR_INVOICE_NUMBER%TYPE;
5142: l_PAY_GROUP_LOOKUP_CODE OKL_TRX_AP_INVOICES_B.PAY_GROUP_LOOKUP_CODE%TYPE;
5157: ;
5158:
5159: BEGIN
5160:
5161: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5162: -- Call start_activity to create savepoint, check compatibility
5163: -- and initialize message list
5164: x_return_status := OKL_API.START_ACTIVITY (
5165: l_api_name,
5160:
5161: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5162: -- Call start_activity to create savepoint, check compatibility
5163: -- and initialize message list
5164: x_return_status := OKL_API.START_ACTIVITY (
5165: l_api_name,
5166: p_init_msg_list,
5167: '_PVT',
5168: x_return_status);
5166: p_init_msg_list,
5167: '_PVT',
5168: x_return_status);
5169: -- Check if activity started successfully
5170: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5172:
5173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5174: RAISE OKL_API.G_EXCEPTION_ERROR;
5167: '_PVT',
5168: x_return_status);
5169: -- Check if activity started successfully
5170: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5172:
5173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5174: RAISE OKL_API.G_EXCEPTION_ERROR;
5175: END IF;
5169: -- Check if activity started successfully
5170: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5172:
5173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5174: RAISE OKL_API.G_EXCEPTION_ERROR;
5175: END IF;
5176: --
5177:
5170: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5171: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5172:
5173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5174: RAISE OKL_API.G_EXCEPTION_ERROR;
5175: END IF;
5176: --
5177:
5178: --*** Begin API body ****************************************************
5204: x_msg_data => x_msg_data,
5205: p_tapv_rec => l_tapv_rec,
5206: x_tapv_rec => x_tapv_rec);
5207:
5208: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5211: RAISE OKL_API.G_EXCEPTION_ERROR;
5212: END IF;
5205: p_tapv_rec => l_tapv_rec,
5206: x_tapv_rec => x_tapv_rec);
5207:
5208: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5211: RAISE OKL_API.G_EXCEPTION_ERROR;
5212: END IF;
5213:
5206: x_tapv_rec => x_tapv_rec);
5207:
5208: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5211: RAISE OKL_API.G_EXCEPTION_ERROR;
5212: END IF;
5213:
5214: OKL_API.END_ACTIVITY (x_msg_count,
5207:
5208: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5211: RAISE OKL_API.G_EXCEPTION_ERROR;
5212: END IF;
5213:
5214: OKL_API.END_ACTIVITY (x_msg_count,
5215: x_msg_data );
5210: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5211: RAISE OKL_API.G_EXCEPTION_ERROR;
5212: END IF;
5213:
5214: OKL_API.END_ACTIVITY (x_msg_count,
5215: x_msg_data );
5216: EXCEPTION
5217: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5213:
5214: OKL_API.END_ACTIVITY (x_msg_count,
5215: x_msg_data );
5216: EXCEPTION
5217: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5219: l_api_name,
5220: G_PKG_NAME,
5221: 'OKL_API.G_RET_STS_ERROR',
5214: OKL_API.END_ACTIVITY (x_msg_count,
5215: x_msg_data );
5216: EXCEPTION
5217: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5219: l_api_name,
5220: G_PKG_NAME,
5221: 'OKL_API.G_RET_STS_ERROR',
5222: x_msg_count,
5217: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5218: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5219: l_api_name,
5220: G_PKG_NAME,
5221: 'OKL_API.G_RET_STS_ERROR',
5222: x_msg_count,
5223: x_msg_data,
5224: '_PVT');
5225: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5221: 'OKL_API.G_RET_STS_ERROR',
5222: x_msg_count,
5223: x_msg_data,
5224: '_PVT');
5225: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5226: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5227: l_api_name,
5228: G_PKG_NAME,
5229: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5222: x_msg_count,
5223: x_msg_data,
5224: '_PVT');
5225: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5226: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5227: l_api_name,
5228: G_PKG_NAME,
5229: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5230: x_msg_count,
5225: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5226: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5227: l_api_name,
5228: G_PKG_NAME,
5229: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5230: x_msg_count,
5231: x_msg_data,
5232: '_PVT');
5233: WHEN OTHERS THEN
5230: x_msg_count,
5231: x_msg_data,
5232: '_PVT');
5233: WHEN OTHERS THEN
5234: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5235: l_api_name,
5236: G_PKG_NAME,
5237: 'OTHERS',
5238: x_msg_count,
5258: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_FUNDING_HEADER';
5259: l_api_version CONSTANT NUMBER := 1.0;
5260: l_tapv_rec tapv_rec_type := p_tapv_rec;
5261: i NUMBER;
5262: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5263: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
5264: l_try_id NUMBER;
5265: l_org_id NUMBER;
5266: l_try_name OKL_TRX_TYPES_TL.NAME%TYPE;
5259: l_api_version CONSTANT NUMBER := 1.0;
5260: l_tapv_rec tapv_rec_type := p_tapv_rec;
5261: i NUMBER;
5262: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5263: l_dummy VARCHAR2(1) := OKL_API.G_TRUE;
5264: l_try_id NUMBER;
5265: l_org_id NUMBER;
5266: l_try_name OKL_TRX_TYPES_TL.NAME%TYPE;
5267:
5310: p_api_version,
5311: l_api_name,
5312: G_PKG_NAME ))
5313: THEN
5314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5315: END IF;
5316:
5317: -- Initialize message list if requested
5318: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
5319: FND_MSG_PUB.initialize;
5320: END IF;
5321:
5322: -- Initialize API status to success
5323: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5324:
5325:
5326: /*** Begin API body ****************************************************/
5327:
5349:
5350: -- populates more attributes for BPD
5351: l_return_status := populate_more_attrs(l_tapv_rec);
5352: --- Store the highest degree of error
5353: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5354: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5355: x_return_status := l_return_status;
5356: END IF;
5357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5350: -- populates more attributes for BPD
5351: l_return_status := populate_more_attrs(l_tapv_rec);
5352: --- Store the highest degree of error
5353: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5354: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5355: x_return_status := l_return_status;
5356: END IF;
5357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5358: END IF;
5353: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5354: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5355: x_return_status := l_return_status;
5356: END IF;
5357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5358: END IF;
5359:
5360: l_return_status := validate_header_attributes(l_tapv_rec, 'C');
5361: --- Store the highest degree of error
5358: END IF;
5359:
5360: l_return_status := validate_header_attributes(l_tapv_rec, 'C');
5361: --- Store the highest degree of error
5362: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5363: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5364: x_return_status := l_return_status;
5365: END IF;
5366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5359:
5360: l_return_status := validate_header_attributes(l_tapv_rec, 'C');
5361: --- Store the highest degree of error
5362: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5363: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5364: x_return_status := l_return_status;
5365: END IF;
5366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5367: END IF;
5362: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5363: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5364: x_return_status := l_return_status;
5365: END IF;
5366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5367: END IF;
5368: --Added by dpsingh for LE Uptake
5369: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_tapv_rec.khr_id) ;
5370: IF l_legal_entity_id IS NOT NULL THEN
5373: -- get the contract number
5374: OPEN contract_num_csr(p_tapv_rec.khr_id);
5375: FETCH contract_num_csr INTO l_cntrct_number;
5376: CLOSE contract_num_csr;
5377: Okl_Api.set_message(p_app_name => g_app_name,
5378: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
5379: p_token1 => 'CONTRACT_NUMBER',
5380: p_token1_value => l_cntrct_number);
5381: RAISE OKL_API.G_EXCEPTION_ERROR;
5377: Okl_Api.set_message(p_app_name => g_app_name,
5378: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
5379: p_token1 => 'CONTRACT_NUMBER',
5380: p_token1_value => l_cntrct_number);
5381: RAISE OKL_API.G_EXCEPTION_ERROR;
5382: END IF;
5383: -- smadhava - Bug#5200033 - Added - Start
5384: -- Round the amount to the System Options setup
5385: l_tapv_rec.AMOUNT := OKL_ACCOUNTING_UTIL.round_amount(p_amount => l_tapv_rec.AMOUNT
5395: x_msg_data => x_msg_data,
5396: p_tapv_rec => l_tapv_rec,
5397: x_tapv_rec => x_tapv_rec);
5398:
5399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_ERROR;
5403: END IF;
5396: p_tapv_rec => l_tapv_rec,
5397: x_tapv_rec => x_tapv_rec);
5398:
5399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_ERROR;
5403: END IF;
5404:
5397: x_tapv_rec => x_tapv_rec);
5398:
5399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_ERROR;
5403: END IF;
5404:
5405: --
5398:
5399: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5402: RAISE OKL_API.G_EXCEPTION_ERROR;
5403: END IF;
5404:
5405: --
5406: -- create dummy funding line for pre-funding, AP required
5423:
5424: -- fixed bug#3338910
5425: l_return_status := populate_sty_id(l_tplv_rec);
5426: --- Store the highest degree of error
5427: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5428: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5429: x_return_status := l_return_status;
5430: END IF;
5431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5424: -- fixed bug#3338910
5425: l_return_status := populate_sty_id(l_tplv_rec);
5426: --- Store the highest degree of error
5427: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5428: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5429: x_return_status := l_return_status;
5430: END IF;
5431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5432: END IF;
5427: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5428: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5429: x_return_status := l_return_status;
5430: END IF;
5431: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5432: END IF;
5433:
5434:
5435: OKL_TXL_AP_INV_LNS_PUB.INSERT_TXL_AP_INV_LNS(
5440: x_msg_data => x_msg_data,
5441: p_tplv_rec => l_tplv_rec,
5442: x_tplv_rec => x_tplv_rec);
5443:
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5441: p_tplv_rec => l_tplv_rec,
5442: x_tplv_rec => x_tplv_rec);
5443:
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5449:
5442: x_tplv_rec => x_tplv_rec);
5443:
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5449:
5450: END IF;
5443:
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5449:
5450: END IF;
5451:
5472: p_khr_id => p_tapv_rec.khr_id,
5473: p_id => x_tapv_rec.id,
5474: p_event_name => G_WF_EVT_FUN_REQ_CREATED);
5475:
5476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5479: RAISE OKL_API.G_EXCEPTION_ERROR;
5480: END IF;
5473: p_id => x_tapv_rec.id,
5474: p_event_name => G_WF_EVT_FUN_REQ_CREATED);
5475:
5476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5479: RAISE OKL_API.G_EXCEPTION_ERROR;
5480: END IF;
5481:
5474: p_event_name => G_WF_EVT_FUN_REQ_CREATED);
5475:
5476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5479: RAISE OKL_API.G_EXCEPTION_ERROR;
5480: END IF;
5481:
5482: End If;
5475:
5476: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5477: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5478: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5479: RAISE OKL_API.G_EXCEPTION_ERROR;
5480: END IF;
5481:
5482: End If;
5483:
5493: (p_count => x_msg_count,
5494: p_data => x_msg_data);
5495:
5496: EXCEPTION
5497: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5498: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5499: x_return_status := OKL_API.G_RET_STS_ERROR;
5500:
5501: FND_MSG_PUB.Count_And_Get
5495:
5496: EXCEPTION
5497: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5498: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5499: x_return_status := OKL_API.G_RET_STS_ERROR;
5500:
5501: FND_MSG_PUB.Count_And_Get
5502: (p_count => x_msg_count,
5503: p_data => x_msg_data);
5501: FND_MSG_PUB.Count_And_Get
5502: (p_count => x_msg_count,
5503: p_data => x_msg_data);
5504:
5505: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5506: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5507: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5508: FND_MSG_PUB.Count_And_Get
5509: (p_count => x_msg_count,
5503: p_data => x_msg_data);
5504:
5505: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5506: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5507: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5508: FND_MSG_PUB.Count_And_Get
5509: (p_count => x_msg_count,
5510: p_data => x_msg_data);
5511:
5510: p_data => x_msg_data);
5511:
5512: WHEN OTHERS THEN
5513: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5514: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5515: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5516: p_msg_name => G_UNEXPECTED_ERROR,
5517: p_token1 => G_SQLCODE_TOKEN,
5518: p_token1_value => SQLCODE,
5511:
5512: WHEN OTHERS THEN
5513: ROLLBACK TO CREATE_FUNDING_HEADER_PVT;
5514: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5515: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5516: p_msg_name => G_UNEXPECTED_ERROR,
5517: p_token1 => G_SQLCODE_TOKEN,
5518: p_token1_value => SQLCODE,
5519: p_token2 => G_SQLERRM_TOKEN,
5542: l_api_version CONSTANT NUMBER := 1.0;
5543: l_tapv_rec tapv_rec_type := p_tapv_rec;
5544: i NUMBER;
5545:
5546: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5547:
5548: l_row_not_found boolean := false;
5549: l_dummy number;
5550: funding_line_id number;
5552:
5553: -- vthiruva, 08/31/2004
5554: -- variables to raise business events
5555: l_event_name wf_events.name%TYPE := null;
5556: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
5557:
5558: cursor c_chklst_exists(p_fund_id varchar2) is
5559: --start modified abhsaxen for performance SQLID 20562448
5560: SELECT 1
5580: p_api_version,
5581: l_api_name,
5582: G_PKG_NAME ))
5583: THEN
5584: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5585: END IF;
5586:
5587: -- Initialize message list if requested
5588:
5590: FND_MSG_PUB.initialize;
5591: END IF;
5592:
5593: -- Initialize API status to success
5594: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5595:
5596:
5597: /*** Begin API body ****************************************************/
5598: l_return_status := validate_header_attributes(l_tapv_rec, 'U');
5596:
5597: /*** Begin API body ****************************************************/
5598: l_return_status := validate_header_attributes(l_tapv_rec, 'U');
5599: --- Store the highest degree of error
5600: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5601: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5602: x_return_status := l_return_status;
5603: END IF;
5604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5597: /*** Begin API body ****************************************************/
5598: l_return_status := validate_header_attributes(l_tapv_rec, 'U');
5599: --- Store the highest degree of error
5600: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5601: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5602: x_return_status := l_return_status;
5603: END IF;
5604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5605: END IF;
5600: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5601: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5602: x_return_status := l_return_status;
5603: END IF;
5604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5605: END IF;
5606:
5607: ------------------------------------------------------------------
5608: -- added for approval process
5625: p_khr_id => l_tapv_rec.khr_id,
5626: p_id => l_tapv_rec.id,
5627: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5628:
5629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5626: p_id => l_tapv_rec.id,
5627: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5628:
5629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5627: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5628:
5629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5635: /*
5628:
5629: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5630: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5631: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5632: RAISE OKL_API.G_EXCEPTION_ERROR;
5633: END IF;
5634:
5635: /*
5636: -- cklee, 12/21/2004
5673: p_tapv_rec => l_tapv_rec,
5674: x_tapv_rec => x_tapv_rec);
5675:
5676:
5677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5680: RAISE OKL_API.G_EXCEPTION_ERROR;
5681: END IF;
5674: x_tapv_rec => x_tapv_rec);
5675:
5676:
5677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5680: RAISE OKL_API.G_EXCEPTION_ERROR;
5681: END IF;
5682:
5675:
5676:
5677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5680: RAISE OKL_API.G_EXCEPTION_ERROR;
5681: END IF;
5682:
5683: -----------------------------------------------------------
5676:
5677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5678: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5680: RAISE OKL_API.G_EXCEPTION_ERROR;
5681: END IF;
5682:
5683: -----------------------------------------------------------
5684: -- trigger WF event if l_tapv_rec.trx_status_code = 'SUBMITTED' and
5701: p_khr_id => l_tapv_rec.khr_id,
5702: p_id => l_tapv_rec.id,
5703: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5704:
5705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5708: RAISE OKL_API.G_EXCEPTION_ERROR;
5709: END IF;
5702: p_id => l_tapv_rec.id,
5703: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5704:
5705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5708: RAISE OKL_API.G_EXCEPTION_ERROR;
5709: END IF;
5710:
5703: p_event_name => G_WF_EVT_FUN_LIST_VALIDATED);
5704:
5705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5708: RAISE OKL_API.G_EXCEPTION_ERROR;
5709: END IF;
5710:
5711: /*
5704:
5705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5708: RAISE OKL_API.G_EXCEPTION_ERROR;
5709: END IF;
5710:
5711: /*
5712: -- cklee, 12/21/2004
5763: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
5764: -- p_fund_line_id => funding_line_id);
5765: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
5766:
5767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5769: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5770: RAISE OKL_API.G_EXCEPTION_ERROR;
5771: END IF;
5764: -- p_fund_line_id => funding_line_id);
5765: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
5766:
5767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5769: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5770: RAISE OKL_API.G_EXCEPTION_ERROR;
5771: END IF;
5772:
5765: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
5766:
5767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5769: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5770: RAISE OKL_API.G_EXCEPTION_ERROR;
5771: END IF;
5772:
5773: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
5766:
5767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5769: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5770: RAISE OKL_API.G_EXCEPTION_ERROR;
5771: END IF;
5772:
5773: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
5774: -- END LOOP;
5788: x_msg_data => x_msg_data,
5789: p_status => l_tapv_rec.trx_status_code,
5790: p_fund_id => l_tapv_rec.id);
5791:
5792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5795: RAISE OKL_API.G_EXCEPTION_ERROR;
5796: END IF;
5789: p_status => l_tapv_rec.trx_status_code,
5790: p_fund_id => l_tapv_rec.id);
5791:
5792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5795: RAISE OKL_API.G_EXCEPTION_ERROR;
5796: END IF;
5797: END IF;
5790: p_fund_id => l_tapv_rec.id);
5791:
5792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5795: RAISE OKL_API.G_EXCEPTION_ERROR;
5796: END IF;
5797: END IF;
5798: END IF;
5791:
5792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5794: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
5795: RAISE OKL_API.G_EXCEPTION_ERROR;
5796: END IF;
5797: END IF;
5798: END IF;
5799:
5816: x_msg_data => x_msg_data,
5817: p_chr_id => l_tapv_rec.khr_id,
5818: p_fund_req_id => l_tapv_rec.id);
5819:
5820: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5822: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5823: RAISE OKL_API.G_EXCEPTION_ERROR;
5824: END IF;
5817: p_chr_id => l_tapv_rec.khr_id,
5818: p_fund_req_id => l_tapv_rec.id);
5819:
5820: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5822: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5823: RAISE OKL_API.G_EXCEPTION_ERROR;
5824: END IF;
5825: END IF;
5818: p_fund_req_id => l_tapv_rec.id);
5819:
5820: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5822: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5823: RAISE OKL_API.G_EXCEPTION_ERROR;
5824: END IF;
5825: END IF;
5826:
5819:
5820: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5822: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5823: RAISE OKL_API.G_EXCEPTION_ERROR;
5824: END IF;
5825: END IF;
5826:
5827: END IF;
5835: IF(p_tapv_rec.trx_status_code = 'ENTERED')THEN
5836: --raise the business event for update funding request
5837: --if transaction status code is ENTERED
5838: l_event_name := G_WF_EVT_FUN_REQ_UPDATED;
5839: l_raise_business_event := OKL_API.G_TRUE;
5840:
5841: ELSIF(p_tapv_rec.trx_status_code = 'CANCELED')THEN
5842: --raise the business event for cancel funding request
5843: --if transaction status code is CANCELED
5843: --if transaction status code is CANCELED
5844: --In DO the value of trx_status_code is being set to CANCELED
5845: --in place of CANCELLED. Hence changed the spelling in the above check.
5846: l_event_name := G_WF_EVT_FUN_REQ_CANCELLED;
5847: l_raise_business_event := OKL_API.G_TRUE;
5848:
5849: ELSIF(p_tapv_rec.trx_status_code = 'SUBMITTED')THEN
5850: --raise the business event for submit funding request
5851: --if transaction status code is SUBMITTED
5849: ELSIF(p_tapv_rec.trx_status_code = 'SUBMITTED')THEN
5850: --raise the business event for submit funding request
5851: --if transaction status code is SUBMITTED
5852: l_event_name := G_WF_EVT_FUN_REQ_SUBMITTED;
5853: l_raise_business_event := OKL_API.G_TRUE;
5854: END If;
5855:
5856: IF(l_raise_business_event = OKL_API.G_TRUE AND l_event_name IS NOT NULL) THEN
5857: --call to raise the appropriate business event
5852: l_event_name := G_WF_EVT_FUN_REQ_SUBMITTED;
5853: l_raise_business_event := OKL_API.G_TRUE;
5854: END If;
5855:
5856: IF(l_raise_business_event = OKL_API.G_TRUE AND l_event_name IS NOT NULL) THEN
5857: --call to raise the appropriate business event
5858: raise_business_event(p_api_version => p_api_version,
5859: p_init_msg_list => p_init_msg_list,
5860: x_return_status => x_return_status,
5863: p_khr_id => p_tapv_rec.khr_id,
5864: p_id => p_tapv_rec.id,
5865: p_event_name => l_event_name);
5866:
5867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5870: RAISE OKL_API.G_EXCEPTION_ERROR;
5871: END IF;
5864: p_id => p_tapv_rec.id,
5865: p_event_name => l_event_name);
5866:
5867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5870: RAISE OKL_API.G_EXCEPTION_ERROR;
5871: END IF;
5872: END IF;
5865: p_event_name => l_event_name);
5866:
5867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5870: RAISE OKL_API.G_EXCEPTION_ERROR;
5871: END IF;
5872: END IF;
5873:
5866:
5867: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5868: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5869: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5870: RAISE OKL_API.G_EXCEPTION_ERROR;
5871: END IF;
5872: END IF;
5873:
5874: /*
5883: (p_count => x_msg_count,
5884: p_data => x_msg_data);
5885:
5886: EXCEPTION
5887: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5888: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
5889: x_return_status := OKL_API.G_RET_STS_ERROR;
5890: FND_MSG_PUB.Count_And_Get
5891: (p_count => x_msg_count,
5885:
5886: EXCEPTION
5887: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5888: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
5889: x_return_status := OKL_API.G_RET_STS_ERROR;
5890: FND_MSG_PUB.Count_And_Get
5891: (p_count => x_msg_count,
5892: p_data => x_msg_data);
5893:
5890: FND_MSG_PUB.Count_And_Get
5891: (p_count => x_msg_count,
5892: p_data => x_msg_data);
5893:
5894: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5895: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
5896: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5897: FND_MSG_PUB.Count_And_Get
5898: (p_count => x_msg_count,
5892: p_data => x_msg_data);
5893:
5894: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5895: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
5896: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
5897: FND_MSG_PUB.Count_And_Get
5898: (p_count => x_msg_count,
5899: p_data => x_msg_data);
5900:
5899: p_data => x_msg_data);
5900:
5901: WHEN OTHERS THEN
5902: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
5903: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5904: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5905: p_msg_name => G_UNEXPECTED_ERROR,
5906: p_token1 => G_SQLCODE_TOKEN,
5907: p_token1_value => SQLCODE,
5900:
5901: WHEN OTHERS THEN
5902: ROLLBACK TO UPDATE_FUNDING_HEADER_PVT;
5903: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
5904: OKL_API.Set_Message(p_app_name => G_APP_NAME,
5905: p_msg_name => G_UNEXPECTED_ERROR,
5906: p_token1 => G_SQLCODE_TOKEN,
5907: p_token1_value => SQLCODE,
5908: p_token2 => G_SQLERRM_TOKEN,
5929:
5930: l_api_version CONSTANT NUMBER := 1.0;
5931: l_tplv_tbl tplv_tbl_type := p_tplv_tbl;
5932: i NUMBER;
5933: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5934:
5935: -- smadhava - Bug#5200033 - Added - Start
5936: l_currency_code OKL_TRX_AP_INVOICES_B.CURRENCY_CODE%TYPE;
5937:
5971: p_api_version,
5972: l_api_name,
5973: G_PKG_NAME ))
5974: THEN
5975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5976: END IF;
5977:
5978: -- Initialize message list if requested
5979: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
5980: FND_MSG_PUB.initialize;
5981: END IF;
5982:
5983: -- Initialize API status to success
5984: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5985:
5986:
5987:
5988: /*** Begin API body ****************************************************/
5990:
5991: -- OKL_TPL_PVT is not belongs to our dev team, so we have to write valid code here
5992: -- validate kle_id for passed in pl/sql table before insert into DB
5993: l_return_status := validate_table_kle_id(p_tplv_tbl);
5994: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5995: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5996: x_return_status := l_return_status;
5997: END IF;
5998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5991: -- OKL_TPL_PVT is not belongs to our dev team, so we have to write valid code here
5992: -- validate kle_id for passed in pl/sql table before insert into DB
5993: l_return_status := validate_table_kle_id(p_tplv_tbl);
5994: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5995: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5996: x_return_status := l_return_status;
5997: END IF;
5998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5999: END IF;
5994: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
5995: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5996: x_return_status := l_return_status;
5997: END IF;
5998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5999: END IF;
6000:
6001: -- check kle_id and sty_id if applicable
6002: IF (p_tplv_tbl.COUNT > 0) THEN
6041: --
6042: --
6043: --
6044: -- dcshanmu added - 23-Nov-2007 - bug # 6639928 - start
6045: IF (l_tplv_tbl(i).line_number = OKL_API.G_MISS_NUM OR l_tplv_tbl(i).line_number IS NULL) THEN
6046: l_max_line_number := l_max_line_number + 1;
6047: l_tplv_tbl(i).line_number := l_max_line_number;
6048: END IF;
6049: -- dcshanmu added - 23-Nov-2007 - bug # 6639928 - end
6050:
6051: -- fixed bug#3338910
6052: l_return_status := populate_sty_id(l_tplv_tbl(i));
6053:
6054: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6055: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6056: x_return_status := l_return_status;
6057: END IF;
6058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6051: -- fixed bug#3338910
6052: l_return_status := populate_sty_id(l_tplv_tbl(i));
6053:
6054: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6055: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6056: x_return_status := l_return_status;
6057: END IF;
6058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6059: END IF;
6054: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6055: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6056: x_return_status := l_return_status;
6057: END IF;
6058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6059: END IF;
6060:
6061:
6062: l_return_status := validate_line_attributes(p_tplv_tbl(i), 'C');
6060:
6061:
6062: l_return_status := validate_line_attributes(p_tplv_tbl(i), 'C');
6063:
6064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6067: RAISE OKL_API.G_EXCEPTION_ERROR;
6068: END IF;
6061:
6062: l_return_status := validate_line_attributes(p_tplv_tbl(i), 'C');
6063:
6064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6067: RAISE OKL_API.G_EXCEPTION_ERROR;
6068: END IF;
6069:
6062: l_return_status := validate_line_attributes(p_tplv_tbl(i), 'C');
6063:
6064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6067: RAISE OKL_API.G_EXCEPTION_ERROR;
6068: END IF;
6069:
6070: -- smadhava - Bug#5200033 - Added - Start
6063:
6064: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6067: RAISE OKL_API.G_EXCEPTION_ERROR;
6068: END IF;
6069:
6070: -- smadhava - Bug#5200033 - Added - Start
6071: -- Round the amount to the System Options setup
6089: x_msg_data => x_msg_data,
6090: p_tplv_tbl => l_tplv_tbl,
6091: x_tplv_tbl => x_tplv_tbl);
6092:
6093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6096: RAISE OKL_API.G_EXCEPTION_ERROR;
6097: END IF;
6090: p_tplv_tbl => l_tplv_tbl,
6091: x_tplv_tbl => x_tplv_tbl);
6092:
6093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6096: RAISE OKL_API.G_EXCEPTION_ERROR;
6097: END IF;
6098:
6091: x_tplv_tbl => x_tplv_tbl);
6092:
6093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6096: RAISE OKL_API.G_EXCEPTION_ERROR;
6097: END IF;
6098:
6099:
6092:
6093: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6094: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6095: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6096: RAISE OKL_API.G_EXCEPTION_ERROR;
6097: END IF;
6098:
6099:
6100: -- sync funding header amount
6105: x_msg_count => x_msg_count,
6106: x_msg_data => x_msg_data,
6107: p_tplv_tbl => x_tplv_tbl);
6108:
6109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6112: RAISE OKL_API.G_EXCEPTION_ERROR;
6113: END IF;
6106: x_msg_data => x_msg_data,
6107: p_tplv_tbl => x_tplv_tbl);
6108:
6109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6112: RAISE OKL_API.G_EXCEPTION_ERROR;
6113: END IF;
6114:
6107: p_tplv_tbl => x_tplv_tbl);
6108:
6109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6112: RAISE OKL_API.G_EXCEPTION_ERROR;
6113: END IF;
6114:
6115:
6108:
6109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6112: RAISE OKL_API.G_EXCEPTION_ERROR;
6113: END IF;
6114:
6115:
6116: /*** End API body ******************************************************/
6120: (p_count => x_msg_count,
6121: p_data => x_msg_data);
6122:
6123: EXCEPTION
6124: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6125:
6126: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6127: x_return_status := OKL_API.G_RET_STS_ERROR;
6128: FND_MSG_PUB.Count_And_Get
6123: EXCEPTION
6124: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6125:
6126: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6127: x_return_status := OKL_API.G_RET_STS_ERROR;
6128: FND_MSG_PUB.Count_And_Get
6129: (p_count => x_msg_count,
6130: p_data => x_msg_data);
6131:
6129: (p_count => x_msg_count,
6130: p_data => x_msg_data);
6131:
6132:
6133: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6134: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6135: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6136: FND_MSG_PUB.Count_And_Get
6137: (p_count => x_msg_count,
6131:
6132:
6133: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6134: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6135: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6136: FND_MSG_PUB.Count_And_Get
6137: (p_count => x_msg_count,
6138: p_data => x_msg_data);
6139:
6138: p_data => x_msg_data);
6139:
6140: WHEN OTHERS THEN
6141: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6142: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6143: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6144: p_msg_name => G_UNEXPECTED_ERROR,
6145: p_token1 => G_SQLCODE_TOKEN,
6146: p_token1_value => SQLCODE,
6139:
6140: WHEN OTHERS THEN
6141: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6142: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6143: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6144: p_msg_name => G_UNEXPECTED_ERROR,
6145: p_token1 => G_SQLCODE_TOKEN,
6146: p_token1_value => SQLCODE,
6147: p_token2 => G_SQLERRM_TOKEN,
6171: IS
6172: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_FUNDING_LINES';
6173:
6174: l_api_version CONSTANT NUMBER := 1.0;
6175: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6176: l_khr_id OKL_TRX_AP_INVOICES_B.KHR_ID%TYPE;
6177: l_vendor_site_id OKL_TRX_AP_INVOICES_B.IPVS_ID%TYPE;
6178: l_vendor_id OKL_TRX_AP_INVOICES_B.VENDOR_ID%TYPE;
6179:
6220:
6221: BEGIN
6222: SAVEPOINT CREATE_FUNDING_LINES_PVT;
6223:
6224: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6225:
6226: OPEN c_get_assets(p_vendor_site_id, p_khr_id);
6227: FETCH c_get_assets BULK COLLECT INTO l_assets_tbl;
6228: CLOSE c_get_assets;
6256: ,x_tplv_tbl);
6257: END IF;
6258:
6259:
6260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6263: RAISE OKL_API.G_EXCEPTION_ERROR;
6264: END IF;
6257: END IF;
6258:
6259:
6260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6263: RAISE OKL_API.G_EXCEPTION_ERROR;
6264: END IF;
6265:
6258:
6259:
6260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6263: RAISE OKL_API.G_EXCEPTION_ERROR;
6264: END IF;
6265:
6266: -- Get message count and if count is 1, get message info
6259:
6260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6263: RAISE OKL_API.G_EXCEPTION_ERROR;
6264: END IF;
6265:
6266: -- Get message count and if count is 1, get message info
6267: FND_MSG_PUB.Count_And_Get
6268: (p_count => x_msg_count,
6269: p_data => x_msg_data);
6270:
6271: EXCEPTION
6272: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6273:
6274: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6275: x_return_status := OKL_API.G_RET_STS_ERROR;
6276: FND_MSG_PUB.Count_And_Get
6271: EXCEPTION
6272: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6273:
6274: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6275: x_return_status := OKL_API.G_RET_STS_ERROR;
6276: FND_MSG_PUB.Count_And_Get
6277: (p_count => x_msg_count,
6278: p_data => x_msg_data);
6279:
6277: (p_count => x_msg_count,
6278: p_data => x_msg_data);
6279:
6280:
6281: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6282: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6283: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6284: FND_MSG_PUB.Count_And_Get
6285: (p_count => x_msg_count,
6279:
6280:
6281: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6282: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6283: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6284: FND_MSG_PUB.Count_And_Get
6285: (p_count => x_msg_count,
6286: p_data => x_msg_data);
6287:
6286: p_data => x_msg_data);
6287:
6288: WHEN OTHERS THEN
6289: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6290: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6291: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6292: p_msg_name => G_UNEXPECTED_ERROR,
6293: p_token1 => G_SQLCODE_TOKEN,
6294: p_token1_value => SQLCODE,
6287:
6288: WHEN OTHERS THEN
6289: ROLLBACK TO CREATE_FUNDING_LINES_PVT;
6290: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6291: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6292: p_msg_name => G_UNEXPECTED_ERROR,
6293: p_token1 => G_SQLCODE_TOKEN,
6294: p_token1_value => SQLCODE,
6295: p_token2 => G_SQLERRM_TOKEN,
6317: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_FUNDING_LINES';
6318: l_api_version CONSTANT NUMBER := 1.0;
6319: l_tplv_tbl tplv_tbl_type := p_tplv_tbl;
6320: i NUMBER;
6321: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6322: l_sty_id number;
6323:
6324: --- vpanwar added 28/02/2007 start
6325: l_khr_id OKL_TRX_AP_INVOICES_B.KHR_ID%TYPE;
6357: p_api_version,
6358: l_api_name,
6359: G_PKG_NAME ))
6360: THEN
6361: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6362: END IF;
6363:
6364: -- Initialize message list if requested
6365: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6366: FND_MSG_PUB.initialize;
6367: END IF;
6368:
6369: -- Initialize API status to success
6370: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6371:
6372: /*** Begin API body ****************************************************/
6373:
6374: -- check kle_id and sty_id if applicable
6396: l_tplv_tbl(i).KHR_ID := l_khr_id;
6397: --- vpanwar added 28/02/2007 start
6398:
6399: -- cklee: 09/16/2004
6400: IF (l_tplv_tbl(i).sty_id IS NULL or l_tplv_tbl(i).sty_id = OKL_API.G_MISS_NUM) THEN
6401:
6402: open c_sty_id(l_tplv_tbl(i).id);
6403: fetch c_sty_id into l_sty_id;
6404: IF c_sty_id%found THEN
6407: close c_sty_id;
6408: END IF;
6409:
6410: l_return_status := validate_line_attributes(l_tplv_tbl(i), 'U');
6411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6414: RAISE OKL_API.G_EXCEPTION_ERROR;
6415: END IF;
6408: END IF;
6409:
6410: l_return_status := validate_line_attributes(l_tplv_tbl(i), 'U');
6411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6414: RAISE OKL_API.G_EXCEPTION_ERROR;
6415: END IF;
6416:
6409:
6410: l_return_status := validate_line_attributes(l_tplv_tbl(i), 'U');
6411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6414: RAISE OKL_API.G_EXCEPTION_ERROR;
6415: END IF;
6416:
6417: -- smadhava - Bug#5200033 - Added - Start
6410: l_return_status := validate_line_attributes(l_tplv_tbl(i), 'U');
6411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6414: RAISE OKL_API.G_EXCEPTION_ERROR;
6415: END IF;
6416:
6417: -- smadhava - Bug#5200033 - Added - Start
6418: -- Round the amount to the System Options setup
6435: x_msg_data => x_msg_data,
6436: p_tplv_tbl => l_tplv_tbl,
6437: x_tplv_tbl => x_tplv_tbl);
6438:
6439: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6440: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6441: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6442: RAISE OKL_API.G_EXCEPTION_ERROR;
6443: END IF;
6436: p_tplv_tbl => l_tplv_tbl,
6437: x_tplv_tbl => x_tplv_tbl);
6438:
6439: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6440: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6441: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6442: RAISE OKL_API.G_EXCEPTION_ERROR;
6443: END IF;
6444:
6437: x_tplv_tbl => x_tplv_tbl);
6438:
6439: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6440: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6441: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6442: RAISE OKL_API.G_EXCEPTION_ERROR;
6443: END IF;
6444:
6445: -- sync funding header amount
6438:
6439: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6440: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6441: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6442: RAISE OKL_API.G_EXCEPTION_ERROR;
6443: END IF;
6444:
6445: -- sync funding header amount
6446: SYNC_HEADER_AMOUNT(
6450: x_msg_count => x_msg_count,
6451: x_msg_data => x_msg_data,
6452: p_tplv_tbl => l_tplv_tbl);
6453:
6454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6451: x_msg_data => x_msg_data,
6452: p_tplv_tbl => l_tplv_tbl);
6453:
6454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6459:
6452: p_tplv_tbl => l_tplv_tbl);
6453:
6454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6459:
6460:
6453:
6454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6459:
6460:
6461: /*** End API body ******************************************************/
6465: (p_count => x_msg_count,
6466: p_data => x_msg_data);
6467:
6468: EXCEPTION
6469: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6470: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6471: x_return_status := OKL_API.G_RET_STS_ERROR;
6472: FND_MSG_PUB.Count_And_Get
6473: (p_count => x_msg_count,
6467:
6468: EXCEPTION
6469: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6470: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6471: x_return_status := OKL_API.G_RET_STS_ERROR;
6472: FND_MSG_PUB.Count_And_Get
6473: (p_count => x_msg_count,
6474: p_data => x_msg_data);
6475:
6472: FND_MSG_PUB.Count_And_Get
6473: (p_count => x_msg_count,
6474: p_data => x_msg_data);
6475:
6476: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6477: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6478: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6479: FND_MSG_PUB.Count_And_Get
6480: (p_count => x_msg_count,
6474: p_data => x_msg_data);
6475:
6476: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6477: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6478: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6479: FND_MSG_PUB.Count_And_Get
6480: (p_count => x_msg_count,
6481: p_data => x_msg_data);
6482:
6482:
6483:
6484: WHEN OTHERS THEN
6485: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6486: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6487: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6488: p_msg_name => G_UNEXPECTED_ERROR,
6489: p_token1 => G_SQLCODE_TOKEN,
6490: p_token1_value => SQLCODE,
6483:
6484: WHEN OTHERS THEN
6485: ROLLBACK TO UPDATE_FUNDING_LINES_PVT;
6486: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6487: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6488: p_msg_name => G_UNEXPECTED_ERROR,
6489: p_token1 => G_SQLCODE_TOKEN,
6490: p_token1_value => SQLCODE,
6491: p_token2 => G_SQLERRM_TOKEN,
6510: l_api_version CONSTANT NUMBER := 1.0;
6511: l_tplv_tbl tplv_tbl_type;
6512: x_tplv_tbl tplv_tbl_type;
6513: i NUMBER;
6514: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6515: --l_khr_id NUMBER;
6516: l_org_id NUMBER;
6517: l_kle_id NUMBER;
6518: l_asset_cost NUMBER;
6592: p_api_version,
6593: l_api_name,
6594: G_PKG_NAME ))
6595: THEN
6596: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6597: END IF;
6598:
6599: -- Initialize message list if requested
6600: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
6601: FND_MSG_PUB.initialize;
6602: END IF;
6603:
6604: -- Initialize API status to success
6605: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6606:
6607:
6608: /*** Begin API body ****************************************************/
6609:
6653:
6654: -- fixed bug#3338910
6655: l_return_status := populate_sty_id(l_tplv_tbl(i));
6656:
6657: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6658: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6659: x_return_status := l_return_status;
6660: END IF;
6661: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6654: -- fixed bug#3338910
6655: l_return_status := populate_sty_id(l_tplv_tbl(i));
6656:
6657: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6658: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6659: x_return_status := l_return_status;
6660: END IF;
6661: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6662: END IF;
6657: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6658: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6659: x_return_status := l_return_status;
6660: END IF;
6661: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6662: END IF;
6663:
6664:
6665: i := i + 1;
6681: p_tplv_tbl => l_tplv_tbl,
6682: x_tplv_tbl => x_tplv_tbl);
6683:
6684:
6685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6688: RAISE OKL_API.G_EXCEPTION_ERROR;
6689: END IF;
6682: x_tplv_tbl => x_tplv_tbl);
6683:
6684:
6685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6688: RAISE OKL_API.G_EXCEPTION_ERROR;
6689: END IF;
6690:
6683:
6684:
6685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6688: RAISE OKL_API.G_EXCEPTION_ERROR;
6689: END IF;
6690:
6691: -- sync funding header amount
6684:
6685: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6686: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6687: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6688: RAISE OKL_API.G_EXCEPTION_ERROR;
6689: END IF;
6690:
6691: -- sync funding header amount
6692: OKL_FUNDING_PVT.SYNC_HEADER_AMOUNT(
6696: x_msg_count => x_msg_count,
6697: x_msg_data => x_msg_data,
6698: p_tplv_tbl => x_tplv_tbl);
6699:
6700: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6701: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6702: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6703: RAISE OKL_API.G_EXCEPTION_ERROR;
6704: END IF;
6697: x_msg_data => x_msg_data,
6698: p_tplv_tbl => x_tplv_tbl);
6699:
6700: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6701: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6702: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6703: RAISE OKL_API.G_EXCEPTION_ERROR;
6704: END IF;
6705:
6698: p_tplv_tbl => x_tplv_tbl);
6699:
6700: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6701: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6702: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6703: RAISE OKL_API.G_EXCEPTION_ERROR;
6704: END IF;
6705:
6706: END IF;
6699:
6700: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6701: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6702: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6703: RAISE OKL_API.G_EXCEPTION_ERROR;
6704: END IF;
6705:
6706: END IF;
6707:
6712: (p_count => x_msg_count,
6713: p_data => x_msg_data);
6714:
6715: EXCEPTION
6716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6717: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6718: x_return_status := OKL_API.G_RET_STS_ERROR;
6719: FND_MSG_PUB.Count_And_Get
6720: (p_count => x_msg_count,
6714:
6715: EXCEPTION
6716: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6717: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6718: x_return_status := OKL_API.G_RET_STS_ERROR;
6719: FND_MSG_PUB.Count_And_Get
6720: (p_count => x_msg_count,
6721: p_data => x_msg_data);
6722:
6719: FND_MSG_PUB.Count_And_Get
6720: (p_count => x_msg_count,
6721: p_data => x_msg_data);
6722:
6723: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6724: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6725: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6726:
6727: FND_MSG_PUB.Count_And_Get
6721: p_data => x_msg_data);
6722:
6723: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6724: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6725: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
6726:
6727: FND_MSG_PUB.Count_And_Get
6728: (p_count => x_msg_count,
6729: p_data => x_msg_data);
6729: p_data => x_msg_data);
6730:
6731: WHEN OTHERS THEN
6732: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6733: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6734: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6735: p_msg_name => G_UNEXPECTED_ERROR,
6736: p_token1 => G_SQLCODE_TOKEN,
6737: p_token1_value => SQLCODE,
6730:
6731: WHEN OTHERS THEN
6732: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
6733: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
6734: OKL_API.Set_Message(p_app_name => G_APP_NAME,
6735: p_msg_name => G_UNEXPECTED_ERROR,
6736: p_token1 => G_SQLCODE_TOKEN,
6737: p_token1_value => SQLCODE,
6738: p_token2 => G_SQLERRM_TOKEN,
6762:
6763: funding_line_id number;
6764:
6765:
6766: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6767: l_currency_code okc_k_headers_b.CURRENCY_CODE%TYPE;
6768: l_org_id okc_k_headers_b.AUTHORING_ORG_ID%TYPE;
6769: l_contract_number okc_k_headers_b.CONTRACT_NUMBER%TYPE;
6770:
6838:
6839: l_api_name,
6840: G_PKG_NAME ))
6841: THEN
6842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6843:
6844: END IF;
6845:
6846: -- Initialize message list if requested
6848: FND_MSG_PUB.initialize;
6849: END IF;
6850:
6851: -- Initialize API status to success
6852: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6853:
6854:
6855: /*** Begin API body ****************************************************/
6856: -- get org_id
6917: p_tapv_rec => l_tapv_rec,
6918: x_tapv_rec => x_tapv_rec);
6919:
6920:
6921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6924: RAISE OKL_API.G_EXCEPTION_ERROR;
6925: END IF;
6918: x_tapv_rec => x_tapv_rec);
6919:
6920:
6921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6924: RAISE OKL_API.G_EXCEPTION_ERROR;
6925: END IF;
6926:
6919:
6920:
6921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6924: RAISE OKL_API.G_EXCEPTION_ERROR;
6925: END IF;
6926:
6927: OPEN cu (x_tapv_rec.id);
6920:
6921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6924: RAISE OKL_API.G_EXCEPTION_ERROR;
6925: END IF;
6926:
6927: OPEN cu (x_tapv_rec.id);
6928: FETCH cu INTO l_PAY_GROUP_LOOKUP_CODE,
6945: x_msg_data => x_msg_data,
6946: p_tapv_rec => l_tapv_rec,
6947: x_tapv_rec => x_tapv_rec);
6948:
6949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6951:
6952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6953: RAISE OKL_API.G_EXCEPTION_ERROR;
6946: p_tapv_rec => l_tapv_rec,
6947: x_tapv_rec => x_tapv_rec);
6948:
6949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6951:
6952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6953: RAISE OKL_API.G_EXCEPTION_ERROR;
6954: END IF;
6948:
6949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6951:
6952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6953: RAISE OKL_API.G_EXCEPTION_ERROR;
6954: END IF;
6955:
6956: -- WF enable, add accounting entry 06/24/03 cklee
6949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6951:
6952: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6953: RAISE OKL_API.G_EXCEPTION_ERROR;
6954: END IF;
6955:
6956: -- WF enable, add accounting entry 06/24/03 cklee
6957:
6976: p_fund_id => l_tapv_rec.id);--,--:| 21-May-2007 cklee OKLR12B Accounting CR |
6977: -- p_fund_line_id => funding_line_id);--:| 21-May-2007 cklee OKLR12B Accounting CR |
6978:
6979:
6980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6982: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
6983: RAISE OKL_API.G_EXCEPTION_ERROR;
6984: END IF;
6977: -- p_fund_line_id => funding_line_id);--:| 21-May-2007 cklee OKLR12B Accounting CR |
6978:
6979:
6980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6982: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
6983: RAISE OKL_API.G_EXCEPTION_ERROR;
6984: END IF;
6985:
6978:
6979:
6980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6982: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
6983: RAISE OKL_API.G_EXCEPTION_ERROR;
6984: END IF;
6985:
6986: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
6979:
6980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6981: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6982: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
6983: RAISE OKL_API.G_EXCEPTION_ERROR;
6984: END IF;
6985:
6986: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
6987: -- END LOOP;
7001: (p_count => x_msg_count,
7002: p_data => x_msg_data);
7003:
7004: EXCEPTION
7005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7006: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7007: x_return_status := OKL_API.G_RET_STS_ERROR;
7008: FND_MSG_PUB.Count_And_Get
7009: (p_count => x_msg_count,
7003:
7004: EXCEPTION
7005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7006: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7007: x_return_status := OKL_API.G_RET_STS_ERROR;
7008: FND_MSG_PUB.Count_And_Get
7009: (p_count => x_msg_count,
7010: p_data => x_msg_data);
7011:
7008: FND_MSG_PUB.Count_And_Get
7009: (p_count => x_msg_count,
7010: p_data => x_msg_data);
7011:
7012: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7013: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7014: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7015: FND_MSG_PUB.Count_And_Get
7016: (p_count => x_msg_count,
7010: p_data => x_msg_data);
7011:
7012: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7013: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7014: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
7015: FND_MSG_PUB.Count_And_Get
7016: (p_count => x_msg_count,
7017: p_data => x_msg_data);
7018:
7017: p_data => x_msg_data);
7018:
7019: WHEN OTHERS THEN
7020: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7021: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7022:
7023: OKL_API.Set_Message(p_app_name => G_APP_NAME,
7024: p_msg_name => G_UNEXPECTED_ERROR,
7025: p_token1 => G_SQLCODE_TOKEN,
7019: WHEN OTHERS THEN
7020: ROLLBACK TO CREATE_FUNDING_ASSETS_PVT;
7021: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7022:
7023: OKL_API.Set_Message(p_app_name => G_APP_NAME,
7024: p_msg_name => G_UNEXPECTED_ERROR,
7025: p_token1 => G_SQLCODE_TOKEN,
7026: p_token1_value => SQLCODE,
7027: p_token2 => G_SQLERRM_TOKEN,
7066: l_amount NUMBER := 0;
7067: l_amount_buffer NUMBER := 0;
7068: l_vendor_id NUMBER := 0;
7069: -- start: okl.h: cklee
7070: x_return_status VARCHAR2(3) := okl_api.g_ret_sts_success;
7071: l_api_version NUMBER := 1.0;
7072: x_msg_count NUMBER;
7073: x_msg_data VARCHAR2(4000);
7074: l_init_msg_list VARCHAR2(10) := okl_api.g_false;
7070: x_return_status VARCHAR2(3) := okl_api.g_ret_sts_success;
7071: l_api_version NUMBER := 1.0;
7072: x_msg_count NUMBER;
7073: x_msg_data VARCHAR2(4000);
7074: l_init_msg_list VARCHAR2(10) := okl_api.g_false;
7075: x_value NUMBER;
7076:
7077: -- start: okl.h: cklee
7078: CURSOR cv1(
7302:
7303: --end:| 08-Feb-08 cklee Fixed bug: 6783566 |
7304:
7305: BEGIN
7306: IF (p_khr_id IS NULL) OR (p_khr_id = okl_api.g_miss_num) THEN
7307: RETURN 0; -- error
7308: 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
7309:
7310: OPEN c_no_line_and_vendor(p_khr_id);
7304:
7305: BEGIN
7306: IF (p_khr_id IS NULL) OR (p_khr_id = okl_api.g_miss_num) THEN
7307: RETURN 0; -- error
7308: 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
7309:
7310: OPEN c_no_line_and_vendor(p_khr_id);
7311: FETCH c_no_line_and_vendor INTO l_amount;
7312: CLOSE c_no_line_and_vendor;
7317: FOR l_kle_id IN c_kle_id(p_khr_id) LOOP
7318: BEGIN
7319: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
7320:
7321: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7322: l_amount_buffer := 0;
7323: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7324: l_amount_buffer := 0;
7325: END IF;
7319: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
7320:
7321: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7322: l_amount_buffer := 0;
7323: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7324: l_amount_buffer := 0;
7325: END IF;
7326: EXCEPTION
7327: WHEN OTHERS THEN
7333: BEGIN
7334: IF ((l_kle_id.downpymnt_recvr IS NULL) OR (l_kle_id.downpymnt_recvr = 'VENDOR')) THEN
7335: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
7336:
7337: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7338: l_amount_buffer := 0;
7339: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7340: l_amount_buffer := 0;
7341: END IF;
7335: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => l_kle_id.kle_id);
7336:
7337: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7338: l_amount_buffer := 0;
7339: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7340: l_amount_buffer := 0;
7341: END IF;
7342: ELSIF(l_kle_id.downpymnt_recvr = 'LESSOR') THEN
7343: l_amount_buffer := 0;
7350:
7351: l_amount := l_amount - l_amount_buffer;
7352: END LOOP;
7353:
7354: ELSIF (p_vendor_site_id IS NULL OR p_vendor_site_id = okl_api.g_miss_num) THEN
7355:
7356: OPEN cv_no_vendor(p_khr_id, p_kle_id);
7357: FETCH cv_no_vendor INTO l_amount;
7358: CLOSE cv_no_vendor;
7363: --------------------------------------------------
7364: BEGIN
7365: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7366:
7367: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7368: l_amount_buffer := 0;
7369: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7370: l_amount_buffer := 0;
7371: END IF;
7365: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7366:
7367: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7368: l_amount_buffer := 0;
7369: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7370: l_amount_buffer := 0;
7371: END IF;
7372: EXCEPTION
7373: WHEN OTHERS THEN
7388: IF ((l_downpymnt_recvr IS NULL) OR (l_downpymnt_recvr = 'VENDOR')) THEN
7389: -- bug 5384359 -- end
7390: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7391:
7392: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7393: l_amount_buffer := 0;
7394: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7395: l_amount_buffer := 0;
7396: END IF;
7390: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7391:
7392: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7393: l_amount_buffer := 0;
7394: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7395: l_amount_buffer := 0;
7396: END IF;
7397: --bug 5473370 --start
7398: ELSIF(l_downpymnt_recvr = 'LESSOR') THEN
7465: -- bug 5402377 -- end
7466: l_amount_buffer := okl_seeded_functions_pvt.line_capital_reduction(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7467:
7468: --END:| 27-Feb-2006 cklee -- Fixed bug#5003962 |
7469: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7470: l_amount_buffer := 0;
7471: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7472: l_amount_buffer := 0;
7473: END IF;
7467:
7468: --END:| 27-Feb-2006 cklee -- Fixed bug#5003962 |
7469: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7470: l_amount_buffer := 0;
7471: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7472: l_amount_buffer := 0;
7473: END IF;
7474: --bug 5500032 --start
7475: ELSIF(l_downpymnt_recvr = 'LESSOR') THEN
7505: --skgautam Bug#5260198
7506: l_amount_buffer := okl_seeded_functions_pvt.line_tradein(p_chr_id => p_khr_id, p_line_id => p_kle_id);
7507:
7508: --END:| 27-Feb-2006 cklee -- Fixed bug#5003962 |
7509: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7510: l_amount_buffer := 0;
7511: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7512: l_amount_buffer := 0;
7513: END IF;
7507:
7508: --END:| 27-Feb-2006 cklee -- Fixed bug#5003962 |
7509: IF (x_return_status = okl_api.g_ret_sts_unexp_error) THEN
7510: l_amount_buffer := 0;
7511: ELSIF(x_return_status = okl_api.g_ret_sts_error) THEN
7512: l_amount_buffer := 0;
7513: END IF;
7514: EXCEPTION
7515: WHEN OTHERS THEN
7570: AND th.funding_type_code = p_funding_type_code
7571: -- fixed bug 3007875
7572: AND th.TRX_STATUS_CODE NOT IN ('CANCELED', 'ERROR', 'REJECTED');
7573: BEGIN
7574: IF (p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM) OR
7575: (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM)
7576: THEN
7577: RETURN OKL_API.G_MISS_NUM; -- error
7578: ELSIF (p_ref_type_code IS NULL OR p_ref_type_code = OKL_API.G_MISS_CHAR) THEN
7571: -- fixed bug 3007875
7572: AND th.TRX_STATUS_CODE NOT IN ('CANCELED', 'ERROR', 'REJECTED');
7573: BEGIN
7574: IF (p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM) OR
7575: (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM)
7576: THEN
7577: RETURN OKL_API.G_MISS_NUM; -- error
7578: ELSIF (p_ref_type_code IS NULL OR p_ref_type_code = OKL_API.G_MISS_CHAR) THEN
7579: OPEN c (p_khr_id, p_kle_id);
7573: BEGIN
7574: IF (p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM) OR
7575: (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM)
7576: THEN
7577: RETURN OKL_API.G_MISS_NUM; -- error
7578: ELSIF (p_ref_type_code IS NULL OR p_ref_type_code = OKL_API.G_MISS_CHAR) THEN
7579: OPEN c (p_khr_id, p_kle_id);
7580: FETCH c INTO l_amount;
7581: CLOSE c;
7574: IF (p_khr_id IS NULL OR p_khr_id = OKL_API.G_MISS_NUM) OR
7575: (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM)
7576: THEN
7577: RETURN OKL_API.G_MISS_NUM; -- error
7578: ELSIF (p_ref_type_code IS NULL OR p_ref_type_code = OKL_API.G_MISS_CHAR) THEN
7579: OPEN c (p_khr_id, p_kle_id);
7580: FETCH c INTO l_amount;
7581: CLOSE c;
7582: ELSE
7650: ,p_fund_number IN VARCHAR2
7651: ,p_org_id IN NUMBER
7652: ) RETURN VARCHAR2
7653: IS
7654: l_result VARCHAR2(1) := OKL_API.G_TRUE;
7655: l_dummy VARCHAR2(1) := '?';
7656:
7657: -- sjalasut, modified the cursor below to have khr_id referred from
7658: -- okl_txl_ap_inv_lns_all_b instead of okl_trx_ap_invoices_b. changes made
7673: AND chr.AUTHORING_ORG_ID = p_org_id
7674: AND VS.vendor_id = p_vendor_id;
7675:
7676: BEGIN
7677: IF (p_vendor_id IS NULL OR p_vendor_id = OKL_API.G_MISS_NUM) OR
7678: (p_fund_number IS NULL OR p_fund_number = OKL_API.G_MISS_CHAR)
7679: THEN
7680: RETURN OKL_API.G_MISS_CHAR;
7681: END IF;
7674: AND VS.vendor_id = p_vendor_id;
7675:
7676: BEGIN
7677: IF (p_vendor_id IS NULL OR p_vendor_id = OKL_API.G_MISS_NUM) OR
7678: (p_fund_number IS NULL OR p_fund_number = OKL_API.G_MISS_CHAR)
7679: THEN
7680: RETURN OKL_API.G_MISS_CHAR;
7681: END IF;
7682:
7676: BEGIN
7677: IF (p_vendor_id IS NULL OR p_vendor_id = OKL_API.G_MISS_NUM) OR
7678: (p_fund_number IS NULL OR p_fund_number = OKL_API.G_MISS_CHAR)
7679: THEN
7680: RETURN OKL_API.G_MISS_CHAR;
7681: END IF;
7682:
7683: -- OPEN c(p_vendor_id, p_fund_number);
7684: OPEN c(p_fund_number, p_org_id, p_vendor_id);
7685:
7686: FETCH c INTO l_dummy;
7687: CLOSE c;
7688: IF (l_dummy = 'X') THEN
7689: l_result := OKL_API.G_FALSE;
7690: END IF;
7691: RETURN l_result;
7692: END is_funding_unique;
7693: ----------------------------------------------------------------------------
7699: ,p_mode IN VARCHAR2
7700: ,p_org_id IN NUMBER
7701: ) RETURN VARCHAR2
7702: IS
7703: l_result VARCHAR2(1) := OKL_API.G_TRUE;
7704: l_dummy VARCHAR2(1) := '?';
7705: l_count NUMBER(1) := 0;
7706:
7707: CURSOR c (p_fund_id NUMBER, p_kle_id NUMBER)
7725: ;
7726:
7727: BEGIN
7728:
7729: IF (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM) OR
7730: (p_fund_id IS NULL OR p_fund_id = OKL_API.G_MISS_NUM)
7731: THEN
7732: RETURN OKL_API.G_MISS_NUM;
7733: END IF;
7726:
7727: BEGIN
7728:
7729: IF (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM) OR
7730: (p_fund_id IS NULL OR p_fund_id = OKL_API.G_MISS_NUM)
7731: THEN
7732: RETURN OKL_API.G_MISS_NUM;
7733: END IF;
7734:
7728:
7729: IF (p_kle_id IS NULL OR p_kle_id = OKL_API.G_MISS_NUM) OR
7730: (p_fund_id IS NULL OR p_fund_id = OKL_API.G_MISS_NUM)
7731: THEN
7732: RETURN OKL_API.G_MISS_NUM;
7733: END IF;
7734:
7735: IF (p_mode = 'C') THEN
7736:
7746:
7747: END IF;
7748:
7749: IF (l_dummy = 'X') THEN
7750: l_result := OKL_API.G_FALSE;
7751: END IF;
7752:
7753:
7754: RETURN l_result;
7761: FUNCTION is_kle_id_unique(
7762: p_tplv_tbl IN tplv_tbl_type
7763: ) RETURN VARCHAR2
7764: IS
7765: l_result VARCHAR2(1) := OKL_API.G_TRUE;
7766: l_tplv_tbl tplv_tbl_type := p_tplv_tbl;
7767: i NUMBER;
7768: j NUMBER;
7769: l_count NUMBER;
7784:
7785: IF (p_tplv_tbl(i).kle_id = l_tplv_tbl(j).kle_id) THEN
7786: l_count := l_count+1;
7787: IF (l_count > 1) THEN
7788: l_result := OKL_API.G_FALSE;
7789: EXIT;
7790:
7791: END IF;
7792: END IF;
7865: ;
7866:
7867: BEGIN
7868:
7869: IF (p_vendor_site_id IS NULL OR p_vendor_site_id = OKL_API.G_MISS_NUM) THEN
7870:
7871: OPEN c (p_contract_id);
7872: FETCH c INTO l_amount;
7873: CLOSE c;
7879:
7880: RETURN l_amount;
7881: EXCEPTION
7882: WHEN OTHERS THEN
7883: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7884:
7885: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
7886: p_msg_name => 'OKL_UNEXPECTED_ERROR',
7887: p_token1 => 'OKL_SQLCODE',
7881: EXCEPTION
7882: WHEN OTHERS THEN
7883: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7884:
7885: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
7886: p_msg_name => 'OKL_UNEXPECTED_ERROR',
7887: p_token1 => 'OKL_SQLCODE',
7888: p_token1_value => SQLCODE,
7889: p_token2 => 'OKL_SQLERRM',
7943:
7944: RETURN x_amount;
7945: EXCEPTION
7946: WHEN OTHERS THEN
7947: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7948: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
7949: p_msg_name => 'OKL_UNEXPECTED_ERROR',
7950: p_token1 => 'OKL_SQLCODE',
7951: p_token1_value => SQLCODE,
7944: RETURN x_amount;
7945: EXCEPTION
7946: WHEN OTHERS THEN
7947: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7948: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
7949: p_msg_name => 'OKL_UNEXPECTED_ERROR',
7950: p_token1 => 'OKL_SQLCODE',
7951: p_token1_value => SQLCODE,
7952: p_token2 => 'OKL_SQLERRM',
7993:
7994: RETURN l_amount;
7995: EXCEPTION
7996: WHEN OTHERS THEN
7997: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7998: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
7999: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8000: p_token1 => 'OKL_SQLCODE',
8001: p_token1_value => SQLCODE,
7994: RETURN l_amount;
7995: EXCEPTION
7996: WHEN OTHERS THEN
7997: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
7998: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
7999: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8000: p_token1 => 'OKL_SQLCODE',
8001: p_token1_value => SQLCODE,
8002: p_token2 => 'OKL_SQLERRM',
8043:
8044: RETURN l_amount;
8045: EXCEPTION
8046: WHEN OTHERS THEN
8047: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8048:
8049: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8050: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8051: p_token1 => 'OKL_SQLCODE',
8045: EXCEPTION
8046: WHEN OTHERS THEN
8047: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8048:
8049: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8050: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8051: p_token1 => 'OKL_SQLCODE',
8052: p_token1_value => SQLCODE,
8053: p_token2 => 'OKL_SQLERRM',
8103:
8104:
8105: BEGIN
8106:
8107: IF (p_contract_line_id IS NULL OR p_contract_line_id = OKL_API.G_MISS_NUM) THEN
8108:
8109: OPEN c (p_contract_id);
8110: FETCH c INTO l_amount;
8111: CLOSE c;
8120:
8121: RETURN l_amount;
8122: EXCEPTION
8123: WHEN OTHERS THEN
8124: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8125: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8126: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8127: p_token1 => 'OKL_SQLCODE',
8128: p_token1_value => SQLCODE,
8121: RETURN l_amount;
8122: EXCEPTION
8123: WHEN OTHERS THEN
8124: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8125: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8126: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8127: p_token1 => 'OKL_SQLCODE',
8128: p_token1_value => SQLCODE,
8129: p_token2 => 'OKL_SQLERRM',
8141: ) RETURN NUMBER
8142: IS
8143: -- l_amount NUMBER := 0;
8144: l_api_version NUMBER := 1.0;
8145: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
8146: x_return_status VARCHAR2(1);
8147: x_msg_count NUMBER;
8148: x_msg_data VARCHAR2(2000);
8149: x_subsidy_amount NUMBER := 0;
8178:
8179: );
8180:
8181:
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8179: );
8180:
8181:
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8187:
8180:
8181:
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8187:
8188: RETURN x_subsidy_amount;
8181:
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8187:
8188: RETURN x_subsidy_amount;
8189:
8189:
8190: EXCEPTION
8191: WHEN OTHERS THEN
8192:
8193: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8194: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8195: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8196: p_token1 => 'OKL_SQLCODE',
8197: p_token1_value => SQLCODE,
8190: EXCEPTION
8191: WHEN OTHERS THEN
8192:
8193: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8194: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8195: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8196: p_token1 => 'OKL_SQLCODE',
8197: p_token1_value => SQLCODE,
8198: p_token2 => 'OKL_SQLERRM',
8210: IS
8211: l_amount NUMBER := 0;
8212: i NUMBER;
8213: l_api_version NUMBER := 1.0;
8214: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
8215: x_return_status VARCHAR2(1);
8216: x_msg_count NUMBER;
8217: x_msg_data VARCHAR2(2000);
8218: x_partial_subsidy_amount NUMBER := 0;
8231: p_req_fund_amount => p_req_fund_amount,
8232: x_asbv_tbl => x_asbv_tbl
8233: );
8234:
8235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_ERROR;
8239: END IF;
8232: x_asbv_tbl => x_asbv_tbl
8233: );
8234:
8235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_ERROR;
8239: END IF;
8240:
8233: );
8234:
8235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_ERROR;
8239: END IF;
8240:
8241: IF (x_asbv_tbl.COUNT > 0) THEN
8234:
8235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8238: RAISE OKL_API.G_EXCEPTION_ERROR;
8239: END IF;
8240:
8241: IF (x_asbv_tbl.COUNT > 0) THEN
8242: i := x_asbv_tbl.FIRST;
8252: RETURN l_amount;
8253:
8254: EXCEPTION
8255: WHEN OTHERS THEN
8256: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8257:
8258: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8259: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8260: p_token1 => 'OKL_SQLCODE',
8254: EXCEPTION
8255: WHEN OTHERS THEN
8256: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8257:
8258: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8259: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8260: p_token1 => 'OKL_SQLCODE',
8261: p_token1_value => SQLCODE,
8262: p_token2 => 'OKL_SQLERRM',
8307:
8308: RETURN l_amount;
8309: EXCEPTION
8310: WHEN OTHERS THEN
8311: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8312: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8313: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8314: p_token1 => 'OKL_SQLCODE',
8315: p_token1_value => SQLCODE,
8308: RETURN l_amount;
8309: EXCEPTION
8310: WHEN OTHERS THEN
8311: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8312: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8313: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8314: p_token1 => 'OKL_SQLCODE',
8315: p_token1_value => SQLCODE,
8316: p_token2 => 'OKL_SQLERRM',
8357: )
8358: IS
8359: l_api_name CONSTANT VARCHAR2(30) := 'contract_fee_canbe_funded';
8360: l_api_version CONSTANT NUMBER := 1.0;
8361: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8362:
8363: BEGIN
8364: -- Set API savepoint
8365:
8370: p_api_version,
8371: l_api_name,
8372: G_PKG_NAME ))
8373: THEN
8374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8375: END IF;
8376:
8377: -- Initialize message list if requested
8378: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
8379: FND_MSG_PUB.initialize;
8380: END IF;
8381:
8382: -- Initialize API status to success
8383: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8384:
8385:
8386: /*** Begin API body ****************************************************/
8387: x_value := get_chr_fee_canbe_funded_amt(
8396: (p_count => x_msg_count,
8397: p_data => x_msg_data);
8398:
8399: EXCEPTION
8400: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8401: ROLLBACK TO contract_fee_canbe_funded;
8402: x_return_status := OKL_API.G_RET_STS_ERROR;
8403: FND_MSG_PUB.Count_And_Get
8404: (p_count => x_msg_count,
8398:
8399: EXCEPTION
8400: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8401: ROLLBACK TO contract_fee_canbe_funded;
8402: x_return_status := OKL_API.G_RET_STS_ERROR;
8403: FND_MSG_PUB.Count_And_Get
8404: (p_count => x_msg_count,
8405: p_data => x_msg_data);
8406:
8403: FND_MSG_PUB.Count_And_Get
8404: (p_count => x_msg_count,
8405: p_data => x_msg_data);
8406:
8407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8408: ROLLBACK TO contract_fee_canbe_funded;
8409: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8410: FND_MSG_PUB.Count_And_Get
8411: (p_count => x_msg_count,
8405: p_data => x_msg_data);
8406:
8407: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8408: ROLLBACK TO contract_fee_canbe_funded;
8409: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8410: FND_MSG_PUB.Count_And_Get
8411: (p_count => x_msg_count,
8412: p_data => x_msg_data);
8413:
8412: p_data => x_msg_data);
8413:
8414: WHEN OTHERS THEN
8415: ROLLBACK TO contract_fee_canbe_funded;
8416: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8417:
8418: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8419: p_msg_name => G_UNEXPECTED_ERROR,
8420: p_token1 => G_SQLCODE_TOKEN,
8414: WHEN OTHERS THEN
8415: ROLLBACK TO contract_fee_canbe_funded;
8416: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8417:
8418: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8419: p_msg_name => G_UNEXPECTED_ERROR,
8420: p_token1 => G_SQLCODE_TOKEN,
8421: p_token1_value => SQLCODE,
8422: p_token2 => G_SQLERRM_TOKEN,
8544: ;
8545:
8546:
8547: BEGIN
8548: IF ((p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM) or
8549: (p_fee_line_id IS NULL OR p_fee_line_id = OKL_API.G_MISS_NUM) or
8550: (p_effective_date IS NULL OR p_effective_date = OKL_API.G_MISS_DATE))
8551: THEN
8552: RETURN 0; -- error
8545:
8546:
8547: BEGIN
8548: IF ((p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM) or
8549: (p_fee_line_id IS NULL OR p_fee_line_id = OKL_API.G_MISS_NUM) or
8550: (p_effective_date IS NULL OR p_effective_date = OKL_API.G_MISS_DATE))
8551: THEN
8552: RETURN 0; -- error
8553: ELSE
8546:
8547: BEGIN
8548: IF ((p_contract_id IS NULL OR p_contract_id = OKL_API.G_MISS_NUM) or
8549: (p_fee_line_id IS NULL OR p_fee_line_id = OKL_API.G_MISS_NUM) or
8550: (p_effective_date IS NULL OR p_effective_date = OKL_API.G_MISS_DATE))
8551: THEN
8552: RETURN 0; -- error
8553: ELSE
8554:
8617: RETURN l_amount;
8618:
8619: EXCEPTION
8620: WHEN OTHERS THEN
8621: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8622: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8623: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8624: p_token1 => 'OKL_SQLCODE',
8625: p_token1_value => SQLCODE,
8618:
8619: EXCEPTION
8620: WHEN OTHERS THEN
8621: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8622: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8623: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8624: p_token1 => 'OKL_SQLCODE',
8625: p_token1_value => SQLCODE,
8626: p_token2 => 'OKL_SQLERRM',
8665: RETURN l_flag;
8666:
8667: EXCEPTION
8668: WHEN OTHERS THEN
8669: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8670: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8671: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8672: p_token1 => 'OKL_SQLCODE',
8673: p_token1_value => SQLCODE,
8666:
8667: EXCEPTION
8668: WHEN OTHERS THEN
8669: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8670: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
8671: p_msg_name => 'OKL_UNEXPECTED_ERROR',
8672: p_token1 => 'OKL_SQLCODE',
8673: p_token1_value => SQLCODE,
8674: p_token2 => 'OKL_SQLERRM',
8689: -- End of comments
8690: ----------------------------------------------------------------------------------
8691: PROCEDURE is_contract_fully_funded(
8692: p_api_version IN NUMBER
8693: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
8694: ,x_return_status OUT NOCOPY VARCHAR2
8695: ,x_msg_count OUT NOCOPY NUMBER
8696: ,x_msg_data OUT NOCOPY VARCHAR2
8697: ,x_value OUT NOCOPY BOOLEAN
8699: )
8700: IS
8701: l_api_name CONSTANT VARCHAR2(30) := 'is_contract_fully_funded';
8702: l_api_version CONSTANT NUMBER := 1.0;
8703: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8704:
8705: BEGIN
8706: -- Set API savepoint
8707:
8712: p_api_version,
8713: l_api_name,
8714: G_PKG_NAME ))
8715: THEN
8716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8717: END IF;
8718:
8719: -- Initialize message list if requested
8720: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
8721: FND_MSG_PUB.initialize;
8722: END IF;
8723:
8724: -- Initialize API status to success
8725: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8726:
8727:
8728: /*** Begin API body ****************************************************/
8729: x_value := is_contract_fully_funded(
8736: (p_count => x_msg_count,
8737: p_data => x_msg_data);
8738:
8739: EXCEPTION
8740: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8741: ROLLBACK TO is_contract_fully_funded;
8742: x_return_status := OKL_API.G_RET_STS_ERROR;
8743: FND_MSG_PUB.Count_And_Get
8744: (p_count => x_msg_count,
8738:
8739: EXCEPTION
8740: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8741: ROLLBACK TO is_contract_fully_funded;
8742: x_return_status := OKL_API.G_RET_STS_ERROR;
8743: FND_MSG_PUB.Count_And_Get
8744: (p_count => x_msg_count,
8745: p_data => x_msg_data);
8746:
8743: FND_MSG_PUB.Count_And_Get
8744: (p_count => x_msg_count,
8745: p_data => x_msg_data);
8746:
8747: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8748: ROLLBACK TO is_contract_fully_funded;
8749: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8750: FND_MSG_PUB.Count_And_Get
8751: (p_count => x_msg_count,
8745: p_data => x_msg_data);
8746:
8747: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8748: ROLLBACK TO is_contract_fully_funded;
8749: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
8750: FND_MSG_PUB.Count_And_Get
8751: (p_count => x_msg_count,
8752: p_data => x_msg_data);
8753:
8752: p_data => x_msg_data);
8753:
8754: WHEN OTHERS THEN
8755: ROLLBACK TO is_contract_fully_funded;
8756: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8757:
8758: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8759: p_msg_name => G_UNEXPECTED_ERROR,
8760: p_token1 => G_SQLCODE_TOKEN,
8754: WHEN OTHERS THEN
8755: ROLLBACK TO is_contract_fully_funded;
8756: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8757:
8758: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8759: p_msg_name => G_UNEXPECTED_ERROR,
8760: p_token1 => G_SQLCODE_TOKEN,
8761: p_token1_value => SQLCODE,
8762: p_token2 => G_SQLERRM_TOKEN,
8789: -- End of comments
8790: ----------------------------------------------------------------------------------
8791: PROCEDURE get_checklist_source(
8792: p_api_version IN NUMBER
8793: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
8794: ,x_return_status OUT NOCOPY VARCHAR2
8795: ,x_msg_count OUT NOCOPY NUMBER
8796: ,x_msg_data OUT NOCOPY VARCHAR2
8797: ,p_chr_id IN okc_k_headers_b.id%type
8882: x_credit_id := l_credit_id;
8883: x_return_status := 'S';
8884: EXCEPTION
8885: WHEN G_EXCEPTION_HALT_VALIDATION THEN
8886: x_return_status := OKL_API.G_RET_STS_ERROR;
8887: WHEN OTHERS THEN
8888: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8889: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8890: p_msg_name => G_UNEXPECTED_ERROR,
8884: EXCEPTION
8885: WHEN G_EXCEPTION_HALT_VALIDATION THEN
8886: x_return_status := OKL_API.G_RET_STS_ERROR;
8887: WHEN OTHERS THEN
8888: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8889: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8890: p_msg_name => G_UNEXPECTED_ERROR,
8891: p_token1 => G_SQLCODE_TOKEN,
8892: p_token1_value => SQLCODE,
8885: WHEN G_EXCEPTION_HALT_VALIDATION THEN
8886: x_return_status := OKL_API.G_RET_STS_ERROR;
8887: WHEN OTHERS THEN
8888: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
8889: OKL_API.Set_Message(p_app_name => G_APP_NAME,
8890: p_msg_name => G_UNEXPECTED_ERROR,
8891: p_token1 => G_SQLCODE_TOKEN,
8892: p_token1_value => SQLCODE,
8893: p_token2 => G_SQLERRM_TOKEN,
8917: ) is
8918: l_api_name CONSTANT VARCHAR2(30) := 'update_checklist_function';
8919: l_api_version CONSTANT NUMBER := 1.0;
8920: i NUMBER;
8921: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8922: l_dummy number;
8923:
8924: l_row_not_found boolean := false;
8925:
8953: p_api_version,
8954: l_api_name,
8955: G_PKG_NAME ))
8956: THEN
8957: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8958: END IF;
8959:
8960: -- Initialize message list if requested
8961: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
8962: FND_MSG_PUB.initialize;
8963: END IF;
8964:
8965: -- Initialize API status to success
8966: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8967:
8968:
8969: /*** Begin API body ****************************************************/
8970: ------------------------------------------------------------------------
8995: lp_msg_data := r_this_row.FUNCTION_SOURCE || ' returns: ' || lp_return_status;
8996: END IF;
8997:
8998: EXCEPTION
8999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9000: lp_fund_rst := 'ERROR';
9001: FND_MSG_PUB.Count_And_Get
9002: (p_count => x_msg_count,
9003: p_data => x_msg_data);
9002: (p_count => x_msg_count,
9003: p_data => x_msg_data);
9004: lp_msg_data := substr('Application error: ' || x_msg_data, 240);
9005:
9006: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9007: lp_fund_rst := 'ERROR';
9008: FND_MSG_PUB.Count_And_Get
9009: (p_count => x_msg_count,
9010: p_data => x_msg_data);
9048: (p_count => x_msg_count,
9049: p_data => x_msg_data);
9050:
9051: EXCEPTION
9052: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9053: ROLLBACK TO update_checklist_function;
9054: x_return_status := OKL_API.G_RET_STS_ERROR;
9055: FND_MSG_PUB.Count_And_Get
9056: (p_count => x_msg_count,
9050:
9051: EXCEPTION
9052: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9053: ROLLBACK TO update_checklist_function;
9054: x_return_status := OKL_API.G_RET_STS_ERROR;
9055: FND_MSG_PUB.Count_And_Get
9056: (p_count => x_msg_count,
9057: p_data => x_msg_data);
9058:
9055: FND_MSG_PUB.Count_And_Get
9056: (p_count => x_msg_count,
9057: p_data => x_msg_data);
9058:
9059: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9060: ROLLBACK TO update_checklist_function;
9061: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9062: FND_MSG_PUB.Count_And_Get
9063: (p_count => x_msg_count,
9057: p_data => x_msg_data);
9058:
9059: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9060: ROLLBACK TO update_checklist_function;
9061: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9062: FND_MSG_PUB.Count_And_Get
9063: (p_count => x_msg_count,
9064: p_data => x_msg_data);
9065:
9065:
9066: WHEN OTHERS THEN
9067:
9068: ROLLBACK TO update_checklist_function;
9069: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
9070: OKL_API.Set_Message(p_app_name => G_APP_NAME,
9071: p_msg_name => G_UNEXPECTED_ERROR,
9072: p_token1 => G_SQLCODE_TOKEN,
9073: p_token1_value => SQLCODE,
9066: WHEN OTHERS THEN
9067:
9068: ROLLBACK TO update_checklist_function;
9069: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
9070: OKL_API.Set_Message(p_app_name => G_APP_NAME,
9071: p_msg_name => G_UNEXPECTED_ERROR,
9072: p_token1 => G_SQLCODE_TOKEN,
9073: p_token1_value => SQLCODE,
9074: p_token2 => G_SQLERRM_TOKEN,
9097: --
9098:
9099: PROCEDURE get_fund_summary(
9100: p_api_version IN NUMBER,
9101: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9102: x_return_status OUT NOCOPY VARCHAR2,
9103: x_msg_count OUT NOCOPY NUMBER,
9104: x_msg_data OUT NOCOPY VARCHAR2,
9105: p_contract_id IN NUMBER,
9121:
9122:
9123: EXCEPTION
9124: WHEN OTHERS THEN
9125: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9127: END get_fund_summary;
9128:
9129: /*
9122:
9123: EXCEPTION
9124: WHEN OTHERS THEN
9125: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
9126: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9127: END get_fund_summary;
9128:
9129: /*
9130: -- zrehman, 10/13/2006