PACKAGE BODY: APPS.PER_QUALIFICATION_EVENT

Source

1 Package Body PER_QUALIFICATION_EVENT as
2 /* $Header: pequabev.pkb 120.0.12010000.4 2009/03/12 13:13:46 dparthas 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    p_person_id                     in     number
17   )
18 is
19   l_proc                varchar2(72) := g_package||'RAISE_BUSINESS_EVENT';
20 begin
21   IF p_event = 'DELETE' THEN
22     per_qualifications_be3.delete_qualification_a
23       (p_qualification_id      => p_qualification_id,
24        p_object_version_number => p_object_version_number,
25        p_person_id             => p_person_id);
26   END IF;
27 end RAISE_BUSINESS_EVENT;
28 --
29 end PER_QUALIFICATION_EVENT;