1: package body IGS_AS_EXM_SPRVSRTYP_PKG as
2: /* $Header: IGSDI41B.pls 115.7 2003/05/19 04:43:54 ijeddy ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_EXM_SPRVSRTYP%RowType;
1: package body IGS_AS_EXM_SPRVSRTYP_PKG as
2: /* $Header: IGSDI41B.pls 115.7 2003/05/19 04:43:54 ijeddy ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_EXM_SPRVSRTYP%RowType;
6: new_references IGS_AS_EXM_SPRVSRTYP%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI41B.pls 115.7 2003/05/19 04:43:54 ijeddy ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_EXM_SPRVSRTYP%RowType;
6: new_references IGS_AS_EXM_SPRVSRTYP%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
20: ) as
21:
22: CURSOR cur_old_ref_values IS
23: SELECT *
24: FROM IGS_AS_EXM_SPRVSRTYP
25: WHERE rowid = x_rowid;
26:
27: BEGIN
28:
62:
63: PROCEDURE Check_Child_Existance as
64: BEGIN
65:
66: IGS_AS_EXM_INS_SPVSR_PKG.GET_FK_IGS_AS_EXM_SPRVSRTYP (
67: old_references.exam_supervisor_type
68: );
69:
70: IGS_AS_EXM_SES_VN_SP_PKG.GET_FK_IGS_AS_EXM_SPRVSRTYP (
66: IGS_AS_EXM_INS_SPVSR_PKG.GET_FK_IGS_AS_EXM_SPRVSRTYP (
67: old_references.exam_supervisor_type
68: );
69:
70: IGS_AS_EXM_SES_VN_SP_PKG.GET_FK_IGS_AS_EXM_SPRVSRTYP (
71: old_references.exam_supervisor_type
72: );
73:
74: IGS_AS_EXM_SUPRVISOR_PKG.GET_FK_IGS_AS_EXM_SPRVSRTYP (
70: IGS_AS_EXM_SES_VN_SP_PKG.GET_FK_IGS_AS_EXM_SPRVSRTYP (
71: old_references.exam_supervisor_type
72: );
73:
74: IGS_AS_EXM_SUPRVISOR_PKG.GET_FK_IGS_AS_EXM_SPRVSRTYP (
75: old_references.exam_supervisor_type
76: );
77:
78: END Check_Child_Existance;
81: x_exam_supervisor_type IN VARCHAR2
82: ) RETURN BOOLEAN AS
83: CURSOR cur_rowid IS
84: SELECT rowid
85: FROM IGS_AS_EXM_SPRVSRTYP
86: WHERE exam_supervisor_type = x_exam_supervisor_type
87: FOR UPDATE NOWAIT;
88:
89: lv_rowid cur_rowid%RowType;
227: X_IN_CHARGE_IND in VARCHAR2,
228: X_CLOSED_IND in VARCHAR2,
229: X_MODE in VARCHAR2 default 'R'
230: ) as
231: cursor C is select ROWID from IGS_AS_EXM_SPRVSRTYP
232: where EXAM_SUPERVISOR_TYPE = X_EXAM_SUPERVISOR_TYPE;
233: X_LAST_UPDATE_DATE DATE;
234: X_LAST_UPDATED_BY NUMBER;
235: X_LAST_UPDATE_LOGIN NUMBER;
264: x_last_update_date=>X_LAST_UPDATE_DATE,
265: x_last_updated_by=>X_LAST_UPDATED_BY,
266: x_last_update_login=>X_LAST_UPDATE_LOGIN
267: );
268: insert into IGS_AS_EXM_SPRVSRTYP (
269: EXAM_SUPERVISOR_TYPE,
270: DESCRIPTION,
271: IN_CHARGE_IND,
272: CLOSED_IND,
306: cursor c1 is select
307: DESCRIPTION,
308: IN_CHARGE_IND,
309: CLOSED_IND
310: from IGS_AS_EXM_SPRVSRTYP
311: where ROWID = X_ROWID for update nowait;
312: tlinfo c1%rowtype;
313:
314: begin
379: x_last_updated_by=>X_LAST_UPDATED_BY,
380: x_last_update_login=>X_LAST_UPDATE_LOGIN
381: );
382:
383: update IGS_AS_EXM_SPRVSRTYP set
384: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
385: IN_CHARGE_IND = NEW_REFERENCES.IN_CHARGE_IND,
386: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
387: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
400: X_IN_CHARGE_IND in VARCHAR2,
401: X_CLOSED_IND in VARCHAR2,
402: X_MODE in VARCHAR2 default 'R'
403: ) as
404: cursor c1 is select rowid from IGS_AS_EXM_SPRVSRTYP
405: where EXAM_SUPERVISOR_TYPE = X_EXAM_SUPERVISOR_TYPE
406: ;
407: begin
408: open c1;
435: p_action => 'DELETE',
436: x_rowid => X_ROWID
437: );
438:
439: delete from IGS_AS_EXM_SPRVSRTYP
440: where ROWID = X_ROWID;
441: if (sql%notfound) then
442: raise no_data_found;
443: end if;
443: end if;
444:
445: end DELETE_ROW;
446:
447: end IGS_AS_EXM_SPRVSRTYP_PKG;