1: PACKAGE BODY igs_ps_uso_cm_grp_pkg AS
2: /* $Header: IGSPI2NB.pls 115.4 2002/11/29 02:18:20 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_uso_cm_grp%ROWTYPE;
1: PACKAGE BODY igs_ps_uso_cm_grp_pkg AS
2: /* $Header: IGSPI2NB.pls 115.4 2002/11/29 02:18:20 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_uso_cm_grp%ROWTYPE;
6: new_references igs_ps_uso_cm_grp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI2NB.pls 115.4 2002/11/29 02:18:20 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_uso_cm_grp%ROWTYPE;
6: new_references igs_ps_uso_cm_grp%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM IGS_PS_USO_CM_GRP
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
141: || (reverse chronological order - newest change first)
142: */
143: BEGIN
144:
145: igs_ps_uso_clas_meet_pkg.get_fk_igs_ps_uso_cm_grp (
146: old_references.class_meet_group_id
147: );
148:
149: END check_child_existance;
162: || (reverse chronological order - newest change first)
163: */
164: CURSOR cur_rowid IS
165: SELECT rowid
166: FROM igs_ps_uso_cm_grp
167: WHERE class_meet_group_id = x_class_meet_group_id
168: FOR UPDATE NOWAIT;
169:
170: lv_rowid cur_rowid%RowType;
199: || (reverse chronological order - newest change first)
200: */
201: CURSOR cur_rowid IS
202: SELECT rowid
203: FROM igs_ps_uso_cm_grp
204: WHERE class_meet_group_name = x_class_meet_group_name
205: AND cal_type = x_cal_type
206: AND ci_sequence_number = x_ci_sequence_number
207: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
237: || (reverse chronological order - newest change first)
238: */
239: CURSOR cur_rowid IS
240: SELECT rowid
241: FROM igs_ps_uso_cm_grp
242: WHERE ((cal_type = x_cal_type) AND
243: (ci_sequence_number = x_ci_sequence_number));
244:
245: lv_rowid cur_rowid%RowType;
362: || (reverse chronological order - newest change first)
363: */
364: CURSOR c IS
365: SELECT rowid
366: FROM igs_ps_uso_cm_grp
367: WHERE class_meet_group_id = x_class_meet_group_id;
368:
369: x_last_update_date DATE;
370: x_last_updated_by NUMBER;
390: igs_ge_msg_stack.add;
391: app_exception.raise_exception;
392: END IF;
393:
394: SELECT igs_ps_uso_cm_grp_s.NEXTVAL
395: INTO x_class_meet_group_id
396: FROM dual;
397:
398: before_dml(
409: x_last_update_login => x_last_update_login,
410: x_max_ovr_group => x_max_ovr_group,
411: x_max_enr_group => x_max_enr_group);
412:
413: INSERT INTO igs_ps_uso_cm_grp (
414: class_meet_group_id,
415: class_meet_group_name,
416: cal_type,
417: ci_sequence_number,
471: cal_type,
472: ci_sequence_number,
473: max_ovr_group,
474: max_enr_group
475: FROM igs_ps_uso_cm_grp
476: WHERE rowid = x_rowid
477: FOR UPDATE NOWAIT;
478:
479: tlinfo c1%ROWTYPE;
572: x_last_update_login => x_last_update_login,
573: x_max_ovr_group => x_max_ovr_group,
574: x_max_enr_group => x_max_enr_group);
575:
576: UPDATE igs_ps_uso_cm_grp
577: SET
578: class_meet_group_name = new_references.class_meet_group_name,
579: cal_type = new_references.cal_type,
580: ci_sequence_number = new_references.ci_sequence_number,
612: || (reverse chronological order - newest change first)
613: */
614: CURSOR c1 IS
615: SELECT rowid
616: FROM igs_ps_uso_cm_grp
617: WHERE class_meet_group_id = x_class_meet_group_id;
618:
619: BEGIN
620:
669: p_action => 'DELETE',
670: x_rowid => x_rowid
671: );
672:
673: DELETE FROM igs_ps_uso_cm_grp
674: WHERE rowid = x_rowid;
675:
676: IF (SQL%NOTFOUND) THEN
677: RAISE NO_DATA_FOUND;
679:
680: END delete_row;
681:
682:
683: END igs_ps_uso_cm_grp_pkg;