19: date_terminated,
20: date_renewed,
21: application_id,
22: scs_code
23: FROM okc_k_headers_b
24: WHERE id = p_terminate_in_parameters_rec.p_contract_id;
25:
26:
27: -- Will not need object_version_number this termination is an adverse step. Even if there
50:
51: -- CURSOR cur_old_contract is
52: -- select contract_number,
53: -- contract_number_modifier
54: -- from okc_k_headers_b
55: -- where chr_id_renewed = p_terminate_in_parameters_rec.p_contract_id;
56:
57: CURSOR cur_old_contract(p_chr_id number) IS
58: SELECT k.contract_number,k.contract_number_modifier
55: -- where chr_id_renewed = p_terminate_in_parameters_rec.p_contract_id;
56:
57: CURSOR cur_old_contract(p_chr_id number) IS
58: SELECT k.contract_number,k.contract_number_modifier
59: FROM okc_k_headers_b K,okc_operation_lines A,
60: okc_operation_instances B,okc_class_operations C
61: WHERE K.id=A.subject_chr_id
62: AND A.object_chr_id=p_chr_id AND
63: C.id=B.cop_id and C.opn_code='RENEWAL'
233: l_sts_code VARCHAR2(100);
234: l_cls_code VARCHAR2(100);
235: l_template_yn VARCHAR2(10);
236: l_code VARCHAR2(100);
237: l_app_id okc_k_headers_b.application_id%TYPE;
238: l_scs_code okc_k_headers_b.scs_code%TYPE;
239: l_k VARCHAR2(255);
240: l_mod okc_k_headers_b.contract_number_modifier%TYPE DEFAULT OKC_API.G_MISS_CHAR;
241: l_return_value VARCHAR2(1) := 'Y';
234: l_cls_code VARCHAR2(100);
235: l_template_yn VARCHAR2(10);
236: l_code VARCHAR2(100);
237: l_app_id okc_k_headers_b.application_id%TYPE;
238: l_scs_code okc_k_headers_b.scs_code%TYPE;
239: l_k VARCHAR2(255);
240: l_mod okc_k_headers_b.contract_number_modifier%TYPE DEFAULT OKC_API.G_MISS_CHAR;
241: l_return_value VARCHAR2(1) := 'Y';
242: L1_RETURN_STATUS varchar2(3);
236: l_code VARCHAR2(100);
237: l_app_id okc_k_headers_b.application_id%TYPE;
238: l_scs_code okc_k_headers_b.scs_code%TYPE;
239: l_k VARCHAR2(255);
240: l_mod okc_k_headers_b.contract_number_modifier%TYPE DEFAULT OKC_API.G_MISS_CHAR;
241: l_return_value VARCHAR2(1) := 'Y';
242: L1_RETURN_STATUS varchar2(3);
243:
244: CURSOR c_chr IS
243:
244: CURSOR c_chr IS
245: SELECT sts_code, template_yn, application_id, scs_code ,contract_number,
246: contract_number_modifier
247: FROM okc_k_headers_b
248: WHERE id = p_chr_id;
249:
250: CURSOR c_sts(p_code IN VARCHAR2) IS
251: SELECT ste_code