4: -------------------------------------------------------------------------------------------------
5: -- GLOBAL MESSAGE CONSTANTS
6: -------------------------------------------------------------------------------------------------
7: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKL_NO_PARENT_RECORD';
8: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
9: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
10: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
11: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
12: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
5: -- GLOBAL MESSAGE CONSTANTS
6: -------------------------------------------------------------------------------------------------
7: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKL_NO_PARENT_RECORD';
8: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
9: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
10: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
11: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
12: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
13: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
6: -------------------------------------------------------------------------------------------------
7: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKL_NO_PARENT_RECORD';
8: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
9: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
10: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
11: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
12: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
13: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
14: G_UPPERCASE_REQUIRED CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UPPERCASE_REQ';
11: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
12: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
13: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
14: G_UPPERCASE_REQUIRED CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UPPERCASE_REQ';
15: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
16: ------------------------------------------------------------------------------------
17: -- GLOBAL EXCEPTION
18: ------------------------------------------------------------------------------------
19: G_EXCEPTION_HALT_VALIDATION EXCEPTION;
84: -- in the following signature x_trxH_rec is
85: -- introduced as part of Sales Tax Project to return transaction record
86: Procedure generate_journal_entries(
87: p_api_version IN NUMBER,
88: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
89: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
90: p_contract_id IN NUMBER,
91: p_transaction_type IN VARCHAR2,
92: p_transaction_date IN DATE,
85: -- introduced as part of Sales Tax Project to return transaction record
86: Procedure generate_journal_entries(
87: p_api_version IN NUMBER,
88: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
89: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
90: p_contract_id IN NUMBER,
91: p_transaction_type IN VARCHAR2,
92: p_transaction_date IN DATE,
93: p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
89: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
90: p_contract_id IN NUMBER,
91: p_transaction_type IN VARCHAR2,
92: p_transaction_date IN DATE,
93: p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
94: p_memo_yn IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
95: x_return_status OUT NOCOPY VARCHAR2,
96: x_msg_count OUT NOCOPY NUMBER,
97: x_msg_data OUT NOCOPY VARCHAR2,
90: p_contract_id IN NUMBER,
91: p_transaction_type IN VARCHAR2,
92: p_transaction_date IN DATE,
93: p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
94: p_memo_yn IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
95: x_return_status OUT NOCOPY VARCHAR2,
96: x_msg_count OUT NOCOPY NUMBER,
97: x_msg_data OUT NOCOPY VARCHAR2,
98: x_trxH_rec OUT NOCOPY tcnv_rec_type) IS
106:
107: -- Define variables
108: l_sysdate DATE;
109: l_sysdate_trunc DATE;
110: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
111: l_post_to_gl_yn VARCHAR2(1);
112:
113: i NUMBER;
114: l_amount NUMBER;
111: l_post_to_gl_yn VARCHAR2(1);
112:
113: i NUMBER;
114: l_amount NUMBER;
115: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
116: l_msg_count NUMBER;
117: l_msg_data VARCHAR2(2000);
118: l_currency_code okl_txl_cntrct_lns.currency_code%TYPE;
119: l_fnd_profile VARCHAR2(256);
311: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
312: END IF;
313: --Bug# 5964482 End
314:
315: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
316: l_sysdate := SYSDATE;
317: l_sysdate_trunc := trunc(SYSDATE);
318: i := 0;
319:
317: l_sysdate_trunc := trunc(SYSDATE);
318: i := 0;
319:
320:
321: x_return_status := OKL_API.START_ACTIVITY(
322: p_api_name => l_api_name,
323: p_pkg_name => g_pkg_name,
324: p_init_msg_list => p_init_msg_list,
325: l_api_version => l_api_version,
327: p_api_type => G_API_TYPE,
328: x_return_status => x_return_status);
329:
330: -- check if activity started successfully
331: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
332: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
334: raise OKL_API.G_EXCEPTION_ERROR;
335: End If;
328: x_return_status => x_return_status);
329:
330: -- check if activity started successfully
331: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
332: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
334: raise OKL_API.G_EXCEPTION_ERROR;
335: End If;
336:
329:
330: -- check if activity started successfully
331: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
332: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
334: raise OKL_API.G_EXCEPTION_ERROR;
335: End If;
336:
337: --Bug# 5964482 : Disable draft Accounting
330: -- check if activity started successfully
331: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
332: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
333: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
334: raise OKL_API.G_EXCEPTION_ERROR;
335: End If;
336:
337: --Bug# 5964482 : Disable draft Accounting
338: If (p_draft_yn = OKL_API.G_TRUE) Then
334: raise OKL_API.G_EXCEPTION_ERROR;
335: End If;
336:
337: --Bug# 5964482 : Disable draft Accounting
338: If (p_draft_yn = OKL_API.G_TRUE) Then
339: Null; -- do not do anything
340: ELSE --do normal accounting
341:
342: -- Get product_id
342: -- Get product_id
343: OPEN Product_csr(p_contract_id);
344: FETCH Product_csr INTO l_Product_rec;
345: IF Product_csr%NOTFOUND THEN
346: Okl_Api.SET_MESSAGE(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'Product');
347: CLOSE Product_csr;
348: RAISE Okl_Api.G_EXCEPTION_ERROR;
349: END IF;
350: CLOSE Product_csr;
344: FETCH Product_csr INTO l_Product_rec;
345: IF Product_csr%NOTFOUND THEN
346: Okl_Api.SET_MESSAGE(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'Product');
347: CLOSE Product_csr;
348: RAISE Okl_Api.G_EXCEPTION_ERROR;
349: END IF;
350: CLOSE Product_csr;
351:
352: If ( p_transaction_date IS NULL ) Then
381: End If;
382:
383: End If;
384:
385: IF ((p_draft_yn = OKL_API.G_TRUE) AND (l_Product_rec.contract_status <> 'BOOKED')) Then
386: /*--Bug# 5964482 Commenting the code as Draft Accounting is being disabled
387: okl_contract_status_pub.get_contract_status(l_api_version,
388: p_init_msg_list,
389: x_return_status,
396: p_chr_id);
397:
398:
399: If ( l_isJrnlGenAllowed = FALSE ) then
400: x_return_status := OKL_API.G_RET_STS_ERROR;
401: okl_api.set_message(
402: p_app_name => G_APP_NAME,
403: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENJRNL);
404: raise OKL_API.G_EXCEPTION_ERROR;
397:
398:
399: If ( l_isJrnlGenAllowed = FALSE ) then
400: x_return_status := OKL_API.G_RET_STS_ERROR;
401: okl_api.set_message(
402: p_app_name => G_APP_NAME,
403: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENJRNL);
404: raise OKL_API.G_EXCEPTION_ERROR;
405: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
400: x_return_status := OKL_API.G_RET_STS_ERROR;
401: okl_api.set_message(
402: p_app_name => G_APP_NAME,
403: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENJRNL);
404: raise OKL_API.G_EXCEPTION_ERROR;
405: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
406: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
407: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
408: raise OKL_API.G_EXCEPTION_ERROR;
401: okl_api.set_message(
402: p_app_name => G_APP_NAME,
403: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENJRNL);
404: raise OKL_API.G_EXCEPTION_ERROR;
405: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
406: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
407: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
408: raise OKL_API.G_EXCEPTION_ERROR;
409: End If;
402: p_app_name => G_APP_NAME,
403: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENJRNL);
404: raise OKL_API.G_EXCEPTION_ERROR;
405: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
406: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
407: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
408: raise OKL_API.G_EXCEPTION_ERROR;
409: End If;
410: -----Bug# 5964482 End of comments - Draft Accounting Disabled*/
403: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENJRNL);
404: raise OKL_API.G_EXCEPTION_ERROR;
405: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
406: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
407: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
408: raise OKL_API.G_EXCEPTION_ERROR;
409: End If;
410: -----Bug# 5964482 End of comments - Draft Accounting Disabled*/
411: Null;
404: raise OKL_API.G_EXCEPTION_ERROR;
405: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
406: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
407: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
408: raise OKL_API.G_EXCEPTION_ERROR;
409: End If;
410: -----Bug# 5964482 End of comments - Draft Accounting Disabled*/
411: Null;
412:
412:
413: End If;
414:
415: -- Validate passed parameters
416: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
417: OR ( p_contract_id IS NULL ) THEN
418: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
419: RAISE Okl_Api.G_EXCEPTION_ERROR;
420: END IF;
414:
415: -- Validate passed parameters
416: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
417: OR ( p_contract_id IS NULL ) THEN
418: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
419: RAISE Okl_Api.G_EXCEPTION_ERROR;
420: END IF;
421:
422: --Bug 5909373
415: -- Validate passed parameters
416: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
417: OR ( p_contract_id IS NULL ) THEN
418: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
419: RAISE Okl_Api.G_EXCEPTION_ERROR;
420: END IF;
421:
422: --Bug 5909373
423: /*
425: l_transaction_type := 'Release';
426: End If;*/
427: --Bug 5909373
428:
429: IF ( l_transaction_type = Okl_Api.G_MISS_CHAR )
430: OR ( l_transaction_type IS NULL ) THEN
431: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
432: RAISE Okl_Api.G_EXCEPTION_ERROR;
433: END IF;
427: --Bug 5909373
428:
429: IF ( l_transaction_type = Okl_Api.G_MISS_CHAR )
430: OR ( l_transaction_type IS NULL ) THEN
431: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
432: RAISE Okl_Api.G_EXCEPTION_ERROR;
433: END IF;
434:
435: -- set POST_TO_GL and MEMO_YN flag always to YES !!!!
428:
429: IF ( l_transaction_type = Okl_Api.G_MISS_CHAR )
430: OR ( l_transaction_type IS NULL ) THEN
431: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
432: RAISE Okl_Api.G_EXCEPTION_ERROR;
433: END IF;
434:
435: -- set POST_TO_GL and MEMO_YN flag always to YES !!!!
436: l_memo_yn := OKL_API.G_MISS_CHAR;
432: RAISE Okl_Api.G_EXCEPTION_ERROR;
433: END IF;
434:
435: -- set POST_TO_GL and MEMO_YN flag always to YES !!!!
436: l_memo_yn := OKL_API.G_MISS_CHAR;
437: IF (p_draft_yn = OKL_API.G_TRUE) THEN
438: --Bug# 5964482 : Disable Draft Accounting
439: --l_post_to_gl_yn := 'N';
440: --l_memo_yn := 'Y';
433: END IF;
434:
435: -- set POST_TO_GL and MEMO_YN flag always to YES !!!!
436: l_memo_yn := OKL_API.G_MISS_CHAR;
437: IF (p_draft_yn = OKL_API.G_TRUE) THEN
438: --Bug# 5964482 : Disable Draft Accounting
439: --l_post_to_gl_yn := 'N';
440: --l_memo_yn := 'Y';
441: Null;
449: -- Check Transaction_Type
450: OPEN Transaction_Type_csr(l_transaction_type);
451: FETCH Transaction_Type_csr INTO l_Trx_Type_rec;
452: IF Transaction_Type_csr%NOTFOUND THEN
453: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
454: CLOSE Transaction_Type_csr;
455: RAISE Okl_Api.G_EXCEPTION_ERROR;
456: END IF;
457: CLOSE Transaction_Type_csr;
451: FETCH Transaction_Type_csr INTO l_Trx_Type_rec;
452: IF Transaction_Type_csr%NOTFOUND THEN
453: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
454: CLOSE Transaction_Type_csr;
455: RAISE Okl_Api.G_EXCEPTION_ERROR;
456: END IF;
457: CLOSE Transaction_Type_csr;
458:
459: OPEN fnd_lookups_csr('OKL_TCN_TYPE', l_transaction_type);
462: CLOSE fnd_lookups_csr;
463: OPEN fnd_lookups_csr('OKL_TCN_TYPE', 'Miscellaneous');
464: FETCH fnd_lookups_csr INTO l_fnd_rec;
465: IF fnd_lookups_csr%NOTFOUND THEN
466: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
467: CLOSE fnd_lookups_csr;
468: RAISE Okl_Api.G_EXCEPTION_ERROR;
469: End If;
470: END IF;
464: FETCH fnd_lookups_csr INTO l_fnd_rec;
465: IF fnd_lookups_csr%NOTFOUND THEN
466: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
467: CLOSE fnd_lookups_csr;
468: RAISE Okl_Api.G_EXCEPTION_ERROR;
469: End If;
470: END IF;
471: CLOSE fnd_lookups_csr;
472:
472:
473: OPEN trx_csr(p_contract_id,l_fnd_rec.lookup_code);
474: FETCH trx_csr INTO l_trx_rec;
475: IF (l_fnd_rec.lookup_code = 'TRBK') THEN -- For Rebook, create a new trans always
476: l_has_trans := OKL_API.G_FALSE;
477: ELSIF (trx_csr%FOUND AND l_trx_rec.tsu_code = 'ENTERED') THEN -- Otherwise use existing transaction, if it is in Entered status
478: l_has_trans := OKL_API.G_TRUE;
479: ELSE
480: l_has_trans := OKL_API.G_FALSE; -- In all other cases, create a new trans
474: FETCH trx_csr INTO l_trx_rec;
475: IF (l_fnd_rec.lookup_code = 'TRBK') THEN -- For Rebook, create a new trans always
476: l_has_trans := OKL_API.G_FALSE;
477: ELSIF (trx_csr%FOUND AND l_trx_rec.tsu_code = 'ENTERED') THEN -- Otherwise use existing transaction, if it is in Entered status
478: l_has_trans := OKL_API.G_TRUE;
479: ELSE
480: l_has_trans := OKL_API.G_FALSE; -- In all other cases, create a new trans
481: END IF;
482: CLOSE trx_csr;
476: l_has_trans := OKL_API.G_FALSE;
477: ELSIF (trx_csr%FOUND AND l_trx_rec.tsu_code = 'ENTERED') THEN -- Otherwise use existing transaction, if it is in Entered status
478: l_has_trans := OKL_API.G_TRUE;
479: ELSE
480: l_has_trans := OKL_API.G_FALSE; -- In all other cases, create a new trans
481: END IF;
482: CLOSE trx_csr;
483:
484: l_trxH_in_rec.khr_id := p_contract_id;
495: -- get the contract number
496: OPEN contract_num_csr(p_contract_id);
497: FETCH contract_num_csr INTO l_cntrct_number;
498: CLOSE contract_num_csr;
499: Okl_Api.set_message(p_app_name => g_app_name,
500: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
501: p_token1 => 'CONTRACT_NUMBER',
502: p_token1_value => l_cntrct_number);
503: RAISE OKL_API.G_EXCEPTION_ERROR;
499: Okl_Api.set_message(p_app_name => g_app_name,
500: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
501: p_token1 => 'CONTRACT_NUMBER',
502: p_token1_value => l_cntrct_number);
503: RAISE OKL_API.G_EXCEPTION_ERROR;
504: END IF;
505: If ( p_draft_yn = OKL_API.G_TRUE ) Then
506: --Bug# 5964482 : Disable draft Accounting
507: Null;
501: p_token1 => 'CONTRACT_NUMBER',
502: p_token1_value => l_cntrct_number);
503: RAISE OKL_API.G_EXCEPTION_ERROR;
504: END IF;
505: If ( p_draft_yn = OKL_API.G_TRUE ) Then
506: --Bug# 5964482 : Disable draft Accounting
507: Null;
508: --l_trxH_in_rec.description := 'Draft Journals - ' || l_transaction_type;
509: Else
519: -- changes for accounting CR.
520: l_trxL_in_rec.khr_id := p_contract_id;
521: l_trxL_in_rec.line_number := 1;
522: l_trxL_in_rec.currency_code := l_currency_code;
523: If ( p_draft_yn = OKL_API.G_TRUE ) Then
524: -- Bug# 5964482 : Disable draft accounting
525: Null;
526: --l_trxL_in_rec.description := 'Draft Journals - ' || l_transaction_type;
527: Else
545: l_trxL_in_rec.tcl_type := l_fnd_rec1.lookup_code;
546: END IF;
547: CLOSE fnd_lookups_csr;
548:
549: If ( l_has_trans = OKL_API.G_FALSE ) Then
550:
551: If (UPPER(l_fnd_rec.lookup_code) = 'TRBK') THEN
552: l_trxH_in_rec.rbr_code := ''; -- lokup 'OKL_REBOOK_REASON'
553: l_trxH_in_rec.rpy_code := ''; -- lokup 'OKL_REBOOK_PROCESS_TYPE'
555:
556: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Submitted');
557: FETCH fnd_lookups_csr INTO l_fnd_rec;
558: IF fnd_lookups_csr%NOTFOUND THEN
559: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
560: CLOSE fnd_lookups_csr;
561: RAISE Okl_Api.G_EXCEPTION_ERROR;
562: END IF;
563: CLOSE fnd_lookups_csr;
557: FETCH fnd_lookups_csr INTO l_fnd_rec;
558: IF fnd_lookups_csr%NOTFOUND THEN
559: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
560: CLOSE fnd_lookups_csr;
561: RAISE Okl_Api.G_EXCEPTION_ERROR;
562: END IF;
563: CLOSE fnd_lookups_csr;
564:
565: l_trxH_in_rec.tsu_code := l_fnd_rec.lookup_code;
595: ,x_msg_data => l_msg_data
596: ,p_tcnv_rec => l_trxH_in_rec
597: ,x_tcnv_rec => l_trxH_out_rec);
598:
599: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
600: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
601: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
602: RAISE Okl_Api.G_EXCEPTION_ERROR;
603: END IF;
596: ,p_tcnv_rec => l_trxH_in_rec
597: ,x_tcnv_rec => l_trxH_out_rec);
598:
599: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
600: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
601: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
602: RAISE Okl_Api.G_EXCEPTION_ERROR;
603: END IF;
604:
597: ,x_tcnv_rec => l_trxH_out_rec);
598:
599: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
600: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
601: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
602: RAISE Okl_Api.G_EXCEPTION_ERROR;
603: END IF;
604:
605: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
598:
599: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
600: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
601: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
602: RAISE Okl_Api.G_EXCEPTION_ERROR;
603: END IF;
604:
605: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
606: (l_trxH_out_rec.id IS NULL) ) THEN
601: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
602: RAISE Okl_Api.G_EXCEPTION_ERROR;
603: END IF;
604:
605: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
606: (l_trxH_out_rec.id IS NULL) ) THEN
607: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
608: RAISE OKL_API.G_EXCEPTION_ERROR;
609: END IF;
603: END IF;
604:
605: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
606: (l_trxH_out_rec.id IS NULL) ) THEN
607: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
608: RAISE OKL_API.G_EXCEPTION_ERROR;
609: END IF;
610:
611: -- populate the output transaction record
604:
605: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
606: (l_trxH_out_rec.id IS NULL) ) THEN
607: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
608: RAISE OKL_API.G_EXCEPTION_ERROR;
609: END IF;
610:
611: -- populate the output transaction record
612: x_trxH_rec := l_trxH_out_rec;
627: --,x_msg_data => l_msg_data
628: --,p_tclv_rec => l_trxL_in_rec
629: --,x_tclv_rec => l_trxL_out_rec);
630:
631: --IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
632: -- RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
633: --ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
634: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
635: --END IF;
628: --,p_tclv_rec => l_trxL_in_rec
629: --,x_tclv_rec => l_trxL_out_rec);
630:
631: --IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
632: -- RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
633: --ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
634: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
635: --END IF;
636: --IF ((l_trxL_out_rec.id = OKL_API.G_MISS_NUM) OR
629: --,x_tclv_rec => l_trxL_out_rec);
630:
631: --IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
632: -- RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
633: --ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
634: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
635: --END IF;
636: --IF ((l_trxL_out_rec.id = OKL_API.G_MISS_NUM) OR
637: -- (l_trxL_out_rec.id IS NULL) ) THEN
630:
631: --IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
632: -- RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
633: --ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
634: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
635: --END IF;
636: --IF ((l_trxL_out_rec.id = OKL_API.G_MISS_NUM) OR
637: -- (l_trxL_out_rec.id IS NULL) ) THEN
638: -- OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
632: -- RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
633: --ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
634: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
635: --END IF;
636: --IF ((l_trxL_out_rec.id = OKL_API.G_MISS_NUM) OR
637: -- (l_trxL_out_rec.id IS NULL) ) THEN
638: -- OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
639: -- RAISE OKL_API.G_EXCEPTION_ERROR;
640: --END IF;
634: -- RAISE Okl_Api.G_EXCEPTION_ERROR;
635: --END IF;
636: --IF ((l_trxL_out_rec.id = OKL_API.G_MISS_NUM) OR
637: -- (l_trxL_out_rec.id IS NULL) ) THEN
638: -- OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
639: -- RAISE OKL_API.G_EXCEPTION_ERROR;
640: --END IF;
641:
642: --l_dist_info_rec.SOURCE_ID := l_trxL_out_rec.id;
635: --END IF;
636: --IF ((l_trxL_out_rec.id = OKL_API.G_MISS_NUM) OR
637: -- (l_trxL_out_rec.id IS NULL) ) THEN
638: -- OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
639: -- RAISE OKL_API.G_EXCEPTION_ERROR;
640: --END IF;
641:
642: --l_dist_info_rec.SOURCE_ID := l_trxL_out_rec.id;
643: --l_dist_info_rec.ACCOUNTING_DATE := l_trxH_out_rec.date_transaction_occurred;
658: ,x_msg_data => l_msg_data
659: ,p_tcnv_rec => l_upd_trxH_rec
660: ,x_tcnv_rec => lx_upd_trxH_rec);
661:
662: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
663: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
664: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
665: RAISE Okl_Api.G_EXCEPTION_ERROR;
666: END IF;
659: ,p_tcnv_rec => l_upd_trxH_rec
660: ,x_tcnv_rec => lx_upd_trxH_rec);
661:
662: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
663: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
664: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
665: RAISE Okl_Api.G_EXCEPTION_ERROR;
666: END IF;
667:
660: ,x_tcnv_rec => lx_upd_trxH_rec);
661:
662: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
663: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
664: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
665: RAISE Okl_Api.G_EXCEPTION_ERROR;
666: END IF;
667:
668: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
661:
662: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
663: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
664: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
665: RAISE Okl_Api.G_EXCEPTION_ERROR;
666: END IF;
667:
668: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
669: (lx_upd_trxH_rec.id IS NULL) ) THEN
664: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
665: RAISE Okl_Api.G_EXCEPTION_ERROR;
666: END IF;
667:
668: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
669: (lx_upd_trxH_rec.id IS NULL) ) THEN
670: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
671: RAISE OKL_API.G_EXCEPTION_ERROR;
672: END IF;
666: END IF;
667:
668: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
669: (lx_upd_trxH_rec.id IS NULL) ) THEN
670: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
671: RAISE OKL_API.G_EXCEPTION_ERROR;
672: END IF;
673:
674: -- populate the output transaction record
667:
668: IF ((lx_upd_trxH_rec.id = OKL_API.G_MISS_NUM) OR
669: (lx_upd_trxH_rec.id IS NULL) ) THEN
670: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
671: RAISE OKL_API.G_EXCEPTION_ERROR;
672: END IF;
673:
674: -- populate the output transaction record
675: x_trxH_rec := lx_upd_trxH_rec;
704: x_msg_count => l_msg_count,
705: x_msg_data => l_msg_data,
706: p_tclv_tbl => l_trxl_del_tbl);
707:
708: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
709: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
711: RAISE Okl_Api.G_EXCEPTION_ERROR;
712: END IF;
705: x_msg_data => l_msg_data,
706: p_tclv_tbl => l_trxl_del_tbl);
707:
708: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
709: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
711: RAISE Okl_Api.G_EXCEPTION_ERROR;
712: END IF;
713: --End delete existing lines
706: p_tclv_tbl => l_trxl_del_tbl);
707:
708: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
709: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
711: RAISE Okl_Api.G_EXCEPTION_ERROR;
712: END IF;
713: --End delete existing lines
714: ---------------------------
707:
708: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
709: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
710: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
711: RAISE Okl_Api.G_EXCEPTION_ERROR;
712: END IF;
713: --End delete existing lines
714: ---------------------------
715: --End Bug# 5964482
734: x_fact_synd_code => l_fact_synd_code,
735: x_inv_acct_code => l_inv_acct_code
736: );
737:
738: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
741: RAISE OKL_API.G_EXCEPTION_ERROR;
742: END IF;
735: x_inv_acct_code => l_inv_acct_code
736: );
737:
738: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
741: RAISE OKL_API.G_EXCEPTION_ERROR;
742: END IF;
743:
736: );
737:
738: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
741: RAISE OKL_API.G_EXCEPTION_ERROR;
742: END IF;
743:
744: l_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
737:
738: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
739: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
740: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
741: RAISE OKL_API.G_EXCEPTION_ERROR;
742: END IF;
743:
744: l_tmpl_identify_rec.factoring_synd_flag := l_fact_synd_code;
745: l_tmpl_identify_rec.investor_code := l_inv_acct_code;
762: p_validity_date => l_trxH_out_rec.date_transaction_occurred);
763: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
764: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Call to OKL_ACCOUNT_DIST_PUB.GET_TEMPLATE_INFO : '||x_return_status);
765: END IF;
766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
769: RAISE OKL_API.G_EXCEPTION_ERROR;
770: END IF;
763: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
764: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Call to OKL_ACCOUNT_DIST_PUB.GET_TEMPLATE_INFO : '||x_return_status);
765: END IF;
766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
769: RAISE OKL_API.G_EXCEPTION_ERROR;
770: END IF;
771: -- gboomina Bug 6151201 - Start
764: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Call to OKL_ACCOUNT_DIST_PUB.GET_TEMPLATE_INFO : '||x_return_status);
765: END IF;
766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
769: RAISE OKL_API.G_EXCEPTION_ERROR;
770: END IF;
771: -- gboomina Bug 6151201 - Start
772: -- check whether templates present or not. If not throw error.
765: END IF;
766: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
767: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
768: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
769: RAISE OKL_API.G_EXCEPTION_ERROR;
770: END IF;
771: -- gboomina Bug 6151201 - Start
772: -- check whether templates present or not. If not throw error.
773: IF l_template_tbl.COUNT = 0 THEN
770: END IF;
771: -- gboomina Bug 6151201 - Start
772: -- check whether templates present or not. If not throw error.
773: IF l_template_tbl.COUNT = 0 THEN
774: Okl_Api.set_message(p_app_name => g_app_name,
775: p_msg_name => 'OKL_LA_NO_ACCOUNTING_TMPLTS',
776: p_token1 => 'TRANSACTION_TYPE',
777: p_token1_value => l_transaction_type);
778: RAISE OKL_API.G_EXCEPTION_ERROR;
774: Okl_Api.set_message(p_app_name => g_app_name,
775: p_msg_name => 'OKL_LA_NO_ACCOUNTING_TMPLTS',
776: p_token1 => 'TRANSACTION_TYPE',
777: p_token1_value => l_transaction_type);
778: RAISE OKL_API.G_EXCEPTION_ERROR;
779: END IF;
780: -- gboomina Bug 6151201 - End
781:
782: --Build the transaction line table of records
785: l_tclv_tbl(i).line_number := i;
786: l_tclv_tbl(i).khr_id := p_contract_id;
787: l_tclv_tbl(i).sty_id := l_template_tbl(i).sty_id;
788: l_tclv_tbl(i).tcl_type := l_trxl_in_rec.tcl_type;
789: If ( p_draft_yn = OKL_API.G_TRUE ) Then
790: --Bug# 5964482 : disbale draft accounting
791: Null;
792: --l_tclv_tbl(i).description := 'Draft Journals - ' || l_transaction_type;
793: Else
812: ,x_tclv_tbl => x_tclv_tbl);
813: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
814: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines :'|| x_return_status);
815: END IF;
816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_ERROR;
820: END IF;
813: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
814: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines :'|| x_return_status);
815: END IF;
816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_ERROR;
820: END IF;
821:
814: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before OKL_TRX_CONTRACTS_PUB.create_trx_cntrct_lines :'|| x_return_status);
815: END IF;
816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_ERROR;
820: END IF;
821:
822: /* Populating the tmpl_identify_tbl from the template_tbl returned by get_template_info*/
815: END IF;
816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
819: RAISE OKL_API.G_EXCEPTION_ERROR;
820: END IF;
821:
822: /* Populating the tmpl_identify_tbl from the template_tbl returned by get_template_info*/
823:
933: IF (G_IS_DEBUG_STATEMENT_ON = TRUE) THEN
934: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After accounting engine OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST call :'|| x_return_status);
935: END IF;
936:
937: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
940: RAISE Okl_Api.G_EXCEPTION_ERROR;
941: END IF;
934: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After accounting engine OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST call :'|| x_return_status);
935: END IF;
936:
937: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
940: RAISE Okl_Api.G_EXCEPTION_ERROR;
941: END IF;
942:
935: END IF;
936:
937: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
940: RAISE Okl_Api.G_EXCEPTION_ERROR;
941: END IF;
942:
943: /* --Bug# 5964482 : Code commented
936:
937: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
940: RAISE Okl_Api.G_EXCEPTION_ERROR;
941: END IF;
942:
943: /* --Bug# 5964482 : Code commented
944: --If ( l_has_trans = OKL_API.G_TRUE ) Then
940: RAISE Okl_Api.G_EXCEPTION_ERROR;
941: END IF;
942:
943: /* --Bug# 5964482 : Code commented
944: --If ( l_has_trans = OKL_API.G_TRUE ) Then
945: -- l_trxH_in_rec.id := l_trx_rec.HeaderTransId;
946: --Else
947: -- l_trxH_in_rec.id := l_trxH_out_rec.id;
948: --End If;
952:
953: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Processed');
954: FETCH fnd_lookups_csr INTO l_fnd_rec;
955: IF fnd_lookups_csr%NOTFOUND THEN
956: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
957: CLOSE fnd_lookups_csr;
958: RAISE Okl_Api.G_EXCEPTION_ERROR;
959: END IF;
960: CLOSE fnd_lookups_csr;
954: FETCH fnd_lookups_csr INTO l_fnd_rec;
955: IF fnd_lookups_csr%NOTFOUND THEN
956: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
957: CLOSE fnd_lookups_csr;
958: RAISE Okl_Api.G_EXCEPTION_ERROR;
959: END IF;
960: CLOSE fnd_lookups_csr;
961:
962: --From the l_amount_out_tbl returned , the transaction line amount and header amount need to be updated back on the contract
997: ,p_tclv_tbl => l_tclv_tbl
998: ,x_tcnv_rec => x_tcnv_rec
999: ,x_tclv_tbl => x_tclv_tbl );
1000:
1001: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1002: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1003: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1004: RAISE Okl_Api.G_EXCEPTION_ERROR;
1005: END IF;
998: ,x_tcnv_rec => x_tcnv_rec
999: ,x_tclv_tbl => x_tclv_tbl );
1000:
1001: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1002: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1003: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1004: RAISE Okl_Api.G_EXCEPTION_ERROR;
1005: END IF;
1006:
999: ,x_tclv_tbl => x_tclv_tbl );
1000:
1001: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1002: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1003: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1004: RAISE Okl_Api.G_EXCEPTION_ERROR;
1005: END IF;
1006:
1007: OKL_MULTIGAAP_ENGINE_PVT.CREATE_SEC_REP_TRX
1000:
1001: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1002: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1003: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1004: RAISE Okl_Api.G_EXCEPTION_ERROR;
1005: END IF;
1006:
1007: OKL_MULTIGAAP_ENGINE_PVT.CREATE_SEC_REP_TRX
1008: (p_api_version => p_api_version
1015: ,p_ctxt_val_tbl => l_ctxt_tbl
1016: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
1017:
1018:
1019: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1020: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1021: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1022: RAISE Okl_Api.G_EXCEPTION_ERROR;
1023: END IF;
1016: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
1017:
1018:
1019: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1020: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1021: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1022: RAISE Okl_Api.G_EXCEPTION_ERROR;
1023: END IF;
1024: /*-------Bug# 5964482 : Commented code to update header and Lines with Amount--------------------
1017:
1018:
1019: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1020: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1021: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1022: RAISE Okl_Api.G_EXCEPTION_ERROR;
1023: END IF;
1024: /*-------Bug# 5964482 : Commented code to update header and Lines with Amount--------------------
1025: --as new code has been incorporated above-----------------------------------------------------
1018:
1019: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1020: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1021: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1022: RAISE Okl_Api.G_EXCEPTION_ERROR;
1023: END IF;
1024: /*-------Bug# 5964482 : Commented code to update header and Lines with Amount--------------------
1025: --as new code has been incorporated above-----------------------------------------------------
1026: -- Check Status
1023: END IF;
1024: /*-------Bug# 5964482 : Commented code to update header and Lines with Amount--------------------
1025: --as new code has been incorporated above-----------------------------------------------------
1026: -- Check Status
1027: IF(x_return_status = Okl_Api.G_RET_STS_SUCCESS) THEN
1028:
1029: l_trxH_in_rec.amount := 0;
1030: FOR i in 1..l_amount_tbl.COUNT
1031: LOOP
1035:
1036: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Processed');
1037: FETCH fnd_lookups_csr INTO l_fnd_rec;
1038: IF fnd_lookups_csr%NOTFOUND THEN
1039: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
1040: CLOSE fnd_lookups_csr;
1041: RAISE Okl_Api.G_EXCEPTION_ERROR;
1042: END IF;
1043: CLOSE fnd_lookups_csr;
1037: FETCH fnd_lookups_csr INTO l_fnd_rec;
1038: IF fnd_lookups_csr%NOTFOUND THEN
1039: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
1040: CLOSE fnd_lookups_csr;
1041: RAISE Okl_Api.G_EXCEPTION_ERROR;
1042: END IF;
1043: CLOSE fnd_lookups_csr;
1044: l_trxH_in_rec.tsu_code := l_fnd_rec.lookup_code;
1045:
1055:
1056: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Error');
1057: FETCH fnd_lookups_csr INTO l_fnd_rec;
1058: IF fnd_lookups_csr%NOTFOUND THEN
1059: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
1060: CLOSE fnd_lookups_csr;
1061: RAISE Okl_Api.G_EXCEPTION_ERROR;
1062: END IF;
1063: CLOSE fnd_lookups_csr;
1057: FETCH fnd_lookups_csr INTO l_fnd_rec;
1058: IF fnd_lookups_csr%NOTFOUND THEN
1059: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
1060: CLOSE fnd_lookups_csr;
1061: RAISE Okl_Api.G_EXCEPTION_ERROR;
1062: END IF;
1063: CLOSE fnd_lookups_csr;
1064: l_trxH_in_rec.tsu_code := l_fnd_rec.lookup_code;
1065: l_trxH_in_rec.amount := null;
1086: ,p_tclv_rec => l_trxL_in_rec
1087: ,x_tclv_rec => l_trxL_out_rec);
1088: -------Bug# 5964482 : End of comments ------------------------------------------------------*/
1089:
1090: IF (p_draft_yn = OKL_API.G_TRUE) Then
1091: --Bug# 5964482: disable draft Accounting
1092: Null;
1093: /*-----------Commented Code-----------------------
1094: IF (x_return_status = Okl_Api.G_RET_STS_SUCCESS) THEN
1090: IF (p_draft_yn = OKL_API.G_TRUE) Then
1091: --Bug# 5964482: disable draft Accounting
1092: Null;
1093: /*-----------Commented Code-----------------------
1094: IF (x_return_status = Okl_Api.G_RET_STS_SUCCESS) THEN
1095:
1096: okl_contract_status_pub.update_contract_status(
1097: l_api_version,
1098: p_init_msg_list,
1110: x_msg_count => x_msg_count,
1111: x_msg_data => x_msg_data,
1112: p_chr_id => p_contract_id);
1113:
1114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1117: RAISE OKL_API.G_EXCEPTION_ERROR;
1118: END IF;
1111: x_msg_data => x_msg_data,
1112: p_chr_id => p_contract_id);
1113:
1114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1117: RAISE OKL_API.G_EXCEPTION_ERROR;
1118: END IF;
1119:
1112: p_chr_id => p_contract_id);
1113:
1114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1117: RAISE OKL_API.G_EXCEPTION_ERROR;
1118: END IF;
1119:
1120: ELSE
1113:
1114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1117: RAISE OKL_API.G_EXCEPTION_ERROR;
1118: END IF;
1119:
1120: ELSE
1121: okl_contract_status_pub.update_contract_status(
1125: x_msg_count,
1126: x_msg_data,
1127: l_failStatus,
1128: p_chr_id );
1129: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1132: RAISE Okl_Api.G_EXCEPTION_ERROR;
1133: END IF;
1126: x_msg_data,
1127: l_failStatus,
1128: p_chr_id );
1129: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1132: RAISE Okl_Api.G_EXCEPTION_ERROR;
1133: END IF;
1134:
1127: l_failStatus,
1128: p_chr_id );
1129: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1132: RAISE Okl_Api.G_EXCEPTION_ERROR;
1133: END IF;
1134:
1135: --call to cascade status on to lines
1128: p_chr_id );
1129: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1130: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1131: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1132: RAISE Okl_Api.G_EXCEPTION_ERROR;
1133: END IF;
1134:
1135: --call to cascade status on to lines
1136: OKL_CONTRACT_STATUS_PUB.cascade_lease_status
1140: x_msg_count => x_msg_count,
1141: x_msg_data => x_msg_data,
1142: p_chr_id => p_contract_id);
1143:
1144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1147: RAISE OKL_API.G_EXCEPTION_ERROR;
1148: END IF;
1141: x_msg_data => x_msg_data,
1142: p_chr_id => p_contract_id);
1143:
1144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1147: RAISE OKL_API.G_EXCEPTION_ERROR;
1148: END IF;
1149:
1142: p_chr_id => p_contract_id);
1143:
1144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1147: RAISE OKL_API.G_EXCEPTION_ERROR;
1148: END IF;
1149:
1150: END IF;
1143:
1144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1147: RAISE OKL_API.G_EXCEPTION_ERROR;
1148: END IF;
1149:
1150: END IF;
1151: ----------End of commented Code-----------------------*/
1152: --Bug# 5964482
1153: End If; --Bug# 5964482 Disable Draft Accounting
1154: End If; --Bug# 5964482 Disable Draft Accounting
1155:
1156: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1157:
1158: Exception
1159: when OKL_API.G_EXCEPTION_ERROR then
1160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1155:
1156: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1157:
1158: Exception
1159: when OKL_API.G_EXCEPTION_ERROR then
1160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1161: p_api_name => l_api_name,
1162: p_pkg_name => g_pkg_name,
1163: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1156: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1157:
1158: Exception
1159: when OKL_API.G_EXCEPTION_ERROR then
1160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1161: p_api_name => l_api_name,
1162: p_pkg_name => g_pkg_name,
1163: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1164: x_msg_count => x_msg_count,
1159: when OKL_API.G_EXCEPTION_ERROR then
1160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1161: p_api_name => l_api_name,
1162: p_pkg_name => g_pkg_name,
1163: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1164: x_msg_count => x_msg_count,
1165: x_msg_data => x_msg_data,
1166: p_api_type => g_api_type);
1167:
1164: x_msg_count => x_msg_count,
1165: x_msg_data => x_msg_data,
1166: p_api_type => g_api_type);
1167:
1168: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1169: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1170: p_api_name => l_api_name,
1171: p_pkg_name => g_pkg_name,
1172: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1165: x_msg_data => x_msg_data,
1166: p_api_type => g_api_type);
1167:
1168: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1169: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1170: p_api_name => l_api_name,
1171: p_pkg_name => g_pkg_name,
1172: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1173: x_msg_count => x_msg_count,
1168: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1169: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1170: p_api_name => l_api_name,
1171: p_pkg_name => g_pkg_name,
1172: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1173: x_msg_count => x_msg_count,
1174: x_msg_data => x_msg_data,
1175: p_api_type => g_api_type);
1176:
1174: x_msg_data => x_msg_data,
1175: p_api_type => g_api_type);
1176:
1177: when OTHERS then
1178: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1179: p_api_name => l_api_name,
1180: p_pkg_name => g_pkg_name,
1181: p_exc_name => 'OTHERS',
1182: x_msg_count => x_msg_count,
1187: END generate_journal_entries;
1188:
1189: Procedure generate_journal_entries(
1190: p_api_version IN NUMBER,
1191: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1192: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1193: p_contract_id IN NUMBER,
1194: p_transaction_type IN VARCHAR2,
1195: p_transaction_date IN DATE,
1188:
1189: Procedure generate_journal_entries(
1190: p_api_version IN NUMBER,
1191: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1192: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1193: p_contract_id IN NUMBER,
1194: p_transaction_type IN VARCHAR2,
1195: p_transaction_date IN DATE,
1196: p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
1192: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1193: p_contract_id IN NUMBER,
1194: p_transaction_type IN VARCHAR2,
1195: p_transaction_date IN DATE,
1196: p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
1197: p_memo_yn IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1198: x_return_status OUT NOCOPY VARCHAR2,
1199: x_msg_count OUT NOCOPY NUMBER,
1200: x_msg_data OUT NOCOPY VARCHAR2) IS
1193: p_contract_id IN NUMBER,
1194: p_transaction_type IN VARCHAR2,
1195: p_transaction_date IN DATE,
1196: p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
1197: p_memo_yn IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1198: x_return_status OUT NOCOPY VARCHAR2,
1199: x_msg_count OUT NOCOPY NUMBER,
1200: x_msg_data OUT NOCOPY VARCHAR2) IS
1201:
1221: End generate_journal_entries;
1222:
1223: Procedure generate_journal_entries(
1224: p_api_version IN NUMBER,
1225: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1226: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1227: p_contract_id IN NUMBER,
1228: p_transaction_type IN VARCHAR2,
1229: p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
1222:
1223: Procedure generate_journal_entries(
1224: p_api_version IN NUMBER,
1225: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1226: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1227: p_contract_id IN NUMBER,
1228: p_transaction_type IN VARCHAR2,
1229: p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
1230: p_memo_yn IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1225: p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1226: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1227: p_contract_id IN NUMBER,
1228: p_transaction_type IN VARCHAR2,
1229: p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
1230: p_memo_yn IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1231: x_return_status OUT NOCOPY VARCHAR2,
1232: x_msg_count OUT NOCOPY NUMBER,
1233: x_msg_data OUT NOCOPY VARCHAR2) IS
1226: p_commit IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1227: p_contract_id IN NUMBER,
1228: p_transaction_type IN VARCHAR2,
1229: p_draft_yn IN VARCHAR2 DEFAULT Okl_Api.G_TRUE,
1230: p_memo_yn IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
1231: x_return_status OUT NOCOPY VARCHAR2,
1232: x_msg_count OUT NOCOPY NUMBER,
1233: x_msg_data OUT NOCOPY VARCHAR2) IS
1234: