[Home] [Help]
PACKAGE BODY: APPS.IGS_AD_HZ_EMP_DTL_PKG
Source
1 PACKAGE BODY igs_ad_hz_emp_dtl_pkg AS
2 /* $Header: IGSAIB8B.pls 120.1 2005/06/28 04:30:42 appldev ship $ */
3
4 l_rowid VARCHAR2(25);
5 old_references igs_ad_hz_emp_dtl%ROWTYPE;
6 new_references igs_ad_hz_emp_dtl%ROWTYPE;
7
8 PROCEDURE set_column_values (
9 p_action IN VARCHAR2,
10 x_rowid IN VARCHAR2 DEFAULT NULL,
11 x_hz_emp_dtl_id IN NUMBER DEFAULT NULL,
12 x_employment_history_id IN NUMBER DEFAULT NULL,
13 x_type_of_employment IN VARCHAR2 DEFAULT NULL,
14 x_fracion_of_employment IN NUMBER DEFAULT NULL,
15 x_tenure_of_employment IN VARCHAR2 DEFAULT NULL,
16 x_occupational_title_code IN VARCHAR2 DEFAULT NULL,
17 x_weekly_work_hours IN NUMBER DEFAULT NULL,
18 x_comments IN VARCHAR2 DEFAULT NULL,
19 x_creation_date IN DATE DEFAULT NULL,
20 x_created_by IN NUMBER DEFAULT NULL,
21 x_last_update_date IN DATE DEFAULT NULL,
22 x_last_updated_by IN NUMBER DEFAULT NULL,
23 x_last_update_login IN NUMBER DEFAULT NULL
24 ) AS
25 /*
26 || Created By : [email protected]
27 || Created On : 29-AUG-2000
28 || Purpose : Initialises the Old and New references for the columns of the table.
29 || Known limitations, enhancements or remarks :
30 || Change History :
31 || Who When What
32 || (reverse chronological order - newest change first)
33 */
34
35 CURSOR cur_old_ref_values IS
36 SELECT *
37 FROM IGS_AD_HZ_EMP_DTL
38 WHERE rowid = x_rowid;
39
40 BEGIN
41
42 l_rowid := x_rowid;
43
44 -- Code for setting the Old and New Reference Values.
45 -- Populate Old Values.
46 OPEN cur_old_ref_values;
47 FETCH cur_old_ref_values INTO old_references;
48 IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
49 CLOSE cur_old_ref_values;
50 fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
51 igs_ge_msg_stack.add;
52 app_exception.raise_exception;
53 RETURN;
54 END IF;
55 CLOSE cur_old_ref_values;
56
57 -- Populate New Values.
58 new_references.hz_emp_dtl_id := x_hz_emp_dtl_id;
59 new_references.employment_history_id := x_employment_history_id;
60 new_references.type_of_employment := x_type_of_employment;
61 new_references.fracion_of_employment := x_fracion_of_employment;
62 new_references.tenure_of_employment := x_tenure_of_employment;
63 new_references.occupational_title_code := x_occupational_title_code;
64 new_references.weekly_work_hours := x_weekly_work_hours;
65 new_references.comments := x_comments;
66
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
75 new_references.last_update_date := x_last_update_date;
76 new_references.last_updated_by := x_last_updated_by;
77 new_references.last_update_login := x_last_update_login;
78
79 END set_column_values;
80
81 PROCEDURE check_parent_existance AS
82 CURSOR cur_rowid IS
83 SELECT rowid
84 FROM hz_employment_history
85 WHERE employment_history_id = new_references.employment_history_id ;
86 lv_rowid cur_rowid%RowType;
87 /*
88 || Created By : [email protected]
89 || Created On : 29-AUG-2000
90 || Purpose : Checks for the existance of Parent records.
91 || Known limitations, enhancements or remarks :
92 || Change History :
93 || Who When What
94 || (reverse chronological order - newest change first)
95 */
96 BEGIN
97
98 IF (((old_references.employment_history_id = new_references.employment_history_id)) OR
99 ((new_references.employment_history_id IS NULL))) THEN
100 NULL;
101 ELSE
102 Open cur_rowid;
103 Fetch cur_rowid INTO lv_rowid;
104 IF (cur_rowid%NOTFOUND) THEN
105 Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
106 IGS_GE_MSG_STACK.ADD;
107 App_Exception.Raise_Exception;
108 END IF;
109 Close cur_rowid;
110 END IF;
111
112 END check_parent_existance;
113
114 FUNCTION get_pk_for_validation (
115 x_hz_emp_dtl_id IN NUMBER
116 ) RETURN BOOLEAN AS
117 /*
118 || Created By : [email protected]
119 || Created On : 29-AUG-2000
120 || Purpose : Validates the Primary Key of the table.
121 || Known limitations, enhancements or remarks :
122 || Change History :
123 || Who When What
124 || (reverse chronological order - newest change first)
125 */
126 CURSOR cur_rowid IS
127 SELECT rowid
128 FROM igs_ad_hz_emp_dtl
129 WHERE hz_emp_dtl_id = x_hz_emp_dtl_id
130 FOR UPDATE NOWAIT;
131
132 lv_rowid cur_rowid%RowType;
133
134 BEGIN
135
136 OPEN cur_rowid;
137 FETCH cur_rowid INTO lv_rowid;
138 IF (cur_rowid%FOUND) THEN
139 CLOSE cur_rowid;
140 RETURN(TRUE);
141 ELSE
142 CLOSE cur_rowid;
143 RETURN(FALSE);
144 END IF;
145
146 END get_pk_for_validation;
147
148 PROCEDURE get_fk_hz_employment_history (
149 x_employment_history_id IN NUMBER
150 ) AS
151 /*
152 || Created By : [email protected]
153 || Created On : 29-AUG-2000
154 || Purpose : Validates the Foreign Keys for the table.
155 || Known limitations, enhancements or remarks :
156 || Change History :
157 || Who When What
158 || (reverse chronological order - newest change first)
159 */
160 CURSOR cur_rowid IS
161 SELECT rowid
162 FROM igs_ad_hz_emp_dtl
163 WHERE ((employment_history_id = x_employment_history_id));
164
165 lv_rowid cur_rowid%RowType;
166
167 BEGIN
168
169 OPEN cur_rowid;
170 FETCH cur_rowid INTO lv_rowid;
171 IF (cur_rowid%FOUND) THEN
172 CLOSE cur_rowid;
173 fnd_message.set_name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
174 igs_ge_msg_stack.add;
175 app_exception.raise_exception;
176 RETURN;
177 END IF;
178 CLOSE cur_rowid;
179
180 END get_fk_hz_employment_history;
181
182 PROCEDURE before_dml (
183 p_action IN VARCHAR2,
184 x_rowid IN VARCHAR2 DEFAULT NULL,
185 x_hz_emp_dtl_id IN NUMBER DEFAULT NULL,
186 x_employment_history_id IN NUMBER DEFAULT NULL,
187 x_type_of_employment IN VARCHAR2 DEFAULT NULL,
188 x_fracion_of_employment IN NUMBER DEFAULT NULL,
189 x_tenure_of_employment IN VARCHAR2 DEFAULT NULL,
190 x_occupational_title_code IN VARCHAR2 DEFAULT NULL,
191 x_weekly_work_hours IN NUMBER DEFAULT NULL,
192 x_comments IN VARCHAR2 DEFAULT NULL,
193 x_creation_date IN DATE DEFAULT NULL,
194 x_created_by IN NUMBER DEFAULT NULL,
195 x_last_update_date IN DATE DEFAULT NULL,
196 x_last_updated_by IN NUMBER DEFAULT NULL,
197 x_last_update_login IN NUMBER DEFAULT NULL
198 ) AS
199 /*
200 || Created By : [email protected]
201 || Created On : 29-AUG-2000
202 || Purpose : Initialises the columns, Checks Constraints, Calls the
203 || Trigger Handlers for the table, before any DML operation.
204 || Known limitations, enhancements or remarks :
205 || Change History :
206 || Who When What
207 || (reverse chronological order - newest change first)
208 */
209 BEGIN
210
211 set_column_values (
212 p_action,
213 x_rowid,
214 x_hz_emp_dtl_id,
215 x_employment_history_id,
216 x_type_of_employment,
217 x_fracion_of_employment,
218 x_tenure_of_employment,
219 x_occupational_title_code,
220 x_weekly_work_hours,
221 x_comments,
222 x_creation_date,
223 x_created_by,
224 x_last_update_date,
225 x_last_updated_by,
226 x_last_update_login
227 );
228
229 IF (p_action = 'INSERT') THEN
230 -- Call all the procedures related to Before Insert.
231 IF ( get_pk_for_validation(
232 new_references.hz_emp_dtl_id
233 )
234 ) THEN
235 fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
236 igs_ge_msg_stack.add;
237 app_exception.raise_exception;
238 END IF;
239 check_parent_existance;
240 ELSIF (p_action = 'UPDATE') THEN
241 -- Call all the procedures related to Before Update.
242 -- check_constraints;
243 check_parent_existance;
244 ELSIF (p_action = 'DELETE') THEN
245 null;
246 -- Call all the procedures related to Before Delete.
247 -- check_child_existance;
248 ELSIF (p_action = 'VALIDATE_INSERT') THEN
249 -- Call all the procedures related to Before Insert.
250 IF ( get_pk_for_validation (
251 new_references.hz_emp_dtl_id
252 )
253 ) THEN
254 fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
255 igs_ge_msg_stack.add;
256 app_exception.raise_exception;
257 END IF;
258 END IF;
259
260 END before_dml;
261
262
263 PROCEDURE insert_row (
264 x_rowid IN OUT NOCOPY VARCHAR2,
265 x_hz_emp_dtl_id IN OUT NOCOPY NUMBER,
266 x_employment_history_id IN NUMBER,
267 x_type_of_employment IN VARCHAR2 DEFAULT NULL,
268 x_fracion_of_employment IN NUMBER DEFAULT NULL,
269 x_tenure_of_employment IN VARCHAR2 DEFAULT NULL,
270 x_occupational_title_code IN VARCHAR2,
271 x_weekly_work_hours IN NUMBER DEFAULT NULL,
272 x_comments IN VARCHAR2 DEFAULT NULL,
273 x_mode IN VARCHAR2 DEFAULT 'R'
274 ) AS
275 /*
276 || Created By : [email protected]
277 || Created On : 29-AUG-2000
278 || Purpose : Handles the INSERT DML logic for the table.
279 || Known limitations, enhancements or remarks :
280 || Change History :
281 || Who When What
282 || (reverse chronological order - newest change first)
283 */
284 CURSOR c IS
285 SELECT rowid
286 FROM igs_ad_hz_emp_dtl
287 WHERE hz_emp_dtl_id = x_hz_emp_dtl_id ;
288
289 x_last_update_date DATE;
290 x_last_updated_by NUMBER;
291 x_last_update_login NUMBER;
292
293 BEGIN
294
295 x_last_update_date := SYSDATE;
296 IF (x_mode = 'I') THEN
297 x_last_updated_by := 1;
298 x_last_update_login := 0;
299 ELSIF (X_MODE IN ('R', 'S')) THEN
300 x_last_updated_by := fnd_global.user_id;
301 IF (x_last_updated_by IS NULL) THEN
302 x_last_updated_by := -1;
303 END IF;
304 x_last_update_login := fnd_global.login_id;
305 IF (x_last_update_login IS NULL) THEN
306 x_last_update_login := -1;
307 END IF;
308 ELSE
309 fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
310 igs_ge_msg_stack.add;
311 app_exception.raise_exception;
312 END IF;
313
314 X_HZ_EMP_DTL_ID := -1;
315 before_dml(
316 p_action => 'INSERT',
317 x_rowid => x_rowid,
318 x_hz_emp_dtl_id => x_hz_emp_dtl_id,
319 x_employment_history_id => x_employment_history_id,
320 x_type_of_employment => x_type_of_employment,
321 x_fracion_of_employment => x_fracion_of_employment,
322 x_tenure_of_employment => x_tenure_of_employment,
323 x_occupational_title_code => x_occupational_title_code,
324 x_weekly_work_hours => x_weekly_work_hours,
325 x_comments => x_comments,
326 x_creation_date => x_last_update_date,
327 x_created_by => x_last_updated_by,
328 x_last_update_date => x_last_update_date,
329 x_last_updated_by => x_last_updated_by,
330 x_last_update_login => x_last_update_login
331 );
332
333 IF (x_mode = 'S') THEN
334 igs_sc_gen_001.set_ctx('R');
335 END IF;
336 INSERT INTO igs_ad_hz_emp_dtl (
337 hz_emp_dtl_id,
338 employment_history_id,
339 type_of_employment,
340 fracion_of_employment,
341 tenure_of_employment,
342 occupational_title_code,
343 weekly_work_hours,
344 comments,
345 creation_date,
346 created_by,
347 last_update_date,
348 last_updated_by,
349 last_update_login
350 ) VALUES (
351 IGS_AD_HZ_EMP_DTL_S.NEXTVAL,
352 new_references.employment_history_id,
353 new_references.type_of_employment,
354 new_references.fracion_of_employment,
355 new_references.tenure_of_employment,
356 new_references.occupational_title_code,
357 new_references.weekly_work_hours,
358 new_references.comments,
359 x_last_update_date,
360 x_last_updated_by,
361 x_last_update_date,
362 x_last_updated_by,
363 x_last_update_login
364 )RETURNING HZ_EMP_DTL_ID INTO X_HZ_EMP_DTL_ID;
365 IF (x_mode = 'S') THEN
366 igs_sc_gen_001.unset_ctx('R');
367 END IF;
368
369
370 OPEN c;
371 FETCH c INTO x_rowid;
372 IF (c%NOTFOUND) THEN
373 CLOSE c;
374 RAISE NO_DATA_FOUND;
375 END IF;
376 CLOSE c;
377
378
379 EXCEPTION
380 WHEN OTHERS THEN
381 IF (SQLCODE IN (-28115, -28113, -28111)) THEN
382 fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
383 fnd_message.set_token ('ERR_CD', SQLCODE);
384 igs_ge_msg_stack.add;
385 igs_sc_gen_001.unset_ctx('R');
386 app_exception.raise_exception;
387 ELSE
388 igs_sc_gen_001.unset_ctx('R');
389 RAISE;
390 END IF;
391 END insert_row;
392
393
397 x_employment_history_id IN NUMBER,
394 PROCEDURE lock_row (
395 x_rowid IN VARCHAR2,
396 x_hz_emp_dtl_id IN NUMBER,
398 x_type_of_employment IN VARCHAR2 DEFAULT NULL,
399 x_fracion_of_employment IN NUMBER DEFAULT NULL,
400 x_tenure_of_employment IN VARCHAR2 DEFAULT NULL,
401 x_occupational_title_code IN VARCHAR2,
402 x_weekly_work_hours IN NUMBER DEFAULT NULL,
403 x_comments IN VARCHAR2 DEFAULT NULL
404 ) AS
405 /*
406 || Created By : [email protected]
407 || Created On : 29-AUG-2000
408 || Purpose : Handles the LOCK mechanism for the table.
409 || Known limitations, enhancements or remarks :
410 || Change History :
411 || Who When What
412 || (reverse chronological order - newest change first)
413 */
414 CURSOR c1 IS
415 SELECT
416 hz_emp_dtl_id,
417 employment_history_id,
418 -- type_of_employment,
419 -- fracion_of_employment,
420 -- tenure_of_employment,
421 occupational_title_code
422 -- weekly_work_hours,
423 -- comments
424 FROM igs_ad_hz_emp_dtl
425 WHERE rowid = x_rowid
426 FOR UPDATE NOWAIT;
427
428 tlinfo c1%ROWTYPE;
429
430 BEGIN
431
432 OPEN c1;
433 FETCH c1 INTO tlinfo;
434 IF (c1%notfound) THEN
435 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
436 igs_ge_msg_stack.add;
437 CLOSE c1;
438 app_exception.raise_exception;
439 RETURN;
440 END IF;
441 CLOSE c1;
442
443 IF (
444 (tlinfo.hz_emp_dtl_id = x_hz_emp_dtl_id)
445 AND (tlinfo.employment_history_id = x_employment_history_id)
446 AND ((tlinfo.occupational_title_code = x_occupational_title_code) OR ((tlinfo.occupational_title_code IS NULL) AND (X_occupational_title_code IS NULL)))
447 ) THEN
448 NULL;
449 ELSE
450 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
451 igs_ge_msg_stack.add;
452 app_exception.raise_exception;
453 END IF;
454
455 RETURN;
456
457 END lock_row;
458
459
460 PROCEDURE update_row (
461 x_rowid IN VARCHAR2,
462 x_hz_emp_dtl_id IN NUMBER,
463 x_employment_history_id IN NUMBER,
464 x_type_of_employment IN VARCHAR2 DEFAULT NULL,
465 x_fracion_of_employment IN NUMBER DEFAULT NULL,
466 x_tenure_of_employment IN VARCHAR2 DEFAULT NULL,
467 x_occupational_title_code IN VARCHAR2,
468 x_weekly_work_hours IN NUMBER DEFAULT NULL,
469 x_comments IN VARCHAR2 DEFAULT NULL,
470 x_mode IN VARCHAR2 DEFAULT 'R'
471 ) AS
472 /*
473 || Created By : [email protected]
474 || Created On : 29-AUG-2000
475 || Purpose : Handles the UPDATE DML logic for the table.
476 || Known limitations, enhancements or remarks :
477 || Change History :
478 || Who When What
479 || (reverse chronological order - newest change first)
480 */
481 x_last_update_date DATE ;
482 x_last_updated_by NUMBER;
483 x_last_update_login NUMBER;
484
485 BEGIN
486
487 x_last_update_date := SYSDATE;
488 IF (X_MODE = 'I') THEN
489 x_last_updated_by := 1;
490 x_last_update_login := 0;
491 ELSIF (X_MODE IN ('R', 'S')) THEN
492 x_last_updated_by := fnd_global.user_id;
493 IF x_last_updated_by IS NULL THEN
494 x_last_updated_by := -1;
495 END IF;
496 x_last_update_login := fnd_global.login_id;
497 IF (x_last_update_login IS NULL) THEN
498 x_last_update_login := -1;
499 END IF;
500 ELSE
501 fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
502 igs_ge_msg_stack.add;
503 app_exception.raise_exception;
504 END IF;
505
506 before_dml(
507 p_action => 'UPDATE',
508 x_rowid => x_rowid,
509 x_hz_emp_dtl_id => x_hz_emp_dtl_id,
510 x_employment_history_id => x_employment_history_id,
511 x_type_of_employment => x_type_of_employment,
512 x_fracion_of_employment => x_fracion_of_employment,
513 x_tenure_of_employment => x_tenure_of_employment,
514 x_occupational_title_code => x_occupational_title_code,
515 x_weekly_work_hours => x_weekly_work_hours,
516 x_comments => x_comments,
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
524 IF (x_mode = 'S') THEN
525 igs_sc_gen_001.set_ctx('R');
526 END IF;
527 UPDATE igs_ad_hz_emp_dtl
528 SET
529 hz_emp_dtl_id = new_references.hz_emp_dtl_id,
530 employment_history_id = new_references.employment_history_id,
531 type_of_employment = new_references.type_of_employment,
532 fracion_of_employment = new_references.fracion_of_employment,
533 tenure_of_employment = new_references.tenure_of_employment,
534 occupational_title_code = new_references.occupational_title_code,
535 weekly_work_hours = new_references.weekly_work_hours,
536 comments = new_references.comments,
537 last_update_date = x_last_update_date,
538 last_updated_by = x_last_updated_by,
539 last_update_login = x_last_update_login
540 WHERE rowid = x_rowid;
541
542 IF (SQL%NOTFOUND) THEN
543 fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
544 igs_ge_msg_stack.add;
545 igs_sc_gen_001.unset_ctx('R');
546 app_exception.raise_exception;
547 END IF;
548 IF (x_mode = 'S') THEN
549 igs_sc_gen_001.unset_ctx('R');
550 END IF;
551
552
553
554 EXCEPTION
555 WHEN OTHERS THEN
556 IF (SQLCODE = (-28115)) THEN
557 fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
558 fnd_message.set_token ('ERR_CD', SQLCODE);
559 igs_ge_msg_stack.add;
560 igs_sc_gen_001.unset_ctx('R');
561 app_exception.raise_exception;
562 ELSE
563 igs_sc_gen_001.unset_ctx('R');
564 RAISE;
565 END IF;
566 END update_row;
567
568
569 PROCEDURE add_row (
570 x_rowid IN OUT NOCOPY VARCHAR2,
571 x_hz_emp_dtl_id IN OUT NOCOPY NUMBER,
572 x_employment_history_id IN NUMBER,
573 x_type_of_employment IN VARCHAR2,
574 x_fracion_of_employment IN NUMBER,
575 x_tenure_of_employment IN VARCHAR2,
576 x_occupational_title_code IN VARCHAR2,
577 x_weekly_work_hours IN NUMBER,
578 x_comments IN VARCHAR2,
579 x_mode IN VARCHAR2 DEFAULT 'R'
580 ) AS
581 /*
582 || Created By : [email protected]
583 || Created On : 29-AUG-2000
584 || Purpose : Adds a row if there is no existing row, otherwise updates existing row in the table.
585 || Known limitations, enhancements or remarks :
586 || Change History :
587 || Who When What
588 || (reverse chronological order - newest change first)
589 */
590 CURSOR c1 IS
591 SELECT rowid
592 FROM igs_ad_hz_emp_dtl
593 WHERE hz_emp_dtl_id = x_hz_emp_dtl_id;
594
595 BEGIN
596
597 OPEN c1;
598 FETCH c1 INTO x_rowid;
599 IF (c1%NOTFOUND) THEN
600 CLOSE c1;
601
602 insert_row (
603 x_rowid,
604 x_hz_emp_dtl_id,
605 x_employment_history_id,
606 x_type_of_employment,
607 x_fracion_of_employment,
608 x_tenure_of_employment,
609 x_occupational_title_code,
610 x_weekly_work_hours,
611 x_comments,
612 x_mode
613 );
614 RETURN;
615 END IF;
616 CLOSE c1;
617
618 update_row (
619 x_rowid,
620 x_hz_emp_dtl_id,
621 x_employment_history_id,
622 x_type_of_employment,
623 x_fracion_of_employment,
624 x_tenure_of_employment,
625 x_occupational_title_code,
626 x_weekly_work_hours,
627 x_comments,
628 x_mode
629 );
630
631 END add_row;
632
633
634 PROCEDURE delete_row (
635 x_rowid IN VARCHAR2,
636 x_mode IN VARCHAR2
637 ) AS
638 /*
639 || Created By : [email protected]
640 || Created On : 29-AUG-2000
641 || Purpose : Handles the DELETE DML logic for the table.
642 || Known limitations, enhancements or remarks :
643 || Change History :
644 || Who When What
645 || gmaheswa 7-Nov-2003 Bug 3223043 HZ.K Impact changes
646 || commented code in the delete logic.
647 || (reverse chronological order - newest change first)
648 */
649 BEGIN
650
651 /* before_dml (
652 p_action => 'DELETE',
653 x_rowid => x_rowid
654 );
655
656 IF (x_mode = 'S') THEN
657 igs_sc_gen_001.set_ctx('R');
658 END IF;
659 DELETE FROM igs_ad_hz_emp_dtl
660 WHERE rowid = x_rowid;
661
662 IF (SQL%NOTFOUND) THEN
663 fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
664 igs_ge_msg_stack.add;
665 igs_sc_gen_001.unset_ctx('R');
666 app_exception.raise_exception;
667 END IF;
668 IF (x_mode = 'S') THEN
669 igs_sc_gen_001.unset_ctx('R');
670 END IF;
671
672 */
673 null;
674 END delete_row;
675
676
677 END igs_ad_hz_emp_dtl_pkg;