type refcur is ref cursor;
sSql long;

CURSOR curPatients IS
Select  PT, S.NO_YES, S.VISIT 
from responsest
where S.NO_YES = 'Y' 
and S.VISIT is NOT NULL;

PT_NUM := RXCPDSTD.PATIENTS_REC.PATIENT_POSITION_ID;

OPEN curPatients;

    LOOP --on patient
		FETCH curPatients INTO pt_num, SCRN_FAIL, VISIT_FAIL;
        EXIT WHEN curPatients%NOTFOUND;

          -- get app_id from imaging
		Select app_id 
		  into napp_id 
		  from application@crfprod 
		  where APP_LONG_DESC LIKE 'IMG001%';

END LOOP;--on patient




dbms_output.put_line( NAPP_ID);