1: package body IGS_PS_OFR_NOTE_PKG AS
2: /* $Header: IGSPI21B.pls 115.3 2002/11/29 02:12:05 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OFR_NOTE%RowType;
1: package body IGS_PS_OFR_NOTE_PKG AS
2: /* $Header: IGSPI21B.pls 115.3 2002/11/29 02:12:05 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OFR_NOTE%RowType;
6: new_references IGS_PS_OFR_NOTE%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI21B.pls 115.3 2002/11/29 02:12:05 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OFR_NOTE%RowType;
6: new_references IGS_PS_OFR_NOTE%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
21: ) AS
22:
23: CURSOR cur_old_ref_values IS
24: SELECT *
25: FROM IGS_PS_OFR_NOTE
26: WHERE rowid = x_rowid;
27:
28: BEGIN
29:
166: RETURN BOOLEAN AS
167:
168: CURSOR cur_rowid IS
169: SELECT rowid
170: FROM IGS_PS_OFR_NOTE
171: WHERE course_cd = x_course_cd
172: AND version_number = x_version_number
173: AND cal_type = x_cal_type
174: AND reference_number = x_reference_number
195: ) AS
196:
197: CURSOR cur_rowid IS
198: SELECT rowid
199: FROM IGS_PS_OFR_NOTE
200: WHERE crs_note_type = x_crs_note_type ;
201:
202: lv_rowid cur_rowid%RowType;
203:
223: ) AS
224:
225: CURSOR cur_rowid IS
226: SELECT rowid
227: FROM IGS_PS_OFR_NOTE
228: WHERE course_cd = x_course_cd
229: AND version_number = x_version_number
230: AND cal_type = x_cal_type ;
231:
251: ) AS
252:
253: CURSOR cur_rowid IS
254: SELECT rowid
255: FROM IGS_PS_OFR_NOTE
256: WHERE reference_number = x_reference_number ;
257:
258: lv_rowid cur_rowid%RowType;
259:
360: X_VERSION_NUMBER in NUMBER,
361: X_CRS_NOTE_TYPE in VARCHAR2,
362: X_MODE in VARCHAR2 default 'R'
363: ) AS
364: cursor C is select ROWID from IGS_PS_OFR_NOTE
365: where COURSE_CD = X_COURSE_CD
366: and REFERENCE_NUMBER = X_REFERENCE_NUMBER
367: and CAL_TYPE = X_CAL_TYPE
368: and VERSION_NUMBER = X_VERSION_NUMBER;
402: x_last_updated_by => X_LAST_UPDATED_BY ,
403: x_last_update_login => X_LAST_UPDATE_LOGIN
404: );
405:
406: insert into IGS_PS_OFR_NOTE (
407: COURSE_CD,
408: VERSION_NUMBER,
409: CAL_TYPE,
410: REFERENCE_NUMBER,
449: X_CRS_NOTE_TYPE in VARCHAR2
450: ) AS
451: cursor c1 is select
452: CRS_NOTE_TYPE
453: from IGS_PS_OFR_NOTE
454: where ROWID = X_ROWID
455: for update nowait;
456: tlinfo c1%rowtype;
457:
522: x_last_update_date => X_LAST_UPDATE_DATE ,
523: x_last_updated_by => X_LAST_UPDATED_BY ,
524: x_last_update_login => X_LAST_UPDATE_LOGIN
525: );
526: update IGS_PS_OFR_NOTE set
527: CRS_NOTE_TYPE = NEW_REFERENCES.CRS_NOTE_TYPE,
528: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
529: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
530: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
547: X_VERSION_NUMBER in NUMBER,
548: X_CRS_NOTE_TYPE in VARCHAR2,
549: X_MODE in VARCHAR2 default 'R'
550: ) AS
551: cursor c1 is select rowid from IGS_PS_OFR_NOTE
552: where COURSE_CD = X_COURSE_CD
553: and REFERENCE_NUMBER = X_REFERENCE_NUMBER
554: and CAL_TYPE = X_CAL_TYPE
555: and VERSION_NUMBER = X_VERSION_NUMBER
587: Before_DML (
588: p_action => 'DELETE',
589: x_rowid => X_ROWID
590: );
591: delete from IGS_PS_OFR_NOTE
592: where ROWID = X_ROWID;
593: if (sql%notfound) then
594: raise no_data_found;
595: end if;
598: x_rowid => X_ROWID
599: );
600: end DELETE_ROW;
601:
602: end IGS_PS_OFR_NOTE_PKG;