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