[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;