4597: IF x_valid THEN
4598: BEGIN
4599: SELECT PPF.PARTY_ID
4600: INTO P_VENDOR_REC.PARTY_ID
4601: FROM PER_PEOPLE_F PPF
4602: WHERE PPF.PERSON_ID = P_VENDOR_REC.EMPLOYEE_ID
4603: AND TRUNC(SYSDATE) BETWEEN
4604: TRUNC(ppf.effective_start_date) AND
4605: TRUNC(ppf.effective_end_date);