[Home] [Help]
68:
69: PROCEDURE Get_Doc_Entitity_Data (
70: p_level IN VARCHAR2 ,
71: p_app_rec OUT NOCOPY ar_receivable_applications%ROWTYPE ,
72: p_cust_inv_rec OUT NOCOPY ra_customer_trx%ROWTYPE ,
73: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE , -- jrautiai
74: p_rule_rec OUT NOCOPY ae_rule_rec_type );
75:
76: PROCEDURE Create_Ae_Lines_Common (
77: p_level IN VARCHAR2 );
78:
79: PROCEDURE Create_Ae_Lines_BR(
80: p_app_rec IN ar_receivable_applications%ROWTYPE ,
81: p_cust_inv_rec IN ra_customer_trx%ROWTYPE ,
82: p_trh_rec IN ar_transaction_history%ROWTYPE , -- jrautiai
83: p_rule_rec IN ae_rule_rec_type );
84:
85: PROCEDURE Assign_Ael_Elements(
89: PROCEDURE initialize_global_variables(p_trh_rec IN ar_transaction_history%ROWTYPE);
90:
91: FUNCTION trx_history_status(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE) RETURN VARCHAR2;
92:
93: PROCEDURE create_exchanged_trx_acct(p_customer_trx_id IN ra_customer_trx.customer_trx_id%TYPE,
94: p_ae_rule_rec IN ae_rule_rec_type);
95:
96: FUNCTION find_exchanged_trx_acct(p_transaction_history_id IN ar_transaction_history.transaction_history_id%TYPE) RETURN NUMBER;
97:
667: * ======================================================================*/
668: PROCEDURE Get_Doc_Entitity_Data (
669: p_level IN VARCHAR2 ,
670: p_app_rec OUT NOCOPY ar_receivable_applications%ROWTYPE ,
671: p_cust_inv_rec OUT NOCOPY ra_customer_trx%ROWTYPE ,
672: p_trh_rec OUT NOCOPY ar_transaction_history%ROWTYPE ,
673: p_rule_rec OUT NOCOPY ae_rule_rec_type) IS
674:
675: BEGIN
762: p_trh_rec.status,
763: p_trh_rec.event,
764: p_trh_rec.prv_trx_history_id
765: from ar_transaction_history th,
766: ra_customer_trx ctinv,
767: ar_payment_schedules pay
768: where th.transaction_history_id = g_ae_doc_rec.source_id
769: and th.customer_trx_id = ctinv.customer_trx_id
770: and ctinv.customer_trx_id = pay.customer_trx_id;
852: PROCEDURE Create_Ae_Lines_Common (
853: p_level IN VARCHAR2 ) IS
854:
855: l_app_rec ar_receivable_applications%ROWTYPE ;
856: l_cust_inv_rec ra_customer_trx%ROWTYPE ;
857: l_trh_rec ar_transaction_history%ROWTYPE ; -- jrautiai
858: l_rule_rec ae_rule_rec_type ;
859:
860: BEGIN
918: | p_rule_rec Rule Record
919: * ======================================================================*/
920: PROCEDURE Create_Ae_Lines_BR(
921: p_app_rec IN ar_receivable_applications%ROWTYPE ,
922: p_cust_inv_rec IN ra_customer_trx%ROWTYPE ,
923: p_trh_rec IN ar_transaction_history%ROWTYPE , -- jrautiai
924: p_rule_rec IN ae_rule_rec_type ) IS
925:
926: l_app_id ar_receivable_applications.receivable_application_id%TYPE;
2284: | PARAMETERS
2285: | p_customer_trx_id Transaction ID
2286: * ======================================================================*/
2287: PROCEDURE create_exchanged_trx_acct
2288: (p_customer_trx_id IN ra_customer_trx.customer_trx_id%TYPE,
2289: -- HYUDETDIST
2290: p_ae_rule_rec IN ae_rule_rec_type)
2291: --}
2292: IS
2294: | Cursor to return all rows exchanged on the BR. |
2295: +--------------------------------------------------*/
2296:
2297: -- MRC Trigger Replacement: select currency sensitive data.
2298: CURSOR all_exchanges_cur(l_customer_trx_id ra_customer_trx.customer_trx_id%TYPE) IS
2299: SELECT ctl.br_ref_customer_trx_id source_trx_id,
2300: cnt.br_ref_customer_trx_id cnt_br_ref_trx_id,
2301: ctl.br_ref_payment_schedule_id source_ps_id,
2302: ctl.customer_trx_line_id,
2350: -- ps.payment_schedule_id,
2351: -- g_ae_sys_rec.set_of_books_id)) exchange_date
2352: ps.exchange_date exchange_date
2353: --}
2354: FROM ra_customer_trx_lines ctl,
2355: ar_payment_schedules ps,
2356: ar_payment_schedules assignment_ps,
2357: ar_adjustments adj,
2358: ( SELECT distinct ctl_in.customer_trx_line_id customer_trx_line_id,
2356: ar_payment_schedules assignment_ps,
2357: ar_adjustments adj,
2358: ( SELECT distinct ctl_in.customer_trx_line_id customer_trx_line_id,
2359: connect_by_root(br_ref_customer_trx_id) br_ref_customer_trx_id
2360: FROM ra_customer_trx_lines ctl_in
2361: WHERE ctl_in.br_ref_customer_trx_id is not null
2362: START WITH ctl_in.customer_trx_id = l_customer_trx_id
2363: CONNECT BY PRIOR ctl_in.br_ref_customer_trx_id = ctl_in.customer_trx_id) cnt
2364: WHERE assignment_ps.payment_schedule_id = ctl.br_ref_payment_schedule_id
2369: AND ctl.customer_trx_line_id = cnt.customer_trx_line_id;
2370:
2371: CURSOR c_trx(p_customer_trx_id IN NUMBER)
2372: IS
2373: SELECT * FROM ra_customer_trx
2374: WHERE customer_trx_id = p_customer_trx_id;
2375:
2376:
2377: /*--------------------------------------------------+
2377: /*--------------------------------------------------+
2378: | Cursor for the accounting on normal transactions |
2379: | from table ra_cust_trx_line_gl_dist |
2380: +--------------------------------------------------*/
2381: CURSOR TRX_exchange_cur(l_customer_trx_id ra_customer_trx.customer_trx_id%TYPE) IS
2382: SELECT dist.code_combination_id
2383: FROM ra_cust_trx_line_gl_dist dist
2384: WHERE dist.customer_trx_id = l_customer_trx_id
2385: AND dist.account_class = C_REC
2388: /*--------------------------------------------------+
2389: | Cursor for the currenct accounted record of the |
2390: | exchanged BR |
2391: +--------------------------------------------------*/
2392: CURSOR BR_exchange_cur(l_customer_trx_id ra_customer_trx.customer_trx_id%TYPE) IS
2393: SELECT th.transaction_history_id
2394: FROM ar_transaction_history th
2395: WHERE th.customer_trx_id = l_customer_trx_id
2396: AND th.current_accounted_flag = 'Y';
2403: l_ael_line_rec ae_line_rec_type;
2404: l_ael_empty_line_rec ae_line_rec_type;
2405: --{HYUDETDIST
2406: l_adj_rec ar_adjustments%ROWTYPE;
2407: l_cust_trx_rec ra_customer_trx%ROWTYPE;
2408: l_app_rec ar_receivable_applications%ROWTYPE;
2409: l_ae_ctr NUMBER := 0;
2410: l_ae_line_tbl ae_line_tbl_type;
2411: l_ae_empty_line_tbl ae_line_tbl_type;