1: package body IGS_AD_ADM_UT_STA_GD_PKG AS
2: /* $Header: IGSAI02B.pls 115.6 2003/10/30 13:18:35 rghosh ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_ADM_UT_STA_GD%RowType;
5: new_references IGS_AD_ADM_UT_STA_GD%RowType;
1: package body IGS_AD_ADM_UT_STA_GD_PKG AS
2: /* $Header: IGSAI02B.pls 115.6 2003/10/30 13:18:35 rghosh ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_ADM_UT_STA_GD%RowType;
5: new_references IGS_AD_ADM_UT_STA_GD%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_AD_ADM_UT_STA_GD_PKG AS
2: /* $Header: IGSAI02B.pls 115.6 2003/10/30 13:18:35 rghosh ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_AD_ADM_UT_STA_GD%RowType;
5: new_references IGS_AD_ADM_UT_STA_GD%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
19: ) AS
20:
21: CURSOR cur_old_ref_values IS
22: SELECT *
23: FROM IGS_AD_ADM_UT_STA_GD
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
185: x_grade IN VARCHAR2) RETURN BOOLEAN AS
186:
187: CURSOR cur_rowid IS
188: SELECT rowid
189: FROM IGS_AD_ADM_UT_STA_GD
190: WHERE administrative_unit_status = x_administrative_unit_status
191: AND grading_schema_cd = x_grading_schema_cd
192: AND version_number = x_version_number
193: AND grade = x_grade
217: ) AS
218:
219: CURSOR cur_rowid IS
220: SELECT rowid
221: FROM IGS_AD_ADM_UT_STA_GD
222: WHERE grading_schema_cd = x_grading_schema_cd
223: AND version_number = x_version_number
224: AND grade = x_grade ;
225:
329: X_VERSION_NUMBER in NUMBER,
330: X_GRADE in VARCHAR2,
331: X_MODE in VARCHAR2 default 'R'
332: ) AS
333: cursor C is select ROWID from IGS_AD_ADM_UT_STA_GD
334: where ADMINISTRATIVE_UNIT_STATUS = X_ADMINISTRATIVE_UNIT_STATUS
335: and GRADING_SCHEMA_CD = X_GRADING_SCHEMA_CD
336: and VERSION_NUMBER = X_VERSION_NUMBER
337: and GRADE = X_GRADE;
370: x_last_update_date => X_LAST_UPDATE_DATE,
371: x_last_updated_by => X_LAST_UPDATED_BY,
372: x_last_update_login => X_LAST_UPDATE_LOGIN
373: );
374: insert into IGS_AD_ADM_UT_STA_GD (
375: ADMINISTRATIVE_UNIT_STATUS,
376: GRADING_SCHEMA_CD,
377: VERSION_NUMBER,
378: GRADE,
414: X_VERSION_NUMBER in NUMBER,
415: X_GRADE in VARCHAR2
416: ) AS
417: cursor c1 is select ROWID
418: from IGS_AD_ADM_UT_STA_GD
419: where ROWID = X_ROWID
420: for update nowait;
421: tlinfo c1%rowtype;
422:
443: p_action => 'DELETE',
444: x_rowid => X_ROWID
445: );
446:
447: delete from IGS_AD_ADM_UT_STA_GD
448: where ROWID = X_ROWID ;
449: if (sql%notfound) then
450: raise no_data_found;
451: end if;
454: x_rowid => X_ROWID
455: );
456: end DELETE_ROW;
457:
458: end IGS_AD_ADM_UT_STA_GD_PKG;