BEGIN 
    SELECT Max(booking_id) 
           ||1 
    INTO   w_audit_id 
    FROM   lv_bookings; 

    ---select trunc(sysdate)     into w_audit_date from dual; 
    w_tp := Trunc(SYSDATE); 

    w_tp_time := To_char(SYSDATE, 'HH24MISS'); 

    w_tp_type := 'A'; 

    w_userid := 'AutoUpdate'; 

    --- 
    filename := 'I:\leaveEntitle.txt'; --- Open windows explorer  

    in_file := text_io.Fopen(filename, 'R'); 

    --- 
    reportname := 'C:\temp\leaveEntitle_LOG.txt'; --- Open windows explorer  

    report_outpf := text_io.Fopen(reportname, 'W'); 

    ---                                                                                
    LOOP 
        --- until spreadsheet file is exhausted...                                  
        --- 
        cnt := cnt + 1; 

        text_io.Get_line(in_file, linebuf); 
        ---- Reads in a csv file into working area linebuf 

        ---  
        IF Rtrim(linebuf) IS NOT NULL THEN 
          v_employee# := Lpad(Get_excel_row_itm(Rtrim(linebuf), 1, 3), 5, '0'); 

          v_next_travel_out := To_date(Rtrim(Get_excel_row_itm(linebuf, 2, 3)), 
                               'RRRR-MM-DD'); 

          v_next_travel_in := To_date(Rtrim(Get_excel_row_itm(linebuf, 3, 3)), 
                              'RRRR-MM-DD'); 

          --- 
          Message(cnt 
                  ||' Loading : ' 
                  ||v_employee#, no_acknowledge); 

          synchronize; 

          DECLARE 
              CURSOR c1 IS 
                SELECT 'YEP' 
                FROM   ot_infl_dload 
                WHERE  employee# = v_employee# 
                       AND ( ( next_travel_out = v_next_travel_out 
                               AND next_travel_in = v_next_travel_in ) 
                              OR v_next_travel_out <= next_travel_in 
                              OR ( v_next_travel_out > next_travel_in 
                                   AND v_next_travel_out <= next_travel_in + 15 
                                 ) 
                              OR v_next_travel_out + 15 < v_next_travel_in ); 
              yep VARCHAR2(3) := 'noo'; 
          BEGIN 
              yep := 'noo'; 

              OPEN c1; 

              FETCH c1 INTO yep; 

              CLOSE c1; 

              --- 
              IF yep = 'noo' THEN 
                INSERT INTO ot_infl_dload 
                VALUES      ( v_employee#, 
                             v_next_travel_out, 
                             v_next_travel_in, 
                             v_date_uploaded, 
                             '' ); 

                COMMIT; 
              ---else 
              ---message('Record exists for employee: '||v_employee#,no_acknowledge);synchronize; 
              END IF; 
          END; 
        END IF; 
    --- 
    END LOOP; 
--- 
EXCEPTION 
    WHEN no_data_found THEN 
      NULL; 
END;