[Home] [Help]
1: PACKAGE BODY ARP_PROCESS_LOCKBOX AS
2: /*$Header: ARRPRLBB.pls 120.21.12010000.7 2008/11/28 06:22:52 aghoraka ship $*/
3: TYPE option_record IS RECORD(
4: option_name ar_lookups.lookup_code%type,
5: cursor_name INTEGER);
6: TYPE opened_cursors IS table of option_record
7: INDEX BY BINARY_INTEGER;
8: TYPE curr_record IS RECORD ( currency_code fnd_currencies.currency_code%TYPE,
9: precision fnd_currencies.precision%TYPE );
10: TYPE table_curr IS TABLE OF curr_record INDEX BY BINARY_INTEGER;
11: --
12: opened_cursor_table opened_cursors;
13: g_matching_option ar_lookups.lookup_code%type;
14: g_cursor_name INTEGER;
15: g_total_maching_options INTEGER;
16: g_cursor_string VARCHAR2(32767);
17: l_cursor_string VARCHAR2(32767);
18: l_table_curr table_curr;
19: --
20: CURSOR all_matching_options IS
21: select LOOKUP_CODE
22: from ar_lookups
23: where LOOKUP_TYPE = 'ARLPLB_MATCHING_OPTION'
24: order by decode(LOOKUP_CODE, 'INVOICE', 1,
25: 'SALES_ORDER', 2,
26: 'PURCHASE_ORDER', 3,
123: l_match8_status ar_payments_interface.invoice8_status%type;
124: --
125: l_prev_customer_id ar_payments_interface.customer_id%type;
126: l_customer_id ar_payments_interface.customer_id%type;
127: l_matching_option ar_lookups.lookup_code%type;
128: --
129: unexpected_program_error EXCEPTION;
130: --
131: /* Bug2980051. Replaced l_only_one_lb with l_no_batch_or_lb */
663: l_match7_status ar_payments_interface.invoice7_status%type;
664: l_match8_status ar_payments_interface.invoice8_status%type;
665: --
666: l_customer_id ar_payments_interface.customer_id%type;
667: l_matching_option ar_lookups.lookup_code%type;
668: --
669: unexpected_program_error EXCEPTION;
670: --
671: /* Bug2980051. Replaced l_only_one_lb with l_no_batch_or_lb */
1031: p_matching8_date IN OUT NOCOPY ar_payments_interface.matching8_date%type,
1032: p_matching8_installment IN OUT NOCOPY ar_payments_interface.invoice8_installment%type,
1033: p_matched_flag OUT NOCOPY VARCHAR2,
1034: p_customer_id IN OUT NOCOPY NUMBER,
1035: p_matching_option IN OUT NOCOPY ar_lookups.lookup_code%type,
1036: p_match1_status OUT NOCOPY ar_payments_interface.invoice1_status%type,
1037: p_match2_status OUT NOCOPY ar_payments_interface.invoice2_status%type,
1038: p_match3_status OUT NOCOPY ar_payments_interface.invoice3_status%type,
1039: p_match4_status OUT NOCOPY ar_payments_interface.invoice4_status%type,
1065: l_current_customer_id7 ar_payments_interface.customer_id%type;
1066: l_current_customer_id8 ar_payments_interface.customer_id%type;
1067: l_current_installment ar_payments_interface.invoice1_installment%type;
1068: first_customer ar_payments_interface.customer_id%type;
1069: l_matching_option ar_lookups.lookup_code%type;
1070: l_cursor_name INTEGER;
1071: l_cursor_found BOOLEAN;
1072: --
1073: l_matching_number1 ar_payments_interface.invoice1%type;
1110: r_temp_int INTEGER;
1111: --
1112: CURSOR matching_options IS
1113: select LOOKUP_CODE
1114: from ar_lookups
1115: where LOOKUP_TYPE = 'ARLPLB_MATCHING_OPTION'
1116: and LOOKUP_CODE = decode(p_matching_option, 'ALL', LOOKUP_CODE, p_matching_option)
1117: order by decode(LOOKUP_CODE, 'INVOICE', 1,
1118: 'SALES_ORDER', 2,
2020: | 05-Aug-97 K Trivedi Created. Rel 11 related changes.
2021: |
2022: ----------------------------------------------------------------------------*/
2023: PROCEDURE
2024: get_cursor_name(p_matching_option IN ar_lookups.lookup_code%type,
2025: p_cursor_name OUT NOCOPY INTEGER,
2026: p_match_successful OUT NOCOPY BOOLEAN) IS
2027: --
2028: --
3727: --
3728: --
3729: -- This is a First-Time-Only code. It will get executed only
3730: -- the first time the package is instantiated.
3731: -- It fetches the matching_rules specified in ar_lookups
3732: -- Opens and parses the cursor for that.
3733: -- It stores the cursor_names in table opened_cursor_table.
3734: --
3735: -- Logic: