User log on and log off history in oracle database on oracle forms 10

http://www.orafaq.com/wiki/Forms_FAQ

create table logon_off_hist
(
user_id          varchar2(6),
machine_ip       varchar2(50),
machine_nm       varchar2(64),
module_nm        varchar2(30),
dt               date  default  to_char(sysdate,'DD-MON-RR'),
logon_off_time   varchar2(20) default  to_char(sysdate,'DD-MON-RR HH24:MI:SS'),
st               varchar2(1)
)


///

--logon button

DECLARE

machine_ip varchar2(50);
machine_nm varchar2(64);


BEGIN

 SELECT SYS_CONTEXT('USERENV','IP_ADDRESS') into machine_ip FROM dual;
 select distinct TERMINAL into machine_nm from v$session where USERNAME='ITS'; -- MACHINE
 INSERT INTO logon_off_hist(user_id,machine_ip,machine_nm, module_nm,st)
 VALUES (:user_id,machine_ip,machine_nm,'ITS','I');

 COMMIT_FORM;
 clear_message;

 END;


 /

--key_exit trigger/exit button  login form two path

DECLARE

machine_ip varchar2(50);
machine_nm varchar2(64);


BEGIN

 SELECT SYS_CONTEXT('USERENV','IP_ADDRESS') into machine_ip FROM dual;
 select distinct TERMINAL into machine_nm from v$session where USERNAME='ITS'; -- MACHINE
 INSERT INTO logon_off_hist(user_id,machine_ip,machine_nm, module_nm,st)
 VALUES (:user_id,machine_ip,machine_nm,'ITS','O');

 COMMIT_FORM;
 clear_message;

 END;