1: package body IGS_PS_DSCP_HIST_PKG as
2: /* $Header: IGSPI53B.pls 115.6 2002/11/29 02:30:49 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_DSCP_HIST_ALL%RowType;
6: new_references IGS_PS_DSCP_HIST_ALL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI53B.pls 115.6 2002/11/29 02:30:49 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_DSCP_HIST_ALL%RowType;
6: new_references IGS_PS_DSCP_HIST_ALL%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
27: ) AS
28:
29: CURSOR cur_old_ref_values IS
30: SELECT *
31: FROM IGS_PS_DSCP_HIST_ALL
32: WHERE rowid = x_rowid;
33:
34: BEGIN
35:
123: ) RETURN BOOLEAN AS
124:
125: CURSOR cur_rowid IS
126: SELECT rowid
127: FROM IGS_PS_DSCP_HIST_ALL
128: WHERE discipline_group_cd = x_discipline_group_cd
129: AND hist_start_dt = x_hist_start_dt
130: FOR UPDATE NOWAIT;
131:
244: X_CLOSED_IND in VARCHAR2,
245: X_MODE in VARCHAR2 default 'R',
246: X_ORG_ID in NUMBER
247: ) as
248: cursor C is select ROWID from IGS_PS_DSCP_HIST_ALL
249: where DISCIPLINE_GROUP_CD = X_DISCIPLINE_GROUP_CD
250: and HIST_START_DT = X_HIST_START_DT;
251: X_LAST_UPDATE_DATE DATE;
252: X_LAST_UPDATED_BY NUMBER;
289: x_last_updated_by => X_LAST_UPDATED_BY,
290: x_last_update_login => X_LAST_UPDATE_LOGIN,
291: x_org_id => igs_ge_gen_003.get_org_id
292: );
293: insert into IGS_PS_DSCP_HIST_ALL (
294: DISCIPLINE_GROUP_CD,
295: HIST_START_DT,
296: HIST_END_DT,
297: HIST_WHO,
363: FUNDING_INDEX_3,
364: GOVT_DISCIPLINE_GROUP_CD,
365: CLOSED_IND
366:
367: from IGS_PS_DSCP_HIST_ALL
368: where ROWID = X_ROWID for update nowait;
369: tlinfo c1%rowtype;
370:
371: begin
467: x_last_updated_by => X_LAST_UPDATED_BY,
468: x_last_update_login => X_LAST_UPDATE_LOGIN
469:
470: );
471: update IGS_PS_DSCP_HIST_ALL set
472: HIST_END_DT = NEW_REFERENCES.HIST_END_DT,
473: HIST_WHO = NEW_REFERENCES.HIST_WHO,
474: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
475: FUNDING_INDEX_1 = NEW_REFERENCES.FUNDING_INDEX_1,
506: X_CLOSED_IND in VARCHAR2,
507: X_MODE in VARCHAR2 default 'R',
508: X_ORG_ID in NUMBER
509: ) as
510: cursor c1 is select rowid from IGS_PS_DSCP_HIST_ALL
511: where DISCIPLINE_GROUP_CD = X_DISCIPLINE_GROUP_CD
512: and HIST_START_DT = X_HIST_START_DT
513: ;
514: begin
557: begin
558: Before_DML( p_action => 'DELETE',
559: x_rowid => X_ROWID
560: );
561: delete from IGS_PS_DSCP_HIST_ALL
562: where ROWID = X_ROWID
563: ;
564: if (sql%notfound) then
565: raise no_data_found;