1 PACKAGE BODY igs_uc_utils AS
2 -- $Header: IGSUC26B.pls 120.0 2005/06/01 12:58:05 appldev noship $
3
4
5 PROCEDURE format_app_no (p_app_no IN NUMBER,
6 p_check_digit IN NUMBER,
7 r_app_no_9 OUT NOCOPY CHAR,
8 r_app_no_11 OUT NOCOPY CHAR) IS
9
10 BEGIN
11
12 IF p_app_no IS NOT NULL AND
13 LENGTH(TO_CHAR(p_app_no)) < 9 AND
14 p_app_no >= 0 THEN
15
16 --- Format App No (no check digit)
17
18 r_app_no_9 := SUBSTR(LTRIM(TO_CHAR(p_app_no,'09999999')),1,2)
19 || '-' ||
20 SUBSTR(LTRIM(TO_CHAR(p_app_no,'09999999')),3,6);
21
22
23 IF p_check_digit IS NOT NULL AND
24 LENGTH(TO_CHAR(p_check_digit)) = 1 AND
25 p_check_digit >= 0 THEN
26
27 --- Format App No (with check digit)
28
29 r_app_no_11 := SUBSTR(LTRIM(TO_CHAR(p_app_no,'09999999')),1,2)
30 || '-' ||
31 SUBSTR(LTRIM(TO_CHAR(p_app_no,'09999999')),3,6)
32 || '-' ||
33 TO_CHAR(p_check_digit);
34
35
36 END IF; ---Check Digit Validation
37
38 END IF; --- App No Validation
39
40 END format_app_no;
41
42
43 PROCEDURE generate_pers_no (r_person_number OUT NOCOPY CHAR)
44 IS
45 BEGIN
46 r_person_number := NULL;
47 END generate_pers_no;
48
49
50 FUNCTION is_ucas_hesa_enabled RETURN BOOLEAN IS
51 /******************************************************************
52 Created By : L SILVEIRA
53 Date Created By : 14-JAN-2002
54 Purpose :
55 Known limitations,enhancements,remarks:
56 Change History
57 Who When What
58 ayedubat 03-DEC-2002 Changed the cursor,c_country_code to remove the UPPER
59 Clause on the profile_option_name column for bug # 2577640
60 ***************************************************************** */
61
62 l_country_code VARCHAR2(2) := '';
63 l_user_id NUMBER := FND_GLOBAL.User_Id;
64 l_responsibility_id NUMBER := FND_GLOBAL.Resp_Id;
65 l_application_id NUMBER := FND_GLOBAL.Resp_Appl_Id;
66 l_site_id NUMBER := 0;
67
68 CURSOR c_country_code(p_level_id fnd_profile_option_values.level_id%TYPE
69 ,p_level_value fnd_profile_option_values.level_value%TYPE) IS
70 SELECT profile_option_value
71 FROM fnd_profile_option_values fpov
72 ,fnd_profile_options fpo
73 WHERE fpo.profile_option_name = 'OSS_COUNTRY_CODE'
74 AND fpov.profile_option_id = fpo.profile_option_id
75 AND fpov.level_id = p_level_id
76 AND fpov.level_value = p_level_value;
77
78 BEGIN
79
80 -- Fetch user level
81 OPEN c_country_code(10004, l_user_id);
82 FETCH c_country_code INTO l_country_code;
83 CLOSE c_country_code;
84
85 IF l_country_code IS NULL THEN
86 -- Fetch responsibility level
87 OPEN c_country_code(10003, l_responsibility_id);
88 FETCH c_country_code INTO l_country_code;
89 CLOSE c_country_code;
90
91 IF l_country_code IS NULL THEN
92 -- Fetch application level
93 OPEN c_country_code(10002, l_application_id);
94 FETCH c_country_code INTO l_country_code;
95 CLOSE c_country_code;
96
97 IF l_country_code IS NULL THEN
98 -- Fetch site level
99 OPEN c_country_code(10001, l_site_id);
100 FETCH c_country_code INTO l_country_code;
101 CLOSE c_country_code;
102 END IF;
103 END IF;
104 END IF;
105
106 IF l_country_code IS NULL THEN
107 RETURN FALSE;
108 ELSIF l_country_code = 'GB' THEN
109 RETURN TRUE;
110 ELSE
111 RETURN FALSE;
112 END IF;
113
114 EXCEPTION
115
116 WHEN OTHERS THEN
117 IF c_country_code%ISOPEN THEN
118 CLOSE c_country_code;
119 END IF;
120 RETURN FALSE;
121
122 END is_ucas_hesa_enabled;
123
124 PROCEDURE admission_residency_dtls (
125 p_interface_res_id IN NUMBER
126 ,p_residency_status_cd IN CHAR
127 ,p_residency_class_cd IN CHAR
128 ,p_start_dt IN DATE
129 ,p_person_id IN NUMBER
130 ,p_process_residency_status OUT NOCOPY CHAR ) IS
131 /******************************************************************
132 Created By : Ayedubat
133 Date Created By :
134 Purpose : User Hook calling from Person Residency Import Process to do the
135 extra validations for UCAS Applicants.
136 p_process_residency_status : Y means Continue the processing of interface record
137 N means Stop the processing of interface record
138 W means Raise the workflow event as the Residentcy
139 details are updated and stop further processing.
140 Known limitations,enhancements,remarks:
141 Change History
142 Who When What
143 smaddali 27-aug-03 Modified procedure for bug#3114604 , to consider other possibel cases for date overlapping
144 pkpatel 9-Nov-2004 Bug 3993967 (Stubbed the procedure since Start/End date of Residency is no longer needed)
145 ***************************************************************** */
146 BEGIN
147 NULL;
148 END admission_residency_dtls ;
149
150 PROCEDURE cvname_references(p_type IN VARCHAR2,
151 p_appno IN NUMBER,
152 p_surname IN VARCHAR2,
153 p_birthdate IN DATE,
154 l_result OUT NOCOPY igs_uc_utils.cur_step_def) IS
155
156 /******************************************************************
157 Created By : pmarada
158 Date Created By :
159 Purpose : This procedure returns the cursor values to the IGSUC009 pld.
160
161 Known limitations,enhancements,remarks:
162 Change History
163 Who When What
164 pmarada 14-jul-2003 Removed the cvname_references procedure from
165 this pls.
166 ***************************************************************** */
167
168 BEGIN
169 NULL;
170 END cvname_references;
171
172
173 END igs_uc_utils;