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