View with columns based on function - problem with query

Question

Hi,
I'm using Oracle 9i;
I've created a view which has columns based on a table columns (multiple columns from 1 table) and funtion (multiple columns based on 1 function).
The function takes ID as the first argument and name of the column to determine which value to return as the second one.
Here is a sample of such function (simplified):
FUNCTION my_function
(in_id IN NUMBER, in_col_name IN VARCHAR2)
RETURN VARCHAR2
IS
c_name VARCHAR2(100);
c_last_name VARCHAR2(100);
BEGIN
SELECT T.NAME, T.LAST_NAME
INTO c_name, c_last_name
FROM TABLE_1 T, TABLE_2 Z
WHERE T.PK = Z.FK
AND Z.ID = in_id;
IF in_col_name = 'NAME' THEN
RETURN c_name;
ELSIF in_col_name = 'LAST_NAME' THEN
RETURN c_last_name;
END IF;
END;
For simplicty I've restricted the number of columns.
CREATE OR REPLACE VIEW my_view
(ID, NAME, LAST_NAME)
AS
SELECT
T.ID ID
,CAST(my_function(T.ID,'NAME') AS VARCHAR2(100)) NAME
,CAST(my_function(T.ID,'LAST_NAME') AS VARCHAR2(100)) LAST_NAME
FROM TABLE T;
There is no problem with query:
SELECT * FROM my_view;
The problem arises when I query the view (regardles of '=' or 'LIKE'):
SELECT * FROM my_view
WHERE name LIKE '%some_part_of_name%'
The query returns rows for same names, for same it doesn't. If I put '=' and the whole name the query returns nothing, but when I put 'LIKE' and the first letter it returns rows in some cases.
I've tried to debug this situation and I've discovered that the function recives ID not in the proper order and not the same amount of times - in explicit:
for each ID in (1, 2, 3, 4, 5, 6, ... , 100) the function should be called twice for each ID and in the same order, but it does not.
I get 1, 1, 2, 3, 3, 6, 20, 20 and so on.
Help needed.
Greetings.

Answer 1

The problem is more complicated than the solutions provided here.
The reason why I'm using the function is this:
the original view was constructed using multiple union all selects and the speed was terrible. I've created the index on the base table to obtain a proper sort. For retriving all records at once the view works perfectly, but if one wants to query by columns based on function the results are suprisng - sometimes there are, some times there are none, or if you serch with "like" and only a part of string there are results, but with "=" there are no results.
Here are real DDLs:
View:
CREATE OR REPLACE VIEW V_DOK_ARCH
(ID_ZDAR, TYP, STAN, DATE_CREATED, CREATED_BY,
DATE_MODIFIED, MODIFIED_BY, SPRA_ID_SPRA, PODM_ID_PODM, PODM_UMOW_ID_UMOW,
NR_WFS, WFS_NR_INTER, UWAGI_OPER, FUNDUSZ, NUMER,
DATA_PODPISANIA, RODZAJ, TYP_PRZY, TYP_UBEZ, NAZWISKO,
IMIE, IMIE_OJCA, NAZWA_FIRMY, NAZWA_FIRMY_SKR, DANE_KLIE)
AS
SELECT /*+ INDEX(Z ZDAR_DATE_CREATED_DESC_I) */
Z.ID_ZDAR ID_ZDAR
, Z.TYP TYP
, Z.STAN STAN
, Z.DATE_CREATED DATE_CREATED
, Z.CREATED_BY CREATED_BY
, Z.DATE_MODIFIED DATE_MODIFIED
, Z.MODIFIED_BY MODIFIED_BY
, Z.SPRA_ID_SPRA SPRA_ID_SPRA
, Z.PODM_ID_PODM PODM_ID_PODM
, Z.PODM_UMOW_ID_UMOW PODM_UMOW_ID_UMOW
, Z.NR_WFS NR_WFS
, Z.WFS_NR_INTER WFS_NR_INTER
, Z.UWAGI_OPER UWAGI_OPER
, Z.FUNDUSZ FUNDUSZ
, CAST(F_Rej_Zdar_Char(Z.ID_ZDAR, 'NUMER') AS VARCHAR2(30)) NUMER
, F_Rej_Zdar_Date(Z.ID_ZDAR, 'DATA_PODPISANIA') DATA_PODPISANIA
, CAST(F_Rej_Zdar_Char(Z.ID_ZDAR, 'RODZAJ') AS VARCHAR2(4)) RODZAJ
, CAST(F_Rej_Zdar_Char(Z.ID_ZDAR, 'TYP_PRZY') AS VARCHAR2(4)) TYP_PRZY
, CAST(F_Rej_Zdar_Char(Z.ID_ZDAR, 'TYP_UBEZ') AS VARCHAR2(3)) TYP_UBEZ
, CAST(F_Rej_Zdar_Char(Z.ID_ZDAR, 'NAZWISKO') AS VARCHAR2(30)) NAZWISKO
, CAST(F_Rej_Zdar_Char(Z.ID_ZDAR, 'IMIE') AS VARCHAR2(30)) IMIE
, CAST(F_Rej_Zdar_Char(Z.ID_ZDAR, 'IMIE_OJCA') AS VARCHAR2(30)) IMIE_OJCA
, CAST(F_Rej_Zdar_Char(Z.ID_ZDAR, 'NAZWA_FIRMY') AS VARCHAR2(300)) NAZWA_FIRMY
, CAST(F_Rej_Zdar_Char(Z.ID_ZDAR, 'NAZWA_FIRMY_SKR') AS VARCHAR2(100)) NAZWA_FIRMY_SKR
, CAST(LTRIM(F_Rej_Zdar_Char(Z.ID_ZDAR, 'NAZWISKO')||' '||F_Rej_Zdar_Char(Z.ID_ZDAR, 'IMIE')||' '||F_Rej_Zdar_Char(Z.ID_ZDAR, 'IMIE_OJCA')||F_Rej_Zdar_Char(Z.ID_ZDAR, 'NAZWA_FIRMY')||DECODE(F_Rej_Zdar_Char(Z.ID_ZDAR, 'NAZWA_FIRMY'),NULL,F_Rej_Zdar_Char(Z.ID_ZDAR, 'NAZWA_FIRMY_SKR'),NULL)) AS VARCHAR2(492)) DANE_KLIE
FROM T_ZDARZENIA Z
WHERE F_Rej_Zdar_Char(Z.ID_ZDAR, 'JEST') = 'T';
and functions:
CREATE OR REPLACE FUNCTION F_Rej_Zdar_Char
(WE_ID_ZDAR IN NUMBER
,WE_KOLUMNA IN VARCHAR2
RETURN VARCHAR2
IS
c_numer           T_PRZYSTAPIENIA.NUMER%TYPE;--VARCHAR2(30);
c_rodzaj           T_KLIENCI.RODZAJ%TYPE;--VARCHAR2(1);
c_typ_przy           T_PRZYSTAPIENIA.TYP_PRZY%TYPE;--VARCHAR2(1);
c_typ_ubez           T_PRZYSTAPIENIA.TYP_UBEZ%TYPE;--VARCHAR2(3);
c_nazwisko           T_KLIENCI.NAZWISKO%TYPE;--VARCHAR2(30);
c_imie                T_KLIENCI.IMIE%TYPE;--VARCHAR2(30);
c_imie_ojca      T_KLIENCI.IMIE_OJCA%TYPE;--VARCHAR2(30);
c_nazwa_firmy      T_KLIENCI.NAZWA_FIRMY%TYPE;--VARCHAR2(300);
c_nazwa_firmy_skr T_KLIENCI.NAZWA_FIRMY%TYPE;--VARCHAR2(100);
c_jest                VARCHAR2(1) := 'T';
c EXCEPTION;
BEGIN
--dbms_output.put_line('id zdar wykonania '||WE_ID_ZDAR);
BEGIN
SELECT p.NUMER, k.RODZAJ,p.TYP_PRZY,p.TYP_UBEZ,k.nazwisko, k.imie, k.imie_ojca, k.nazwa_firmy, k.nazwa_firmy_skr
INTO c_numer, c_rodzaj, c_typ_przy, c_typ_ubez, c_nazwisko, c_imie, c_imie_ojca, c_nazwa_firmy, c_nazwa_firmy_skr
FROM T_KLIENCI k, T_PRZYSTAPIENIA p, T_ZDARZENIA z, T_PODMIOTY D1, T_PODMIOTY D2
WHERE p.KLIE_ID_KLIE = k.ID_KLIE
AND z.PODM_ID_PODM = D1.ID_PODM
AND D1.KLIE_ID_KLIE = p.KLIE_ID_KLIE
AND Z.PODM_UMOW_ID_UMOW = D2.ID_PODM
AND D2.PRZY_ID_PRZY = P.ID_PRZY
AND z.ID_ZDAR = WE_ID_ZDAR;
EXCEPTION
     WHEN NO_DATA_FOUND THEN
     BEGIN
     SELECT p.NUMER, k.RODZAJ,p.TYP_PRZY,p.TYP_UBEZ,k.nazwisko, k.imie, k.imie_ojca, k.nazwa_firmy, k.nazwa_firmy_skr
     INTO c_numer, c_rodzaj, c_typ_przy, c_typ_ubez, c_nazwisko, c_imie, c_imie_ojca, c_nazwa_firmy, c_nazwa_firmy_skr
     FROM T_KLIENCI k, T_PRZYSTAPIENIA p, T_ZDARZENIA z, T_PODMIOTY D
     WHERE z.PODM_UMOW_ID_UMOW IS NULL
     AND z.PODM_ID_PODM = D.ID_PODM
     AND D.KLIE_ID_KLIE = k.ID_KLIE
     AND p.KLIE_ID_KLIE = k.ID_KLIE
     AND z.ID_ZDAR = WE_ID_ZDAR;
     EXCEPTION
          WHEN NO_DATA_FOUND THEN
          BEGIN
          SELECT NULL NUMER, NULL RODZAJ,NULL TYP_PRZY,NULL TYP_UBEZ, I.nazwisko, I.imie, I.imie_ojca, I.NAZWA NAZWA_FIRMY, I.NAZWA_SKR nazwa_firmy_skr
          INTO c_numer, c_rodzaj, c_typ_przy, c_typ_ubez, c_nazwisko, c_imie, c_imie_ojca, c_nazwa_firmy, c_nazwa_firmy_skr
          FROM T_ZDARZENIA z, T_INSTYTUCJE I
          WHERE Z.TYP IN ('WFS526','WFS542','WFS553','WFS609','WFS611','WYP_KS','WYP_PO','WYP_SB','DI_ZAT')
          AND z.PODM_UMOW_ID_UMOW IS NULL
          AND Z.PODM_ID_PODM = I.ID_INST
          AND z.ID_ZDAR = WE_ID_ZDAR;
          EXCEPTION
               WHEN NO_DATA_FOUND THEN
               BEGIN
               SELECT p.NUMER NUMER, DECODE(a.TYP_AGENTA,'A','F','P') RODZAJ, DECODE(a.TYP_AGENTA,'P','R',a.TYP_AGENTA) TYP_PRZY,NULL TYP_UBEZ,a.nazwisko, a.imie, a.imie_ojca, a.nazwa_firmy, a.nazwa_firmy_skr
               INTO c_numer, c_rodzaj, c_typ_przy, c_typ_ubez, c_nazwisko, c_imie, c_imie_ojca, c_nazwa_firmy, c_nazwa_firmy_skr
               FROM T_AG_AGENCI a, T_AG_UMOWY p, T_ZDARZENIA z
               WHERE a.ID_AGAG = p.AGAG_ID_AGAG
               AND z.PODM_UMOW_ID_UMOW = p.ID_AGUM
               AND z.ID_ZDAR = WE_ID_ZDAR;
               EXCEPTION
                    WHEN NO_DATA_FOUND THEN
                    BEGIN
                    SELECT p.NUMER NUMER, DECODE(a.TYP_AGENTA,'A','F','P') RODZAJ, DECODE(a.TYP_AGENTA,'P','R',a.TYP_AGENTA) TYP_PRZY,NULL TYP_UBEZ,a.nazwisko, a.imie, a.imie_ojca, a.nazwa_firmy, a.nazwa_firmy_skr
                    INTO c_numer, c_rodzaj, c_typ_przy, c_typ_ubez, c_nazwisko, c_imie, c_imie_ojca, c_nazwa_firmy, c_nazwa_firmy_skr
                    FROM T_AG_AGENCI a, T_AG_UMOWY p, T_ZDARZENIA z
                    WHERE a.ID_AGAG = p.AGAG_ID_AGAG
                    AND z.PODM_ID_PODM = a.ID_AGAG
                    AND z.PODM_UMOW_ID_UMOW IS NULL
                    AND z.ID_ZDAR = WE_ID_ZDAR;
                    EXCEPTION
                         WHEN NO_DATA_FOUND THEN
                         BEGIN
                         SELECT p.NUMER_UMOWY NUMER, DECODE(p.TYP_AGENTA,'A','F','P') RODZAJ, DECODE(p.TYP_AGENTA,'P','R',p.TYP_AGENTA) TYP_PRZY,NULL TYP_UBEZ,p.nazwisko, p.imie_pierwsze, p.imie_ojca, p.nazwa_firmy, p.nazwa_firmy_skr
                         INTO c_numer, c_rodzaj, c_typ_przy, c_typ_ubez, c_nazwisko, c_imie, c_imie_ojca, c_nazwa_firmy, c_nazwa_firmy_skr
                         FROM T_AG_KANDYDACI a, T_AG_UMOWY_TAB p, T_ZDARZENIA z
                         WHERE a.ID_AGKAN = p.TECH_PODM_ID_PODM
                         AND z.PODM_UMOW_ID_UMOW = p.TECH_ID_AGUMT
                         AND z.ID_ZDAR = WE_ID_ZDAR;
                         EXCEPTION
                              WHEN NO_DATA_FOUND THEN
                              BEGIN
                              SELECT p.NUMER_UMOWY NUMER, DECODE(p.TYP_AGENTA,'A','F','P') RODZAJ, DECODE(p.TYP_AGENTA,'P','R',p.TYP_AGENTA) TYP_PRZY,NULL TYP_UBEZ,p.nazwisko, p.imie_pierwsze, p.imie_ojca, p.nazwa_firmy, p.nazwa_firmy_skr
                              INTO c_numer, c_rodzaj, c_typ_przy, c_typ_ubez, c_nazwisko, c_imie, c_imie_ojca, c_nazwa_firmy, c_nazwa_firmy_skr
                              FROM T_AG_KANDYDACI a, T_AG_UMOWY_TAB p, T_ZDARZENIA z
                              WHERE a.ID_AGKAN = p.TECH_PODM_ID_PODM
                              AND z.PODM_ID_PODM = a.ID_AGKAN
                              AND z.PODM_UMOW_ID_UMOW IS NULL
                              AND z.ID_ZDAR = WE_ID_ZDAR;
                              EXCEPTION
                                   WHEN NO_DATA_FOUND THEN
                                   BEGIN
                                   SELECT k.NUMER_UMOWY NUMER, DECODE(k.TYP_PRZYSTAPIENIA,'P','F','P') RODZAJ,k.TYP_PRZYSTAPIENIA TYP_PRZY,'NPO' TYP_UBEZ, k.nazwisko, k.imie_pierwsze, k.imie_ojca, k.nazwa_firmy nazwa_firmy, k.nazwa_firmy_skr nazwa_firmy_skr
                                   INTO c_numer, c_rodzaj, c_typ_przy, c_typ_ubez, c_nazwisko, c_imie, c_imie_ojca, c_nazwa_firmy, c_nazwa_firmy_skr
                                   FROM T_WE_UM_NPO_TAB k, T_ZDARZENIA z
                                   WHERE z.ID_ZDAR = k.TECH_ZDAR_ID_ZDAR
                                   AND k.TYP_PRZYSTAPIENIA IN ('P','W')
                                   AND z.PODM_ID_PODM IS NULL
                                   AND z.PODM_UMOW_ID_UMOW IS NULL
                                   AND z.ID_ZDAR = WE_ID_ZDAR;
                                   EXCEPTION
                                        WHEN NO_DATA_FOUND THEN
                                        BEGIN
                                        SELECT k.NUMER_UMOWY NUMER, 'F' RODZAJ,'-' TYP_PRZY,'OPS' TYP_UBEZ, k.nazwisko, k.imie_pierwsze, k.imie_ojca, NULL nazwa_firmy, NULL nazwa_firmy_skr
                                        INTO c_numer, c_rodzaj, c_typ_przy, c_typ_ubez, c_nazwisko, c_imie, c_imie_ojca, c_nazwa_firmy, c_nazwa_firmy_skr
                                        FROM T_WE_UM_OPS_TAB k,T_ZDARZENIA z
                                        WHERE z.ID_ZDAR = k.TECH_ZDAR_ID_ZDAR
                                        AND z.PODM_ID_PODM IS NULL
                                        AND z.PODM_UMOW_ID_UMOW IS NULL
                                        AND z.ID_ZDAR = WE_ID_ZDAR;
                                        EXCEPTION
                                             WHEN NO_DATA_FOUND THEN
                                             BEGIN
                                             SELECT NULL NUMER, NULL RODZAJ,NULL TYP_PRZY,NULL TYP_UBEZ, NULL nazwisko, NULL imie_pierwsze, NULL imie_ojca, NULL nazwa_firmy, NULL nazwa_firmy_skr
                                             INTO c_numer, c_rodzaj, c_typ_przy, c_typ_ubez, c_nazwisko, c_imie, c_imie_ojca, c_nazwa_firmy, c_nazwa_firmy_skr
                                             FROM T_ZDARZENIA z
                                             WHERE z.TYP NOT IN ('UM_OPS','UM_NPO','NPO_OP','UZUP_U')
                                             AND z.PODM_ID_PODM IS NULL
                                             AND z.PODM_UMOW_ID_UMOW IS NULL
                                             AND z.ID_ZDAR = WE_ID_ZDAR;
                                             EXCEPTION
                                                  WHEN NO_DATA_FOUND THEN
                                                       --dbms_output.put_line('id zdar wykonania '||WE_ID_ZDAR||' ostatni wyjatek');
                                                       NULL;
                                             END;
                                        END;
                                   END;
                              END;
                         END;
                    END;
               END;
          END;
     END;
END;
--raise c;
IF WE_KOLUMNA = 'NUMER' THEN
RETURN c_numer;
ELSIF WE_KOLUMNA = 'RODZAJ' THEN
RETURN c_rodzaj;
ELSIF WE_KOLUMNA = 'TYP_PRZY' THEN
RETURN c_typ_przy;
ELSIF WE_KOLUMNA = 'TYP_UBEZ' THEN
RETURN c_typ_ubez;
ELSIF WE_KOLUMNA = 'NAZWISKO' THEN
RETURN c_nazwisko;
ELSIF WE_KOLUMNA = 'IMIE' THEN
RETURN c_imie;
ELSIF WE_KOLUMNA = 'IMIE_OJCA' THEN
RETURN c_imie_ojca;
ELSIF WE_KOLUMNA = 'NAZWA_FIRMY' THEN
RETURN c_nazwa_firmy;
ELSIF WE_KOLUMNA = 'NAZWA_FIRMY_SKR' THEN
RETURN c_nazwa_firmy_skr;
ELSIF WE_KOLUMNA = 'JEST' THEN
RETURN c_jest;
END IF;
END;
CREATE OR REPLACE FUNCTION F_Rej_Zdar_Date
(WE_ID_ZDAR IN NUMBER
,WE_KOLUMNA IN VARCHAR2
RETURN DATE
IS
d_data DATE;
BEGIN
BEGIN
SELECT p.DATA_PODPISANIA
INTO d_data
FROM T_KLIENCI k, T_PRZYSTAPIENIA p, T_ZDARZENIA z, T_PODMIOTY D1, T_PODMIOTY D2
WHERE p.KLIE_ID_KLIE = k.ID_KLIE
AND z.PODM_ID_PODM = D1.ID_PODM
AND D1.KLIE_ID_KLIE = p.KLIE_ID_KLIE
AND Z.PODM_UMOW_ID_UMOW = D2.ID_PODM
AND D2.PRZY_ID_PRZY = P.ID_PRZY
AND z.ID_ZDAR = WE_ID_ZDAR;
EXCEPTION
     WHEN NO_DATA_FOUND THEN
     BEGIN
     SELECT p.DATA_PODPISANIA
     INTO d_data
     FROM T_KLIENCI k, T_PRZYSTAPIENIA p, T_ZDARZENIA z, T_PODMIOTY D
     WHERE z.PODM_UMOW_ID_UMOW IS NULL
     AND z.PODM_ID_PODM = D.ID_PODM
     AND D.KLIE_ID_KLIE = k.ID_KLIE
     AND p.KLIE_ID_KLIE = k.ID_KLIE
     AND z.ID_ZDAR = WE_ID_ZDAR;
     EXCEPTION
          WHEN NO_DATA_FOUND THEN
          BEGIN
          SELECT NULL DATA_PODPISANIA
          INTO d_data
          FROM T_ZDARZENIA z, T_INSTYTUCJE I
          WHERE Z.TYP IN ('WFS526','WFS542','WFS553','WFS609','WFS611','WYP_KS','WYP_PO','WYP_SB','DI_ZAT')
          AND z.PODM_UMOW_ID_UMOW IS NULL
          AND Z.PODM_ID_PODM = I.ID_INST
          AND z.ID_ZDAR = WE_ID_ZDAR;
          EXCEPTION
               WHEN NO_DATA_FOUND THEN
               BEGIN
               SELECT p.DATA_PODPISANIA DATA_PODPISANIA
               INTO d_data
               FROM T_AG_AGENCI a, T_AG_UMOWY p, T_ZDARZENIA z
               WHERE a.ID_AGAG = p.AGAG_ID_AGAG
               AND z.PODM_UMOW_ID_UMOW = p.ID_AGUM
               AND z.ID_ZDAR = WE_ID_ZDAR;
               EXCEPTION
                    WHEN NO_DATA_FOUND THEN
                    BEGIN
                    SELECT p.DATA_PODPISANIA DATA_PODPISANIA
                    INTO d_data
                    FROM T_AG_AGENCI a, T_AG_UMOWY p, T_ZDARZENIA z
                    WHERE a.ID_AGAG = p.AGAG_ID_AGAG
                    AND z.PODM_ID_PODM = a.ID_AGAG
                    AND z.PODM_UMOW_ID_UMOW IS NULL
                    AND z.ID_ZDAR = WE_ID_ZDAR;
                    EXCEPTION
                         WHEN NO_DATA_FOUND THEN
                         BEGIN
                         SELECT p.DATA_PODPISU_AGENTA DATA_PODPISANIA
                         INTO d_data
                         FROM T_AG_KANDYDACI a, T_AG_UMOWY_TAB p, T_ZDARZENIA z
                         WHERE a.ID_AGKAN = p.TECH_PODM_ID_PODM
                         AND z.PODM_UMOW_ID_UMOW = p.TECH_ID_AGUMT
                         AND z.ID_ZDAR = WE_ID_ZDAR;
                         EXCEPTION
                              WHEN NO_DATA_FOUND THEN
                              BEGIN
                              SELECT p.DATA_PODPISU_AGENTA DATA_PODPISANIA
                              INTO d_data
                              FROM T_AG_KANDYDACI a, T_AG_UMOWY_TAB p, T_ZDARZENIA z
                              WHERE a.ID_AGKAN = p.TECH_PODM_ID_PODM
                              AND z.PODM_ID_PODM = a.ID_AGKAN
                              AND z.PODM_UMOW_ID_UMOW IS NULL
                              AND z.ID_ZDAR = WE_ID_ZDAR;
                              EXCEPTION
                                   WHEN NO_DATA_FOUND THEN
                                   BEGIN
                                   SELECT k.DATA_PODPISANIA_UM DATA_PODPISANIA
                                   INTO d_data
                                   FROM T_WE_UM_NPO_TAB k, T_ZDARZENIA z
                                   WHERE z.ID_ZDAR = k.TECH_ZDAR_ID_ZDAR
                                   AND k.TYP_PRZYSTAPIENIA IN ('P','W')
                                   AND z.PODM_ID_PODM IS NULL
                                   AND z.PODM_UMOW_ID_UMOW IS NULL
                                   AND z.ID_ZDAR = WE_ID_ZDAR;
                                   EXCEPTION
                                        WHEN NO_DATA_FOUND THEN
                                        BEGIN
                                        SELECT k.DATA_PODPISANIA_UM DATA_PODPISANIA
                                        INTO d_data
                                        FROM T_WE_UM_OPS_TAB k,T_ZDARZENIA z
                                        WHERE z.ID_ZDAR = k.TECH_ZDAR_ID_ZDAR
                                        AND z.PODM_ID_PODM IS NULL
                                        AND z.PODM_UMOW_ID_UMOW IS NULL
                                        AND z.ID_ZDAR = WE_ID_ZDAR;
                                        EXCEPTION
                                             WHEN NO_DATA_FOUND THEN
                                             BEGIN
                                             SELECT NULL DATA_PODPISANIA
                                             INTO d_data
                                             FROM T_ZDARZENIA z
                                             WHERE z.TYP NOT IN ('UM_OPS','UM_NPO','NPO_OP','UZUP_U')
                                             AND z.PODM_ID_PODM IS NULL
                                             AND z.PODM_UMOW_ID_UMOW IS NULL
                                             AND z.ID_ZDAR = WE_ID_ZDAR;
                                             EXCEPTION
                                                  WHEN NO_DATA_FOUND THEN
                                                       d_data := NULL;
                                             END;
                                        END;
                                   END;
                              END;
                         END;
                    END;
               END;
          END;
     END;
END;
IF WE_KOLUMNA = 'DATA_PODPISANIA' THEN
RETURN d_data;
END IF;
END;