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