888: x_person_id NUMBER;
889:
890: BEGIN
891: SELECT person_id INTO x_person_id FROM
892: PA_RESOURCE_TXN_ATTRIBUTES WHERE
893: RESOURCE_ID = p_res_id;
894: RETURN x_person_id;
895: EXCEPTION
896: WHEN NO_DATA_FOUND THEN
1002: FROM PA_PROJECT_ASSIGNMENTS PA,
1003: PA_WORK_TYPES_B WB,
1004: PA_PROJECT_ROLE_TYPES PR,
1005: PA_PROJECTS_ALL P,
1006: PA_RESOURCE_TXN_ATTRIBUTES RTA,
1007: PA_FORECAST_ITEMS FI
1008: WHERE PA.PROJECT_ID = p_project_id
1009: AND PA.PROJECT_ROLE_ID = PR.PROJECT_ROLE_ID
1010: AND P.PROJECT_ID = p_project_id