1: package body IGS_EN_UNIT_SET_NOTE_PKG as
2: /* $Header: IGSEI05B.pls 115.3 2002/11/28 23:32:11 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_EN_UNIT_SET_NOTE%RowType;
1: package body IGS_EN_UNIT_SET_NOTE_PKG as
2: /* $Header: IGSEI05B.pls 115.3 2002/11/28 23:32:11 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_EN_UNIT_SET_NOTE%RowType;
6: new_references IGS_EN_UNIT_SET_NOTE%RowType;
7:
8:
9: PROCEDURE Set_Column_Values (
2: /* $Header: IGSEI05B.pls 115.3 2002/11/28 23:32:11 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_EN_UNIT_SET_NOTE%RowType;
6: new_references IGS_EN_UNIT_SET_NOTE%RowType;
7:
8:
9: PROCEDURE Set_Column_Values (
10: p_action IN VARCHAR2,
21: ) AS
22:
23: CURSOR cur_old_ref_values IS
24: SELECT *
25: FROM IGS_EN_UNIT_SET_NOTE
26: WHERE rowid = x_rowid;
27:
28: BEGIN
29:
159: ) RETURN BOOLEAN AS
160:
161: CURSOR cur_rowid IS
162: SELECT rowid
163: FROM IGS_EN_UNIT_SET_NOTE
164: WHERE unit_set_cd = x_unit_set_cd
165: AND version_number = x_version_number
166: AND reference_number = x_reference_number
167: FOR UPDATE NOWAIT;
188: ) AS
189:
190: CURSOR cur_rowid IS
191: SELECT rowid
192: FROM IGS_EN_UNIT_SET_NOTE
193: WHERE crs_note_type = x_crs_note_type ;
194:
195: lv_rowid cur_rowid%RowType;
196:
214: ) AS
215:
216: CURSOR cur_rowid IS
217: SELECT rowid
218: FROM IGS_EN_UNIT_SET_NOTE
219: WHERE reference_number = x_reference_number ;
220:
221: lv_rowid cur_rowid%RowType;
222:
241: ) AS
242:
243: CURSOR cur_rowid IS
244: SELECT rowid
245: FROM IGS_EN_UNIT_SET_NOTE
246: WHERE unit_set_cd = x_unit_set_cd
247: AND version_number = x_version_number ;
248:
249: lv_rowid cur_rowid%RowType;
363: X_REFERENCE_NUMBER in NUMBER,
364: X_CRS_NOTE_TYPE in VARCHAR2,
365: X_MODE in VARCHAR2 default 'R'
366: ) AS
367: cursor C is select ROWID from IGS_EN_UNIT_SET_NOTE
368: where UNIT_SET_CD = X_UNIT_SET_CD
369: and VERSION_NUMBER = X_VERSION_NUMBER
370: and REFERENCE_NUMBER = X_REFERENCE_NUMBER;
371: X_LAST_UPDATE_DATE DATE;
405: x_last_update_login => x_last_update_login
406: );
407:
408:
409: insert into IGS_EN_UNIT_SET_NOTE (
410: UNIT_SET_CD,
411: VERSION_NUMBER,
412: REFERENCE_NUMBER,
413: CRS_NOTE_TYPE,
450: X_CRS_NOTE_TYPE in VARCHAR2
451: ) AS
452: cursor c1 is select
453: CRS_NOTE_TYPE
454: from IGS_EN_UNIT_SET_NOTE
455: where ROWID = X_ROWID
456: for update nowait;
457: tlinfo c1%rowtype;
458:
524: x_last_update_login => x_last_update_login
525: );
526:
527:
528: update IGS_EN_UNIT_SET_NOTE set
529: CRS_NOTE_TYPE = NEW_REFERENCES.CRS_NOTE_TYPE,
530: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
531: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
532: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
550: X_REFERENCE_NUMBER in NUMBER,
551: X_CRS_NOTE_TYPE in VARCHAR2,
552: X_MODE in VARCHAR2 default 'R'
553: ) AS
554: cursor c1 is select rowid from IGS_EN_UNIT_SET_NOTE
555: where UNIT_SET_CD = X_UNIT_SET_CD
556: and VERSION_NUMBER = X_VERSION_NUMBER
557: and REFERENCE_NUMBER = X_REFERENCE_NUMBER
558: ;
589: Before_DML(
590: p_action => 'DELETE',
591: x_rowid => X_ROWID
592: );
593: delete from IGS_EN_UNIT_SET_NOTE
594: where ROWID = X_ROWID;
595: if (sql%notfound) then
596: raise no_data_found;
597: end if;
603:
604:
605: end DELETE_ROW;
606:
607: end IGS_EN_UNIT_SET_NOTE_PKG;