1: PACKAGE BODY igs_as_anon_id_ps_pkg AS
2: /* $Header: IGSDI64B.pls 115.1 2002/11/28 23:27:01 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_anon_id_ps%ROWTYPE;
1: PACKAGE BODY igs_as_anon_id_ps_pkg AS
2: /* $Header: IGSDI64B.pls 115.1 2002/11/28 23:27:01 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_anon_id_ps%ROWTYPE;
6: new_references igs_as_anon_id_ps%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI64B.pls 115.1 2002/11/28 23:27:01 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_anon_id_ps%ROWTYPE;
6: new_references igs_as_anon_id_ps%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igs_as_anon_id_ps
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
83: || (reverse chronological order - newest change first)
84: */
85: CURSOR cur_rowid IS
86: SELECT rowid
87: FROM igs_as_anon_id_ps
88: WHERE anonymous_id = x_anonymous_id
89: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
90:
91: lv_rowid cur_rowid%RowType;
171: || (reverse chronological order - newest change first)
172: */
173: CURSOR cur_rowid IS
174: SELECT rowid
175: FROM igs_as_anon_id_ps
176: WHERE person_id = x_person_id
177: AND course_cd = x_course_cd
178: FOR UPDATE NOWAIT;
179:
209: || (reverse chronological order - newest change first)
210: */
211: CURSOR cur_rowid IS
212: SELECT rowid
213: FROM igs_as_anon_id_ps
214: WHERE ((course_cd = x_course_cd) AND
215: (person_id = x_person_id));
216:
217: lv_rowid cur_rowid%RowType;
325: || (reverse chronological order - newest change first)
326: */
327: CURSOR c IS
328: SELECT rowid
329: FROM igs_as_anon_id_ps
330: WHERE person_id = x_person_id
331: AND course_cd = x_course_cd;
332:
333: x_last_update_date DATE;
384: x_last_updated_by => x_last_updated_by,
385: x_last_update_login => x_last_update_login
386: );
387:
388: INSERT INTO igs_as_anon_id_ps (
389: person_id,
390: anonymous_id,
391: system_generated_ind,
392: course_cd,
445: CURSOR c1 IS
446: SELECT
447: anonymous_id,
448: system_generated_ind
449: FROM igs_as_anon_id_ps
450: WHERE rowid = x_rowid
451: FOR UPDATE NOWAIT;
452:
453: tlinfo c1%ROWTYPE;
554: x_program_update_date := SYSDATE;
555: END IF;
556: END IF;
557:
558: UPDATE igs_as_anon_id_ps
559: SET
560: anonymous_id = new_references.anonymous_id,
561: system_generated_ind = new_references.system_generated_ind,
562: last_update_date = x_last_update_date,
593: || (reverse chronological order - newest change first)
594: */
595: CURSOR c1 IS
596: SELECT rowid
597: FROM igs_as_anon_id_ps
598: WHERE person_id = x_person_id
599: AND course_cd = x_course_cd;
600:
601: BEGIN
647: p_action => 'DELETE',
648: x_rowid => x_rowid
649: );
650:
651: DELETE FROM igs_as_anon_id_ps
652: WHERE rowid = x_rowid;
653:
654: IF (SQL%NOTFOUND) THEN
655: RAISE NO_DATA_FOUND;
657:
658: END delete_row;
659:
660:
661: END igs_as_anon_id_ps_pkg;