pears.DBCleanupOrphanPhone [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== pears.DBCleanupOrphanPhone ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."DBCleanupOrphanPhone" IS 
{create function DBCleanupOrphanPhone 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(in countordo char(1))
returns integer
begin
  declare @RC integer;
  set @RC = 0;
  if countordo = 'C' then
    select count(*) into @RC from phone where 
     (
     ((who = 'P') and not exists(select * from person where personid = phone.whoid)) or 
     ((who = 'C') and not exists(select * from company where companyid = phone.whoid)) or 
     ((who = 'CP') and not exists(select * from employment where employmentid = phone.whoid)) 
     );
    return @RC
  end if;
  delete from phone where (who = 'P') and
    not exists(select * from person where personid = phone.whoid);
  set @RC = @RC + (select @@rowcount);
  delete from phone where  who ='CP' and
  not exists(select * from employment where employmentid = phone.whoid);
  set @RC = @RC + (select @@rowcount);
  delete from phone where(who = 'C') and
    not exists(select * from company where companyid = phone.whoid);
  set @RC = @RC + (select @@rowcount);
  call AuditLog('CLEANUP',null,string(@RC,' Unattached Phone Records deleted '),null,null);
  return @RC;
end
}
</code>