[Home] [Help]
115: /* End - BUG 14364091 - Logging */
116:
117: cursor checks_to_assign_vouchers is
118: select check_id
119: from ap_checks_all
120: where completed_pmts_group_id = p_completed_pmts_group_id
121: and org_id = p_current_org_id;
122:
123:
143: loop
144: fetch checks_to_assign_vouchers into l_check_id;
145: exit when checks_to_assign_vouchers%notfound;
146:
147: update ap_checks_all
148: set check_voucher_num = l_next_voucher_number
149: where check_id = l_check_id;
150:
151: l_next_voucher_number := l_next_voucher_number + 1;
187:
188: CURSOR C_INTEREST_INVOICES IS
189: SELECT i.invoice_id
190: FROM ap_invoice_payments_all aip,
191: ap_checks_all c,
192: ap_invoices_all i,
193: ap_invoice_relationships ir
194: WHERE c.check_id = p_check_id
195: AND c.check_id = aip.check_id
295: select ac.check_id,
296: ac.payment_document_id,
297: ac.payment_method_code,
298: ac.ce_bank_acct_use_id
299: from ap_checks_all ac,
300: iby_payment_profiles ipp
301: where completed_pmts_group_id = p_completed_pmts_group_id
302: and ac.checkrun_id = p_checkrun_id --bug15924350
303: and ipp.payment_profile_id = ac.payment_profile_id
510: return;
511:
512: elsif l_return_code = 0 then
513:
514: update ap_checks_all
515: set doc_sequence_id = l_dbseqid,
516: doc_sequence_value = l_seqval,
517: doc_category_code = l_doc_category_code
518: where check_id = l_check_id;
782: l_perform_awt_flag varchar2(1);
783: l_set_of_books_id number;
784: l_interest_invoice_count number;
785: l_checkrun_id number;
786: l_checkrun_name ap_checks_all.checkrun_name%type;
787: l_exchange_rate_type varchar2(30);
788: l_transfer_priority varchar2(25);
789: l_check_date date;
790: l_current_org_id number;
853: -- Added for Payment Request
854: CURSOR c_subscribed_payments IS
855: SELECT Distinct AC.Check_ID,
856: APR.Reg_Application_ID
857: FROM AP_Checks_All AC,
858: AP_Invoice_Payments_All AIP,
859: AP_Invoices_All AI,
860: AP_Product_Registrations APR
861: WHERE AC.Checkrun_Name = l_checkrun_name
995: FROM iby_fd_payments_v ifp
996: WHERE ifp.completed_pmts_group_id = p_completed_pmts_group_id
997: and not exists
998: (select 1
999: from ap_checks_all c
1000: where c.completed_pmts_group_id = ifp.completed_pmts_group_id
1001: and c.payment_id = ifp.payment_id);
1002:
1003: CURSOR c_prob_iby_docs IS
1010: and ifd.completed_pmts_group_id = p_completed_pmts_group_id
1011: and not exists
1012: (select 1
1013: from ap_invoice_payments_all ip
1014: , ap_checks_all c
1015: where c.payment_id = ifd.payment_id
1016: and c.completed_pmts_group_id = ifd.completed_pmts_group_id
1017: and c.check_id = ip.check_id
1018: and ifd.calling_app_doc_unique_ref2 = TO_CHAR(ip.invoice_id)
1020:
1021: CURSOR c_prob_checks IS
1022: select c.payment_id, ifp.payment_reference_number, ifp.payment_instruction_id
1023: , null, null, 'AP_CHECK'
1024: from ap_checks_all c
1025: , iby_fd_payments_v ifp
1026: where c.completed_pmts_group_id = ifp.completed_pmts_group_id
1027: and c.payment_id = ifp.payment_id
1028: and c.completed_pmts_group_id = p_completed_pmts_group_id
1033: select ifp.payment_id, ifp.payment_reference_number
1034: , ifp.payment_instruction_id, TO_CHAR(ip.invoice_id), TO_CHAR(ip.payment_num)
1035: , 'AP_INV_PAY'
1036: from ap_invoice_payments_all ip
1037: , ap_checks_all c
1038: , iby_fd_payments_v ifp
1039: where ip.check_id = c.check_id
1040: and ifp.payment_id = c.payment_id
1041: and ifp.completed_pmts_group_id = c.completed_pmts_group_id
1679:
1680: END if; --if auto_calculate_interest_flag = 'Y'
1681:
1682:
1683: /*bug8224330, transported the insert into ap_checks_all here, after the insertion of interest invoices related data
1684: into ap tables*/
1685:
1686: l_debug_info := 'insert into ap_checks_all';
1687: fnd_file.put_line(FND_FILE.LOG,l_debug_info||' - '||systimestamp);
1682:
1683: /*bug8224330, transported the insert into ap_checks_all here, after the insertion of interest invoices related data
1684: into ap tables*/
1685:
1686: l_debug_info := 'insert into ap_checks_all';
1687: fnd_file.put_line(FND_FILE.LOG,l_debug_info||' - '||systimestamp);
1688: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1689: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1690: END IF;
1688: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1689: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1690: END IF;
1691:
1692: INSERT INTO ap_checks_all
1693: (CHECK_ID,
1694: -- Bug 6845440 commented below field
1695: -- BANK_ACCOUNT_ID,
1696: CE_BANK_ACCT_USE_ID,
2303: ibydocs.beneficiary_party,
2304: decode(ibydocs.beneficiary_party, null, null, ai.party_site_id),
2305: decode(ibydocs.beneficiary_party, null, null, ai.vendor_site_id),
2306: -- added below columns for 7673570
2307: /* Bug 9074840 replaced following with ap_checks_all values
2308: ibypmts.PAYEE_NAME,
2309: NVL(aps.vendor_id, -222), --modifed for bug 8405513
2310: aps.vendor_site_code,
2311: NVL(ibypmts.supplier_site_id, -222), --modifed for bug 8405513
2321: ap_selected_invoices_all SI,
2322: fnd_currencies FORE,
2323: ap_payment_schedules_all PS,
2324: ap_invoices_all AI,
2325: ap_checks_all ac,
2326: --ap_supplier_sites_all aps, -- bug 7673570 --Removed by bug 9074840
2327: --ce_bank_acct_uses_all ceu, --Removed by bug 9074840
2328: ce_gl_accounts_ccid cegl,
2329: XLA_EVENTS_INT_GT xeg
3106: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3107: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3108: END IF;
3109:
3110: update ap_checks_all
3111: set status_lookup_code = 'STOP INITIATED',
3112: stopped_date= p_stopped_date, -- Bug 6957071
3113: stopped_by= p_stopped_by -- Bug 6957071
3114: where payment_id = p_payment_id;
3145: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3146: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3147: END IF;
3148:
3149: update ap_checks_all
3150: set status_lookup_code = 'NEGOTIABLE',
3151: stopped_date=null, -- Bug 6957071
3152: stopped_by=null -- Bug 6957071
3153: where payment_id = p_payment_id;
3202:
3203: BEGIN
3204: SELECT status_lookup_code
3205: INTO l_payment_status
3206: FROM AP_CHECKS_ALL
3207: WHERE payment_id = p_payment_id;
3208:
3209: EXCEPTION
3210: WHEN NO_DATA_FOUND THEN
3216:
3217: if(l_payment_status in ('ISSUED','NEGOTIABLE','STOP INITIATED')) then
3218:
3219: SELECT COUNT(*) INTO l_prepay_app_exists
3220: FROM ap_checks_all ac,
3221: ap_invoice_payments_all aip,
3222: ap_invoice_distributions_all aid,
3223: ap_invoices_all ai
3224: WHERE ac.payment_id = p_payment_id
3244: FROM dual
3245: WHERE EXISTS
3246: (SELECT 1
3247: FROM ap_invoice_distributions_all aid_prepay,
3248: ap_checks_all ac,
3249: ap_invoice_payments_all aip,
3250: ap_invoices_all ai_prepay,
3251: ap_invoice_distributions_all aid,
3252: ap_invoice_distributions_all aidp