1: package body IGS_ST_GVT_SPSHT_CHG_PKG as
2: /* $Header: IGSVI07B.pls 115.3 2002/11/29 04:32:19 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_ST_GVT_SPSHT_CHG%RowType;
5: new_references IGS_ST_GVT_SPSHT_CHG%RowType;
1: package body IGS_ST_GVT_SPSHT_CHG_PKG as
2: /* $Header: IGSVI07B.pls 115.3 2002/11/29 04:32:19 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_ST_GVT_SPSHT_CHG%RowType;
5: new_references IGS_ST_GVT_SPSHT_CHG%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_ST_GVT_SPSHT_CHG_PKG as
2: /* $Header: IGSVI07B.pls 115.3 2002/11/29 04:32:19 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_ST_GVT_SPSHT_CHG%RowType;
5: new_references IGS_ST_GVT_SPSHT_CHG%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
45: ) as
46:
47: CURSOR cur_old_ref_values IS
48: SELECT *
49: FROM IGS_ST_GVT_SPSHT_CHG
50: WHERE rowid = x_rowid;
51:
52: BEGIN
53:
140: ) RETURN BOOLEAN as
141:
142: CURSOR cur_rowid IS
143: SELECT rowid
144: FROM IGS_ST_GVT_SPSHT_CHG
145: WHERE submission_yr = x_submission_yr
146: AND submission_number = x_submission_number
147: AND person_id = x_person_id
148: AND course_cd = x_course_cd
171: ) as
172:
173: CURSOR cur_rowid IS
174: SELECT rowid
175: FROM IGS_ST_GVT_SPSHT_CHG
176: WHERE submission_yr = x_submission_yr
177: AND submission_number = x_submission_number ;
178:
179: lv_rowid cur_rowid%RowType;
535: X_OLD_PRIOR_POST_GRAD in VARCHAR2,
536: X_REPORTED_IND in VARCHAR2,
537: X_MODE in VARCHAR2 default 'R'
538: ) as
539: cursor C is select ROWID from IGS_ST_GVT_SPSHT_CHG
540: where SUBMISSION_YR = X_SUBMISSION_YR
541: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
542: and PERSON_ID = X_PERSON_ID
543: and COURSE_CD = X_COURSE_CD
618: x_last_update_date => X_LAST_UPDATE_DATE,
619: x_last_updated_by => X_LAST_UPDATED_BY,
620: x_last_update_login => X_LAST_UPDATE_LOGIN
621: );
622: insert into IGS_ST_GVT_SPSHT_CHG (
623: SUBMISSION_YR,
624: SUBMISSION_NUMBER,
625: PERSON_ID,
626: COURSE_CD,
772: OLD_PERM_RESIDENT_CD,
773: OLD_PRIOR_DEGREE,
774: OLD_PRIOR_POST_GRAD,
775: REPORTED_IND
776: from IGS_ST_GVT_SPSHT_CHG
777: where ROWID = X_ROWID
778: for update nowait;
779: tlinfo c1%rowtype;
780:
983: else
984: X_PROGRAM_UPDATE_DATE := SYSDATE;
985: end if;
986: end if;
987: update IGS_ST_GVT_SPSHT_CHG set
988: VERSION_NUMBER = NEW_REFERENCES.VERSION_NUMBER,
989: CHANGED_UPDATE_WHO = NEW_REFERENCES.CHANGED_UPDATE_WHO,
990: CHANGED_UPDATE_ON = NEW_REFERENCES.CHANGED_UPDATE_ON,
991: GOVT_SEMESTER = NEW_REFERENCES.GOVT_SEMESTER,
1061: X_OLD_PRIOR_POST_GRAD in VARCHAR2,
1062: X_REPORTED_IND in VARCHAR2,
1063: X_MODE in VARCHAR2 default 'R'
1064: ) as
1065: cursor c1 is select rowid from IGS_ST_GVT_SPSHT_CHG
1066: where SUBMISSION_YR = X_SUBMISSION_YR
1067: and SUBMISSION_NUMBER = X_SUBMISSION_NUMBER
1068: and PERSON_ID = X_PERSON_ID
1069: and COURSE_CD = X_COURSE_CD
1152: Before_DML (
1153: p_action => 'DELETE',
1154: x_rowid => X_ROWID
1155: );
1156: delete from IGS_ST_GVT_SPSHT_CHG
1157: where ROWID = X_ROWID;
1158: if (sql%notfound) then
1159: raise no_data_found;
1160: end if;
1163: x_rowid => X_ROWID
1164: );
1165: end DELETE_ROW;
1166:
1167: end IGS_ST_GVT_SPSHT_CHG_PKG;