[Home] [Help]
148: Change History
149: Who When What
150: akandreg 17-May-2006 Bug 5134636: Removed commit for each application record
151: smadathi 20-NOV-2002 Enh. Bug 2584986. Added new parameter GL Date to procedure. Added cursors
152: c_igs_fi_invln_int and c_igs_fi_credits to obtain the charge and credit
153: GL Dates.
154: vvutukur 26-apr-2002 fnd_file.put_line is changed to lower case and fnd_file.new_line is used
155: instead of writing null string by fnd_file.put_line.bug#2326163.
156: vvutukur 22-apr-2002 Removed the code showing log horizontally. Modified to show numbers and
162: SELECT invoice_number
163: FROM igs_fi_inv_int
164: WHERE invoice_id = cp_invoice_id;
165:
166: CURSOR c_igs_fi_invln_int(cp_n_invoice_id igs_fi_inv_int.invoice_id%TYPE) IS
167: SELECT gl_date
168: FROM igs_fi_invln_int
169: WHERE invoice_id = cp_n_invoice_id;
170:
164: WHERE invoice_id = cp_invoice_id;
165:
166: CURSOR c_igs_fi_invln_int(cp_n_invoice_id igs_fi_inv_int.invoice_id%TYPE) IS
167: SELECT gl_date
168: FROM igs_fi_invln_int
169: WHERE invoice_id = cp_n_invoice_id;
170:
171: CURSOR c_igs_fi_credits(cp_n_credit_id igs_fi_credits.credit_id%TYPE) IS
172: SELECT gl_date
172: SELECT gl_date
173: FROM igs_fi_credits
174: WHERE credit_id = cp_n_credit_id;
175:
176: rec_c_igs_fi_invln_int c_igs_fi_invln_int%ROWTYPE;
177: rec_c_igs_fi_credits c_igs_fi_credits%ROWTYPE;
178:
179: l_invoice_number igs_fi_inv_int.invoice_number%TYPE;
180: l_dr_ccid_str VARCHAR2(230);
226: /*Success **/
227: -- if the generic applications procedure to create application returns the message IGS_FI_CHG_CRD_GL_DATE
228: -- log this message and proceed.
229: IF l_v_app_error_message = 'IGS_FI_CHG_CRD_GL_DATE' THEN
230: OPEN c_igs_fi_invln_int(p_invoice_id);
231: FETCH c_igs_fi_invln_int INTO rec_c_igs_fi_invln_int;
232: CLOSE c_igs_fi_invln_int;
233:
234: OPEN c_igs_fi_credits(p_credit_id);
227: -- if the generic applications procedure to create application returns the message IGS_FI_CHG_CRD_GL_DATE
228: -- log this message and proceed.
229: IF l_v_app_error_message = 'IGS_FI_CHG_CRD_GL_DATE' THEN
230: OPEN c_igs_fi_invln_int(p_invoice_id);
231: FETCH c_igs_fi_invln_int INTO rec_c_igs_fi_invln_int;
232: CLOSE c_igs_fi_invln_int;
233:
234: OPEN c_igs_fi_credits(p_credit_id);
235: FETCH c_igs_fi_credits INTO rec_c_igs_fi_credits;
228: -- log this message and proceed.
229: IF l_v_app_error_message = 'IGS_FI_CHG_CRD_GL_DATE' THEN
230: OPEN c_igs_fi_invln_int(p_invoice_id);
231: FETCH c_igs_fi_invln_int INTO rec_c_igs_fi_invln_int;
232: CLOSE c_igs_fi_invln_int;
233:
234: OPEN c_igs_fi_credits(p_credit_id);
235: FETCH c_igs_fi_credits INTO rec_c_igs_fi_credits;
236: CLOSE c_igs_fi_credits;
236: CLOSE c_igs_fi_credits;
237:
238: fnd_message.set_name('IGS',l_v_app_error_message);
239: fnd_message.set_token('GL_DATE',p_d_gl_date);
240: fnd_message.set_token('CHG_GL_DATE',rec_c_igs_fi_invln_int.gl_date);
241: fnd_message.set_token('CRD_GL_DATE',rec_c_igs_fi_credits.gl_date);
242: fnd_file.put_line(fnd_file.log,fnd_message.Get);
243: END IF;
244:
585: fee_cal_type = cp_fee_cal_type AND
586: fee_ci_sequence_number = cp_fee_ci_sequence_number AND
587: invoice_amount_due > 0
588: AND NOT EXISTS (SELECT 'X'
589: FROM igs_fi_invln_int
590: WHERE invoice_id = inv.invoice_id
591: AND NVL(error_account,'N') = 'Y')
592: ORDER BY invoice_creation_date
593: FOR UPDATE NOWAIT;
607: (fee_cal_type <> cp_fee_cal_type OR
608: fee_ci_sequence_number <> cp_fee_ci_sequence_number) AND
609: invoice_amount_due > 0
610: AND NOT EXISTS (SELECT 'X'
611: FROM igs_fi_invln_int
612: WHERE invoice_id = inv.invoice_id
613: AND NVL(error_account,'N') = 'Y')
614: ORDER BY invoice_creation_date
615: FOR UPDATE NOWAIT;
626: WHERE person_id = cp_person_id AND
627: fee_type = cp_fee_type AND
628: invoice_amount_due > 0
629: AND NOT EXISTS (SELECT 'X'
630: FROM igs_fi_invln_int
631: WHERE invoice_id = inv.invoice_id
632: AND NVL(error_account,'N') = 'Y')
633: ORDER BY invoice_creation_date
634: FOR UPDATE NOWAIT;