[Home] [Help]
1: PACKAGE BODY ARP_PROCESS_LOCKBOX AS
2: /*$Header: ARRPRLBB.pls 120.36.12020000.3 2012/11/21 07:15:15 ashlkuma 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);
19: l_table_curr table_curr;
20: --
21: CURSOR all_matching_options IS
22: select LOOKUP_CODE
23: from ar_lookups
24: where LOOKUP_TYPE = 'ARLPLB_MATCHING_OPTION'
25: order by decode(LOOKUP_CODE, 'INVOICE', 1,
26: 'SALES_ORDER', 2,
27: 'PURCHASE_ORDER', 3,
124: l_match8_status ar_payments_interface.invoice8_status%type;
125: --
126: l_prev_customer_id ar_payments_interface.customer_id%type;
127: l_customer_id ar_payments_interface.customer_id%type;
128: l_matching_option ar_lookups.lookup_code%type;
129: --
130: unexpected_program_error EXCEPTION;
131: --
132: /* Bug2980051. Replaced l_only_one_lb with l_no_batch_or_lb */
664: l_match7_status ar_payments_interface.invoice7_status%type;
665: l_match8_status ar_payments_interface.invoice8_status%type;
666: --
667: l_customer_id ar_payments_interface.customer_id%type;
668: l_matching_option ar_lookups.lookup_code%type;
669: --
670: unexpected_program_error EXCEPTION;
671: --
672: /* Bug2980051. Replaced l_only_one_lb with l_no_batch_or_lb */
1032: p_matching8_date IN OUT NOCOPY ar_payments_interface.matching8_date%type,
1033: p_matching8_installment IN OUT NOCOPY ar_payments_interface.invoice8_installment%type,
1034: p_matched_flag OUT NOCOPY VARCHAR2,
1035: p_customer_id IN OUT NOCOPY NUMBER,
1036: p_matching_option IN OUT NOCOPY ar_lookups.lookup_code%type,
1037: p_match1_status OUT NOCOPY ar_payments_interface.invoice1_status%type,
1038: p_match2_status OUT NOCOPY ar_payments_interface.invoice2_status%type,
1039: p_match3_status OUT NOCOPY ar_payments_interface.invoice3_status%type,
1040: p_match4_status OUT NOCOPY ar_payments_interface.invoice4_status%type,
1066: l_current_customer_id7 ar_payments_interface.customer_id%type;
1067: l_current_customer_id8 ar_payments_interface.customer_id%type;
1068: l_current_installment ar_payments_interface.invoice1_installment%type;
1069: first_customer ar_payments_interface.customer_id%type;
1070: l_matching_option ar_lookups.lookup_code%type;
1071: l_cursor_name INTEGER;
1072: l_cursor_found BOOLEAN;
1073: --
1074: l_matching_number1 ar_payments_interface.invoice1%type;
1111: r_temp_int INTEGER;
1112: --
1113: CURSOR matching_options IS
1114: select LOOKUP_CODE
1115: from ar_lookups
1116: where LOOKUP_TYPE = 'ARLPLB_MATCHING_OPTION'
1117: and LOOKUP_CODE = decode(p_matching_option, 'ALL', LOOKUP_CODE, p_matching_option)
1118: order by decode(LOOKUP_CODE, 'INVOICE', 1,
1119: 'SALES_ORDER', 2,
2023: | 05-Aug-97 K Trivedi Created. Rel 11 related changes.
2024: |
2025: ----------------------------------------------------------------------------*/
2026: PROCEDURE
2027: get_cursor_name(p_matching_option IN ar_lookups.lookup_code%type,
2028: p_cursor_name OUT NOCOPY INTEGER,
2029: p_match_successful OUT NOCOPY BOOLEAN) IS
2030: --
2031: --
3746: --
3747: --
3748: -- This is a First-Time-Only code. It will get executed only
3749: -- the first time the package is instantiated.
3750: -- It fetches the matching_rules specified in ar_lookups
3751: -- Opens and parses the cursor for that.
3752: -- It stores the cursor_names in table opened_cursor_table.
3753: --
3754: -- Logic: