CREATE OR REPLACE PACKAGE pool_pkg
AS 
VOLYM NUMBER;
PRIS NUMBER;
v_vattenkostnad NUMBER;
FUNCTION rund_pool(höjd NUMBER, RADIE number)RETURN NUMBER;
FUNCTION rektangulära_pool (höjd NUMBER, längd NUMBER, BREDD NUMBER)RETURN NUMBER;
FUNCTION vatten_pris(VOLYM NUMBER, län VARCHAR2)RETURN NUMBER;
FUNCTION poolpris_func(volym NUMBER)RETURN NUMBER;
END pool_pkg;
/


CREATE OR REPLACE PACKAGE BODY pool_pkg
AS
FUNCTION rund_pool(höjd NUMBER, RADIE number)RETURN NUMBER
AS poolpris NUMBER;
BEGIN
VOLYM := (3.14*radie*radie*höjd);
poolpris := poolpris_func(volym);
RETURN poolpris;
END rund_pool;

FUNCTION rektangulära_pool (höjd NUMBER, längd NUMBER, bredd NUMBER)RETURN NUMBER
AS poolpris NUMBER;
BEGIN
volym := (längd*bredd*höjd);
poolpris := poolpris_func(volym);
RETURN poolpris;
END rektangulära_pool;

FUNCTION vatten_pris(VOLYM NUMBER, län VARCHAR2)RETURN NUMBER
AS pris NUMBER;
BEGIN
CASE
    WHEN län = 'Blekinge län' THEN v_vattenkostnad := 1.31;
    WHEN län ='Dalarnas län' THEN v_vattenkostnad := 1.14;
    WHEN län ='Gotlands län' THEN v_vattenkostnad := 1.53;
    WHEN län ='Gävleborgs län' THEN v_vattenkostnad := 1.22;
    WHEN län ='Hallands län' THEN v_vattenkostnad := 1.12;
    WHEN län ='Jämtlands län' THEN v_vattenkostnad := 1.53;
    WHEN län ='Jönköpings län' THEN v_vattenkostnad := 1.17;
    WHEN län ='Kalmar län' THEN v_vattenkostnad := 1.13;
    WHEN län ='Kronobergs län' THEN v_vattenkostnad := 1.13;
    WHEN län ='Norrbottens län' THEN v_vattenkostnad := 1.29;
    WHEN län ='SkÃ¥ne län' THEN v_vattenkostnad := 1.58;
    WHEN län ='Stockholms län' THEN v_vattenkostnad := 1.25;
    WHEN län ='Södermanlands län' THEN v_vattenkostnad := 1.11;
    WHEN län ='Uppsala län' THEN v_vattenkostnad := 1.01;
    WHEN län ='Värmlands län' THEN v_vattenkostnad := 1.04;
    WHEN län ='Västerbottens län' THEN v_vattenkostnad := 1.2;
    WHEN län ='Västernorrlands län' THEN v_vattenkostnad := 1.11;
    WHEN län ='Västmanlands län' THEN v_vattenkostnad := 1.44;
    WHEN län ='Västra Götalands län' THEN v_vattenkostnad := 1.11;
    WHEN län ='Örebro län' THEN v_vattenkostnad := 1.41;
    WHEN län ='Östergötlands län' THEN v_vattenkostnad := 1.52;
    ELSE DBMS_OUTPUT.PUT_LINE('Skriv in ett län t ex. Jämtlands län');
END CASE;
PRIS := VOLYM*V_VATTENKOSTNAD;
RETURN PRIS;
END vatten_pris;

FUNCTION poolpris_func(volym NUMBER)RETURN NUMBER
AS poolpris NUMBER;
BEGIN 
poolpris := volym * 118.16666666666;
RETURN poolpris;
END poolpris_func;

END pool_pkg;
/