FONForum

LEKAR ( SifraLekara, Ime, Prezime, DatumZaposlenja, MaticniCentar)
ANGAZOVANJE (SifraCentra , SifraOrdinacije, SifraLekara , Datum, BrojSati)
MEDICINSKI CENTAR (SifraCentra, Naziv, Adresa, DatumOsnivanja)
ORDINACIJA (SifraCentra, SifraOrdinacije, Naziv, Adresa, DatumOsnivanja)
ISPLATA ( SifraIsplate, Datum, Iznos, SifraCentra , SifraOrdinacije, SifraLekara)

a) Prikazuje Prezime, Ime, GodineStaza, Naziv ordinacije za one lekare koji su zaposleni u centru sa nazivom «Medicus» i koji su bili anagažovani u poslednjih 5 godina. Rezultat sortirati u rastućem redosledu godina staža i opadajućem imena.

b) Prikazuje za sve medicinske centre ordinacije koje imaju broj zaposlenih lekara manje od 5 a koji su bili anagažovani samo u svom matičnom centru.

c) Kreira pogled HONORARI(Prezime, Ime, BrojCentara, Mesec, UkupnaMesecnaIsplata) kojim se prikazuju mesečne isplate lekarima u tekućoj godini koji su angažovani van matičnog centra. Kolona BrojCentara prikazuje broj različitih ordinacija koje su isplatile honorar lekarima u prošlom mesecu.

select L.ime, L.prezime, SUM(A.datun-L.datumZaposljenja) as GodineStaza
from Lekar L inner join Angazovanje A on L.SifraLekara=A.Sifralekara
where L.MaticniCentar="Medicus" and Extract (year from GdineStaza)='5'
order by  asc GodineStaza , order by desc L.ime

class A (extent as key A1)
{
    attribute long A1;         
    attribute long A2;
    relationship set <B> a_b_ab1 inverse B :: b_a_ab1;
}   

class B extend A (extent bs)
{
    attribute long B1;   
    attribute long B2;
    rleationship A b_a_ab1 inverse A :: a_b_ab1;
}

class c extends A (extent cs)
{
        attribute long C1;
   attribute long C21;
   relationship set <D> c_d inverse D :: d_c;
        relationship G c_g inverse G :: g_c;
}

class d (extent ds)
{
        attribute long d1;
   rleationship C d_c inverse C :: c_d;
   rleationship E d_e inverse E :: e_d;
}

class e (extent es key E1)
{
       attribute long B1;
   rleationship set <D> e_d inverse D :: d_e;   
}

class f extends E (extent fs)
{
   attribute long F1;
   attribute set <G> slab_Objekat_G;
}

class G
{
   atribute long G1;
   rleationship set <H> g_h inverse H :: h_g;
   rletaionship set <C> g_c inverse C:: c_g;
}

Class H (extent gs key H1)
{
   attibute long H1;
   relationsip set <G> h_g inverse G :: g_h;
}