1: PACKAGE BODY okl_funding_wf AS
2: /* $Header: OKLRFUNB.pls 120.18.12010000.2 2008/09/10 17:17:09 rkuttiya ship $ */
3:
4: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
2: /* $Header: OKLRFUNB.pls 120.18.12010000.2 2008/09/10 17:17:09 rkuttiya ship $ */
3:
4: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: -- G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
3:
4: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: -- G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
4: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: -- G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
5: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
6: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
8: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
9: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
10: -- G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
13: G_API_TYPE CONSTANT VARCHAR2(200) := '_PVT';
103: SELECT USER_NAME, DESCRIPTION
104: FROM FND_USER
105: WHERE user_id = c_user_id;
106: BEGIN
107: x_return_status := OKL_API.G_RET_STS_SUCCESS;
108: OPEN wf_users_csr(p_user_id);
109: FETCH wf_users_csr INTO x_name, x_description;
110: CLOSE wf_users_csr;
111: IF x_name IS NULL THEN
118: END IF;
119: END IF;
120: EXCEPTION
121: WHEN OTHERS THEN
122: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
123: END l_get_agent;
124:
125: --------------------------------------------------------------------------------------------------
126: --------------------------------------------------------------------------------------------------
162:
163:
164: BEGIN
165:
166: x_return_status := OKL_API.G_RET_STS_SUCCESS;
167: -- Call start_activity to create savepoint, check compatibility
168: -- and initialize message list
169: x_return_status := OKL_API.START_ACTIVITY (
170: l_api_name,
165:
166: x_return_status := OKL_API.G_RET_STS_SUCCESS;
167: -- Call start_activity to create savepoint, check compatibility
168: -- and initialize message list
169: x_return_status := OKL_API.START_ACTIVITY (
170: l_api_name,
171: p_init_msg_list,
172: '_PVT',
173: x_return_status);
171: p_init_msg_list,
172: '_PVT',
173: x_return_status);
174: -- Check if activity started successfully
175: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_ERROR;
179: END IF;
172: '_PVT',
173: x_return_status);
174: -- Check if activity started successfully
175: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_ERROR;
179: END IF;
180:
173: x_return_status);
174: -- Check if activity started successfully
175: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_ERROR;
179: END IF;
180:
181: -- Get the internal invoice Details
174: -- Check if activity started successfully
175: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
178: RAISE OKL_API.G_EXCEPTION_ERROR;
179: END IF;
180:
181: -- Get the internal invoice Details
182: OPEN c_tap(p_funding_id);
203: x_msg_data => x_msg_data,
204: p_tapv_rec => l_tapv_rec,
205: x_tapv_rec => x_tapv_rec);
206:
207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
209: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
210: RAISE OKL_API.G_EXCEPTION_ERROR;
211: END IF;
204: p_tapv_rec => l_tapv_rec,
205: x_tapv_rec => x_tapv_rec);
206:
207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
209: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
210: RAISE OKL_API.G_EXCEPTION_ERROR;
211: END IF;
212:
205: x_tapv_rec => x_tapv_rec);
206:
207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
209: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
210: RAISE OKL_API.G_EXCEPTION_ERROR;
211: END IF;
212:
213: -- creates internal accounting entry if trx_status_code = 'APPROVED'
206:
207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
208: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
209: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
210: RAISE OKL_API.G_EXCEPTION_ERROR;
211: END IF;
212:
213: -- creates internal accounting entry if trx_status_code = 'APPROVED'
214: IF (l_tapv_rec.trx_status_code = 'APPROVED') THEN
234: p_fund_id => l_tapv_rec.id);--,--start:| 21-May-2007 cklee OKLR12B Accounting CR |
235: -- p_fund_line_id => funding_line_id);
236: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
237:
238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
240: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
241: RAISE OKL_API.G_EXCEPTION_ERROR;
242: END IF;
235: -- p_fund_line_id => funding_line_id);
236: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
237:
238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
240: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
241: RAISE OKL_API.G_EXCEPTION_ERROR;
242: END IF;
243:
236: --end:| 21-May-2007 cklee OKLR12B Accounting CR |
237:
238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
240: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
241: RAISE OKL_API.G_EXCEPTION_ERROR;
242: END IF;
243:
244: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
237:
238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
240: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
241: RAISE OKL_API.G_EXCEPTION_ERROR;
242: END IF;
243:
244: --start:| 21-May-2007 cklee OKLR12B Accounting CR |
245: -- END LOOP;
260: x_msg_data => x_msg_data,
261: p_status => l_tapv_rec.trx_status_code,
262: p_fund_id => l_tapv_rec.id);
263:
264: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_ERROR;
268: END IF;
261: p_status => l_tapv_rec.trx_status_code,
262: p_fund_id => l_tapv_rec.id);
263:
264: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_ERROR;
268: END IF;
269: END IF;
262: p_fund_id => l_tapv_rec.id);
263:
264: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_ERROR;
268: END IF;
269: END IF;
270:
263:
264: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
266: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
267: RAISE OKL_API.G_EXCEPTION_ERROR;
268: END IF;
269: END IF;
270:
271: END IF;
269: END IF;
270:
271: END IF;
272:
273: OKL_API.END_ACTIVITY (x_msg_count,
274: x_msg_data );
275:
276:
277:
275:
276:
277:
278: EXCEPTION
279: WHEN OKL_API.G_EXCEPTION_ERROR THEN
280: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
281: l_api_name,
282: G_PKG_NAME,
283: 'OKL_API.G_RET_STS_ERROR',
276:
277:
278: EXCEPTION
279: WHEN OKL_API.G_EXCEPTION_ERROR THEN
280: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
281: l_api_name,
282: G_PKG_NAME,
283: 'OKL_API.G_RET_STS_ERROR',
284: x_msg_count,
279: WHEN OKL_API.G_EXCEPTION_ERROR THEN
280: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
281: l_api_name,
282: G_PKG_NAME,
283: 'OKL_API.G_RET_STS_ERROR',
284: x_msg_count,
285: x_msg_data,
286: '_PVT');
287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
283: 'OKL_API.G_RET_STS_ERROR',
284: x_msg_count,
285: x_msg_data,
286: '_PVT');
287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
288: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
289: l_api_name,
290: G_PKG_NAME,
291: 'OKL_API.G_RET_STS_UNEXP_ERROR',
284: x_msg_count,
285: x_msg_data,
286: '_PVT');
287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
288: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
289: l_api_name,
290: G_PKG_NAME,
291: 'OKL_API.G_RET_STS_UNEXP_ERROR',
292: x_msg_count,
287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
288: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
289: l_api_name,
290: G_PKG_NAME,
291: 'OKL_API.G_RET_STS_UNEXP_ERROR',
292: x_msg_count,
293: x_msg_data,
294: '_PVT');
295: WHEN OTHERS THEN
292: x_msg_count,
293: x_msg_data,
294: '_PVT');
295: WHEN OTHERS THEN
296: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
297: l_api_name,
298: G_PKG_NAME,
299: 'OTHERS',
300: x_msg_count,
390: SELECT id
391: FROM okl_trx_types_b
392: WHERE trx_type_class = G_TRX_TYPE_FUNDING_APPROVAL;
393:
394: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
395: l_api_version NUMBER := 1.0;
396: l_api_name CONSTANT VARCHAR2(30) := 'raise_approval_event';
397: l_msg_count NUMBER;
398: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
394: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
395: l_api_version NUMBER := 1.0;
396: l_api_name CONSTANT VARCHAR2(30) := 'raise_approval_event';
397: l_msg_count NUMBER;
398: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
399: l_msg_data VARCHAR2(2000);
400:
401: l_parameter_list wf_parameter_list_t;
402: l_key VARCHAR2(240);
417: l_trxH_out_rec Okl_Trx_Contracts_Pvt.tcnv_rec_type;
418: l_approval_option VARCHAR2(5);
419:
420: BEGIN
421: x_return_status := OKL_API.G_RET_STS_SUCCESS;
422: -- Call start_activity to create savepoint, check compatibility
423: -- and initialize message list
424: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
425: p_init_msg_list,
420: BEGIN
421: x_return_status := OKL_API.G_RET_STS_SUCCESS;
422: -- Call start_activity to create savepoint, check compatibility
423: -- and initialize message list
424: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
425: p_init_msg_list,
426: '_PVT',
427: x_return_status);
428: -- Check if activity started successfully
425: p_init_msg_list,
426: '_PVT',
427: x_return_status);
428: -- Check if activity started successfully
429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
432: RAISE OKL_API.G_EXCEPTION_ERROR;
433: END IF;
426: '_PVT',
427: x_return_status);
428: -- Check if activity started successfully
429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
432: RAISE OKL_API.G_EXCEPTION_ERROR;
433: END IF;
434:
427: x_return_status);
428: -- Check if activity started successfully
429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
432: RAISE OKL_API.G_EXCEPTION_ERROR;
433: END IF;
434:
435: -- cklee
428: -- Check if activity started successfully
429: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
430: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
431: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
432: RAISE OKL_API.G_EXCEPTION_ERROR;
433: END IF;
434:
435: -- cklee
436: -- Create Internal Transaction
442: x_return_status => x_return_status,
443: x_name => l_requester,
444: x_description => l_name);
445:
446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
448: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
449: RAISE OKL_API.G_EXCEPTION_ERROR;
450: END IF;
443: x_name => l_requester,
444: x_description => l_name);
445:
446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
448: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
449: RAISE OKL_API.G_EXCEPTION_ERROR;
450: END IF;
451:
444: x_description => l_name);
445:
446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
448: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
449: RAISE OKL_API.G_EXCEPTION_ERROR;
450: END IF;
451:
452: FOR l_wf_item_key_rec IN l_wf_item_key_csr
445:
446: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
447: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
448: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
449: RAISE OKL_API.G_EXCEPTION_ERROR;
450: END IF;
451:
452: FOR l_wf_item_key_rec IN l_wf_item_key_csr
453: LOOP
467: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(l_con_id) ;
468: IF l_legal_entity_id IS NOT NULL THEN
469: l_trxH_in_rec.legal_entity_id := l_legal_entity_id;
470: ELSE
471: Okl_Api.set_message(p_app_name => g_app_name,
472: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
473: p_token1 => 'CONTRACT_NUMBER',
474: p_token1_value => l_cntrct_number);
475: RAISE OKL_API.G_EXCEPTION_ERROR;
471: Okl_Api.set_message(p_app_name => g_app_name,
472: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
473: p_token1 => 'CONTRACT_NUMBER',
474: p_token1_value => l_cntrct_number);
475: RAISE OKL_API.G_EXCEPTION_ERROR;
476: END IF;
477:
478: l_trxH_in_rec.tcn_type := G_TRX_TCN_TYPE;
479: l_trxH_in_rec.tsu_code := G_TRX_TSU_CODE_SUBMITTED;
491: ,x_msg_data => l_msg_data
492: ,p_tcnv_rec => l_trxH_in_rec
493: ,x_tcnv_rec => l_trxH_out_rec);
494:
495: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
496: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
498: RAISE Okl_Api.G_EXCEPTION_ERROR;
499: END IF;
492: ,p_tcnv_rec => l_trxH_in_rec
493: ,x_tcnv_rec => l_trxH_out_rec);
494:
495: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
496: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
498: RAISE Okl_Api.G_EXCEPTION_ERROR;
499: END IF;
500: -- end, cklee
493: ,x_tcnv_rec => l_trxH_out_rec);
494:
495: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
496: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
498: RAISE Okl_Api.G_EXCEPTION_ERROR;
499: END IF;
500: -- end, cklee
501:
494:
495: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
496: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
497: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
498: RAISE Okl_Api.G_EXCEPTION_ERROR;
499: END IF;
500: -- end, cklee
501:
502:
504: OPEN c_fetch_funding_number(p_funding_id);
505: FETCH c_fetch_funding_number INTO l_invoice_number;
506:
507: IF c_fetch_funding_number%NOTFOUND THEN
508: OKL_API.set_message(p_app_name => G_APP_NAME,
509: p_msg_name => G_NO_MATCHING_RECORD,
510: p_token1 => G_COL_NAME_TOKEN,
511: p_token1_value => 'OKL_TRX_AP_INVOICES_B.VENDOR_INVOICE_NUMBER');
512: RAISE OKL_API.G_EXCEPTION_ERROR;
508: OKL_API.set_message(p_app_name => G_APP_NAME,
509: p_msg_name => G_NO_MATCHING_RECORD,
510: p_token1 => G_COL_NAME_TOKEN,
511: p_token1_value => 'OKL_TRX_AP_INVOICES_B.VENDOR_INVOICE_NUMBER');
512: RAISE OKL_API.G_EXCEPTION_ERROR;
513: END IF;
514: CLOSE c_fetch_funding_number;
515:
516: l_update_funding_status(p_api_version => p_api_version,
521: p_funding_status => 'PENDING_APPROVAL',
522: p_funding_id => p_funding_id);
523:
524:
525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
527: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
528: RAISE OKL_API.G_EXCEPTION_ERROR;
529: END IF;
522: p_funding_id => p_funding_id);
523:
524:
525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
527: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
528: RAISE OKL_API.G_EXCEPTION_ERROR;
529: END IF;
530:
523:
524:
525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
527: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
528: RAISE OKL_API.G_EXCEPTION_ERROR;
529: END IF;
530:
531: l_approval_option := fnd_profile.value('OKL_LEASE_FUNDING_APPROVAL_PROCESS');
524:
525: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
526: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
527: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
528: RAISE OKL_API.G_EXCEPTION_ERROR;
529: END IF;
530:
531: l_approval_option := fnd_profile.value('OKL_LEASE_FUNDING_APPROVAL_PROCESS');
532: IF l_approval_option = G_LEASE_FUNDING_APPROVAL_AME THEN
534: -- Get the Application ID
535: OPEN c_get_app_id_csr;
536: FETCH c_get_app_id_csr INTO l_application_id;
537: IF c_get_app_id_csr%NOTFOUND THEN
538: OKL_API.set_message(p_app_name => G_APP_NAME,
539: p_msg_name => G_NO_MATCHING_RECORD,
540: p_token1 => G_COL_NAME_TOKEN,
541: p_token1_value => 'Application id');
542: RAISE OKL_API.G_EXCEPTION_ERROR;
538: OKL_API.set_message(p_app_name => G_APP_NAME,
539: p_msg_name => G_NO_MATCHING_RECORD,
540: p_token1 => G_COL_NAME_TOKEN,
541: p_token1_value => 'Application id');
542: RAISE OKL_API.G_EXCEPTION_ERROR;
543: END IF;
544: CLOSE c_get_app_id_csr;
545:
546: -- Get the Transaction Type ID
547: OPEN c_get_trx_type_csr(G_TRANS_APP_NAME);
548: FETCH c_get_trx_type_csr INTO l_trans_type_id,
549: l_trans_appl_id;
550: IF c_get_trx_type_csr%NOTFOUND THEN
551: OKL_API.set_message(p_app_name => G_APP_NAME,
552: p_msg_name => G_NO_MATCHING_RECORD,
553: p_token1 => G_COL_NAME_TOKEN,
554: p_token1_value => 'AME Transcation TYPE id, Application id');
555: RAISE OKL_API.G_EXCEPTION_ERROR;
551: OKL_API.set_message(p_app_name => G_APP_NAME,
552: p_msg_name => G_NO_MATCHING_RECORD,
553: p_token1 => G_COL_NAME_TOKEN,
554: p_token1_value => 'AME Transcation TYPE id, Application id');
555: RAISE OKL_API.G_EXCEPTION_ERROR;
556: END IF;
557: CLOSE c_get_trx_type_csr;
558:
559:
570: wf_event.AddParameterToList(G_WF_ITM_REQUESTER_ID,l_requester_id,l_parameter_list);
571: --added by akrangan
572: wf_event.AddParameterToList('ORG_ID',mo_global.get_current_org_id ,l_parameter_list);
573: ELSE
574: OKL_API.set_message(p_app_name => G_APP_NAME,
575: p_msg_name => G_INVALID_APP);
576: RAISE OKL_API.G_EXCEPTION_ERROR;
577: END IF; -- l_application_id
578:
572: wf_event.AddParameterToList('ORG_ID',mo_global.get_current_org_id ,l_parameter_list);
573: ELSE
574: OKL_API.set_message(p_app_name => G_APP_NAME,
575: p_msg_name => G_INVALID_APP);
576: RAISE OKL_API.G_EXCEPTION_ERROR;
577: END IF; -- l_application_id
578:
579: ELSIF l_approval_option = G_LEASE_FUNDING_APPROVAL_WF THEN
580: l_event_name := G_EVENT_APPROVE_WF;
587: --added by akrangan
588: wf_event.AddParameterToList('ORG_ID',mo_global.get_current_org_id ,l_parameter_list);
589:
590: ELSE
591: RAISE OKL_API.G_EXCEPTION_ERROR;
592: END IF; -- l_approval_option
593:
594: -- Raise Event
595: wf_event.RAISE(p_event_name => l_event_name,
605: x_msg_data => x_msg_data,
606: p_funding_status => 'PENDING_APPROVAL',
607: p_funding_id => p_funding_id);
608:
609: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_ERROR;
613: END IF;
606: p_funding_status => 'PENDING_APPROVAL',
607: p_funding_id => p_funding_id);
608:
609: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_ERROR;
613: END IF;
614: */
607: p_funding_id => p_funding_id);
608:
609: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_ERROR;
613: END IF;
614: */
615: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
608:
609: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
610: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
611: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_ERROR;
613: END IF;
614: */
615: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
616: x_msg_data => x_msg_data);
611: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_ERROR;
613: END IF;
614: */
615: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
616: x_msg_data => x_msg_data);
617: EXCEPTION
618: WHEN OKL_API.G_EXCEPTION_ERROR THEN
619: x_return_status := OKL_API.G_RET_STS_ERROR;
614: */
615: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
616: x_msg_data => x_msg_data);
617: EXCEPTION
618: WHEN OKL_API.G_EXCEPTION_ERROR THEN
619: x_return_status := OKL_API.G_RET_STS_ERROR;
620: IF c_fetch_funding_number%ISOPEN THEN
621: CLOSE c_fetch_funding_number;
622: END IF;
615: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
616: x_msg_data => x_msg_data);
617: EXCEPTION
618: WHEN OKL_API.G_EXCEPTION_ERROR THEN
619: x_return_status := OKL_API.G_RET_STS_ERROR;
620: IF c_fetch_funding_number%ISOPEN THEN
621: CLOSE c_fetch_funding_number;
622: END IF;
623: IF c_get_app_id_csr%ISOPEN THEN
628: END IF;
629: IF l_wf_item_key_csr%ISOPEN THEN
630: CLOSE l_wf_item_key_csr;
631: END IF;
632: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
633: p_api_name => l_api_name,
634: p_pkg_name => G_PKG_NAME,
635: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
636: x_msg_count => x_msg_count,
631: END IF;
632: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
633: p_api_name => l_api_name,
634: p_pkg_name => G_PKG_NAME,
635: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
636: x_msg_count => x_msg_count,
637: x_msg_data => x_msg_data,
638: p_api_type => G_API_TYPE);
639: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
635: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
636: x_msg_count => x_msg_count,
637: x_msg_data => x_msg_data,
638: p_api_type => G_API_TYPE);
639: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
640: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
641: IF c_fetch_funding_number%ISOPEN THEN
642: CLOSE c_fetch_funding_number;
643: END IF;
636: x_msg_count => x_msg_count,
637: x_msg_data => x_msg_data,
638: p_api_type => G_API_TYPE);
639: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
640: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
641: IF c_fetch_funding_number%ISOPEN THEN
642: CLOSE c_fetch_funding_number;
643: END IF;
644: IF c_get_app_id_csr%ISOPEN THEN
649: END IF;
650: IF l_wf_item_key_csr%ISOPEN THEN
651: CLOSE l_wf_item_key_csr;
652: END IF;
653: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
654: p_api_name => l_api_name,
655: p_pkg_name => G_PKG_NAME,
656: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
657: x_msg_count => x_msg_count,
652: END IF;
653: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
654: p_api_name => l_api_name,
655: p_pkg_name => G_PKG_NAME,
656: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
657: x_msg_count => x_msg_count,
658: x_msg_data => x_msg_data,
659: p_api_type => G_API_TYPE);
660: WHEN OTHERS THEN
670: IF l_wf_item_key_csr%ISOPEN THEN
671: CLOSE l_wf_item_key_csr;
672: END IF;
673: -- store SQL error message on message stack
674: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
675: p_api_name => l_api_name,
676: p_pkg_name => G_PKG_NAME,
677: p_exc_name => 'OTHERS',
678: x_msg_count => x_msg_count,
688: l_msg_count NUMBER;
689: l_msg_data VARCHAR2(2000);
690: l_api_version NUMBER := 1;
691: l_init_msg_list VARCHAR2(3) := OKC_API.G_TRUE;
692: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
693:
694: l_creditline_id okc_k_headers_b.id%Type;
695: -- start: cklee 31-May-2005 okl.h Lease App IA Authoring
696: l_flag VARCHAR2(10);
1261:
1262: l_return_status VARCHAR2(1);
1263:
1264: BEGIN
1265: l_return_status := OKL_API.G_RET_STS_SUCCESS;
1266:
1267: -- "RUN"
1268: IF (funcmode = 'RUN') THEN
1269: --l_user_id := fnd_profile.value('OKL_LEASE_FUNDING_APPROVER');
1427: --rkuttiya added for 12.1.1 Multi GAAP Project
1428: AND representation_type = 'PRIMARY';
1429: --
1430:
1431: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1432: l_api_version NUMBER := 1.0;
1433: l_msg_count NUMBER;
1434: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
1435: l_msg_data VARCHAR2(2000);
1430:
1431: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1432: l_api_version NUMBER := 1.0;
1433: l_msg_count NUMBER;
1434: l_init_msg_list VARCHAR2(10) := OKL_API.G_FALSE;
1435: l_msg_data VARCHAR2(2000);
1436: l_api_name VARCHAR2(30) := 'update_approval_status';
1437:
1438: l_funding_id okl_trx_ap_invoices_b.id%TYPE;
1470: x_msg_data => l_msg_data,
1471: p_funding_status => 'APPROVED',
1472: p_funding_id => l_funding_id);
1473:
1474: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1477: RAISE OKL_API.G_EXCEPTION_ERROR;
1478: END IF;
1471: p_funding_status => 'APPROVED',
1472: p_funding_id => l_funding_id);
1473:
1474: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1477: RAISE OKL_API.G_EXCEPTION_ERROR;
1478: END IF;
1479:
1472: p_funding_id => l_funding_id);
1473:
1474: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1477: RAISE OKL_API.G_EXCEPTION_ERROR;
1478: END IF;
1479:
1480: ELSE
1473:
1474: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1477: RAISE OKL_API.G_EXCEPTION_ERROR;
1478: END IF;
1479:
1480: ELSE
1481:
1487: x_msg_data => l_msg_data,
1488: p_funding_status => 'REJECTED',
1489: p_funding_id => l_funding_id);
1490:
1491: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1494: RAISE OKL_API.G_EXCEPTION_ERROR;
1495: END IF;
1488: p_funding_status => 'REJECTED',
1489: p_funding_id => l_funding_id);
1490:
1491: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1494: RAISE OKL_API.G_EXCEPTION_ERROR;
1495: END IF;
1496: END IF;
1489: p_funding_id => l_funding_id);
1490:
1491: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1494: RAISE OKL_API.G_EXCEPTION_ERROR;
1495: END IF;
1496: END IF;
1497:
1490:
1491: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1492: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1493: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
1494: RAISE OKL_API.G_EXCEPTION_ERROR;
1495: END IF;
1496: END IF;
1497:
1498: -- trx's trx_number IS ame's trx_id
1515: ,x_msg_data => l_msg_data
1516: ,p_tcnv_rec => l_trxH_in_rec
1517: ,x_tcnv_rec => l_trxH_out_rec);
1518:
1519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_ERROR;
1523: END IF;
1516: ,p_tcnv_rec => l_trxH_in_rec
1517: ,x_tcnv_rec => l_trxH_out_rec);
1518:
1519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_ERROR;
1523: END IF;
1524:
1517: ,x_tcnv_rec => l_trxH_out_rec);
1518:
1519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_ERROR;
1523: END IF;
1524:
1525: resultout := 'COMPLETE:';
1518:
1519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1521: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1522: RAISE Okl_Api.G_EXCEPTION_ERROR;
1523: END IF;
1524:
1525: resultout := 'COMPLETE:';
1526: RETURN;
1540: resultout := 'COMPLETE:';
1541: RETURN;
1542: END IF;
1543: EXCEPTION
1544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1545: wf_core.context(G_PKG_NAME,
1546: l_api_name,
1547: itemtype,
1548: itemkey,
1548: itemkey,
1549: TO_CHAR(actid),
1550: funcmode);
1551: RAISE;
1552: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1553: wf_core.context(G_PKG_NAME,
1554: l_api_name,
1555: itemtype,
1556: itemkey,