396: BEGIN
397:
398: x_progress := '001';
399:
400: -- Bug# 4546121:All columns that referred to the obsolete columns in po_vendors have
401: -- been nulled out.
402: SELECT null,
403: null,
404: null,
410: x_ship_via_lookup_code,
411: x_fob_lookup_code,
412: x_freight_terms_lu_code,
413: x_terms_id
414: FROM PO_VENDORS
415: WHERE vendor_id = x_vendor_id;
416:
417: EXCEPTION
418: WHEN NO_DATA_FOUND THEN
579: x_progress := '001';
580: BEGIN
581: SELECT distinct 'Y'
582: INTO x_valid_flag
583: FROM PO_VENDORS
584: WHERE vendor_id = x_vendor_id
585: AND enabled_flag = 'Y'
586: AND SYSDATE BETWEEN nvl(start_date_active, SYSDATE-1)
587: AND nvl(end_date_active, SYSDATE+1);