1: package body IGS_RE_CDT_HIST_PKG as
2: /* $Header: IGSRI05B.pls 115.5 2002/11/29 03:32:20 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_RE_CDT_HIST_ALL%RowType;
5: new_references IGS_RE_CDT_HIST_ALL%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
1: package body IGS_RE_CDT_HIST_PKG as
2: /* $Header: IGSRI05B.pls 115.5 2002/11/29 03:32:20 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_RE_CDT_HIST_ALL%RowType;
5: new_references IGS_RE_CDT_HIST_ALL%RowType;
6: PROCEDURE Set_Column_Values (
7: p_action IN VARCHAR2,
8: x_rowid IN VARCHAR2 DEFAULT NULL,
9: x_person_id IN NUMBER DEFAULT NULL,
29: x_org_id in NUMBER DEFAULT NULL
30: ) AS
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_RE_CDT_HIST_ALL
34: WHERE rowid = x_rowid;
35: BEGIN
36: l_rowid := x_rowid;
37: -- Code for setting the Old and New Reference Values.
144: ) RETURN BOOLEAN
145: AS
146: CURSOR cur_rowid IS
147: SELECT rowid
148: FROM IGS_RE_CDT_HIST_ALL
149: WHERE person_id = x_person_id
150: AND sequence_number = x_sequence_number
151: AND hist_start_dt = x_hist_start_dt
152: FOR UPDATE NOWAIT;
263: X_INDUSTRY_LINKS in VARCHAR2,
264: X_MODE in VARCHAR2 default 'R',
265: X_ORG_ID IN NUMBER
266: ) as
267: cursor C is select ROWID from IGS_RE_CDT_HIST_ALL
268: where PERSON_ID = X_PERSON_ID
269: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
270: and HIST_START_DT = X_HIST_START_DT;
271: X_LAST_UPDATE_DATE DATE;
314: x_last_update_date => X_LAST_UPDATE_DATE,
315: x_last_update_login => X_LAST_UPDATE_LOGIN,
316: x_org_id => igs_ge_gen_003.get_org_id
317: );
318: insert into IGS_RE_CDT_HIST_ALL (
319: PERSON_ID,
320: SEQUENCE_NUMBER,
321: HIST_START_DT,
322: HIST_END_DT,
398: MAX_SUBMISSION_DT,
399: MIN_SUBMISSION_DT,
400: RESEARCH_TOPIC,
401: INDUSTRY_LINKS
402: from IGS_RE_CDT_HIST_ALL
403: where ROWID = X_ROWID
404: for update nowait;
405: tlinfo c1%rowtype;
406: begin
517: x_last_updated_by => X_LAST_UPDATED_BY,
518: x_last_update_date => X_LAST_UPDATE_DATE,
519: x_last_update_login => X_LAST_UPDATE_LOGIN
520: );
521: update IGS_RE_CDT_HIST_ALL set
522: HIST_END_DT = NEW_REFERENCES.HIST_END_DT,
523: HIST_WHO = NEW_REFERENCES.HIST_WHO,
524: SCA_COURSE_CD = NEW_REFERENCES.SCA_COURSE_CD,
525: ACAI_ADMISSION_APPL_NUMBER = NEW_REFERENCES.ACAI_ADMISSION_APPL_NUMBER,
558: X_INDUSTRY_LINKS in VARCHAR2,
559: X_MODE in VARCHAR2 default 'R',
560: X_ORG_ID in NUMBER
561: ) as
562: cursor c1 is select rowid from IGS_RE_CDT_HIST_ALL
563: where PERSON_ID = X_PERSON_ID
564: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
565: and HIST_START_DT = X_HIST_START_DT
566: ;
617: Before_DML (
618: p_action => 'DELETE',
619: x_rowid => X_ROWID
620: );
621: delete from IGS_RE_CDT_HIST_ALL
622: where ROWID = X_ROWID;
623: if (sql%notfound) then
624: raise no_data_found;
625: end if;