[Home] [Help]
PACKAGE BODY: APPS.PER_KR_GRADES_PKG
Source
1 PACKAGE BODY per_kr_grades_pkg AS
2 /* $Header: pekrsg01.pkb 115.1 2002/12/03 09:34:22 viagarwa noship $ */
3 -------------------------------------------------------------------------------------
4 PROCEDURE insert_row
5 (p_row_id IN OUT NOCOPY VARCHAR2
6 ,p_grade_id IN OUT NOCOPY NUMBER
7 ,p_business_group_id NUMBER
8 ,p_grade_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_grades_s.NEXTVAL
23 FROM dual;
24 --
25 BEGIN
26 --
27 OPEN c_s1;
28 FETCH c_s1 INTO p_grade_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_grades
37 (grade_id
38 ,business_group_id
39 ,sequence
40 ,grade_name
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_id
52 ,p_business_group_id
53 ,p_sequence
54 ,p_grade_name
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_id NUMBER
72 ,p_business_group_id NUMBER
73 ,p_grade_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_id
88 ,business_group_id
89 ,grade_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_grades
101 WHERE rowid = chartorowid(p_row_id)
102 FOR UPDATE of grade_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 ( (recinfo.grade_id = p_grade_id)
120 AND (recinfo.business_group_id = p_business_group_id)
121 AND (recinfo.grade_name = p_grade_name)
122 AND (recinfo.sequence = p_sequence)
123 AND (recinfo.enabled_flag = p_enabled_flag)
124 AND ( (recinfo.start_date_active = p_start_date_active)
125 OR ( (recinfo.start_date_active IS NULL)
126 AND (p_start_date_active IS NULL)))
127 AND ( (recinfo.end_date_active = p_end_date_active)
128 OR ( (recinfo.end_date_active IS NULL)
129 AND (p_end_date_active IS NULL)))
130 AND ( (recinfo.object_version_number = p_object_version_number)
131 OR ( (recinfo.object_version_number IS NULL)
132 AND (p_object_version_number IS NULL)))
133 AND ( (recinfo.last_update_date = p_last_update_date)
134 OR ( (recinfo.last_update_date IS NULL)
135 AND (p_last_update_date IS NULL)))
136 AND ( (recinfo.last_updated_by = p_last_updated_by)
137 OR ( (recinfo.last_updated_by IS NULL))
138 AND (p_last_updated_by IS NULL))
139 AND ( (recinfo.last_update_login = p_last_update_login)
140 OR ( (recinfo.last_update_login IS NULL)
141 AND (p_last_update_login IS NULL)))
142 AND ( (recinfo.created_by = p_created_by)
143 OR ( (recinfo.last_updated_by IS NULL)
144 AND (p_created_by IS NULL)))
145 AND ( (recinfo.creation_date = p_creation_date)
146 OR ( (recinfo.creation_date IS NULL)
147 AND (p_creation_date IS NULL)))
148 ) THEN
149 RETURN;
150 ELSE
151 fnd_message.set_name('FND','FORM_RECORD_CHANGED');
152 app_exception.raise_exception;
153 END IF;
154 --
155 END lock_row;
156 -------------------------------------------------------------------------------------
157 PROCEDURE update_row
158 (p_row_id VARCHAR2
159 ,p_grade_id NUMBER
160 ,p_business_group_id NUMBER
161 ,p_grade_name VARCHAR2
162 ,p_sequence NUMBER
163 ,p_enabled_flag VARCHAR2
164 ,p_start_date_active DATE
165 ,p_end_date_active DATE
166 ,p_object_version_number NUMBER
167 ,p_last_update_date DATE
168 ,p_last_updated_by NUMBER
169 ,p_last_update_login NUMBER
170 ,p_created_by NUMBER
171 ,p_creation_date DATE
172 ) IS
173
174 BEGIN
175 UPDATE per_kr_grades
176 SET sequence =p_sequence
177 ,grade_name =p_grade_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_grades
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_grades_pkg;