1 PACKAGE BODY igs_ad_building_pkg AS
2 /* $Header: IGSAIB4B.pls 115.13 2003/10/30 13:17:28 akadam ship $ */
3 l_rowid VARCHAR2(25);
4 old_references igs_ad_building_all%RowType;
5 new_references igs_ad_building_all%RowType;
6
7 PROCEDURE Set_Column_Values (
8 p_action IN VARCHAR2,
9 x_rowid IN VARCHAR2 DEFAULT NULL,
10 x_org_id IN NUMBER DEFAULT NULL,
11 x_building_id IN NUMBER DEFAULT NULL,
12 x_location_cd IN VARCHAR2 DEFAULT NULL,
13 x_building_cd IN VARCHAR2 DEFAULT NULL,
14 x_description IN VARCHAR2 DEFAULT NULL,
15 x_closed_ind IN VARCHAR2 DEFAULT NULL,
16 x_creation_date IN DATE DEFAULT NULL,
17 x_created_by IN NUMBER DEFAULT NULL,
18 x_last_update_date IN DATE DEFAULT NULL,
19 x_last_updated_by IN NUMBER DEFAULT NULL,
20 x_last_update_login IN NUMBER DEFAULT NULL
21 ) AS
22
23 /*************************************************************
24 Created By :hsahni
25 Date Created By :11-may-2000
26 Purpose :
27 Know limitations, enhancements or remarks
28 Change History
29 Who When What
30
31 (reverse chronological order - newest change first)
32 ***************************************************************/
33
34 CURSOR cur_old_ref_values IS
35 SELECT *
36 FROM IGS_AD_BUILDING_ALL
37 WHERE rowid = x_rowid;
38
39 BEGIN
40
41 l_rowid := x_rowid;
42
43 -- Code for setting the Old and New Reference Values.
44 -- Populate Old Values.
45 Open cur_old_ref_values;
46 Fetch cur_old_ref_values INTO old_references;
47 IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
48 Close cur_old_ref_values;
49 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
50 IGS_GE_MSG_STACK.ADD;
51 App_Exception.Raise_Exception;
52 Return;
53 END IF;
54 Close cur_old_ref_values;
55
56 -- Populate New Values.
57 new_references.org_id := x_org_id;
58 new_references.building_id := x_building_id;
59 new_references.location_cd := x_location_cd;
60 new_references.building_cd := x_building_cd;
61 new_references.description := x_description;
62 new_references.closed_ind := x_closed_ind;
63 IF (p_action = 'UPDATE') THEN
64 new_references.creation_date := old_references.creation_date;
65 new_references.created_by := old_references.created_by;
66 ELSE
67 new_references.creation_date := x_creation_date;
68 new_references.created_by := x_created_by;
69 END IF;
70 new_references.last_update_date := x_last_update_date;
71 new_references.last_updated_by := x_last_updated_by;
72 new_references.last_update_login := x_last_update_login;
73
74 END Set_Column_Values;
75
76 PROCEDURE Check_Constraints (
77 Column_Name IN VARCHAR2 DEFAULT NULL,
78 Column_Value IN VARCHAR2 DEFAULT NULL ) AS
79 /*************************************************************
80 Created By :hsahni
81 Date Created By :11-may-2000
82 Purpose :
83 Know limitations, enhancements or remarks
84 Change History
85 Who When What
86
87 (reverse chronological order - newest change first)
88 ***************************************************************/
89
90 BEGIN
91
92 IF column_name IS NULL THEN
93 NULL;
94 ELSIF UPPER(column_name) = 'CLOSED_IND' THEN
95 new_references.closed_ind := column_value;
96 NULL;
97 END IF;
98
99
100
101 -- The following code checks for check constraints on the Columns.
102 IF Upper(Column_Name) = 'CLOSED_IND' OR
103 Column_Name IS NULL THEN
104 IF NOT (new_references.closed_ind IN ('Y', 'N')) THEN
105 Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
106 IGS_GE_MSG_STACK.ADD;
107 App_Exception.Raise_Exception;
108 END IF;
109 END IF;
110
111
112 END Check_Constraints;
113
114 PROCEDURE Check_Uniqueness AS
115 /*************************************************************
116 Created By :hashni
117 Date Created By :11-may-2000
118 Purpose :
119 Know limitations, enhancements or remarks
120 Change History
121 Who When What
122
123 (reverse chronological order - newest change first)
124 ***************************************************************/
125
126 begin
127 IF Get_Uk_For_Validation (
128 new_references.building_cd
129 ,new_references.location_cd
130 ) THEN
131 Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
132 IGS_GE_MSG_STACK.ADD;
133 app_exception.raise_exception;
134 END IF;
135 END Check_Uniqueness ;
136 PROCEDURE Check_Parent_Existance AS
137 /*************************************************************
138 Created By :hsahni
139 Date Created By :11-may-2000
140 Purpose :
141 Know limitations, enhancements or remarks
142 Change History
143 Who When What
144
145 (reverse chronological order - newest change first)
146 ***************************************************************/
147
148 BEGIN
149
150 IF (((old_references.location_cd = new_references.location_cd)) OR
151 ((new_references.location_cd IS NULL))) THEN
152 NULL;
153 ELSIF NOT Igs_Ad_Location_Pkg.Get_PK_For_Validation (
154 new_references.location_cd,
155 'N') THEN
156 Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
157 IGS_GE_MSG_STACK.ADD;
158 App_Exception.Raise_Exception;
159 END IF;
160
161 END Check_Parent_Existance;
162
163 PROCEDURE Check_Child_Existance IS
164 /*************************************************************
165 Created By :hsahni
166 Date Created By :11-may-2000
167 Purpose :
168 Know limitations, enhancements or remarks
169 Change History
170 Who When What
171
172 (reverse chronological order - newest change first)
173 ***************************************************************/
174
175 BEGIN
176
177 Igs_Ad_Room_Pkg.Get_FK_Igs_Ad_Building (
178 old_references.building_id
179 );
180
181 Igs_Ps_Unit_Location_Pkg.Get_FK_Igs_Ad_Building (
182 old_references.building_id
183 );
184
185 Igs_Ps_Usec_Occurs_Pkg.Get_FK_Igs_Ad_Building (
186 old_references.building_id
187 );
188
189 igs_ps_us_unsched_cl_Pkg.Get_FK_Igs_Ad_Building (
190 old_references.building_id
191 );
192
193 igs_ps_usec_occurs_pkg.get_FK_Igs_Ad_Building (
194 old_references.building_id
195 );
196
197 END Check_Child_Existance;
198
199 FUNCTION Get_PK_For_Validation (
200 x_building_id IN NUMBER,
201 x_closed_ind IN VARCHAR2
202 ) RETURN BOOLEAN AS
203
204 /*************************************************************
205 Created By :hsahni
206 Date Created By :11-may-2000
207 Purpose :
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_ad_building_all
218 WHERE building_id = x_building_id AND
219 closed_ind = NVL(x_closed_ind,closed_ind)
220 FOR UPDATE NOWAIT;
221
222 lv_rowid cur_rowid%RowType;
223
224 BEGIN
225
226 Open cur_rowid;
227 Fetch cur_rowid INTO lv_rowid;
228 IF (cur_rowid%FOUND) THEN
229 Close cur_rowid;
230 Return(TRUE);
231 ELSE
232 Close cur_rowid;
233 Return(FALSE);
234 END IF;
235 END Get_PK_For_Validation;
236
237 FUNCTION Get_UK_For_Validation (
238 x_building_cd IN VARCHAR2,
239 x_location_cd IN VARCHAR2,
240 x_closed_ind IN VARCHAR2
241 ) RETURN BOOLEAN AS
242
243 /*************************************************************
244 Created By :hsahni
245 Date Created By :11-may-2000
246 Purpose :
247 Know limitations, enhancements or remarks
248 Change History
249 Who When What
250
251 (reverse chronological order - newest change first)
252 ***************************************************************/
253
254 CURSOR cur_rowid IS
255 SELECT rowid
256 FROM igs_ad_building_all
257 WHERE building_cd = x_building_cd
258 AND location_cd = x_location_cd AND
259 ((l_rowid is null) or (rowid <> l_rowid)) AND
260 closed_ind = NVL(x_closed_ind,closed_ind);
261
262 lv_rowid cur_rowid%RowType;
263
264 BEGIN
265
266 Open cur_rowid;
267 Fetch cur_rowid INTO lv_rowid;
268 IF (cur_rowid%FOUND) THEN
269 Close cur_rowid;
270 return (true);
271 ELSE
272 close cur_rowid;
273 return(false);
274 END IF;
275 END Get_UK_For_Validation ;
276 PROCEDURE Get_FK_Igs_Ad_Location (
277 x_location_cd IN VARCHAR2
278 ) AS
279
280 /*************************************************************
281 Created By :hsahni
282 Date Created By :11-may-2000
283 Purpose :
284 Know limitations, enhancements or remarks
285 Change History
286 Who When What
287
288 (reverse chronological order - newest change first)
289 ***************************************************************/
290
291 CURSOR cur_rowid IS
292 SELECT rowid
293 FROM igs_ad_building_all
294 WHERE location_cd = x_location_cd ;
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_AD_BLDG_LOC_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_Ad_Location;
312
313 PROCEDURE Before_DML (
314 p_action IN VARCHAR2,
315 x_rowid IN VARCHAR2 DEFAULT NULL,
316 x_org_id IN NUMBER DEFAULT NULL,
317 x_building_id IN NUMBER DEFAULT NULL,
318 x_location_cd IN VARCHAR2 DEFAULT NULL,
319 x_building_cd IN VARCHAR2 DEFAULT NULL,
320 x_description IN VARCHAR2 DEFAULT NULL,
321 x_closed_ind IN VARCHAR2 DEFAULT NULL,
322 x_creation_date IN DATE DEFAULT NULL,
323 x_created_by IN NUMBER DEFAULT NULL,
324 x_last_update_date IN DATE DEFAULT NULL,
325 x_last_updated_by IN NUMBER DEFAULT NULL,
326 x_last_update_login IN NUMBER DEFAULT NULL
327 ) AS
328 /*************************************************************
329 Created By :hsahni
330 Date Created By :11-may-2000
331 Purpose :
332 Know limitations, enhancements or remarks
333 Change History
334 Who When What
335
336 (reverse chronological order - newest change first)
337 ***************************************************************/
338
339 BEGIN
340
341 Set_Column_Values (
342 p_action,
343 x_rowid,
344 x_org_id,
345 x_building_id,
346 x_location_cd,
347 x_building_cd,
348 x_description,
349 x_closed_ind,
350 x_creation_date,
351 x_created_by,
352 x_last_update_date,
353 x_last_updated_by,
354 x_last_update_login
355 );
356
357 IF (p_action = 'INSERT') THEN
358 -- Call all the procedures related to Before Insert.
359 Null;
360 IF Get_Pk_For_Validation(
361 new_references.building_id) THEN
362 Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
363 IGS_GE_MSG_STACK.ADD;
364 App_Exception.Raise_Exception;
365 END IF;
366 Check_Uniqueness;
367 Check_Constraints;
368 Check_Parent_Existance;
369 ELSIF (p_action = 'UPDATE') THEN
370 -- Call all the procedures related to Before Update.
371 Null;
372 Check_Uniqueness;
373 Check_Constraints;
374 Check_Parent_Existance;
375 ELSIF (p_action = 'DELETE') THEN
376 -- Call all the procedures related to Before Delete.
377 Null;
378 Check_Child_Existance;
379 ELSIF (p_action = 'VALIDATE_INSERT') THEN
380 -- Call all the procedures related to Before Insert.
381 IF Get_PK_For_Validation (
382 new_references.building_id) THEN
383 Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
384 IGS_GE_MSG_STACK.ADD;
385 App_Exception.Raise_Exception;
386 END IF;
387 Check_Uniqueness;
388 Check_Constraints;
389 ELSIF (p_action = 'VALIDATE_UPDATE') THEN
390 Check_Uniqueness;
391 Check_Constraints;
392 ELSIF (p_action = 'VALIDATE_DELETE') THEN
396 END Before_DML;
393 Check_Child_Existance;
394 END IF;
395
397
398 PROCEDURE After_DML (
399 p_action IN VARCHAR2,
400 x_rowid IN VARCHAR2
401 ) IS
402 /*************************************************************
403 Created By :hsahni
404 Date Created By :11-may-2000
405 Purpose :
406 Know limitations, enhancements or remarks
407 Change History
408 Who When What
409
410 (reverse chronological order - newest change first)
411 ***************************************************************/
412
413 BEGIN
414
415 l_rowid := x_rowid;
416
417 IF (p_action = 'INSERT') THEN
418 -- Call all the procedures related to After Insert.
419 Null;
420 ELSIF (p_action = 'UPDATE') THEN
421 -- Call all the procedures related to After Update.
422 Null;
423 ELSIF (p_action = 'DELETE') THEN
424 -- Call all the procedures related to After Delete.
425 Null;
426 END IF;
427
428 l_rowid:=NULL;
429 END After_DML;
430
431 procedure INSERT_ROW (
432 X_ROWID in out NOCOPY VARCHAR2,
433 X_ORG_ID in NUMBER,
434 x_BUILDING_ID IN OUT NOCOPY NUMBER,
435 x_LOCATION_CD IN VARCHAR2,
436 x_BUILDING_CD IN VARCHAR2,
437 x_DESCRIPTION IN VARCHAR2,
438 x_CLOSED_IND IN VARCHAR2,
439 X_MODE in VARCHAR2 default 'R'
440 ) AS
441 /*************************************************************
442 Created By :hsahni
443 Date Created By :11-may-2000
444 Purpose :
445 Know limitations, enhancements or remarks
446 Change History
447 Who When What
448
449 (reverse chronological order - newest change first)
450 ***************************************************************/
451
452 cursor C is select ROWID from IGS_AD_BUILDING
453 where BUILDING_ID= X_BUILDING_ID;
454
455 X_LAST_UPDATE_DATE DATE ;
456 X_LAST_UPDATED_BY NUMBER ;
457 X_LAST_UPDATE_LOGIN NUMBER ;
458 begin
459 X_LAST_UPDATE_DATE := SYSDATE;
460 if(X_MODE = 'I') then
461 X_LAST_UPDATED_BY := 1;
462 X_LAST_UPDATE_LOGIN := 0;
463 elsif (X_MODE = 'R') then
464 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
465 if X_LAST_UPDATED_BY is NULL then
466 X_LAST_UPDATED_BY := -1;
467 end if;
468 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
469 if X_LAST_UPDATE_LOGIN is NULL then
470 X_LAST_UPDATE_LOGIN := -1;
471 end if;
472 else
473 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
474 IGS_GE_MSG_STACK.ADD;
475 app_exception.raise_exception;
476 end if;
477
478 x_BUILDING_ID := -1;
479 Before_DML(
480 p_action=>'INSERT',
481 x_rowid=>X_ROWID,
482 x_org_id=>igs_ge_gen_003.get_org_id,
483 x_building_id=>X_BUILDING_ID,
484 x_location_cd=>X_LOCATION_CD,
485 x_building_cd=>X_BUILDING_CD,
486 x_description=>X_DESCRIPTION,
487 x_closed_ind=>X_CLOSED_IND,
488 x_creation_date=>X_LAST_UPDATE_DATE,
489 x_created_by=>X_LAST_UPDATED_BY,
490 x_last_update_date=>X_LAST_UPDATE_DATE,
491 x_last_updated_by=>X_LAST_UPDATED_BY,
492 x_last_update_login=>X_LAST_UPDATE_LOGIN);
493 insert into IGS_AD_BUILDING (
494 BUILDING_ID
495 ,LOCATION_CD
496 ,BUILDING_CD
497 ,DESCRIPTION
498 ,CLOSED_IND
499 ,CREATION_DATE
500 ,CREATED_BY
501 ,LAST_UPDATE_DATE
502 ,LAST_UPDATED_BY
503 ,LAST_UPDATE_LOGIN
504 ,ORG_ID
505 ) values (
506 IGS_AD_BUILDING_S.NEXTVAL
507 ,NEW_REFERENCES.LOCATION_CD
508 ,NEW_REFERENCES.BUILDING_CD
509 ,NEW_REFERENCES.DESCRIPTION
510 ,NEW_REFERENCES.CLOSED_IND
511 ,X_LAST_UPDATE_DATE
512 ,X_LAST_UPDATED_BY
513 ,X_LAST_UPDATE_DATE
514 ,X_LAST_UPDATED_BY
515 ,X_LAST_UPDATE_LOGIN
516 ,NEW_REFERENCES.ORG_ID
517 )RETURNING BUILDING_ID INTO x_BUILDING_ID;
518 open c;
519 fetch c into X_ROWID;
520 if (c%notfound) then
521 close c;
522 raise no_data_found;
523 end if;
524 close c;
525 After_DML (
526 p_action => 'INSERT' ,
527 x_rowid => X_ROWID );
528 end INSERT_ROW;
529 procedure LOCK_ROW (
530 X_ROWID in VARCHAR2,
531 x_BUILDING_ID IN NUMBER,
532 x_LOCATION_CD IN VARCHAR2,
533 x_BUILDING_CD IN VARCHAR2,
534 x_DESCRIPTION IN VARCHAR2,
535 x_CLOSED_IND IN VARCHAR2 ) AS
536 /*************************************************************
537 Created By :hsahni
538 Date Created By :11-may-2000
539 Purpose :
540 Know limitations, enhancements or remarks
541 Change History
542 Who When What
543
544 (reverse chronological order - newest change first)
548 LOCATION_CD
545 ***************************************************************/
546
547 cursor c1 is select
549 , BUILDING_CD
550 , DESCRIPTION
551 , CLOSED_IND
552 from IGS_AD_BUILDING
553 where ROWID = X_ROWID
554 for update nowait;
555 tlinfo c1%rowtype;
556 begin
557 open c1;
558 fetch c1 into tlinfo;
559 if (c1%notfound) then
560 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
561 IGS_GE_MSG_STACK.ADD;
562 close c1;
563 app_exception.raise_exception;
564 return;
565 end if;
566 close c1;
567 if ( ( tlinfo.LOCATION_CD = X_LOCATION_CD)
568 AND (tlinfo.BUILDING_CD = X_BUILDING_CD)
569 AND (tlinfo.DESCRIPTION = X_DESCRIPTION)
570 AND (tlinfo.CLOSED_IND = X_CLOSED_IND)
571 ) then
572 null;
573 else
574 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
575 IGS_GE_MSG_STACK.ADD;
576 app_exception.raise_exception;
577 end if;
578 return;
579 end LOCK_ROW;
580 Procedure UPDATE_ROW (
581 X_ROWID in VARCHAR2,
582 x_BUILDING_ID IN NUMBER,
583 x_LOCATION_CD IN VARCHAR2,
584 x_BUILDING_CD IN VARCHAR2,
585 x_DESCRIPTION IN VARCHAR2,
586 x_CLOSED_IND IN VARCHAR2,
587 X_MODE in VARCHAR2 default 'R'
588 ) AS
589 /*************************************************************
590 Created By :hsahni
591 Date Created By :11-may-2000
592 Purpose :
593 Know limitations, enhancements or remarks
594 Change History
595 Who When What
596
597 (reverse chronological order - newest change first)
598 ***************************************************************/
599
600 X_LAST_UPDATE_DATE DATE ;
601 X_LAST_UPDATED_BY NUMBER ;
602 X_LAST_UPDATE_LOGIN NUMBER ;
603 begin
604 X_LAST_UPDATE_DATE := SYSDATE;
605 if(X_MODE = 'I') then
606 X_LAST_UPDATED_BY := 1;
607 X_LAST_UPDATE_LOGIN := 0;
608 elsif (X_MODE = 'R') then
609 X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
610 if X_LAST_UPDATED_BY is NULL then
611 X_LAST_UPDATED_BY := -1;
612 end if;
613 X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
614 if X_LAST_UPDATE_LOGIN is NULL then
615 X_LAST_UPDATE_LOGIN := -1;
616 end if;
617 else
618 FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
619 IGS_GE_MSG_STACK.ADD;
620 app_exception.raise_exception;
621 end if;
622 Before_DML(
623 p_action=>'UPDATE',
624 x_rowid=>X_ROWID,
625 x_building_id=>X_BUILDING_ID,
626 x_location_cd=>X_LOCATION_CD,
627 x_building_cd=>X_BUILDING_CD,
628 x_description=>X_DESCRIPTION,
629 x_closed_ind=>X_CLOSED_IND,
630 x_creation_date=>X_LAST_UPDATE_DATE,
631 x_created_by=>X_LAST_UPDATED_BY,
632 x_last_update_date=>X_LAST_UPDATE_DATE,
633 x_last_updated_by=>X_LAST_UPDATED_BY,
634 x_last_update_login=>X_LAST_UPDATE_LOGIN);
635 update IGS_AD_BUILDING_ALL set
636 LOCATION_CD = NEW_REFERENCES.LOCATION_CD,
637 BUILDING_CD = NEW_REFERENCES.BUILDING_CD,
638 DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
639 CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
640 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
641 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
642 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
643 where ROWID = X_ROWID;
644 if (sql%notfound) then
645 raise no_data_found;
646 end if;
647
648 After_DML (
649 p_action => 'UPDATE' ,
650 x_rowid => X_ROWID
651 );
652 end UPDATE_ROW;
653 procedure ADD_ROW (
654 x_ROWID in out NOCOPY VARCHAR2,
655 x_ORG_ID in NUMBER,
656 x_BUILDING_ID IN OUT NOCOPY NUMBER,
657 x_LOCATION_CD IN VARCHAR2,
658 x_BUILDING_CD IN VARCHAR2,
659 x_DESCRIPTION IN VARCHAR2,
660 x_CLOSED_IND IN VARCHAR2,
661 X_MODE in VARCHAR2 default 'R'
662 ) AS
663 /*************************************************************
664 Created By :hsahni
665 Date Created By :11-may-2000
666 Purpose :
667 Know limitations, enhancements or remarks
668 Change History
669 Who When What
670
671 (reverse chronological order - newest change first)
672 ***************************************************************/
673
674 cursor c1 is select ROWID from IGS_AD_BUILDING_ALL
675 where BUILDING_ID= X_BUILDING_ID;
676
677 begin
678 open c1;
679 fetch c1 into X_ROWID;
680 if (c1%notfound) then
681 close c1;
682 INSERT_ROW (
683 X_ROWID,
684 X_ORG_ID,
685 X_BUILDING_ID,
686 X_LOCATION_CD,
687 X_BUILDING_CD,
688 X_DESCRIPTION,
689 X_CLOSED_IND,
690 X_MODE );
691 return;
692 end if;
693 close c1;
694 UPDATE_ROW (
695 X_ROWID,
696 X_BUILDING_ID,
697 X_LOCATION_CD,
698 X_BUILDING_CD,
699 X_DESCRIPTION,
703 procedure DELETE_ROW (
700 X_CLOSED_IND,
701 X_MODE );
702 end ADD_ROW;
704 X_ROWID in VARCHAR2
705 ) AS
706 /*************************************************************
707 Created By :hsahni
708 Date Created By :11-may-2000
709 Purpose :
710 Know limitations, enhancements or remarks
711 Change History
712 Who When What
713
714 (reverse chronological order - newest change first)
715 ***************************************************************/
716
717 begin
718 Before_DML (
719 p_action => 'DELETE',
720 x_rowid => X_ROWID
721 );
722 delete from IGS_AD_BUILDING_ALL
723 where ROWID = X_ROWID;
724 if (sql%notfound) then
725 raise no_data_found;
726 end if;
727 After_DML (
728 p_action => 'DELETE',
729 x_rowid => X_ROWID
730 );
731 end DELETE_ROW;
732 END igs_ad_building_pkg;
[Home] [Help]