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