[Home] [Help]
17: --Declare all required global variables
18: TYPE batch_rec IS RECORD
19: (batch_id fun_net_batches_all.batch_id%TYPE,
20: agreement_id fun_net_agreements_all.agreement_id%TYPE,
21: currency gl_ledgers.currency_code%TYPE);
22:
23: TYPE batch_table IS TABLE OF batch_rec INDEX BY BINARY_INTEGER;
24:
25: SUBTYPE batch_details_rec IS fun_net_batches_all%ROWTYPE;
79: g_bank_account_id fun_net_agreements_all.bank_account_id%TYPE;
80: g_agreement_id fun_net_agreements_all.agreement_id%TYPE;
81: g_agr_start_date fun_net_agreements_all.agreement_start_date%TYPE;
82: g_agr_end_date fun_net_agreements_all.agreement_end_date%TYPE;
83: g_func_currency gl_ledgers.currency_code%TYPE;
84: g_shikyu_rule fun_net_agreements_all.shikyu_rule_code%TYPE;
85: g_days_past_due fun_net_agreements_all.days_past_due%TYPE;
86: g_sel_past_due_flag fun_net_agreements_all.sel_rec_past_due_txns_flag%TYPE;
87:
93: g_today DATE;
94:
95:
96: PROCEDURE get_functional_currency IS
97: l_ledger_id gl_ledgers.ledger_id%TYPE;
98: l_ledger_name gl_ledgers.name%TYPE;
99: BEGIN
100: MO_Utils.Get_Ledger_Info(
101: g_batch_details.org_id,
94:
95:
96: PROCEDURE get_functional_currency IS
97: l_ledger_id gl_ledgers.ledger_id%TYPE;
98: l_ledger_name gl_ledgers.name%TYPE;
99: BEGIN
100: MO_Utils.Get_Ledger_Info(
101: g_batch_details.org_id,
102: l_ledger_id,
103: l_ledger_name);
104:
105: SELECT currency_code
106: INTO g_func_currency
107: FROM gl_ledgers
108: WHERE ledger_id = l_ledger_id;
109:
110: EXCEPTION
111: WHEN OTHERS THEN
2522: x_return_status OUT NOCOPY VARCHAR2,
2523: x_return_msg OUT NOCOPY VARCHAR2)
2524:
2525: IS
2526: l_ledger_id gl_ledgers.ledger_id%TYPE;
2527: x_closing_status gl_period_statuses.closing_status%TYPE;
2528: x_period_year gl_period_statuses.period_year%TYPE;
2529: x_period_num gl_period_statuses.period_num%TYPE;
2530: x_period_type gl_period_statuses.period_type%TYPE;