[Home] [Help]
1: package body IGS_AS_INS_GRD_ENTRY_PKG AS
2: /* $Header: IGSDI22B.pls 115.3 2002/11/28 23:16:14 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AS_INS_GRD_ENTRY%RowType;
5: new_references IGS_AS_INS_GRD_ENTRY%RowType;
1: package body IGS_AS_INS_GRD_ENTRY_PKG AS
2: /* $Header: IGSDI22B.pls 115.3 2002/11/28 23:16:14 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AS_INS_GRD_ENTRY%RowType;
5: new_references IGS_AS_INS_GRD_ENTRY%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
1: package body IGS_AS_INS_GRD_ENTRY_PKG AS
2: /* $Header: IGSDI22B.pls 115.3 2002/11/28 23:16:14 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AS_INS_GRD_ENTRY%RowType;
5: new_references IGS_AS_INS_GRD_ENTRY%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
9: x_keying_who IN VARCHAR2 DEFAULT NULL,
31: x_last_update_login IN NUMBER DEFAULT NULL
32: ) AS
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM IGS_AS_INS_GRD_ENTRY
36: WHERE rowid = x_rowid;
37: BEGIN
38: l_rowid := x_rowid;
39: -- Code for setting the Old and New Reference Values.
104: x_student_sequence IN NUMBER
105: ) RETURN BOOLEAN AS
106: CURSOR cur_rowid IS
107: SELECT rowid
108: FROM IGS_AS_INS_GRD_ENTRY
109: WHERE keying_who = x_keying_who
110: AND keying_time = x_keying_time
111: AND student_sequence = x_student_sequence
112: FOR UPDATE NOWAIT;
128: x_grade IN VARCHAR2
129: ) AS
130: CURSOR cur_rowid IS
131: SELECT rowid
132: FROM IGS_AS_INS_GRD_ENTRY
133: WHERE grading_schema_cd = x_grading_schema_cd
134: AND gs_version_number = x_version_number
135: AND grade = x_grade ;
136: lv_rowid cur_rowid%RowType;
262: X_GRADE in VARCHAR2,
263: X_SPECIFIED_GRADE_IND in VARCHAR2,
264: X_MODE in VARCHAR2 default 'R'
265: ) AS
266: cursor C is select ROWID from IGS_AS_INS_GRD_ENTRY
267: where KEYING_WHO = X_KEYING_WHO
268: and KEYING_TIME = X_KEYING_TIME
269: and STUDENT_SEQUENCE = X_STUDENT_SEQUENCE;
270: X_LAST_UPDATE_DATE DATE;
315: x_last_update_date=>X_LAST_UPDATE_DATE,
316: x_last_updated_by=>X_LAST_UPDATED_BY,
317: x_last_update_login=>X_LAST_UPDATE_LOGIN
318: );
319: insert into IGS_AS_INS_GRD_ENTRY (
320: KEYING_WHO,
321: KEYING_TIME,
322: STUDENT_SEQUENCE,
323: PERSON_ID,
410: GRADING_SCHEMA_CD,
411: GS_VERSION_NUMBER,
412: GRADE,
413: SPECIFIED_GRADE_IND
414: from IGS_AS_INS_GRD_ENTRY
415: where ROWID = X_ROWID for update nowait;
416: tlinfo c1%rowtype;
417: begin
418: open c1;
529: x_last_update_date=>X_LAST_UPDATE_DATE,
530: x_last_updated_by=>X_LAST_UPDATED_BY,
531: x_last_update_login=>X_LAST_UPDATE_LOGIN
532: );
533: update IGS_AS_INS_GRD_ENTRY set
534: PERSON_ID = NEW_REFERENCES.PERSON_ID,
535: NAME = NEW_REFERENCES.NAME,
536: COURSE_CD = NEW_REFERENCES.COURSE_CD,
537: UNIT_CD = NEW_REFERENCES.UNIT_CD,
576: X_GRADE in VARCHAR2,
577: X_SPECIFIED_GRADE_IND in VARCHAR2,
578: X_MODE in VARCHAR2 default 'R'
579: ) AS
580: cursor c1 is select rowid from IGS_AS_INS_GRD_ENTRY
581: where KEYING_WHO = X_KEYING_WHO
582: and KEYING_TIME = X_KEYING_TIME
583: and STUDENT_SEQUENCE = X_STUDENT_SEQUENCE
584: ;
639: Before_DML(
640: p_action => 'DELETE',
641: x_rowid => X_ROWID
642: );
643: delete from IGS_AS_INS_GRD_ENTRY
644: where ROWID = X_ROWID;
645: if (sql%notfound) then
646: raise no_data_found;
647: end if;
770: END IF;
771: END IF;
772:
773: END Check_Constraints;
774: end IGS_AS_INS_GRD_ENTRY_PKG;