CREATE  OR  REPLACE  TRIGGER  "ANGELUSER"."PATHISTK_TRIG"  
AFTER  INSERT  ON  "PATHISTK"  
FOR  EACH  ROW 
declare  
ii  int; 
BEGIN  
   SELECT  Count(*)  into  ii  from  procsk  where  seqno=:NEW.seqno  and  pat_no=:new.pat_no  and  ddate=:new.ddate;      
   if  ii  =  0  then    
       insert  into  procsk(ddate,seqno,pat_no,dr_no,departno,RecNo)  values(:new.ddate,:new.seqno,:new.pat_no,:new.dr_no,:new.depart_no,(select  PROCSK_ID_SEQ.NEXTVAL  from  dual));  
   end  if;  
END;