[Home] [Help]
1: package body IGS_AS_ITM_EXAM_MTRL_PKG AS
2: /* $Header: IGSDI03B.pls 115.5 2003/05/19 09:56:07 ijeddy ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AS_ITM_EXAM_MTRL%RowType;
5: new_references IGS_AS_ITM_EXAM_MTRL%RowType;
1: package body IGS_AS_ITM_EXAM_MTRL_PKG AS
2: /* $Header: IGSDI03B.pls 115.5 2003/05/19 09:56:07 ijeddy ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AS_ITM_EXAM_MTRL%RowType;
5: new_references IGS_AS_ITM_EXAM_MTRL%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
1: package body IGS_AS_ITM_EXAM_MTRL_PKG AS
2: /* $Header: IGSDI03B.pls 115.5 2003/05/19 09:56:07 ijeddy ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AS_ITM_EXAM_MTRL%RowType;
5: new_references IGS_AS_ITM_EXAM_MTRL%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
9: x_ass_id IN NUMBER DEFAULT NULL,
18: x_last_update_login IN NUMBER DEFAULT NULL
19: ) AS
20: CURSOR cur_old_ref_values IS
21: SELECT *
22: FROM IGS_AS_ITM_EXAM_MTRL
23: WHERE rowid = x_rowid;
24: BEGIN
25: l_rowid := x_rowid;
26: -- Code for setting the Old and New Reference Values.
54: END Set_Column_Values;
55: -- Trigger description :-
56: -- "OSS_TST".trg_aiem_br_iu
57: -- BEFORE INSERT OR UPDATE
58: -- ON IGS_AS_ITM_EXAM_MTRL
59: -- FOR EACH ROW
60: PROCEDURE BeforeRowInsertUpdate1(
61: p_inserting IN BOOLEAN DEFAULT FALSE,
62: p_updating IN BOOLEAN DEFAULT FALSE,
128: FUNCTION Get_PK_For_Validation ( x_ass_id IN NUMBER,
129: x_exam_material_type IN VARCHAR2)RETURN BOOLEAN AS
130: CURSOR cur_rowid IS
131: SELECT rowid
132: FROM IGS_AS_ITM_EXAM_MTRL
133: WHERE ass_id = x_ass_id
134: AND exam_material_type = x_exam_material_type
135: FOR UPDATE NOWAIT;
136: lv_rowid cur_rowid%RowType;
149: x_ass_id IN NUMBER
150: ) AS
151: CURSOR cur_rowid IS
152: SELECT rowid
153: FROM IGS_AS_ITM_EXAM_MTRL
154: WHERE ass_id = x_ass_id ;
155: lv_rowid cur_rowid%RowType;
156: BEGIN
157: Open cur_rowid;
170: x_exam_material_type IN VARCHAR2
171: ) AS
172: CURSOR cur_rowid IS
173: SELECT rowid
174: FROM IGS_AS_ITM_EXAM_MTRL
175: WHERE exam_material_type = x_exam_material_type ;
176: lv_rowid cur_rowid%RowType;
177: BEGIN
178: Open cur_rowid;
262: X_QUANTITY_PER_STUDENT in NUMBER,
263: X_COMMENTS in VARCHAR2,
264: X_MODE in VARCHAR2 default 'R'
265: ) AS
266: cursor C is select ROWID from IGS_AS_ITM_EXAM_MTRL
267: where ASS_ID = X_ASS_ID
268: and EXAM_MATERIAL_TYPE = X_EXAM_MATERIAL_TYPE;
269: X_LAST_UPDATE_DATE DATE;
270: X_LAST_UPDATED_BY NUMBER;
301: x_last_update_date=>X_LAST_UPDATE_DATE,
302: x_last_updated_by=>X_LAST_UPDATED_BY,
303: x_last_update_login=>X_LAST_UPDATE_LOGIN
304: );
305: insert into IGS_AS_ITM_EXAM_MTRL (
306: ASS_ID,
307: EXAM_MATERIAL_TYPE,
308: S_MATERIAL_CAT,
309: QUANTITY_PER_STUDENT,
345: cursor c1 is select
346: S_MATERIAL_CAT,
347: QUANTITY_PER_STUDENT,
348: COMMENTS
349: from IGS_AS_ITM_EXAM_MTRL
350: where ROWID = X_ROWID for update nowait;
351: tlinfo c1%rowtype;
352: begin
353: open c1;
420: x_last_update_date=>X_LAST_UPDATE_DATE,
421: x_last_updated_by=>X_LAST_UPDATED_BY,
422: x_last_update_login=>X_LAST_UPDATE_LOGIN
423: );
424: update IGS_AS_ITM_EXAM_MTRL set
425: S_MATERIAL_CAT = NEW_REFERENCES.S_MATERIAL_CAT,
426: QUANTITY_PER_STUDENT = NEW_REFERENCES.QUANTITY_PER_STUDENT,
427: COMMENTS = NEW_REFERENCES.COMMENTS,
428: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
442: X_QUANTITY_PER_STUDENT in NUMBER,
443: X_COMMENTS in VARCHAR2,
444: X_MODE in VARCHAR2 default 'R'
445: ) AS
446: cursor c1 is select rowid from IGS_AS_ITM_EXAM_MTRL
447: where ASS_ID = X_ASS_ID
448: and EXAM_MATERIAL_TYPE = X_EXAM_MATERIAL_TYPE
449: ;
450: begin
478: Before_DML(
479: p_action => 'DELETE',
480: x_rowid => X_ROWID
481: );
482: delete from IGS_AS_ITM_EXAM_MTRL
483: where ROWID = X_ROWID;
484:
485: if (sql%notfound) then
486: raise no_data_found;
521:
522:
523: END Check_Constraints;
524:
525: end IGS_AS_ITM_EXAM_MTRL_PKG;