[Home] [Help]
1: package body IGS_EN_UNIT_SET_CAT_PKG AS
2: /* $Header: IGSEI02B.pls 115.5 2003/03/25 08:42:08 nalkumar ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_EN_UNIT_SET_CAT%RowType;
1: package body IGS_EN_UNIT_SET_CAT_PKG AS
2: /* $Header: IGSEI02B.pls 115.5 2003/03/25 08:42:08 nalkumar ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_EN_UNIT_SET_CAT%RowType;
6: new_references IGS_EN_UNIT_SET_CAT%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSEI02B.pls 115.5 2003/03/25 08:42:08 nalkumar ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_EN_UNIT_SET_CAT%RowType;
6: new_references IGS_EN_UNIT_SET_CAT%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_EN_UNIT_SET_CAT
26: WHERE rowid = x_rowid;
27:
28: BEGIN
29:
123:
124: PROCEDURE Check_Child_Existance AS
125: BEGIN
126:
127: IGS_EN_UNIT_SET_PKG.GET_FK_IGS_EN_UNIT_SET_CAT (
128: old_references.unit_set_cat
129: );
130: igs_da_setup_pkg.get_fk_igs_en_unit_set_cat(old_references.unit_set_cat);
131:
126:
127: IGS_EN_UNIT_SET_PKG.GET_FK_IGS_EN_UNIT_SET_CAT (
128: old_references.unit_set_cat
129: );
130: igs_da_setup_pkg.get_fk_igs_en_unit_set_cat(old_references.unit_set_cat);
131:
132: END Check_Child_Existance;
133:
134: FUNCTION Get_PK_For_Validation (
136: ) RETURN BOOLEAN AS
137:
138: CURSOR cur_rowid IS
139: SELECT rowid
140: FROM IGS_EN_UNIT_SET_CAT
141: WHERE unit_set_cat = x_unit_set_cat
142: FOR UPDATE NOWAIT;
143:
144: lv_rowid cur_rowid%RowType;
261: X_RANK in NUMBER,
262: X_CLOSED_IND in VARCHAR2,
263: X_MODE in VARCHAR2 default 'R'
264: ) AS
265: cursor C is select ROWID from IGS_EN_UNIT_SET_CAT
266: where UNIT_SET_CAT = X_UNIT_SET_CAT;
267: X_LAST_UPDATE_DATE DATE;
268: X_LAST_UPDATED_BY NUMBER;
269: X_LAST_UPDATE_LOGIN NUMBER;
301: x_last_updated_by => x_last_updated_by ,
302: x_last_update_login => x_last_update_login
303: );
304:
305: insert into IGS_EN_UNIT_SET_CAT (
306: UNIT_SET_CAT,
307: DESCRIPTION,
308: S_UNIT_SET_CAT,
309: RANK,
353: DESCRIPTION,
354: S_UNIT_SET_CAT,
355: RANK,
356: CLOSED_IND
357: from IGS_EN_UNIT_SET_CAT
358: where ROWID = X_ROWID
359: for update nowait;
360: tlinfo c1%rowtype;
361:
434: x_last_updated_by => x_last_updated_by ,
435: x_last_update_login => x_last_update_login
436: );
437:
438: update IGS_EN_UNIT_SET_CAT set
439: S_UNIT_SET_CAT = NEW_REFERENCES.S_UNIT_SET_CAT,
440: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
441: RANK = NEW_REFERENCES.RANK,
442: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
464: X_RANK in NUMBER,
465: X_CLOSED_IND in VARCHAR2,
466: X_MODE in VARCHAR2 default 'R'
467: ) AS
468: cursor c1 is select rowid from IGS_EN_UNIT_SET_CAT
469: where UNIT_SET_CAT = X_UNIT_SET_CAT
470: ;
471: begin
472: open c1;
503: p_action => 'DELETE',
504: x_rowid => X_ROWID
505: );
506:
507: delete from IGS_EN_UNIT_SET_CAT
508: where ROWID = X_ROWID;
509: if (sql%notfound) then
510: raise no_data_found;
511: end if;
517:
518:
519: end DELETE_ROW;
520:
521: end IGS_EN_UNIT_SET_CAT_PKG;