1 PACKAGE BODY hr_ie_utility AS
2 /* $Header: hrieutil.pkb 120.2 2010/06/18 09:37:26 vijranga noship $ */
3 --
4
5 -- Function added for IBAN Validation
6 ----
7 FUNCTION validate_iban_acc(p_account_no VARCHAR2)RETURN NUMBER IS
8 BEGIN
9 IF IBAN_VALIDATION_PKG.validate_iban_acc(p_account_no) = 1 then
10 RETURN 1;
11 else
12 RETURN 0;
13 END IF;
14 END validate_iban_acc;
15
16 ----
17 -- This function will get called from the bank keyflex field segments
18 ----
19 FUNCTION validate_account_entered
20 (p_acc_no IN VARCHAR2,
21 p_is_iban_acc IN VARCHAR2 ,
22 p_iban_acc in VARCHAR2 DEFAULT NULL
23 ) RETURN NUMBER IS
24 --
25 l_ret NUMBER ;
26 BEGIN
27 -- hr_utility.trace_on(null,'ACCVAL');
28 l_ret :=0;
29 hr_utility.set_location('p_account_number ' || p_acc_no,1);
30 hr_utility.set_location('p_is_iban_acc ' || p_is_iban_acc,1);
31 hr_utility.set_location('p_iban_acc ' || p_iban_acc,1);
32
33
34 IF p_is_iban_acc = 'C' AND (p_acc_no IS NOT NULL OR p_iban_acc IS NOT NULL) THEN
35 hr_utility.set_location(' inside first if',1);
36 RETURN 0;
37 END IF;
38
39 IF (p_acc_no IS NOT NULL AND p_is_iban_acc = 'N') THEN
40 l_ret:= 0;
41 hr_utility.set_location('l_ret ' || l_ret,2);
42 RETURN l_ret;
43 ELSIF (p_iban_acc IS NOT NULL AND p_is_iban_acc = 'Y') THEN
44 l_ret := validate_iban_acc(p_iban_acc);
45 hr_utility.set_location('l_ret ' || l_ret,3);
46 RETURN l_ret;
47 ELSIF (p_acc_no IS NULL AND p_is_iban_acc IS NULL) THEN
48 hr_utility.set_location('Both Account Nos Null',4);
49 RETURN 1;
50 ELSE
51 hr_utility.set_location('l_ret: 3 ' ,5);
52 RETURN 3;
53 END IF;
54 END validate_account_entered;
55
56 --
57 /* Bug# 9235816 fix start */
58 FUNCTION per_ie_full_name(
59 p_first_name in varchar2
60 ,p_middle_names in varchar2
61 ,p_last_name in varchar2
62 ,p_known_as in varchar2
63 ,p_title in varchar2
64 ,p_suffix in varchar2
65 ,p_pre_name_adjunct in varchar2
66 ,p_per_information1 in varchar2
67 ,p_per_information2 in varchar2
68 ,p_per_information3 in varchar2
69 ,p_per_information4 in varchar2
70 ,p_per_information5 in varchar2
71 ,p_per_information6 in varchar2
72 ,p_per_information7 in varchar2
73 ,p_per_information8 in varchar2
74 ,p_per_information9 in varchar2
75 ,p_per_information10 in varchar2
76 ,p_per_information11 in varchar2
77 ,p_per_information12 in varchar2
78 ,p_per_information13 in varchar2
79 ,p_per_information14 in varchar2
80 ,p_per_information15 in varchar2
81 ,p_per_information16 in varchar2
82 ,p_per_information17 in varchar2
83 ,p_per_information18 in varchar2
84 ,p_per_information19 in varchar2
85 ,p_per_information20 in varchar2
86 ,p_per_information21 in varchar2
87 ,p_per_information22 in varchar2
88 ,p_per_information23 in varchar2
89 ,p_per_information24 in varchar2
90 ,p_per_information25 in varchar2
91 ,p_per_information26 in varchar2
92 ,p_per_information27 in varchar2
93 ,p_per_information28 in varchar2
94 ,p_per_information29 in varchar2
95 ,p_per_information30 in varchar2
96 )
97 RETURN VARCHAR2 IS
98 l_full_name per_all_people_f.full_name%TYPE;
99 l_title_meaning VARCHAR2(80):='';
100 BEGIN
101 /* 9506000 */
102 --
103 IF p_title IS NOT NULL and
104 fnd_profile.value('PER_USE_TITLE_IN_FULL_NAME') = 'Y' then
105 SELECT meaning
106 INTO l_title_meaning
107 FROM hr_lookups
108 WHERE lookup_type = 'TITLE'
109 AND p_title = lookup_code;
110
111 END IF;
112 --
113 SELECT rtrim(substrb(DECODE(p_pre_name_adjunct,'','',p_pre_name_adjunct||' ')||
114 p_last_name||','||DECODE(l_title_meaning,'','',
118 DECODE(p_suffix,'','',' '||p_suffix)||
115 ' '||l_title_meaning)||DECODE(p_first_name,'','',
116 ' '||p_first_name)||DECODE(p_middle_names,'','',
117 ' '||p_middle_names)||
119 DECODE(p_known_as,'','',
120 ' '||p_known_as),1,240))
121 INTO l_full_name
122 FROM sys.dual ;
123
124 return l_full_name;
125 END per_ie_full_name;
126 /* Bug# 9235816 fix end */
127
128 END hr_ie_utility;