Job and relevant details in single query

SELECT A.EMPLID,
E.NAME,
A.EFFDT,
A.DEPTID,
C.DESCR AS DepartmentName,
A.JOBCODE,
B.DESCR AS JobCdName,
A.EMPL_STATUS,
A.ACTION,
A.ACTION_DT,
A.ACTION_REASON,
A.LOCATION,
D.DESCR AS LOCATIONNAME,
A.FLSA_STATUS,
DECODE(A.FULL_PART_TIME,’F’,’Fulltime’,’P’,’Parttime’) As FUll_PART_TIME,
A.COMPANY,
A.PAYGROUP,
A.EMPL_TYPE,
A.EMPL_CLASS,
A.SUPERVISOR_ID,
F.NAME
FROM PS_JOB A ,
sysadm.PS_JOBCODE_TBL_VW B,
sysadm.PS_DEPT_TBL C,
sysadm.PS_LOCATION_TBL D ,
sysadm.PS_NAMES E,
sysadm.PS_NAMES F
WHERE LENGTH (A.EMPLID) > 7
AND A.EFFDT =
(SELECT MAX (A1.EFFDT)
FROM PS_JOB A1
WHERE A1.EMPLID = A.EMPLID
AND A1.EMPL_RCD = A.EMPL_RCD
AND A1.EFFDT <= SYSDATE)
AND A.EFFSEQ =
(SELECT MAX (A2.EFFSEQ)
FROM PS_JOB A2
WHERE A2.EMPLID = A.EMPLID
AND A2.EMPL_RCD = A.EMPL_RCD
AND A2.EFFDT = A.EFFDT)
AND A.JOBCODE = B.JOBCODE
AND A.DEPTID = C.DEPTID
AND C.EFF_STATUS = ‘A’
AND C.EFFDT =
(SELECT MAX (C1.EFFDT)
FROM PS_DEPT_TBL C1
WHERE C1.DEPTID = C.DEPTID
AND C1.EFFDT <= SYSDATE
AND C.SETID = C1.SETID)
AND A.LOCATION = D.LOCATION
AND D.EFF_STATUS = ‘A’
AND D.EFFDT =
(SELECT MAX (D1.EFFDT)
FROM PS_LOCATION_TBL D1
WHERE D1.LOCATION = D.LOCATION
AND D1.EFFDT <= SYSDATE
AND D.SETID = D1.SETID)
AND A.EMPLID = E.EMPLID
AND E.EFFDT =
(SELECT MAX (E1.EFFDT)
FROM PS_NAMES E1
WHERE E1.EMPLID = E.EMPLID
AND E1.EFFDT <= SYSDATE)
AND A.EMPLID(+) = F.EMPLID
AND F.EFFDT =
(SELECT MAX (F1.EFFDT)
FROM PS_NAMES F1
WHERE F1.EMPLID = F.EMPLID
AND F1.EFFDT <= SYSDATE)