create table SCOTT.table_summary (
       client_id   varchar2(10),
       tran_id     number(5),
       tran_date   date,
       tran_time   varchar2(6),
       qty         number(10)
)
/

alter table SCOTT.table_summary
   add constraint pk_tbl_smry PRIMARY KEY  (client_id, tran_id)
/

create table SCOTT.table_detail (
       client_id   varchar2(10),
       tran_id     number(5),
       product_id  varchar2(10),
       qty         number(10),
       rate        number(8,2)
)
/

alter table SCOTT.table_detail
   add constraint pk_tbl_dtl PRIMARY KEY (client_id, tran_id)
/


create or replace procedure SCOTT.insert_1 (
                          vClient_id  IN varchar2,
                          vTran_id    IN number,
                          vProduct_id IN varchar2,
                          vQty        IN number,
                          vRate       IN number
)
is
 xx number:=0;
begin
    -- here some verifications needed before inserting
    -- 
    insert into table_detail (
           client_id,
           tran_id,
           product_id,
           qty,
           rate
          )
    values (vClient_id,
           vTran_id,
           vProduct_id,
           vQty,
           vRate
          );
end;
/

create or replace procedure SCOTT.insert_2 (vTran_id IN number)
is
 xx number:=0;
begin
    -- here some verifications needed before inserting
    --
    insert into table_summary (
           client_id,
           tran_id,
           tran_date,
           tran_time,
           qty
          )
    Select Client_id, tran_id, to_date(sysdate,'DD-MON-RRRR'), to_char(sysdate,'hh24miss'),
           SUM (qty)
      From table_detail
     Where tran_id = vTran_id
     Group By Client_id, tran_id;
end;
/

-- Forms contians Data Block ( Multi Record GRID ) which is not a Database Data block
-- User can't enter Client_ID and Tran_ID ( Client_ID is Login ID and Tran_ID is generated with SEQUENCE )

Button : Submit  
Trigger: WHEN-BUTTON-PRESSED

PROCEDURE insert_records IS
   xx NUMBER := 0;
   total_records NUMBER;
   trn_id        Table_Summary.Tran_ID%TYPE;
BEGIN
   Go_Block('DETAILS');   
   Last_Record;
   total_records := to_number(:System.Cursor_Record);
   First_Record;
   --
   trn_id := :DETAILS.Tran_id;
   -- 
   FOR i IN 1..total_records
   LOOP 
       SCOTT.insert_1 (
                       :DETAILS.Client_id,
                       :DETAILS.Tran_id,
                       :DETAILS.Product_id,
                       :DETAILS.Qty,
                       :DETAILS.Rate
                      );
      Next_Record;
   END LOOP;
   -- 
   SCOTT.insert_2 ( trn_id );
   --
   Commit;
   call_alert_ok('process completed successfully!');
END;