DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_DOCUMENT_TYPES_BE2

Source


1 package body hr_document_types_be2 as 
2 --Code generated on 30/03/2009 04:46:03
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure update_document_type_a (
5 p_document_type_id             number,
6 p_effective_date               date,
7 p_document_type                varchar2,
8 p_language_code                varchar2,
9 p_description                  varchar2,
10 p_category_code                varchar2,
11 p_active_inactive_flag         varchar2,
12 p_multiple_occurences_flag     varchar2,
13 p_authorization_required       varchar2,
14 p_sub_category_code            varchar2,
15 p_legislation_code             varchar2,
16 p_warning_period               number,
17 p_request_id                   number,
18 p_program_application_id       number,
19 p_program_id                   number,
20 p_program_update_date          date,
21 p_object_version_number        number) is
22   l_event_key number;
23   l_event_data clob;
24   l_event_name varchar2(250);
25   l_text varchar2(2000);
26   l_message varchar2(10);
27   --
28   cursor get_seq is
29   select per_wf_events_s.nextval from dual;
30   --
31   l_proc varchar2(72):='  hr_document_types_be2.update_document_type_a';
32 begin
33   hr_utility.set_location('Entering: '||l_proc,10);
34   -- check the status of the business event
35   l_event_name:='oracle.apps.per.api.document_types.update_document_type';
36   l_message:=wf_event.test(l_event_name);
37   --
38   if (l_message='MESSAGE') then
39     hr_utility.set_location(l_proc,20);
40     --
41     -- get a key for the event
42     --
43     open get_seq;
44     fetch get_seq into l_event_key;
45     close get_seq;
46     --
47     -- build the xml data for the event
48     --
49     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
50     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
51     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
52     l_text:='<document_types>';
53     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
54     --
55     l_text:='<document_type_id>';
56     l_text:=l_text||fnd_number.number_to_canonical(p_document_type_id);
57     l_text:=l_text||'</document_type_id>';
58     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
59     l_text:='<effective_date>';
60     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
61     l_text:=l_text||'</effective_date>';
62     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
63     l_text:='<document_type>';
64     l_text:=l_text||irc_utilities_pkg.removeTags(p_document_type);
65     l_text:=l_text||'</document_type>';
66     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
67     l_text:='<language_code>';
68     l_text:=l_text||irc_utilities_pkg.removeTags(p_language_code);
69     l_text:=l_text||'</language_code>';
70     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
71     l_text:='<description>';
72     l_text:=l_text||irc_utilities_pkg.removeTags(p_description);
73     l_text:=l_text||'</description>';
74     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
75     l_text:='<category_code>';
76     l_text:=l_text||irc_utilities_pkg.removeTags(p_category_code);
77     l_text:=l_text||'</category_code>';
78     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
79     l_text:='<active_inactive_flag>';
80     l_text:=l_text||irc_utilities_pkg.removeTags(p_active_inactive_flag);
81     l_text:=l_text||'</active_inactive_flag>';
82     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
83     l_text:='<multiple_occurences_flag>';
84     l_text:=l_text||irc_utilities_pkg.removeTags(p_multiple_occurences_flag);
85     l_text:=l_text||'</multiple_occurences_flag>';
86     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
87     l_text:='<authorization_required>';
88     l_text:=l_text||irc_utilities_pkg.removeTags(p_authorization_required);
89     l_text:=l_text||'</authorization_required>';
90     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
91     l_text:='<sub_category_code>';
92     l_text:=l_text||irc_utilities_pkg.removeTags(p_sub_category_code);
93     l_text:=l_text||'</sub_category_code>';
94     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
95     l_text:='<legislation_code>';
96     l_text:=l_text||irc_utilities_pkg.removeTags(p_legislation_code);
97     l_text:=l_text||'</legislation_code>';
98     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
99     l_text:='<warning_period>';
100     l_text:=l_text||fnd_number.number_to_canonical(p_warning_period);
101     l_text:=l_text||'</warning_period>';
102     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
103     l_text:='<request_id>';
104     l_text:=l_text||fnd_number.number_to_canonical(p_request_id);
105     l_text:=l_text||'</request_id>';
106     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
107     l_text:='<program_application_id>';
108     l_text:=l_text||fnd_number.number_to_canonical(p_program_application_id);
109     l_text:=l_text||'</program_application_id>';
110     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
111     l_text:='<program_id>';
112     l_text:=l_text||fnd_number.number_to_canonical(p_program_id);
113     l_text:=l_text||'</program_id>';
114     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
115     l_text:='<program_update_date>';
116     l_text:=l_text||fnd_date.date_to_canonical(p_program_update_date);
117     l_text:=l_text||'</program_update_date>';
118     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
119     l_text:='<object_version_number>';
120     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
121     l_text:=l_text||'</object_version_number>';
122     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
123     l_text:='</document_types>';
124     --
125     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
126     --
127     -- raise the event with the event data
128     wf_event.raise(p_event_name=>l_event_name
129                   ,p_event_key=>l_event_key
130                   ,p_event_data=>l_event_data);
131   elsif (l_message='KEY') then
132     hr_utility.set_location(l_proc,30);
133     -- get a key for the event
134     open get_seq;
135     fetch get_seq into l_event_key;
136     close get_seq;
137     -- this is a key event, so just raise the event
138     -- without the event data
139     wf_event.raise(p_event_name=>l_event_name
140                   ,p_event_key=>l_event_key);
141   elsif (l_message='NONE') then
142     hr_utility.set_location(l_proc,40);
143     -- no event is required, so do nothing
144     null;
145   end if;
146     hr_utility.set_location('Leaving: '||l_proc,50);
147 end update_document_type_a;
148 end hr_document_types_be2;