[Home] [Help]
PACKAGE BODY: APPS.IGS_PE_PERS_PREFS_PKG
Source
1 package body IGS_PE_PERS_PREFS_PKG AS
2 /* $Header: IGSNI28B.pls 115.5 2002/11/29 01:20:39 nsidana ship $ */
3
4
5
6 l_rowid VARCHAR2(25);
7 old_references IGS_PE_PERS_PREFS_ALL%RowType;
8 new_references IGS_PE_PERS_PREFS_ALL%RowType;
9
10 PROCEDURE Set_Column_Values (
11 p_action IN VARCHAR2,
12 x_rowid IN VARCHAR2 DEFAULT NULL,
13 x_server_printer_dflt IN VARCHAR2 DEFAULT NULL,
14 x_allow_stnd_req_ind IN VARCHAR2 DEFAULT NULL,
15 x_enq_adm_cal_type IN VARCHAR2 DEFAULT NULL,
16 x_enq_adm_ci_sequence_number IN NUMBER DEFAULT NULL,
17 x_enq_acad_cal_type IN VARCHAR2 DEFAULT NULL,
18 x_enq_acad_ci_sequence_number IN NUMBER DEFAULT NULL,
19 x_person_id IN NUMBER DEFAULT NULL,
20 x_enr_acad_cal_type IN VARCHAR2 DEFAULT NULL,
21 x_enr_acad_sequence_number IN NUMBER DEFAULT NULL,
22 x_enr_enrolment_cat IN VARCHAR2 DEFAULT NULL,
23 x_enr_enr_method_type IN VARCHAR2 DEFAULT NULL,
24 x_adm_acad_cal_type IN VARCHAR2 DEFAULT NULL,
25 x_adm_acad_ci_sequence_number IN NUMBER DEFAULT NULL,
26 x_adm_adm_cal_type IN VARCHAR2 DEFAULT NULL,
27 x_adm_adm_ci_sequence_number IN NUMBER DEFAULT NULL,
28 x_adm_admission_cat IN VARCHAR2 DEFAULT NULL,
29 x_adm_s_admission_process_type IN VARCHAR2 DEFAULT NULL,
30 X_ORG_ID in NUMBER DEFAULT NULL,
31 x_creation_date IN DATE DEFAULT NULL,
32 x_created_by IN NUMBER DEFAULT NULL,
33 x_last_update_date IN DATE DEFAULT NULL,
34 x_last_updated_by IN NUMBER DEFAULT NULL,
35 x_last_update_login IN NUMBER DEFAULT NULL
36 ) AS
37
38 CURSOR cur_old_ref_values IS
39 SELECT *
40 FROM IGS_PE_PERS_PREFS_ALL
41 WHERE rowid = x_rowid;
42
43 BEGIN
44
45 l_rowid := x_rowid;
46
47 -- Code for setting the Old and New Reference Values.
48 -- Populate Old Values.
49 Open cur_old_ref_values;
50 Fetch cur_old_ref_values INTO old_references;
51 IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
52 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
53 IGS_GE_MSG_STACK.ADD;
54 Close cur_old_ref_values;
55 App_Exception.Raise_Exception;
56 Return;
57 END IF;
58 Close cur_old_ref_values;
59
60 -- Populate New Values.
61 new_references.server_printer_dflt := x_server_printer_dflt;
62 new_references.allow_stnd_req_ind := x_allow_stnd_req_ind;
63 new_references.enq_adm_cal_type := x_enq_adm_cal_type;
64 new_references.enq_adm_ci_sequence_number := x_enq_adm_ci_sequence_number;
65 new_references.enq_acad_cal_type := x_enq_acad_cal_type;
66 new_references.enq_acad_ci_sequence_number := x_enq_acad_ci_sequence_number;
67 new_references.person_id := x_person_id;
68 new_references.enr_acad_cal_type := x_enr_acad_cal_type;
69 new_references.enr_acad_sequence_number := x_enr_acad_sequence_number;
70 new_references.enr_enrolment_cat := x_enr_enrolment_cat;
71 new_references.enr_enr_method_type := x_enr_enr_method_type;
72 new_references.adm_acad_cal_type := x_adm_acad_cal_type;
73 new_references.adm_acad_ci_sequence_number := x_adm_acad_ci_sequence_number;
74 new_references.adm_adm_cal_type := x_adm_adm_cal_type;
75 new_references.adm_adm_ci_sequence_number := x_adm_adm_ci_sequence_number;
76 new_references.adm_admission_cat := x_adm_admission_cat;
77 new_references.adm_s_admission_process_type := x_adm_s_admission_process_type;
78 new_references.org_id := x_org_id;
79 IF (p_action = 'UPDATE') THEN
80 new_references.creation_date := old_references.creation_date;
81 new_references.created_by := old_references.created_by;
82 ELSE
83 new_references.creation_date := x_creation_date;
84 new_references.created_by := x_created_by;
85 END IF;
86 new_references.last_update_date := x_last_update_date;
87 new_references.last_updated_by := x_last_updated_by;
88 new_references.last_update_login := x_last_update_login;
89
90 END Set_Column_Values;
91
92
93 -- Trigger description :-
94 -- "TRG_PP_BR_IUD" BEFORE INSERT OR DELETE OR UPDATE ON OSS_TST.IGS_PE_PERS_PREFS REFERENCING NEW AS NEW OLD AS OLD FOR EACH ROW
95
96 PROCEDURE BeforeRowInsertUpdateDelete2(
97 p_inserting IN BOOLEAN DEFAULT FALSE,
98 p_updating IN BOOLEAN DEFAULT FALSE,
99 p_deleting IN BOOLEAN DEFAULT FALSE
100 ) AS
101 v_message_name varchar2(30);
102 /*v_current_person_id IGS_PE_PERSON.person_id%TYPE;
103 v_person_id IGS_PE_PERSON.person_id%TYPE;
104 v_user_person_id IGS_PE_PERSON.person_id%TYPE;*/
105 BEGIN
106 IF (p_inserting AND
107 new_references.allow_stnd_req_ind <> 'N') OR
108 (p_updating AND
109 new_references.allow_stnd_req_ind <> old_references.allow_stnd_req_ind) THEN
110 Fnd_Message.Set_Name('IGS', 'IGS_AV_INSUFICIENT_PRIV');
111 IGS_GE_MSG_STACK.ADD;
112 App_Exception.Raise_Exception;
113 END IF;
114
115
116
117
118 END BeforeRowInsertUpdateDelete2;
119
120
121
122
123 PROCEDURE Check_Constraints (
124 Column_Name IN VARCHAR2 DEFAULT NULL,
125 Column_Value IN VARCHAR2 DEFAULT NULL
126 )
127 AS
128 BEGIN
129 IF column_name is null then
130 NULL;
131 ELSIF upper(Column_name) = 'ADM_ACAD_CAL_TYPE' then
132 new_references.adm_acad_cal_type:= column_value;
133 ELSIF upper(Column_name) = 'ADM_ADMISSION_CAT' then
134 new_references.adm_admission_cat := column_value;
135 ELSIF upper(Column_name) = 'ADM_ADM_CAL_TYPE' then
136 new_references.adm_adm_cal_type := column_value;
137 ELSIF upper(Column_name) = 'ADM_S_ADMISSION_PROCESS_TYPE' then
138 new_references.adm_s_admission_process_type:= column_value;
139 ELSIF upper(Column_name) = 'ENR_ACAD_CAL_TYPE' then
140 new_references.enr_acad_cal_type:= column_value;
141 ELSIF upper(Column_name) = 'ENR_ENROLMENT_CAT' then
142 new_references.enr_enrolment_cat := column_value;
143 ELSIF upper(Column_name) = 'ENR_ENR_METHOD_TYPE' then
144 new_references.enr_enr_method_type := column_value;
145 ELSIF upper(Column_name) = 'ADM_ADM_CI_SEQUENCE_NUMBER' then
146 new_references.adm_adm_ci_sequence_number :=IGS_GE_NUMBER.to_num(column_value);
147 ELSIF upper(Column_name) = 'ALLOW_STND_REQ_IND' then
148 new_references.allow_stnd_req_ind := column_value;
149 ELSIF upper(Column_name) = 'ADM_ACAD_CI_SEQUENCE_NUMBER' then
150 new_references.adm_acad_ci_sequence_number := IGS_GE_NUMBER.to_num(column_value);
151 ELSIF upper(Column_name) = 'ENR_ACAD_SEQUENCE_NUMBER' then
152 new_references.enr_acad_sequence_number :=IGS_GE_NUMBER.to_num(column_value);
153 ELSIF upper(Column_name) = 'ENR_ACAD_CI_SEQUENCE_NUMBER' then
154 new_references.enq_acad_ci_sequence_number := IGS_GE_NUMBER.to_num(column_value);
155 ELSIF upper(Column_name) = 'ENQ_ADM_CI_SEQUENCE_NUMBER' then
156 new_references.enq_adm_ci_sequence_number := IGS_GE_NUMBER.to_num(column_value);
157 END IF;
158
159 IF upper(column_name) = 'ADM_ACAD_CAL_TYPE' OR
160 column_name is null Then
161 IF new_references.adm_acad_cal_type <>UPPER(new_references.adm_acad_cal_type )Then
162 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
163 IGS_GE_MSG_STACK.ADD;
164 App_Exception.Raise_Exception;
165 END IF;
166 END IF;
167
168 IF upper(column_name) = 'ADM_ADMISSION_CAT' OR
169 column_name is null Then
170 IF new_references.adm_admission_cat <>UPPER(new_references.adm_admission_cat)Then
171 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
172 IGS_GE_MSG_STACK.ADD;
173 App_Exception.Raise_Exception;
174 END IF;
175 END IF;
176 IF upper(column_name) = 'ADM_ADM_CAL_TYPE' OR
177 column_name is null Then
178 IF new_references.adm_adm_cal_type <>UPPER(new_references.adm_adm_cal_type ) Then
179 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
180 IGS_GE_MSG_STACK.ADD;
181 App_Exception.Raise_Exception;
182 END IF;
183 END IF;
184 IF upper(column_name) = 'ADM_S_ADMISSION_PROCESS_TYPE' OR
185 column_name is null Then
186 IF new_references.adm_s_admission_process_type <>UPPER(new_references.adm_s_admission_process_type) Then
187 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
188 IGS_GE_MSG_STACK.ADD;
189 App_Exception.Raise_Exception;
190 END IF;
191 END IF;
192 IF upper(column_name) = 'ENR_ACAD_CAL_TYPE' OR
193 column_name is null Then
194 IF new_references.enr_acad_cal_type <>UPPER(new_references.enr_acad_cal_type)Then
195 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
196 IGS_GE_MSG_STACK.ADD;
197 App_Exception.Raise_Exception;
198 END IF;
199 END IF;
200 IF upper(column_name) = 'ENR_ENROLMENT_CAT' OR
201 column_name is null Then
202 IF new_references.enr_enrolment_cat <>UPPER(new_references.enr_enrolment_cat ) Then
203 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
204 IGS_GE_MSG_STACK.ADD;
205 App_Exception.Raise_Exception;
206 END IF;
207 END IF;
208 IF upper(column_name) = 'ENR_ENR_METHOD_TYPE' OR
209 column_name is null Then
210 IF new_references.enr_enr_method_type <>UPPER(new_references.enr_enr_method_type) Then
211 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
212 IGS_GE_MSG_STACK.ADD;
213 App_Exception.Raise_Exception;
214 END IF;
215 END IF;
216 IF upper(column_name) = 'ADM_ADM_CI_SEQUENCE_NUMBER' OR
217 column_name is null Then
218 IF new_references.adm_adm_ci_sequence_number < 0 OR new_references.adm_adm_ci_sequence_number > 999999 Then
219 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
220 IGS_GE_MSG_STACK.ADD;
221 App_Exception.Raise_Exception;
222 END IF;
223 END IF;
224 IF upper(column_name) = 'ALLOW_STND_REQ_IND' OR
225 column_name is null Then
226 IF new_references.allow_stnd_req_ind NOT IN ( 'Y' , 'N' ) Then
227 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
228 IGS_GE_MSG_STACK.ADD;
229 App_Exception.Raise_Exception;
230 END IF;
231 END IF;
232 IF upper(column_name) = 'ADM_ACAD_CI_SEQUENCE_NUMBER' OR
233 column_name is null Then
234 IF new_references.adm_acad_ci_sequence_number < 0 OR new_references.adm_acad_ci_sequence_number > 999999 Then
235 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
236 IGS_GE_MSG_STACK.ADD;
237 App_Exception.Raise_Exception;
238 END IF;
239 END IF;
240 IF upper(column_name) = 'ENR_ACAD_SEQUENCE_NUMBER' OR
241 column_name is null Then
242 IF new_references.enr_acad_sequence_number < 0 OR new_references.enr_acad_sequence_number > 999999 Then
243 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
244 IGS_GE_MSG_STACK.ADD;
245 App_Exception.Raise_Exception;
246 END IF;
247 END IF;
248 IF upper(column_name) = 'ENR_ACAD_CI_SEQUENCE_NUMBER' OR
249 column_name is null Then
250 IF new_references.enq_acad_ci_sequence_number < 0 OR new_references.enq_acad_ci_sequence_number > 999999 Then
251 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
252 IGS_GE_MSG_STACK.ADD;
253 App_Exception.Raise_Exception;
254 END IF;
255 END IF;
256 IF upper(column_name) = 'ENQ_ADM_CI_SEQUENCE_NUMBER' OR
257 column_name is null Then
258 IF new_references.enq_adm_ci_sequence_number < 0 OR new_references.enq_adm_ci_sequence_number > 999999 Then
259 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
260 IGS_GE_MSG_STACK.ADD;
261 App_Exception.Raise_Exception;
262 END IF;
263 END IF;
264
265 END Check_Constraints;
266
267 --Redundent Procedure
268
269 PROCEDURE Check_Parent_Existance AS
270 BEGIN
271
272 IF (((old_references.person_id = new_references.person_id)) OR
273 ((new_references.person_id IS NULL))) THEN
274 NULL;
275 ELSE
276
277 IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
278 new_references.person_id) THEN
279 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
280 IGS_GE_MSG_STACK.ADD;
281 App_Exception.Raise_Exception;
282 END IF;
283 END IF;
284
285 END Check_Parent_Existance;
286
287 FUNCTION Get_PK_For_Validation (
288 x_person_id IN NUMBER
289 ) RETURN BOOLEAN AS
290
291 CURSOR cur_rowid IS
292 SELECT rowid
293 FROM IGS_PE_PERS_PREFS_ALL
294 WHERE person_id = x_person_id
295 FOR UPDATE NOWAIT;
296
297 lv_rowid cur_rowid%RowType;
298
299 BEGIN
300
301 Open cur_rowid;
302 Fetch cur_rowid INTO lv_rowid;
303 IF (cur_rowid%FOUND) THEN
304 Close cur_rowid;
305 Return (TRUE);
306 ELSE
307 Close cur_rowid;
308 Return (FALSE);
309 END IF;
310
311 END Get_PK_For_Validation;
312
313 --Redundent Procedure
314 PROCEDURE GET_FK_IGS_PE_PERSON (
315 x_person_id IN NUMBER
316 ) AS
317
318 CURSOR cur_rowid IS
319 SELECT rowid
320 FROM IGS_PE_PERS_PREFS_ALL
321 WHERE person_id = x_person_id ;
322
323 lv_rowid cur_rowid%RowType;
324
325 BEGIN
326
327 Open cur_rowid;
328 Fetch cur_rowid INTO lv_rowid;
329 IF (cur_rowid%FOUND) THEN
330 Fnd_Message.Set_Name ('IGS', 'IGS_PE_PP_PE_FK');
331 IGS_GE_MSG_STACK.ADD;
332 Close cur_rowid;
333 App_Exception.Raise_Exception;
334 Return;
335 END IF;
336 Close cur_rowid;
337
338 END GET_FK_IGS_PE_PERSON;
339
340 PROCEDURE Before_DML (
341 p_action IN VARCHAR2,
342 x_rowid IN VARCHAR2 DEFAULT NULL,
343 x_server_printer_dflt IN VARCHAR2 DEFAULT NULL,
344 x_allow_stnd_req_ind IN VARCHAR2 DEFAULT NULL,
345 x_enq_adm_cal_type IN VARCHAR2 DEFAULT NULL,
346 x_enq_adm_ci_sequence_number IN NUMBER DEFAULT NULL,
347 x_enq_acad_cal_type IN VARCHAR2 DEFAULT NULL,
348 x_enq_acad_ci_sequence_number IN NUMBER DEFAULT NULL,
349 x_person_id IN NUMBER DEFAULT NULL,
350 x_enr_acad_cal_type IN VARCHAR2 DEFAULT NULL,
351 x_enr_acad_sequence_number IN NUMBER DEFAULT NULL,
352 x_enr_enrolment_cat IN VARCHAR2 DEFAULT NULL,
353 x_enr_enr_method_type IN VARCHAR2 DEFAULT NULL,
354 x_adm_acad_cal_type IN VARCHAR2 DEFAULT NULL,
355 x_adm_acad_ci_sequence_number IN NUMBER DEFAULT NULL,
356 x_adm_adm_cal_type IN VARCHAR2 DEFAULT NULL,
357 x_adm_adm_ci_sequence_number IN NUMBER DEFAULT NULL,
358 x_adm_admission_cat IN VARCHAR2 DEFAULT NULL,
359 x_adm_s_admission_process_type IN VARCHAR2 DEFAULT NULL,
360 X_ORG_ID in NUMBER DEFAULT NULL,
361 x_creation_date IN DATE DEFAULT NULL,
362 x_created_by IN NUMBER DEFAULT NULL,
363 x_last_update_date IN DATE DEFAULT NULL,
364 x_last_updated_by IN NUMBER DEFAULT NULL,
365 x_last_update_login IN NUMBER DEFAULT NULL
366 ) AS
367 BEGIN
368
369 Set_Column_Values (
370 p_action,
371 x_rowid,
372 x_server_printer_dflt,
373 x_allow_stnd_req_ind,
374 x_enq_adm_cal_type,
375 x_enq_adm_ci_sequence_number,
376 x_enq_acad_cal_type,
377 x_enq_acad_ci_sequence_number,
378 x_person_id,
379 x_enr_acad_cal_type,
380 x_enr_acad_sequence_number,
381 x_enr_enrolment_cat,
382 x_enr_enr_method_type,
383 x_adm_acad_cal_type,
384 x_adm_acad_ci_sequence_number,
385 x_adm_adm_cal_type,
386 x_adm_adm_ci_sequence_number,
387 x_adm_admission_cat,
388 x_adm_s_admission_process_type,
389 x_org_id,
390 x_creation_date,
391 x_created_by,
392 x_last_update_date,
393 x_last_updated_by,
394 x_last_update_login
395 );
396
397 IF (p_action = 'INSERT') THEN
398 -- Call all the procedures related to Before Insert.
399 BeforeRowInsertUpdatedelete2 ( p_inserting => TRUE );
400 IF Get_PK_For_Validation (
401 new_references.person_id ) THEN
402 Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
403 IGS_GE_MSG_STACK.ADD;
404 App_Exception.Raise_Exception;
405 END IF;
406
407 Check_Constraints; -- if procedure present
408 -- Check_Parent_Existance; for Oracle username issue
409 ELSIF (p_action = 'UPDATE') THEN
410 -- Call all the procedures related to Before Update.
411 BeforeRowInsertUpdatedelete2 ( p_updating => TRUE );
412
413 Check_Constraints; -- if procedure present
414 --Check_Parent_Existance; for Oracle username issue
415
416 ELSIF (p_action = 'DELETE') THEN
417 -- Call all the procedures related to Before Delete.
418 BeforeRowInsertUpdatedelete2( p_deleting => TRUE );
419 NULL;
420 ELSIF (p_action = 'VALIDATE_INSERT') THEN
421 IF Get_PK_For_Validation (
422 new_references.person_id ) THEN
423 Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
424 IGS_GE_MSG_STACK.ADD;
425 App_Exception.Raise_Exception;
426 END IF;
427
428 Check_Constraints; -- if procedure present
429 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
430
431 Check_Constraints; -- if procedure present
432
433 ELSIF (p_action = 'VALIDATE_DELETE') THEN
434 NULL;
435 END IF;
436
437 END Before_DML;
438
439 PROCEDURE After_DML (
440 p_action IN VARCHAR2,
441 x_rowid IN VARCHAR2
442 ) AS
443 BEGIN
444
445 l_rowid := x_rowid;
446
447 IF (p_action = 'INSERT') THEN
448 -- Call all the procedures related to After Insert.
449 Null;
450 ELSIF (p_action = 'UPDATE') THEN
451 -- Call all the procedures related to After Update.
452 Null;
453 ELSIF (p_action = 'DELETE') THEN
454 -- Call all the procedures related to After Delete.
455 Null;
456 END IF;
457
458 END After_DML;
459
460 procedure INSERT_ROW (
461 X_ROWID in out NOCOPY VARCHAR2,
462 X_PERSON_ID in NUMBER,
463 X_ENR_ACAD_CAL_TYPE in VARCHAR2,
464 X_ENR_ACAD_SEQUENCE_NUMBER in NUMBER,
465 X_ENR_ENROLMENT_CAT in VARCHAR2,
466 X_ENR_ENR_METHOD_TYPE in VARCHAR2,
467 X_ADM_ACAD_CAL_TYPE in VARCHAR2,
468 X_ADM_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
469 X_ADM_ADM_CAL_TYPE in VARCHAR2,
470 X_ADM_ADM_CI_SEQUENCE_NUMBER in NUMBER,
471 X_ADM_ADMISSION_CAT in VARCHAR2,
472 X_ADM_S_ADMISSION_PROCESS_TYPE in VARCHAR2,
473 X_ENQ_ACAD_CAL_TYPE in VARCHAR2,
474 X_ENQ_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
475 X_ENQ_ADM_CAL_TYPE in VARCHAR2,
476 X_ENQ_ADM_CI_SEQUENCE_NUMBER in NUMBER,
477 X_SERVER_PRINTER_DFLT in VARCHAR2,
478 X_ALLOW_STND_REQ_IND in VARCHAR2,
479 X_ORG_ID in NUMBER,
480 X_MODE in VARCHAR2 default 'R'
481 ) AS
482 cursor C is select ROWID from IGS_PE_PERS_PREFS_ALL
483 where PERSON_ID = X_PERSON_ID;
484 X_LAST_UPDATE_DATE DATE;
485 X_LAST_UPDATED_BY NUMBER;
486 X_LAST_UPDATE_LOGIN NUMBER;
487 begin
488 X_LAST_UPDATE_DATE := SYSDATE;
489 if(X_MODE = 'I') then
490 X_LAST_UPDATED_BY := 1;
491 X_LAST_UPDATE_LOGIN := 0;
492 elsif (X_MODE = 'R') then
493 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
494 if X_LAST_UPDATED_BY is NULL then
495 X_LAST_UPDATED_BY := -1;
496 end if;
497 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
498 if X_LAST_UPDATE_LOGIN is NULL then
499 X_LAST_UPDATE_LOGIN := -1;
500 end if;
501 else
502 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
503 IGS_GE_MSG_STACK.ADD;
504 app_exception.raise_exception;
505 end if;
506 Before_DML(
507 p_action=>'INSERT',
508 x_rowid=>X_ROWID,
509 x_adm_acad_cal_type=>X_ADM_ACAD_CAL_TYPE,
510 x_adm_acad_ci_sequence_number=>X_ADM_ACAD_CI_SEQUENCE_NUMBER,
511 x_adm_adm_cal_type=>X_ADM_ADM_CAL_TYPE,
512 x_adm_adm_ci_sequence_number=>X_ADM_ADM_CI_SEQUENCE_NUMBER,
513 x_adm_admission_cat=>X_ADM_ADMISSION_CAT,
514 x_adm_s_admission_process_type=>X_ADM_S_ADMISSION_PROCESS_TYPE,
515 x_allow_stnd_req_ind=> NVL(X_ALLOW_STND_REQ_IND,'N'),
516 x_enq_acad_cal_type=>X_ENQ_ACAD_CAL_TYPE,
517 x_enq_acad_ci_sequence_number=>X_ENQ_ACAD_CI_SEQUENCE_NUMBER,
518 x_enq_adm_cal_type=>X_ENQ_ADM_CAL_TYPE,
519 x_enq_adm_ci_sequence_number=>X_ENQ_ADM_CI_SEQUENCE_NUMBER,
520 x_enr_acad_cal_type=>X_ENR_ACAD_CAL_TYPE,
521 x_enr_acad_sequence_number=>X_ENR_ACAD_SEQUENCE_NUMBER,
522 x_enr_enr_method_type=>X_ENR_ENR_METHOD_TYPE,
523 x_enr_enrolment_cat=>X_ENR_ENROLMENT_CAT,
524 x_person_id=>X_PERSON_ID,
525 x_server_printer_dflt=>X_SERVER_PRINTER_DFLT,
526 x_org_id => igs_ge_gen_003.get_org_id,
527 x_creation_date=>X_LAST_UPDATE_DATE,
528 x_created_by=>X_LAST_UPDATED_BY,
529 x_last_update_date=>X_LAST_UPDATE_DATE,
530 x_last_updated_by=>X_LAST_UPDATED_BY,
531 x_last_update_login=>X_LAST_UPDATE_LOGIN
532 );
533 insert into IGS_PE_PERS_PREFS_ALL (
534 PERSON_ID,
535 ENR_ACAD_CAL_TYPE,
536 ENR_ACAD_SEQUENCE_NUMBER,
537 ENR_ENROLMENT_CAT,
538 ENR_ENR_METHOD_TYPE,
539 ADM_ACAD_CAL_TYPE,
540 ADM_ACAD_CI_SEQUENCE_NUMBER,
541 ADM_ADM_CAL_TYPE,
542 ADM_ADM_CI_SEQUENCE_NUMBER,
543 ADM_ADMISSION_CAT,
544 ADM_S_ADMISSION_PROCESS_TYPE,
545 ENQ_ACAD_CAL_TYPE,
546 ENQ_ACAD_CI_SEQUENCE_NUMBER,
547 ENQ_ADM_CAL_TYPE,
548 ENQ_ADM_CI_SEQUENCE_NUMBER,
549 SERVER_PRINTER_DFLT,
550 ALLOW_STND_REQ_IND,
551 ORG_ID,
552 CREATION_DATE,
553 CREATED_BY,
554 LAST_UPDATE_DATE,
555 LAST_UPDATED_BY,
556 LAST_UPDATE_LOGIN
557 ) values (
558 NEW_REFERENCES.PERSON_ID,
559 NEW_REFERENCES.ENR_ACAD_CAL_TYPE,
560 NEW_REFERENCES.ENR_ACAD_SEQUENCE_NUMBER,
561 NEW_REFERENCES.ENR_ENROLMENT_CAT,
562 NEW_REFERENCES.ENR_ENR_METHOD_TYPE,
563 NEW_REFERENCES.ADM_ACAD_CAL_TYPE,
564 NEW_REFERENCES.ADM_ACAD_CI_SEQUENCE_NUMBER,
565 NEW_REFERENCES.ADM_ADM_CAL_TYPE,
566 NEW_REFERENCES.ADM_ADM_CI_SEQUENCE_NUMBER,
567 NEW_REFERENCES.ADM_ADMISSION_CAT,
568 NEW_REFERENCES.ADM_S_ADMISSION_PROCESS_TYPE,
569 NEW_REFERENCES.ENQ_ACAD_CAL_TYPE,
570 NEW_REFERENCES.ENQ_ACAD_CI_SEQUENCE_NUMBER,
571 NEW_REFERENCES.ENQ_ADM_CAL_TYPE,
572 NEW_REFERENCES.ENQ_ADM_CI_SEQUENCE_NUMBER,
573 NEW_REFERENCES.SERVER_PRINTER_DFLT,
574 NEW_REFERENCES.ALLOW_STND_REQ_IND,
575 NEW_REFERENCES.ORG_ID,
576 X_LAST_UPDATE_DATE,
577 X_LAST_UPDATED_BY,
578 X_LAST_UPDATE_DATE,
579 X_LAST_UPDATED_BY,
580 X_LAST_UPDATE_LOGIN
581 );
582
583 open c;
584 fetch c into X_ROWID;
585 if (c%notfound) then
586 close c;
587 raise no_data_found;
588 end if;
589 close c;
590 After_DML(
591 p_action => 'INSERT',
592 x_rowid => X_ROWID
593 );
594 end INSERT_ROW;
595
596 procedure LOCK_ROW (
597 X_ROWID in VARCHAR2,
598 X_PERSON_ID in NUMBER,
599 X_ENR_ACAD_CAL_TYPE in VARCHAR2,
600 X_ENR_ACAD_SEQUENCE_NUMBER in NUMBER,
601 X_ENR_ENROLMENT_CAT in VARCHAR2,
602 X_ENR_ENR_METHOD_TYPE in VARCHAR2,
603 X_ADM_ACAD_CAL_TYPE in VARCHAR2,
604 X_ADM_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
605 X_ADM_ADM_CAL_TYPE in VARCHAR2,
606 X_ADM_ADM_CI_SEQUENCE_NUMBER in NUMBER,
607 X_ADM_ADMISSION_CAT in VARCHAR2,
608 X_ADM_S_ADMISSION_PROCESS_TYPE in VARCHAR2,
609 X_ENQ_ACAD_CAL_TYPE in VARCHAR2,
610 X_ENQ_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
611 X_ENQ_ADM_CAL_TYPE in VARCHAR2,
612 X_ENQ_ADM_CI_SEQUENCE_NUMBER in NUMBER,
613 X_SERVER_PRINTER_DFLT in VARCHAR2,
614 X_ALLOW_STND_REQ_IND in VARCHAR2
615 ) AS
616 cursor c1 is select
617 ENR_ACAD_CAL_TYPE,
618 ENR_ACAD_SEQUENCE_NUMBER,
619 ENR_ENROLMENT_CAT,
620 ENR_ENR_METHOD_TYPE,
621 ADM_ACAD_CAL_TYPE,
622 ADM_ACAD_CI_SEQUENCE_NUMBER,
623 ADM_ADM_CAL_TYPE,
624 ADM_ADM_CI_SEQUENCE_NUMBER,
625 ADM_ADMISSION_CAT,
626 ADM_S_ADMISSION_PROCESS_TYPE,
627 ENQ_ACAD_CAL_TYPE,
628 ENQ_ACAD_CI_SEQUENCE_NUMBER,
629 ENQ_ADM_CAL_TYPE,
630 ENQ_ADM_CI_SEQUENCE_NUMBER,
631 SERVER_PRINTER_DFLT,
632 ALLOW_STND_REQ_IND
633 from IGS_PE_PERS_PREFS_ALL
634 where ROWID = X_ROWID
635 for update nowait;
636 tlinfo c1%rowtype;
637
638 begin
639 open c1;
640 fetch c1 into tlinfo;
641 if (c1%notfound) then
642 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
643
644 close c1;
645 App_Exception.Raise_Exception;
646 return;
647 end if;
648 close c1;
649
650 if ( ((tlinfo.ENR_ACAD_CAL_TYPE = X_ENR_ACAD_CAL_TYPE)
651 OR ((tlinfo.ENR_ACAD_CAL_TYPE is null)
652 AND (X_ENR_ACAD_CAL_TYPE is null)))
653 AND ((tlinfo.ENR_ACAD_SEQUENCE_NUMBER = X_ENR_ACAD_SEQUENCE_NUMBER)
654 OR ((tlinfo.ENR_ACAD_SEQUENCE_NUMBER is null)
655 AND (X_ENR_ACAD_SEQUENCE_NUMBER is null)))
656 AND ((tlinfo.ENR_ENROLMENT_CAT = X_ENR_ENROLMENT_CAT)
657 OR ((tlinfo.ENR_ENROLMENT_CAT is null)
658 AND (X_ENR_ENROLMENT_CAT is null)))
659 AND ((tlinfo.ENR_ENR_METHOD_TYPE = X_ENR_ENR_METHOD_TYPE)
660 OR ((tlinfo.ENR_ENR_METHOD_TYPE is null)
661 AND (X_ENR_ENR_METHOD_TYPE is null)))
662 AND ((tlinfo.ADM_ACAD_CAL_TYPE = X_ADM_ACAD_CAL_TYPE)
663 OR ((tlinfo.ADM_ACAD_CAL_TYPE is null)
664 AND (X_ADM_ACAD_CAL_TYPE is null)))
665 AND ((tlinfo.ADM_ACAD_CI_SEQUENCE_NUMBER = X_ADM_ACAD_CI_SEQUENCE_NUMBER)
666 OR ((tlinfo.ADM_ACAD_CI_SEQUENCE_NUMBER is null)
667 AND (X_ADM_ACAD_CI_SEQUENCE_NUMBER is null)))
668 AND ((tlinfo.ADM_ADM_CAL_TYPE = X_ADM_ADM_CAL_TYPE)
669 OR ((tlinfo.ADM_ADM_CAL_TYPE is null)
670 AND (X_ADM_ADM_CAL_TYPE is null)))
671 AND ((tlinfo.ADM_ADM_CI_SEQUENCE_NUMBER = X_ADM_ADM_CI_SEQUENCE_NUMBER)
672 OR ((tlinfo.ADM_ADM_CI_SEQUENCE_NUMBER is null)
673 AND (X_ADM_ADM_CI_SEQUENCE_NUMBER is null)))
674 AND ((tlinfo.ADM_ADMISSION_CAT = X_ADM_ADMISSION_CAT)
675 OR ((tlinfo.ADM_ADMISSION_CAT is null)
676 AND (X_ADM_ADMISSION_CAT is null)))
677 AND ((tlinfo.ADM_S_ADMISSION_PROCESS_TYPE = X_ADM_S_ADMISSION_PROCESS_TYPE)
678 OR ((tlinfo.ADM_S_ADMISSION_PROCESS_TYPE is null)
679 AND (X_ADM_S_ADMISSION_PROCESS_TYPE is null)))
680 AND ((tlinfo.ENQ_ACAD_CAL_TYPE = X_ENQ_ACAD_CAL_TYPE)
681 OR ((tlinfo.ENQ_ACAD_CAL_TYPE is null)
682 AND (X_ENQ_ACAD_CAL_TYPE is null)))
683 AND ((tlinfo.ENQ_ACAD_CI_SEQUENCE_NUMBER = X_ENQ_ACAD_CI_SEQUENCE_NUMBER)
684 OR ((tlinfo.ENQ_ACAD_CI_SEQUENCE_NUMBER is null)
685 AND (X_ENQ_ACAD_CI_SEQUENCE_NUMBER is null)))
686 AND ((tlinfo.ENQ_ADM_CAL_TYPE = X_ENQ_ADM_CAL_TYPE)
687 OR ((tlinfo.ENQ_ADM_CAL_TYPE is null)
688 AND (X_ENQ_ADM_CAL_TYPE is null)))
689 AND ((tlinfo.ENQ_ADM_CI_SEQUENCE_NUMBER = X_ENQ_ADM_CI_SEQUENCE_NUMBER)
690 OR ((tlinfo.ENQ_ADM_CI_SEQUENCE_NUMBER is null)
691 AND (X_ENQ_ADM_CI_SEQUENCE_NUMBER is null)))
692 AND ((tlinfo.SERVER_PRINTER_DFLT = X_SERVER_PRINTER_DFLT)
693 OR ((tlinfo.SERVER_PRINTER_DFLT is null)
694 AND (X_SERVER_PRINTER_DFLT is null)))
695 AND (tlinfo.ALLOW_STND_REQ_IND = X_ALLOW_STND_REQ_IND)
696 ) then
697 null;
698 else
699 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
700 app_exception.raise_exception;
701 end if;
702 return;
703 end LOCK_ROW;
704
705 procedure UPDATE_ROW (
706 X_ROWID in VARCHAR2,
707 X_PERSON_ID in NUMBER,
708 X_ENR_ACAD_CAL_TYPE in VARCHAR2,
709 X_ENR_ACAD_SEQUENCE_NUMBER in NUMBER,
710 X_ENR_ENROLMENT_CAT in VARCHAR2,
711 X_ENR_ENR_METHOD_TYPE in VARCHAR2,
712 X_ADM_ACAD_CAL_TYPE in VARCHAR2,
713 X_ADM_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
714 X_ADM_ADM_CAL_TYPE in VARCHAR2,
715 X_ADM_ADM_CI_SEQUENCE_NUMBER in NUMBER,
716 X_ADM_ADMISSION_CAT in VARCHAR2,
717 X_ADM_S_ADMISSION_PROCESS_TYPE in VARCHAR2,
718 X_ENQ_ACAD_CAL_TYPE in VARCHAR2,
719 X_ENQ_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
720 X_ENQ_ADM_CAL_TYPE in VARCHAR2,
721 X_ENQ_ADM_CI_SEQUENCE_NUMBER in NUMBER,
722 X_SERVER_PRINTER_DFLT in VARCHAR2,
723 X_ALLOW_STND_REQ_IND in VARCHAR2,
724 X_MODE in VARCHAR2 default 'R'
725 ) AS
726 X_LAST_UPDATE_DATE DATE;
727 X_LAST_UPDATED_BY NUMBER;
728 X_LAST_UPDATE_LOGIN NUMBER;
729 begin
730 X_LAST_UPDATE_DATE := SYSDATE;
731 if(X_MODE = 'I') then
732 X_LAST_UPDATED_BY := 1;
733 X_LAST_UPDATE_LOGIN := 0;
734 elsif (X_MODE = 'R') then
735 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
736 if X_LAST_UPDATED_BY is NULL then
737 X_LAST_UPDATED_BY := -1;
738 end if;
739 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
740 if X_LAST_UPDATE_LOGIN is NULL then
741 X_LAST_UPDATE_LOGIN := -1;
742 end if;
743 else
744 FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
745 IGS_GE_MSG_STACK.ADD;
746 app_exception.raise_exception;
747 end if;
748 Before_DML(
749 p_action=>'UPDATE',
750 x_rowid=>X_ROWID,
751 x_adm_acad_cal_type=>X_ADM_ACAD_CAL_TYPE,
752 x_adm_acad_ci_sequence_number=>X_ADM_ACAD_CI_SEQUENCE_NUMBER,
753 x_adm_adm_cal_type=>X_ADM_ADM_CAL_TYPE,
754 x_adm_adm_ci_sequence_number=>X_ADM_ADM_CI_SEQUENCE_NUMBER,
755 x_adm_admission_cat=>X_ADM_ADMISSION_CAT,
756 x_adm_s_admission_process_type=>X_ADM_S_ADMISSION_PROCESS_TYPE,
757 x_allow_stnd_req_ind=>X_ALLOW_STND_REQ_IND,
758 x_enq_acad_cal_type=>X_ENQ_ACAD_CAL_TYPE,
759 x_enq_acad_ci_sequence_number=>X_ENQ_ACAD_CI_SEQUENCE_NUMBER,
760 x_enq_adm_cal_type=>X_ENQ_ADM_CAL_TYPE,
761 x_enq_adm_ci_sequence_number=>X_ENQ_ADM_CI_SEQUENCE_NUMBER,
762 x_enr_acad_cal_type=>X_ENR_ACAD_CAL_TYPE,
763 x_enr_acad_sequence_number=>X_ENR_ACAD_SEQUENCE_NUMBER,
764 x_enr_enr_method_type=>X_ENR_ENR_METHOD_TYPE,
765 x_enr_enrolment_cat=>X_ENR_ENROLMENT_CAT,
766 x_person_id=>X_PERSON_ID,
767 x_server_printer_dflt=>X_SERVER_PRINTER_DFLT,
768 x_creation_date=>X_LAST_UPDATE_DATE,
769 x_created_by=>X_LAST_UPDATED_BY,
770 x_last_update_date=>X_LAST_UPDATE_DATE,
771 x_last_updated_by=>X_LAST_UPDATED_BY,
772 x_last_update_login=>X_LAST_UPDATE_LOGIN
773 );
774 update IGS_PE_PERS_PREFS_ALL set
775 ENR_ACAD_CAL_TYPE = NEW_REFERENCES.ENR_ACAD_CAL_TYPE,
776 ENR_ACAD_SEQUENCE_NUMBER = NEW_REFERENCES.ENR_ACAD_SEQUENCE_NUMBER,
777 ENR_ENROLMENT_CAT = NEW_REFERENCES.ENR_ENROLMENT_CAT,
778 ENR_ENR_METHOD_TYPE = NEW_REFERENCES.ENR_ENR_METHOD_TYPE,
779 ADM_ACAD_CAL_TYPE = NEW_REFERENCES.ADM_ACAD_CAL_TYPE,
780 ADM_ACAD_CI_SEQUENCE_NUMBER = NEW_REFERENCES.ADM_ACAD_CI_SEQUENCE_NUMBER,
781 ADM_ADM_CAL_TYPE = NEW_REFERENCES.ADM_ADM_CAL_TYPE,
782 ADM_ADM_CI_SEQUENCE_NUMBER = NEW_REFERENCES.ADM_ADM_CI_SEQUENCE_NUMBER,
783 ADM_ADMISSION_CAT = NEW_REFERENCES.ADM_ADMISSION_CAT,
784 ADM_S_ADMISSION_PROCESS_TYPE = NEW_REFERENCES.ADM_S_ADMISSION_PROCESS_TYPE,
785 ENQ_ACAD_CAL_TYPE = NEW_REFERENCES.ENQ_ACAD_CAL_TYPE,
786 ENQ_ACAD_CI_SEQUENCE_NUMBER = NEW_REFERENCES.ENQ_ACAD_CI_SEQUENCE_NUMBER,
787 ENQ_ADM_CAL_TYPE = NEW_REFERENCES.ENQ_ADM_CAL_TYPE,
788 ENQ_ADM_CI_SEQUENCE_NUMBER = NEW_REFERENCES.ENQ_ADM_CI_SEQUENCE_NUMBER,
789 SERVER_PRINTER_DFLT = NEW_REFERENCES.SERVER_PRINTER_DFLT,
790 ALLOW_STND_REQ_IND = NEW_REFERENCES.ALLOW_STND_REQ_IND,
791 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
792 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
793 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
794 where ROWID = X_ROWID
795 ;
796 if (sql%notfound) then
797 raise no_data_found;
798 end if;
799 After_DML(
800 p_action => 'UPDATE',
801 x_rowid => X_ROWID
802 );
803 end UPDATE_ROW;
804
805 procedure ADD_ROW (
806 X_ROWID in out NOCOPY VARCHAR2,
807 X_PERSON_ID in NUMBER,
808 X_ENR_ACAD_CAL_TYPE in VARCHAR2,
809 X_ENR_ACAD_SEQUENCE_NUMBER in NUMBER,
810 X_ENR_ENROLMENT_CAT in VARCHAR2,
811 X_ENR_ENR_METHOD_TYPE in VARCHAR2,
812 X_ADM_ACAD_CAL_TYPE in VARCHAR2,
813 X_ADM_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
814 X_ADM_ADM_CAL_TYPE in VARCHAR2,
815 X_ADM_ADM_CI_SEQUENCE_NUMBER in NUMBER,
816 X_ADM_ADMISSION_CAT in VARCHAR2,
817 X_ADM_S_ADMISSION_PROCESS_TYPE in VARCHAR2,
818 X_ENQ_ACAD_CAL_TYPE in VARCHAR2,
819 X_ENQ_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
820 X_ENQ_ADM_CAL_TYPE in VARCHAR2,
821 X_ENQ_ADM_CI_SEQUENCE_NUMBER in NUMBER,
822 X_SERVER_PRINTER_DFLT in VARCHAR2,
823 X_ALLOW_STND_REQ_IND in VARCHAR2,
824 X_ORG_ID in NUMBER,
825 X_MODE in VARCHAR2 default 'R'
826 ) AS
827 cursor c1 is select rowid from IGS_PE_PERS_PREFS_ALL
828 where PERSON_ID = X_PERSON_ID
829 ;
830
831 begin
832 open c1;
833 fetch c1 into X_ROWID;
834 if (c1%notfound) then
835 close c1;
836 INSERT_ROW (
837 X_ROWID,
838 X_PERSON_ID,
839 X_ENR_ACAD_CAL_TYPE,
840 X_ENR_ACAD_SEQUENCE_NUMBER,
841 X_ENR_ENROLMENT_CAT,
842 X_ENR_ENR_METHOD_TYPE,
843 X_ADM_ACAD_CAL_TYPE,
844 X_ADM_ACAD_CI_SEQUENCE_NUMBER,
845 X_ADM_ADM_CAL_TYPE,
846 X_ADM_ADM_CI_SEQUENCE_NUMBER,
847 X_ADM_ADMISSION_CAT,
848 X_ADM_S_ADMISSION_PROCESS_TYPE,
849 X_ENQ_ACAD_CAL_TYPE,
850 X_ENQ_ACAD_CI_SEQUENCE_NUMBER,
851 X_ENQ_ADM_CAL_TYPE,
852 X_ENQ_ADM_CI_SEQUENCE_NUMBER,
853 X_SERVER_PRINTER_DFLT,
854 X_ALLOW_STND_REQ_IND,
855 X_ORG_ID,
856 X_MODE);
857 return;
858 end if;
859 close c1;
860 UPDATE_ROW (
861 X_ROWID,
862 X_PERSON_ID,
863 X_ENR_ACAD_CAL_TYPE,
864 X_ENR_ACAD_SEQUENCE_NUMBER,
865 X_ENR_ENROLMENT_CAT,
866 X_ENR_ENR_METHOD_TYPE,
867 X_ADM_ACAD_CAL_TYPE,
868 X_ADM_ACAD_CI_SEQUENCE_NUMBER,
869 X_ADM_ADM_CAL_TYPE,
870 X_ADM_ADM_CI_SEQUENCE_NUMBER,
871 X_ADM_ADMISSION_CAT,
872 X_ADM_S_ADMISSION_PROCESS_TYPE,
873 X_ENQ_ACAD_CAL_TYPE,
874 X_ENQ_ACAD_CI_SEQUENCE_NUMBER,
875 X_ENQ_ADM_CAL_TYPE,
876 X_ENQ_ADM_CI_SEQUENCE_NUMBER,
877 X_SERVER_PRINTER_DFLT,
878 X_ALLOW_STND_REQ_IND,
879 X_MODE);
880 end ADD_ROW;
881
882 procedure DELETE_ROW (
883 X_ROWID in VARCHAR2
884 ) AS
885 begin
886 Before_DML(
887 p_action => 'DELETE',
888 x_rowid => X_ROWID
889 );
890 delete from IGS_PE_PERS_PREFS_ALL
891 where ROWID = X_ROWID;
892 if (sql%notfound) then
893 raise no_data_found;
894 end if;
895 After_DML(
896 p_action => 'DELETE',
897 x_rowid => X_ROWID
898 );
899 end DELETE_ROW;
900
901 end IGS_PE_PERS_PREFS_PKG;