1: PACKAGE BODY igs_ps_uso_clas_meet_pkg AS
2: /* $Header: IGSPI2MB.pls 115.4 2002/11/29 02:18:02 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_uso_clas_meet%ROWTYPE;
1: PACKAGE BODY igs_ps_uso_clas_meet_pkg AS
2: /* $Header: IGSPI2MB.pls 115.4 2002/11/29 02:18:02 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_uso_clas_meet%ROWTYPE;
6: new_references igs_ps_uso_clas_meet%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI2MB.pls 115.4 2002/11/29 02:18:02 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ps_uso_clas_meet%ROWTYPE;
6: new_references igs_ps_uso_clas_meet%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM IGS_PS_USO_CLAS_MEET
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
142: || (reverse chronological order - newest change first)
143: */
144: CURSOR cur_rowid IS
145: SELECT rowid
146: FROM igs_ps_uso_clas_meet
147: WHERE class_meet_id = x_class_meet_id
148: FOR UPDATE NOWAIT;
149:
150: lv_rowid cur_rowid%RowType;
177: || (reverse chronological order - newest change first)
178: */
179: CURSOR cur_rowid IS
180: SELECT rowid
181: FROM igs_ps_uso_clas_meet
182: WHERE uoo_id= x_uoo_id
183: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
184:
185: lv_rowid cur_rowid%RowType;
212: || (reverse chronological order - newest change first)
213: */
214: CURSOR cur_rowid IS
215: SELECT rowid
216: FROM igs_ps_uso_clas_meet
217: WHERE ((class_meet_group_id = x_class_meet_group_id));
218:
219: lv_rowid cur_rowid%RowType;
220:
247: || (reverse chronological order - newest change first)
248: */
249: CURSOR cur_rowid IS
250: SELECT rowid
251: FROM igs_ps_uso_clas_meet
252: WHERE ((uoo_id= x_uoo_id));
253:
254: lv_rowid cur_rowid%RowType;
255:
360: || (reverse chronological order - newest change first)
361: */
362: CURSOR c IS
363: SELECT rowid
364: FROM igs_ps_uso_clas_meet
365: WHERE class_meet_id = x_class_meet_id;
366:
367: x_last_update_date DATE;
368: x_last_updated_by NUMBER;
388: igs_ge_msg_stack.add;
389: app_exception.raise_exception;
390: END IF;
391:
392: SELECT igs_ps_uso_clas_meet_s.NEXTVAL
393: INTO x_class_meet_id
394: FROM dual;
395:
396: before_dml(
406: x_last_update_login => x_last_update_login,
407: x_uoo_id => x_uoo_id
408: );
409:
410: INSERT INTO igs_ps_uso_clas_meet (
411: class_meet_id,
412: class_meet_group_id,
413: host,
414: creation_date,
460: SELECT
461: class_meet_group_id,
462: uoo_id,
463: host
464: FROM igs_ps_uso_clas_meet
465: WHERE rowid = x_rowid
466: FOR UPDATE NOWAIT;
467:
468: tlinfo c1%ROWTYPE;
554: x_last_update_login => x_last_update_login,
555: x_uoo_id => x_uoo_id
556: );
557:
558: UPDATE igs_ps_uso_clas_meet
559: SET
560: class_meet_group_id = new_references.class_meet_group_id,
561: host = new_references.host,
562: last_update_date = x_last_update_date,
590: || (reverse chronological order - newest change first)
591: */
592: CURSOR c1 IS
593: SELECT rowid
594: FROM igs_ps_uso_clas_meet
595: WHERE class_meet_id = x_class_meet_id;
596:
597: BEGIN
598:
643: p_action => 'DELETE',
644: x_rowid => x_rowid
645: );
646:
647: DELETE FROM igs_ps_uso_clas_meet
648: WHERE rowid = x_rowid;
649:
650: IF (SQL%NOTFOUND) THEN
651: RAISE NO_DATA_FOUND;
653:
654: END delete_row;
655:
656:
657: END igs_ps_uso_clas_meet_pkg;