11: --cursor to find if vendor id is the subsidy provider party
12: cursor l_cplb_csr(p_vendor_id in number,
13: p_cpl_id in number) is
14: select 'Y'
15: from okc_k_party_roles_b cplb
16: where id = p_cpl_id
17: and object1_id1 = to_char(p_vendor_id);
18:
19: l_exists varchar2(1) default 'N';
80:
81: --Bug# 4959361
82: CURSOR l_cpl_csr(p_cpl_id IN NUMBER) IS
83: SELECT cle_id
84: FROM okc_k_party_roles_b cpl
85: WHERE cpl.id = p_cpl_id;
86:
87: l_cpl_rec l_cpl_csr%ROWTYPE;
88: --Bug# 4959361
400:
401: --Bug# 4959361
402: CURSOR l_cpl_csr(p_pyd_id IN NUMBER) IS
403: SELECT cpl.cle_id
404: FROM okc_k_party_roles_b cpl,
405: okl_party_payment_dtls pyd
406: WHERE pyd.id = p_pyd_id
407: AND cpl.id = pyd.cpl_id;
408:
574:
575: --Bug# 4959361
576: CURSOR l_cpl_csr(p_cpl_id IN NUMBER) IS
577: SELECT cle_id
578: FROM okc_k_party_roles_b cpl
579: WHERE cpl.id = p_cpl_id;
580:
581: l_cpl_rec l_cpl_csr%ROWTYPE;
582: --Bug# 4959361