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