Process one set of primary and secondary records at a time

Question

Need to read and analyze all service lines for every claim
I wrote these Statements but they are in a never ending state despite of the fact of setting the claims range to one day.
Thank you for any suggestions.
Harry
set serveroutput on
declare
v_claim1 varchar2(12):='080010000000';
v_claim2 varchar2(12):='080019999999';
fd_claim varchar2(12):=' ';
mismatch number:=0;
v_outfile UTL_FILE.FILE_TYPE;
v_outfile_name constant varchar2(100):= 'prvmm.dat';
v_outfile_dir constant varchar2(100):= 'AVMED_TEMPDATA';
w_line varchar2(44);
v_claim claim.claim_nbr%type;
buffer varchar2(100);
status integer;
cursor get_clm is
select claim_nbr from claim
where claim_nbr between v_claim1 and v_claim2
and rownum < 100
order by claim_nbr;
cursor get_srvline is
select claim_nbr, serv_nbr, aff_nbr from service_x
where claim_nbr = fd_claim;
type serv_t is table of get_srvline%rowtype;
serv serv_t;
begin
V_OUTFILE := UTL_FILE.FOPEN(V_OUTFILE_DIR,V_OUTFILE_NAME,'w');
OPEN get_clm;
--OPEN get_srvline;
LOOP
fetch get_clm into v_claim;
DBMS_OUTPUT.PUT_LINE(v_claim);
DBMS_OUTPUT.GET_LINE(buffer,status );
DBMS_OUTPUT.PUT_LINE('Buffer: '||buffer);
DBMS_OUTPUT.PUT_LINE('Status: '||to_char(status));
--while get_clm%found
--while rownum < 100
LOOP
fd_claim:= v_claim;
OPEN get_srvline;
fetch get_srvline bulk collect into serv;
CLOSE get_srvline;
mismatch:=0;
FOR i in 1..serv.count LOOP
if serv(1).aff_nbr <> serv(i).aff_nbr then mismatch:=1;
end if;
END loop;
if mismatch = 1 then
FOR i in 1..serv.count LOOP
w_line:=serv(i).claim_nbr||serv(i).serv_nbr||serv(i).aff_nbr;
UTL_FILE.PUT_LINE(V_OUTFILE,w_line);
END LOOP;
end if;
END LOOP;
--close get_srvline;
close get_clm;
UTL_FILE.FCLOSE(V_OUTFILE);
DBMS_OUTPUT.PUT_LINE ( serv.count );
END LOOP;
END;

Answer 1

Hi,
Welcome to the forum!
Here's your code with some whitspace added, to make it readable:
set serveroutput on
declare
     v_claim1 varchar2(12):='080010000000';
     v_claim2 varchar2(12):='080019999999';
     fd_claim varchar2(12):=' ';
     mismatch number:=0;
     v_outfile UTL_FILE.FILE_TYPE;
     v_outfile_name constant varchar2(100):= 'prvmm.dat';
     v_outfile_dir constant varchar2(100):= 'AVMED_TEMPDATA';
     w_line varchar2(44);
     v_claim claim.claim_nbr%type;
     buffer varchar2(100);
     status integer;
     cursor get_clm is
            select claim_nbr from claim
            where claim_nbr between v_claim1 and v_claim2
            and rownum < 100
            order by claim_nbr;
     cursor get_srvline is
            select claim_nbr, serv_nbr, aff_nbr from service_x
            where claim_nbr = fd_claim;
     type serv_t is table of get_srvline%rowtype;
     serv serv_t;
begin
     V_OUTFILE := UTL_FILE.FOPEN(V_OUTFILE_DIR,V_OUTFILE_NAME,'w');
     OPEN get_clm;
     --OPEN get_srvline;
     LOOP
          fetch get_clm into v_claim;
          DBMS_OUTPUT.PUT_LINE(v_claim);
          DBMS_OUTPUT.GET_LINE(buffer,status );
          DBMS_OUTPUT.PUT_LINE('Buffer: '||buffer);
          DBMS_OUTPUT.PUT_LINE('Status: '||to_char(status));
          --while get_clm%found
          --while rownum < 100
          LOOP
               fd_claim:= v_claim;
               OPEN get_srvline;
               fetch get_srvline bulk collect into serv;
               CLOSE get_srvline;
               mismatch:=0;
               FOR i in 1..serv.count LOOP
                       if serv(1).aff_nbr <> serv(i).aff_nbr then mismatch:=1;
                    end if;
               END loop;
               if mismatch = 1 then
                       FOR i in 1..serv.count LOOP
                            w_line:=serv(i).claim_nbr||serv(i).serv_nbr||serv(i).aff_nbr;
                         UTL_FILE.PUT_LINE(V_OUTFILE,w_line);
                    END LOOP;
               end if;
          END LOOP;
          --close get_srvline;
          close get_clm;
          UTL_FILE.FCLOSE(V_OUTFILE);
          DBMS_OUTPUT.PUT_LINE ( serv.count );
     END LOOP;
END;The reason why it won't stop is that neither of the two outer LOOPs has any way of stopping.
If you want to fetch one row from a cursor in a loop, and contine the loop as long as you keep getting rows, then use a cursor FOR loop, like this
FOR  v_claim  IN get_clm
LOOP
        DBMS_OUTPUT.PUT_LINE(v_claim);
END LOOP;You do not need OPEN, FETCH or CLOSE statements when using a cursor FOR loop.
If you do want to use OPEN, FETCH and CLOSE, then the loop that FETCHes the data should test for %NOTFOUND, and EXIT when it is true, like this:
OPEN  get_clm
LOOP
        FETCH  get_clm  INTO  c_claim
        EXIT WHEN get_clm%NOTFOUND;
        DBMS_OUTPUT.PUT_LINE(v_claim);
END LOOP;
CLOSE  get_clm;Always format your code to show the range of LOOPs and IF statements.
When posting on this site, type these 6 characters:
&#123;code&#125;
(small letters only, inside curly brackets) before and after formatted text, to preserve spacing.