1: PACKAGE BODY igs_as_anon_id_us_pkg AS
2: /* $Header: IGSDI62B.pls 115.2 2003/05/20 05:20:48 svanukur noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_anon_id_us%ROWTYPE;
1: PACKAGE BODY igs_as_anon_id_us_pkg AS
2: /* $Header: IGSDI62B.pls 115.2 2003/05/20 05:20:48 svanukur noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_anon_id_us%ROWTYPE;
6: new_references igs_as_anon_id_us%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSDI62B.pls 115.2 2003/05/20 05:20:48 svanukur noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_as_anon_id_us%ROWTYPE;
6: new_references igs_as_anon_id_us%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
35: */
36:
37: CURSOR cur_old_ref_values IS
38: SELECT *
39: FROM igs_as_anon_id_us
40: WHERE rowid = x_rowid;
41:
42: BEGIN
43:
97: || (reverse chronological order - newest change first)
98: */
99: CURSOR cur_rowid IS
100: SELECT rowid
101: FROM igs_as_anon_id_us
102: WHERE anonymous_id = x_anonymous_id
103: AND load_cal_type = x_load_cal_type
104: AND load_ci_sequence_number = x_load_ci_sequence_number
105: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
235: ||svanukur 29-APR-03 changed the PK columns as part of MUS build # 2829262
236: */
237: CURSOR cur_rowid IS
238: SELECT rowid
239: FROM igs_as_anon_id_us
240: WHERE person_id = x_person_id
241: AND course_cd = x_course_cd
242: AND uoo_id = x_uoo_id
243: FOR UPDATE NOWAIT;
273: || (reverse chronological order - newest change first)
274: */
275: CURSOR cur_rowid IS
276: SELECT rowid
277: FROM igs_as_anon_id_us
278: WHERE ((load_cal_type = x_cal_type) AND
279: (load_ci_sequence_number = x_sequence_number));
280:
281: lv_rowid cur_rowid%RowType;
312: ||svanukur 29-APR-03 changed the FK columns as part of MUS build # 2829262
313: */
314: CURSOR cur_rowid IS
315: SELECT rowid
316: FROM igs_as_anon_id_us
317: WHERE ((course_cd = x_course_cd) AND
318: (person_id = x_person_id) AND
319: (uoo_id = x_uoo_id));
320:
350: || (reverse chronological order - newest change first)
351: */
352: CURSOR cur_rowid IS
353: SELECT rowid
354: FROM igs_as_anon_id_us
355: WHERE ((course_cd = x_course_cd) AND
356: (person_id = x_person_id));
357:
358: lv_rowid cur_rowid%RowType;
386: || (reverse chronological order - newest change first)
387: */
388: CURSOR cur_rowid IS
389: SELECT rowid
390: FROM igs_as_anon_id_us
391: WHERE ((uoo_id = x_uoo_id));
392:
393: lv_rowid cur_rowid%RowType;
394:
519: || (reverse chronological order - newest change first)
520: */
521: CURSOR c IS
522: SELECT rowid
523: FROM igs_as_anon_id_us
524: WHERE person_id = x_person_id
525: AND course_cd = x_course_cd
526: AND uoo_id = x_uoo_id;
527:
586: x_last_updated_by => x_last_updated_by,
587: x_last_update_login => x_last_update_login
588: );
589:
590: INSERT INTO igs_as_anon_id_us (
591: person_id,
592: anonymous_id,
593: system_generated_ind,
594: course_cd,
668: system_generated_ind,
669: uoo_id,
670: load_cal_type,
671: load_ci_sequence_number
672: FROM igs_as_anon_id_us
673: WHERE rowid = x_rowid
674: FOR UPDATE NOWAIT;
675:
676: tlinfo c1%ROWTYPE;
792: x_program_update_date := SYSDATE;
793: END IF;
794: END IF;
795:
796: UPDATE igs_as_anon_id_us
797: SET
798: anonymous_id = new_references.anonymous_id,
799: system_generated_ind = new_references.system_generated_ind,
800: load_cal_type = new_references.load_cal_type,
839: || (reverse chronological order - newest change first)
840: */
841: CURSOR c1 IS
842: SELECT rowid
843: FROM igs_as_anon_id_us
844: WHERE person_id = x_person_id
845: AND course_cd = x_course_cd
846: AND uoo_id = x_uoo_id;
847:
907: p_action => 'DELETE',
908: x_rowid => x_rowid
909: );
910:
911: DELETE FROM igs_as_anon_id_us
912: WHERE rowid = x_rowid;
913:
914: IF (SQL%NOTFOUND) THEN
915: RAISE NO_DATA_FOUND;
917:
918: END delete_row;
919:
920:
921: END igs_as_anon_id_us_pkg;