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