[Home] [Help]
1: PACKAGE BODY igs_as_suaai_ouhist_pkg AS
2: /* $Header: IGSDI59B.pls 115.7 2003/12/03 09:03:06 ijeddy noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_suaai_ouhist%ROWTYPE;
1: PACKAGE BODY igs_as_suaai_ouhist_pkg AS
2: /* $Header: IGSDI59B.pls 115.7 2003/12/03 09:03:06 ijeddy noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_suaai_ouhist%ROWTYPE;
6: new_references igs_as_suaai_ouhist%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI59B.pls 115.7 2003/12/03 09:03:06 ijeddy noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_suaai_ouhist%ROWTYPE;
6: new_references igs_as_suaai_ouhist%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
52: */
53:
54: CURSOR cur_old_ref_values IS
55: SELECT *
56: FROM igs_as_suaai_ouhist
57: WHERE rowid = x_rowid;
58:
59: BEGIN
60:
190: || (reverse chronological order - newest change first)
191: */
192: CURSOR cur_rowid IS
193: SELECT rowid
194: FROM igs_as_suaai_ouhist
195: WHERE ass_id = x_ass_id
196: AND course_cd = x_course_cd
197: AND creation_dt = x_creation_dt
198: AND hist_start_dt = x_hist_start_dt
235: || (reverse chronological order - newest change first)
236: */
237: CURSOR cur_rowid IS
238: SELECT rowid
239: FROM igs_as_suaai_ouhist
240: WHERE ((ass_id = x_ass_id) AND
241: (course_cd = x_course_cd) AND
242: (creation_dt = x_creation_dt) AND
243: (person_id = x_person_id) AND
273: || (reverse chronological order - newest change first)
274: */
275: CURSOR cur_rowid IS
276: SELECT rowid
277: FROM igs_as_suaai_ouhist
278: WHERE ((sua_ass_item_group_id = x_sua_ass_item_group_id));
279:
280: lv_rowid cur_rowid%RowType;
281:
455: || (reverse chronological order - newest change first)
456: */
457: CURSOR c IS
458: SELECT rowid
459: FROM igs_as_suaai_ouhist
460: WHERE ass_id = x_ass_id
461: AND course_cd = x_course_cd
462: AND creation_dt = x_creation_dt
463: AND hist_start_dt = x_hist_start_dt
523: x_waived_flag => x_waived_flag,
524: x_penalty_applied_flag => x_penalty_applied_flag
525: );
526:
527: INSERT INTO igs_as_suaai_ouhist (
528: person_id,
529: course_cd,
530: unit_cd,
531: cal_type,
654: final_weight_qty,
655: submitted_date,
656: waived_flag,
657: penalty_applied_flag
658: FROM igs_as_suaai_ouhist
659: WHERE rowid = x_rowid
660: FOR UPDATE NOWAIT;
661:
662: tlinfo c1%ROWTYPE;
804: x_waived_flag => x_waived_flag,
805: x_penalty_applied_flag => x_penalty_applied_flag
806: );
807:
808: UPDATE igs_as_suaai_ouhist
809: SET
810: grading_schema_cd = new_references.grading_schema_cd,
811: gs_version_number = new_references.gs_version_number,
812: grade = new_references.grade,
875: ||svanukur 29-APR-03 Added uoo_id as part of MUS build, # 2829262
876: */
877: CURSOR c1 IS
878: SELECT rowid
879: FROM igs_as_suaai_ouhist
880: WHERE ass_id = x_ass_id
881: AND course_cd = x_course_cd
882: AND creation_dt = x_creation_dt
883: AND hist_start_dt = x_hist_start_dt
976: p_action => 'DELETE',
977: x_rowid => x_rowid
978: );
979:
980: DELETE FROM igs_as_suaai_ouhist
981: WHERE rowid = x_rowid;
982:
983: IF (SQL%NOTFOUND) THEN
984: RAISE NO_DATA_FOUND;
986:
987: END delete_row;
988:
989:
990: END igs_as_suaai_ouhist_pkg;