-- Check for dublicates \/
       For R In (select count(*),
                        serno,
                        linkserno
                   from data1
                  where linkserno = fLinkSerno
                  group by serno, linkserno
                  having count(*) > 1) Loop
           select rownum, serno 
             into fRowNum, fSerno
             from data1 
             
           If fRowNum > 1 Then 
              Delete From data1 where rownum = fRowNum;
           End If;
       End Loop; 
       -- Check for dublicates /\

       For R In (select count(*),
                        max(rowid) max_rowid,
                        serno,
                        linkserno
                   from data1
                  where linkserno = fLinkSerno
                  group by serno, linkserno
                  having count(*) > 1) Loop
           
           Delete From data1
                 where rowid <> R.max_rowid 
                   and serno = R.serno 
                   and linkserno = R.linkserno;
           fDelCount := fDelCount + sql%rowcount;
       End Loop;