PACKAGE BODY: APPS.PER_QUALIFICATION_EVENT

Source

1 Package Body PER_QUALIFICATION_EVENT as
2 /* $Header: pequabev.pkb 120.0.12010000.1 2008/08/27 13:34:30 srgnanas noship $ */
3 --
4 -- Package Variables
5 --
6 g_package  varchar2(33) := '  PER_QUALIFICATION_EVENT.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< RAISE_BUSINESS_EVENT >--------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure RAISE_BUSINESS_EVENT
13   (p_event                         in     varchar2,
14    p_qualification_id              in     number,
15    p_object_version_number         in     number
16   )
17 is
18   l_proc                varchar2(72) := g_package||'RAISE_BUSINESS_EVENT';
19 begin
20   IF p_event = 'DELETE' THEN
21     per_qualifications_be3.delete_qualification_a
22       (p_qualification_id      => p_qualification_id,
23        p_object_version_number => p_object_version_number);
24   END IF;
25 end RAISE_BUSINESS_EVENT;
26 --
27 end PER_QUALIFICATION_EVENT;