ㅡㅡ^

CREATE OR REPLACE PROCEDURE "USP_DFTEST_BI" (
    V_FABID         MIDAS.MIDAS_DFTEST.FABID%TYPE,
    V_EQCODE        MIDAS.MIDAS_DFTEST.EQCODE%TYPE,
    V_TESTNAME      MIDAS.MIDAS_DFTEST.TESTNAME%TYPE,
    V_TESTDATE      MIDAS.MIDAS_DFTEST_DAILY.TESTDATE%TYPE,
    V_LOTID         MIDAS.MIDAS_DFTEST.LOTID%TYPE,
    V_SETUPID       MIDAS.MIDAS_DFTEST.SETUPID%TYPE,
    V_STEPID        MIDAS.MIDAS_DFTEST.STEPID%TYPE,
    V_SLOTNO        MIDAS.MIDAS_DFTEST.SLOTNO%TYPE,
    V_DIEPITCHX     VARCHAR2,
    V_DIEPITCHY     VARCHAR2,
    V_TESTID_OUT    OUT NUMBER,
    V_ISEXIST_OUT    OUT NUMBER
)
IS
   vCnt              NUMBER(10);
   vGROUPID            VARCHAR2(10);
BEGIN

--  AdoptDate 삭제됨..

   SELECT NVL(COUNT(*),0) INTO vCnt
   FROM MIDAS_DFTEST
   WHERE FABID=V_FABID AND EQCODE=V_EQCODE AND TESTNAME=V_TESTNAME;

   IF vCnt<1 THEN
  
        V_ISEXIST_OUT := 0;

        SELECT NVL(MAX(TESTID), 0)+1 INTO V_TESTID_OUT FROM MIDAS_DFTEST;

       
        SELECT NVL(MAX(GROUPID),'Unknown') INTO vGROUPID FROM MIDAS_EQUIPMENT
        WHERE FABID=V_FABID AND EQCODE=V_EQCODE;
       
       
        INSERT INTO MIDAS_DFTEST ( TESTID, FABID, EQCODE, TESTNAME, GROUPID, LOTID, SETUPID
        , STEPID, SLOTNO, REGUSERID, REGUSERNAME, TESTSTATE, DIEPITCHX, DIEPITCHY )
        VALUES
        ( V_TESTID_OUT, V_FABID, V_EQCODE, V_TESTNAME, vGROUPID, V_LOTID, V_SETUPID
        , V_STEPID, V_SLOTNO, 'SYSTEM', '관리자', 2, TO_NUMBER(V_DIEPITCHX), TO_NUMBER(V_DIEPITCHY) );

   ELSE
        V_ISEXIST_OUT := 1;
          
        UPDATE MIDAS_DFTEST SET
            DIEPITCHX = TO_NUMBER(V_DIEPITCHX),
            DIEPITCHY = TO_NUMBER(V_DIEPITCHY)
        WHERE FABID=V_FABID AND EQCODE=V_EQCODE AND TESTNAME=V_TESTNAME;
       
        SELECT NVL(MAX(TESTID),0) INTO V_TESTID_OUT
        FROM MIDAS_DFTEST
        WHERE FABID=V_FABID AND EQCODE=V_EQCODE AND TESTNAME=V_TESTNAME ;
       
   END IF;

END USP_DFTEST_BI;
/