1: PACKAGE BODY IGS_EN_PLAN_UNITS_PKG AS
2: /* $Header: IGSEI79B.pls 120.2 2005/10/27 04:18:29 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_plan_units%ROWTYPE;
1: PACKAGE BODY IGS_EN_PLAN_UNITS_PKG AS
2: /* $Header: IGSEI79B.pls 120.2 2005/10/27 04:18:29 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_plan_units%ROWTYPE;
6: new_references igs_en_plan_units%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSEI79B.pls 120.2 2005/10/27 04:18:29 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_plan_units%ROWTYPE;
6: new_references igs_en_plan_units%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
39: */
40:
41: CURSOR cur_old_ref_values IS
42: SELECT *
43: FROM igs_en_plan_units
44: WHERE rowid = x_rowid;
45:
46: BEGIN
47:
167: || (reverse chronological order - newest change first)
168: */
169: CURSOR cur_rowid IS
170: SELECT rowid
171: FROM igs_en_plan_units
172: WHERE person_id = x_person_id
173: AND course_cd = x_course_cd
174: AND uoo_id = x_uoo_id
175: AND cart_error_flag = x_cart_error_flag
206: || (reverse chronological order - newest change first)
207: */
208: CURSOR cur_rowid IS
209: SELECT rowid
210: FROM igs_en_plan_units
211: WHERE ((course_cd = x_course_cd) AND
212: (person_id = x_person_id));
213:
214: lv_rowid cur_rowid%RowType;
246: || (reverse chronological order - newest change first)
247: */
248: CURSOR cur_rowid IS
249: SELECT rowid
250: FROM igs_en_plan_units
251: WHERE ((course_cd = x_program_cd) AND
252: (person_id = x_person_id) AND
253: (term_cal_type = x_term_cal_type) AND
254: (term_ci_sequence_number = x_term_sequence_number));
317: PROCEDURE After_DML (
318: p_action IN VARCHAR2,
319: x_rowid IN VARCHAR2
320: ) AS
321: CURSOR c_plan_rec_exists (cp_person_id IGS_EN_PLAN_UNITS.PERSON_ID%TYPE,
322: cp_course_cd IGS_EN_PLAN_UNITS.COURSE_CD%TYPE,
323: cp_term_cal_type IGS_EN_PLAN_UNITS.TERM_CAL_TYPE%TYPE,
324: cp_term_ci_sequence_number IGS_EN_PLAN_UNITS.TERM_CI_SEQUENCE_NUMBER%TYPE
325: )IS
318: p_action IN VARCHAR2,
319: x_rowid IN VARCHAR2
320: ) AS
321: CURSOR c_plan_rec_exists (cp_person_id IGS_EN_PLAN_UNITS.PERSON_ID%TYPE,
322: cp_course_cd IGS_EN_PLAN_UNITS.COURSE_CD%TYPE,
323: cp_term_cal_type IGS_EN_PLAN_UNITS.TERM_CAL_TYPE%TYPE,
324: cp_term_ci_sequence_number IGS_EN_PLAN_UNITS.TERM_CI_SEQUENCE_NUMBER%TYPE
325: )IS
326: SELECT UOO_ID FROM IGS_EN_PLAN_UNITS
319: x_rowid IN VARCHAR2
320: ) AS
321: CURSOR c_plan_rec_exists (cp_person_id IGS_EN_PLAN_UNITS.PERSON_ID%TYPE,
322: cp_course_cd IGS_EN_PLAN_UNITS.COURSE_CD%TYPE,
323: cp_term_cal_type IGS_EN_PLAN_UNITS.TERM_CAL_TYPE%TYPE,
324: cp_term_ci_sequence_number IGS_EN_PLAN_UNITS.TERM_CI_SEQUENCE_NUMBER%TYPE
325: )IS
326: SELECT UOO_ID FROM IGS_EN_PLAN_UNITS
327: WHERE PERSON_ID= cp_person_id
320: ) AS
321: CURSOR c_plan_rec_exists (cp_person_id IGS_EN_PLAN_UNITS.PERSON_ID%TYPE,
322: cp_course_cd IGS_EN_PLAN_UNITS.COURSE_CD%TYPE,
323: cp_term_cal_type IGS_EN_PLAN_UNITS.TERM_CAL_TYPE%TYPE,
324: cp_term_ci_sequence_number IGS_EN_PLAN_UNITS.TERM_CI_SEQUENCE_NUMBER%TYPE
325: )IS
326: SELECT UOO_ID FROM IGS_EN_PLAN_UNITS
327: WHERE PERSON_ID= cp_person_id
328: AND COURSE_CD = cp_course_Cd
322: cp_course_cd IGS_EN_PLAN_UNITS.COURSE_CD%TYPE,
323: cp_term_cal_type IGS_EN_PLAN_UNITS.TERM_CAL_TYPE%TYPE,
324: cp_term_ci_sequence_number IGS_EN_PLAN_UNITS.TERM_CI_SEQUENCE_NUMBER%TYPE
325: )IS
326: SELECT UOO_ID FROM IGS_EN_PLAN_UNITS
327: WHERE PERSON_ID= cp_person_id
328: AND COURSE_CD = cp_course_Cd
329: AND TERM_CAL_TYPE = cp_term_cal_type
330: AND TERM_CI_SEQUENCE_NUMBER =cp_term_ci_sequence_number
329: AND TERM_CAL_TYPE = cp_term_cal_type
330: AND TERM_CI_SEQUENCE_NUMBER =cp_term_ci_sequence_number
331: AND CART_ERROR_FLAG ='N';
332:
333: l_dummy IGS_EN_PLAN_UNITS.UOO_ID%TYPE;
334: l_message_name VARCHAR2(30);
335: BEGIN
336:
337: IF p_action = 'DELETE' THEN
526: x_last_update_login := -1;
527: END IF;
528: ELSE
529: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
530: fnd_message.set_token ('ROUTINE', 'IGS_EN_PLAN_UNITS_PKG.INSERT_ROW');
531: igs_ge_msg_stack.add;
532: app_exception.raise_exception;
533: END IF;
534:
555: x_last_updated_by => x_last_updated_by,
556: x_last_update_login => x_last_update_login
557: );
558:
559: INSERT INTO igs_en_plan_units (
560: person_id,
561: course_cd,
562: uoo_id,
563: term_cal_type,
638: gs_version_number,
639: core_indicator_code,
640: alternative_title,
641: session_id
642: FROM igs_en_plan_units
643: WHERE rowid = x_rowid
644: FOR UPDATE NOWAIT;
645:
646: tlinfo c1%ROWTYPE;
729: x_last_update_login := -1;
730: END IF;
731: ELSE
732: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
733: fnd_message.set_token ('ROUTINE', 'IGS_EN_PLAN_UNITS_PKG.UPDATE_ROW');
734: igs_ge_msg_stack.add;
735: app_exception.raise_exception;
736: END IF;
737:
758: x_last_updated_by => x_last_updated_by,
759: x_last_update_login => x_last_update_login
760: );
761:
762: UPDATE igs_en_plan_units
763: SET
764: term_cal_type = new_references.term_cal_type,
765: term_ci_sequence_number = new_references.term_ci_sequence_number,
766: no_assessment_ind = new_references.no_assessment_ind,
811: || (reverse chronological order - newest change first)
812: */
813: CURSOR c1 IS
814: SELECT rowid
815: FROM igs_en_plan_units
816: WHERE person_id = x_person_id
817: AND course_cd = x_course_cd
818: AND uoo_id = x_uoo_id
819: AND cart_error_flag = x_cart_error_flag;
887: p_action => 'DELETE',
888: x_rowid => x_rowid
889: );
890:
891: DELETE FROM igs_en_plan_units
892: WHERE rowid = x_rowid;
893:
894: IF (SQL%NOTFOUND) THEN
895: RAISE NO_DATA_FOUND;
903:
904: END delete_row;
905:
906:
907: END igs_en_plan_units_pkg;