1: package body IGS_PE_STD_TODO_REF_PKG AS
2: /* $Header: IGSNI37B.pls 120.0 2005/06/01 19:04:50 appldev noship $ */
3:
4:
5: l_rowid VARCHAR2(25);
3:
4:
5: l_rowid VARCHAR2(25);
6:
7: old_references IGS_PE_STD_TODO_REF%RowType;
8:
9: new_references IGS_PE_STD_TODO_REF%RowType;
10:
11:
5: l_rowid VARCHAR2(25);
6:
7: old_references IGS_PE_STD_TODO_REF%RowType;
8:
9: new_references IGS_PE_STD_TODO_REF%RowType;
10:
11:
12:
13: PROCEDURE Set_Column_Values (
55: CURSOR cur_old_ref_values IS
56:
57: SELECT *
58:
59: FROM IGS_PE_STD_TODO_REF
60:
61: WHERE rowid = x_rowid;
62:
63:
271: CURSOR cur_rowid IS
272:
273: SELECT rowid
274:
275: FROM IGS_PE_STD_TODO_REF
276:
277: WHERE person_id = x_person_id
278:
279: AND s_student_todo_type = x_s_student_todo_type
319: CURSOR cur_rowid IS
320:
321: SELECT rowid
322:
323: FROM IGS_PE_STD_TODO_REF
324:
325: WHERE person_id = x_person_id
326:
327: AND s_student_todo_type = x_s_student_todo_type
557: X_LOGICAL_DELETE_DT in DATE,
558: X_MODE in VARCHAR2 default 'R',
559: X_UOO_ID in NUMBER
560: ) AS
561: cursor C is select ROWID from IGS_PE_STD_TODO_REF
562: where PERSON_ID = X_PERSON_ID
563: and S_STUDENT_TODO_TYPE = X_S_STUDENT_TODO_TYPE
564: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
565: and REFERENCE_NUMBER = X_REFERENCE_NUMBER;
662: );
663:
664:
665:
666: insert into IGS_PE_STD_TODO_REF (
667: PERSON_ID,
668: S_STUDENT_TODO_TYPE,
669: SEQUENCE_NUMBER,
670: REFERENCE_NUMBER,
762: UNIT_CD,
763: OTHER_REFERENCE,
764: LOGICAL_DELETE_DT,
765: UOO_ID
766: from IGS_PE_STD_TODO_REF
767: where ROWID = X_ROWID
768: for update nowait;
769: tlinfo c1%rowtype;
770:
940: end if;
941:
942:
943:
944: update IGS_PE_STD_TODO_REF set
945: CAL_TYPE = NEW_REFERENCES.CAL_TYPE,
946: CI_SEQUENCE_NUMBER = NEW_REFERENCES.CI_SEQUENCE_NUMBER,
947: COURSE_CD = NEW_REFERENCES.COURSE_CD,
948: UNIT_CD = NEW_REFERENCES.UNIT_CD,
993: X_LOGICAL_DELETE_DT in DATE,
994: X_MODE in VARCHAR2 default 'R',
995: X_UOO_ID in NUMBER
996: ) AS
997: cursor c1 is select rowid from IGS_PE_STD_TODO_REF
998: where PERSON_ID = X_PERSON_ID
999: and S_STUDENT_TODO_TYPE = X_S_STUDENT_TODO_TYPE
1000: and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER
1001: and REFERENCE_NUMBER = X_REFERENCE_NUMBER
1055:
1056: );
1057:
1058:
1059: delete from IGS_PE_STD_TODO_REF
1060: where ROWID = X_ROWID;
1061: if (sql%notfound) then
1062: raise no_data_found;
1063: end if;
1072:
1073: );
1074: end DELETE_ROW;
1075:
1076: end IGS_PE_STD_TODO_REF_PKG;