[Home] [Help]
1: package body IGS_ST_GOVT_SEMESTER_PKG AS
2: /* $Header: IGSVI06B.pls 115.5 2002/11/29 04:31:59 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_ST_GOVT_SEMESTER%RowType;
1: package body IGS_ST_GOVT_SEMESTER_PKG AS
2: /* $Header: IGSVI06B.pls 115.5 2002/11/29 04:31:59 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_ST_GOVT_SEMESTER%RowType;
6: new_references IGS_ST_GOVT_SEMESTER%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSVI06B.pls 115.5 2002/11/29 04:31:59 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_ST_GOVT_SEMESTER%RowType;
6: new_references IGS_ST_GOVT_SEMESTER%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
19: ) AS
20:
21: CURSOR cur_old_ref_values IS
22: SELECT *
23: FROM IGS_ST_GOVT_SEMESTER
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
62: p_updating IN BOOLEAN DEFAULT FALSE,
63: p_deleting IN BOOLEAN DEFAULT FALSE
64: ) AS
65: v_message_name VARCHAR2(30);
66: v_submission_yr IGS_ST_GOVT_SEMESTER.submission_yr%TYPE;
67: v_submission_number IGS_ST_GOVT_SEMESTER.submission_number%TYPE;
68: BEGIN
69: IF p_inserting OR p_updating THEN
70: v_submission_yr := new_references.submission_yr;
63: p_deleting IN BOOLEAN DEFAULT FALSE
64: ) AS
65: v_message_name VARCHAR2(30);
66: v_submission_yr IGS_ST_GOVT_SEMESTER.submission_yr%TYPE;
67: v_submission_number IGS_ST_GOVT_SEMESTER.submission_number%TYPE;
68: BEGIN
69: IF p_inserting OR p_updating THEN
70: v_submission_yr := new_references.submission_yr;
71: v_submission_number := new_references.submission_number;
149:
150: PROCEDURE Check_Child_Existance AS
151: BEGIN
152:
153: IGS_ST_GVTSEMLOAD_CA_PKG.GET_FK_IGS_ST_GOVT_SEMESTER (
154: old_references.submission_yr,
155: old_references.submission_number,
156: old_references.govt_semester
157: );
155: old_references.submission_number,
156: old_references.govt_semester
157: );
158:
159: IGS_ST_GVTSEMLOAD_OV_PKG.GET_FK_IGS_ST_GOVT_SEMESTER (
160: old_references.submission_yr,
161: old_references.submission_number,
162: old_references.govt_semester
163: );
161: old_references.submission_number,
162: old_references.govt_semester
163: );
164:
165: IGS_ST_GVT_STDNT_LBL_PKG.GET_FK_IGS_ST_GOVT_SEMESTER (
166: old_references.submission_yr,
167: old_references.submission_number,
168: old_references.govt_semester
169: );
167: old_references.submission_number,
168: old_references.govt_semester
169: );
170:
171: IGS_ST_GVT_STDNTLOAD_PKG.GET_FK_IGS_ST_GOVT_SEMESTER (
172: old_references.submission_yr,
173: old_references.submission_number,
174: old_references.govt_semester
175: );
185: AS
186:
187: CURSOR cur_rowid IS
188: SELECT rowid
189: FROM IGS_ST_GOVT_SEMESTER
190: WHERE submission_yr = x_submission_yr
191: AND submission_number = x_submission_number
192: AND govt_semester = x_govt_semester
193: FOR UPDATE NOWAIT;
213: ) AS
214:
215: CURSOR cur_rowid IS
216: SELECT rowid
217: FROM IGS_ST_GOVT_SEMESTER
218: WHERE submission_yr = x_submission_yr
219: AND submission_number = x_submission_number ;
220:
221: lv_rowid cur_rowid%RowType;
315: X_SUBMISSION_NUMBER in NUMBER,
316: X_GOVT_SEMESTER in NUMBER,
317: X_MODE in VARCHAR2 default 'R'
318: ) AS
319: cursor C is select ROWID from IGS_ST_GOVT_SEMESTER
320: where SUBMISSION_YR = X_SUBMISSION_YR
321: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
322: and GOVT_SEMESTER = X_GOVT_SEMESTER;
323: X_LAST_UPDATE_DATE DATE;
354: x_last_update_date => X_LAST_UPDATE_DATE,
355: x_last_updated_by => X_LAST_UPDATED_BY,
356: x_last_update_login => X_LAST_UPDATE_LOGIN
357: );
358: insert into IGS_ST_GOVT_SEMESTER (
359: SUBMISSION_YR,
360: SUBMISSION_NUMBER,
361: GOVT_SEMESTER,
362: CREATION_DATE,
396: X_GOVT_SEMESTER in NUMBER
397: ) AS
398: cursor c1 is select
399: rowid
400: from IGS_ST_GOVT_SEMESTER
401: where ROWID = X_ROWID for update nowait;
402: tlinfo c1%rowtype;
403:
404: begin
424: Before_DML (
425: p_action => 'DELETE',
426: x_rowid => X_ROWID
427: );
428: delete from IGS_ST_GOVT_SEMESTER
429: where ROWID = X_ROWID;
430: if (sql%notfound) then
431: raise no_data_found;
432: end if;
436: );
437:
438: end DELETE_ROW;
439:
440: end IGS_ST_GOVT_SEMESTER_PKG;