[Home] [Help]
453: ,OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING( 'OKL_UPG_INTRANSIT_CAT',p_in_transit_category) in_transit_category
454: ,DECODE(p_mode_of_run, 'REVIEW', 'Review', 'SUBMIT', 'Submit' ) mode_of_run
455: ,p_tag_name tag_name
456: ,p_no_of_workers no_of_workers
457: FROM DUAL;
458:
459: -- Cursor to fetch the contracts that were earlier upgraded with a failure.
460: CURSOR get_khr_errored_during_upgrade
461: IS
638: END IF;
639: -- Select sequence for marking processes
640: SELECT okl_opp_seq.NEXTVAL
641: INTO l_seq_next
642: FROM DUAL;
643: log_msg(FND_FILE.LOG, 'Process Sequence ID: ' || l_seq_next );
644: -- Fetch all Contracts eligible for Upgrade and Store them in OKL_PARALLEL_PROCESSES
645: log_msg(FND_FILE.LOG, 'Before calling the Bulk Insert into the OKL_PARALLEL_PROCESSES' );
646: l_query_string :=
755: || ' WHERE trq.request_type_code = ''PRINCIPAL_PAYDOWN'' AND trq.request_status_code NOT IN '
756: || ' (''ACCEPTED'', ''REJECTED'', ''ERROR'' ,''PROCESSED'' '
757: || ' ,''CANCELLED'' ,''REBOOK_IN_PROCESS'' ,''REBOOK_COMPLETE'' ) '
758: || ' AND trq.tcn_id IS NULL AND trq.org_id = ' || p_org_id;
759: ELSIF p_in_transit_category = 'RESIDUAL'
760: THEN
761: -- Residual Value Writedown not Processed
762: l_query_string := l_query_string || ' SELECT l.dnz_khr_id FROM OKL_TRX_ASSETS h, okl_txl_assets_b l '
763: || ' WHERE h.id = l.tas_id AND h.tsu_code IN (''ENTERED'',''ERROR'') AND h.tas_type = ''ARC'' ';
757: || ' ,''CANCELLED'' ,''REBOOK_IN_PROCESS'' ,''REBOOK_COMPLETE'' ) '
758: || ' AND trq.tcn_id IS NULL AND trq.org_id = ' || p_org_id;
759: ELSIF p_in_transit_category = 'RESIDUAL'
760: THEN
761: -- Residual Value Writedown not Processed
762: l_query_string := l_query_string || ' SELECT l.dnz_khr_id FROM OKL_TRX_ASSETS h, okl_txl_assets_b l '
763: || ' WHERE h.id = l.tas_id AND h.tsu_code IN (''ENTERED'',''ERROR'') AND h.tas_type = ''ARC'' ';
764: ELSIF p_in_transit_category = 'TERMINATION'
765: THEN
871: );
872: log_msg(FND_FILE.LOG, 'Checking: Online Rebook not Activated - End: '
873: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
874:
875: -- Case 5: Residual Value Writedown not Processed
876: log_msg(FND_FILE.LOG, 'Checking: Residual Value Writedown not Processed - Start: '
877: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
878: UPDATE OKL_PARALLEL_PROCESSES opp
879: SET process_status = 'OKL_RVWD_NOT_PROCESSED'
872: log_msg(FND_FILE.LOG, 'Checking: Online Rebook not Activated - End: '
873: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
874:
875: -- Case 5: Residual Value Writedown not Processed
876: log_msg(FND_FILE.LOG, 'Checking: Residual Value Writedown not Processed - Start: '
877: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
878: UPDATE OKL_PARALLEL_PROCESSES opp
879: SET process_status = 'OKL_RVWD_NOT_PROCESSED'
880: WHERE opp.object_type = G_ESG_PRB_KHR_UPG_OBJ_TYPE
888: WHERE h.id = l.tas_id
889: AND h.tsu_code IN ('ENTERED','ERROR')
890: AND h.tas_type = 'ARC'
891: );
892: log_msg(FND_FILE.LOG, 'Checking: Residual Value Writedown not Processed - End: '
893: || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS') );
894:
895: -- Case 6: Termination Quote Not Accepted
896: log_msg(FND_FILE.LOG, 'Checking: Termination Quote Not Accepted - Start: '
1108: THEN
1109: l_k_status := 'Online Rebook request has not been processed.';
1110: ELSIF l_non_upg_contracts_tbl(non_upg_index).status = 'OKL_RVWD_NOT_PROCESSED'
1111: THEN
1112: l_k_status := 'Residual Value Writedown has not been processed.';
1113: ELSIF l_non_upg_contracts_tbl(non_upg_index).status = 'OKL_TQ_NOT_ACCEPTED'
1114: THEN
1115: l_k_status := 'Termination Quote has not been Processed.';
1116: ELSIF l_non_upg_contracts_tbl(non_upg_index).status = 'OKL_REVISION_IN_PROGRESS'