 create or replace procedure sp_tblactivity_site_insert(
  P_Login                 VARCHAR2,
  P_Activity              VARCHAR2,
  P_SessionId        VARCHAR2,
  ret_val out varchar2 )as
  V_SessionId        VARCHAR2(20);
  begin
     select to_char(sysdate,'yyyy')||to_char(sysdate,'mm')||to_char(sysdate,'dd')||
     to_char(sysdate,'hh')||to_char(sysdate,'mi')||to_char(sysdate,'ss')||
     activityid.nextval into V_SessionId from dual;
     insert  into tblactivity_site(pkactivityid,sessionid,activity,dateandtime,fklogin)
     values  (V_SessionId,P_SessionId,P_Activity,sysdate, P_Login);
     commit;
     ret_val:='y';
  Exception
  when others then
  ret_val:='Tblactivity not Inserted';
  end;