[Home] [Help]
PACKAGE BODY: APPS.JL_AR_GL_POST
Source
1 PACKAGE BODY JL_AR_GL_POST AS
2 /* $Header: jlbrrgpb.pls 120.4 2005/04/07 18:42:49 appradha ship $ */
3
4 /*----------------------------------------------------------------------------*
5 | PUBLIC FUNCTIONS/PROCEDURES |
6 *----------------------------------------------------------------------------*/
7
8 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
9
10 PROCEDURE gl_post(
11 p_posting_control_id IN NUMBER ,
12 p_start_gl_date IN VARCHAR2 ,
13 p_end_gl_date IN VARCHAR2) IS
14
15 l_req_id1 NUMBER(38);
16 l_req_id2 NUMBER(38);
17
18 call_status BOOLEAN;
19 rphase VARCHAR2(80);
20 rstatus VARCHAR2(80);
21 dphase VARCHAR2(80);
22 dstatus VARCHAR2(80);
23 message VARCHAR2(240);
24 dbg_msg VARCHAR2(4000);
25
26 country_code VARCHAR2(5);
27
28 err_num NUMBER;
29 err_msg VARCHAR2(2000);
30 GLPOST_ERROR EXCEPTION;
31 REPORT_ERROR EXCEPTION;
32 l_org_id NUMBER;
33
34 BEGIN
35
36 IF PG_DEBUG in ('Y', 'C') THEN
37 arp_standard.debug('gl_post: ' || 'Start Brazilian GL Transfer ');
38 END IF;
39
40 l_org_id := MO_GLOBAL.get_current_org_id;
41 country_code := JG_ZZ_SHARED_PKG.get_country(l_org_id,null);
42
43 --country_code := FND_PROFILE.VALUE('JGZZ_COUNTRY_CODE');
44
45 IF country_code = 'BR' THEN
46
47 IF PG_DEBUG in ('Y', 'C') THEN
48 arp_standard.debug('gl_post: ' || 'Submit Brazilian GL Transfer Program');
49 END IF;
50
51 l_req_id1 := FND_REQUEST.SUBMIT_REQUEST(
52 'JL' ,
53 'JLBRRPBO',
54 'Brazilian Receivables Bank Collection GL Interface Program',
55 SYSDATE ,
56 FALSE,
57 p_posting_control_id,
58 fnd_date.date_to_canonical(to_date(p_start_gl_date,'DD/MM/RRRR')) ,
59 fnd_date.date_to_canonical(to_date(p_end_gl_date,'DD/MM/RRRR'))
60 );
61
62 COMMIT;
63
64 if l_req_id1 = 0 then
65 RAISE GLPOST_ERROR;
66 end if;
67
68
69 IF PG_DEBUG in ('Y', 'C') THEN
70 arp_standard.debug('gl_post: ' || 'Wait Start for Brazilian GL Transfer Program ');
71 END IF;
72 call_status := fnd_concurrent.wait_for_request(l_req_id1,
73 5,
74 0,
75 rphase,
76 rstatus,
77 dphase,
78 dstatus,
79 message);
80
81
82
83 IF PG_DEBUG in ('Y', 'C') THEN
84 arp_standard.debug('gl_post: ' || 'Wait complete for Brazilian GL Transfer Program ');
85 END IF;
86 IF dphase = 'COMPLETE' THEN
87 IF dstatus = 'NORMAL' THEN
88 fnd_file.put_line( 1, 'Loader pgm completed successfully. '||dphase||'-
89 '||dstatus);
90 COMMIT;
91 ELSE
92 RAISE GLPOST_ERROR;
93 END IF;
94 ELSE
95 RAISE GLPOST_ERROR;
96 END IF;
97
98 IF PG_DEBUG in ('Y', 'C') THEN
99 arp_standard.debug('gl_post: ' || 'Submit Request for Brazilian GL Transfer Report ');
100 END IF;
101
102 l_req_id2 := FND_REQUEST.SUBMIT_REQUEST(
103 'JL' ,
104 'JLBRRTGL',
105 'Brazilian Receivables Bank Collection GL Interface Report',
106 SYSDATE ,
107 FALSE,
108 'P_POSTING_CONTROL_ID='''||to_char(p_posting_control_id)||'''',
109 'P_START_DATE='''||fnd_date.date_to_canonical(
110 to_date(
111 p_start_gl_date,'DD/MM/RRRR'))||
112 '''',
113 'P_END_DATE='''||fnd_date.date_to_canonical(
114 to_date(
115 p_end_gl_date,'DD/MM/RRRR'))||''''
116 ,
117 fnd_global.local_chr(0),'', '', '', '', '', '', '', '',
118 '', '', '', '', '', '', '', '', '', '',
119 '', '', '', '', '', '', '', '', '', '',
120 '', '', '', '', '', '', '', '', '', '',
121 '', '', '', '', '', '', '', '', '', '',
122 '', '', '', '', '', '', '', '', '', '',
123 '', '', '', '', '', '', '', '', '', '',
124 '', '', '', '', '', '', '', '', '', '',
125 '', '', '', '', '', '', '', '', '', '',
126 '', '', '', '', '', '', '', '');
127
128
129
130
131
132 COMMIT;
133
134 if l_req_id2 = 0 then
135 RAISE REPORT_ERROR;
136 end if;
137
138 IF PG_DEBUG in ('Y', 'C') THEN
139 arp_standard.debug('gl_post: ' || 'End Brazilian GL Transfer ');
140 END IF;
141
142 END IF;
143
144 EXCEPTION
145
146 WHEN GLPOST_ERROR THEN
147
148 fnd_message.set_name('JL', 'JL_BR_AR_GLPOST_ERROR');
149 err_msg := fnd_message.get;
150 fnd_file.put_line(fnd_file.log, err_msg);
151 call_status := fnd_concurrent.set_completion_status('ERROR','');
152
153
154 WHEN REPORT_ERROR THEN
155
156 fnd_message.set_name('JL', 'JL_BR_AR_REPORT_ERROR');
157 err_msg := fnd_message.get;
158 fnd_file.put_line(fnd_file.log, err_msg);
159 call_status := fnd_concurrent.set_completion_status('ERROR','');
160
161 WHEN OTHERS THEN
162
163 ROLLBACK;
164 fnd_message.set_name('JL', 'JL_BR_AR_GENERAL_ERROR');
165 fnd_file.put_line( 1, fnd_message.get);
166 err_num := SQLCODE;
167 err_msg := substr(SQLERRM, 1, 200);
168 RAISE_APPLICATION_ERROR( err_num, err_msg);
169
170
171
172 END gl_post;
173
174
175 END JL_AR_GL_POST;