[Home] [Help]
1: package body IGS_AS_EXAM_SESSION_PKG AS
2: /* $Header: IGSDI12B.pls 115.7 2002/11/28 23:13:12 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AS_EXAM_SESSION_ALL%RowType;
5: new_references IGS_AS_EXAM_SESSION_ALL%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
1: package body IGS_AS_EXAM_SESSION_PKG AS
2: /* $Header: IGSDI12B.pls 115.7 2002/11/28 23:13:12 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AS_EXAM_SESSION_ALL%RowType;
5: new_references IGS_AS_EXAM_SESSION_ALL%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
9: x_org_id IN NUMBER DEFAULT NULL,
25: x_last_update_login IN NUMBER DEFAULT NULL
26: ) AS
27: CURSOR cur_old_ref_values IS
28: SELECT *
29: FROM IGS_AS_EXAM_SESSION_ALL
30: WHERE rowid = x_rowid;
31: BEGIN
32: l_rowid := x_rowid;
33: -- Code for setting the Old and New Reference Values.
201: x_end_time IN DATE
202: )return boolean AS
203: CURSOR cur_rowid IS
204: SELECT rowid
205: FROM IGS_AS_EXAM_SESSION_ALL
206: WHERE exam_cal_type = x_exam_cal_type
207: AND exam_ci_sequence_number = x_exam_ci_sequence_number
208: AND dt_alias = x_dt_alias
209: AND dai_sequence_number = x_dai_sequence_number
227: x_ese_id IN NUMBER
228: ) RETURN BOOLEAN AS
229: CURSOR cur_rowid IS
230: SELECT rowid
231: FROM IGS_AS_EXAM_SESSION_ALL
232: WHERE ese_id = x_ese_id
233: AND (l_rowid is null or rowid <> l_rowid)
234: FOR UPDATE NOWAIT;
235: lv_rowid cur_rowid%RowType;
251: x_ci_sequence_number IN NUMBER
252: ) AS
253: CURSOR cur_rowid IS
254: SELECT rowid
255: FROM IGS_AS_EXAM_SESSION_ALL
256: WHERE dt_alias = x_dt_alias
257: AND dai_sequence_number = x_sequence_number
258: AND exam_cal_type = x_cal_type
259: AND exam_ci_sequence_number = x_ci_sequence_number ;
276: x_sequence_number IN NUMBER
277: ) AS
278: CURSOR cur_rowid IS
279: SELECT rowid
280: FROM IGS_AS_EXAM_SESSION_ALL
281: WHERE exam_cal_type = x_cal_type
282: AND exam_ci_sequence_number = x_sequence_number ;
283: lv_rowid cur_rowid%RowType;
284: BEGIN
399: X_EXAM_SESSION_NUMBER in NUMBER,
400: X_COMMENTS in VARCHAR2,
401: X_MODE in VARCHAR2 default 'R'
402: ) AS
403: cursor C is select ROWID from IGS_AS_EXAM_SESSION_ALL
404: where EXAM_CAL_TYPE = X_EXAM_CAL_TYPE
405: and EXAM_CI_SEQUENCE_NUMBER = X_EXAM_CI_SEQUENCE_NUMBER
406: and DT_ALIAS = X_DT_ALIAS
407: and DAI_SEQUENCE_NUMBER = X_DAI_SEQUENCE_NUMBER
449: x_last_update_date=>X_LAST_UPDATE_DATE,
450: x_last_updated_by=>X_LAST_UPDATED_BY,
451: x_last_update_login=>X_LAST_UPDATE_LOGIN
452: );
453: insert into IGS_AS_EXAM_SESSION_ALL (
454: ORG_ID,
455: EXAM_CAL_TYPE,
456: EXAM_CI_SEQUENCE_NUMBER,
457: DT_ALIAS,
515: CI_END_DT,
516: ESE_ID,
517: EXAM_SESSION_NUMBER,
518: COMMENTS
519: from IGS_AS_EXAM_SESSION_ALL
520: where ROWID = X_ROWID for update nowait;
521: tlinfo c1%rowtype;
522: begin
523: open c1;
602: x_last_update_date=>X_LAST_UPDATE_DATE,
603: x_last_updated_by=>X_LAST_UPDATED_BY,
604: x_last_update_login=>X_LAST_UPDATE_LOGIN
605: );
606: update IGS_AS_EXAM_SESSION_ALL set
607: CI_START_DT = NEW_REFERENCES.CI_START_DT,
608: CI_END_DT = NEW_REFERENCES.CI_END_DT,
609: ESE_ID = NEW_REFERENCES.ESE_ID,
610: EXAM_SESSION_NUMBER = NEW_REFERENCES.EXAM_SESSION_NUMBER,
633: X_EXAM_SESSION_NUMBER in NUMBER,
634: X_COMMENTS in VARCHAR2,
635: X_MODE in VARCHAR2 default 'R'
636: ) AS
637: cursor c1 is select rowid from IGS_AS_EXAM_SESSION_ALL
638: where EXAM_CAL_TYPE = X_EXAM_CAL_TYPE
639: and EXAM_CI_SEQUENCE_NUMBER = X_EXAM_CI_SEQUENCE_NUMBER
640: and DT_ALIAS = X_DT_ALIAS
641: and DAI_SEQUENCE_NUMBER = X_DAI_SEQUENCE_NUMBER
686: Before_DML(
687: p_action => 'DELETE',
688: x_rowid => X_ROWID
689: );
690: delete from IGS_AS_EXAM_SESSION_ALL
691: where ROWID = X_ROWID;
692: if (sql%notfound) then
693: raise no_data_found;
694: end if;