TEAMCENTER12:系统标准程序包--EIM_UIDS

TEAMCENTER12 唯一个系统标准程序包(EIM_UIDS)：

CREATE OR REPLACE PACKAGE BODY eim_uids AS

    PROCEDURE new_fid (
        p_uid          OUT  INTEGER
    ) IS
    PRAGMA AUTONOMOUS_TRANSACTION;

        v_mrt    INTEGER;
        v_unixt  INTEGER;

    BEGIN

        SELECT most_recent_time
        INTO v_mrt
        FROM eim_uid_generator_root
        FOR UPDATE;

        SELECT TO_NUMBER((SYSDATE - TO_DATE('1970/01/01 00:00:00', 'yyyy/mm/dd hh24:mi:ss')))*86400
        INTO v_unixt
        FROM DUAL;

        IF (v_mrt < v_unixt) THEN

            p_uid := v_unixt;

        ELSE

            p_uid := v_mrt + 1;

        END IF;

        UPDATE eim_uid_generator_root
        SET MOST_RECENT_TIME = p_uid;

        COMMIT;

    END new_fid;

END eim_uids;