API to CREATE FND User

/* Formatted on 2014-9-22 11:27:10 (QP5 v5.115.810.9015) */
-- --------------------------------------
-- API to CREATE FND User
-- --------------------------------------

DECLARE
   LC_USER_NAME   VARCHAR2(100) := 'PRAJ_TEST';
   LC_USER_PASSWORD VARCHAR2(100) := 'Oracle123';
   LD_USER_START_DATE DATE := TO_DATE('23-JUN-2012');
   LD_USER_END_DATE VARCHAR2(100) := NULL;
   LD_PASSWORD_DATE VARCHAR2(100) := TO_DATE('23-JUN-2012');
   LD_PASSWORD_LIFESPAN_DAYS NUMBER := 90;
   LN_PERSON_ID   NUMBER :=76104; --此处的ID必须是已经存在 PER_PEOPLE_f 表中
   LC_EMAIL_ADDRESS VARCHAR2(100) := 'JARWANG@SINA.COM';
BEGIN
   FND_USER_PKG.CREATEUSER(
      X_USER_NAME => LC_USER_NAME
     ,X_OWNER     => NULL
     ,X_UNENCRYPTED_PASSWORD => LC_USER_PASSWORD
     ,X_START_DATE => LD_USER_START_DATE
     ,X_END_DATE  => LD_USER_END_DATE
     ,X_PASSWORD_DATE => LD_PASSWORD_DATE
     ,X_PASSWORD_LIFESPAN_DAYS => LD_PASSWORD_LIFESPAN_DAYS
     ,X_EMPLOYEE_ID => LN_PERSON_ID
     ,X_EMAIL_ADDRESS => LC_EMAIL_ADDRESS
   );
   COMMIT;
EXCEPTION
   WHEN OTHERS THEN
      ROLLBACK;
      dbms_output.PUT_LINE(SQLERRM);
END;

--查看是否创建

SELECT * FROM FND_USER
WHERE USER_NAME ='PRAJ_TEST'