1: PACKAGE BODY igs_ps_us_em_grp_pkg AS
2: /* $Header: IGSPI2QB.pls 115.3 2002/11/29 02:19:06 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_us_em_grp%ROWTYPE;
1: PACKAGE BODY igs_ps_us_em_grp_pkg AS
2: /* $Header: IGSPI2QB.pls 115.3 2002/11/29 02:19:06 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_us_em_grp%ROWTYPE;
6: new_references igs_ps_us_em_grp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI2QB.pls 115.3 2002/11/29 02:19:06 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_us_em_grp%ROWTYPE;
6: new_references igs_ps_us_em_grp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_PS_US_EM_GRP
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
137: || (reverse chronological order - newest change first)
138: */
139: BEGIN
140:
141: igs_ps_us_exam_meet_pkg.get_fk_igs_ps_us_em_grp (
142: old_references.exam_meet_group_id
143: );
144:
145: END check_child_existance;
158: || (reverse chronological order - newest change first)
159: */
160: CURSOR cur_rowid IS
161: SELECT rowid
162: FROM igs_ps_us_em_grp
163: WHERE exam_meet_group_id = x_exam_meet_group_id
164: FOR UPDATE NOWAIT;
165:
166: lv_rowid cur_rowid%RowType;
195: || (reverse chronological order - newest change first)
196: */
197: CURSOR cur_rowid IS
198: SELECT rowid
199: FROM igs_ps_us_em_grp
200: WHERE exam_meet_group_name = x_exam_meet_group_name
201: AND cal_type = x_cal_type
202: AND ci_sequence_number = x_ci_sequence_number
203: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
233: || (reverse chronological order - newest change first)
234: */
235: CURSOR cur_rowid IS
236: SELECT rowid
237: FROM igs_ps_us_em_grp
238: WHERE ((cal_type = x_cal_type) AND
239: (ci_sequence_number = x_ci_sequence_number));
240:
241: lv_rowid cur_rowid%RowType;
352: || (reverse chronological order - newest change first)
353: */
354: CURSOR c IS
355: SELECT rowid
356: FROM igs_ps_us_em_grp
357: WHERE exam_meet_group_id = x_exam_meet_group_id;
358:
359: x_last_update_date DATE;
360: x_last_updated_by NUMBER;
380: igs_ge_msg_stack.add;
381: app_exception.raise_exception;
382: END IF;
383:
384: SELECT igs_ps_us_em_grp_s.NEXTVAL
385: INTO x_exam_meet_group_id
386: FROM dual;
387:
388: before_dml(
398: x_last_updated_by => x_last_updated_by,
399: x_last_update_login => x_last_update_login
400: );
401:
402: INSERT INTO igs_ps_us_em_grp (
403: exam_meet_group_id,
404: exam_meet_group_name,
405: cal_type,
406: ci_sequence_number,
452: SELECT
453: exam_meet_group_name,
454: cal_type,
455: ci_sequence_number
456: FROM igs_ps_us_em_grp
457: WHERE rowid = x_rowid
458: FOR UPDATE NOWAIT;
459:
460: tlinfo c1%ROWTYPE;
544: x_last_updated_by => x_last_updated_by,
545: x_last_update_login => x_last_update_login
546: );
547:
548: UPDATE igs_ps_us_em_grp
549: SET
550: exam_meet_group_name = new_references.exam_meet_group_name,
551: cal_type = new_references.cal_type,
552: ci_sequence_number = new_references.ci_sequence_number,
580: || (reverse chronological order - newest change first)
581: */
582: CURSOR c1 IS
583: SELECT rowid
584: FROM igs_ps_us_em_grp
585: WHERE exam_meet_group_id = x_exam_meet_group_id;
586:
587: BEGIN
588:
633: p_action => 'DELETE',
634: x_rowid => x_rowid
635: );
636:
637: DELETE FROM igs_ps_us_em_grp
638: WHERE rowid = x_rowid;
639:
640: IF (SQL%NOTFOUND) THEN
641: RAISE NO_DATA_FOUND;
643:
644: END delete_row;
645:
646:
647: END igs_ps_us_em_grp_pkg;