[Home] [Help]
3948: --active_yn = 'N'. So we want to get the active renewals (such as entered/signed status etc) first
3949: CURSOR c_check_hdr_renew (cp_chr_id IN NUMBER) IS
3950: SELECT k.contract_number, k.contract_number_modifier, st.ste_code
3951: FROM okc_operation_lines ol, okc_operation_instances oi, okc_class_operations oo,
3952: okc_statuses_b st, okc_k_headers_all_b k
3953: WHERE oo.cls_code = 'SERVICE' AND oo.opn_code = 'RENEWAL'
3954: AND oo.id = oi.cop_id
3955: AND ol.oie_id = oi.id AND ol.object_chr_id = cp_chr_id
3956: AND ol.subject_chr_id IS NOT NULL AND ol.object_cle_id IS NULL
3990: --we need to do line level checks only if a valid line exists, other wise we get
3991: --redundant error messages
3992: CURSOR c_check_valid_line(cp_chr_id IN NUMBER) IS
3993: SELECT id
3994: FROM okc_k_lines_b kl, okc_statuses_b st
3995: WHERE kl.dnz_chr_id = cp_chr_id AND kl.lse_id IN (7, 8, 9, 10, 11, 13, 25, 35, 46)
3996: AND kl.sts_code = st.ste_code
3997: AND st.ste_code IN ('ACTIVE', 'EXPIRED', 'SIGNED', 'CANCELLED', 'TERMINATED');
3998:
3998:
3999: l_k_app_id okc_k_headers_b.application_id%TYPE;
4000: l_k_num okc_k_headers_b.contract_number%TYPE;
4001: l_k_mod okc_k_headers_b.contract_number_modifier%TYPE;
4002: l_k_ste_code okc_statuses_b.ste_code%TYPE;
4003: l_k_ste_meaning okc_statuses_tl.meaning%TYPE;
4004: l_k_scs_code okc_k_headers_b.scs_code%TYPE;
4005: l_k_template_yn okc_k_headers_b.template_yn%TYPE;
4006: l_k_date_terminated okc_k_headers_b.date_terminated%TYPE;
4017: l_k_ren_type oks_k_defaults.renewal_type%TYPE;
4018:
4019: l_renk_num okc_k_headers_b.contract_number%TYPE;
4020: l_renk_mod okc_k_headers_b.contract_number_modifier%TYPE;
4021: l_renk_ste_code okc_statuses_b.ste_code%TYPE;
4022: l_valid_line_exists BOOLEAN := FALSE;
4023: BEGIN
4024: --log key input parameters
4025: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN