[Home] [Help]
1: package body IGS_AS_TYPGOV_SCORMP_PKG AS
2: /* $Header: IGSDI24B.pls 115.4 2003/10/30 13:27:46 rghosh ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_TYPGOV_SCORMP%RowType;
1: package body IGS_AS_TYPGOV_SCORMP_PKG AS
2: /* $Header: IGSDI24B.pls 115.4 2003/10/30 13:27:46 rghosh ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_TYPGOV_SCORMP%RowType;
6: new_references IGS_AS_TYPGOV_SCORMP%RowType;
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
2: /* $Header: IGSDI24B.pls 115.4 2003/10/30 13:27:46 rghosh ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_TYPGOV_SCORMP%RowType;
6: new_references IGS_AS_TYPGOV_SCORMP%RowType;
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
10: x_scndry_edu_ass_type IN VARCHAR2 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_TYPGOV_SCORMP
23: WHERE rowid = x_rowid;
24: BEGIN
25: l_rowid := x_rowid;
26: -- Code for setting the Old and New Reference Values.
75: x_institution_score IN NUMBER
76: ) RETURN BOOLEAN AS
77: CURSOR cur_rowid IS
78: SELECT rowid
79: FROM IGS_AS_TYPGOV_SCORMP
80: WHERE scndry_edu_ass_type = x_scndry_edu_ass_type
81: AND result_obtained_yr = x_result_obtained_yr
82: AND institution_score = x_institution_score
83: FOR UPDATE NOWAIT;
99: x_aus_scndry_edu_ass_type IN VARCHAR2
100: ) AS
101: CURSOR cur_rowid IS
102: SELECT rowid
103: FROM IGS_AS_TYPGOV_SCORMP
104: WHERE scndry_edu_ass_type = x_aus_scndry_edu_ass_type ;
105: lv_rowid cur_rowid%RowType;
106: BEGIN
107: Open cur_rowid;
192: X_INSTITUTION_SCORE in NUMBER,
193: X_GOVT_SCORE in NUMBER,
194: X_MODE in VARCHAR2 default 'R'
195: ) AS
196: cursor C is select ROWID from IGS_AS_TYPGOV_SCORMP
197: where SCNDRY_EDU_ASS_TYPE = X_SCNDRY_EDU_ASS_TYPE
198: and RESULT_OBTAINED_YR = X_RESULT_OBTAINED_YR
199: and INSTITUTION_SCORE = X_INSTITUTION_SCORE;
200: X_LAST_UPDATE_DATE DATE;
231: x_last_update_date=>X_LAST_UPDATE_DATE,
232: x_last_updated_by=>X_LAST_UPDATED_BY,
233: x_last_update_login=>X_LAST_UPDATE_LOGIN
234: );
235: insert into IGS_AS_TYPGOV_SCORMP (
236: SCNDRY_EDU_ASS_TYPE,
237: RESULT_OBTAINED_YR,
238: INSTITUTION_SCORE,
239: GOVT_SCORE,
270: X_GOVT_SCORE in NUMBER
271: ) AS
272: cursor c1 is select
273: GOVT_SCORE
274: from IGS_AS_TYPGOV_SCORMP
275: where ROWID = X_ROWID for update nowait;
276: tlinfo c1%rowtype;
277: begin
278: open c1;
337: x_last_update_date=>X_LAST_UPDATE_DATE,
338: x_last_updated_by=>X_LAST_UPDATED_BY,
339: x_last_update_login=>X_LAST_UPDATE_LOGIN
340: );
341: update IGS_AS_TYPGOV_SCORMP set
342: GOVT_SCORE = NEW_REFERENCES.GOVT_SCORE,
343: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
344: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
345: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
356: X_INSTITUTION_SCORE in NUMBER,
357: X_GOVT_SCORE in NUMBER,
358: X_MODE in VARCHAR2 default 'R'
359: ) AS
360: cursor c1 is select rowid from IGS_AS_TYPGOV_SCORMP
361: where SCNDRY_EDU_ASS_TYPE = X_SCNDRY_EDU_ASS_TYPE
362: and RESULT_OBTAINED_YR = X_RESULT_OBTAINED_YR
363: and INSTITUTION_SCORE = X_INSTITUTION_SCORE
364: ;
391: Before_DML(
392: p_action => 'DELETE',
393: x_rowid => X_ROWID
394: );
395: delete from IGS_AS_TYPGOV_SCORMP
396: where ROWID = X_ROWID;
397:
398: if (sql%notfound) then
399: raise no_data_found;
423:
424:
425: END Check_Constraints;
426:
427: end IGS_AS_TYPGOV_SCORMP_PKG;