[Home] [Help]
1982:
1983: -- Logging:
1984: l_procedure_name CONSTANT VARCHAR2(30) := 'CREATE_PAYMENT_EVENT';
1985: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1986: l_when_to_acct ap_system_parameters.when_to_account_pmt%TYPE; --bug 8771563
1987:
1988: -- Bug 7374984.
1989: -- Cursor to get all the unaccounted maturity and clearing transactions
1990: -- Cursor to get all the unaccounted maturity and clearing transactions
2002: AND NOT EXISTS
2003: (SELECT 1
2004: FROM ap_payment_history_all aphp,
2005: xla_events xe,
2006: ap_system_parameters_all asp
2007: WHERE aph.check_id = aphp.check_id
2008: AND aphp.payment_history_id = aph.rev_pmt_hist_id
2009: AND aphp.transaction_type = PAYMENT_CLEARED_TRX_TYPE
2010: AND aphp.posted_flag = 'Y'
2040: CURSOR c_pmt_acct_clearing_only IS
2041: SELECT aph.accounting_date,
2042: aph.accounting_event_id,
2043: aph.transaction_type
2044: FROM ap_payment_history aph, ap_system_parameters asp
2045: WHERE aph.check_id = p_check_id
2046: AND aph.org_id = asp.org_id
2047: AND asp.when_to_account_pmt = 'CLEARING ONLY'
2048: AND aph.posted_flag <> 'Y'
2074:
2075: --bug 8771563
2076: SELECT asp.when_to_account_pmt
2077: INTO l_when_to_acct
2078: FROM ap_checks ac, ap_system_parameters asp
2079: WHERE ac.check_id = p_check_id
2080: AND ac.org_id = asp.org_id;
2081:
2082: IF (p_event_type IN (PAYMENT_CANCELLED_TYPE, REFUND_CANCELLED_TYPE,PAYMENT_CREATED_TYPE, REFUND_RECORDED_TYPE,
2129: BEGIN
2130: SELECT 1
2131: INTO l_dummy
2132: FROM ap_checks_all ac,
2133: ap_system_parameters_all asp
2134: WHERE ac.check_id =l_event_source_info.source_id_int_1
2135: AND ac.org_id = asp.org_id
2136: AND exists (
2137: SELECT 1
2158: BEGIN
2159: SELECT 1
2160: INTO l_dummy
2161: FROM ap_checks_all ac,
2162: ap_system_parameters_all asp
2163: WHERE ac.check_id =l_event_source_info.source_id_int_1
2164: AND ac.org_id = asp.org_id
2165: /*AND not exists (
2166: SELECT 1
2186: BEGIN
2187: SELECT 1
2188: INTO l_dummy
2189: FROM ap_checks_all ac,
2190: ap_system_parameters_all asp
2191: WHERE ac.check_id =l_event_source_info.source_id_int_1
2192: AND ac.org_id = asp.org_id
2193: AND exists (
2194: SELECT 1
2212: BEGIN
2213: SELECT 1
2214: INTO l_dummy
2215: FROM ap_checks_all ac,
2216: ap_system_parameters_all asp
2217: WHERE ac.check_id =l_event_source_info.source_id_int_1
2218: AND ac.org_id = asp.org_id
2219: AND not exists (
2220: SELECT 1
2713: BEGIN
2714: SELECT 1
2715: INTO l_dummy
2716: FROM ap_checks_all ac,
2717: ap_system_parameters_all asp
2718: WHERE ac.check_id =l_event_source_info.source_id_int_1
2719: AND ac.org_id = asp.org_id
2720: AND( (ac.currency_code <> asp.base_currency_code
2721: AND ac.exchange_rate is not null
3959: decode(ac.exchange_rate, NULL, XLA_EVENTS_PUB_PKG.C_EVENT_INCOMPLETE,
3960: XLA_EVENTS_PUB_PKG.C_EVENT_UNPROCESSED))))
3961: --bug 8358552 ends
3962: FROM ap_checks_all ac
3963: , ap_system_parameters_all asp
3964: WHERE ac.checkrun_name = p_checkrun_name
3965: AND ac.completed_pmts_group_id = p_completed_pmts_group_id
3966: AND ac.org_id = p_org_id
3967: AND ac.org_id = asp.org_id);
4352: /* Added for bug#8438184 Start */
4353: TYPE t_invoice_ids IS TABLE OF NUMBER(15) INDEX BY PLS_INTEGER;
4354: l_invoice_ids t_invoice_ids;
4355:
4356: l_auto_calculate_interest_flag ap_system_parameters_all.auto_calculate_interest_flag%TYPE;
4357: /* Added for bug#8438184 End */
4358:
4359: l_curr_calling_sequence VARCHAR2(2000);
4360:
4424: /* Added for bug#8438184 Start */
4425: BEGIN
4426: SELECT auto_calculate_interest_flag
4427: INTO l_auto_calculate_interest_flag
4428: FROM ap_system_parameters_all
4429: WHERE org_id = p_org_id;
4430: EXCEPTION
4431: WHEN OTHERS THEN
4432: l_auto_calculate_interest_flag := 'Y' ;
5213: ac.org_id,
5214: ac.payment_type_flag,
5215: asp.automatic_offsets_flag
5216: FROM ap_checks_all ac,
5217: ap_system_parameters_all asp ---7209263 added automatic offsets flag
5218: WHERE ac.check_id = p_check_id
5219: AND ac.org_id=asp.org_id;
5220:
5221: l_accounting_event_id NUMBER;
5251: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
5252:
5253: l_event_type xla_events.event_type_code%TYPE;
5254: l_pay_type ap_checks_all.payment_type_flag%TYPE;
5255: l_automatic_offsets_flag ap_system_parameters_all.automatic_offsets_flag%TYPE; ---7209263
5256: l_bank_curr_code ap_payment_history_all.bank_currency_code%TYPE; ---7337949
5257:
5258: -- Bug 8276852 Start
5259: l_bank_to_base_xrate_type ap_payment_history_all.bank_to_base_xrate_type%TYPE;
5556: l_creation_date,
5557: l_last_updated_by,
5558: l_org_id,
5559: l_automatic_offsets_flag --7209263
5560: FROM AP_CHECKS AC, ap_system_parameters_all asp
5561: WHERE AC.check_id = l_pay_clear_check_ids(i) --bug 7278341 l_pay_check_ids(i)
5562: AND AC.org_id=asp.org_id;
5563: */
5564: --bug 7607184
6476: ( SELECT ASP.org_id
6477: FROM hr_organization_information OI,
6478: --hr_all_organization_units_tl LE, --bug6392886
6479: hr_all_organization_units_tl OU,
6480: ap_system_parameters_all ASP
6481: WHERE ASP.org_id = OI.organization_id
6482: AND OU.organization_id = OI.organization_id
6483: AND OI.org_information_context = 'Operating Unit Information'
6484: AND DECODE(LTRIM(OI.org_information3, '0123456789'), NULL,
6507: ( SELECT ASP.org_id
6508: FROM hr_organization_information OI,
6509: --hr_all_organization_units_tl LE, --bug6392886
6510: hr_all_organization_units_tl OU,
6511: ap_system_parameters_all ASP
6512: WHERE ASP.org_id = OI.organization_id
6513: AND OU.organization_id = OI.organization_id
6514: AND OI.org_information_context = 'Operating Unit Information'
6515: AND DECODE(LTRIM(OI.org_information3, '0123456789'), NULL,
6546: ( SELECT ASP.org_id
6547: FROM hr_organization_information OI,
6548: --hr_all_organization_units_tl LE, --bug6392886
6549: hr_all_organization_units_tl OU,
6550: ap_system_parameters_all ASP
6551: WHERE ASP.org_id = OI.organization_id
6552: AND OU.organization_id = OI.organization_id
6553: AND OI.org_information_context = 'Operating Unit Information'
6554: AND DECODE(LTRIM(OI.org_information3,'0123456789'), NULL,
6584: ( SELECT ASP.org_id
6585: FROM hr_organization_information OI,
6586: --hr_all_organization_units_tl LE, bug6392886
6587: hr_all_organization_units_tl OU,
6588: ap_system_parameters_all ASP
6589: WHERE ASP.org_id = OI.organization_id
6590: AND OU.organization_id = OI.organization_id
6591: AND OI.org_information_context = 'Operating Unit Information'
6592: AND DECODE(LTRIM(OI.org_information3,'0123456789'), NULL,
7736: INTO p_org_id,
7737: p_legal_entity_id,
7738: p_ledger_id
7739: FROM ap_checks_all AC, --bug6705052
7740: ap_system_parameters_all ASP --bug6705052
7741: WHERE AC.check_id = p_check_id
7742: AND nvl(AC.org_id,-99) = nvl(ASP.org_id,-99);
7743:
7744: l_log_msg :='End of procedure '||l_procedure_name;