[Home] [Help]
PACKAGE BODY: APPS.PER_KR_G_POINTS_PKG
Source
1 PACKAGE BODY per_kr_g_points_pkg AS
2 /* $Header: pekrsg03.pkb 115.1 2002/12/03 09:40:42 viagarwa noship $ */
3 -------------------------------------------------------------------------------------
4 PROCEDURE insert_row
5 (p_row_id IN OUT NOCOPY VARCHAR2
6 ,p_grade_point_id IN OUT NOCOPY NUMBER
7 ,p_grade_id NUMBER
8 ,p_grade_point_name VARCHAR2
9 ,p_sequence NUMBER
10 ,p_enabled_flag VARCHAR2
11 ,p_start_date_active DATE
12 ,p_end_date_active DATE
13 ,p_object_version_number NUMBER
14 ,p_last_update_date DATE
15 ,p_last_updated_by NUMBER
16 ,p_last_update_login NUMBER
17 ,p_created_by NUMBER
18 ,p_creation_date DATE
19 ) IS
20 --
21 CURSOR c_s1 IS
22 SELECT per_kr_g_points_s.NEXTVAL
23 FROM dual;
24 --
25 BEGIN
26 --
27 OPEN c_s1;
28 FETCH c_s1 INTO p_grade_point_id;
29 IF (c_s1%NOTFOUND) THEN
30 CLOSE c_s1;
31 RAISE NO_DATA_FOUND;
32 END IF;
33 --
34 CLOSE c_s1;
35 --
36 INSERT INTO per_kr_g_points
37 (grade_point_id
38 ,grade_id
39 ,grade_point_name
40 ,sequence
41 ,enabled_flag
42 ,start_date_active
43 ,end_date_active
44 ,object_version_number
45 ,last_update_date
46 ,last_updated_by
47 ,last_update_login
48 ,created_by
49 ,creation_date
50 ) VALUES (
51 p_grade_point_id
52 ,p_grade_id
53 ,p_grade_point_name
54 ,p_sequence
55 ,p_enabled_flag
56 ,p_start_date_active
57 ,p_end_date_active
58 ,p_object_version_number
59 ,p_last_update_date
60 ,p_last_updated_by
61 ,p_last_update_login
62 ,p_created_by
63 ,p_creation_date
64 )
65 returning rowidtochar(rowid) into p_row_id;
66 --
67 END insert_row;
68 -------------------------------------------------------------------------------------
69 PROCEDURE lock_row
70 (p_row_id VARCHAR2
71 ,p_grade_point_id NUMBER
72 ,p_grade_id NUMBER
73 ,p_grade_point_name VARCHAR2
74 ,p_sequence NUMBER
75 ,p_enabled_flag VARCHAR2
76 ,p_start_date_active DATE
77 ,p_end_date_active DATE
78 ,p_object_version_number NUMBER
79 ,p_last_update_date DATE
80 ,p_last_updated_by NUMBER
81 ,p_last_update_login NUMBER
82 ,p_created_by NUMBER
83 ,p_creation_date DATE
84 ) IS
85 --
86 CURSOR c1 IS
87 SELECT grade_point_id
88 ,grade_id
89 ,grade_point_name
90 ,sequence
91 ,enabled_flag
92 ,start_date_active
93 ,end_date_active
94 ,object_version_number
95 ,last_update_date
96 ,last_updated_by
97 ,last_update_login
98 ,created_by
99 ,creation_date
100 FROM per_kr_g_points
101 WHERE rowid = chartorowid(p_row_id)
102 FOR UPDATE of grade_point_id NOWAIT;
103 --
104 recinfo c1%ROWTYPE;
105 --
106 BEGIN
107 --
108 OPEN c1;
109 FETCH c1 INTO recinfo;
110 --
111 IF (c1%NOTFOUND) THEN
112 CLOSE c1;
113 fnd_message.set_name('FND','FORM_RECORD_DELETED');
114 app_exception.raise_exception;
115 END IF;
116 --
117 CLOSE c1;
118 --
119 IF
120 ( (recinfo.grade_point_id = p_grade_point_id)
121 AND (recinfo.grade_id = p_grade_id)
122 AND (recinfo.grade_point_name = p_grade_point_name)
123 AND (recinfo.sequence = p_sequence)
124 AND (recinfo.enabled_flag = p_enabled_flag)
125 AND ( (recinfo.start_date_active = p_start_date_active)
126 OR ( (recinfo.start_date_active IS NULL)
127 AND (p_start_date_active IS NULL)))
128 AND ( (recinfo.end_date_active = p_end_date_active)
129 OR ( (recinfo.end_date_active IS NULL)
130 AND (p_end_date_active IS NULL)))
131 AND ( (recinfo.object_version_number = p_object_version_number)
132 OR ( (recinfo.object_version_number IS NULL)
133 AND (p_object_version_number IS NULL)))
134 AND ( (recinfo.last_update_date = p_last_update_date)
135 OR ( (recinfo.last_update_date IS NULL)
136 AND (p_last_update_date IS NULL)))
137 AND ( (recinfo.last_updated_by = p_last_updated_by)
138 OR ( (recinfo.last_updated_by IS NULL))
139 AND (p_last_updated_by IS NULL))
140 AND ( (recinfo.last_update_login = p_last_update_login)
141 OR ( (recinfo.last_update_login IS NULL)
142 AND (p_last_update_login IS NULL)))
143 AND ( (recinfo.created_by = p_created_by)
144 OR ( (recinfo.last_updated_by IS NULL)
145 AND (p_created_by IS NULL)))
146 AND ( (recinfo.creation_date = p_creation_date)
147 OR ( (recinfo.creation_date IS NULL)
148 AND (p_creation_date IS NULL)))
149 ) THEN
150 RETURN;
151 ELSE
152 fnd_message.set_name('FND','FORM_RECORD_CHANGED');
153 app_exception.raise_exception;
154 END IF;
155 --
156 END lock_row;
157 -------------------------------------------------------------------------------------
158 PROCEDURE update_row
159 (p_row_id VARCHAR2
160 ,p_grade_point_id NUMBER
161 ,p_grade_id NUMBER
162 ,p_grade_point_name VARCHAR2
163 ,p_sequence NUMBER
164 ,p_enabled_flag VARCHAR2
165 ,p_start_date_active DATE
166 ,p_end_date_active DATE
167 ,p_object_version_number NUMBER
168 ,p_last_update_date DATE
169 ,p_last_updated_by NUMBER
170 ,p_last_update_login NUMBER
171 ,p_created_by NUMBER
172 ,p_creation_date DATE
173 ) IS
174 BEGIN
175 UPDATE per_kr_g_points
176 SET sequence =p_sequence
177 ,grade_point_name =p_grade_point_name
178 ,enabled_flag =p_enabled_flag
179 ,start_date_active =p_start_date_active
180 ,end_date_active =p_end_date_active
181 ,object_version_number =p_object_version_number
182 ,last_update_date =p_last_update_date
183 ,last_updated_by =p_last_updated_by
184 ,last_update_login =p_last_update_login
185 WHERE rowid = chartorowid(p_row_id);
186 --
187 IF (SQL%NOTFOUND) THEN
188 RAISE NO_DATA_FOUND;
189 END IF;
190 --
191 END update_row;
192 -------------------------------------------------------------------------------------
193 PROCEDURE delete_row
194 (p_row_id VARCHAR2
195 ) IS
196 BEGIN
197 --
198 DELETE FROM per_kr_g_points
199 WHERE rowid = chartorowid(p_row_id);
200 --
201 IF (SQL%NOTFOUND) THEN
202 RAISE NO_DATA_FOUND;
203 END IF;
204 --
205 END delete_row;
206 -------------------------------------------------------------------------------------
207 END per_kr_g_points_pkg;