[Home] [Help]
PACKAGE BODY: APPS.FA_BUSINESS_EVENTS
Source
1 PACKAGE BODY fa_business_events AS
2 /* $Header: fawfbevb.pls 120.3 2009/03/27 01:14:02 bridgway ship $ */
3
4 --
5 -- PUBLIC FUNCTIONS
6 --
7
8 FUNCTION test(p_event_name in varchar2, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) return varchar2 IS
9 BEGIN
10 return(wf_event.test(p_event_name => p_event_name));
11 END test;
12
13 PROCEDURE raise(p_event_name in varchar2,
14 p_event_key in varchar2,
15 p_event_data in clob default NULL,
16 p_parameter_name1 in varchar2 default NULL,
17 p_parameter_value1 in varchar2 default NULL,
18 p_parameter_name2 in varchar2 default NULL,
19 p_parameter_value2 in varchar2 default NULL,
20 p_parameter_name3 in varchar2 default NULL,
21 p_parameter_value3 in varchar2 default NULL,
22 p_parameter_name4 in varchar2 default NULL,
23 p_parameter_value4 in varchar2 default NULL,
24 p_parameter_name5 in varchar2 default NULL,
25 p_parameter_value5 in varchar2 default NULL,
26 p_parameter_name6 in varchar2 default NULL,
27 p_parameter_value6 in varchar2 default NULL,
28 p_parameter_name7 in varchar2 default NULL,
29 p_parameter_value7 in varchar2 default NULL,
30 p_parameter_name8 in varchar2 default NULL,
31 p_parameter_value8 in varchar2 default NULL,
32 p_parameter_name9 in varchar2 default NULL,
33 p_parameter_value9 in varchar2 default NULL,
34 p_parameter_name10 in varchar2 default NULL,
35 p_parameter_value10 in varchar2 default NULL,
36 p_parameter_name11 in varchar2 default NULL,
37 p_parameter_value11 in varchar2 default NULL,
38 p_parameter_name12 in varchar2 default NULL,
39 p_parameter_value12 in varchar2 default NULL,
40 p_parameter_name13 in varchar2 default NULL,
41 p_parameter_value13 in varchar2 default NULL,
42 p_parameter_name14 in varchar2 default NULL,
43 p_parameter_value14 in varchar2 default NULL,
44 p_parameter_name15 in varchar2 default NULL,
45 p_parameter_value15 in varchar2 default NULL,
46 p_parameter_name16 in varchar2 default NULL,
47 p_parameter_value16 in varchar2 default NULL,
48 p_parameter_name17 in varchar2 default NULL,
49 p_parameter_value17 in varchar2 default NULL,
50 p_parameter_name18 in varchar2 default NULL,
51 p_parameter_value18 in varchar2 default NULL,
52 p_parameter_name19 in varchar2 default NULL,
53 p_parameter_value19 in varchar2 default NULL,
54 p_parameter_name20 in varchar2 default NULL,
55 p_parameter_value20 in varchar2 default NULL,
56 p_send_date in date default NULL, p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
57
58 l_param_list WF_PARAMETER_LIST_T := wf_parameter_list_t();
59 BEGIN
60
61 if (p_parameter_name1 is not null) then
62 wf_event.AddParameterToList(
63 p_name => p_parameter_name1,
64 p_value => p_parameter_value1,
65 p_parameterlist => l_param_list);
66 end if;
67
68 if (p_parameter_name2 is not null) then
69 wf_event.AddParameterToList(
70 p_name => p_parameter_name2,
71 p_value => p_parameter_value2,
72 p_parameterlist => l_param_list);
73 end if;
74
75 if (p_parameter_name3 is not null) then
76 wf_event.AddParameterToList(
77 p_name => p_parameter_name3,
78 p_value => p_parameter_value3,
79 p_parameterlist => l_param_list);
80 end if;
81
82 if (p_parameter_name4 is not null) then
83 wf_event.AddParameterToList(
84 p_name => p_parameter_name4,
85 p_value => p_parameter_value4,
86 p_parameterlist => l_param_list);
87 end if;
88
89 if (p_parameter_name5 is not null) then
90 wf_event.AddParameterToList(
91 p_name => p_parameter_name5,
92 p_value => p_parameter_value5,
93 p_parameterlist => l_param_list);
94 end if;
95
96 if (p_parameter_name6 is not null) then
97 wf_event.AddParameterToList(
98 p_name => p_parameter_name6,
99 p_value => p_parameter_value6,
100 p_parameterlist => l_param_list);
101 end if;
102
103 if (p_parameter_name7 is not null) then
104 wf_event.AddParameterToList(
105 p_name => p_parameter_name7,
106 p_value => p_parameter_value7,
107 p_parameterlist => l_param_list);
108 end if;
109
110 if (p_parameter_name8 is not null) then
111 wf_event.AddParameterToList(
112 p_name => p_parameter_name8,
113 p_value => p_parameter_value8,
114 p_parameterlist => l_param_list);
115 end if;
116
117 if (p_parameter_name9 is not null) then
118 wf_event.AddParameterToList(
119 p_name => p_parameter_name9,
120 p_value => p_parameter_value9,
121 p_parameterlist => l_param_list);
122 end if;
123
124 if (p_parameter_name10 is not null) then
125 wf_event.AddParameterToList(
126 p_name => p_parameter_name10,
127 p_value => p_parameter_value10,
128 p_parameterlist => l_param_list);
129 end if;
130
131 if (p_parameter_name11 is not null) then
132 wf_event.AddParameterToList(
133 p_name => p_parameter_name11,
134 p_value => p_parameter_value11,
135 p_parameterlist => l_param_list);
136 end if;
137
138 if (p_parameter_name12 is not null) then
139 wf_event.AddParameterToList(
140 p_name => p_parameter_name12,
141 p_value => p_parameter_value12,
142 p_parameterlist => l_param_list);
143 end if;
144
145 if (p_parameter_name13 is not null) then
146 wf_event.AddParameterToList(
147 p_name => p_parameter_name13,
148 p_value => p_parameter_value13,
149 p_parameterlist => l_param_list);
150 end if;
151
152 if (p_parameter_name14 is not null) then
153 wf_event.AddParameterToList(
154 p_name => p_parameter_name14,
155 p_value => p_parameter_value14,
156 p_parameterlist => l_param_list);
157 end if;
158
159 if (p_parameter_name15 is not null) then
160 wf_event.AddParameterToList(
161 p_name => p_parameter_name15,
162 p_value => p_parameter_value15,
163 p_parameterlist => l_param_list);
164 end if;
165
166 if (p_parameter_name16 is not null) then
167 wf_event.AddParameterToList(
168 p_name => p_parameter_name16,
169 p_value => p_parameter_value16,
170 p_parameterlist => l_param_list);
171 end if;
172
173 if (p_parameter_name17 is not null) then
174 wf_event.AddParameterToList(
175 p_name => p_parameter_name17,
176 p_value => p_parameter_value17,
177 p_parameterlist => l_param_list);
178 end if;
179
180 if (p_parameter_name18 is not null) then
181 wf_event.AddParameterToList(
182 p_name => p_parameter_name18,
183 p_value => p_parameter_value18,
184 p_parameterlist => l_param_list);
185 end if;
186
187 if (p_parameter_name19 is not null) then
188 wf_event.AddParameterToList(
189 p_name => p_parameter_name19,
190 p_value => p_parameter_value19,
191 p_parameterlist => l_param_list);
192 end if;
193
194 if (p_parameter_name20 is not null) then
195 wf_event.AddParameterToList(
196 p_name => p_parameter_name20,
197 p_value => p_parameter_value20,
198 p_parameterlist => l_param_list);
199 end if;
200
201 wf_event.raise(p_event_name => p_event_name,
202 p_event_key => p_event_key,
203 p_event_data => p_event_data,
204 p_parameters => l_param_list,
205 p_send_date => p_send_date);
206 END raise;
207
208 END fa_business_events;