[Home] [Help]
PACKAGE BODY: APPS.JL_XLA_GL_TRANSFER_PKG
Source
1 PACKAGE BODY jl_xla_gl_transfer_pkg AS
2 /* $Header: jlzzxlab.pls 115.1 99/09/13 16:30:24 porting ship $ */
3
4 /**************************************************************************
5 * *
6 * Name : JL_XLA_MESSAGE *
7 * Purpose : This procedure will put the message given in the log file *
8 * *
9 * *
10 * *
11 **************************************************************************/
12
13 PROCEDURE jl_xla_message( p_message_code VARCHAR2,
14 p_token_1 VARCHAR2 DEFAULT NULL,
15 p_token_1_value VARCHAR2 DEFAULT NULL,
16 p_token_2 VARCHAR2 DEFAULT NULL,
17 p_token_2_value VARCHAR2 DEFAULT NULL,
18 p_token_3 VARCHAR2 DEFAULT NULL,
19 p_token_3_value VARCHAR2 DEFAULT NULL,
20 p_token_4 VARCHAR2 DEFAULT NULL,
21 p_token_4_value VARCHAR2 DEFAULT NULL
22 ) IS
23 BEGIN
24
25 FND_MESSAGE.SET_NAME('JL',p_message_code);
26 IF p_token_1 IS NOT NULL THEN
27 fnd_message.set_token(p_token_1, p_token_1_value);
28 END IF;
29
30 IF p_token_2 IS NOT NULL THEN
31 fnd_message.set_token(p_token_2, p_token_2_value);
32 END IF;
33
34 IF p_token_3 IS NOT NULL THEN
35 fnd_message.set_token(p_token_3, p_token_3_value);
36 END IF;
37
38 IF p_token_4 IS NOT NULL THEN
39 fnd_message.set_token(p_token_4, p_token_4_value);
40 END IF;
41
42 fnd_file.put_line(fnd_file.Log,fnd_message.get);
43
44 END jl_xla_message;
45
46
47 /**************************************************************************
48 * *
49 * Name : JL_XLA_GL_TRANSFER *
50 * Purpose : This is a procedure which will run the country Balance *
51 * Maintenance. *
52 * *
53 * Parameters: *
54 * p_request_id contains the concurrent program request id *
55 * p_transfer_run_id contains the Transfer Run ID for a batch *
56 * p_start_date contains the start date of current commit cycle iteration*
57 * p_end_date contains the end date of current commit cycle iteration. *
58 * *
59 * *
60 **************************************************************************/
61
62 PROCEDURE jl_xla_gl_transfer (p_request_id NUMBER,
63 p_transfer_run_Id NUMBER,
64 p_start_date DATE,
65 p_end_date DATE)
66 IS
67
68 l_country_code VARCHAR2(10);
69 l_apps VARCHAR2(10);
70 l_curr_calling_sequence VARCHAR2(240);
71 l_debug_info VARCHAR2(1000);
72 l_parameters VARCHAR2(1000);
73
74 BEGIN
75
76 l_curr_calling_sequence:='JL_XLA_GL_TRANSFER_PKG.jl_xla_gl_transfer';
77 l_parameters:='p_request_id =' || to_char(p_request_id) || ' p_transfer_run_id= ' || TO_CHAR(p_transfer_run_id) ||
78 ' p_start_date= ' || TO_CHAR(p_start_date) || ' p_end_date= ' || TO_CHAR(p_end_date);
79
80 -------------------------------------
81 -- Get the Country and Product Code
82 -------------------------------------
83 fnd_profile.get('JGZZ_COUNTRY_CODE', l_country_code);
84 fnd_profile.get('JGZZ_APPL_SHORT_NAME', l_apps);
85
86 -------------------------------------------------
87 -- Execute the Country Subledger Accounting
88 -------------------------------------------------
89
90 IF (l_country_code = 'BR') THEN
91
92 -------------------------------------------------
93 -- Execute the Application Subledger Accounting
94 -------------------------------------------------
95
96 IF l_apps='SQLAP' then
97
98 ----------------------------------------
99 -- CALL AP BALANCE MAINTENANCE ROUTINE
100 ----------------------------------------
101 l_debug_info:='Calling jl_br_ap_bal_maintenance';
102
103 jl_br_ap_balance_maintenance.jl_br_ap_bal_maintenance(p_request_id,
104 p_transfer_run_id,
105 p_start_date,
106 p_end_date);
107
108 ELSIF l_apps='AR' then
109 ----------------------------------------
110 -- CALL AR BALANCE MAINTENANCE ROUTINE
111 ----------------------------------------
112
113 NULL;
114
115 END IF;
116
117 END IF; -- Country Code
118
119 EXCEPTION
120 WHEN OTHERS THEN
121 jl_xla_message('JL_ZZ_AP_DEBUG','ERROR',SQLERRM,'CALLING_SEQUENCE',l_curr_calling_sequence,
122 'PARAMETERS', l_parameters,'DEBUG_INFO',l_debug_info);
123
124 APP_EXCEPTION.RAISE_EXCEPTION;
125
126 END jl_xla_gl_transfer;
127
128 END jl_xla_gl_transfer_pkg;