[Home] [Help]
PACKAGE BODY: APPS.ASO_APR_PUB
Source
1 PACKAGE BODY aso_apr_pub AS
2 /* $Header: asopaprb.pls 120.1 2005/06/29 12:36:23 appldev ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):= 'ASO_APR_PUB';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'asopaprb.pls';
6
7
8 PROCEDURE get_all_approvers (
9 p_api_version_number IN NUMBER,
10 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
11 p_commit IN VARCHAR2 := fnd_api.g_false,
12 p_object_id IN NUMBER,
13 p_object_type IN VARCHAR2,
14 p_application_id IN NUMBER,
15 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
16 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
17 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
18 x_approvers_list OUT NOCOPY /* file.sql.39 change */ approvers_list_tbl_type,
19 x_rules_list OUT NOCOPY /* file.sql.39 change */ rules_list_tbl_type
20 ) IS
21
22 l_api_name varchar2(240):= 'GET_ALL_APPROVERS';
23
24 BEGIN
25
26 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
27
28 -- Standard Start of API savepoint
29 SAVEPOINT GET_ALL_APPROVERS_PUB;
30
31 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
32 aso_debug_pub.ADD (
33 'BEGIN get_all_approvers in ASO_APR_PUB package ',
34 1,
35 'N'
36 );
37 END IF;
38
39 -- calling the hooks
40
41 IF (JTF_USR_HKS.ok_to_execute(G_PKG_NAME, l_api_name, 'B', 'C')) THEN
42
43 ASO_APR_CUHK.get_all_approvers_PRE (
44 p_object_id => p_object_id,
45 p_object_type => p_object_type,
46 p_application_id => p_application_id,
47 x_return_status => x_return_status,
48 x_msg_count => x_msg_count,
49 x_msg_data => x_msg_data );
50
51 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
52 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
53 FND_MESSAGE.Set_Name('ASO', 'ERROR_RETURNED');
54 FND_MESSAGE.Set_Token('API', 'ASO_APR_CUHK.get_all_approvers_PRE', FALSE);
55 FND_MSG_PUB.ADD;
56 END IF;
57 IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
58 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
59 ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
60 RAISE FND_API.G_EXC_ERROR;
61 END IF;
62 END IF;
63 END IF; -- customer hook
64
65 -- vertical hook
66 IF (JTF_USR_HKS.ok_to_execute(G_PKG_NAME, l_api_name, 'B', 'V')) THEN
67
68 ASO_APR_VUHK.get_all_approvers_PRE (
69 p_object_id => p_object_id,
70 p_object_type => p_object_type,
71 p_application_id => p_application_id,
72 x_return_status => x_return_status,
73 x_msg_count => x_msg_count,
74 x_msg_data => x_msg_data );
75
76 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
77 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
78 FND_MESSAGE.Set_Name('ASO', 'ERROR_RETURNED');
79 FND_MESSAGE.Set_Token('API', 'ASO_APR_VUHK.get_all_approvers_PRE', FALSE);
80 FND_MSG_PUB.ADD;
81 END IF;
82 IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
83 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
84 ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
85 RAISE FND_API.G_EXC_ERROR;
86 END IF;
87 END IF;
88 END IF; -- vertical hook
89
90 aso_apr_int.get_all_approvers (
91 p_api_version_number,
92 p_init_msg_list,
93 p_commit,
94 p_object_id,
95 p_object_type,
96 p_application_id,
97 fnd_api.g_true,
98 x_return_status,
99 x_msg_count,
100 x_msg_data,
101 x_approvers_list,
102 x_rules_list
103 );
104 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
105 aso_debug_pub.ADD (
106 'After caling get_all_approvers in ASO_APR_INT package ',
107 1,
108 'N'
109 );
110 END IF;
111
112 -- Check return status from the above procedure call
113 IF x_return_status = FND_API.G_RET_STS_ERROR then
114 raise FND_API.G_EXC_ERROR;
115 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
116 raise FND_API.G_EXC_UNEXPECTED_ERROR;
117 END IF;
118
119 -- Calling the POST hooks
120
121 IF (JTF_USR_HKS.ok_to_execute(G_PKG_NAME, l_api_name, 'A', 'C')) THEN
122
123 ASO_APR_CUHK.get_all_approvers_POST (
124 p_object_id => p_object_id,
125 p_object_type => p_object_type,
126 p_application_id => p_application_id,
127 x_return_status => x_return_status,
128 x_msg_count => x_msg_count,
129 x_msg_data => x_msg_data );
130
131 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
132 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
133 FND_MESSAGE.Set_Name('ASO', 'ERROR_RETURNED');
134 FND_MESSAGE.Set_Token('API', 'ASO_APR_CUHK.get_all_approvers_POST', FALSE);
135 FND_MSG_PUB.ADD;
136 END IF;
137 IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
138 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
139 ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
140 RAISE FND_API.G_EXC_ERROR;
141 END IF;
142 END IF;
143 END IF; -- customer hook
144
145 -- vertical hook
146 IF (JTF_USR_HKS.ok_to_execute(G_PKG_NAME, l_api_name, 'A', 'V')) THEN
147
148 ASO_APR_VUHK.get_all_approvers_POST (
149 p_object_id => p_object_id,
150 p_object_type => p_object_type,
151 p_application_id => p_application_id,
152 x_return_status => x_return_status,
153 x_msg_count => x_msg_count,
154 x_msg_data => x_msg_data );
155
156 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
157 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
158 FND_MESSAGE.Set_Name('ASO', 'ERROR_RETURNED');
159 FND_MESSAGE.Set_Token('API', 'ASO_APR_VUHK.get_all_approvers_POST', FALSE);
160 FND_MSG_PUB.ADD;
161 END IF;
162 IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
163 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
164 ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
165 RAISE FND_API.G_EXC_ERROR;
166 END IF;
167 END IF;
168 END IF; -- vertical hook
169
170 -- Standard check for p_commit
171 IF FND_API.to_Boolean( p_commit )
172 THEN
173 COMMIT WORK;
174 END IF;
175
176 -- Standard call to get message count and if count is 1, get message info.
177 FND_MSG_PUB.Count_And_Get
178 ( p_count => x_msg_count,
179 p_data => x_msg_data
180 );
181
182 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
183 aso_debug_pub.ADD (
184 'END get_all_approvers in ASO_APR_PUB package ',
185 1,
186 'N'
187 );
188 END IF;
189
190 EXCEPTION
191 WHEN FND_API.G_EXC_ERROR THEN
192 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
193 P_API_NAME => L_API_NAME
194 ,P_PKG_NAME => G_PKG_NAME
195 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
196 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
197 ,X_MSG_COUNT => X_MSG_COUNT
198 ,X_MSG_DATA => X_MSG_DATA
199 ,X_RETURN_STATUS => X_RETURN_STATUS);
200
201 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
202 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
203 P_API_NAME => L_API_NAME
204 ,P_PKG_NAME => G_PKG_NAME
205 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
206 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
207 ,X_MSG_COUNT => X_MSG_COUNT
208 ,X_MSG_DATA => X_MSG_DATA
209 ,X_RETURN_STATUS => X_RETURN_STATUS);
210
211 WHEN OTHERS THEN
212 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
213 P_API_NAME => L_API_NAME
214 ,P_PKG_NAME => G_PKG_NAME
215 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
216 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
217 ,X_MSG_COUNT => X_MSG_COUNT
218 ,X_MSG_DATA => X_MSG_DATA
219 ,X_RETURN_STATUS => X_RETURN_STATUS);
220
221 END get_all_approvers;
222
223 PROCEDURE start_approval_process (
224 p_api_version_number IN NUMBER,
225 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
226 p_commit IN VARCHAR2 := fnd_api.g_false,
227 p_object_id IN NUMBER,
228 p_object_type IN VARCHAR2,
229 p_application_id IN NUMBER,
230 p_approver_sequence IN NUMBER := fnd_api.g_miss_num,
231 p_requester_comments IN VARCHAR2,
232 x_object_approval_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
233 x_approval_instance_id OUT NOCOPY /* file.sql.39 change */ NUMBER,
234 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
235 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
236 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
237 ) IS
238
239 l_api_name varchar2(240):= 'START_APPROVAL_PROCESS';
240
241 BEGIN
242
243 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
244
245 -- Standard Start of API savepoint
246 SAVEPOINT START_APPROVAL_PROCESS_PUB;
247
248
249 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
250 aso_debug_pub.ADD (
251 'BEGIN start_approval_process in ASO_APR_PUB package ',
252 1,
253 'N'
254 );
255 END IF;
256
257 -- calling the hooks
258
259 IF (JTF_USR_HKS.ok_to_execute(G_PKG_NAME, l_api_name, 'B', 'C')) THEN
260
261 ASO_APR_CUHK.start_approval_process_PRE (
262 p_object_id => p_object_id,
263 p_object_type => p_object_type,
264 p_application_id => p_application_id,
265 p_approver_sequence => p_approver_sequence,
266 p_requester_comments => p_requester_comments,
267 x_return_status => x_return_status,
268 x_msg_count => x_msg_count,
269 x_msg_data => x_msg_data);
270
271 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
272 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
273 FND_MESSAGE.Set_Name('ASO', 'ERROR_RETURNED');
274 FND_MESSAGE.Set_Token('API', 'ASO_APR_CUHK.start_approval_process_PRE', FALSE);
275 FND_MSG_PUB.ADD;
276 END IF;
277 IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
278 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279 ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
280 RAISE FND_API.G_EXC_ERROR;
281 END IF;
282 END IF;
283 END IF; -- customer hook
284
285 -- vertical hook
286 IF (JTF_USR_HKS.ok_to_execute(G_PKG_NAME, l_api_name, 'B', 'V')) THEN
287
288 ASO_APR_VUHK.start_approval_process_PRE (
289 p_object_id => p_object_id,
290 p_object_type => p_object_type,
291 p_application_id => p_application_id,
292 p_approver_sequence => p_approver_sequence,
293 p_requester_comments => p_requester_comments,
294 x_return_status => x_return_status,
295 x_msg_count => x_msg_count,
296 x_msg_data => x_msg_data);
297
298 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
299 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
300 FND_MESSAGE.Set_Name('ASO', 'ERROR_RETURNED');
301 FND_MESSAGE.Set_Token('API', 'ASO_APR_VUHK.start_approval_process_PRE', FALSE);
302 FND_MSG_PUB.ADD;
303 END IF;
304 IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
305 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
306 ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
307 RAISE FND_API.G_EXC_ERROR;
308 END IF;
309 END IF;
310 END IF; -- vertical hook
311
312 aso_apr_int.start_approval_process (
313 p_api_version_number,
314 p_init_msg_list,
315 p_commit,
316 p_object_id,
317 p_object_type,
318 p_application_id,
319 p_approver_sequence,
320 p_requester_comments,
321 x_object_approval_id,
322 x_approval_instance_id,
323 x_return_status,
324 x_msg_count,
325 x_msg_data
326 );
327 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
328 aso_debug_pub.ADD (
329 'AFTER calling start_approval_process in ASO_APR_INT package ',
330 1,
331 'N'
332 );
333 END IF;
334
335
336 -- Check return status from the above procedure call
337 IF x_return_status = FND_API.G_RET_STS_ERROR then
338 raise FND_API.G_EXC_ERROR;
339 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
340 raise FND_API.G_EXC_UNEXPECTED_ERROR;
341 END IF;
342
343 -- Calling the POST hooks
344
345 IF (JTF_USR_HKS.ok_to_execute(G_PKG_NAME, l_api_name, 'A', 'C')) THEN
346
347 ASO_APR_CUHK.start_approval_process_POST (
348 p_object_id => p_object_id,
349 p_object_type => p_object_type,
350 p_application_id => p_application_id,
351 p_approver_sequence => p_approver_sequence,
352 p_requester_comments => p_requester_comments,
353 x_return_status => x_return_status,
354 x_msg_count => x_msg_count,
355 x_msg_data => x_msg_data);
356
357 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
358 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
359 FND_MESSAGE.Set_Name('ASO', 'ERROR_RETURNED');
360 FND_MESSAGE.Set_Token('API', 'ASO_APR_CUHK.start_approval_process_POST', FALSE);
361 FND_MSG_PUB.ADD;
362 END IF;
363 IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
364 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
365 ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
366 RAISE FND_API.G_EXC_ERROR;
367 END IF;
368 END IF;
369 END IF; -- customer hook
370
371 -- vertical hook
372 IF (JTF_USR_HKS.ok_to_execute(G_PKG_NAME, l_api_name, 'A', 'V')) THEN
373
374 ASO_APR_VUHK.start_approval_process_POST (
375 p_object_id => p_object_id,
376 p_object_type => p_object_type,
377 p_application_id => p_application_id,
378 p_approver_sequence => p_approver_sequence,
379 p_requester_comments => p_requester_comments,
380 x_return_status => x_return_status,
381 x_msg_count => x_msg_count,
382 x_msg_data => x_msg_data);
383
384 IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
385 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
386 FND_MESSAGE.Set_Name('ASO', 'ERROR_RETURNED');
387 FND_MESSAGE.Set_Token('API', 'ASO_APR_VUHK.start_approval_process_POST', FALSE);
388 FND_MSG_PUB.ADD;
389 END IF;
390 IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
391 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392 ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
393 RAISE FND_API.G_EXC_ERROR;
394 END IF;
395 END IF;
396 END IF; -- vertical hook
397
398 -- Standard check for p_commit
399 IF FND_API.to_Boolean( p_commit )
400 THEN
401 COMMIT WORK;
402 END IF;
403
404 -- Standard call to get message count and if count is 1, get message info.
405 FND_MSG_PUB.Count_And_Get
406 ( p_count => x_msg_count,
407 p_data => x_msg_data
408 );
409
410 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
411 aso_debug_pub.ADD (
412 'END start_approval_process in ASO_APR_PUB package ',
413 1,
414 'N'
415 );
416 END IF;
417
418
419 EXCEPTION
420 WHEN FND_API.G_EXC_ERROR THEN
421 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
422 P_API_NAME => L_API_NAME
423 ,P_PKG_NAME => G_PKG_NAME
424 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
425 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
426 ,X_MSG_COUNT => X_MSG_COUNT
427 ,X_MSG_DATA => X_MSG_DATA
428 ,X_RETURN_STATUS => X_RETURN_STATUS);
429
430 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
431 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
432 P_API_NAME => L_API_NAME
433 ,P_PKG_NAME => G_PKG_NAME
434 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
435 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
436 ,X_MSG_COUNT => X_MSG_COUNT
437 ,X_MSG_DATA => X_MSG_DATA
438 ,X_RETURN_STATUS => X_RETURN_STATUS);
439
440 WHEN OTHERS THEN
441 ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
442 P_API_NAME => L_API_NAME
443 ,P_PKG_NAME => G_PKG_NAME
444 ,P_EXCEPTION_LEVEL => ASO_UTILITY_PVT.G_EXC_OTHERS
445 ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PUB
446 ,X_MSG_COUNT => X_MSG_COUNT
447 ,X_MSG_DATA => X_MSG_DATA
448 ,X_RETURN_STATUS => X_RETURN_STATUS);
449
450 END start_approval_process;
451
452 PROCEDURE cancel_approval_process (
453 p_api_version_number IN NUMBER,
454 p_init_msg_list IN VARCHAR2,
455 p_commit IN VARCHAR2,
456 p_object_id IN NUMBER,
457 p_object_type IN VARCHAR2,
458 p_application_id IN NUMBER,
459 p_itemtype IN VARCHAR2,
460 p_object_approval_id IN NUMBER,
461 p_user_id IN NUMBER,
462 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
463 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
464 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
465 ) IS
466 BEGIN
467
468 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
469
470 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
471 aso_debug_pub.ADD (
472 'BEGIN cancel_approval_process in ASO_APR_PUB package ',
473 1,
474 'N'
475 );
476 END IF;
477 aso_apr_int.cancel_approval_process (
478 p_api_version_number,
479 p_init_msg_list,
480 p_commit,
481 p_object_id,
482 p_object_type,
483 p_application_id,
484 p_itemtype,
485 p_object_approval_id,
486 p_user_id,
487 x_return_status,
488 x_msg_count,
489 x_msg_data
490 );
491 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
492 aso_debug_pub.ADD (
493 'END cancel_approval_process in ASO_APR_PUB package ',
494 1,
495 'N'
496 );
497 END IF;
498 END cancel_approval_process;
499
500 PROCEDURE skip_approver (
501 p_api_version_number IN NUMBER,
502 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
503 p_commit IN VARCHAR2 := fnd_api.g_false,
504 p_object_id IN NUMBER,
505 p_object_type IN VARCHAR2,
506 p_approver_id IN NUMBER,
507 p_approval_instance_id IN NUMBER,
508 p_application_id IN NUMBER,
509 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
510 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
511 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
512 ) IS
513 BEGIN
514
515 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
516
517 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
518 aso_debug_pub.ADD (
519 'BEGIN skip_approver in ASO_APR_PUB package ',
520 1,
521 'N'
522 );
523 END IF;
524 aso_apr_int.skip_approver (
525 p_api_version_number,
526 p_init_msg_list,
527 p_commit,
528 p_object_id,
529 p_object_type,
530 p_approver_id,
531 p_approval_instance_id,
532 p_application_id,
533 x_return_status,
534 x_msg_count,
535 x_msg_data
536 );
537 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
538 aso_debug_pub.ADD (
539 'END skip_approver in ASO_APR_PUB package ',
540 1,
541 'N'
542 );
543 END IF;
544 END skip_approver;
545
546 PROCEDURE get_rule_details (
547 p_api_version_number IN NUMBER,
548 p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false,
549 p_commit IN VARCHAR2 DEFAULT fnd_api.g_false,
550 p_object_approval_id IN NUMBER,
551 x_rules_list OUT NOCOPY /* file.sql.39 change */ aso_apr_pub.rules_list_tbl_type,
552 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
553 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
554 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
555
556 IS
557 BEGIN
558
559 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
560
561 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
562 aso_debug_pub.ADD (
563 'BEGIN get_rule_details in ASO_APR_PUB package ',
564 1,
565 'N'
566 );
567 END IF;
568
569 aso_apr_int.get_rule_details (
570 p_api_version_number,
571 p_init_msg_list,
572 p_commit,
573 p_object_approval_id,
574 x_rules_list,
575 x_return_status,
576 x_msg_count,
577 x_msg_data);
578
579 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
580 aso_debug_pub.ADD (
581 'END get_rule_details in ASO_APR_PUB package ',
582 1,
583 'N'
584 );
585 END IF;
586
587
588 END get_rule_details;
589
590 PROCEDURE start_approval_workflow (
591 p_api_version_number IN NUMBER,
592 p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false,
593 p_commit IN VARCHAR2 DEFAULT fnd_api.g_false,
594 p_object_approval_id IN NUMBER,
595 p_itemtype IN VARCHAR2,
596 p_sender_name IN VARCHAR2,
597 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
598 x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
599 x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
600 IS
601 BEGIN
602
603 aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
604
605 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
606 aso_debug_pub.ADD (
607 'BEGIN start_approval_workflow in ASO_APR_PUB package ',
608 1,
609 'N'
610 );
611 END IF;
612
613 aso_apr_int.start_approval_workflow (
614 p_api_version_number,
615 p_init_msg_list,
616 p_commit,
617 p_object_approval_id,
618 p_itemtype,
619 p_sender_name,
620 x_return_status,
621 x_msg_count,
622 x_msg_data);
623
624 IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
625 aso_debug_pub.ADD (
626 'END start_approval_workflow in ASO_APR_PUB package ',
627 1,
628 'N'
629 );
630 END IF;
631
632
633 END start_approval_workflow;
634
635
636 END aso_apr_pub;