1: package body IGS_FI_GOVT_HEC_CNTB_PKG AS
2: /* $Header: IGSSI51B.pls 115.3 2002/11/29 03:49:59 nsidana ship $*/
3: l_rowid VARCHAR2(25);
4: old_references IGS_FI_GOVT_HEC_CNTB%RowType;
5: new_references IGS_FI_GOVT_HEC_CNTB%RowType;
1: package body IGS_FI_GOVT_HEC_CNTB_PKG AS
2: /* $Header: IGSSI51B.pls 115.3 2002/11/29 03:49:59 nsidana ship $*/
3: l_rowid VARCHAR2(25);
4: old_references IGS_FI_GOVT_HEC_CNTB%RowType;
5: new_references IGS_FI_GOVT_HEC_CNTB%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
1: package body IGS_FI_GOVT_HEC_CNTB_PKG AS
2: /* $Header: IGSSI51B.pls 115.3 2002/11/29 03:49:59 nsidana ship $*/
3: l_rowid VARCHAR2(25);
4: old_references IGS_FI_GOVT_HEC_CNTB%RowType;
5: new_references IGS_FI_GOVT_HEC_CNTB%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
9: x_govt_hecs_cntrbtn_band IN NUMBER DEFAULT NULL,
16: x_last_update_login IN NUMBER DEFAULT NULL
17: ) AS
18: CURSOR cur_old_ref_values IS
19: SELECT *
20: FROM IGS_FI_GOVT_HEC_CNTB
21: WHERE rowid = x_rowid;
22: BEGIN
23: l_rowid := x_rowid;
24: -- Code for setting the Old and New Reference Values.
76: END IF;
77: END Check_Constraints;
78: PROCEDURE Check_Child_Existance AS
79: BEGIN
80: IGS_FI_FEE_AS_RATE_PKG.GET_FK_IGS_FI_GOVT_HEC_CNTB (
81: old_references.govt_hecs_cntrbtn_band
82: );
83: IGS_FI_GV_DSP_HEC_CN_PKG.GET_FK_IGS_FI_GOVT_HEC_CNTB (
84: old_references.govt_hecs_cntrbtn_band
79: BEGIN
80: IGS_FI_FEE_AS_RATE_PKG.GET_FK_IGS_FI_GOVT_HEC_CNTB (
81: old_references.govt_hecs_cntrbtn_band
82: );
83: IGS_FI_GV_DSP_HEC_CN_PKG.GET_FK_IGS_FI_GOVT_HEC_CNTB (
84: old_references.govt_hecs_cntrbtn_band
85: );
86: END Check_Child_Existance;
87: FUNCTION Get_PK_For_Validation (
88: x_govt_hecs_cntrbtn_band IN NUMBER
89: ) RETURN BOOLEAN AS
90: CURSOR cur_rowid IS
91: SELECT rowid
92: FROM IGS_FI_GOVT_HEC_CNTB
93: WHERE govt_hecs_cntrbtn_band = x_govt_hecs_cntrbtn_band
94: FOR UPDATE NOWAIT;
95: lv_rowid cur_rowid%RowType;
96: BEGIN
166: X_DESCRIPTION in VARCHAR2,
167: X_CLOSED_IND in VARCHAR2,
168: X_MODE in VARCHAR2 default 'R'
169: ) AS
170: cursor C is select ROWID from IGS_FI_GOVT_HEC_CNTB
171: where GOVT_HECS_CNTRBTN_BAND = X_GOVT_HECS_CNTRBTN_BAND;
172: X_LAST_UPDATE_DATE DATE;
173: X_LAST_UPDATED_BY NUMBER;
174: X_LAST_UPDATE_LOGIN NUMBER;
202: x_last_update_date=>X_LAST_UPDATE_DATE,
203: x_last_updated_by=>X_LAST_UPDATED_BY,
204: x_last_update_login=>X_LAST_UPDATE_LOGIN
205: );
206: insert into IGS_FI_GOVT_HEC_CNTB (
207: GOVT_HECS_CNTRBTN_BAND,
208: DESCRIPTION,
209: CLOSED_IND,
210: CREATION_DATE,
238: ) AS
239: cursor c1 is select
240: DESCRIPTION,
241: CLOSED_IND
242: from IGS_FI_GOVT_HEC_CNTB
243: where ROWID=X_ROWID
244: for update nowait;
245: tlinfo c1%rowtype;
246: begin
305: x_last_update_date=>X_LAST_UPDATE_DATE,
306: x_last_updated_by=>X_LAST_UPDATED_BY,
307: x_last_update_login=>X_LAST_UPDATE_LOGIN
308: );
309: update IGS_FI_GOVT_HEC_CNTB set
310: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
311: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
312: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
313: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
324: X_DESCRIPTION in VARCHAR2,
325: X_CLOSED_IND in VARCHAR2,
326: X_MODE in VARCHAR2 default 'R'
327: ) AS
328: cursor c1 is select rowid from IGS_FI_GOVT_HEC_CNTB
329: where GOVT_HECS_CNTRBTN_BAND = X_GOVT_HECS_CNTRBTN_BAND
330: ;
331: begin
332: open c1;
356: BEfore_DML (
357: p_action => 'DELETE',
358: x_rowid => X_ROWID
359: );
360: delete from IGS_FI_GOVT_HEC_CNTB
361: where ROWID=X_ROWID;
362: if (sql%notfound) then
363: raise no_data_found;
364: end if;
362: if (sql%notfound) then
363: raise no_data_found;
364: end if;
365: end DELETE_ROW;
366: end IGS_FI_GOVT_HEC_CNTB_PKG;