CREATE USER I3_REG
  IDENTIFIED BY VALUES '1A2BB0D062284F9E'
  DEFAULT TABLESPACE I3
  TEMPORARY TABLESPACE TEMP
  PROFILE DEFAULT
  ACCOUNT UNLOCK;
  -- 2 Roles for I3_REG 
  GRANT DBA TO I3_REG WITH ADMIN OPTION;
  GRANT CONNECT TO I3_REG;
  ALTER USER I3_REG DEFAULT ROLE ALL;
  -- 4 System Privileges for I3_REG 
  GRANT ALTER USER TO I3_REG WITH ADMIN OPTION;
  GRANT CREATE USER TO I3_REG WITH ADMIN OPTION;
  GRANT UNLIMITED TABLESPACE TO I3_REG WITH ADMIN OPTION;
  GRANT DEBUG CONNECT SESSION TO I3_REG;
  -- 13 Object Privileges for I3_REG 
    GRANT EXECUTE ON I3.AFTERDBCONNECT TO I3_REG;
    GRANT DELETE, INSERT, SELECT, UPDATE ON I3."BIN$3m8DmQ+aSiiXV0ubx2nXwA==$0" TO I3_REG;
    GRANT INSERT ON I3."BIN$GmVrx7GaTy++vRBJNXWfpw==$0" TO I3_REG;
    GRANT DELETE, INSERT, SELECT, UPDATE ON I3.F3_OBJECT TO I3_REG;
    GRANT DELETE, INSERT, SELECT, UPDATE ON I3.I3_PRD_PROCESS TO I3_REG;
    GRANT DELETE, INSERT, REFERENCES, SELECT, UPDATE ON I3.I3_PROCESS TO I3_REG;
    GRANT EXECUTE ON I3.I3_PROCESS_ENGINE TO I3_REG;
    GRANT DELETE, INSERT, SELECT, UPDATE ON I3.I3_RGL_PROCESS TO I3_REG;
    GRANT DELETE, INSERT, SELECT, UPDATE ON I3.I3_SBJ_PROCESS TO I3_REG;
    GRANT DELETE, INSERT, SELECT, UPDATE ON I3.I3_USER TO I3_REG;
    GRANT EXECUTE, DEBUG ON I3.I3_USER_CONTROL_ENGINE TO I3_REG;
    GRANT EXECUTE ON I3.PTNT_PACKAGE TO I3_REG;
    GRANT EXECUTE, DEBUG ON I3.PTNT_REGUSER TO I3_REG;

CREATE USER I3
  IDENTIFIED BY VALUES '690358952213BF79'
  DEFAULT TABLESPACE I3
  TEMPORARY TABLESPACE TEMP
  PROFILE DEFAULT
  ACCOUNT UNLOCK;
  -- 2 Roles for I3 
  GRANT CONNECT TO I3;
  GRANT DBA TO I3;
  ALTER USER I3 DEFAULT ROLE ALL;
  -- 1 System Privilege for I3 
  GRANT UNLIMITED TABLESPACE TO I3;
  -- 2 Object Privileges for I3 
    GRANT READ, WRITE ON DIRECTORY SYS.FORMS_DIR TO I3 WITH GRANT OPTION;
    GRANT READ, WRITE ON DIRECTORY SYS.INPUT_DIR TO I3 WITH GRANT OPTION;

PROCEDURE RegenerateUserA(sUserLogin VARCHAR2, sUserName VARCHAR2, sNormalPassword VARCHAR2,
									  asRoleForAdd i3_types.tatMaxVarchar2, bRoleOnlyForAdd BOOLEAN DEFAULT TRUE) IS
		asDDLScript i3_types.tatMaxVarchar2;
		PRAGMA AUTONOMOUS_TRANSACTION;
		lCurRow NUMBER;
	BEGIN
		RegenerateUser(sUserLogin, sUserName, sNormalPassword, asRoleForAdd, asDDLScript, bRoleOnlyForAdd);
		FOR lRow IN 1 .. asDDLScript.COUNT
		LOOP
			lCurRow := lRow;
			EXECUTE IMMEDIATE asDDLScript(lRow);
		END LOOP;
		COMMIT;
	EXCEPTION
		WHEN OTHERS THEN
			ROLLBACK;
			IF lCurRow = 0 THEN
				raise_application_error(-20001, SQLERRM || ' | ' || dbms_utility.format_error_backtrace);
			ELSE
				RAISE_application_error(-20001,
												'Ошибка исполнения скрипта: ' || asDDLScript(lCurRow) || ' | ' || SQLERRM);
			END IF;
	END RegenerateUserA;