if :system.record_status != 'QUERY' then

:s_name := null;
  if :id is not null
  then
   begin
   select spriden_pidm, substr(ltrim(rtrim(spriden_first_name||' '||spriden_mi)||' ')||spriden_last_name,1,40) student_name
   into   :PYPSTSD_PARTICIPANT_PIDM,:s_name
   FROM   SPRIDEN
   where  spriden_id = :id
   and    spriden_change_ind is null;

     exception when no_data_found then
          message('*ERROR* Invalid ID; press LIST for Name/ID search.');
          RAISE FORM_TRIGGER_FAILURE; 
   end;
   
  begin
   SELECT count (*) into :global.dummy
   FROM   PYPSTSD
   WHERE  PYPSTSD_PARTICIPANT_PIDM   =:PYPSTSD_PARTICIPANT_PIDM
   and    PYPSTSD_DATE               =:PYPSTSD_DATE
   and    PYPSTSD_TRAINING_LOCN      =:PYPSTSD_TRAINING_LOCN
   and    PYPSTSD_TRAINING_CODE      =:PYPSTSD_TRAINING_CODE;
   	
   if :global.dummy = 1 then
              message('*ERROR* Duplicated Record.');
              RAISE FORM_TRIGGER_FAILURE; 
   end if;
  end;
 
end if;
end if;