1: PACKAGE BODY igs_ps_unit_ofr_mode_pkg AS
2: /* $Header: IGSPI0TB.pls 115.6 2002/11/29 01:59:48 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_unit_ofr_mode%RowType;
5: new_references igs_ps_unit_ofr_mode%RowType;
1: PACKAGE BODY igs_ps_unit_ofr_mode_pkg AS
2: /* $Header: IGSPI0TB.pls 115.6 2002/11/29 01:59:48 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_unit_ofr_mode%RowType;
5: new_references igs_ps_unit_ofr_mode%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ps_unit_ofr_mode_pkg AS
2: /* $Header: IGSPI0TB.pls 115.6 2002/11/29 01:59:48 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_unit_ofr_mode%RowType;
5: new_references igs_ps_unit_ofr_mode%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
29: ***************************************************************/
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igs_ps_unit_ofr_mode
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
141: ***************************************************************/
142:
143: CURSOR cur_rowid IS
144: SELECT rowid
145: FROM igs_ps_unit_ofr_mode
146: WHERE version_number = x_version_number
147: AND offering_mode = x_offering_mode
148: AND unit_cd = x_unit_cd
149: FOR UPDATE NOWAIT;
180: ***************************************************************/
181:
182: CURSOR cur_rowid IS
183: SELECT rowid
184: FROM igs_ps_unit_ofr_mode
185: WHERE unit_cd = x_unit_cd
186: AND version_number = x_version_number ;
187:
188: lv_rowid cur_rowid%RowType;
329:
330: (reverse chronological order - newest change first)
331: ***************************************************************/
332:
333: cursor C is select ROWID from igs_ps_unit_ofr_mode
334: where VERSION_NUMBER= X_VERSION_NUMBER
335: and OFFERING_MODE = X_OFFERING_MODE
336: and UNIT_CD = X_UNIT_CD
337: ;
367: x_created_by=>X_LAST_UPDATED_BY,
368: x_last_update_date=>X_LAST_UPDATE_DATE,
369: x_last_updated_by=>X_LAST_UPDATED_BY,
370: x_last_update_login=>X_LAST_UPDATE_LOGIN);
371: insert into igs_ps_unit_ofr_mode (
372: UNIT_CD
373: ,VERSION_NUMBER
374: ,OFFERING_MODE
375: ,CREATION_DATE
415: ***************************************************************/
416:
417: cursor c1 is select
418: ROWID
419: from igs_ps_unit_ofr_mode
420: where ROWID = X_ROWID
421: for update nowait;
422: tlinfo c1%rowtype;
423: begin
451: Before_DML (
452: p_action => 'DELETE',
453: x_rowid => X_ROWID
454: );
455: delete from igs_ps_unit_ofr_mode
456: where ROWID = X_ROWID;
457: if (sql%notfound) then
458: raise no_data_found;
459: end if;
461: p_action => 'DELETE',
462: x_rowid => X_ROWID
463: );
464: end DELETE_ROW;
465: END igs_ps_unit_ofr_mode_pkg;