Notes

CREATE OR REPLACE PACKAGE Loc_MGR_PKG AS
FUNCTION genLocID RETURN number;
FUNCTION checkEU (pCountryID varchar2) RETURN boolean;
PROCEDURE insertNewLoc (pSA varchar2,pPC varchar2 ,pCITY varchar2,pSP varchar2, pCI char);
END Loc_MGR_PKG;

CREATE OR REPLACE PACKAGE BODY Loc_MGR_PKG AS

FUNCTION genLocID return number is
newGenLOC_ID number(4);
begin
SELECT MAX(location_id) + 100 INTO newGenLOC_ID FROM LOCATIONS;
return newGenLOC_ID;
end;

FUNCTION checkEU (pCountryID varchar2)
RETURN boolean IS
checkRes boolean;
begin
IF pCountryID = 'EU' THEN
checkRes := true;
ELSE
checkRes := false;
END IF;
end;

PROCEDURE insertNewLoc (pSA varchar2,pPC varchar2 ,pCITY varchar2,pSP varchar2, pCI char) is
checkRes boolean;
newLocID number(4);
begin
newLocID := genLocID();
checkRes := checkEU(pCI);

if checkRes = true then
DBMS_OUTPUT.PUT_LINE('INSERT GAGAL');
else
INSERT INTO LOCATIONS VALUES(newLocID, pSA, pPC, pCITY, pSP, pCI);
DBMS_OUTPUT.PUT_LINE('INSERT BERHASIL');
end if;

end;
END Loc_MGR_PKG;

select Loc_MGR_PKG.insertNewLoc('hehe', 'hehe','hehe','hehe','EA');
from dual;

DECLARE
v_SA locations.STREET_ADDRESS%TYPE := 'hehe';
v_PC locations.STREET_ADDRESS%TYPE := 'hehe';
v_CITY locations.STREET_ADDRESS%TYPE := 'hehe';
v_SP locations.STREET_ADDRESS%TYPE := 'hehe';
v_CI locations.STREET_ADDRESS%TYPE := 'EA';
BEGIN
Loc_MGR_PKG.insertNewLoc(v_SA,v_PC,v_CITY,v_SP,v_CI);
END;