go_block('PP_UNIT_RAG_OVERALL');
clear_block;
execute_query;

--
-- Begin default relation declare section
--

DECLARE
  recstat      VARCHAR2 (20)  := :System.record_status;   /* checks if any changes have been
               made to the block in system cursor (should be no if queried from base table)*/
  startitm     VARCHAR2 (61)  := :System.cursor_item;   /*determines which item the system 
               cursos is lookinga t currently*/
  rel_id       Relation;   /* Variable to pass block/trigger name etc to error handling 
               prog unit 'raise_error' */
  sub_module   varchar2 (100) := 'pp_unit_rag_overall.on-populate-details';   /* ignore, 
               part or error handling */
--
-- End default relation declare section
--
--
-- Begin default relation program section
--
BEGIN
  IF (   recstat = 'NEW'
      or recstat = 'INSERT') THEN   /*checks if System.record_status 
identified unvalidated changes in the block this passed fine*/
    RETURN;
  END IF;
  --
  -- Begin PP_UNIT_RAG detail program section
  --
  IF (   (:PP_UNIT_RAG_OVERALL.PP_UNIT is not null)
      or (:PP_UNIT_RAG_OVERALL.PP_RAG_PERIOD is not null)) THEN
    rel_id  := Find_Relation ('PP_UNIT_RAG_OVERALL.PP_UNIT_RAG_OVE_PP_UNIT_RAG');
    Query_Master_Details (rel_id, 'PP_UNIT_RAG_REVIEW');
  END IF;
END;

begin
  reldef  := Get_Relation_Property (rel_id, DEFERRED_COORDINATION);
   /* = This built-in determines if the detail is to be immediately coordinated 
      with the master or only when operator navigates to detail block. In my 
      instance it's the latter and FALSE is returned */
  IF reldef = 'FALSE' THEN
    Go_Block (detail);
    Check_Package_Failure;
  end if;
end;

IF NOT ( Form_Success ) THEN
RAISE Form_Trigger_Failure;
END IF;