DECLARE
  l_str01         VARCHAR2(32000);
  l_event_list    xxt_gl_clear_gl_doc_data_pub.event_list_type;
  v_return_status VARCHAR2(1);
  vUSER_ID        NUMBER;
  vRESP_ID        NUMBER;
  vRESP_APPL_ID   NUMBER;
BEGIN
  SELECT user_id INTO vUSER_ID FROM fnd_user WHERE user_name = 'OTR_DEREKAAA'; 
  SELECT a.application_id, a.responsibility_id
    INTO vRESP_APPL_ID, vRESP_ID
    FROM fnd_responsibility a
   WHERE a.responsibility_key = 'XXT_COMMON_FUNCTIONS';
  apps.fnd_global.apps_initialize(vUSER_ID, vRESP_ID, vRESP_APPL_ID);

  l_event_list(1) := 'ID';

  l_str01 := xxt_gl_clear_gl_doc_data_pub.clear_gl_data_for_event(par_event_list => l_event_list);
  IF l_str01 IS NULL THEN
    dbms_output.put_line('OK');
  ELSE
    dbms_output.put_line('---');
    dbms_output.put_line(l_str01);
    dbms_output.put_line('---');
  END IF;
END;