1: PACKAGE BODY igs_az_students_pkg AS
2: /* $Header: IGSHI02B.pls 115.4 2003/06/30 05:37:54 kdande noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_az_students%ROWTYPE;
1: PACKAGE BODY igs_az_students_pkg AS
2: /* $Header: IGSHI02B.pls 115.4 2003/06/30 05:37:54 kdande noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_az_students%ROWTYPE;
6: new_references igs_az_students%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSHI02B.pls 115.4 2003/06/30 05:37:54 kdande noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_az_students%ROWTYPE;
6: new_references igs_az_students%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
35: */
36:
37: CURSOR cur_old_ref_values IS
38: SELECT *
39: FROM igs_az_students
40: WHERE ROWID = x_rowid;
41:
42: BEGIN
43: l_rowid := x_rowid;
142: || (reverse chronological order - newest change first)
143: */
144: BEGIN
145:
146: igs_az_advising_rels_pkg.get_fk_igs_az_students (
147: old_references.group_student_id
148: );
149:
150: END check_child_existance;
163: || (reverse chronological order - newest change first)
164: */
165: CURSOR cur_rowid IS
166: SELECT ROWID
167: FROM igs_az_students
168: WHERE group_student_id = x_group_student_id;
169:
170: lv_rowid cur_rowid%RowType;
171:
198: || (reverse chronological order - newest change first)
199: */
200: CURSOR cur_rowid IS
201: SELECT ROWID
202: FROM igs_az_students
203: WHERE student_person_id = x_student_person_id
204: AND group_name = x_group_name
205: AND ((l_rowid IS NULL) OR (ROWID <> l_rowid));
206:
234: || (reverse chronological order - newest change first)
235: */
236: CURSOR cur_rowid IS
237: SELECT ROWID
238: FROM igs_az_students
239: WHERE ((group_name = x_group_name));
240:
241: lv_rowid cur_rowid%RowType;
242:
413: x_last_update_login := -1;
414: END IF;
415: ELSE
416: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
417: fnd_message.set_token ('ROUTINE', 'IGS_AZ_STUDENTS_PKG.INSERT_ROW');
418: igs_ge_msg_stack.add;
419: app_exception.raise_exception;
420: END IF;
421:
438: x_last_update_date => x_last_update_date,
439: x_last_updated_by => x_last_updated_by,
440: x_last_update_login => x_last_update_login
441: );
442: INSERT INTO igs_az_students (
443: group_student_id,
444: group_name,
445: student_person_id,
446: start_date,
455: last_update_date,
456: last_updated_by,
457: last_update_login
458: ) VALUES (
459: igs_az_students_s.NEXTVAL,
460: new_references.group_name,
461: new_references.student_person_id,
462: new_references.start_date,
463: new_references.end_date,
544: hold_start_date,
545: notified_date,
546: accept_add_flag,
547: accept_delete_flag
548: FROM igs_az_students
549: WHERE ROWID = x_rowid
550: FOR UPDATE NOWAIT;
551:
552: tlinfo c1%ROWTYPE;
667: x_last_update_login := -1;
668: END IF;
669: ELSE
670: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
671: fnd_message.set_token ('ROUTINE', 'IGS_AZ_STUDENTS_PKG.UPDATE_ROW');
672: igs_ge_msg_stack.add;
673: app_exception.raise_exception;
674: END IF;
675:
691: x_last_update_date => x_last_update_date,
692: x_last_updated_by => x_last_updated_by,
693: x_last_update_login => x_last_update_login
694: );
695: UPDATE igs_az_students
696: SET
697: group_name = new_references.group_name,
698: student_person_id = new_references.student_person_id,
699: start_date = new_references.start_date,
772: || (reverse chronological order - newest change first)
773: */
774: CURSOR c1 IS
775: SELECT ROWID
776: FROM igs_az_students
777: WHERE group_student_id = x_group_student_id;
778: L_RETURN_STATUS VARCHAR2(10);
779: L_MSG_DATA VARCHAR2(2000);
780: L_MSG_COUNT NUMBER(10);
849: p_action => 'DELETE',
850: x_rowid => x_rowid
851: );
852:
853: DELETE FROM igs_az_students
854: WHERE ROWID = x_rowid;
855:
856: IF (SQL%NOTFOUND) THEN
857: RAISE NO_DATA_FOUND;
894:
895: END delete_row;
896:
897:
898: END igs_az_students_pkg;