[Home] [Help]
PACKAGE BODY: APPS.IGS_AD_CD_PKG
Source
1 package body IGS_AD_CD_PKG AS
2 /* $Header: IGSAI08B.pls 115.7 2003/10/30 13:10:14 akadam ship $ */
3
4 /***** Bug No : 1956374
5 Task : Duplicated Procedures and functions
6 PROCEDURE ADMP_VAL_BFA_CLOSED is removed *****/
7
8 l_rowid VARCHAR2(25);
9 old_references IGS_AD_CD%RowType;
10 new_references IGS_AD_CD%RowType;
11
12 PROCEDURE Set_Column_Values (
13 p_action IN VARCHAR2,
14 x_rowid IN VARCHAR2 DEFAULT NULL,
15 x_admission_cd IN VARCHAR2 DEFAULT NULL,
16 x_description IN VARCHAR2 DEFAULT NULL,
17 x_tac_admission_cd IN VARCHAR2 DEFAULT NULL,
18 x_basis_for_admission_type IN VARCHAR2 DEFAULT NULL,
19 x_closed_ind IN VARCHAR2 DEFAULT NULL,
20 x_creation_date IN DATE DEFAULT NULL,
21 x_created_by IN NUMBER DEFAULT NULL,
22 x_last_update_date IN DATE DEFAULT NULL,
23 x_last_updated_by IN NUMBER DEFAULT NULL,
24 x_last_update_login IN NUMBER DEFAULT NULL
25 ) AS
26
27 CURSOR cur_old_ref_values IS
28 SELECT *
29 FROM IGS_AD_CD
30 WHERE rowid = x_rowid;
31
32 BEGIN
33
34 l_rowid := x_rowid;
35
36 -- Code for setting the Old and New Reference Values.
37 -- Populate Old Values.
38 Open cur_old_ref_values;
39 Fetch cur_old_ref_values INTO old_references;
40 IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
41 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
42 IGS_GE_MSG_STACK.ADD;
43 App_Exception.Raise_Exception;
44 Close cur_old_ref_values;
45 Return;
46 END IF;
47 Close cur_old_ref_values;
48
49 -- Populate New Values.
50 new_references.admission_cd := x_admission_cd;
51 new_references.description := x_description;
52 new_references.tac_admission_cd := x_tac_admission_cd;
53 new_references.basis_for_admission_type := x_basis_for_admission_type;
54 new_references.closed_ind := x_closed_ind;
55 IF (p_action = 'UPDATE') THEN
56 new_references.creation_date := old_references.creation_date;
57 new_references.created_by := old_references.created_by;
58 ELSE
59 new_references.creation_date := x_creation_date;
60 new_references.created_by := x_created_by;
61 END IF;
62 new_references.last_update_date := x_last_update_date;
63 new_references.last_updated_by := x_last_updated_by;
64 new_references.last_update_login := x_last_update_login;
65
66 END Set_Column_Values;
67
68 PROCEDURE BeforeRowInsertUpdate1(
69 p_inserting IN BOOLEAN DEFAULT FALSE,
70 p_updating IN BOOLEAN DEFAULT FALSE,
71 p_deleting IN BOOLEAN DEFAULT FALSE
72 ) AS
73 v_message_name VARCHAR2(30);
74 BEGIN
75 -- Validate TAC Admission Code.
76 IF p_inserting OR ((old_references.tac_admission_cd <> new_references.tac_admission_cd) OR
77 (old_references.closed_ind = 'Y' AND new_references.closed_ind = 'N')) THEN
78 IF IGS_AD_VAL_ACO.admp_val_tac_closed(
79 new_references.tac_admission_cd,
80 v_message_name) = FALSE THEN
81 Fnd_Message.Set_Name('IGS',v_message_name);
82 IGS_GE_MSG_STACK.ADD;
83 App_Exception.Raise_Exception;
84 END IF;
85 END IF;
86 -- Validate Basis for Admission type.
87 IF p_inserting OR (old_references.basis_for_admission_type <>
88 new_references.basis_for_admission_type) OR
89 (old_references.closed_ind = 'Y' AND new_references.closed_ind = 'N') THEN
90 IF IGS_AD_VAL_ACA.admp_val_bfa_closed(
91 new_references.basis_for_admission_type,
92 v_message_name) = FALSE THEN
93 Fnd_Message.Set_Name('IGS',v_message_name);
94 IGS_GE_MSG_STACK.ADD;
95 App_Exception.Raise_Exception;
96 END IF;
97 END IF;
98
99 END BeforeRowInsertUpdate1;
100
101 PROCEDURE Check_Constraints (
102 Column_Name IN VARCHAR2 DEFAULT NULL,
103 Column_Value IN VARCHAR2 DEFAULT NULL
104 ) AS
105 BEGIN
106 IF column_name is null then
107 NULL;
108 ELSIF upper(Column_name) = 'ADMISSION_CD' Then
109 new_references.admission_cd := column_value;
110 ELSIF upper(Column_name) = 'BASIS_FOR_ADMISSION_TYPE' Then
111 new_references.basis_for_admission_type := column_value;
112 ELSIF upper(Column_name) = 'CLOSED_IND' Then
113 new_references.closed_ind := column_value;
114 ELSIF upper(Column_name) = 'TAC_ADMISSION_CD' Then
115 new_references.tac_admission_cd := column_value;
116 END IF;
117
118 IF upper(column_name) = 'ADMISSION_CD' OR column_name is null Then
119 IF new_references.admission_cd <> UPPER(new_references.admission_cd ) Then
120 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
121 IGS_GE_MSG_STACK.ADD;
122 App_Exception.Raise_Exception;
123 END IF;
124 END IF;
125 IF upper(column_name) = 'BASIS_FOR_ADMISSION_TYPE' OR column_name is null Then
126 IF new_references.basis_for_admission_type <> UPPER(new_references.basis_for_admission_type ) Then
127 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
128 IGS_GE_MSG_STACK.ADD;
129 App_Exception.Raise_Exception;
130 END IF;
131 END IF;
132 IF upper(column_name) = 'CLOSED_IND' OR column_name is null Then
133 IF new_references.closed_ind NOT IN ( 'Y' , 'N' ) Then
134 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
135 IGS_GE_MSG_STACK.ADD;
136 App_Exception.Raise_Exception;
137 END IF;
138 END IF;
139 IF upper(column_name) = 'TAC_ADMISSION_CD' OR column_name is null Then
140 IF new_references.tac_admission_cd <> UPPER(new_references.tac_admission_cd ) Then
141 Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
142 IGS_GE_MSG_STACK.ADD;
143 App_Exception.Raise_Exception;
144 END IF;
145 END IF;
146 END Check_Constraints;
147
148 PROCEDURE Check_Parent_Existance AS
149 BEGIN
150
151 IF (((old_references.basis_for_admission_type = new_references.basis_for_admission_type)) OR
152 ((new_references.basis_for_admission_type IS NULL))) THEN
153 NULL;
154 ELSE
155 IF NOT IGS_AD_BASIS_FOR_AD_PKG.Get_PK_For_Validation (
156 new_references.basis_for_admission_type,
157 'N') THEN
158 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
159 IGS_GE_MSG_STACK.ADD;
160 App_Exception.Raise_Exception;
161 END IF;
162 END IF;
163 IF (((old_references.tac_admission_cd = new_references.tac_admission_cd)) OR
164 ((new_references.tac_admission_cd IS NULL))) THEN
165 NULL;
166 ELSE
167 IF NOT IGS_AD_TAC_AD_CD_PKG.Get_PK_For_Validation (
168 new_references.tac_admission_cd ,
169 'N') THEN
170 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
171 IGS_GE_MSG_STACK.ADD;
172 App_Exception.Raise_Exception;
173 END IF;
174 END IF;
175
176 END Check_Parent_Existance;
177
178 PROCEDURE Check_Child_Existance AS
179 BEGIN
180
181 IGS_AD_PS_APPL_PKG.GET_FK_IGS_AD_CD (
182 old_references.admission_cd
183 );
184
185 END Check_Child_Existance;
186
187 Function Get_PK_For_Validation (
188 x_admission_cd IN VARCHAR2,
189 x_closed_ind IN VARCHAR2 )
190 RETURN BOOLEAN AS
191 CURSOR cur_rowid IS
192 SELECT rowid
193 FROM IGS_AD_CD
194 WHERE admission_cd = x_admission_cd AND
195 closed_ind = NVL(x_closed_ind,closed_ind);
196
197 lv_rowid cur_rowid%RowType;
198 BEGIN -- Get_PK_For_Validation
199 Open cur_rowid;
200 Fetch cur_rowid INTO lv_rowid;
201 IF (cur_rowid%FOUND) THEN
202 Close cur_rowid;
203 Return (TRUE);
204 ELSE
205 Close cur_rowid;
206 Return (FALSE);
207 END IF;
208 END Get_PK_For_Validation;
209
210 PROCEDURE GET_FK_IGS_AD_BASIS_FOR_AD (
211 x_basis_for_admission_type IN VARCHAR2
212 ) AS
213
214 CURSOR cur_rowid IS
215 SELECT rowid
216 FROM IGS_AD_CD
217 WHERE basis_for_admission_type = x_basis_for_admission_type ;
218
219 lv_rowid cur_rowid%RowType;
220
221 BEGIN
222
223 Open cur_rowid;
224 Fetch cur_rowid INTO lv_rowid;
225 IF (cur_rowid%FOUND) THEN
226 Close cur_rowid;
227 Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACO_BFA_FK');
228 IGS_GE_MSG_STACK.ADD;
229 App_Exception.Raise_Exception;
230 Return;
231 END IF;
232 Close cur_rowid;
233
234 END GET_FK_IGS_AD_BASIS_FOR_AD;
235
236 PROCEDURE GET_FK_IGS_AD_TAC_AD_CD (
237 x_tac_admission_cd IN VARCHAR2
238 ) AS
239
240 CURSOR cur_rowid IS
241 SELECT rowid
242 FROM IGS_AD_CD
243 WHERE tac_admission_cd = x_tac_admission_cd ;
244
245 lv_rowid cur_rowid%RowType;
246
247 BEGIN
248
249 Open cur_rowid;
250 Fetch cur_rowid INTO lv_rowid;
251 IF (cur_rowid%FOUND) THEN
252 Close cur_rowid;
253 Fnd_Message.Set_Name ('IGS', 'IGS_AD_ACO_TAC_FK');
254 IGS_GE_MSG_STACK.ADD;
255 App_Exception.Raise_Exception;
256 Return;
257 END IF;
258 Close cur_rowid;
259
260 END GET_FK_IGS_AD_TAC_AD_CD;
261
262 PROCEDURE Before_DML (
263 p_action IN VARCHAR2,
264 x_rowid IN VARCHAR2 DEFAULT NULL,
265 x_admission_cd IN VARCHAR2 DEFAULT NULL,
266 x_description IN VARCHAR2 DEFAULT NULL,
267 x_tac_admission_cd IN VARCHAR2 DEFAULT NULL,
268 x_basis_for_admission_type IN VARCHAR2 DEFAULT NULL,
269 x_closed_ind IN VARCHAR2 DEFAULT NULL,
270 x_creation_date IN DATE DEFAULT NULL,
271 x_created_by IN NUMBER DEFAULT NULL,
272 x_last_update_date IN DATE DEFAULT NULL,
273 x_last_updated_by IN NUMBER DEFAULT NULL,
274 x_last_update_login IN NUMBER DEFAULT NULL
275 ) AS
276 BEGIN
277
278 Set_Column_Values (
279 p_action,
280 x_rowid,
281 x_admission_cd,
282 x_description,
283 x_tac_admission_cd,
284 x_basis_for_admission_type,
285 x_closed_ind,
286 x_creation_date,
287 x_created_by,
288 x_last_update_date,
289 x_last_updated_by,
290 x_last_update_login
291 );
292
293 IF (p_action = 'INSERT') THEN
294 -- Call all the procedures related to Before Insert.
295 BeforeRowInsertUpdate1 ( p_inserting => TRUE );
296 IF Get_PK_For_Validation (
297 new_references.admission_cd ) THEN
298 Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
299 IGS_GE_MSG_STACK.ADD;
300 App_Exception.Raise_Exception;
301 END IF;
302 Check_Constraints;
303 Check_Parent_Existance;
304 ELSIF (p_action = 'UPDATE') THEN
305 -- Call all the procedures related to Before Update.
306 BeforeRowInsertUpdate1 ( p_updating => TRUE );
307 Check_Constraints;
308 Check_Parent_Existance;
309 ELSIF (p_action = 'DELETE') THEN
310 -- Call all the procedures related to Before Delete.
311 Check_Child_Existance;
312 ELSIF (p_action = 'VALIDATE_INSERT') THEN
313 IF Get_PK_For_Validation (
314 new_references.admission_cd ) THEN
315 Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
316 IGS_GE_MSG_STACK.ADD;
317 App_Exception.Raise_Exception;
318 END IF;
319 Check_Constraints;
320 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
321 Check_Constraints;
322 ELSIF (p_action = 'VALIDATE_DELETE') THEN
323 Check_Child_Existance;
324 END IF;
325 END Before_DML;
326
327 PROCEDURE After_DML (
328 p_action IN VARCHAR2,
329 x_rowid IN VARCHAR2
330 ) AS
331 BEGIN
332
333 l_rowid := x_rowid;
334
335 END After_DML;
336
337 procedure INSERT_ROW (
338 X_ROWID in out NOCOPY VARCHAR2,
339 X_ADMISSION_CD in VARCHAR2,
340 X_DESCRIPTION in VARCHAR2,
341 X_TAC_ADMISSION_CD in VARCHAR2,
342 X_BASIS_FOR_ADMISSION_TYPE in VARCHAR2,
343 X_CLOSED_IND in VARCHAR2,
344 X_MODE in VARCHAR2 default 'R'
345 ) AS
346 cursor C is select ROWID from IGS_AD_CD
347 where ADMISSION_CD = X_ADMISSION_CD;
348 X_LAST_UPDATE_DATE DATE;
349 X_LAST_UPDATED_BY NUMBER;
350 X_LAST_UPDATE_LOGIN NUMBER;
351 begin
352 X_LAST_UPDATE_DATE := SYSDATE;
353 if(X_MODE = 'I') then
354 X_LAST_UPDATED_BY := 1;
355 X_LAST_UPDATE_LOGIN := 0;
356 elsif (X_MODE = 'R') then
357 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
358 if X_LAST_UPDATED_BY is NULL then
359 X_LAST_UPDATED_BY := -1;
360 end if;
361 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
362 if X_LAST_UPDATE_LOGIN is NULL then
363 X_LAST_UPDATE_LOGIN := -1;
364 end if;
365 else
366 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
367 IGS_GE_MSG_STACK.ADD;
368 app_exception.raise_exception;
369 end if;
370
371 Before_DML(
372 p_action=>'INSERT',
373 x_rowid=>X_ROWID,
374 x_admission_cd=>X_ADMISSION_CD,
375 x_basis_for_admission_type=>X_BASIS_FOR_ADMISSION_TYPE,
376 x_closed_ind=>Nvl(X_CLOSED_IND, 'N'),
377 x_description=>X_DESCRIPTION,
378 x_tac_admission_cd=>X_TAC_ADMISSION_CD,
379 x_creation_date=>X_LAST_UPDATE_DATE,
380 x_created_by=>X_LAST_UPDATED_BY,
381 x_last_update_date=>X_LAST_UPDATE_DATE,
382 x_last_updated_by=>X_LAST_UPDATED_BY,
383 x_last_update_login=>X_LAST_UPDATE_LOGIN
384 );
385
386 insert into IGS_AD_CD (
387 ADMISSION_CD,
388 DESCRIPTION,
389 TAC_ADMISSION_CD,
390 BASIS_FOR_ADMISSION_TYPE,
391 CLOSED_IND,
392 CREATION_DATE,
393 CREATED_BY,
394 LAST_UPDATE_DATE,
395 LAST_UPDATED_BY,
396 LAST_UPDATE_LOGIN
397 ) values (
398 NEW_REFERENCES.ADMISSION_CD,
399 NEW_REFERENCES.DESCRIPTION,
400 NEW_REFERENCES.TAC_ADMISSION_CD,
401 NEW_REFERENCES.BASIS_FOR_ADMISSION_TYPE,
402 NEW_REFERENCES.CLOSED_IND,
403 X_LAST_UPDATE_DATE,
404 X_LAST_UPDATED_BY,
405 X_LAST_UPDATE_DATE,
406 X_LAST_UPDATED_BY,
407 X_LAST_UPDATE_LOGIN
408 );
409
410 open c;
411 fetch c into X_ROWID;
412 if (c%notfound) then
413 close c;
414 raise no_data_found;
415 end if;
416 close c;
417
418 After_DML (
419 p_action => 'INSERT',
420 x_rowid => X_ROWID);
421
422 end INSERT_ROW;
423
424 procedure LOCK_ROW (
425 X_ROWID in VARCHAR2,
426 X_ADMISSION_CD in VARCHAR2,
427 X_DESCRIPTION in VARCHAR2,
428 X_TAC_ADMISSION_CD in VARCHAR2,
429 X_BASIS_FOR_ADMISSION_TYPE in VARCHAR2,
430 X_CLOSED_IND in VARCHAR2
431 ) AS
432 cursor c1 is select
433 DESCRIPTION,
434 TAC_ADMISSION_CD,
435 BASIS_FOR_ADMISSION_TYPE,
436 CLOSED_IND
437 from IGS_AD_CD
438 where ROWID = X_ROWID for update nowait;
439 tlinfo c1%rowtype;
440
441 begin
442 open c1;
443 fetch c1 into tlinfo;
444 if (c1%notfound) then
445 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
446 IGS_GE_MSG_STACK.ADD;
447 app_exception.raise_exception;
448 close c1;
449 return;
450 end if;
451 close c1;
452
453 if ( (tlinfo.DESCRIPTION = X_DESCRIPTION)
454 AND (tlinfo.TAC_ADMISSION_CD = X_TAC_ADMISSION_CD)
455 AND ((tlinfo.BASIS_FOR_ADMISSION_TYPE = X_BASIS_FOR_ADMISSION_TYPE)
456 OR ((tlinfo.BASIS_FOR_ADMISSION_TYPE is null)
457 AND (X_BASIS_FOR_ADMISSION_TYPE is null)))
458 AND (tlinfo.CLOSED_IND = X_CLOSED_IND)
459 ) then
460 null;
461 else
462 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
463 IGS_GE_MSG_STACK.ADD;
464 app_exception.raise_exception;
465 end if;
466 return;
467 end LOCK_ROW;
468
469 procedure UPDATE_ROW (
470 X_ROWID in VARCHAR2,
471 X_ADMISSION_CD in VARCHAR2,
472 X_DESCRIPTION in VARCHAR2,
473 X_TAC_ADMISSION_CD in VARCHAR2,
474 X_BASIS_FOR_ADMISSION_TYPE in VARCHAR2,
475 X_CLOSED_IND in VARCHAR2,
476 X_MODE in VARCHAR2 default 'R'
477 ) AS
478 X_LAST_UPDATE_DATE DATE;
479 X_LAST_UPDATED_BY NUMBER;
480 X_LAST_UPDATE_LOGIN NUMBER;
481 begin
482 X_LAST_UPDATE_DATE := SYSDATE;
483 if(X_MODE = 'I') then
484 X_LAST_UPDATED_BY := 1;
485 X_LAST_UPDATE_LOGIN := 0;
486 elsif (X_MODE = 'R') then
487 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
488 if X_LAST_UPDATED_BY is NULL then
489 X_LAST_UPDATED_BY := -1;
490 end if;
491 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
492 if X_LAST_UPDATE_LOGIN is NULL then
493 X_LAST_UPDATE_LOGIN := -1;
494 end if;
495 else
496 FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
497 IGS_GE_MSG_STACK.ADD;
498 app_exception.raise_exception;
499 end if;
500
501 Before_DML(
502 p_action=>'UPDATE',
503 x_rowid=>X_ROWID,
504 x_admission_cd=>X_ADMISSION_CD,
505 x_basis_for_admission_type=>X_BASIS_FOR_ADMISSION_TYPE,
506 x_closed_ind=>X_CLOSED_IND,
507 x_description=>X_DESCRIPTION,
508 x_tac_admission_cd=>X_TAC_ADMISSION_CD,
509 x_creation_date=>X_LAST_UPDATE_DATE,
510 x_created_by=>X_LAST_UPDATED_BY,
511 x_last_update_date=>X_LAST_UPDATE_DATE,
512 x_last_updated_by=>X_LAST_UPDATED_BY,
513 x_last_update_login=>X_LAST_UPDATE_LOGIN
514 );
515
516 update IGS_AD_CD set
517 DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
518 TAC_ADMISSION_CD = NEW_REFERENCES.TAC_ADMISSION_CD,
519 BASIS_FOR_ADMISSION_TYPE = NEW_REFERENCES.BASIS_FOR_ADMISSION_TYPE,
520 CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
521 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
522 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
523 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
524 where ROWID = X_ROWID
525 ;
526 if (sql%notfound) then
527 raise no_data_found;
528 end if;
529
530 After_DML (
531 p_action => 'UPDATE',
532 x_rowid => X_ROWID);
533
534 end UPDATE_ROW;
535
536 procedure ADD_ROW (
537 X_ROWID in out NOCOPY VARCHAR2,
538 X_ADMISSION_CD in VARCHAR2,
539 X_DESCRIPTION in VARCHAR2,
540 X_TAC_ADMISSION_CD in VARCHAR2,
541 X_BASIS_FOR_ADMISSION_TYPE in VARCHAR2,
542 X_CLOSED_IND in VARCHAR2,
543 X_MODE in VARCHAR2 default 'R'
544 ) AS
545 cursor c1 is select rowid from IGS_AD_CD
546 where ADMISSION_CD = X_ADMISSION_CD
547 ;
548 begin
549 open c1;
550 fetch c1 into X_ROWID;
551 if (c1%notfound) then
552 close c1;
553 INSERT_ROW (
554 X_ROWID,
555 X_ADMISSION_CD,
556 X_DESCRIPTION,
557 X_TAC_ADMISSION_CD,
558 X_BASIS_FOR_ADMISSION_TYPE,
559 X_CLOSED_IND,
560 X_MODE);
561 return;
562 end if;
563 close c1;
564 UPDATE_ROW (
565 X_ROWID,
566 X_ADMISSION_CD,
567 X_DESCRIPTION,
568 X_TAC_ADMISSION_CD,
569 X_BASIS_FOR_ADMISSION_TYPE,
570 X_CLOSED_IND,
571 X_MODE);
572 end ADD_ROW;
573
574 procedure DELETE_ROW (
575 X_ROWID in VARCHAR2
576 ) AS
577 begin
578
579 Before_DML (
580 p_action => 'DELETE',
581 x_rowid => X_ROWID);
582
583 delete from IGS_AD_CD
584 where ROWID = X_ROWID;
585 if (sql%notfound) then
586 raise no_data_found;
587 end if;
588
589 After_DML (
590 p_action => 'DELETE',
591 x_rowid => X_ROWID);
592
593 end DELETE_ROW;
594
595 end IGS_AD_CD_PKG;