1 PACKAGE BODY igs_en_orun_wlst_prf_pkg AS
2 /* $Header: IGSEI35B.pls 115.7 2002/11/28 23:40:14 nsidana ship $ */
3 l_rowid VARCHAR2(25);
4 old_references igs_en_orun_wlst_prf%RowType;
5 new_references igs_en_orun_wlst_prf%RowType;
6
7 PROCEDURE Set_Column_Values (
8 p_action IN VARCHAR2,
9 x_rowid IN VARCHAR2 DEFAULT NULL,
10 x_org_unit_wlst_prf_id IN NUMBER DEFAULT NULL,
11 x_org_unit_wlst_pri_id IN NUMBER DEFAULT NULL,
12 x_preference_order IN NUMBER DEFAULT NULL,
13 x_preference_code IN VARCHAR2 DEFAULT NULL,
14 x_preference_version IN VARCHAR2 DEFAULT NULL,
15 x_creation_date IN DATE DEFAULT NULL,
16 x_created_by IN NUMBER DEFAULT NULL,
17 x_last_update_date IN DATE DEFAULT NULL,
18 x_last_updated_by IN NUMBER DEFAULT NULL,
19 x_last_update_login IN NUMBER DEFAULT NULL
20 ) AS
21
22 /*************************************************************
23 Created By : smanglm
24 Date Created on : 26-MAY-2000
25 Purpose : Creation of TBH
26 Know limitations, enhancements or remarks
27 Change History
28 Who When What
29
30 (reverse chronological order - newest change first)
31 ***************************************************************/
32
33 CURSOR cur_old_ref_values IS
34 SELECT *
35 FROM IGS_EN_ORUN_WLST_PRF
36 WHERE rowid = x_rowid;
37
38 BEGIN
39
40 l_rowid := x_rowid;
41
42 -- Code for setting the Old and New Reference Values.
43 -- Populate Old Values.
44 Open cur_old_ref_values;
45 Fetch cur_old_ref_values INTO old_references;
46 IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
47 Close cur_old_ref_values;
48 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
49 IGS_GE_MSG_STACK.ADD;
50 App_Exception.Raise_Exception;
51 Return;
52 END IF;
53 Close cur_old_ref_values;
54
55 -- Populate New Values.
56 new_references.org_unit_wlst_prf_id := x_org_unit_wlst_prf_id;
57 new_references.org_unit_wlst_pri_id := x_org_unit_wlst_pri_id;
58 new_references.preference_order := x_preference_order;
59 new_references.preference_code := x_preference_code;
60 new_references.preference_version := x_preference_version;
61 IF (p_action = 'UPDATE') THEN
62 new_references.creation_date := old_references.creation_date;
63 new_references.created_by := old_references.created_by;
64 ELSE
65 new_references.creation_date := x_creation_date;
66 new_references.created_by := x_created_by;
67 END IF;
68 new_references.last_update_date := x_last_update_date;
69 new_references.last_updated_by := x_last_updated_by;
70 new_references.last_update_login := x_last_update_login;
71
72 END Set_Column_Values;
73
74 PROCEDURE Check_Constraints (
75 Column_Name IN VARCHAR2 DEFAULT NULL,
76 Column_Value IN VARCHAR2 DEFAULT NULL ) AS
77 /*************************************************************
78 Created By : smanglm
79 Date Created on : 26-MAY-2000
80 Purpose : Creation of TBH
81 Know limitations, enhancements or remarks
82 Change History
83 Who When What
84
85 (reverse chronological order - newest change first)
86 ***************************************************************/
87
88 BEGIN
89
90 IF column_name IS NULL THEN
91 NULL;
92 NULL;
93 END IF;
94 END Check_Constraints;
95
96 PROCEDURE Check_Parent_Existance AS
97 /*************************************************************
98 Created By : smanglm
99 Date Created on : 26-MAY-2000
100 Purpose : Creation of TBH
101 Know limitations, enhancements or remarks
102 Change History
103 Who When What
104
105 (reverse chronological order - newest change first)
106 ***************************************************************/
107
108 BEGIN
109
110 IF (((old_references.org_unit_wlst_pri_id = new_references.org_unit_wlst_pri_id)) OR
111 ((new_references.org_unit_wlst_pri_id IS NULL))) THEN
112 NULL;
113 ELSIF NOT Igs_En_Orun_Wlst_Pri_Pkg.Get_PK_For_Validation (
114 new_references.org_unit_wlst_pri_id
115 ) THEN
116 Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
117 IGS_GE_MSG_STACK.ADD;
118 App_Exception.Raise_Exception;
119 END IF;
120
121 END Check_Parent_Existance;
122
123 FUNCTION Get_PK_For_Validation (
124 x_org_unit_wlst_prf_id IN NUMBER
125 ) RETURN BOOLEAN AS
126
127 /*************************************************************
128 Created By : smanglm
129 Date Created on : 26-MAY-2000
130 Purpose : Creation of TBH
131 Know limitations, enhancements or remarks
132 Change History
133 Who When What
134
135 (reverse chronological order - newest change first)
136 ***************************************************************/
137
138 CURSOR cur_rowid IS
139 SELECT rowid
140 FROM igs_en_orun_wlst_prf
141 WHERE org_unit_wlst_prf_id = x_org_unit_wlst_prf_id
142 FOR UPDATE NOWAIT;
143
144 lv_rowid cur_rowid%RowType;
145
146 BEGIN
147
148 Open cur_rowid;
149 Fetch cur_rowid INTO lv_rowid;
150 IF (cur_rowid%FOUND) THEN
151 Close cur_rowid;
152 Return(TRUE);
153 ELSE
154 Close cur_rowid;
155 Return(FALSE);
156 END IF;
157 END Get_PK_For_Validation;
158
159 PROCEDURE Get_FK_Igs_En_Or_Unit_Wlst_Pri (
160 x_org_unit_wlst_pri_id IN NUMBER
161 ) AS
162
163 /*************************************************************
164 Created By : smanglm
165 Date Created on : 26-MAY-2000
166 Purpose : Creation of TBH
167 Know limitations, enhancements or remarks
168 Change History
169 Who When What
170
171 (reverse chronological order - newest change first)
172 ***************************************************************/
173
174 CURSOR cur_rowid IS
175 SELECT rowid
176 FROM igs_en_orun_wlst_prf
177 WHERE org_unit_wlst_pri_id = x_org_unit_wlst_pri_id ;
178
179 lv_rowid cur_rowid%RowType;
180
181 BEGIN
182
183 Open cur_rowid;
184 Fetch cur_rowid INTO lv_rowid;
185 IF (cur_rowid%FOUND) THEN
186 Close cur_rowid;
187 Fnd_Message.Set_Name ('IGS', 'IGS_EN_OUWPR_OUWP_FK');
188 IGS_GE_MSG_STACK.ADD;
189 App_Exception.Raise_Exception;
190 Return;
191 END IF;
192 Close cur_rowid;
193
194 END Get_FK_Igs_En_Or_Unit_Wlst_Pri;
195 PROCEDURE check_uniqueness AS
196 /*
197 || Created By : Navin
198 || Created On : 26-SEP-2001
199 || Purpose : Validates the Unique Keys of the table.
200 || Known limitations, enhancements or remarks :
201 || Change History :
202 || Who When What
203 || Navin 26-SEP-2001 Created this function as part of
204 || fixing Bug# : 2005616
205 || (reverse chronological order - newest change first)
206 */
207 BEGIN
208
209 IF ( get_uk_for_validation (
210 new_references.org_unit_wlst_pri_id,
211 new_references.preference_code,
212 new_references.preference_version
213 )
214 ) THEN
215 fnd_message.set_name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
216 igs_ge_msg_stack.add;
217 app_exception.raise_exception;
218 END IF;
219
220 END check_uniqueness;
221
222 FUNCTION get_uk_for_validation (
223 x_org_unit_wlst_pri_id IN NUMBER,
224 x_preference_code IN VARCHAR2,
225 x_preference_version IN VARCHAR2
226 ) RETURN BOOLEAN AS
227 /*
228 || Created By : Navin
229 || Created On : 26-SEP-2001
230 || Purpose : Validates the Unique Keys of the table.
231 || Known limitations, enhancements or remarks :
232 || Change History :
233 || Who When What
234 || Navin 26-SEP-2001 Created this function as part of
235 || fixing Bug# : 2005616
236 || (reverse chronological order - newest change first)
237 */
238
239 CURSOR cur_rowid IS
240 SELECT rowid
241 FROM igs_en_orun_wlst_prf
242 WHERE org_unit_wlst_pri_id = x_org_unit_wlst_pri_id
243 AND preference_code = x_preference_code
244 AND NVL(preference_version,'*') = NVL(x_preference_version,'*')
245 AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
246
247 lv_rowid cur_rowid%RowType;
248
249 BEGIN
250
251 OPEN cur_rowid;
252 FETCH cur_rowid INTO lv_rowid;
253 IF (cur_rowid%FOUND) THEN
254 CLOSE cur_rowid;
255 RETURN (true);
256 ELSE
257 CLOSE cur_rowid;
258 RETURN(FALSE);
259 END IF;
260
261 END get_uk_for_validation ;
262
263 PROCEDURE Before_DML (
264 p_action IN VARCHAR2,
265 x_rowid IN VARCHAR2 DEFAULT NULL,
266 x_org_unit_wlst_prf_id IN NUMBER DEFAULT NULL,
267 x_org_unit_wlst_pri_id IN NUMBER DEFAULT NULL,
268 x_preference_order IN NUMBER DEFAULT NULL,
269 x_preference_code IN VARCHAR2 DEFAULT NULL,
270 x_preference_version IN VARCHAR2 DEFAULT NULL,
271 x_creation_date IN DATE DEFAULT NULL,
272 x_created_by IN NUMBER DEFAULT NULL,
273 x_last_update_date IN DATE DEFAULT NULL,
274 x_last_updated_by IN NUMBER DEFAULT NULL,
275 x_last_update_login IN NUMBER DEFAULT NULL
276 ) AS
277 /*************************************************************
278 Created By : smanglm
279 Date Created on : 26-MAY-2000
280 Purpose : Creation of TBH
281 Know limitations, enhancements or remarks
282 Change History
283 Who When What
284 Who When What
285 Navin 26-SEP-2001 Added the calls to Check_uniqueness as part of
286 fixing Bug# : 2005616
287
288 (reverse chronological order - newest change first)
289 ***************************************************************/
290
291 BEGIN
292
293 Set_Column_Values (
294 p_action,
295 x_rowid,
296 x_org_unit_wlst_prf_id,
297 x_org_unit_wlst_pri_id,
298 x_preference_order,
299 x_preference_code,
300 x_preference_version,
301 x_creation_date,
302 x_created_by,
303 x_last_update_date,
304 x_last_updated_by,
305 x_last_update_login
306 );
307
308 IF (p_action = 'INSERT') THEN
309 -- Call all the procedures related to Before Insert.
310 IF Get_Pk_For_Validation(
311 new_references.org_unit_wlst_prf_id) THEN
312 Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
313 IGS_GE_MSG_STACK.ADD;
314 App_Exception.Raise_Exception;
315 END IF;
316 Check_uniqueness;
317 Check_Constraints;
318 Check_Parent_Existance;
319 ELSIF (p_action = 'UPDATE') THEN
320 -- Call all the procedures related to Before Update.
321 Check_uniqueness;
322 Check_Constraints;
323 Check_Parent_Existance;
324 ELSIF (p_action = 'DELETE') THEN
325 -- Call all the procedures related to Before Delete.
326 Null;
327 ELSIF (p_action = 'VALIDATE_INSERT') THEN
328 -- Call all the procedures related to Before Insert.
329 IF Get_PK_For_Validation (
330 new_references.org_unit_wlst_prf_id) THEN
331 Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
332 IGS_GE_MSG_STACK.ADD;
333 App_Exception.Raise_Exception;
334 END IF;
335 Check_uniqueness;
336 Check_Constraints;
337 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
338 Check_Constraints;
339 ELSIF (p_action = 'VALIDATE_DELETE') THEN
340 Null;
341 END IF;
342
343 END Before_DML;
344
345 PROCEDURE After_DML (
346 p_action IN VARCHAR2,
347 x_rowid IN VARCHAR2
348 ) IS
349 /*************************************************************
350 Created By : smanglm
351 Date Created on : 26-MAY-2000
352 Purpose : Creation of TBH
353 Know limitations, enhancements or remarks
354 Change History
355 Who When What
356
357 (reverse chronological order - newest change first)
358 ***************************************************************/
359
360 BEGIN
361
362 l_rowid := x_rowid;
363
364 IF (p_action = 'INSERT') THEN
365 -- Call all the procedures related to After Insert.
366 Null;
367 ELSIF (p_action = 'UPDATE') THEN
368 -- Call all the procedures related to After Update.
369 Null;
370 ELSIF (p_action = 'DELETE') THEN
371 -- Call all the procedures related to After Delete.
372 Null;
373 END IF;
374
375 END After_DML;
376
377 procedure INSERT_ROW (
378 X_ROWID in out NOCOPY VARCHAR2,
379 x_ORG_UNIT_WLST_PRF_ID IN OUT NOCOPY NUMBER,
380 x_ORG_UNIT_WLST_PRI_ID IN NUMBER,
381 x_PREFERENCE_ORDER IN NUMBER,
382 x_PREFERENCE_CODE IN VARCHAR2,
383 x_PREFERENCE_VERSION IN VARCHAR2,
384 X_MODE in VARCHAR2 default 'R'
385 ) AS
386 /*************************************************************
387 Created By : smanglm
388 Date Created on : 26-MAY-2000
389 Purpose : Creation of TBH
390 Know limitations, enhancements or remarks
391 Change History
392 Who When What
393
394 (reverse chronological order - newest change first)
395 ***************************************************************/
396
397 cursor C is select ROWID from IGS_EN_ORUN_WLST_PRF
398 where ORG_UNIT_WLST_PRF_ID= X_ORG_UNIT_WLST_PRF_ID
399 ;
400 X_LAST_UPDATE_DATE DATE ;
401 X_LAST_UPDATED_BY NUMBER ;
402 X_LAST_UPDATE_LOGIN NUMBER ;
403 begin
404 X_LAST_UPDATE_DATE := SYSDATE;
405 if(X_MODE = 'I') then
406 X_LAST_UPDATED_BY := 1;
407 X_LAST_UPDATE_LOGIN := 0;
408 elsif (X_MODE = 'R') then
409 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
410 if X_LAST_UPDATED_BY is NULL then
411 X_LAST_UPDATED_BY := -1;
412 end if;
413 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
414 if X_LAST_UPDATE_LOGIN is NULL then
415 X_LAST_UPDATE_LOGIN := -1;
416 end if;
417 else
418 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
419 IGS_GE_MSG_STACK.ADD;
420 app_exception.raise_exception;
421 end if;
422 SELECT IGS_EN_OR_UNIT_WLST_PRF_S.NEXTVAL
423 INTO x_org_unit_wlst_prf_id
424 FROm dual;
425 Before_DML(
426 p_action=>'INSERT',
427 x_rowid=>X_ROWID,
428 x_org_unit_wlst_prf_id=>X_ORG_UNIT_WLST_PRF_ID,
429 x_org_unit_wlst_pri_id=>X_ORG_UNIT_WLST_PRI_ID,
430 x_preference_order=>X_PREFERENCE_ORDER,
431 x_preference_code=>X_PREFERENCE_CODE,
432 x_preference_version=>X_PREFERENCE_VERSION,
436 x_last_updated_by=>X_LAST_UPDATED_BY,
433 x_creation_date=>X_LAST_UPDATE_DATE,
434 x_created_by=>X_LAST_UPDATED_BY,
435 x_last_update_date=>X_LAST_UPDATE_DATE,
437 x_last_update_login=>X_LAST_UPDATE_LOGIN);
438 insert into IGS_EN_ORUN_WLST_PRF (
439 ORG_UNIT_WLST_PRF_ID
440 ,ORG_UNIT_WLST_PRI_ID
441 ,PREFERENCE_ORDER
442 ,PREFERENCE_CODE
443 ,PREFERENCE_VERSION
444 ,CREATION_DATE
445 ,CREATED_BY
446 ,LAST_UPDATE_DATE
447 ,LAST_UPDATED_BY
448 ,LAST_UPDATE_LOGIN
449 ) values (
450 NEW_REFERENCES.ORG_UNIT_WLST_PRF_ID
451 ,NEW_REFERENCES.ORG_UNIT_WLST_PRI_ID
452 ,NEW_REFERENCES.PREFERENCE_ORDER
453 ,NEW_REFERENCES.PREFERENCE_CODE
454 ,NEW_REFERENCES.PREFERENCE_VERSION
455 ,X_LAST_UPDATE_DATE
456 ,X_LAST_UPDATED_BY
457 ,X_LAST_UPDATE_DATE
458 ,X_LAST_UPDATED_BY
459 ,X_LAST_UPDATE_LOGIN
460 );
461 open c;
462 fetch c into X_ROWID;
463 if (c%notfound) then
464 close c;
465 raise no_data_found;
466 end if;
467 close c;
468 After_DML (
469 p_action => 'INSERT' ,
470 x_rowid => X_ROWID );
471 end INSERT_ROW;
472 procedure LOCK_ROW (
473 X_ROWID in VARCHAR2,
474 x_ORG_UNIT_WLST_PRF_ID IN NUMBER,
475 x_ORG_UNIT_WLST_PRI_ID IN NUMBER,
476 x_PREFERENCE_ORDER IN NUMBER,
477 x_PREFERENCE_CODE IN VARCHAR2,
478 x_PREFERENCE_VERSION IN VARCHAR2 ) AS
479 /*************************************************************
480 Created By : smanglm
481 Date Created on : 26-MAY-2000
482 Purpose : Creation of TBH
483 Know limitations, enhancements or remarks
484 Change History
485 Who When What
486
487 (reverse chronological order - newest change first)
488 ***************************************************************/
489
490 cursor c1 is select
491 ORG_UNIT_WLST_PRI_ID
492 , PREFERENCE_ORDER
493 , PREFERENCE_CODE
494 , PREFERENCE_VERSION
495 from IGS_EN_ORUN_WLST_PRF
496 where ROWID = X_ROWID
497 for update nowait;
498 tlinfo c1%rowtype;
499 begin
500 open c1;
501 fetch c1 into tlinfo;
502 if (c1%notfound) then
503 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
504 IGS_GE_MSG_STACK.ADD;
505 close c1;
506 app_exception.raise_exception;
507 return;
508 end if;
509 close c1;
510 if ( ( tlinfo.ORG_UNIT_WLST_PRI_ID = X_ORG_UNIT_WLST_PRI_ID)
511 AND (tlinfo.PREFERENCE_ORDER = X_PREFERENCE_ORDER)
512 AND (tlinfo.PREFERENCE_CODE = X_PREFERENCE_CODE)
513 AND ((tlinfo.PREFERENCE_VERSION = X_PREFERENCE_VERSION)
514 OR ((tlinfo.PREFERENCE_VERSION is null)
515 AND (X_PREFERENCE_VERSION is null)))
516 ) then
517 null;
518 else
519 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
520 IGS_GE_MSG_STACK.ADD;
521 app_exception.raise_exception;
522 end if;
523 return;
524 end LOCK_ROW;
525 Procedure UPDATE_ROW (
526 X_ROWID in VARCHAR2,
527 x_ORG_UNIT_WLST_PRF_ID IN NUMBER,
528 x_ORG_UNIT_WLST_PRI_ID IN NUMBER,
529 x_PREFERENCE_ORDER IN NUMBER,
530 x_PREFERENCE_CODE IN VARCHAR2,
531 x_PREFERENCE_VERSION IN VARCHAR2,
532 X_MODE in VARCHAR2 default 'R'
533 ) AS
534 /*************************************************************
535 Created By : smanglm
536 Date Created on : 26-MAY-2000
537 Purpose : Creation of TBH
538 Know limitations, enhancements or remarks
539 Change History
540 Who When What
541
542 (reverse chronological order - newest change first)
543 ***************************************************************/
544
545 X_LAST_UPDATE_DATE DATE ;
546 X_LAST_UPDATED_BY NUMBER ;
547 X_LAST_UPDATE_LOGIN NUMBER ;
548 begin
549 X_LAST_UPDATE_DATE := SYSDATE;
550 if(X_MODE = 'I') then
551 X_LAST_UPDATED_BY := 1;
552 X_LAST_UPDATE_LOGIN := 0;
553 elsif (X_MODE = 'R') then
554 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
555 if X_LAST_UPDATED_BY is NULL then
556 X_LAST_UPDATED_BY := -1;
557 end if;
558 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
559 if X_LAST_UPDATE_LOGIN is NULL then
560 X_LAST_UPDATE_LOGIN := -1;
561 end if;
562 else
563 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
564 IGS_GE_MSG_STACK.ADD;
565 app_exception.raise_exception;
566 end if;
567 Before_DML(
568 p_action=>'UPDATE',
569 x_rowid=>X_ROWID,
570 x_org_unit_wlst_prf_id=>X_ORG_UNIT_WLST_PRF_ID,
571 x_org_unit_wlst_pri_id=>X_ORG_UNIT_WLST_PRI_ID,
572 x_preference_order=>X_PREFERENCE_ORDER,
576 x_created_by=>X_LAST_UPDATED_BY,
573 x_preference_code=>X_PREFERENCE_CODE,
574 x_preference_version=>X_PREFERENCE_VERSION,
575 x_creation_date=>X_LAST_UPDATE_DATE,
577 x_last_update_date=>X_LAST_UPDATE_DATE,
578 x_last_updated_by=>X_LAST_UPDATED_BY,
579 x_last_update_login=>X_LAST_UPDATE_LOGIN);
580 update IGS_EN_ORUN_WLST_PRF set
581 ORG_UNIT_WLST_PRI_ID = NEW_REFERENCES.ORG_UNIT_WLST_PRI_ID,
582 PREFERENCE_ORDER = NEW_REFERENCES.PREFERENCE_ORDER,
583 PREFERENCE_CODE = NEW_REFERENCES.PREFERENCE_CODE,
584 PREFERENCE_VERSION = NEW_REFERENCES.PREFERENCE_VERSION,
585 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
586 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
587 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
588 where ROWID = X_ROWID;
589 if (sql%notfound) then
590 raise no_data_found;
591 end if;
592
593 After_DML (
594 p_action => 'UPDATE' ,
595 x_rowid => X_ROWID
596 );
597 end UPDATE_ROW;
598 procedure ADD_ROW (
599 X_ROWID in out NOCOPY VARCHAR2,
600 x_ORG_UNIT_WLST_PRF_ID IN OUT NOCOPY NUMBER,
601 x_ORG_UNIT_WLST_PRI_ID IN NUMBER,
602 x_PREFERENCE_ORDER IN NUMBER,
603 x_PREFERENCE_CODE IN VARCHAR2,
604 x_PREFERENCE_VERSION IN VARCHAR2,
605 X_MODE in VARCHAR2 default 'R'
606 ) AS
607 /*************************************************************
608 Created By : smanglm
609 Date Created on : 26-MAY-2000
610 Purpose : Creation of TBH
611 Know limitations, enhancements or remarks
612 Change History
613 Who When What
614
615 (reverse chronological order - newest change first)
616 ***************************************************************/
617
618 cursor c1 is select ROWID from IGS_EN_ORUN_WLST_PRF
619 where ORG_UNIT_WLST_PRF_ID= X_ORG_UNIT_WLST_PRF_ID
620 ;
621 begin
622 open c1;
623 fetch c1 into X_ROWID;
624 if (c1%notfound) then
625 close c1;
626 INSERT_ROW (
627 X_ROWID,
628 X_ORG_UNIT_WLST_PRF_ID,
629 X_ORG_UNIT_WLST_PRI_ID,
630 X_PREFERENCE_ORDER,
631 X_PREFERENCE_CODE,
632 X_PREFERENCE_VERSION,
633 X_MODE );
634 return;
635 end if;
636 close c1;
637 UPDATE_ROW (
638 X_ROWID,
639 X_ORG_UNIT_WLST_PRF_ID,
640 X_ORG_UNIT_WLST_PRI_ID,
641 X_PREFERENCE_ORDER,
642 X_PREFERENCE_CODE,
643 X_PREFERENCE_VERSION,
644 X_MODE );
645 end ADD_ROW;
646 procedure DELETE_ROW (
647 X_ROWID in VARCHAR2
648 ) AS
649 /*************************************************************
650 Created By : smanglm
651 Date Created on : 26-MAY-2000
652 Purpose : Creation of TBH
653 Know limitations, enhancements or remarks
654 Change History
655 Who When What
656
657 (reverse chronological order - newest change first)
658 ***************************************************************/
659
660 begin
661 Before_DML (
662 p_action => 'DELETE',
663 x_rowid => X_ROWID
664 );
665 delete from IGS_EN_ORUN_WLST_PRF
666 where ROWID = X_ROWID;
667 if (sql%notfound) then
668 raise no_data_found;
669 end if;
670 After_DML (
671 p_action => 'DELETE',
672 x_rowid => X_ROWID
673 );
674 end DELETE_ROW;
675 END igs_en_orun_wlst_prf_pkg;