[Home] [Help]
1: PACKAGE BODY igs_co_ou_co_ref_pkg AS
2: /* $Header: IGSLI15B.pls 115.8 2002/11/29 01:06:06 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_ou_co_ref_all%ROWTYPE;
6: new_references igs_co_ou_co_ref_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSLI15B.pls 115.8 2002/11/29 01:06:06 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_co_ou_co_ref_all%ROWTYPE;
6: new_references igs_co_ou_co_ref_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
39: */
40:
41: CURSOR cur_old_ref_values IS
42: SELECT *
43: FROM IGS_CO_OU_CO_REF_ALL
44: WHERE rowid = x_rowid;
45:
46: BEGIN
47:
240: || (reverse chronological order - newest change first)
241: */
242: CURSOR cur_rowid IS
243: SELECT rowid
244: FROM igs_co_ou_co_ref_all
245: WHERE person_id = x_person_id
246: AND correspondence_type = x_correspondence_type
247: AND reference_number = x_reference_number
248: AND issue_dt = x_issue_dt
280: || (reverse chronological order - newest change first)
281: */
282: CURSOR cur_rowid IS
283: SELECT rowid
284: FROM igs_co_ou_co_ref_all
285: WHERE ((cal_type = x_cal_type) AND
286: (ci_sequence_number = x_sequence_number));
287:
288: lv_rowid cur_rowid%RowType;
317: || (reverse chronological order - newest change first)
318: */
319: CURSOR cur_rowid IS
320: SELECT rowid
321: FROM igs_co_ou_co_ref_all
322: WHERE ((unit_cd = x_unit_cd) AND
323: (uv_version_number = x_version_number));
324:
325: lv_rowid cur_rowid%RowType;
354: || (reverse chronological order - newest change first)
355: */
356: CURSOR cur_rowid IS
357: SELECT rowid
358: FROM igs_co_ou_co_ref_all
359: WHERE ((course_cd = x_course_cd) AND
360: (cv_version_number = x_version_number));
361:
362: lv_rowid cur_rowid%RowType;
393: || (reverse chronological order - newest change first)
394: */
395: CURSOR cur_rowid IS
396: SELECT rowid
397: FROM igs_co_ou_co_ref_all
398: WHERE ((person_id = x_person_id) AND
399: (correspondence_type = x_correspondence_type) AND
400: (reference_number = x_reference_number) AND
401: (issue_dt = x_issue_dt));
547: || (reverse chronological order - newest change first)
548: */
549: CURSOR c IS
550: SELECT rowid
551: FROM igs_co_ou_co_ref_all
552: WHERE person_id = x_person_id
553: AND correspondence_type = x_correspondence_type
554: AND reference_number = x_reference_number
555: AND issue_dt = new_references.issue_dt
619: x_last_updated_by => x_last_updated_by,
620: x_last_update_login => x_last_update_login
621: );
622:
623: INSERT INTO igs_co_ou_co_ref_all (
624: org_id,
625: person_id,
626: correspondence_type,
627: reference_number,
715: unit_cd,
716: uv_version_number,
717: s_other_reference_type,
718: other_reference
719: FROM igs_co_ou_co_ref_all
720: WHERE rowid = x_rowid
721: FOR UPDATE NOWAIT;
722:
723: tlinfo c1%ROWTYPE;
848: x_program_update_date := SYSDATE;
849: END IF;
850: END IF;
851:
852: UPDATE igs_co_ou_co_ref_all
853: SET
854: cal_type = new_references.cal_type,
855: ci_sequence_number = new_references.ci_sequence_number,
856: course_cd = new_references.course_cd,
903: || (reverse chronological order - newest change first)
904: */
905: CURSOR c1 IS
906: SELECT rowid
907: FROM igs_co_ou_co_ref_all
908: WHERE person_id = x_person_id
909: AND correspondence_type = x_correspondence_type
910: AND reference_number = x_reference_number
911: AND issue_dt = NVL (x_issue_dt,SYSDATE)
979: p_action => 'DELETE',
980: x_rowid => x_rowid
981: );
982:
983: DELETE FROM igs_co_ou_co_ref_all
984: WHERE rowid = x_rowid;
985:
986: IF (SQL%NOTFOUND) THEN
987: RAISE NO_DATA_FOUND;