[Home] [Help]
640: x_progress := '003';
641: BEGIN
642: SELECT distinct 'Y'
643: INTO x_valid_flag
644: FROM PO_VENDOR_CONTACTS
645: WHERE vendor_contact_id = x_vendor_contact_id
646: AND vendor_site_id = x_vendor_site_id
647: AND SYSDATE < nvl(inactive_date, SYSDATE+1);
648: EXCEPTION