366: BEGIN
367: IF (x_return_status<>OKC_API.G_RET_STS_ERROR) THEN
368: SELECT 1 /*+ FIRST_ROWS */
369: INTO lbuyer_contact 370: FROM okc_contacts okcc, 371: okc_k_party_roles_b okpr
372: WHERE okcc.dnz_chr_id = okpr.dnz_chr_id
373: AND okcc.cro_code = 'BUYER'
374: AND okpr.rle_code = 'CUSTOMER'