1: PACKAGE BODY igs_he_poous_ou_all_pkg AS
2: /* $Header: IGSWI19B.pls 120.1 2006/05/22 09:26:16 jchakrab noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_poous_ou_all%ROWTYPE;
1: PACKAGE BODY igs_he_poous_ou_all_pkg AS
2: /* $Header: IGSWI19B.pls 120.1 2006/05/22 09:26:16 jchakrab noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_poous_ou_all%ROWTYPE;
6: new_references igs_he_poous_ou_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSWI19B.pls 120.1 2006/05/22 09:26:16 jchakrab noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_he_poous_ou_all%ROWTYPE;
6: new_references igs_he_poous_ou_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
37: */
38:
39: CURSOR cur_old_ref_values IS
40: SELECT *
41: FROM IGS_HE_POOUS_OU_ALL
42: WHERE rowid = x_rowid;
43:
44: BEGIN
45:
252: || (reverse chronological order - newest change first)
253: */
254: CURSOR cur_rowid IS
255: SELECT rowid
256: FROM igs_he_poous_ou_all
257: WHERE hesa_poous_ou_id = x_hesa_poous_ou_id
258: FOR UPDATE NOWAIT;
259:
260: lv_rowid cur_rowid%RowType;
295: || (reverse chronological order - newest change first)
296: */
297: CURSOR cur_rowid IS
298: SELECT rowid
299: FROM igs_he_poous_ou_all
300: WHERE course_cd = x_course_cd
301: AND crv_version_number = x_crv_version_number
302: AND cal_type = x_cal_type
303: AND location_cd = x_location_cd
343: || (reverse chronological order - newest change first)
344: */
345: CURSOR cur_rowid IS
346: SELECT rowid
347: FROM igs_he_poous_ou_all
348: WHERE (attendance_mode = x_attendance_type) AND
349: (attendance_type = x_attendance_mode) AND
350: (cal_type = x_cal_type) AND
351: (course_cd = x_course_cd) AND
383: || (reverse chronological order - newest change first)
384: */
385: CURSOR cur_rowid IS
386: SELECT rowid
387: FROM igs_he_poous_ou_all
388: WHERE (unit_set_cd = x_unit_set_cd) AND
389: (us_version_number = x_us_version_number);
390: lv_rowid cur_rowid%RowType;
391:
422: (reverse chronological order - newest change first)
423: ***************************************************************/
424: CURSOR cur_rowid IS
425: SELECT rowid
426: FROM IGS_HE_POOUS_OU_ALL
427: WHERE COURSE_CD = x_course_cd
428: AND CRV_VERSION_NUMBER = x_version_number
429: AND CAL_TYPE = x_cal_type
430: AND UNIT_SET_CD = x_unit_set_cd
572: || (reverse chronological order - newest change first)
573: */
574: CURSOR c IS
575: SELECT rowid
576: FROM igs_he_poous_ou_all
577: WHERE hesa_poous_ou_id = x_hesa_poous_ou_id;
578:
579: x_last_update_date DATE;
580: x_last_updated_by NUMBER;
600: igs_ge_msg_stack.add;
601: app_exception.raise_exception;
602: END IF;
603:
604: SELECT igs_he_poous_ou_all_s.NEXTVAL
605: INTO x_hesa_poous_ou_id
606: FROM dual;
607:
608: before_dml(
626: x_last_updated_by => x_last_updated_by,
627: x_last_update_login => x_last_update_login
628: );
629:
630: INSERT INTO igs_he_poous_ou_all (
631: hesa_poous_ou_id,
632: org_id,
633: course_cd,
634: crv_version_number,
713: unit_set_cd,
714: us_version_number,
715: organization_unit,
716: proportion
717: FROM igs_he_poous_ou_all
718: WHERE rowid = x_rowid
719: FOR UPDATE NOWAIT;
720:
721: tlinfo c1%ROWTYPE;
830: x_last_updated_by => x_last_updated_by,
831: x_last_update_login => x_last_update_login
832: );
833:
834: UPDATE igs_he_poous_ou_all
835: SET
836: course_cd = new_references.course_cd,
837: crv_version_number = new_references.crv_version_number,
838: cal_type = new_references.cal_type,
881: || (reverse chronological order - newest change first)
882: */
883: CURSOR c1 IS
884: SELECT rowid
885: FROM igs_he_poous_ou_all
886: WHERE hesa_poous_ou_id = x_hesa_poous_ou_id;
887:
888: BEGIN
889:
950: p_action => 'DELETE',
951: x_rowid => x_rowid
952: );
953:
954: DELETE FROM igs_he_poous_ou_all
955: WHERE rowid = x_rowid;
956:
957: IF (SQL%NOTFOUND) THEN
958: RAISE NO_DATA_FOUND;
960:
961: END delete_row;
962:
963:
964: END igs_he_poous_ou_all_pkg;