PACKAGE BODY: APPS.HR_ORGANIZATION_BE10

Source

1 package body hr_organization_be10 as 
2 --Code generated on 27/11/2012 03:58:25
3 /* $Header: hrapiwfe.pkb 120.11 2011/12/24 13:28:35 vboggava ship $*/
4 procedure create_org_class_internal_a (
5 p_effective_date               date,
6 p_organization_id              number,
7 p_org_classif_code             varchar2,
8 p_classification_enabled       varchar2,
9 p_org_information_id           number,
10 p_object_version_number        number) is
11   l_event_key number;
12   l_event_data clob;
13   l_event_name varchar2(250);
14   l_text varchar2(2000);
15   l_message varchar2(10);
16   --
17   cursor get_seq is
18   select per_wf_events_s.nextval from dual;
19   --
20   l_proc varchar2(72):='  hr_organization_be10.create_org_class_internal_a';
21 begin
22   hr_utility.set_location('Entering: '||l_proc,10);
23   -- check the status of the business event
24   l_event_name:='oracle.apps.per.api.organization.create_org_class_internal';
25   l_message:=wf_event.test(l_event_name);
26   --
27   if (l_message='MESSAGE') then
28     hr_utility.set_location(l_proc,20);
29     --
30     -- get a key for the event
31     --
32     open get_seq;
33     fetch get_seq into l_event_key;
34     close get_seq;
35     --
36     -- build the xml data for the event
37     --
38     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
39     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
40     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
41     l_text:='<organization>';
42     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
43     --
44     l_text:='<effective_date>';
45     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
46     l_text:=l_text||'</effective_date>';
47     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
48     l_text:='<organization_id>';
49     l_text:=l_text||fnd_number.number_to_canonical(p_organization_id);
50     l_text:=l_text||'</organization_id>';
51     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
52     l_text:='<org_classif_code>';
53     l_text:=l_text||irc_utilities_pkg.removeTags(p_org_classif_code);
54     l_text:=l_text||'</org_classif_code>';
55     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
56     l_text:='<classification_enabled>';
57     l_text:=l_text||irc_utilities_pkg.removeTags(p_classification_enabled);
58     l_text:=l_text||'</classification_enabled>';
59     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
60     l_text:='<org_information_id>';
61     l_text:=l_text||fnd_number.number_to_canonical(p_org_information_id);
62     l_text:=l_text||'</org_information_id>';
63     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
64     l_text:='<object_version_number>';
65     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
66     l_text:=l_text||'</object_version_number>';
67     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
68     l_text:='</organization>';
69     --
70     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
71     --
72     -- raise the event with the event data
73     wf_event.raise(p_event_name=>l_event_name
74                   ,p_event_key=>l_event_key
75                   ,p_event_data=>l_event_data);
76   elsif (l_message='KEY') then
77     hr_utility.set_location(l_proc,30);
78     -- get a key for the event
79     open get_seq;
80     fetch get_seq into l_event_key;
81     close get_seq;
82     -- this is a key event, so just raise the event
83     -- without the event data
84     wf_event.raise(p_event_name=>l_event_name
85                   ,p_event_key=>l_event_key);
86   elsif (l_message='NONE') then
87     hr_utility.set_location(l_proc,40);
88     -- no event is required, so do nothing
89     null;
90   end if;
91     hr_utility.set_location('Leaving: '||l_proc,50);
92 end create_org_class_internal_a;
93 end hr_organization_be10;