1: PACKAGE BODY igs_uc_app_choices_pkg AS
2: /* $Header: IGSXI02B.pls 120.2 2005/07/03 18:49:54 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_app_choices%ROWTYPE;
1: PACKAGE BODY igs_uc_app_choices_pkg AS
2: /* $Header: IGSXI02B.pls 120.2 2005/07/03 18:49:54 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_app_choices%ROWTYPE;
6: new_references igs_uc_app_choices%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSXI02B.pls 120.2 2005/07/03 18:49:54 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_uc_app_choices%ROWTYPE;
6: new_references igs_uc_app_choices%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
83: */
84:
85: CURSOR cur_old_ref_values IS
86: SELECT *
87: FROM IGS_UC_APP_CHOICES
88: WHERE rowid = x_rowid;
89:
90: BEGIN
91:
191: || Who When What
192: || (reverse chronological order - newest change first)
193: */
194: BEGIN
195: igs_uc_app_cho_cnds_pkg.get_fk_igs_uc_app_choices(old_references.app_choice_id);
196:
197: END check_child_existance;
198:
199: PROCEDURE check_uniqueness AS
323: || (reverse chronological order - newest change first)
324: */
325: CURSOR cur_rowid IS
326: SELECT rowid
327: FROM igs_uc_app_choices
328: WHERE app_choice_id = x_app_choice_id ;
329:
330: lv_rowid cur_rowid%RowType;
331:
361: || (reverse chronological order - newest change first)
362: */
363: CURSOR cur_rowid IS
364: SELECT rowid
365: FROM igs_uc_app_choices
366: WHERE app_no = x_app_no
367: AND choice_no = x_choice_no
368: AND ucas_cycle = x_ucas_cycle
369: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
400: || message was replaced with IGS_UC_UCAPCH_UCAP_FK.
401: */
402: CURSOR cur_rowid IS
403: SELECT rowid
404: FROM igs_uc_app_choices
405: WHERE ((app_id = x_app_id));
406:
407: lv_rowid cur_rowid%RowType;
408:
438: || message was replaced with IGS_UC_UCAPCH_UCOC_FK
439: */
440: CURSOR cur_rowid IS
441: SELECT rowid
442: FROM igs_uc_app_choices
443: WHERE ((condition_category = x_condition_category) AND
444: (condition_code = x_condition_name));
445:
446: lv_rowid cur_rowid%RowType;
477: || (reverse chronological order - newest change first)
478: */
479: CURSOR cur_rowid IS
480: SELECT rowid
481: FROM igs_uc_app_choices
482: WHERE ((ucas_program_code = x_ucas_program_code) AND
483: (institute_code = x_institute_code) AND
484: (campus = x_campus) AND
485: (system_code = x_system_code));
762: || (reverse chronological order - newest change first)
763: */
764: CURSOR c IS
765: SELECT rowid
766: FROM igs_uc_app_choices
767: WHERE app_choice_id = x_app_choice_id;
768:
769: x_last_update_date DATE;
770: x_last_updated_by NUMBER;
790: igs_ge_msg_stack.add;
791: app_exception.raise_exception;
792: END IF;
793:
794: SELECT igs_uc_app_choices_s.NEXTVAL
795: INTO x_app_choice_id
796: FROM dual;
797:
798: before_dml(
864:
865: IF (x_mode = 'S') THEN
866: igs_sc_gen_001.set_ctx('R');
867: END IF;
868: INSERT INTO igs_uc_app_choices (
869: app_choice_id,
870: app_id,
871: app_no,
872: choice_no,
1152: modular,
1153: residential,
1154: -- smaddali added new column for ucfd203 - bug#2669208
1155: ucas_cycle
1156: FROM igs_uc_app_choices
1157: WHERE rowid = x_rowid
1158: FOR UPDATE NOWAIT;
1159:
1160: tlinfo c1%ROWTYPE;
1409:
1410: IF (x_mode = 'S') THEN
1411: igs_sc_gen_001.set_ctx('R');
1412: END IF;
1413: UPDATE igs_uc_app_choices
1414: SET
1415: app_id = new_references.app_id,
1416: app_no = new_references.app_no,
1417: choice_no = new_references.choice_no,
1574: || (reverse chronological order - newest change first)
1575: */
1576: CURSOR c1 IS
1577: SELECT rowid
1578: FROM igs_uc_app_choices
1579: WHERE app_choice_id = x_app_choice_id;
1580:
1581: BEGIN
1582:
1737:
1738: IF (x_mode = 'S') THEN
1739: igs_sc_gen_001.set_ctx('R');
1740: END IF;
1741: DELETE FROM igs_uc_app_choices
1742: WHERE rowid = x_rowid;
1743:
1744: IF (SQL%NOTFOUND) THEN
1745: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1754:
1755: END delete_row;
1756:
1757:
1758: END igs_uc_app_choices_pkg;