PACKAGE BODY: APPS.GHR_EVENTS_PKG

Source

1 Package Body ghr_events_pkg as
2 /* $Header: ghrwseve.pkb 120.0.12010000.2 2009/05/26 10:52:27 vmididho noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33) := 'ghr_events_pkg.';  -- Global package name
9 --
10 --------------------------- <get_next_event_id> ------------------------------------
11 FUNCTION get_next_event_id
12   RETURN NUMBER
13 IS
14 --
15   l_proc       varchar2(72) := g_package||'get_next_event_id';
16 
17 CURSOR get_id IS
18   SELECT GHR_EVENTS_S.NEXTVAL event_id
19   FROM DUAL;
20 
21 --
22 BEGIN
23   FOR get_id_rec IN get_id  LOOP
24     RETURN(get_id_rec.event_id);
25   END LOOP;
26   --
27   --
28 END get_next_event_id;
29 ----------------------------------------------------------------------------------
30 
31 --------------------------- <delete_ok> ------------------------------------
32 FUNCTION delete_ok
33   (p_event_id   IN      ghr_events.event_id%type) RETURN BOOLEAN IS
34 --
35 -- Returning TRUE allows Delete to happen.
36 -- Returning FALSE will Stop Delete
37 --
38   l_proc       varchar2(72) := g_package||'delete_ok';
39   l_del_chk    BOOLEAN      := TRUE;
40 
41 CURSOR del_chk IS
42   SELECT EVH.event_id
43   FROM GHR_EVENT_HISTORY EVH
44   WHERE EVH.event_id = p_event_id;
45 
46 --
47 BEGIN
48   FOR del_chk_rec IN del_chk LOOP
49     RETURN(FALSE);
50   END LOOP;
51   RETURN(TRUE);
52 --
53 END delete_ok;
54 ----------------------------------------------------------------------------------
55 
56 end ghr_events_pkg ;