with program(program_id,program_level,parent_id) as
(
 select -3,1,null from dual union all
 select 1,1,null from dual union all
 select -1,1,null from dual union all
 select -2,1,null from dual union all
 select 2,2,1 from dual union all
 select 3,2,1 from dual union all
 select 4,2,1 from dual union all
 select 729,2,1 from dual union all
 select 1169,2,1 from dual union all
 select 1320,2,1 from dual union all
 select 1171,2,1 from dual union all
 select 1150,2,1 from dual union all
 select 1170,2,1 from dual union all
 select 1152,2,1 from dual union all
 select 1151,2,729 from dual union all
 select 5,3,2 from dual union all
 select 6,3,2 from dual union all
 select 1323,3,2 from dual union all
 select 1620,3,2 from dual union all
 select 1547,3,2 from dual union all
 select 1541,3,2 from dual union all
 select 1531,3,2 from dual union all
 select 1190,3,2 from dual union all
 select 1189,3,2 from dual union all
 select 1188,3,2 from dual union all
 select 1185,3,2 from dual union all
 select 1201,3,2 from dual union all
 select 1200,3,2 from dual union all
 select 1154,3,2 from dual union all
 select 1149,3,2 from dual union all
 select 1145,3,2 from dual union all
 select 1014,3,2 from dual union all
 select 1009,3,2 from dual union all
 select 1001,3,2 from dual union all
 select 1174,3,2 from dual
),
r(program_id,program_level,parent_id) as
(
   select  program_id,program_level,parent_id
     from  program
     where program_id = 3
  union all
   select  p.program_id,p.program_level,p.parent_id
    from  r,
          program p
    where r.parent_id = p.program_id
)
select  *
  from  r
  where program_level = 1
/


PROGRAM_ID PROGRAM_LEVEL  PARENT_ID
---------- ------------- ----------
         1             1

SQL>