[Home] [Help]
3260: begin
3261: select meaning into l_ext_cert_val
3262: from fnd_lookup_values
3263: where lookup_type like 'FV_EXTERNAL_CERTIFICATION'
3264: and lookup_code =(select code from fv_ccr_class_codes where duns = p_duns
3265: and codetype like 'External Certification' AND code like 'DFD%'
3266: AND ROWNUM <=1)
3267: and language = Userenv('LANG');
3268: exception when no_data_found then
3274: begin
3275: select meaning into l_ext_cert_val
3276: from fnd_lookup_values
3277: where lookup_type like 'FV_EXTERNAL_CERTIFICATION'
3278: and lookup_code =(select code from fv_ccr_class_codes where duns = p_duns
3279: and codetype like 'External Certification' AND code like 'EPL%'
3280: AND ROWNUM <=1)
3281: and language = Userenv('LANG');
3282: exception when no_data_found then
3368: begin
3369: select substr(code, (instr(code, '^', 1,1) + 1), ((instr(code, '^', 1,2)- instr(code, '^', 1,1))-1) ) ,
3370: substr(code, (instr(code, '^', 1,2) + 1), ((instr(code, '^', 1,3)- instr(code, '^', 1,2))-1) )
3371: into l_lse, l_lsr
3372: from fv_ccr_class_codes where duns = p_duns and codetype like 'CCR Numerics' and code like 'LS%'
3373: and rownum<=1;
3374: exception when no_data_found then
3375: null;
3376: end;
3386: substr(code, (instr(code, '^', 1,2) + 1), ((instr(code, '^', 1,3)- instr(code, '^', 1,2))-1) ) ,
3387: substr(code, (instr(code, '^', 1,3) + 1), ((instr(code, '^', 1,4)- instr(code, '^', 1,3))-1) ) ,
3388: substr(code, (instr(code, '^', 1,4) + 1), ((length(code)- instr(code, '^', 1,4))) )
3389: into l_cblc, l_cbla, l_sblc, l_sbla
3390: from fv_ccr_class_codes where duns = p_duns and codetype like 'CCR Numerics' and code like 'BL%'
3391: and rownum<=1;
3392: exception when no_data_found then
3393: null;
3394: end;
3402: if(p_code = 'BK') then
3403: begin
3404: select substr(code, (instr(code, '^', 1,1) + 1), ((instr(code, '^', 1,2)- instr(code, '^', 1,1))-1) )
3405: into l_bk
3406: from fv_ccr_class_codes where duns = p_duns and codetype like 'CCR Numerics' and code like 'BK%'
3407: and rownum<=1;
3408: exception when no_data_found then
3409: null;
3410: end;
3414: if(p_code = 'PG') then
3415: begin
3416: select substr(code, (instr(code, '^', 1,1) + 1), ((instr(code, '^', 1,2)- instr(code, '^', 1,1))-1) )
3417: into l_pg
3418: from fv_ccr_class_codes where duns = p_duns and codetype like 'CCR Numerics' and code like 'PG%'
3419: and rownum<=1;
3420: exception when no_data_found then
3421: null;
3422: end;
3427: if(p_code = 'PT') then
3428: begin
3429: select substr(code, (instr(code, '^', 1,1) + 1), ((instr(code, '^', 1,2)- instr(code, '^', 1,1))-1) )
3430: into l_pt
3431: from fv_ccr_class_codes where duns = p_duns and codetype like 'CCR Numerics' and code like 'PT%'
3432: and rownum<=1;
3433: exception when no_data_found then
3434: null;
3435: end;
3544: x_msg_data varchar2) return boolean
3545: is
3546: l_duns_number fv_ccr_vendors.duns%type;
3547: l_module_name VARCHAR2(60);
3548: l_debar_code fv_ccr_class_codes.code%type;
3549:
3550: begin
3551: l_module_name := 'fv.plsql.FV_CCR_UTIL_PVT.get_supplier_debarred';
3552: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'BEGIN');
3551: l_module_name := 'fv.plsql.FV_CCR_UTIL_PVT.get_supplier_debarred';
3552: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'BEGIN');
3553:
3554: select fcc.code into l_debar_code
3555: from fv_ccr_vendors fcv, fv_ccr_class_codes fcc, fv_ccr_orgs fco
3556: where fcv.duns = fcc.duns(+)
3557: and fcv.ccr_id = fco.ccr_id(+)
3558: and fcv.vendor_id = p_supplier_id
3559: and fco.pay_site_id = p_supplier_site_id;