[Home] [Help]
1: package body IGS_AS_SPCL_CONS_OUT_PKG as
2: /* $Header: IGSDI48B.pls 115.7 2003/05/19 04:44:29 ijeddy ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_SPCL_CONS_OUT%RowType;
1: package body IGS_AS_SPCL_CONS_OUT_PKG as
2: /* $Header: IGSDI48B.pls 115.7 2003/05/19 04:44:29 ijeddy ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_SPCL_CONS_OUT%RowType;
6: new_references IGS_AS_SPCL_CONS_OUT%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI48B.pls 115.7 2003/05/19 04:44:29 ijeddy ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AS_SPCL_CONS_OUT%RowType;
6: new_references IGS_AS_SPCL_CONS_OUT%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_AS_SPCL_CONS_OUT
26: WHERE rowid = x_rowid;
27:
28: BEGIN
29:
63:
64: PROCEDURE Check_Child_Existance as
65: BEGIN
66:
67: IGS_AS_SPL_CONS_APPL_PKG.GET_FK_IGS_AS_SPCL_CONS_OUT(
68: old_references.spcl_consideration_outcome
69: );
70:
71: IGS_AS_SPL_CONS_APPL_PKG.GET_FK_IGS_AS_SPCL_CONS_OUT(
67: IGS_AS_SPL_CONS_APPL_PKG.GET_FK_IGS_AS_SPCL_CONS_OUT(
68: old_references.spcl_consideration_outcome
69: );
70:
71: IGS_AS_SPL_CONS_APPL_PKG.GET_FK_IGS_AS_SPCL_CONS_OUT(
72: old_references.spcl_consideration_outcome
73: );
74:
75: END Check_Child_Existance;
78: x_spcl_consideration_outcome IN VARCHAR2
79: ) RETURN BOOLEAN AS
80: CURSOR cur_rowid IS
81: SELECT rowid
82: FROM IGS_AS_SPCL_CONS_OUT
83: WHERE spcl_consideration_outcome= x_spcl_consideration_outcome
84: FOR UPDATE NOWAIT;
85:
86: lv_rowid cur_rowid%RowType;
222: X_SOUGHT_OUTCOME_IND in VARCHAR2,
223: X_CLOSED_IND in VARCHAR2,
224: X_MODE in VARCHAR2 default 'R'
225: ) as
226: cursor C is select ROWID from IGS_AS_SPCL_CONS_OUT
227: where SPCL_CONSIDERATION_OUTCOME = X_SPCL_CONSIDERATION_OUTCOME;
228: X_LAST_UPDATE_DATE DATE;
229: X_LAST_UPDATED_BY NUMBER;
230: X_LAST_UPDATE_LOGIN NUMBER;
260: x_last_update_date=>X_LAST_UPDATE_DATE,
261: x_last_updated_by=>X_LAST_UPDATED_BY,
262: x_last_update_login=>X_LAST_UPDATE_LOGIN
263: );
264: insert into IGS_AS_SPCL_CONS_OUT (
265: SPCL_CONSIDERATION_OUTCOME,
266: DESCRIPTION,
267: EXPLANATION,
268: SOUGHT_OUTCOME_IND,
308: DESCRIPTION,
309: EXPLANATION,
310: SOUGHT_OUTCOME_IND,
311: CLOSED_IND
312: from IGS_AS_SPCL_CONS_OUT
313: where ROWID = X_ROWID for update nowait;
314: tlinfo c1%rowtype;
315:
316: begin
384: x_last_updated_by=>X_LAST_UPDATED_BY,
385: x_last_update_login=>X_LAST_UPDATE_LOGIN
386: );
387:
388: update IGS_AS_SPCL_CONS_OUT set
389: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
390: EXPLANATION = NEW_REFERENCES.EXPLANATION,
391: SOUGHT_OUTCOME_IND = NEW_REFERENCES.SOUGHT_OUTCOME_IND,
392: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
408: X_SOUGHT_OUTCOME_IND in VARCHAR2,
409: X_CLOSED_IND in VARCHAR2,
410: X_MODE in VARCHAR2 default 'R'
411: ) as
412: cursor c1 is select rowid from IGS_AS_SPCL_CONS_OUT
413: where SPCL_CONSIDERATION_OUTCOME = X_SPCL_CONSIDERATION_OUTCOME
414: ;
415: begin
416: open c1;
444: Before_DML(
445: p_action => 'DELETE',
446: x_rowid => X_ROWID
447: );
448: delete from IGS_AS_SPCL_CONS_OUT
449: where ROWID = X_ROWID;
450: if (sql%notfound) then
451: raise no_data_found;
452: end if;
451: raise no_data_found;
452: end if;
453: end DELETE_ROW;
454:
455: end IGS_AS_SPCL_CONS_OUT_PKG;