9: --smadathi 24-AUG-2001 Bug No. 1956374 .The call to igs_re_val_the.genp_val_sdtt_sess
10: -- is changed to igs_as_val_suaap.genp_val_sdtt_sess
11: -------------------------------------------------------------------------------------------
12: l_rowid VARCHAR2(25);
13: old_references IGS_RE_THESIS_ALL%RowType;
14: new_references IGS_RE_THESIS_ALL%RowType;
15: PROCEDURE Set_Column_Values (
16: p_action IN VARCHAR2,
17: x_rowid IN VARCHAR2,
10: -- is changed to igs_as_val_suaap.genp_val_sdtt_sess
11: -------------------------------------------------------------------------------------------
12: l_rowid VARCHAR2(25);
13: old_references IGS_RE_THESIS_ALL%RowType;
14: new_references IGS_RE_THESIS_ALL%RowType;
15: PROCEDURE Set_Column_Values (
16: p_action IN VARCHAR2,
17: x_rowid IN VARCHAR2,
18: x_person_id IN NUMBER,
41: x_org_id IN NUMBER
42: ) AS
43: CURSOR cur_old_ref_values IS
44: SELECT *
45: FROM IGS_RE_THESIS_ALL
46: WHERE rowid = x_rowid;
47: BEGIN
48: l_rowid := x_rowid;
49: -- Code for setting the Old and New Reference Values.
469: x_sequence_number IN NUMBER
470: ) RETURN BOOLEAN AS
471: CURSOR cur_rowid IS
472: SELECT rowid
473: FROM IGS_RE_THESIS_ALL
474: WHERE person_id = x_person_id
475: AND ca_sequence_number = x_ca_sequence_number
476: AND sequence_number = x_sequence_number
477: FOR UPDATE NOWAIT;
492: x_sequence_number IN NUMBER
493: ) AS
494: CURSOR cur_rowid IS
495: SELECT rowid
496: FROM IGS_RE_THESIS_ALL
497: WHERE person_id = x_person_id
498: AND ca_sequence_number = x_sequence_number ;
499: lv_rowid cur_rowid%RowType;
500: BEGIN
513: x_thesis_result_cd IN VARCHAR2
514: ) AS
515: CURSOR cur_rowid IS
516: SELECT rowid
517: FROM IGS_RE_THESIS_ALL
518: WHERE thesis_result_cd = x_thesis_result_cd ;
519: lv_rowid cur_rowid%RowType;
520: BEGIN
521: Open cur_rowid;
675: X_COMMENTS in VARCHAR2,
676: X_MODE in VARCHAR2 ,
677: X_ORG_ID in NUMBER
678: ) as
679: cursor C is select ROWID from IGS_RE_THESIS_ALL
680: where PERSON_ID = X_PERSON_ID
681: and CA_SEQUENCE_NUMBER = X_CA_SEQUENCE_NUMBER
682: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER;
683: X_LAST_UPDATE_DATE DATE;
732: );
733: IF (x_mode = 'S') THEN
734: igs_sc_gen_001.set_ctx('R');
735: END IF;
736: insert into IGS_RE_THESIS_ALL (
737: PERSON_ID,
738: CA_SEQUENCE_NUMBER,
739: SEQUENCE_NUMBER,
740: TITLE,
852: EMBARGO_DETAILS,
853: THESIS_TOPIC,
854: CITATION,
855: COMMENTS
856: from IGS_RE_THESIS_ALL
857: where ROWID = X_ROWID
858: for update nowait;
859: tlinfo c1%rowtype;
860: begin
990: );
991: IF (x_mode = 'S') THEN
992: igs_sc_gen_001.set_ctx('R');
993: END IF;
994: update IGS_RE_THESIS_ALL set
995: TITLE = NEW_REFERENCES.TITLE,
996: FINAL_TITLE_IND = NEW_REFERENCES.FINAL_TITLE_IND,
997: SHORT_TITLE = NEW_REFERENCES.SHORT_TITLE,
998: ABBREVIATED_TITLE = NEW_REFERENCES.ABBREVIATED_TITLE,
1062: X_COMMENTS in VARCHAR2,
1063: X_MODE in VARCHAR2 ,
1064: X_ORG_ID in NUMBER
1065: ) as
1066: cursor c1 is select rowid from IGS_RE_THESIS_ALL
1067: where PERSON_ID = X_PERSON_ID
1068: and CA_SEQUENCE_NUMBER = X_CA_SEQUENCE_NUMBER
1069: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
1070: ;
1131: );
1132: IF (x_mode = 'S') THEN
1133: igs_sc_gen_001.set_ctx('R');
1134: END IF;
1135: delete from IGS_RE_THESIS_ALL
1136: where ROWID = X_ROWID;
1137: if (sql%notfound) then
1138: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1139: igs_ge_msg_stack.add;