반송함에 적힌 주문을 찾아가 보면 멀쩡히 정산돼 있다

PROCEDURE P1_LOAD_V2 IS
  CURSOR c IS
    SELECT ORD_SEQ, CUS_ID, ORD_DT, ORD_AMT
      FROM T_ORD
     WHERE ORD_ST <> 'CANCEL'                 -- 취소는 SQL에서 거른다 → 배열에 구멍이 생기지 않는다
       AND ORD_AMT > 0                        -- 아는 실패(금액 0)는 아래에서 사유와 함께 반송
     ORDER BY ORD_SEQ;
  TYPE t_rows IS TABLE OF c%ROWTYPE;
  v        t_rows;
  v_ix     PLS_INTEGER;
  v_cd     PLS_INTEGER;
  v_src    NUMBER;  v_stl NUMBER;  v_cnl NUMBER;  v_rej NUMBER;
  bulk_err EXCEPTION;
  PRAGMA EXCEPTION_INIT(bulk_err, -24381);
BEGIN
  EXECUTE IMMEDIATE 'TRUNCATE TABLE T_ORD_STLM';
  DELETE FROM T_STLM_REJ WHERE RUN_DT = TRUNC(SYSDATE);          -- 다시 돌려도 한 벌

  INSERT INTO T_STLM_REJ (ORD_SEQ, ERR_CD, RUN_DT)                -- 아는 실패는 이름(사유)으로
  SELECT ORD_SEQ, 'AMT_ZERO', TRUNC(SYSDATE)
    FROM T_ORD
   WHERE ORD_ST <> 'CANCEL' AND ORD_AMT <= 0;

  OPEN c;
  LOOP
    FETCH c BULK COLLECT INTO v LIMIT 1000;
    EXIT WHEN v.COUNT = 0;
    BEGIN
      FORALL i IN 1 .. v.COUNT SAVE EXCEPTIONS                    -- 1부터 빈틈없이: 반복 순번 = 첨자
        INSERT INTO T_ORD_STLM (STLM_SEQ, ORD_SEQ, CUS_ID, STLM_DT, STLM_AMT)
        VALUES (v(i).ORD_SEQ, v(i).ORD_SEQ, v(i).CUS_ID, v(i).ORD_DT, v(i).ORD_AMT);
    EXCEPTION
      WHEN bulk_err THEN                                          -- 모르는 실패의 그물
        FOR j IN 1 .. SQL%BULK_EXCEPTIONS.COUNT LOOP
          v_ix := SQL%BULK_EXCEPTIONS(j).ERROR_INDEX;
          v_cd := SQL%BULK_EXCEPTIONS(j).ERROR_CODE;
          INSERT INTO T_STLM_REJ (ORD_SEQ, ERR_CD, RUN_DT)
          VALUES (v(v_ix).ORD_SEQ, 'ORA-' || LPAD(v_cd, 5, '0'), TRUNC(SYSDATE));
        END LOOP;
    END;
  END LOOP;
  CLOSE c;

  -- 대조: 원천 = 정산 + 취소 + 반송. 안 맞으면 되돌리고 멈춘다
  SELECT COUNT(*), COUNT(CASE WHEN ORD_ST = 'CANCEL' THEN 1 END) INTO v_src, v_cnl FROM T_ORD;
  SELECT COUNT(*) INTO v_stl FROM T_ORD_STLM;
  SELECT COUNT(*) INTO v_rej FROM T_STLM_REJ WHERE RUN_DT = TRUNC(SYSDATE);
  IF v_src <> v_stl + v_cnl + v_rej THEN
    ROLLBACK;
    RAISE_APPLICATION_ERROR(-20001, '정산 대조 불일치: 원천 ' || v_src || ' / 정산 ' || v_stl
                                    || ' / 취소 ' || v_cnl || ' / 반송 ' || v_rej);
  END IF;
  COMMIT;
END;