PROCEDURE MISSINGNO IS
cv_mismsisdn number;
v_msisdndif number := :invd.msisdndif - 1;
v_invdno number := :invd.invdno;
v_msisdnf number := :invd.msisdnf;
v_msisdnt number := :invd.msisdnt;
cursor c_mismsisdn is select mismsisdn from mismsisdn where invdno = v_invdno order by mismsisdn;
BEGIN
  open c_mismsisdn;
  if v_msisdnf is not null and v_msisdnt is not null then
	  for i in 0..v_msisdndif loop
	  	loop
	  		fetch c_mismsisdn into cv_mismsisdn;
	  		exit when v_msisdnf+i = cv_mismsisdn;
	  		exit when c_mismsisdn%notfound;
	  	end loop;
	  	if v_msisdnf+i != cv_mismsisdn then
	  		insert into recmsisdn(invdno,msisdn,status)
	  		values(:invd.invdno,v_msisdnf+i,'R');
	  	end if;
	  end loop;
	 end if;
 	close c_mismsisdn;
END;

begin
	delete from mismsisdn
	where invdno = :global.refno;
	delete from recmsisdn
	where invdno = :global.refno;
end;

begin
	if :system.cursor_record = to_char(:invd.misqty) then
		post;
		go_block('invd');
		last_record;
		MISSINGNO;
--		next_record;
--	else
	end if;
		next_record;
end;

DECLARE

  l_exists NUMBER;

BEGIN

FOR n IN :<start sim number>..:<end sim number> LOOP

  BEGIN

    --See if the sim is missing
    SELECT 1 INTO l_exists
    FROM <missing sim table>
    WHERE <sim number> = n;

  EXCEPTION WHEN no_data_found THEN
    --Not a missing sim so do insert
    insert into recmsisdn(invdno, msisdn, status)
    values(:invd.invdno, n, 'R');

  END;

END LOOP;

END;

cv_mismsisdn mismsisdn.mismsisdn%TYPE;