Create accounting for set of event with API

 HI i am trying to account event with following API , But every time its completed successfully. but when i checked the status of event in XLA_EVENTS the status still seems to be U . 

declare

ln_batch_id NUMBER;

lv_error_buf VARCHAR2(150);

ln_return_code NUMBER;

BEGIN

INSERT INTO XLA_ACCT_PROG_EVENTS_GT

(event_id,ledger_id )

VALUES

(47083 ,2021);

FND_GLOBAL.APPS_INITIALIZE(1173,50637,20003);

XLA_ACCOUNTING_PUB_PKG.accounting_program_events

(p_application_id => 20003

,p_accounting_mode => 'DRAFT'

,p_gl_posting_flag => null

,p_accounting_batch_id => ln_batch_id

,p_errbuf => lv_error_buf

,p_retcode =>ln_return_code );