eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OKL_AM_VENDOR_RES_SHARE_PVT dependencies on DUAL

Line 46: asset_residual OKL_K_LINES.residual_value%TYPE,

42: asset_start_date DATE,
43: asset_end_date DATE,
44: asset_sts_code OKC_K_LINES_B.sts_code%TYPE,
45: date_terminated DATE,
46: asset_residual OKL_K_LINES.residual_value%TYPE,
47: khr_id NUMBER,
48: contract_number OKC_K_HEADERS_B.contract_number%TYPE,
49: product_id NUMBER,
50: vpa_id NUMBER,

Line 251: l_residual_shr_success VARCHAR2(300);

247: l_print VARCHAR2(1);
248: msg_lines_table_index NUMBER;
249: l_vpa_num VARCHAR2(300);
250: l_kle_num VARCHAR2(300);
251: l_residual_shr_success VARCHAR2(300);
252: l_residual_shr_error VARCHAR2(300);
253:
254: BEGIN
255:

Line 252: l_residual_shr_error VARCHAR2(300);

248: msg_lines_table_index NUMBER;
249: l_vpa_num VARCHAR2(300);
250: l_kle_num VARCHAR2(300);
251: l_residual_shr_success VARCHAR2(300);
252: l_residual_shr_error VARCHAR2(300);
253:
254: BEGIN
255:
256: l_success := success_message_table.COUNT;

Line 260: l_term_heading := 'Vendor Residual Share';

256: l_success := success_message_table.COUNT;
257: l_error := error_message_table.COUNT;
258:
259: l_orcl_logo := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_ACCT_LEASE_MANAGEMENT');
260: l_term_heading := 'Vendor Residual Share';
261: l_set_of_books := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_SET_OF_BOOKS');
262: l_run_date := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_RUN_DATE');
263: l_oper_unit := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_OPERUNIT');
264: l_type := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_TYPE');

Line 277: l_residual_shr_success := 'Vendor Residual Share Successful';

273: l_inv_ended_by := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_AM_INV_AGR_ENDED_BY');
274: l_inv := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_AM_INVALID_TERM_DATE');
275: l_vpa_num := 'Program Agreement';
276: l_kle_num := 'Asset Number';
277: l_residual_shr_success := 'Vendor Residual Share Successful';
278: l_residual_shr_error := 'Vendor Residual Share Errored';
279:
280: l_set_of_books_name := OKL_ACCOUNTING_UTIL.get_set_of_books_name (OKL_ACCOUNTING_UTIL.get_set_of_books_id);
281:

Line 278: l_residual_shr_error := 'Vendor Residual Share Errored';

274: l_inv := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_AM_INVALID_TERM_DATE');
275: l_vpa_num := 'Program Agreement';
276: l_kle_num := 'Asset Number';
277: l_residual_shr_success := 'Vendor Residual Share Successful';
278: l_residual_shr_error := 'Vendor Residual Share Errored';
279:
280: l_set_of_books_name := OKL_ACCOUNTING_UTIL.get_set_of_books_name (OKL_ACCOUNTING_UTIL.get_set_of_books_id);
281:
282: -- Get the Org Name

Line 298: FND_FILE.put_line(FND_FILE.log, l_residual_shr_success ||

294: l_processed);
295:
296: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
297:
298: FND_FILE.put_line(FND_FILE.log, l_residual_shr_success ||
299: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
300: l_success);
301:
302: FND_FILE.put_line(FND_FILE.log, l_residual_shr_error ||

Line 299: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||

295:
296: FND_FILE.put_line(FND_FILE.log, RPAD('-',77 ,'-'));
297:
298: FND_FILE.put_line(FND_FILE.log, l_residual_shr_success ||
299: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
300: l_success);
301:
302: FND_FILE.put_line(FND_FILE.log, l_residual_shr_error ||
303: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||

Line 302: FND_FILE.put_line(FND_FILE.log, l_residual_shr_error ||

298: FND_FILE.put_line(FND_FILE.log, l_residual_shr_success ||
299: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
300: l_success);
301:
302: FND_FILE.put_line(FND_FILE.log, l_residual_shr_error ||
303: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||
304: l_error);
305: FND_FILE.put_line(FND_FILE.log,'');
306: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));

Line 303: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||

299: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
300: l_success);
301:
302: FND_FILE.put_line(FND_FILE.log, l_residual_shr_error ||
303: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||
304: l_error);
305: FND_FILE.put_line(FND_FILE.log,'');
306: FND_FILE.put_line(FND_FILE.log, RPAD('=',77,'=' ));
307:

Line 338: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success ||

334: l_processed);
335:
336: FND_FILE.put_line(FND_FILE.output, RPAD('-',128 ,'-'));
337:
338: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success ||
339: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
340: l_success);
341:
342: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error ||

Line 339: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||

335:
336: FND_FILE.put_line(FND_FILE.output, RPAD('-',128 ,'-'));
337:
338: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success ||
339: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
340: l_success);
341:
342: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error ||
343: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||

Line 342: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error ||

338: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success ||
339: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
340: l_success);
341:
342: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error ||
343: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||
344: l_error);
345:
346: FND_FILE.put_line(FND_FILE.output,'');

Line 343: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||

339: RPAD(' ',40-LENGTH(l_residual_shr_success),' ') ||
340: l_success);
341:
342: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error ||
343: RPAD(' ',40-LENGTH(l_residual_shr_error),' ') ||
344: l_error);
345:
346: FND_FILE.put_line(FND_FILE.output,'');
347: FND_FILE.put_line(FND_FILE.output, RPAD('=',128,'=' ));

Line 353: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success);

349:
350: -- Print VPAs Terminated Successfully
351: IF l_success > 0 THEN
352:
353: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success);
354: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_success), '-' ));
355: FND_FILE.put_line(FND_FILE.output,'');
356:
357: l_print := 'N';

Line 354: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_success), '-' ));

350: -- Print VPAs Terminated Successfully
351: IF l_success > 0 THEN
352:
353: FND_FILE.put_line(FND_FILE.output, l_residual_shr_success);
354: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_success), '-' ));
355: FND_FILE.put_line(FND_FILE.output,'');
356:
357: l_print := 'N';
358:

Line 400: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error);

396:
397: -- Print VPAs errored
398: IF l_error > 0 THEN
399:
400: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error);
401: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_error), '-' ));
402: FND_FILE.put_line(FND_FILE.output,'');
403:
404: -- Initialize the table index

Line 401: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_error), '-' ));

397: -- Print VPAs errored
398: IF l_error > 0 THEN
399:
400: FND_FILE.put_line(FND_FILE.output, l_residual_shr_error);
401: FND_FILE.put_line(FND_FILE.output, RPAD('-',LENGTH(l_residual_shr_error), '-' ));
402: FND_FILE.put_line(FND_FILE.output,'');
403:
404: -- Initialize the table index
405: msg_lines_table_index := 1;

Line 486: -- Procedure Name : get_residual_share_terms

482:
483:
484: -- Start of comments
485: --
486: -- Procedure Name : get_residual_share_terms
487: -- Description : procedure to do get residual share terms and residual share formula
488: -- for the contracts program agreement
489: -- Business Rules :
490: -- Parameters :

Line 487: -- Description : procedure to do get residual share terms and residual share formula

483:
484: -- Start of comments
485: --
486: -- Procedure Name : get_residual_share_terms
487: -- Description : procedure to do get residual share terms and residual share formula
488: -- for the contracts program agreement
489: -- Business Rules :
490: -- Parameters :
491: -- Version : 1.0

Line 495: PROCEDURE get_residual_share_terms(

491: -- Version : 1.0
492: -- History : RMUNJULU Created
493: --
494: -- End of comments
495: PROCEDURE get_residual_share_terms(
496: x_return_status OUT NOCOPY VARCHAR2,
497: p_kle_rec IN kle_rec_type,
498: x_share_formula OUT NOCOPY VARCHAR2,
499: x_share_tbl OUT NOCOPY OKL_RULE_PUB.rulv_tbl_type) IS

Line 520: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',

516: BEGIN
517:
518: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
519: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
520: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
521: 'Begin(+)');
522: END IF;
523:
524: -- get rule data

Line 612: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',

608: x_share_formula := l_rulv_rec.rule_information1;
609:
610: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
611: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
612: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
613: 'End(-)');
614: END IF;
615:
616: EXCEPTION

Line 624: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',

620: x_return_status := OKL_API.G_RET_STS_ERROR;
621:
622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
624: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
625: 'EXP - l_no_rule_data');
626: END IF;
627:
628: WHEN G_EXCEPTION_ERROR THEN

Line 634: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',

630: x_return_status := OKL_API.G_RET_STS_ERROR;
631:
632: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
633: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
634: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
635: 'EXP - G_EXCEPTION_ERROR');
636: END IF;
637:
638: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 644: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',

640: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
641:
642: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
643: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
644: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
645: 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
646: END IF;
647:
648: WHEN OTHERS THEN

Line 654: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',

650: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
651:
652: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
654: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
655: 'EXP - OTHERS');
656: END IF;
657:
658: END get_residual_share_terms;

Line 658: END get_residual_share_terms;

654: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
655: 'EXP - OTHERS');
656: END IF;
657:
658: END get_residual_share_terms;
659:
660: -- Start of comments
661: --
662: -- Procedure Name : vendor_share

Line 663: -- Description : procedure to do vendor residual share for each Terminated/Expired eligible asset

659:
660: -- Start of comments
661: --
662: -- Procedure Name : vendor_share
663: -- Description : procedure to do vendor residual share for each Terminated/Expired eligible asset
664: -- Business Rules :
665: -- Parameters :
666: -- Version : 1.0
667: -- History : RMUNJULU Created

Line 687: FROM DUAL;

683: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
684: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
685: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
686: mo_global.get_current_org_id()
687: FROM DUAL;
688:
689: CURSOR c_app_info IS
690: SELECT APPLICATION_ID
691: FROM FND_APPLICATION

Line 735: l_residual_shr_try_id NUMBER;

731: l_sty_id NUMBER;
732: lx_subsidy_amount NUMBER;
733: l_app_id NUMBER;
734: l_trx_type_id NUMBER;
735: l_residual_shr_try_id NUMBER;
736: l_document_category VARCHAR2(100):= 'OKL Lease Pay Invoices';
737: lx_dbseqnm VARCHAR2(2000):= '';
738: lx_dbseqid NUMBER := NULL;
739: l_msg_count NUMBER := OKL_API.G_MISS_NUM;

Line 813: -- get the residual share terms and conditions

809: END IF;
810: */
811: savepoint vend_res_share;
812: -- Start processing
813: -- get the residual share terms and conditions
814: get_residual_share_terms(
815: x_return_status => l_return_status,
816: p_kle_rec => l_kle_rec,
817: x_share_formula => l_share_formula,

Line 814: get_residual_share_terms(

810: */
811: savepoint vend_res_share;
812: -- Start processing
813: -- get the residual share terms and conditions
814: get_residual_share_terms(
815: x_return_status => l_return_status,
816: p_kle_rec => l_kle_rec,
817: x_share_formula => l_share_formula,
818: x_share_tbl => l_share_tbl);

Line 916: -- get vendor residual share transaction type

912:
913: RAISE OKL_API.G_EXCEPTION_ERROR;
914: END IF ;
915:
916: -- get vendor residual share transaction type
917: OKL_AM_UTIL_PVT.get_transaction_id (
918: p_try_name => 'Vendor Residual Share',
919: x_return_status => l_return_status,
920: x_try_id => l_residual_shr_try_id);

Line 918: p_try_name => 'Vendor Residual Share',

914: END IF ;
915:
916: -- get vendor residual share transaction type
917: OKL_AM_UTIL_PVT.get_transaction_id (
918: p_try_name => 'Vendor Residual Share',
919: x_return_status => l_return_status,
920: x_try_id => l_residual_shr_try_id);
921:
922: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN

Line 920: x_try_id => l_residual_shr_try_id);

916: -- get vendor residual share transaction type
917: OKL_AM_UTIL_PVT.get_transaction_id (
918: p_try_name => 'Vendor Residual Share',
919: x_return_status => l_return_status,
920: x_try_id => l_residual_shr_try_id);
921:
922: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
923:
924: l_trans_meaning := OKL_AM_UTIL_PVT.get_lookup_meaning(

Line 926: p_lookup_code => 'VENDOR RESIDUAL SHARE',

922: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
923:
924: l_trans_meaning := OKL_AM_UTIL_PVT.get_lookup_meaning(
925: p_lookup_type => 'OKL_ACCOUNTING_EVENT_TYPE',
926: p_lookup_code => 'VENDOR RESIDUAL SHARE',
927: p_validate_yn => 'Y');
928:
929: OKL_API.set_message(
930: p_app_name => 'OKL',

Line 951: p_primary_sty_purpose => 'VENDOR_RESIDUAL_SHARING', -- new purpose code

947:
948: -- get stream type id for purpose for the contract
949: OKL_STREAMS_UTIL.get_primary_stream_type(
950: p_khr_id => l_kle_rec.khr_id,
951: p_primary_sty_purpose => 'VENDOR_RESIDUAL_SHARING', -- new purpose code
952: x_return_status => l_return_status,
953: x_primary_sty_id => l_sty_id);
954:
955: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN

Line 966: l_share_formula := 'VENDOR_RESIDUAL_SHARE';

962: l_sob_id := OKL_ACCOUNTING_UTIL.get_set_of_books_id;
963:
964: -- DEFAULT SHARE FORMULA
965: IF l_share_formula IS NULL THEN
966: l_share_formula := 'VENDOR_RESIDUAL_SHARE';
967: END IF;
968:
969: -- pass retirement transaction id and get the gain/loss for that retirement transaction
970: l_add_params(1).name := 'retirement_id';

Line 1010: lp_thpv_rec.try_id := l_residual_shr_try_id;

1006:
1007: -- create header transaction record in okl_trx_assets
1008: lp_thpv_rec.tas_type := 'VRS'; -- new lookup seeded
1009: lp_thpv_rec.tsu_code := 'PROCESSED';
1010: lp_thpv_rec.try_id := l_residual_shr_try_id;
1011: lp_thpv_rec.date_trans_occurred := sysdate;
1012:
1013: OKL_TRX_ASSETS_PUB.create_trx_ass_h_def(
1014: p_api_version => p_api_version,

Line 1039: IF l_party_role <> 'LESSOR' THEN -- do not do residual sharing invoicing for LESSOR

1035: OPEN get_party_role_csr (l_party_id);
1036: FETCH get_party_role_csr INTO l_party_role;
1037: CLOSE get_party_role_csr;
1038:
1039: IF l_party_role <> 'LESSOR' THEN -- do not do residual sharing invoicing for LESSOR
1040:
1041: -- get party pay to site id
1042: OPEN get_pay_to_site_csr (l_party_id);
1043: FETCH get_pay_to_site_csr INTO l_pay_to_site_id, l_party_name;

Line 1146: lp_tlpv_rec.residual_shr_party_id := l_party_id; -- new column

1142: lp_tlpv_rec.tal_type := 'VRS'; -- new lookup seeded
1143: lp_tlpv_rec.asset_number := l_kle_rec.asset_number;
1144: lp_tlpv_rec.dnz_khr_id := l_kle_rec.khr_id;
1145: lp_tlpv_rec.fa_trx_date := l_kle_rec.date_retired; -- store disposition date
1146: lp_tlpv_rec.residual_shr_party_id := l_party_id; -- new column
1147: lp_tlpv_rec.residual_shr_amount := l_share_amount_for_party; -- new column
1148: lp_tlpv_rec.retirement_id := l_kle_rec.retirement_id; -- new column store retirement id
1149:
1150:

Line 1147: lp_tlpv_rec.residual_shr_amount := l_share_amount_for_party; -- new column

1143: lp_tlpv_rec.asset_number := l_kle_rec.asset_number;
1144: lp_tlpv_rec.dnz_khr_id := l_kle_rec.khr_id;
1145: lp_tlpv_rec.fa_trx_date := l_kle_rec.date_retired; -- store disposition date
1146: lp_tlpv_rec.residual_shr_party_id := l_party_id; -- new column
1147: lp_tlpv_rec.residual_shr_amount := l_share_amount_for_party; -- new column
1148: lp_tlpv_rec.retirement_id := l_kle_rec.retirement_id; -- new column store retirement id
1149:
1150:
1151: lp_tlpv_rec.original_cost := 0; -- needed for the TAPI

Line 1247: -- Has not been already picked up for vendor residual sharing (check transaction in OKL)

1243: --
1244: -- Procedure Name : do_vendor_share
1245: -- Description : Procedure to do vendor share
1246: -- Pick assets to do vendor share with following conditions
1247: -- Has not been already picked up for vendor residual sharing (check transaction in OKL)
1248: -- Has Vendor program attached with residual sharing defined (check contract and vendor program)
1249: -- Has terminated or expired (check asset status)
1250: -- Has been sold through asset disposal (Term with purchase/remarket/scrap/sale) (check transaction in FA)
1251: -- This API will do residual share for the same asset if there is a new retirement transaction (ie multiple shares for multiple partial retirements)

Line 1248: -- Has Vendor program attached with residual sharing defined (check contract and vendor program)

1244: -- Procedure Name : do_vendor_share
1245: -- Description : Procedure to do vendor share
1246: -- Pick assets to do vendor share with following conditions
1247: -- Has not been already picked up for vendor residual sharing (check transaction in OKL)
1248: -- Has Vendor program attached with residual sharing defined (check contract and vendor program)
1249: -- Has terminated or expired (check asset status)
1250: -- Has been sold through asset disposal (Term with purchase/remarket/scrap/sale) (check transaction in FA)
1251: -- This API will do residual share for the same asset if there is a new retirement transaction (ie multiple shares for multiple partial retirements)
1252: -- Business Rules :

Line 1251: -- This API will do residual share for the same asset if there is a new retirement transaction (ie multiple shares for multiple partial retirements)

1247: -- Has not been already picked up for vendor residual sharing (check transaction in OKL)
1248: -- Has Vendor program attached with residual sharing defined (check contract and vendor program)
1249: -- Has terminated or expired (check asset status)
1250: -- Has been sold through asset disposal (Term with purchase/remarket/scrap/sale) (check transaction in FA)
1251: -- This API will do residual share for the same asset if there is a new retirement transaction (ie multiple shares for multiple partial retirements)
1252: -- Business Rules :
1253: -- Parameters :
1254: -- Version : 1.0
1255: -- History : RMUNJULU Created

Line 1266: -- Get the terminated/expired assets for the org which has residual sharing and which have not been picked earlier

1262: x_msg_count OUT NOCOPY NUMBER,
1263: x_msg_data OUT NOCOPY VARCHAR2,
1264: p_control_flag IN VARCHAR2 DEFAULT NULL) IS
1265:
1266: -- Get the terminated/expired assets for the org which has residual sharing and which have not been picked earlier
1267: CURSOR get_expired_kle_csr (p_date IN DATE) IS
1268: SELECT CLE.id,
1269: CLE.name asset_number,
1270: CHR.id khr_id,

Line 1275: KLE.residual_value,

1271: CHR.contract_number contract_number,
1272: CLE.start_date,
1273: CLE.end_date,
1274: CLE.date_terminated,
1275: KLE.residual_value,
1276: VPA.id vpa_id,
1277: VPA.contract_number vpa_number,
1278: KHR.pdt_id,
1279: RET.retirement_id,

Line 1307: AND CLE.id NOT IN (-- residual share already done for that retirement transaction

1303: -- AND RET.status = 'PROCESSED' -- Retirement transaction status is processed -- NOT REQUIRED
1304: AND RET.book_type_code = OAL.corporate_book -- For corporate book
1305:
1306: -- Asset is not Securitized is checked once the asset is obtained
1307: AND CLE.id NOT IN (-- residual share already done for that retirement transaction
1308: SELECT TAL.kle_id
1309: FROM OKL_TRX_ASSETS TAS,
1310: OKL_TXL_ASSETS_B TAL
1311: WHERE TAL.kle_id = CLE.id

Line 1317: AND TAL.retirement_id = RET.retirement_id -- do not pick if residual share already done for that retirement trn

1313: AND TAS.tas_type = 'VRS'
1314: AND TAL.tal_type = 'VRS'
1315: AND TAS.tsu_code = 'PROCESSED'
1316:
1317: AND TAL.retirement_id = RET.retirement_id -- do not pick if residual share already done for that retirement trn
1318: )
1319: AND 1 < ( -- has residual sharing with more than one party (if one party then it is Lessor)
1320: SELECT count(rul.rule_information1)
1321: FROM OKC_RULES_V rul,

Line 1319: AND 1 < ( -- has residual sharing with more than one party (if one party then it is Lessor)

1315: AND TAS.tsu_code = 'PROCESSED'
1316:
1317: AND TAL.retirement_id = RET.retirement_id -- do not pick if residual share already done for that retirement trn
1318: )
1319: AND 1 < ( -- has residual sharing with more than one party (if one party then it is Lessor)
1320: SELECT count(rul.rule_information1)
1321: FROM OKC_RULES_V rul,
1322: OKC_RULE_GROUPS_B rgp
1323: WHERE rul.dnz_chr_id = VPA.id

Line 1329: CURSOR get_residual_value_stm_id ( p_kle_id IN NUMBER,

1325: AND rgp.rgd_code = 'VGLRS'
1326: AND rul.rule_information_category = 'VGLRSP'
1327: );
1328:
1329: CURSOR get_residual_value_stm_id ( p_kle_id IN NUMBER,
1330: p_sty_id IN NUMBER) IS
1331: SELECT STM.id
1332: FROM OKL_STREAMS_V STM,
1333: OKL_STRM_TYPE_B STY

Line 1350: l_residual_sty_id NUMBER;

1346: i NUMBER;
1347: l_api_name VARCHAR2(30) := 'do_vendor_share';
1348: l_inv_agmt_chr_id_tbl OKL_SECURITIZATION_PVT.inv_agmt_chr_id_tbl_type;
1349: l_is_securitized VARCHAR2(3) := OKL_API.G_FALSE;
1350: l_residual_sty_id NUMBER;
1351: l_inv_agmt_chr_id NUMBER;
1352: l_residual_stm_id NUMBER;
1353: l_assets_found VARCHAR2(3) := 'N';
1354: BEGIN

Line 1352: l_residual_stm_id NUMBER;

1348: l_inv_agmt_chr_id_tbl OKL_SECURITIZATION_PVT.inv_agmt_chr_id_tbl_type;
1349: l_is_securitized VARCHAR2(3) := OKL_API.G_FALSE;
1350: l_residual_sty_id NUMBER;
1351: l_inv_agmt_chr_id NUMBER;
1352: l_residual_stm_id NUMBER;
1353: l_assets_found VARCHAR2(3) := 'N';
1354: BEGIN
1355:
1356: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1362: SELECT sysdate INTO l_sys_date FROM DUAL;

1358: 'OKL_AM_VENDOR_RES_SHARE_PVT.do_write_off_balances.',
1359: 'Begin(+)');
1360: END IF;
1361:
1362: SELECT sysdate INTO l_sys_date FROM DUAL;
1363:
1364: -- For Performance :: Do a bulk fetch of all eligible assets into a pl/sql table
1365: OPEN get_expired_kle_csr (l_sys_date);
1366: FETCH get_expired_kle_csr BULK COLLECT INTO l_kle_tbl;

Line 1381: l_kle_rec.asset_residual := l_kle_tbl(i).residual_value;

1377: l_kle_rec.contract_number := l_kle_tbl(i).contract_number;
1378: l_kle_rec.asset_start_date := l_kle_tbl(i).start_date;
1379: l_kle_rec.asset_end_date := l_kle_tbl(i).end_date;
1380: l_kle_rec.date_terminated := l_kle_tbl(i).date_terminated;
1381: l_kle_rec.asset_residual := l_kle_tbl(i).residual_value;
1382: l_kle_rec.vpa_id := l_kle_tbl(i).vpa_id;
1383: l_kle_rec.vpa_number := l_kle_tbl(i).vpa_number;
1384: l_kle_rec.product_id := l_kle_tbl(i).pdt_id;
1385: l_kle_rec.retirement_id := l_kle_tbl(i).retirement_id;

Line 1391: 'RESIDUAL_VALUE',

1387: l_kle_rec.scs_code := l_kle_tbl(i).scs_code; -- rmunjulu 4622198
1388:
1389: OKL_STREAMS_UTIL.get_primary_stream_type(
1390: l_kle_rec.khr_id,
1391: 'RESIDUAL_VALUE',
1392: l_return_status,
1393: l_residual_sty_id);
1394:
1395: -- get the residual value stm id

Line 1393: l_residual_sty_id);

1389: OKL_STREAMS_UTIL.get_primary_stream_type(
1390: l_kle_rec.khr_id,
1391: 'RESIDUAL_VALUE',
1392: l_return_status,
1393: l_residual_sty_id);
1394:
1395: -- get the residual value stm id
1396: OPEN get_residual_value_stm_id ( l_kle_rec.id,
1397: l_residual_sty_id);

Line 1395: -- get the residual value stm id

1391: 'RESIDUAL_VALUE',
1392: l_return_status,
1393: l_residual_sty_id);
1394:
1395: -- get the residual value stm id
1396: OPEN get_residual_value_stm_id ( l_kle_rec.id,
1397: l_residual_sty_id);
1398: FETCH get_residual_value_stm_id INTO l_residual_stm_id;
1399: CLOSE get_residual_value_stm_id;

Line 1396: OPEN get_residual_value_stm_id ( l_kle_rec.id,

1392: l_return_status,
1393: l_residual_sty_id);
1394:
1395: -- get the residual value stm id
1396: OPEN get_residual_value_stm_id ( l_kle_rec.id,
1397: l_residual_sty_id);
1398: FETCH get_residual_value_stm_id INTO l_residual_stm_id;
1399: CLOSE get_residual_value_stm_id;
1400:

Line 1397: l_residual_sty_id);

1393: l_residual_sty_id);
1394:
1395: -- get the residual value stm id
1396: OPEN get_residual_value_stm_id ( l_kle_rec.id,
1397: l_residual_sty_id);
1398: FETCH get_residual_value_stm_id INTO l_residual_stm_id;
1399: CLOSE get_residual_value_stm_id;
1400:
1401: IF l_return_status = OKL_API.G_RET_STS_SUCCESS

Line 1398: FETCH get_residual_value_stm_id INTO l_residual_stm_id;

1394:
1395: -- get the residual value stm id
1396: OPEN get_residual_value_stm_id ( l_kle_rec.id,
1397: l_residual_sty_id);
1398: FETCH get_residual_value_stm_id INTO l_residual_stm_id;
1399: CLOSE get_residual_value_stm_id;
1400:
1401: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1402: AND l_residual_stm_id IS NOT NULL

Line 1399: CLOSE get_residual_value_stm_id;

1395: -- get the residual value stm id
1396: OPEN get_residual_value_stm_id ( l_kle_rec.id,
1397: l_residual_sty_id);
1398: FETCH get_residual_value_stm_id INTO l_residual_stm_id;
1399: CLOSE get_residual_value_stm_id;
1400:
1401: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1402: AND l_residual_stm_id IS NOT NULL
1403: AND l_residual_stm_id <> OKL_API.G_MISS_NUM THEN

Line 1402: AND l_residual_stm_id IS NOT NULL

1398: FETCH get_residual_value_stm_id INTO l_residual_stm_id;
1399: CLOSE get_residual_value_stm_id;
1400:
1401: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1402: AND l_residual_stm_id IS NOT NULL
1403: AND l_residual_stm_id <> OKL_API.G_MISS_NUM THEN
1404:
1405: -- Check KLE RESIDUAL Stream HDR securitized
1406: OKL_SECURITIZATION_PVT.check_stm_securitized(

Line 1403: AND l_residual_stm_id <> OKL_API.G_MISS_NUM THEN

1399: CLOSE get_residual_value_stm_id;
1400:
1401: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1402: AND l_residual_stm_id IS NOT NULL
1403: AND l_residual_stm_id <> OKL_API.G_MISS_NUM THEN
1404:
1405: -- Check KLE RESIDUAL Stream HDR securitized
1406: OKL_SECURITIZATION_PVT.check_stm_securitized(
1407: p_api_version => p_api_version,

Line 1405: -- Check KLE RESIDUAL Stream HDR securitized

1401: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1402: AND l_residual_stm_id IS NOT NULL
1403: AND l_residual_stm_id <> OKL_API.G_MISS_NUM THEN
1404:
1405: -- Check KLE RESIDUAL Stream HDR securitized
1406: OKL_SECURITIZATION_PVT.check_stm_securitized(
1407: p_api_version => p_api_version,
1408: p_init_msg_list => OKL_API.G_FALSE,
1409: x_return_status => l_return_status,

Line 1412: p_stm_id => l_residual_stm_id,

1408: p_init_msg_list => OKL_API.G_FALSE,
1409: x_return_status => l_return_status,
1410: x_msg_count => x_msg_count,
1411: x_msg_data => x_msg_data,
1412: p_stm_id => l_residual_stm_id,
1413: p_effective_date => sysdate,
1414: x_value => l_is_securitized);
1415:
1416: END IF;

Line 1419: -- DO NOT DO VENDOR SHARE IF RESIDUAL SECURITIZED

1415:
1416: END IF;
1417:
1418:
1419: -- DO NOT DO VENDOR SHARE IF RESIDUAL SECURITIZED
1420: IF l_return_status = OKL_API.G_RET_STS_SUCCESS
1421: AND nvl(l_is_securitized,OKL_API.G_FALSE)= OKL_API.G_FALSE THEN
1422:
1423: l_assets_found := 'Y';

Line 1461: FND_FILE.put_line(FND_FILE.output, ' No Assets Found for Vendor Residual Sharing');

1457: END IF;
1458:
1459: IF l_assets_found = 'N' THEN
1460:
1461: FND_FILE.put_line(FND_FILE.output, ' No Assets Found for Vendor Residual Sharing');
1462: FND_FILE.put_line(FND_FILE.log, ' No Assets Found for Vendor Residual Sharing');
1463:
1464: END IF;
1465:

Line 1462: FND_FILE.put_line(FND_FILE.log, ' No Assets Found for Vendor Residual Sharing');

1458:
1459: IF l_assets_found = 'N' THEN
1460:
1461: FND_FILE.put_line(FND_FILE.output, ' No Assets Found for Vendor Residual Sharing');
1462: FND_FILE.put_line(FND_FILE.log, ' No Assets Found for Vendor Residual Sharing');
1463:
1464: END IF;
1465:
1466: -- set return status

Line 1628: l_term_heading := 'OKL Report : Vendor Residual Share Report';

1624:
1625: BEGIN
1626:
1627: l_orcl_logo := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_ACCT_LEASE_MANAGEMENT');
1628: l_term_heading := 'OKL Report : Vendor Residual Share Report';
1629: l_set_of_books := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_SET_OF_BOOKS');
1630: l_run_date := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_RUN_DATE');
1631: l_eop := OKL_ACCOUNTING_UTIL.get_message_token('OKL_AM_CONC_OUTPUT','OKL_END_OF_REPORT');
1632:

Line 1762: -- Description : Vendor Residual Share report

1758:
1759: -- Start of comments
1760: --
1761: -- Procedure Name : concurrent_vend_res_share_rpt
1762: -- Description : Vendor Residual Share report
1763: -- Business Rules :
1764: -- Parameters :
1765: -- Version : 1.0
1766: -- History : RMUNJULU Created

Line 1791: TAL.residual_shr_amount ||' '|| CHR.currency_code VENDOR_SHARE

1787: CLE.date_terminated ASSET_TERMINATION_DATE,
1788: PPD.vendor_name VENDOR,
1789: TAL.fa_trx_date DISPOSITION_DATE,
1790: --VPA.contract_number ||' '|| CHR.currency_code VENDOR_SHARE
1791: TAL.residual_shr_amount ||' '|| CHR.currency_code VENDOR_SHARE
1792: FROM OKC_K_LINES_V CLE,
1793: OKC_K_HEADERS_B CHR,
1794: OKC_K_HEADERS_B VPA,
1795: OKL_K_HEADERS KHR,

Line 1806: AND PPD.CPL_ID = TAL.RESIDUAL_SHR_PARTY_ID;

1802: AND TAL.KLE_ID = CLE.ID
1803: AND CLE.CHR_ID = CHR.ID
1804: AND CHR.ID = KHR.ID
1805: AND KHR.KHR_ID = VPA.ID
1806: AND PPD.CPL_ID = TAL.RESIDUAL_SHR_PARTY_ID;
1807:
1808: l_return_status VARCHAR2(3);
1809: l_msg_count NUMBER;
1810: l_msg_data VARCHAR2(2000);

Line 1859: -- select ' a '|| '||' || ' b ' from dual;

1855: lp_asst_end_dt_to DATE;
1856:
1857: BEGIN
1858:
1859: -- select ' a '|| '||' || ' b ' from dual;
1860: -- select ' a '|| '''vrs''' || ' b ' from dual;
1861: -- bad -----> EXECUTE IMMEDIATE 'DELETE FROM dept WHERE deptno = ' || to_char (my_deptno);
1862: -- good ----> EXECUTE IMMEDIATE 'DELETE FROM dept WHERE deptno = :1' USING my_deptno;
1863:

Line 1860: -- select ' a '|| '''vrs''' || ' b ' from dual;

1856:
1857: BEGIN
1858:
1859: -- select ' a '|| '||' || ' b ' from dual;
1860: -- select ' a '|| '''vrs''' || ' b ' from dual;
1861: -- bad -----> EXECUTE IMMEDIATE 'DELETE FROM dept WHERE deptno = ' || to_char (my_deptno);
1862: -- good ----> EXECUTE IMMEDIATE 'DELETE FROM dept WHERE deptno = :1' USING my_deptno;
1863:
1864: -- Initialize message list

Line 1870: l_select_sql_2 := ' CLE.date_terminated ASSET_TERMINATION_DATE,PPD.vendor_name VENDOR, TAL.fa_trx_date, TAL.residual_shr_amount ||' || ''' ''' || '|| TAL.currency_code VENDOR_SHARE';

1866:
1867: l_api_version := TO_NUMBER(p_api_version);
1868:
1869: l_select_sql_1 := ' SELECT VPA.contract_number PROGRAM_AGREEMENT,CLE.name ASSET_NUMBER,CLE.item_description ASSET_DESCRIPTION,CHR.contract_number CONTRACT_NUMBER, ';
1870: l_select_sql_2 := ' CLE.date_terminated ASSET_TERMINATION_DATE,PPD.vendor_name VENDOR, TAL.fa_trx_date, TAL.residual_shr_amount ||' || ''' ''' || '|| TAL.currency_code VENDOR_SHARE';
1871: l_from_sql_1 := ' FROM OKC_K_LINES_V CLE,OKC_K_HEADERS_B CHR,OKC_K_HEADERS_B VPA,OKL_K_HEADERS KHR,OKL_TRX_ASSETS TAS,OKL_TXL_ASSETS_B TAL,OKL_PARTY_PAYMENT_DTLS_UV PPD';
1872: l_where_sql_1 := ' WHERE TAL.TAS_ID = TAS.ID AND TAS.TAS_TYPE = '||'''VRS'''||' AND TAL.TAL_TYPE = '||'''VRS'''||' ';
1873: l_where_sql_2 := ' AND TAL.KLE_ID = CLE.ID AND CLE.CHR_ID = CHR.ID AND CHR.ID = KHR.ID AND KHR.KHR_ID = VPA.ID AND PPD.CPL_ID = TAL.RESIDUAL_SHR_PARTY_ID ';
1874:

Line 1873: l_where_sql_2 := ' AND TAL.KLE_ID = CLE.ID AND CLE.CHR_ID = CHR.ID AND CHR.ID = KHR.ID AND KHR.KHR_ID = VPA.ID AND PPD.CPL_ID = TAL.RESIDUAL_SHR_PARTY_ID ';

1869: l_select_sql_1 := ' SELECT VPA.contract_number PROGRAM_AGREEMENT,CLE.name ASSET_NUMBER,CLE.item_description ASSET_DESCRIPTION,CHR.contract_number CONTRACT_NUMBER, ';
1870: l_select_sql_2 := ' CLE.date_terminated ASSET_TERMINATION_DATE,PPD.vendor_name VENDOR, TAL.fa_trx_date, TAL.residual_shr_amount ||' || ''' ''' || '|| TAL.currency_code VENDOR_SHARE';
1871: l_from_sql_1 := ' FROM OKC_K_LINES_V CLE,OKC_K_HEADERS_B CHR,OKC_K_HEADERS_B VPA,OKL_K_HEADERS KHR,OKL_TRX_ASSETS TAS,OKL_TXL_ASSETS_B TAL,OKL_PARTY_PAYMENT_DTLS_UV PPD';
1872: l_where_sql_1 := ' WHERE TAL.TAS_ID = TAS.ID AND TAS.TAS_TYPE = '||'''VRS'''||' AND TAL.TAL_TYPE = '||'''VRS'''||' ';
1873: l_where_sql_2 := ' AND TAL.KLE_ID = CLE.ID AND CLE.CHR_ID = CHR.ID AND CHR.ID = KHR.ID AND KHR.KHR_ID = VPA.ID AND PPD.CPL_ID = TAL.RESIDUAL_SHR_PARTY_ID ';
1874:
1875: l_total_sql := l_select_sql_1 || l_select_sql_2 ||
1876: l_from_sql_1 ||
1877: l_where_sql_1 || l_where_sql_2;

Line 2000: l_where_sql_2 := ' AND TAL.KLE_ID = CLE.ID AND CLE.CHR_ID = CHR.ID AND CHR.ID = KHR.ID AND KHR.KHR_ID = VPA.ID AND PPD.CPL_ID = TAL.RESIDUAL_SHR_PARTY_ID ';

1996: -- Forming the where clause condition for the XML publisher report.
1997: -- Step 1 : Form the static part of the where clause that is independent of the input parameters.
1998: -- Step 2 : Concatenate the where clause from Step1 with the conditions based on the input parameters.
1999: l_where_sql_1 := ' WHERE TAL.TAS_ID = TAS.ID AND TAS.TAS_TYPE = '||'''VRS'''||' AND TAL.TAL_TYPE = '||'''VRS'''||' ';
2000: l_where_sql_2 := ' AND TAL.KLE_ID = CLE.ID AND CLE.CHR_ID = CHR.ID AND CHR.ID = KHR.ID AND KHR.KHR_ID = VPA.ID AND PPD.CPL_ID = TAL.RESIDUAL_SHR_PARTY_ID ';
2001:
2002: WHERE_CLAUSE := l_where_sql_1 || l_where_sql_2;
2003:
2004: IF P_ASSET_NUMBER IS NOT NULL THEN