PACKAGE BODY: APPS.PER_PERSON_PROFILE

Source

1 PACKAGE BODY per_person_profile AS
2 /* $Header: peppgpbe.pkb 120.0.12010000.3 2008/11/26 12:53:20 srgnanas noship $ */
3 
4 PROCEDURE raise_event(p_event       IN wf_event_t)
5 IS
6     l_event_key         NUMBER;
7     l_event_data        CLOB;
8     l_event_name        VARCHAR2(250) := 'oracle.apps.per.person.profile';
9     l_parameter_list    wf_parameter_list_t;
10     l_text              VARCHAR2(2000);
11     l_message           VARCHAR2(10);
12 
13     CURSOR get_seq IS
14         SELECT per_wf_events_s.NEXTVAL FROM dual;
15 
16     l_doc            dbms_xmldom.domdocument := NULL;
17     l_doce           dbms_xmldom.domelement := NULL;
18 
19     l_proc           VARCHAR2(72):='  per_person_profile.raise_event';
20 BEGIN
21     hr_utility.set_location('Entering: '||l_proc,10);
22     l_message:=wf_event.test(l_event_name);
23     --
24     l_event_data := p_event.getEventData();
25     l_event_key  := p_event.getEventKey();
26 
27     wf_event.AddParameterToList(p_name          => 'EVENT_TYPE',
28                                 p_value         => p_event.getEventName(),
29                                 p_parameterlist => l_parameter_list);
30 
31     IF (l_message='MESSAGE') THEN
32         hr_utility.set_location(l_proc,20);
33         --
34         -- get a key for the event
35         --
36         OPEN get_seq;
37         FETCH get_seq INTO l_event_key;
38         CLOSE get_seq;
39 
40        -- raise the event with the event data
41        wf_event.raise(p_event_name  => l_event_name
42                      ,p_event_key   => l_event_key
43                      ,p_event_data  => l_event_data
44                      ,p_parameters  => l_parameter_list);
45 
46     ELSIF (l_message='KEY') THEN
47         hr_utility.set_location(l_proc,30);
48         -- get a key for the event
49         OPEN get_seq;
50         FETCH get_seq INTO l_event_key;
51         CLOSE get_seq;
52        -- this is a key event, so just raise the event
53        -- without the event data
54        wf_event.raise(p_event_name  => l_event_name
55                      ,p_event_key   => l_event_key
56                      ,p_parameters  => l_parameter_list);
57 
58     ELSIF (l_message='NONE') THEN
59         hr_utility.set_location(l_proc,40);
60         -- no event is required, so do nothing
61         NULL;
62     END IF;
63     hr_utility.set_location('Leaving: '||l_proc,50);
64 END raise_event;
65 
66 FUNCTION raise_person_profile_event( p_subscription_guid IN RAW
67                               ,p_event IN OUT NOCOPY WF_EVENT_T) RETURN VARCHAR2
68 IS
69     l_proc                  VARCHAR2(72):='  per_person_profile.raise_person_profile_event';
70 BEGIN
71     hr_utility.set_location('Entering: '|| l_proc,10);
72 
73     raise_event(p_event       => p_event);
74 
75     hr_utility.set_location('Leaving: '||l_proc,50);
76     RETURN 'SUCCESS';
77     EXCEPTION
78         WHEN OTHERS THEN
79             hr_utility.trace('Error at per_person_profile.raise_person_profile_event - ' || SQLERRM );
80             hr_utility.trace_off;
81         RETURN 'ERROR';
82 END raise_person_profile_event;
83 END per_person_profile;