1: PACKAGE BODY Igs_En_Timeslot_Conf_Pkg AS
2: /* $Header: IGSEI43B.pls 115.5 2002/11/28 23:42:50 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_timeslot_conf%ROWTYPE;
1: PACKAGE BODY Igs_En_Timeslot_Conf_Pkg AS
2: /* $Header: IGSEI43B.pls 115.5 2002/11/28 23:42:50 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_timeslot_conf%ROWTYPE;
6: new_references igs_en_timeslot_conf%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSEI43B.pls 115.5 2002/11/28 23:42:50 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_timeslot_conf%ROWTYPE;
6: new_references igs_en_timeslot_conf%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
11: x_igs_en_timeslot_conf_id IN NUMBER DEFAULT NULL,
12: x_timeslot_name IN VARCHAR2 DEFAULT NULL,
13: x_start_dt_alias IN VARCHAR2 DEFAULT NULL,
14: x_end_dt_alias IN VARCHAR2 DEFAULT NULL,
15: x_creation_date IN DATE DEFAULT NULL,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM IGS_EN_TIMESLOT_CONF
35: WHERE ROWID = x_rowid;
36:
37: BEGIN
38:
51: END IF;
52: CLOSE cur_old_ref_values;
53:
54: -- Populate New Values.
55: new_references.igs_en_timeslot_conf_id := x_igs_en_timeslot_conf_id;
56: new_references.timeslot_name := x_timeslot_name;
57: new_references.start_dt_alias := x_start_dt_alias;
58: new_references.end_dt_alias := x_end_dt_alias;
59:
116: || (reverse chronological order - newest change first)
117: */
118: BEGIN
119:
120: IGS_EN_TIMESLOT_PARA_PKG.GET_FK_IGS_EN_TIMESLOT_CONF (
121: old_references.timeslot_name
122: );
123:
124: END Check_Child_Existance;
160: END check_parent_existance;
161:
162:
163: FUNCTION get_pk_for_validation (
164: x_igs_en_timeslot_conf_id IN NUMBER
165: ) RETURN BOOLEAN AS
166: /*
167: || Created By : sjalasut
168: || Created On : 13-DEC-2000
173: || (reverse chronological order - newest change first)
174: */
175: CURSOR cur_rowid IS
176: SELECT ROWID
177: FROM igs_en_timeslot_conf
178: WHERE igs_en_timeslot_conf_id = x_igs_en_timeslot_conf_id
179: FOR UPDATE NOWAIT;
180:
181: lv_rowid cur_rowid%ROWTYPE;
174: */
175: CURSOR cur_rowid IS
176: SELECT ROWID
177: FROM igs_en_timeslot_conf
178: WHERE igs_en_timeslot_conf_id = x_igs_en_timeslot_conf_id
179: FOR UPDATE NOWAIT;
180:
181: lv_rowid cur_rowid%ROWTYPE;
182:
208: || (reverse chronological order - newest change first)
209: */
210: CURSOR cur_rowid IS
211: SELECT ROWID
212: FROM igs_en_timeslot_conf
213: WHERE timeslot_name = x_timeslot_name
214: AND ((l_rowid IS NULL) OR (ROWID <> l_rowid));
215:
216: lv_rowid cur_rowid%ROWTYPE;
244: || (reverse chronological order - newest change first)
245: */
246: CURSOR cur_rowid IS
247: SELECT ROWID
248: FROM igs_en_timeslot_conf
249: WHERE start_dt_alias = x_start_dt_alias
250: AND end_dt_alias = x_end_dt_alias
251: AND ((l_rowid IS NULL) OR (ROWID <> l_rowid));
252:
280: || (reverse chronological order - newest change first)
281: */
282: CURSOR cur_rowid IS
283: SELECT ROWID
284: FROM igs_en_timeslot_conf
285: WHERE ((start_dt_alias = x_dt_alias))
286: OR ((end_dt_alias = x_dt_alias));
287:
288: lv_rowid cur_rowid%ROWTYPE;
305:
306: PROCEDURE before_dml (
307: p_action IN VARCHAR2,
308: x_rowid IN VARCHAR2 DEFAULT NULL,
309: x_igs_en_timeslot_conf_id IN NUMBER DEFAULT NULL,
310: x_timeslot_name IN VARCHAR2 DEFAULT NULL,
311: x_start_dt_alias IN VARCHAR2 DEFAULT NULL,
312: x_end_dt_alias IN VARCHAR2 DEFAULT NULL,
313: x_creation_date IN DATE DEFAULT NULL,
331:
332: set_column_values (
333: p_action,
334: x_rowid,
335: x_igs_en_timeslot_conf_id,
336: x_timeslot_name,
337: x_start_dt_alias,
338: x_end_dt_alias,
339: x_creation_date,
346:
347: IF (p_action = 'INSERT') THEN
348: -- Call all the procedures related to Before Insert.
349: IF ( get_pk_for_validation(
350: new_references.igs_en_timeslot_conf_id
351: )
352: ) THEN
353: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
354: igs_ge_msg_stack.ADD;
364: Check_Child_Existance;
365: ELSIF (p_action = 'VALIDATE_INSERT') THEN
366: -- Call all the procedures related to Before Insert.
367: IF ( get_pk_for_validation (
368: new_references.igs_en_timeslot_conf_id
369: )
370: ) THEN
371: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
372: igs_ge_msg_stack.ADD;
383:
384:
385: PROCEDURE insert_row (
386: x_rowid IN OUT NOCOPY VARCHAR2,
387: x_igs_en_timeslot_conf_id IN OUT NOCOPY NUMBER,
388: x_timeslot_name IN VARCHAR2,
389: x_start_dt_alias IN VARCHAR2,
390: x_end_dt_alias IN VARCHAR2,
391: x_mode IN VARCHAR2 DEFAULT 'R',
403: || as part of bug# 2457599.
404: */
405: CURSOR c IS
406: SELECT ROWID
407: FROM igs_en_timeslot_conf
408: WHERE igs_en_timeslot_conf_id = x_igs_en_timeslot_conf_id;
409:
410: x_last_update_date DATE;
411: x_last_updated_by NUMBER;
404: */
405: CURSOR c IS
406: SELECT ROWID
407: FROM igs_en_timeslot_conf
408: WHERE igs_en_timeslot_conf_id = x_igs_en_timeslot_conf_id;
409:
410: x_last_update_date DATE;
411: x_last_updated_by NUMBER;
412: x_last_update_login NUMBER;
431: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
432: igs_ge_msg_stack.ADD;
433: app_exception.raise_exception;
434: END IF;
435: --Select Next value from sequnce IGS_EN_TIMESLOT_CONF_S for the Primary key to be inserted.
436: SELECT IGS_EN_TIMESLOT_CONF_S.NEXTVAL INTO x_igs_en_timeslot_conf_id FROM DUAL;
437:
438: before_dml(
439: p_action => 'INSERT',
432: igs_ge_msg_stack.ADD;
433: app_exception.raise_exception;
434: END IF;
435: --Select Next value from sequnce IGS_EN_TIMESLOT_CONF_S for the Primary key to be inserted.
436: SELECT IGS_EN_TIMESLOT_CONF_S.NEXTVAL INTO x_igs_en_timeslot_conf_id FROM DUAL;
437:
438: before_dml(
439: p_action => 'INSERT',
440: x_rowid => x_rowid,
437:
438: before_dml(
439: p_action => 'INSERT',
440: x_rowid => x_rowid,
441: x_igs_en_timeslot_conf_id => x_igs_en_timeslot_conf_id,
442: x_timeslot_name => x_timeslot_name,
443: x_start_dt_alias => x_start_dt_alias,
444: x_end_dt_alias => x_end_dt_alias,
445: x_creation_date => x_last_update_date,
449: x_last_update_login => x_last_update_login,
450: x_org_id => igs_ge_gen_003.get_org_id
451: );
452:
453: INSERT INTO igs_en_timeslot_conf (
454: igs_en_timeslot_conf_id,
455: timeslot_name,
456: start_dt_alias,
457: end_dt_alias,
450: x_org_id => igs_ge_gen_003.get_org_id
451: );
452:
453: INSERT INTO igs_en_timeslot_conf (
454: igs_en_timeslot_conf_id,
455: timeslot_name,
456: start_dt_alias,
457: end_dt_alias,
458: creation_date,
461: last_updated_by,
462: last_update_login,
463: org_id
464: ) VALUES (
465: new_references.igs_en_timeslot_conf_id,
466: new_references.timeslot_name,
467: new_references.start_dt_alias,
468: new_references.end_dt_alias,
469: x_last_update_date,
486:
487:
488: PROCEDURE lock_row (
489: x_rowid IN VARCHAR2,
490: x_igs_en_timeslot_conf_id IN NUMBER,
491: x_timeslot_name IN VARCHAR2,
492: x_start_dt_alias IN VARCHAR2,
493: x_end_dt_alias IN VARCHAR2
494: ) AS
505: SELECT
506: timeslot_name,
507: start_dt_alias,
508: end_dt_alias
509: FROM igs_en_timeslot_conf
510: WHERE ROWID = x_rowid
511: FOR UPDATE NOWAIT;
512:
513: tlinfo c1%ROWTYPE;
543:
544:
545: PROCEDURE update_row (
546: x_rowid IN VARCHAR2,
547: x_igs_en_timeslot_conf_id IN NUMBER,
548: x_timeslot_name IN VARCHAR2,
549: x_start_dt_alias IN VARCHAR2,
550: x_end_dt_alias IN VARCHAR2,
551: x_mode IN VARCHAR2 DEFAULT 'R'
586:
587: before_dml(
588: p_action => 'UPDATE',
589: x_rowid => x_rowid,
590: x_igs_en_timeslot_conf_id => x_igs_en_timeslot_conf_id,
591: x_timeslot_name => x_timeslot_name,
592: x_start_dt_alias => x_start_dt_alias,
593: x_end_dt_alias => x_end_dt_alias,
594: x_creation_date => x_last_update_date,
597: x_last_updated_by => x_last_updated_by,
598: x_last_update_login => x_last_update_login
599: );
600:
601: UPDATE igs_en_timeslot_conf
602: SET
603: timeslot_name = new_references.timeslot_name,
604: start_dt_alias = new_references.start_dt_alias,
605: end_dt_alias = new_references.end_dt_alias,
616:
617:
618: PROCEDURE add_row (
619: x_rowid IN OUT NOCOPY VARCHAR2,
620: x_igs_en_timeslot_conf_id IN OUT NOCOPY NUMBER,
621: x_timeslot_name IN VARCHAR2,
622: x_start_dt_alias IN VARCHAR2,
623: x_end_dt_alias IN VARCHAR2,
624: x_mode IN VARCHAR2 DEFAULT 'R',
634: || (reverse chronological order - newest change first)
635: */
636: CURSOR c1 IS
637: SELECT ROWID
638: FROM igs_en_timeslot_conf
639: WHERE igs_en_timeslot_conf_id = x_igs_en_timeslot_conf_id;
640:
641: BEGIN
642:
635: */
636: CURSOR c1 IS
637: SELECT ROWID
638: FROM igs_en_timeslot_conf
639: WHERE igs_en_timeslot_conf_id = x_igs_en_timeslot_conf_id;
640:
641: BEGIN
642:
643: OPEN c1;
646: CLOSE c1;
647:
648: insert_row (
649: x_rowid,
650: x_igs_en_timeslot_conf_id,
651: x_timeslot_name,
652: x_start_dt_alias,
653: x_end_dt_alias,
654: x_mode,
659: CLOSE c1;
660:
661: update_row (
662: x_rowid,
663: x_igs_en_timeslot_conf_id,
664: x_timeslot_name,
665: x_start_dt_alias,
666: x_end_dt_alias,
667: x_mode
688: p_action => 'DELETE',
689: x_rowid => x_rowid
690: );
691:
692: DELETE FROM igs_en_timeslot_conf
693: WHERE ROWID = x_rowid;
694:
695: IF (SQL%NOTFOUND) THEN
696: RAISE NO_DATA_FOUND;
698:
699: END delete_row;
700:
701:
702: END Igs_En_Timeslot_Conf_Pkg;