DBA Data[Home] [Help]

PACKAGE BODY: APPS.IGS_UC_UTILS

Source


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;