1: PACKAGE BODY igs_fi_pp_std_attrs_pkg AS
2: /* $Header: IGSSIE0B.pls 120.1 2005/08/10 03:37:43 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_pp_std_attrs%ROWTYPE;
1: PACKAGE BODY igs_fi_pp_std_attrs_pkg AS
2: /* $Header: IGSSIE0B.pls 120.1 2005/08/10 03:37:43 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_pp_std_attrs%ROWTYPE;
6: new_references igs_fi_pp_std_attrs%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSIE0B.pls 120.1 2005/08/10 03:37:43 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_pp_std_attrs%ROWTYPE;
6: new_references igs_fi_pp_std_attrs%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
58: */
59:
60: CURSOR cur_old_ref_values IS
61: SELECT *
62: FROM igs_fi_pp_std_attrs
63: WHERE rowid = x_rowid;
64:
65: BEGIN
66:
240: || (reverse chronological order - newest change first)
241: */
242: BEGIN
243:
244: igs_fi_pp_instlmnts_pkg.get_fk_igs_fi_pp_std_attrs (
245: old_references.student_plan_id
246: );
247:
248: END check_child_existance;
246: );
247:
248: END check_child_existance;
249:
250: FUNCTION create_processing_charge( p_n_person_id igs_fi_pp_std_attrs.person_id%TYPE,
251: p_v_fee_type igs_fi_pp_std_attrs.processing_fee_type%TYPE,
252: p_v_fee_cal_type igs_fi_pp_std_attrs.fee_cal_type%TYPE,
253: p_n_fee_ci_sequence_number igs_fi_pp_std_attrs.fee_ci_sequence_number%TYPE,
254: p_n_amount igs_fi_pp_std_attrs.processing_fee_amt%TYPE,
247:
248: END check_child_existance;
249:
250: FUNCTION create_processing_charge( p_n_person_id igs_fi_pp_std_attrs.person_id%TYPE,
251: p_v_fee_type igs_fi_pp_std_attrs.processing_fee_type%TYPE,
252: p_v_fee_cal_type igs_fi_pp_std_attrs.fee_cal_type%TYPE,
253: p_n_fee_ci_sequence_number igs_fi_pp_std_attrs.fee_ci_sequence_number%TYPE,
254: p_n_amount igs_fi_pp_std_attrs.processing_fee_amt%TYPE,
255: p_v_plan_name igs_fi_pp_std_attrs.payment_plan_name%TYPE,
248: END check_child_existance;
249:
250: FUNCTION create_processing_charge( p_n_person_id igs_fi_pp_std_attrs.person_id%TYPE,
251: p_v_fee_type igs_fi_pp_std_attrs.processing_fee_type%TYPE,
252: p_v_fee_cal_type igs_fi_pp_std_attrs.fee_cal_type%TYPE,
253: p_n_fee_ci_sequence_number igs_fi_pp_std_attrs.fee_ci_sequence_number%TYPE,
254: p_n_amount igs_fi_pp_std_attrs.processing_fee_amt%TYPE,
255: p_v_plan_name igs_fi_pp_std_attrs.payment_plan_name%TYPE,
256: p_d_start_date igs_fi_pp_std_attrs.plan_start_date%TYPE ) RETURN NUMBER IS
249:
250: FUNCTION create_processing_charge( p_n_person_id igs_fi_pp_std_attrs.person_id%TYPE,
251: p_v_fee_type igs_fi_pp_std_attrs.processing_fee_type%TYPE,
252: p_v_fee_cal_type igs_fi_pp_std_attrs.fee_cal_type%TYPE,
253: p_n_fee_ci_sequence_number igs_fi_pp_std_attrs.fee_ci_sequence_number%TYPE,
254: p_n_amount igs_fi_pp_std_attrs.processing_fee_amt%TYPE,
255: p_v_plan_name igs_fi_pp_std_attrs.payment_plan_name%TYPE,
256: p_d_start_date igs_fi_pp_std_attrs.plan_start_date%TYPE ) RETURN NUMBER IS
257: /*
250: FUNCTION create_processing_charge( p_n_person_id igs_fi_pp_std_attrs.person_id%TYPE,
251: p_v_fee_type igs_fi_pp_std_attrs.processing_fee_type%TYPE,
252: p_v_fee_cal_type igs_fi_pp_std_attrs.fee_cal_type%TYPE,
253: p_n_fee_ci_sequence_number igs_fi_pp_std_attrs.fee_ci_sequence_number%TYPE,
254: p_n_amount igs_fi_pp_std_attrs.processing_fee_amt%TYPE,
255: p_v_plan_name igs_fi_pp_std_attrs.payment_plan_name%TYPE,
256: p_d_start_date igs_fi_pp_std_attrs.plan_start_date%TYPE ) RETURN NUMBER IS
257: /*
258: || Created By : shtatiko
251: p_v_fee_type igs_fi_pp_std_attrs.processing_fee_type%TYPE,
252: p_v_fee_cal_type igs_fi_pp_std_attrs.fee_cal_type%TYPE,
253: p_n_fee_ci_sequence_number igs_fi_pp_std_attrs.fee_ci_sequence_number%TYPE,
254: p_n_amount igs_fi_pp_std_attrs.processing_fee_amt%TYPE,
255: p_v_plan_name igs_fi_pp_std_attrs.payment_plan_name%TYPE,
256: p_d_start_date igs_fi_pp_std_attrs.plan_start_date%TYPE ) RETURN NUMBER IS
257: /*
258: || Created By : shtatiko
259: || Created On : 02-SEP-2003
252: p_v_fee_cal_type igs_fi_pp_std_attrs.fee_cal_type%TYPE,
253: p_n_fee_ci_sequence_number igs_fi_pp_std_attrs.fee_ci_sequence_number%TYPE,
254: p_n_amount igs_fi_pp_std_attrs.processing_fee_amt%TYPE,
255: p_v_plan_name igs_fi_pp_std_attrs.payment_plan_name%TYPE,
256: p_d_start_date igs_fi_pp_std_attrs.plan_start_date%TYPE ) RETURN NUMBER IS
257: /*
258: || Created By : shtatiko
259: || Created On : 02-SEP-2003
260: || Purpose : To create a charge for Processing Fee Amount.
399: || (reverse chronological order - newest change first)
400: */
401: CURSOR cur_rowid IS
402: SELECT rowid
403: FROM igs_fi_pp_std_attrs
404: WHERE student_plan_id = x_student_plan_id
405: FOR UPDATE NOWAIT;
406:
407: lv_rowid cur_rowid%RowType;
436: || (reverse chronological order - newest change first)
437: */
438: CURSOR cur_rowid IS
439: SELECT rowid
440: FROM igs_fi_pp_std_attrs
441: WHERE person_id = x_person_id
442: AND payment_plan_name = x_payment_plan_name
443: AND plan_start_date = x_plan_start_date
444: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
473: || (reverse chronological order - newest change first)
474: */
475: CURSOR cur_rowid IS
476: SELECT rowid
477: FROM igs_fi_pp_std_attrs
478: WHERE ((fee_cal_type = x_cal_type) AND
479: (fee_ci_sequence_number = x_sequence_number));
480:
481: lv_rowid cur_rowid%RowType;
757: x_program_update_date := SYSDATE;
758: END IF;
759: ELSE
760: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
761: fnd_message.set_token ('ROUTINE', 'IGS_FI_PP_STD_ATTRS_PKG.INSERT_ROW');
762: igs_ge_msg_stack.add;
763: app_exception.raise_exception;
764: END IF;
765:
807: x_last_updated_by => x_last_updated_by,
808: x_last_update_login => x_last_update_login
809: );
810:
811: INSERT INTO igs_fi_pp_std_attrs (
812: student_plan_id,
813: person_id,
814: payment_plan_name,
815: plan_start_date,
851: program_id,
852: program_application_id,
853: program_update_date
854: ) VALUES (
855: igs_fi_pp_std_attrs_s.NEXTVAL,
856: new_references.person_id,
857: new_references.payment_plan_name,
858: new_references.plan_start_date,
859: new_references.plan_end_date,
977: attribute17,
978: attribute18,
979: attribute19,
980: attribute20
981: FROM igs_fi_pp_std_attrs
982: WHERE rowid = x_rowid
983: FOR UPDATE NOWAIT;
984:
985: tlinfo c1%ROWTYPE;
1113: x_last_update_login := -1;
1114: END IF;
1115: ELSE
1116: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
1117: fnd_message.set_token ('ROUTINE', 'IGS_FI_PP_STD_ATTRS_PKG.UPDATE_ROW');
1118: igs_ge_msg_stack.add;
1119: app_exception.raise_exception;
1120: END IF;
1121:
1175: x_program_update_date := SYSDATE;
1176: END IF;
1177: END IF;
1178:
1179: UPDATE igs_fi_pp_std_attrs
1180: SET
1181: person_id = new_references.person_id,
1182: payment_plan_name = new_references.payment_plan_name,
1183: plan_start_date = new_references.plan_start_date,
1273: || (reverse chronological order - newest change first)
1274: */
1275: CURSOR c1 IS
1276: SELECT rowid
1277: FROM igs_fi_pp_std_attrs
1278: WHERE student_plan_id = x_student_plan_id;
1279:
1280: BEGIN
1281:
1384: p_action => 'DELETE',
1385: x_rowid => x_rowid
1386: );
1387:
1388: DELETE FROM igs_fi_pp_std_attrs
1389: WHERE rowid = x_rowid;
1390:
1391: IF (SQL%NOTFOUND) THEN
1392: RAISE NO_DATA_FOUND;
1394:
1395: END delete_row;
1396:
1397:
1398: END igs_fi_pp_std_attrs_pkg;