[Home] [Help]
PACKAGE BODY: APPS.IA_WF_UTIL_PKG
Source
1 PACKAGE BODY IA_WF_UTIL_PKG AS
2 /* $Header: IAWFUTLB.pls 120.0 2005/06/03 23:54:27 appldev noship $ */
3
4 ----------------------------------------------------------
5 FUNCTION ApplicationShortName return VARCHAR2
6 ----------------------------------------------------------
7 IS
8 BEGIN
9 RETURN 'IA';
10 END;
11
12 ----------------------------------------------------------
13 FUNCTION ProfileDebugMode return VARCHAR2
14 ----------------------------------------------------------
15 IS
16 BEGIN
17 RETURN 'IA_PRINT_DEBUG';
18 END;
19
20 ----------------------------------------------------------
21 FUNCTION ProfileRuleID return VARCHAR2
22 ----------------------------------------------------------
23 IS
24 BEGIN
25 RETURN 'IA_SELF_SERVICE_RULE_ID';
26 END;
27
28 ----------------------------------------------------------
29 FUNCTION ProfileSystemAdministrator return VARCHAR2
30 ----------------------------------------------------------
31 IS
32 BEGIN
33 RETURN 'IA_SYSTEM_ADMINISTRATOR_NAME';
34 END;
35
36 ----------------------------------------------------------
37 FUNCTION RequestTypeAssetList return VARCHAR2
38 ----------------------------------------------------------
39 IS
40 BEGIN
41 RETURN 'ASSETLIST';
42 END;
43
44 ----------------------------------------------------------
45 FUNCTION RequestTypeTransfer return VARCHAR2
46 ----------------------------------------------------------
47 IS
48 BEGIN
49 RETURN 'TRANSFER';
50 END;
51
52 ----------------------------------------------------------
53 FUNCTION RequestTypeRetire return VARCHAR2
54 ----------------------------------------------------------
55 IS
56 BEGIN
57 RETURN 'RETIRE';
58 END;
59
60 ----------------------------------------------------------
61 FUNCTION ApprovalStatusSubmitted return VARCHAR2
62 ----------------------------------------------------------
63 IS
64 BEGIN
65 RETURN 'SUBMITTED';
66 END;
67
68 ----------------------------------------------------------
69 FUNCTION ApprovalStatusPendingApproval return VARCHAR2
70 ----------------------------------------------------------
71 IS
72 BEGIN
73 RETURN 'PENDING';
74 END;
75
76 ----------------------------------------------------------
77 FUNCTION ApprovalStatusApproved return VARCHAR2
78 ----------------------------------------------------------
79 IS
80 BEGIN
81 RETURN 'APPROVED';
82 END;
83
84 ----------------------------------------------------------
85 FUNCTION ApprovalStatusFinallyApproved return VARCHAR2
86 ----------------------------------------------------------
87 IS
88 BEGIN
89 RETURN 'FINAL_APPROVED';
90 END;
91
92 ----------------------------------------------------------
93 FUNCTION ApprovalStatusDelegated return VARCHAR2
94 ----------------------------------------------------------
95 IS
96 BEGIN
97 RETURN 'DELEGATED';
98 END;
99
100 ----------------------------------------------------------
101 FUNCTION ApprovalStatusRejected return VARCHAR2
102 ----------------------------------------------------------
103 IS
104 BEGIN
105 RETURN 'REJECTED';
106 END;
107
108 ----------------------------------------------------------
109 FUNCTION HeaderStatusSubmitted return VARCHAR2
110 ----------------------------------------------------------
111 IS
112 BEGIN
113 RETURN 'SUBMITTED';
114 END;
115
116 ----------------------------------------------------------
117 FUNCTION HeaderStatusPendingApproval return VARCHAR2
118 ----------------------------------------------------------
119 IS
120 BEGIN
121 RETURN 'PENDING';
122 END;
123
124 ----------------------------------------------------------
125 FUNCTION HeaderStatusApproved return VARCHAR2
126 ----------------------------------------------------------
127 IS
128 BEGIN
129 RETURN 'APPROVED';
130 END;
131
132 ----------------------------------------------------------
133 FUNCTION HeaderStatusRejected return VARCHAR2
134 ----------------------------------------------------------
135 IS
136 BEGIN
137 RETURN 'REJECTED';
138 END;
139
140 ----------------------------------------------------------
141 FUNCTION HeaderStatusPendingError return VARCHAR2
142 ----------------------------------------------------------
143 IS
144 BEGIN
145 RETURN 'PENDING_ERROR';
146 END;
147
148 ----------------------------------------------------------
149 FUNCTION HeaderStatusPost return VARCHAR2
150 ----------------------------------------------------------
151 IS
152 BEGIN
153 RETURN 'POST';
154 END;
155
156 ----------------------------------------------------------
157 FUNCTION LineStatusNew return VARCHAR2
158 ----------------------------------------------------------
159 IS
160 BEGIN
161 RETURN 'NEW';
162 END;
163
164 ----------------------------------------------------------
165 FUNCTION LineStatusPending return VARCHAR2
166 ----------------------------------------------------------
167 IS
168 BEGIN
169 RETURN 'PENDING';
170 END;
171
172 ----------------------------------------------------------
173 FUNCTION LineStatusPost return VARCHAR2
174 ----------------------------------------------------------
175 IS
176 BEGIN
177 RETURN 'POST';
178 END;
179
180 ----------------------------------------------------------
181 FUNCTION LineStatusOnReview return VARCHAR2
182 ----------------------------------------------------------
183 IS
184 BEGIN
185 RETURN 'ON_REVIEW';
186 END;
187
188 ----------------------------------------------------------
189 FUNCTION LineStatusOnHold return VARCHAR2
190 ----------------------------------------------------------
191 IS
192 BEGIN
193 RETURN 'ON_HOLD';
194 END;
195
196 ----------------------------------------------------------
197 FUNCTION LineStatusRejected return VARCHAR2
198 ----------------------------------------------------------
199 IS
200 BEGIN
201 RETURN 'REJECTED';
202 END;
203
204 ----------------------------------------------------------
205 FUNCTION LineStatusPosted return VARCHAR2
206 ----------------------------------------------------------
207 IS
208 BEGIN
209 RETURN 'POSTED';
210 END;
211
212 ----------------------------------------------------------
213 FUNCTION RespTypeRequest return VARCHAR2
214 ----------------------------------------------------------
215 IS
216 BEGIN
217 RETURN 'REQUEST_ONLY';
218 END;
219
220 ----------------------------------------------------------
221 FUNCTION RespTypeAll return VARCHAR2
222 ----------------------------------------------------------
223 IS
224 BEGIN
225 RETURN 'REQUEST_APPROVE';
226 END;
227
228 ----------------------------------------------------------
229 FUNCTION ApprovalTypeAll return VARCHAR2
230 ----------------------------------------------------------
231 IS
232 BEGIN
233 RETURN 'ALL';
234 END;
235
236 ----------------------------------------------------------
237 FUNCTION ApprovalTypeReleasing return VARCHAR2
238 ----------------------------------------------------------
239 IS
240 BEGIN
241 RETURN 'RELEASE';
242 END;
243
244 ----------------------------------------------------------
245 FUNCTION ApprovalTypeDestination return VARCHAR2
246 ----------------------------------------------------------
247 IS
248 BEGIN
249 RETURN 'RECEIVE';
250 END;
251
252 ----------------------------------------------------------
253 FUNCTION ApprovalTypeNone return VARCHAR2
254 ----------------------------------------------------------
255 IS
256 BEGIN
257 RETURN 'NONE';
258 END;
259
260 ----------------------------------------------------------
261 FUNCTION LOVTypeReleasing return VARCHAR2
262 ----------------------------------------------------------
263 IS
264 BEGIN
265 RETURN 'RELEASING';
266 END;
267
268 ----------------------------------------------------------
269 FUNCTION LOVTypeDestination return VARCHAR2
270 ----------------------------------------------------------
271 IS
272 BEGIN
273 RETURN 'DESTINATION';
274 END;
275
276 ----------------------------------------------------------
277 FUNCTION ApprovalMethodHierarchy return VARCHAR2
278 ----------------------------------------------------------
279 IS
280 BEGIN
281 RETURN 'HIERARCHY';
282 END;
283
284 ----------------------------------------------------------
285 FUNCTION ApprovalMethodCostCenter return VARCHAR2
286 ----------------------------------------------------------
287 IS
288 BEGIN
289 RETURN 'COST_CENTER';
290 END;
291
292 /*
293 ----------------------------------------------------------
294 FUNCTION AME_LOV_TransactionType return VARCHAR2
295 ----------------------------------------------------------
296 IS
297 BEGIN
298 RETURN 'IA_LOV_APPROVERS';
299 END;
300 */
301
302 ----------------------------------------------------------
303 FUNCTION AME_RELEASE_TransactionType return VARCHAR2
304 ----------------------------------------------------------
305 IS
306 BEGIN
307 RETURN 'IA_RELEASE_CHAIN';
308 END;
309
310 ----------------------------------------------------------
311 FUNCTION AME_RECEIVE_TransactionType return VARCHAR2
312 ----------------------------------------------------------
313 IS
314 BEGIN
315 RETURN 'IA_RECEIVE_CHAIN';
316 END;
317
318 ----------------------------------------------------------
319 FUNCTION HierarchyBasedRelGroup return VARCHAR2
320 ----------------------------------------------------------
321 IS
322 BEGIN
323 RETURN 'IA_APPROVAL_HRCH_REL';
324 END;
325
326 ----------------------------------------------------------
327 FUNCTION HierarchyBasedRecGroup return VARCHAR2
328 ----------------------------------------------------------
329 IS
330 BEGIN
331 RETURN 'IA_APPROVAL_HRCH_REC';
332 END;
333
334 ----------------------------------------------------------
335 FUNCTION CostCenterBasedGroup return VARCHAR2
336 ----------------------------------------------------------
337 IS
338 BEGIN
339 RETURN 'IA_APPROVAL_CC';
340 END;
341
342 ----------------------------------------------------------
343 FUNCTION WF_TransactionType return VARCHAR2
344 ----------------------------------------------------------
345 IS
346 BEGIN
347 RETURN 'IAWF';
348 END;
349
350 ----------------------------------------------------------
351 FUNCTION WF_MainProcess return VARCHAR2
352 ----------------------------------------------------------
353 IS
354 BEGIN
355 RETURN 'IA_MAIN';
356 END;
357
358
359 /*
360 ----------------------------------------------------------
361 PROCEDURE RaiseException(
362 p_calling_fn IN VARCHAR2,
363 p_message_name IN VARCHAR2 DEFAULT NULL,
364 p_debug_info IN VARCHAR2 DEFAULT ''
365 ----------------------------------------------------------
366 ) IS
367 BEGIN
368
369 if (p_message_name is not NULL) then
370 FND_MESSAGE.SET_NAME('OFA', p_message_name);
371 elsif (p_debug_info is not NULL) then
372 FND_MESSAGE.SET_NAME('OFA', 'FA_API_SHARED_SQL_ERROR');
373 FND_MESSAGE.SET_TOKEN('SQLSTMT', p_calling_fn||' : '||p_debug_info||' : '||SQLERRM);
374 end if;
375
376 END RaiseException;
377 */
378
379
380 ----------------------------------------------------------
381 PROCEDURE InitializeServerMessage
382 ----------------------------------------------------------
383 IS
384 BEGIN
385
386 -- initialize server message stack.
387 fa_srvr_msg.init_server_message;
388
389 END InitializeServerMessage;
390
391 ----------------------------------------------------------
392 PROCEDURE InitializeDebugMessage
393 ----------------------------------------------------------
394 IS
395 BEGIN
396
397 if (IA_WF_UTIL_PKG.DebugModeEnabled) then
398 -- initialize debug message stack.
399 fa_debug_pkg.initialize;
400 fa_srvr_msg.init_server_message;
401 end if;
402
403 END InitializeDebugMessage;
404
405 ----------------------------------------------------------
406 PROCEDURE AddDebugMessage(
407 p_calling_fn IN VARCHAR2,
408 p_parameter1 IN VARCHAR2 DEFAULT '',
409 p_parameter2 IN VARCHAR2 DEFAULT ''
410 ) IS
411 ----------------------------------------------------------
412 BEGIN
413
414 if (IA_WF_UTIL_PKG.DebugModeEnabled) then
415 fa_debug_pkg.add(p_calling_fn, p_parameter1, p_parameter2);
416 end if;
417
418 END AddDebugMessage;
419
420 ----------------------------------------------------------
421 PROCEDURE AddWFDebugMessage(
422 p_request_id IN VARCHAR2,
423 p_calling_fn IN VARCHAR2,
424 p_parameter1 IN VARCHAR2 DEFAULT '',
425 p_parameter2 IN VARCHAR2 DEFAULT ''
426 ) IS
427 ----------------------------------------------------------
428 l_debug_info VARCHAR2(4000);
429 BEGIN
430
431 if (IA_WF_UTIL_PKG.DebugModeEnabled) then
432
433 fa_debug_pkg.add(p_calling_fn, p_parameter1, p_parameter2);
434
435 l_debug_info := WF_ENGINE.GetItemAttrText(itemtype => IA_WF_UTIL_PKG.WF_TransactionType,
436 itemkey => p_request_id,
437 aname => 'DEBUG_INFO');
438
439 l_debug_info := '[TIMESTAMP:'|| to_char(SYSDATE,'DD-MON-YYYY HH24:MI:SS') ||', FUNCTION: '|| p_calling_fn ||', DEBUG_INFO: '|| p_parameter1 || ', REQUEST_ID: ' || p_request_id ||'] <--' || l_debug_info;
440
441 l_debug_info := substr(l_debug_info, 1, 2000);
442
443 WF_ENGINE.SetItemAttrText(itemtype => IA_WF_UTIL_PKG.WF_TransactionType,
444 itemkey => p_request_id,
445 aname => 'DEBUG_INFO',
446 avalue => l_debug_info);
447 end if;
448
449 END AddWFDebugMessage;
450
451
452 ----------------------------------------------------------
453 FUNCTION GetApplicationID return NUMBER
454 ----------------------------------------------------------
455 IS
456
457 l_application_id NUMBER(15) := -1;
458
459 BEGIN
460
461 if (ApplicationID is NULL) then
462
463 SELECT application_id
464 INTO l_application_id
465 FROM fnd_application
466 WHERE application_short_name = IA_WF_UTIL_PKG.ApplicationShortName;
467
468 ApplicationID := l_application_id;
469
470 else
471
472 l_application_id := ApplicationID;
473
474 end if;
475
476 RETURN l_application_id;
477
478 EXCEPTION
479 WHEN OTHERS THEN
480 APP_EXCEPTION.RAISE_EXCEPTION;
481 return NULL;
482
483 END GetApplicationID;
484
485
486 ----------------------------------------------------------
487 FUNCTION DebugModeEnabled return BOOLEAN
488 ----------------------------------------------------------
489 IS
490
491 debugMode VARCHAR2(30) := NULL;
492
493 BEGIN
494
495 if (DebugModeEnabledFlag is NULL) then
496
497 fnd_profile.get(IA_WF_UTIL_PKG.ProfileDebugMode, debugMode);
498
499 if (debugMode = 'Y' or debugMode = 'y') then
500 DebugModeEnabledFlag := TRUE;
501 else
502 DebugModeEnabledFlag := FALSE;
503 end if;
504
505 end if;
506
507 return DebugModeEnabledFlag;
508
509
510 EXCEPTION
511 WHEN OTHERS THEN
512 APP_EXCEPTION.RAISE_EXCEPTION;
513 return FALSE;
514
515 END DebugModeEnabled;
516
517
518 ----------------------------------------------------------
519 FUNCTION GetRuleID
520 return NUMBER
521 ----------------------------------------------------------
522 IS
523
524 BEGIN
525
526 -- if (RuleID is NULL) then
527
528 fnd_profile.get(IA_WF_UTIL_PKG.ProfileRuleID, RuleID);
529
530 -- end if;
531
532 return RuleID;
533
534
535 EXCEPTION
536 WHEN OTHERS THEN
537 APP_EXCEPTION.RAISE_EXCEPTION;
538 return NULL;
539
540 END GetRuleID;
541
542
543 ----------------------------------------------------------
544 FUNCTION GetRuleID(p_responsibility_id IN NUMBER)
545 return NUMBER
546 ----------------------------------------------------------
547 IS
548
549 BEGIN
550
551 -- if (RuleID is NULL) then
552
553 RuleID := to_number(fnd_profile.value_specific(name => IA_WF_UTIL_PKG.ProfileRuleID
554 ,responsibility_id => p_responsibility_id
555 ,application_id => IA_WF_UTIL_PKG.GetApplicationID)
556 );
557
558 -- end if;
559
560 return RuleID;
561
562
563 EXCEPTION
564 WHEN OTHERS THEN
565 APP_EXCEPTION.RAISE_EXCEPTION;
566 return NULL;
567
568 END GetRuleID;
569
570
571 ----------------------------------------------------------
572 FUNCTION GetSystemAdministrator
573 return VARCHAR2
574 ----------------------------------------------------------
575 IS
576
577 l_system_admin VARCHAR2(80);
578
579 BEGIN
580
581
582 fnd_profile.get(IA_WF_UTIL_PKG.ProfileSystemAdministrator, l_system_admin);
583
584
585 return l_system_admin;
586
587
588 EXCEPTION
589 WHEN OTHERS THEN
590 APP_EXCEPTION.RAISE_EXCEPTION;
591 return NULL;
592
593 END GetSystemAdministrator;
594
595
596 ----------------------------------------------------------
597 FUNCTION IsTransferEnabled(p_rule_id IN NUMBER
598 ,p_book_type_code IN VARCHAR2)
599 return VARCHAR2
600 ----------------------------------------------------------
601 IS
602 localException EXCEPTION;
603 BEGIN
604
605 if (TransferEnabled is NULL) then
606
607 if (not ResetRuleSetup(p_rule_id => p_rule_id
608 ,p_book_type_code => p_book_type_code) ) then
609 raise localException;
610 end if;
611
612 end if;
613
614 return TransferEnabled;
615
616
617 EXCEPTION
618 WHEN OTHERS THEN
619 APP_EXCEPTION.RAISE_EXCEPTION;
620 return NULL;
621
622 END IsTransferEnabled;
623
624
625 ----------------------------------------------------------
626 FUNCTION IsTransactionDateAllowed(p_rule_id IN NUMBER
627 ,p_book_type_code IN VARCHAR2)
628 return VARCHAR2
629 ----------------------------------------------------------
630 IS
631
632 localException EXCEPTION;
633 BEGIN
634
635 if (TransactionDateAllowed is NULL) then
636
637 if (not ResetRuleSetup(p_rule_id => p_rule_id
638 ,p_book_type_code => p_book_type_code) ) then
639 raise localException;
640 end if;
641
642 end if;
643
644 return TransactionDateAllowed;
645
646
647 EXCEPTION
648 WHEN OTHERS THEN
649 APP_EXCEPTION.RAISE_EXCEPTION;
650 return NULL;
651
652 END IsTransactionDateAllowed;
653
654
655 ----------------------------------------------------------
656 FUNCTION GetResponsibilityType(p_rule_id IN NUMBER
657 ,p_book_type_code IN VARCHAR2)
658 return VARCHAR2
659 ----------------------------------------------------------
660 IS
661
662 localException EXCEPTION;
663 BEGIN
664
665 if (ResponsibilityType is NULL) then
666
667 if (not ResetRuleSetup(p_rule_id => p_rule_id
668 ,p_book_type_code => p_book_type_code) ) then
669 raise localException;
670 end if;
671
672 end if;
673
674 return ResponsibilityType;
675
676
677 EXCEPTION
678 WHEN OTHERS THEN
679 APP_EXCEPTION.RAISE_EXCEPTION;
680 return NULL;
681
682 END GetResponsibilityType;
683
684 ----------------------------------------------------------
685 FUNCTION IsSuperUserApprovalRequired(p_rule_id IN NUMBER
686 ,p_book_type_code IN VARCHAR2)
687 return VARCHAR2
688 ----------------------------------------------------------
689 IS
690
691 localException EXCEPTION;
692 BEGIN
693
694 if (SuperUserApprovalRequired is NULL) then
695
696 if (not ResetRuleSetup(p_rule_id => p_rule_id
697 ,p_book_type_code => p_book_type_code) ) then
698 raise localException;
699 end if;
700
701 end if;
702
703 return SuperUserApprovalRequired;
704
705
706 EXCEPTION
707 WHEN OTHERS THEN
708 APP_EXCEPTION.RAISE_EXCEPTION;
709 return NULL;
710
711 END IsSuperUserApprovalRequired;
712
713 ----------------------------------------------------------
714 FUNCTION GetApprovalType(p_rule_id IN NUMBER
715 ,p_book_type_code IN VARCHAR2)
716 return VARCHAR2
717 ----------------------------------------------------------
718 IS
719
720 localException EXCEPTION;
721 BEGIN
722
723 if (ApprovalType is NULL) then
724
725 if (not ResetRuleSetup(p_rule_id => p_rule_id
726 ,p_book_type_code => p_book_type_code) ) then
727 raise localException;
728 end if;
729
730 end if;
731
732 return ApprovalType;
733
734
735 EXCEPTION
736 WHEN OTHERS THEN
737 APP_EXCEPTION.RAISE_EXCEPTION;
738 return NULL;
739
740 END GetApprovalType;
741
742 ----------------------------------------------------------
743 FUNCTION GetApprovalMethod(p_rule_id IN NUMBER
744 ,p_book_type_code IN VARCHAR2)
745 return VARCHAR2
746 ----------------------------------------------------------
747 IS
748
749 localException EXCEPTION;
750 BEGIN
751
752 if (ApprovalMethod is NULL) then
753
754 if (not ResetRuleSetup(p_rule_id => p_rule_id
755 ,p_book_type_code => p_book_type_code) ) then
756 raise localException;
757 end if;
758
759
760 end if;
761
762 return ApprovalMethod;
763
764
765 EXCEPTION
766 WHEN OTHERS THEN
767 APP_EXCEPTION.RAISE_EXCEPTION;
768 return NULL;
769
770 END GetApprovalMethod;
771
772 ----------------------------------------------------------
773 FUNCTION ResetRuleSetup(p_rule_id IN NUMBER
774 ,p_book_type_code IN VARCHAR2)
775 return BOOLEAN
776 ----------------------------------------------------------
777 IS
778
779 localException EXCEPTION;
780 BEGIN
781
782 select nvl(rd.enable_transfer_flag,'N')
783 ,nvl(rd.allow_transaction_date_flag,'N')
784 ,nvl(rd.responsibility_type,IA_WF_UTIL_PKG.RespTypeRequest)
785 ,nvl(rd.require_superuser_flag,'N')
786 ,nvl(rd.approval_type,IA_WF_UTIL_PKG.ApprovalTypeAll)
787 ,nvl(rd.approval_method,IA_WF_UTIL_PKG.ApprovalMethodCostCenter)
788 into TransferEnabled
789 ,TransactionDateAllowed
790 ,ResponsibilityType
791 ,SuperUserApprovalRequired
792 ,ApprovalType
793 ,ApprovalMethod
794 from ia_rule_details rd
795 where rd.rule_id=p_rule_id
796 and rd.book_type_code=p_book_type_code;
797
798 return TRUE;
799
800
801 EXCEPTION
802 WHEN OTHERS THEN
803 APP_EXCEPTION.RAISE_EXCEPTION;
804 return FALSE;
805
806 END ResetRuleSetup;
807
808 ----------------------------------------------------------
809 FUNCTION GetLookupMeaning(p_lookup_type IN VARCHAR2
810 ,p_lookup_code IN VARCHAR2)
811 return VARCHAR2
812 ----------------------------------------------------------
813 IS
814
815 l_meaning VARCHAR2(80);
816
817 localException EXCEPTION;
818
819 BEGIN
820
821 select flv.meaning
822 into l_meaning
823 from fnd_lookup_values flv
824 where flv.lookup_type=p_lookup_type
825 and flv.lookup_code=p_lookup_code
826 and flv.view_application_id=205 -- IA application id
827 and flv.language=nvl(userenv('LANG'),'US')
828 and flv.security_group_id =
829 fnd_global.lookup_security_group
830 (flv.lookup_type
831 ,flv.view_application_id
832 );
833
834 return l_meaning;
835
836
837 EXCEPTION
838 WHEN OTHERS THEN
839 APP_EXCEPTION.RAISE_EXCEPTION;
840 return NULL;
841
842 END GetLookupMeaning;
843
844
845 ----------------------------------------------------------
846 FUNCTION InitializeProfile(p_user_id IN NUMBER
847 ,p_responsibility_id IN NUMBER)
848 return BOOLEAN
849 ----------------------------------------------------------
850 IS
851
852 localException EXCEPTION;
853
854 BEGIN
855
859
856 FND_PROFILE.initialize(user_id_z => p_user_id
857 ,responsibility_id_z => p_responsibility_id
858 ,application_id_z => IA_WF_UTIL_PKG.GetApplicationId);
860 return TRUE;
861
862 EXCEPTION
863 WHEN OTHERS THEN
864 APP_EXCEPTION.RAISE_EXCEPTION;
865 return FALSE;
866
867 END InitializeProfile;
868
869 END IA_WF_UTIL_PKG;