By using db<>fiddle, you agree to license everything you submit by Creative Commons CC0.
CREATE TYPE DIPENDENTE_TY AS OBJECT(
NOME VARCHAR2(20),
CF CHAR(16),
DATAN DATE
) NOT FINAL;
CREATE TYPE AMMINISTRATORE_TY UNDER DIPENDENTE_TY();
CREATE TYPE MEDICO_TY;
CREATE TYPE PAZIENTE_TY;
CREATE TYPE VISITA_TY AS OBJECT(
DATA DATE,
TIPO VARCHAR2(20),
TICKET INTEGER,
DIP REF PAZIENTE_TY,
DIM REF MEDICO_TY
);
CREATE TYPE COLL_REF_VISITA_TY AS TABLE OF REF VISITA_TY;
CREATE TYPE MEDICO_TY UNDER DIPENDENTE_TY(
SPECIALITA VARCHAR2(20),
REPARTO VARCHAR2(20),
VISITATO COLL_REF_VISITA_TY,
MEMBER PROCEDURE INSERISCI_VISITA(
PAZIENTE VARCHAR,
DATAV DATE,
TIPOV VARCHAR2,
TICKET INTEGER
)
);
CREATE TYPE PAZIENTE_TY AS OBJECT(
CF CHAR(16),
NOME VARCHAR2(20),
COGNOME VARCHAR2(20),
FA_VISITA COLL_REF_VISITA_TY
);
CREATE TABLE DIPENDENTE_TAB OF DIPENDENTE_TY;
CREATE TABLE PAZIENTE_TAB OF PAZIENTE_TY
NESTED TABLE FA_VISITA STORE AS VISITE_PAZIENTE_TAB;
CREATE TABLE VISITA_TAB OF VISITA_TY(
DIP SCOPE IS PAZIENTE_TAB,
DIM SCOPE IS DIPENDENTE_TAB
);
ALTER TABLE VISITE_PAZIENTE_TAB
ADD SCOPE FOR ( COLUMN_VALUE ) IS VISITA_TAB;
INSERT INTO visita_tab VALUES ( VISITA_TY( SYSDATE, 'tipo1', 1, NULL, NULL ) );
1 rows affected
INSERT INTO visita_tab VALUES ( VISITA_TY( SYSDATE, 'tipo2', 2, NULL, NULL ) );
1 rows affected
INSERT INTO visita_tab VALUES ( VISITA_TY( SYSDATE, 'tipo3', 3, NULL, NULL ) );
1 rows affected
INSERT INTO DIPENDENTE_TAB VALUES (
MEDICO_TY(
'nome',
'cf______________',
SYSDATE,
'specialita',
'reparto',
COLL_REF_VISITA_TY(
( SELECT REF(v) FROM visita_tab v WHERE ticket = 1 ),
( SELECT REF(v) FROM visita_tab v WHERE ticket = 2 )
)
)
)
1 rows affected
INSERT INTO visita_tab VALUES (
VISITA_TY(
SYSDATE,
'tipo4',
4,
NULL,
( SELECT TREAT(REF(m) AS REF MEDICO_TY)
FROM dipendente_tab m
WHERE nome = 'nome'
AND VALUE(m) IS OF ( MEDICO_TY )
)
)
);
1 rows affected
SELECT data,
tipo,
ticket,
v.dim.nome,
v.dim.cf,
v.dim.datan,
v.dim.specialita,
v.dim.reparto,
dv.column_value.tipo
FROM visita_tab v
OUTER APPLY v.dim.VISITATO dv;
| DATA | TIPO | TICKET | DIM.NOME | DIM.CF | DIM.DATAN | DIM.SPECIALITA | DIM.REPARTO | COLUMN_VALUE.TIPO |
|---|---|---|---|---|---|---|---|---|
| 14-DEC-21 | tipo1 | 1 | null | null | null | null | null | null |
| 14-DEC-21 | tipo2 | 2 | null | null | null | null | null | null |
| 14-DEC-21 | tipo3 | 3 | null | null | null | null | null | null |
| 14-DEC-21 | tipo4 | 4 | nome | cf______________ | 14-DEC-21 | specialita | reparto | tipo1 |
| 14-DEC-21 | tipo4 | 4 | nome | cf______________ | 14-DEC-21 | specialita | reparto | tipo2 |