Dbms_output.put_line not printing in inner for loop using a parameter

Question

I cannot get the inner loop to print output. I can run both loops independent (hardcoding a value for the inner loop) Any help is apprecicated... Listed is the code
set serveroutput on
DECLARE
cursor ACCNO_CUR is
select accession_number from didb_studies where insert_time > to_date('02-JUN-12');
cursor PATH_CUR (p1_accno VARCHAR2) is
select distinct l.FILE_SYSTEM || '/' ||
substr(LPAD(s.PATIENT_DB_UID, 12, '0'),1,3) || '/' ||
substr(LPAD(s.PATIENT_DB_UID, 12, '0'),4,3) || '/' ||
substr(LPAD(s.PATIENT_DB_UID, 12, '0'),7,3) || '/' ||
substr(LPAD(s.PATIENT_DB_UID, 12, '0'),10,3) || '/' ||
s.STUDY_DB_UID || '/' || i.SERIES_DB_UID || '/'||
i.RAW_IMAGE_DB_UID || '.img' as FULLY_QUALIFIED_IMAGE_NAME
, l.image_size
, i.image_need_backup
, i.sop_class_uid
from medistore.didb_studies s
, medistore.didb_raw_images_table i
, medistore.didb_image_locations l
where s.accession_number = 'p1_accno'
and s.study_db_uid = i.study_db_uid
and i.raw_image_db_uid = l.raw_image_db_uid
and l.file_system is not null and INSTR(l.file_system, '.img') = 0
UNION
select distinct(l.FILE_SYSTEM) as FULLY_QUALIFIED_IMAGE_NAME
, l.image_size
, i.image_need_backup
, i.sop_class_uid
from medistore.didb_studies s, medistore.didb_raw_images_table i,
medistore.didb_image_locations l
where s.accession_number = 'p1_accno'
and s.study_db_uid = i.study_db_uid
and i.raw_image_db_uid = l.raw_image_db_uid
and l.file_system is not null and INSTR(l.file_system, '.img') > 0
order by 1;
BEGIN
FOR accno_rec in accno_cur LOOP
DBMS_OUTPUT.put_line('ACCESSION_NUMBER is: '|| accno_rec.accession_number);
FOR path_rec in path_cur(accno_rec.accession_number) LOOP
DBMS_OUTPUT.put_line('Inner loop accession_number is :'||accno_rec.accession_number);
DBMS_OUTPUT.put_line('Full path is : ' || path_rec.FULLY_QUALIFIED_IMAGE_NAME);
END LOOP;
END LOOP;
END;

Answer 1

Maybe
DECLARE
  cursor ACCNO_CUR is
    select accession_number
      from didb_studies
     where insert_time > to_date('02-JUN-12');
  cursor PATH_CUR (p1_accno VARCHAR2) is
    select distinct
           l.FILE_SYSTEM || '/' ||
           substr(LPAD(s.PATIENT_DB_UID, 12, '0'),1,3) || '/' ||
           substr(LPAD(s.PATIENT_DB_UID, 12, '0'),4,3) || '/' ||
           substr(LPAD(s.PATIENT_DB_UID, 12, '0'),7,3) || '/' ||
           substr(LPAD(s.PATIENT_DB_UID, 12, '0'),10,3) || '/' ||
           s.STUDY_DB_UID || '/' || i.SERIES_DB_UID || '/'||
           i.RAW_IMAGE_DB_UID || '.img' as FULLY_QUALIFIED_IMAGE_NAME,
           l.image_size,
           i.image_need_backup,
           i.sop_class_uid
      from medistore.didb_studies s,
           medistore.didb_raw_images_table i,
           medistore.didb_image_locations l
     where s.accession_number = to_number(p1_accno) /* to_char(s.accession_number) = p1_accno */
       and s.study_db_uid = i.study_db_uid
       and i.raw_image_db_uid = l.raw_image_db_uid
       and l.file_system is not null
       and INSTR(l.file_system, '.img') = 0
    UNION
    select distinct
           l.FILE_SYSTEM as FULLY_QUALIFIED_IMAGE_NAME,
           l.image_size,
           i.image_need_backup,
           i.sop_class_uid
      from medistore.didb_studies s,
           medistore.didb_raw_images_table i,
           medistore.didb_image_locations l
     where s.accession_number = to_number(p1_accno) /* to_char(s.accession_number) = p1_accno */
       and s.study_db_uid = i.study_db_uid
       and i.raw_image_db_uid = l.raw_image_db_uid
       and l.file_system is not null and INSTR(l.file_system, '.img') > 0
     order by 1;
BEGIN
  FOR accno_rec in accno_cur
  LOOP
    DBMS_OUTPUT.put_line('ACCESSION_NUMBER is: '|| accno_rec.accession_number);
    FOR path_rec in path_cur(accno_rec.accession_number)
    LOOP
      DBMS_OUTPUT.put_line('Inner loop accession_number is :'||accno_rec.accession_number);
      DBMS_OUTPUT.put_line('Full path is : ' || path_rec.FULLY_QUALIFIED_IMAGE_NAME);
    END LOOP;
  END LOOP;
END;Regards
Etbin