12: IS
13: cursor c_get_quote_type (p_contract_id IN NUMBER ) is
14: select RULE_INFORMATION3
15: from okc_rules_b rul,
16: okl_k_headers khr
17: where rul.dnz_chr_id =khr.khr_id
18: and khr.id =p_contract_id
19: and RULE_INFORMATION_CATEGORY ='CORPUR';
20: l_type okl_trx_quotes_b.qtp_code%TYPE;
320:
321: Cursor c_get_cpl_id(p_contract_id IN NUMBER) is
322: SELECT party.id
323: FROM okl_am_k_party_roles_uv party,
324: okl_k_headers khr
325: WHERE party.dnz_chr_id =khr.khr_id
326: and khr.id=p_contract_id
327: AND party.rle_code = 'OKL_VENDOR';
328:
1287: ,lease.contract_number contract_number
1288: ,rgp.rgd_code
1289: FROM okc_k_headers_b prog,
1290: okc_k_headers_b lease,
1291: okl_k_headers khr,
1292: okc_rule_groups_b rgp
1293: WHERE khr.id = lease.id
1294: AND khr.khr_id = prog.id
1295: AND prog.scs_code = 'PROGRAM'