1: PACKAGE BODY igs_ps_unt_prv_grade_pkg AS
2: /* $Header: IGSPI0BB.pls 115.7 2002/11/29 01:55:10 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_unt_prv_grade%RowType;
5: new_references igs_ps_unt_prv_grade%RowType;
1: PACKAGE BODY igs_ps_unt_prv_grade_pkg AS
2: /* $Header: IGSPI0BB.pls 115.7 2002/11/29 01:55:10 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_unt_prv_grade%RowType;
5: new_references igs_ps_unt_prv_grade%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ps_unt_prv_grade_pkg AS
2: /* $Header: IGSPI0BB.pls 115.7 2002/11/29 01:55:10 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_unt_prv_grade%RowType;
5: new_references igs_ps_unt_prv_grade%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
32: ***************************************************************/
33:
34: CURSOR cur_old_ref_values IS
35: SELECT *
36: FROM IGS_PS_UNT_PRV_GRADE
37: WHERE rowid = x_rowid;
38:
39: BEGIN
40:
187: ***************************************************************/
188:
189: CURSOR cur_rowid IS
190: SELECT rowid
191: FROM igs_ps_unt_prv_grade
192: WHERE unit_prev_grade_id = x_unit_prev_grade_id
193: FOR UPDATE NOWAIT;
194:
195: lv_rowid cur_rowid%RowType;
227: ***************************************************************/
228:
229: CURSOR cur_rowid IS
230: SELECT rowid
231: FROM igs_ps_unt_prv_grade
232: WHERE unit_code = x_unit_code
233: AND unit_version_number = x_unit_version_number
234: AND grading_schema_code = x_grading_schema_code
235: AND grading_schema_value = x_grading_schema_value
268: ***************************************************************/
269:
270: CURSOR cur_rowid IS
271: SELECT rowid
272: FROM igs_ps_unt_prv_grade
273: WHERE grading_schema_code = x_grading_schema_cd
274: AND grading_schema_version_number = x_version_number
275: AND grading_schema_value = x_grade ;
276:
308: ***************************************************************/
309:
310: CURSOR cur_rowid IS
311: SELECT rowid
312: FROM igs_ps_unt_prv_grade
313: WHERE unit_code = x_unit_cd
314: AND unit_version_number = x_version_number ;
315:
316: lv_rowid cur_rowid%RowType;
466:
467: (reverse chronological order - newest change first)
468: ***************************************************************/
469:
470: cursor C is select ROWID from IGS_PS_UNT_PRV_GRADE
471: where UNIT_PREV_GRADE_ID= X_UNIT_PREV_GRADE_ID
472: ;
473: X_LAST_UPDATE_DATE DATE ;
474: X_LAST_UPDATED_BY NUMBER ;
491: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
492: IGS_GE_MSG_STACK.ADD;
493: app_exception.raise_exception;
494: end if;
495: select igs_ps_unt_prv_grade_s.nextval
496: into x_unit_prev_grade_id
497: from dual;
498: Before_DML(
499: p_action=>'INSERT',
508: x_created_by=>X_LAST_UPDATED_BY,
509: x_last_update_date=>X_LAST_UPDATE_DATE,
510: x_last_updated_by=>X_LAST_UPDATED_BY,
511: x_last_update_login=>X_LAST_UPDATE_LOGIN);
512: insert into IGS_PS_UNT_PRV_GRADE (
513: UNIT_PREV_GRADE_ID
514: ,UNIT_CODE
515: ,UNIT_VERSION_NUMBER
516: ,GRADING_SCHEMA_CODE
569: , UNIT_VERSION_NUMBER
570: , GRADING_SCHEMA_CODE
571: , GRADING_SCHEMA_VERSION_NUMBER
572: , GRADING_SCHEMA_VALUE
573: from IGS_PS_UNT_PRV_GRADE
574: where ROWID = X_ROWID
575: for update nowait;
576: tlinfo c1%rowtype;
577: begin
655: x_created_by=>X_LAST_UPDATED_BY,
656: x_last_update_date=>X_LAST_UPDATE_DATE,
657: x_last_updated_by=>X_LAST_UPDATED_BY,
658: x_last_update_login=>X_LAST_UPDATE_LOGIN);
659: update IGS_PS_UNT_PRV_GRADE set
660: UNIT_CODE = NEW_REFERENCES.UNIT_CODE,
661: UNIT_VERSION_NUMBER = NEW_REFERENCES.UNIT_VERSION_NUMBER,
662: GRADING_SCHEMA_CODE = NEW_REFERENCES.GRADING_SCHEMA_CODE,
663: GRADING_SCHEMA_VERSION_NUMBER = NEW_REFERENCES.GRADING_SCHEMA_VERSION_NUMBER,
695:
696: (reverse chronological order - newest change first)
697: ***************************************************************/
698:
699: cursor c1 is select ROWID from IGS_PS_UNT_PRV_GRADE
700: where UNIT_PREV_GRADE_ID= X_UNIT_PREV_GRADE_ID
701: ;
702: begin
703: open c1;
744: Before_DML (
745: p_action => 'DELETE',
746: x_rowid => X_ROWID
747: );
748: delete from IGS_PS_UNT_PRV_GRADE
749: where ROWID = X_ROWID;
750: if (sql%notfound) then
751: raise no_data_found;
752: end if;
754: p_action => 'DELETE',
755: x_rowid => X_ROWID
756: );
757: end DELETE_ROW;
758: END igs_ps_unt_prv_grade_pkg;