[Home] [Help]
211: PROCEDURE call_credits_api(p_n_person_id IN hz_parties.party_id%TYPE,
212: p_v_fee_cal_type IN igs_fi_f_typ_ca_inst.fee_cal_type%TYPE,
213: p_n_fee_ci_seq_number IN igs_fi_f_typ_ca_inst.fee_ci_sequence_number%TYPE,
214: p_v_waiver_name IN igs_fi_waiver_pgms.waiver_name%TYPE,
215: p_n_credit_type_id IN igs_fi_credits.credit_id%TYPE,
216: p_v_currency_cd IN igs_fi_control.currency_cd%TYPE,
217: p_n_waiver_amt IN NUMBER,
218: p_d_gl_date IN igs_fi_invln_int.gl_date%TYPE,
219: p_n_credit_id OUT NOCOPY NUMBER,
240: l_v_msg_name VARCHAR2(4000) := NULL;
241: l_n_msg_count NUMBER := 0;
242: l_v_msg_data VARCHAR2(4000) := NULL;
243: l_n_credit_activity_id igs_fi_cr_activities.credit_activity_id%TYPE;
244: l_n_credit_number igs_fi_credits_all.credit_number%TYPE;
245: l_cur_credit_type_desc cur_credit_type_desc%ROWTYPE;
246: l_credit_rec_type igs_fi_credit_pvt.credit_rec_type;
247: l_attribute_rec_type igs_fi_credits_api_pub.attribute_rec_type;
248: l_msg VARCHAR2(2000);
243: l_n_credit_activity_id igs_fi_cr_activities.credit_activity_id%TYPE;
244: l_n_credit_number igs_fi_credits_all.credit_number%TYPE;
245: l_cur_credit_type_desc cur_credit_type_desc%ROWTYPE;
246: l_credit_rec_type igs_fi_credit_pvt.credit_rec_type;
247: l_attribute_rec_type igs_fi_credits_api_pub.attribute_rec_type;
248: l_msg VARCHAR2(2000);
249: BEGIN
250:
251: IF ( p_n_person_id IS NULL OR p_v_fee_cal_type IS NULL OR p_n_fee_ci_seq_number IS NULL OR
422: END call_credits_api;
423:
424: PROCEDURE reverse_waiver(p_n_source_credit_id IN igs_fi_applications.credit_id%TYPE,
425: p_v_reversal_reason IN igs_lookup_values.lookup_code%TYPE,
426: p_v_reversal_comments IN igs_fi_credits_all.reversal_comments%TYPE,
427: p_d_reversal_gl_date IN DATE,
428: p_v_return_status OUT NOCOPY VARCHAR2,
429: p_v_message_name OUT NOCOPY VARCHAR2) AS
430: /******************************************************************
441: ******************************************************************/
442: --Cursor to Check whether the Waiver Credit Record Exists
443: CURSOR cur_credit_rec_exists(cp_n_source_credit_id NUMBER ) IS
444: SELECT crd.rowid,crd. *
445: FROM igs_fi_credits_all crd
446: WHERE crd.credit_id = cp_n_source_credit_id;
447:
448: ----Cursor to Check whether any application Records exists for the Waiver Credit Transaction
449: CURSOR cur_appl_record(cp_n_source_credit_id NUMBER) IS
494: l_n_dr_gl_ccid igs_fi_cr_activities.dr_gl_ccid%TYPE;
495: l_n_cr_gl_ccid igs_fi_cr_activities.cr_gl_ccid%TYPE;
496: l_v_dr_account_cd igs_fi_cr_activities.dr_account_cd%TYPE;
497: l_v_cr_account_cd igs_fi_cr_activities.cr_account_cd%TYPE;
498: l_n_unapp_amount igs_fi_credits_all.unapplied_amount%TYPE;
499: l_n_inv_amt_due igs_fi_inv_int_all.invoice_amount_due%TYPE;
500: l_v_err_msg fnd_new_messages.message_name%TYPE;
501: l_b_status BOOLEAN;
502: l_n_wav_adj_amount NUMBER;
676: END IF;
677: log_to_fnd(p_v_module => 'reverse_waiver',
678: p_v_string => 'Before the Callout to update the Credit api Table');
679: --Call out to update the credit status to Reversed.
680: igs_fi_credits_pkg.update_row(x_rowid => l_cur_credit_rec_exists.rowid,
681: x_credit_id => l_cur_credit_rec_exists.credit_id,
682: x_credit_number => l_cur_credit_rec_exists.credit_number,
683: x_status => 'REVERSED',
684: x_credit_source => l_cur_credit_rec_exists.credit_source,
770:
771: --Cursor to Check whether a waiver credit Record Exists
772: CURSOR cur_credit_rec_exists(cp_n_source_credit_id NUMBER ) IS
773: SELECT crd. *
774: FROM igs_fi_credits_all crd
775: WHERE crd.credit_id = cp_n_source_credit_id;
776: --Cursor to Check whether any application record exists for the waiver credit Transaction.
777: CURSOR cur_waiver_credit_tran_exists(cp_n_source_credit_id NUMBER ) IS
778: SELECT igs_fi_gen_007.get_sum_appl_amnt(appl.application_id) amount_applied,