[Home] [Help]
1: package body IGS_CA_STAT_PKG AS
2: /* $Header: IGSCI14B.pls 115.5 2002/11/28 23:03:01 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_CA_STAT%RowType;
5: new_references IGS_CA_STAT%RowType;
1: package body IGS_CA_STAT_PKG AS
2: /* $Header: IGSCI14B.pls 115.5 2002/11/28 23:03:01 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_CA_STAT%RowType;
5: new_references IGS_CA_STAT%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_CA_STAT_PKG AS
2: /* $Header: IGSCI14B.pls 115.5 2002/11/28 23:03:01 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_CA_STAT%RowType;
5: new_references IGS_CA_STAT%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
19: ) AS
20:
21: CURSOR cur_old_ref_values IS
22: SELECT *
23: FROM IGS_CA_STAT
24: WHERE rowid = x_rowid;
25:
26: BEGIN
27:
122:
123: PROCEDURE Check_Child_Existance AS
124: BEGIN
125:
126: IGS_CA_INST_PKG.GET_FK_IGS_CA_STAT (
127: old_references.cal_status
128: );
129:
130: END Check_Child_Existance;
134: ) RETURN BOOLEAN AS
135:
136: CURSOR cur_rowid IS
137: SELECT rowid
138: FROM IGS_CA_STAT
139: WHERE cal_status = x_cal_status
140: FOR UPDATE NOWAIT;
141:
142: lv_rowid cur_rowid%RowType;
161: ) AS
162:
163: CURSOR cur_rowid IS
164: SELECT rowid
165: FROM IGS_CA_STAT
166: WHERE cal_status = x_s_cal_status
167: FOR UPDATE NOWAIT;
168:
169: lv_rowid cur_rowid%RowType;
172:
173: Open cur_rowid;
174: Fetch cur_rowid INTO lv_rowid;
175: IF (cur_rowid%FOUND) THEN
176: fnd_message.set_name('IGS','IGS_CA_STAT_LKUPV_FK');
177: IGS_GE_MSG_STACK.ADD;
178: Close cur_rowid;
179: App_Exception.Raise_Exception;
180: Return;
253: X_S_CAL_STATUS in VARCHAR2,
254: X_CLOSED_IND in VARCHAR2,
255: X_MODE in VARCHAR2 default 'R'
256: ) AS
257: cursor C is select ROWID from IGS_CA_STAT
258: where CAL_STATUS = X_CAL_STATUS;
259: X_LAST_UPDATE_DATE DATE;
260: X_LAST_UPDATED_BY NUMBER;
261: X_LAST_UPDATE_LOGIN NUMBER;
290: x_last_update_date =>X_LAST_UPDATE_DATE,
291: x_last_updated_by =>X_LAST_UPDATED_BY,
292: x_last_update_login =>X_LAST_UPDATE_LOGIN
293: );
294: insert into IGS_CA_STAT (
295: CAL_STATUS,
296: DESCRIPTION,
297: S_CAL_STATUS,
298: CLOSED_IND,
332: cursor c1 is select
333: DESCRIPTION,
334: S_CAL_STATUS,
335: CLOSED_IND
336: from IGS_CA_STAT
337: where ROWID=X_ROWID
338: for update nowait;
339: tlinfo c1%rowtype;
340:
405: x_last_update_date =>X_LAST_UPDATE_DATE,
406: x_last_updated_by =>X_LAST_UPDATED_BY,
407: x_last_update_login =>X_LAST_UPDATE_LOGIN
408: );
409: update IGS_CA_STAT set
410: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
411: S_CAL_STATUS = NEW_REFERENCES.S_CAL_STATUS,
412: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
413: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
427: X_S_CAL_STATUS in VARCHAR2,
428: X_CLOSED_IND in VARCHAR2,
429: X_MODE in VARCHAR2 default 'R'
430: ) AS
431: cursor c1 is select rowid from IGS_CA_STAT
432: where CAL_STATUS = X_CAL_STATUS
433: ;
434: begin
435: open c1;
462: Before_DML (
463: p_action =>'DELETE',
464: x_rowid =>X_ROWID
465: );
466: delete from IGS_CA_STAT
467: where ROWID=X_ROWID;
468: if (sql%notfound) then
469: raise no_data_found;
470: end if;
469: raise no_data_found;
470: end if;
471: end DELETE_ROW;
472:
473: end IGS_CA_STAT_PKG;