2101: x_return_status := okl_api.g_ret_sts_success;
2102:
2103: SELECT SYSDATE
2104: INTO db_sysdate
2105: FROM DUAL;
2106:
2107: -- Check if value passed for contract number
2108: IF p_contract_id IS NOT NULL AND p_contract_id <> okl_api.g_miss_num THEN
2109: FOR single_k_rec IN single_k_csr (p_contract_id)
4043:
4044: -- Select sequence for marking processes
4045: SELECT okl_opp_seq.NEXTVAL
4046: INTO l_seq_next
4047: FROM DUAL;
4048:
4049: -- mark records for processing
4050: FOR chk_update_header_csr_rec IN chk_update_header_csr
4051: LOOP