[Home] [Help]
31: gjl.accounted_dr,gjl.accounted_cr,
32: gjl.entered_dr, gjl.entered_cr, gjl.code_combination_id,
33: gjl.ROWID,
34: gjl.reference_4
35: FROM ap_checks ac, gl_je_lines gjl, gl_je_headers gjh
36: WHERE ac.void_date IS NULL
37: AND gjl.reference_1 = TO_CHAR(v_treasury_confirmation_id)
38: AND ac.check_id = gjl.reference_3
39: AND gjh.je_header_id = gjl.je_header_id
79: v_confirm_date fv_treasury_confirmations.treasury_doc_date%TYPE;
80: v_diff NUMBER;
81: v_check_num NUMBER;
82: v_delta NUMBER(15);
83: v_treasury_pay_number ap_checks.treasury_pay_number%TYPE;
84:
85: -- AKA declare variables for offsets
86: v_corr_treas_pay_num fv_tc_offsets.corrected_treasury_pay_number%TYPE;
87: v_offset_check_id fv_tc_offsets.check_id%TYPE;
97: L_SELECT_STR VARCHAR2(1000) ;
98:
99: -- AKA, declare cursor to select
100: -- corrected treasury pay number and check id from offsets table
101: -- need to join to ap_checks on check id to get the correct batch name
102:
103: CURSOR cur_corr_treas_pay_num IS
104: SELECT fto.corrected_treasury_pay_number, fto.check_id
105: FROM fv_tc_offsets fto,
102:
103: CURSOR cur_corr_treas_pay_num IS
104: SELECT fto.corrected_treasury_pay_number, fto.check_id
105: FROM fv_tc_offsets fto,
106: ap_checks ac,
107: iby_payments_all ipa
108: WHERE ac.check_id = fto.check_id
109: AND ac.payment_id = ipa.payment_id
110: AND ipa.payment_instruction_id = v_payment_instruction_id
181: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'l_check_tbl(l_row_num).check_id:'||
182: l_check_tbl(l_row_num).check_id);
183: END IF;
184:
185: UPDATE ap_checks c
186: SET treasury_pay_number = v_begin_doc,
187: treasury_pay_date = v_confirm_date,
188: last_update_date = SYSDATE,
189: last_updated_by = fnd_global.user_id,
194: END LOOP;
195:
196: END LOOP;
197:
198: -- AKA, need to update ap_checks if a corrected treasury pay number
199: -- for a payment within the batch being processed has been entered
200: OPEN cur_corr_treas_pay_num;
201:
202: LOOP
207: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name, 'in corrected treasury pay number loop');
208: END IF;
209:
210: IF v_corr_treas_pay_num IS NOT NULL THEN
211: UPDATE ap_checks
212: SET treasury_pay_number = v_corr_treas_pay_num
213: WHERE check_id = v_offset_check_id;
214: END IF;
215: END LOOP;
333: v_currency_code gl_ledgers_public_v.currency_code%TYPE;
334: v_dr_account_segment_value gl_ussgl_account_pairs.dr_account_segment_value%TYPE;
335: v_cr_account_segment_value gl_ussgl_account_pairs.cr_account_segment_value%TYPE;
336: v_checkrun_name fv_treasury_confirmations.checkrun_name%TYPE ;
337: v_check_id ap_checks.check_id%TYPE;
338: v_vendor_id po_vendors.vendor_id%TYPE;
339: v_period_start_date gl_period_statuses.start_date%TYPE;
340: v_period_end_date gl_period_statuses.end_date%TYPE;
341: v_invoice_id ap_invoice_payments.invoice_id%TYPE;
364: apd.ae_line_type_code,
365: aip.invoice_id,
366: ac.check_id
367: FROM fv_treasury_confirmations ftc,
368: ap_checks ac,
369: ap_invoice_payments aip,
370: ap_ae_lines apd,
371: iby_payments_all ipa
372: WHERE ftc.treasury_confirmation_id = x_treasury_confirmation_id
376: AND (( aip.invoice_payment_id = apd.source_id
377: AND apd.source_table ='AP_INVOICE_PAYMENTS')
378: OR
379: ( aip.check_id = apd.source_id
380: AND apd.source_table = 'AP_CHECKS'))
381: AND apd.ae_line_type_code IN ('CASH','CASH CLEARING','FUTURE PAYMENT')
382: AND ac.void_date IS NULL;
383:
384: BEGIN
796: -- a_segments fnd_flex_ext.SegmentArray;
797: v_boolean BOOLEAN;
798: c_reference1 gl_interface.reference1%TYPE;
799: v_tc_id gl_interface.reference1%TYPE;
800: v_check_id ap_checks.check_id%TYPE;
801: v_invoice_id gl_je_lines.reference_4%TYPE;
802: v_period gl_period_statuses.period_name%TYPE;
803: v_period_start_date gl_period_statuses.start_date%TYPE;
804: v_period_end_date gl_period_statuses.end_date%TYPE;
806: v_cr_acct_amt gl_je_lines.accounted_cr%TYPE;
807: v_dr_acct_amt gl_je_lines.accounted_dr%TYPE;
808: v_curr_con_type gl_je_headers.currency_conversion_type%TYPE;
809: v_curr_con_rate gl_je_headers.currency_conversion_rate%TYPE;
810: v_curr_con_date ap_checks.exchange_date%TYPE;
811:
812: BEGIN
813: -- Initialize variables
814: l_module_name := g_module_name || 'do_back_out_process ';
1054: ac.exchange_date,
1055: ac.void_date
1056: FROM fv_treasury_confirmations_all ftc,
1057: fv_voided_checks fvt,
1058: ap_checks_all ac ,
1059: ap_invoice_payments_all apip,
1060: iby_payments_all ipa
1061: WHERE ac.check_id = fvt.check_id
1062: AND ac.payment_id = ipa.payment_id
1173: SYSDATE,
1174: fnd_global.user_id,
1175: fnd_global.login_id,
1176: org_id
1177: FROM ap_checks_all ac
1178: WHERE org_id = l_org_id
1179: AND void_date IS NOT NULL
1180: AND (ac.checkrun_name IS NOT NULL OR ac.payment_id IS NOT NULL)
1181: AND NOT EXISTS (SELECT 1
1864: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1865: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'Cleaning up Back OUT NOCOPY data');
1866: END IF;
1867:
1868: -- back_out the info in ap_checks
1869: UPDATE AP_CHECKS
1870: SET treasury_pay_number = NULL,
1871: treasury_pay_date = NULL,
1872: last_update_date = SYSDATE,
1865: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,'Cleaning up Back OUT NOCOPY data');
1866: END IF;
1867:
1868: -- back_out the info in ap_checks
1869: UPDATE AP_CHECKS
1870: SET treasury_pay_number = NULL,
1871: treasury_pay_date = NULL,
1872: last_update_date = SYSDATE,
1873: last_updated_by = fnd_global.user_id,
1890: --batch.
1891:
1892: DELETE FROM fv_tc_offsets
1893: WHERE check_id IN (SELECT check_id
1894: FROM ap_checks ac,
1895: fv_treasury_confirmations ftc,
1896: iby_payments_all ipa
1897: WHERE ftc.treasury_confirmation_id = v_treasury_confirmation_id
1898: AND ftc.payment_instruction_id = ipa.payment_instruction_id