oracle procedure error- Loading data into external table

PROCEDURE load_purple_top_data IS
      F UTL_FILE.FILE_TYPE;
      V_LINE VARCHAR2 (1000);
      V_UNIT_ID VARCHAR2(25);
	  V_HGB NUMBER;
      V_PLT NUMBER;
	  v_procedure_c constant varchar2(30) := 'load_purple_top_data';
	  v_location_i integer;	  	
	  v_donor_id varchar2(10);
	  v_gender   varchar2(1);
	  v_date_of_birth date;
	  v_first_name varchar2(25);
	  v_last_name varchar2(30);
	  v_middle_name varchar2(25);
	  v_blood_type varchar2(5);
	  v_ethnic_group varchar2(5);
	  v_street_name varchar2(50); 
	  v_suite_apt varchar2(10);
	  v_city   varchar2(40); 
	  v_state  varchar2(2); 
	  v_zip varchar2(5);
	  v_email varchar2(128);
	  v_d_phone_no varchar2(15); 
	  v_h_phone_no varchar2(15);
	  v_coll_date date;
	 

Cursor C1 is
select distinct d.donor_id,gender,date_of_birth,first_name,
       last_name,middle_name,blood_type,ethnic_group,
	   street_name, suite_apt,city, state, zip, da.email,
	   d_area_code||d_phone_no as d_phone_no, 
	   h_area_code||h_phone_no as h_phone_no,do.coll_date
  from donors_don d, donations_don do,
       donor_addresses_don da,
       valid_city_state_don vcs 
  where d.donor_id = do.donor_id
    and da.donor_id = d.donor_id
	and da.usps_id = vcs.usps_id
	and do.unit_id = v_unit_id;
	
BEGIN
v_location_i := 1000;

	  F := UTL_FILE.FOPEN ('PURPLE_TOP_DIR', '06022015.csv', 'R');
v_location_i := 2000;	  
    IF UTL_FILE.IS_OPEN(F) THEN
      LOOP
        BEGIN
          UTL_FILE.GET_LINE(F, V_LINE, 1000);
          IF V_LINE IS NULL THEN
            EXIT;
          END IF;
		  v_location_i := 3000;
		  V_UNIT_ID := substr(V_LINE,1,instr(V_LINE,',',1,1)-1);
          V_HGB := substr(V_LINE, instr(V_LINE,',',1,1)+1, instr(V_LINE,',',1,2) - instr(V_LINE,',',1,1)-1 );
          V_PLT := substr(V_LINE, instr(V_LINE,',',1,2)+1);
 v_location_i := 4000;       
		OPEN C1;
          LOOP
           FETCH C1 INTO v_donor_id,v_gender,v_date_of_birth,v_first_name,
                         v_last_name,v_middle_name,v_blood_type,v_ethnic_group,
	                     v_street_name, v_suite_apt,v_city, v_state, v_zip, v_email,
	   					 v_d_phone_no, v_h_phone_no,v_coll_date;
		  EXIT WHEN C1%NOTFOUND;
		     INSERT INTO DS_PURPLE_TOP (DONOR_ID, 
			 			 				  GENDER, 
										  DATE_OF_BIRTH, 
										  FIRST_NAME, 
										  LAST_NAME, 
										  MIDDLE_NAME, 
										  BLOOD_TYPE, 
										  ETHNIC_GROUP, 
										  STREET_NAME, 
										  SUITE_APT, 
										  CITY, 
										  STATE, 
										  ZIP, 
										  EMAIL, 
										  D_PHONE_NO, 
										  H_PHONE_NO, 
										  UNIT_ID, 
										  HGB, 
										  PLT,
										  COLL_DATE)--HEIGHT_FT, HEIGHT_INCHES, WEIGHT 
			                       VALUES(v_donor_id,
								 		  v_gender,
										  v_date_of_birth ,
										  v_first_name,
										  v_last_name ,
										  v_middle_name ,
										  v_blood_type ,
										  v_ethnic_group ,
										  v_street_name ,
										  v_suite_apt ,
										  v_city  , 
										  v_state  , 
										  v_zip ,
										  v_email ,
										  v_d_phone_no , 
										  v_h_phone_no,
										  v_unit_id,
										  v_hgb,
										  v_plt,
										  v_coll_date);
          COMMIT;
		  END LOOP;
		CLOSE C1;
		EXCEPTION
        WHEN NO_DATA_FOUND THEN
          	 EXIT;
        when PU_FAILURE then
      		 raise PU_FAILURE;
		when OTHERS then

--    Send email notification that the process failed.
                             
      dbms_output.put_line('Error in ' || pg_package_c || '.' || v_procedure_c ||
                    ' at line: ' || v_location_i);
      dbms_output.put_line(sqlerrm);
      
      tsc_spu_pkg.capture_error_vars;
      tsc_spu_pkg.analyze_error(tsc_globals_pkg.sg_system_prefix_c);
      tsc_spu_pkg.log_error(tsc_globals_pkg.sg_system_prefix_c,
                            pg_package_c,
                            v_procedure_c,
                            v_location_i,
                            tsc_globals_pkg.sg_current_user_c,
                            'No Parameters.');
      raise_application_error(-20000, tsc_spu_pkg.get_friendly_error);
		END;
      END LOOP;
    END IF;
    UTL_FILE.FCLOSE(F);
END load_purple_top_data;

Select allOpen in new window