Update a standard field with an event

DECLARE
attr_            VARCHAR2(32000);
sql_msg_        VARCHAR2(32000);
stmt_            VARCHAR2(32000);
job_id_ NUMBER;
 error_text_ VARCHAR2(2000);       

 stmt_ := '
         DECLARE
         
         result_ VARCHAR2(32000) ;

         INVOICE_NO_  VARCHAR2(50 CHAR);         
         
         info_            VARCHAR2(1000) ;
         objid_            VARCHAR2(1000) ;
         objversion_    VARCHAR2(1000) ;
         attr_            VARCHAR2(1000) ;
         action_        VARCHAR2(1000) ;         

CURSOR curs_facture  is
 select OBJID, OBJVERSION, INVOICE_NO
from MAN_SUPP_INVOICE
where objkey = ''&NEW:ROWKEY'';

         BEGIN
         OPEN curs_facture ;

LOOP
FETCH curs_facture into objid_,objversion_,  INVOICE_NO_;

EXIT WHEN NOT curs_facture%FOUND;
END LOOP;

CLOSE  curs_facture ;

        info_ :='''';
        client_sys.clear_attr(attr_);
        client_sys.add_to_attr(''NCF_REFERENCE'', INVOICE_NO_,attr_ );
        action_:= ''DO''; 
         ifsapp.MAN_SUPP_INVOICE_API.Modify__ (info_ , objid_, objversion_, attr_, action_);
 
         END;';
      
       sql_msg_ := Message_SYS.Construct('UPDATE_NCF_REFERENCE');
       Message_SYS.Add_Attribute(sql_msg_, 'SQL', stmt_);
       Client_SYS.Clear_Attr(attr_);
       Client_SYS.Add_To_Attr('SQL_DATA_', sql_msg_, attr_);
       Client_SYS.Add_To_Attr('MSG_', '', attr_);

 Transaction_SYS.Deferred_Call(job_id_,'Fnd_Event_Action_API.Action_Executeonlinesql','PARAMETER',attr_,'Définir l'adresse du client à null');    
      
       
END;