1: PACKAGE BODY psa_ar_gl_post_pkg AS
2: /* $Header: PSAMFG1B.pls 120.2 2006/09/13 12:46:50 agovil noship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
1: PACKAGE BODY psa_ar_gl_post_pkg AS
2: /* $Header: PSAMFG1B.pls 120.2 2006/09/13 12:46:50 agovil noship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
2: /* $Header: PSAMFG1B.pls 120.2 2006/09/13 12:46:50 agovil noship $ */
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
3:
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50);
4: --===========================FND_LOG.START=====================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50);
12: --===========================FND_LOG.END=======================================
5: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50);
12: --===========================FND_LOG.END=======================================
13:
6: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50);
12: --===========================FND_LOG.END=======================================
13:
14: PROCEDURE transfer_to_gl(
8: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
10: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: g_path VARCHAR2(50);
12: --===========================FND_LOG.END=======================================
13:
14: PROCEDURE transfer_to_gl(
15: p_start_date IN DATE,
16: p_post_thru_date IN DATE,
64: FV_AR_EXCEPTION EXCEPTION;
65: PSA_MFAR_EXCEPTION EXCEPTION;
66: PSA_RESET_TC_EXCEPTION EXCEPTION;
67:
68: -- ========================= FND LOG ===========================
69: l_full_path VARCHAR2(100) ;
70: -- ========================= FND LOG ===========================
71:
72: BEGIN
66: PSA_RESET_TC_EXCEPTION EXCEPTION;
67:
68: -- ========================= FND LOG ===========================
69: l_full_path VARCHAR2(100) ;
70: -- ========================= FND LOG ===========================
71:
72: BEGIN
73:
74: -- ## Default assignments done here due to GSCC standards.
79:
80: -- ## MFAR Process
81: BEGIN
82:
83: -- ========================= FND LOG ===========================
84: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
85: psa_utils.debug_other_string(g_state_level,l_full_path,' Starting PSA Code hook PSAMFG1B for MFAR');
86: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
87: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS :');
90: psa_utils.debug_other_string(g_state_level,l_full_path,' p_post_thru_date -->' || p_post_thru_date);
91: psa_utils.debug_other_string(g_state_level,l_full_path,' p_parent_req_id -->' || p_parent_req_id);
92: psa_utils.debug_other_string(g_state_level,l_full_path,' p_posting_control_id -->' || p_posting_control_id);
93: psa_utils.debug_other_string(g_state_level,l_full_path,' p_summary_flag -->' || p_summary_flag);
94: -- ========================= FND LOG ===========================
95:
96: p_status_code := 'F';
97: l_set_of_books_id := psa_mfar_utils.get_ar_sob_id;
98: l_psa_feature := 'MFAR';
99: l_start_date := TO_CHAR (p_start_date, 'YYYY/MM/DD');
100: l_post_thru_date := TO_CHAR (p_post_thru_date,'YYYY/MM/DD');
101: fnd_profile.get ('ORG_ID', l_org_id);
102:
103: -- ========================= FND LOG ===========================
104: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
105: psa_utils.debug_other_string(g_state_level,l_full_path,' OTHER DEFAULTED VARIABLES ');
106: psa_utils.debug_other_string(g_state_level,l_full_path,' ========================= ');
107: psa_utils.debug_other_string(g_state_level,l_full_path,' l_org_id --> ' || l_org_id );
112: psa_utils.debug_other_string(g_state_level,l_full_path,' PROCESS : ');
113: psa_utils.debug_other_string(g_state_level,l_full_path,' ========= ');
114: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
115: psa_utils.debug_other_string(g_state_level,l_full_path,' TRANSFER_TO_GL ##> Checking MFAR is installed ');
116: -- ========================= FND LOG ===========================
117:
118:
119: -- Ensure that the FV_AR_PKG package is installed and valid
120: OPEN c_fv_pkg_chk;
120: OPEN c_fv_pkg_chk;
121: FETCH c_fv_pkg_chk INTO l_fv_pkg_chk;
122: CLOSE c_fv_pkg_chk;
123:
124: -- ========================= FND LOG ===========================
125: psa_utils.debug_other_string(g_state_level,l_full_path,
126: ' l_fv_pkg_chk.fv_package --> ' || l_fv_pkg_chk.fv_package);
127: -- ========================= FND LOG ===========================
128:
123:
124: -- ========================= FND LOG ===========================
125: psa_utils.debug_other_string(g_state_level,l_full_path,
126: ' l_fv_pkg_chk.fv_package --> ' || l_fv_pkg_chk.fv_package);
127: -- ========================= FND LOG ===========================
128:
129: IF l_fv_pkg_chk.fv_package = 'Y' THEN
130:
131: --
141: l_resp_appl_id,
142: l_post_det_acct_flag,
143: l_fv_profile_defined);
144:
145: -- ========================= FND LOG ===========================
146: psa_utils.debug_other_string(g_state_level,l_full_path,
147: ' l_post_det_acct_flag --> ' || l_post_det_acct_flag);
148: -- ========================= FND LOG ===========================
149:
144:
145: -- ========================= FND LOG ===========================
146: psa_utils.debug_other_string(g_state_level,l_full_path,
147: ' l_post_det_acct_flag --> ' || l_post_det_acct_flag);
148: -- ========================= FND LOG ===========================
149:
150: IF l_post_det_acct_flag = 'N' THEN
151: -- ========================= FND LOG ===========================
152: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
147: ' l_post_det_acct_flag --> ' || l_post_det_acct_flag);
148: -- ========================= FND LOG ===========================
149:
150: IF l_post_det_acct_flag = 'N' THEN
151: -- ========================= FND LOG ===========================
152: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
153: psa_utils.debug_other_string(g_state_level,l_full_path,' TRANSFER_TO_GL ##> Calling FV_AR_PKG ');
154: -- ========================= FND LOG ===========================
155:
150: IF l_post_det_acct_flag = 'N' THEN
151: -- ========================= FND LOG ===========================
152: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
153: psa_utils.debug_other_string(g_state_level,l_full_path,' TRANSFER_TO_GL ##> Calling FV_AR_PKG ');
154: -- ========================= FND LOG ===========================
155:
156: fv_ar_stmt :=
157: 'BEGIN FV_AR_PKG.delete_offsetting_unapp(:p_posting_control_id, :p_set_of_books_id, :p_status); END;';
158:
165: IF l_status = 1 THEN
166: RAISE fv_ar_exception;
167: END IF;
168:
169: -- ========================= FND LOG ===========================
170: psa_utils.debug_other_string(g_state_level,l_full_path,'TRANSFER_TO_GL##> END of FV Processing ');
171: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
172: -- ========================= FND LOG ===========================
173:
168:
169: -- ========================= FND LOG ===========================
170: psa_utils.debug_other_string(g_state_level,l_full_path,'TRANSFER_TO_GL##> END of FV Processing ');
171: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
172: -- ========================= FND LOG ===========================
173:
174: END IF;
175: END IF;
176:
192: ELSE
193: RAISE product_not_installed;
194: END IF;
195:
196: -- ========================= FND LOG ===========================
197: psa_utils.debug_other_string(g_state_level,l_full_path,' TRANSFER_TO_GL ##> MFAR available');
198: psa_utils.debug_other_string(g_state_level, l_full_path,
199: ' TRANSFER_TO_GL ##> Calling MFAR Transfer to GL --> PSA_xfr_to_gl_pkg.Transfer_to_gl');
200: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
197: psa_utils.debug_other_string(g_state_level,l_full_path,' TRANSFER_TO_GL ##> MFAR available');
198: psa_utils.debug_other_string(g_state_level, l_full_path,
199: ' TRANSFER_TO_GL ##> Calling MFAR Transfer to GL --> PSA_xfr_to_gl_pkg.Transfer_to_gl');
200: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
201: -- ========================= FND LOG ===========================
202:
203: PSA_xfr_to_gl_pkg.Transfer_to_gl( errbuf => l_errbuf,
204: retcode => l_retcode,
205: p_set_of_books_id => l_set_of_books_id,
209: p_parent_req_id => p_parent_req_id,
210: p_summary_flag => p_summary_flag,
211: p_pst_ctrl_id => p_posting_control_id);
212:
213: -- ========================= FND LOG ===========================
214: psa_utils.debug_other_string(g_state_level,l_full_path,' l_retcode --> ' || l_retcode);
215: -- ========================= FND LOG ===========================
216:
217: IF l_retcode = 'F' THEN
211: p_pst_ctrl_id => p_posting_control_id);
212:
213: -- ========================= FND LOG ===========================
214: psa_utils.debug_other_string(g_state_level,l_full_path,' l_retcode --> ' || l_retcode);
215: -- ========================= FND LOG ===========================
216:
217: IF l_retcode = 'F' THEN
218: RAISE PSA_MFAR_EXCEPTION;
219: END IF;
223: EXCEPTION
224: WHEN product_not_installed THEN
225: p_status_code := 'S';
226: l_message := 'EXCEPTION - PRODUCT_NOT_INSTALLED PACKAGE - PSA_AR_GL_POST_PKG.TRANSFER_TO_GL - ';
227: -- ========================= FND LOG ===========================
228: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
229: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
230: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
231: -- ========================= FND LOG ===========================
227: -- ========================= FND LOG ===========================
228: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
229: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
230: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
231: -- ========================= FND LOG ===========================
232:
233: WHEN fv_ar_exception THEN
234:
235: p_status_code := 'F';
234:
235: p_status_code := 'F';
236: fnd_message.set_name ('AR', 'GENERIC_MESSAGE');
237: fnd_message.set_token ('GENERIC_TEXT', 'EXCEPTION - FV_AR_EXCEPTION PACKAGE - PSA_AR_GL_POST_PKG.TRANSFER_TO_GL - '|| sqlerrm);
238: -- ========================= FND LOG ===========================
239: psa_utils.debug_other_msg(g_excep_level,l_full_path,FALSE);
240: -- ========================= FND LOG ===========================
241: l_message := fnd_message.get;
242: -- ========================= FND LOG ===========================
236: fnd_message.set_name ('AR', 'GENERIC_MESSAGE');
237: fnd_message.set_token ('GENERIC_TEXT', 'EXCEPTION - FV_AR_EXCEPTION PACKAGE - PSA_AR_GL_POST_PKG.TRANSFER_TO_GL - '|| sqlerrm);
238: -- ========================= FND LOG ===========================
239: psa_utils.debug_other_msg(g_excep_level,l_full_path,FALSE);
240: -- ========================= FND LOG ===========================
241: l_message := fnd_message.get;
242: -- ========================= FND LOG ===========================
243: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
244: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
238: -- ========================= FND LOG ===========================
239: psa_utils.debug_other_msg(g_excep_level,l_full_path,FALSE);
240: -- ========================= FND LOG ===========================
241: l_message := fnd_message.get;
242: -- ========================= FND LOG ===========================
243: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
244: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
245: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
246: -- ========================= FND LOG ===========================
242: -- ========================= FND LOG ===========================
243: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
244: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
245: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
246: -- ========================= FND LOG ===========================
247:
248: WHEN PSA_MFAR_EXCEPTION THEN
249: p_status_code := 'F';
250: l_message := 'EXCEPTION - PSA_MFAR_EXCEPTION PACKAGE - PSA_AR_GL_POST_PKG.TRANSFER_TO_GL - ';
248: WHEN PSA_MFAR_EXCEPTION THEN
249: p_status_code := 'F';
250: l_message := 'EXCEPTION - PSA_MFAR_EXCEPTION PACKAGE - PSA_AR_GL_POST_PKG.TRANSFER_TO_GL - ';
251:
252: -- ========================= FND LOG ===========================
253: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
254: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
255: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
256: -- ========================= FND LOG ===========================
252: -- ========================= FND LOG ===========================
253: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
254: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
255: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
256: -- ========================= FND LOG ===========================
257:
258: WHEN OTHERS THEN
259:
260: p_status_code := 'F';
259:
260: p_status_code := 'F';
261: fnd_message.set_name ('AR', 'GENERIC_MESSAGE');
262: fnd_message.set_token ('GENERIC_TEXT', 'EXCEPTION - OTHERS PACKAGE - PSA_AR_GL_POST_PKG.TRANSFER_TO_GL - '|| sqlerrm);
263: -- ========================= FND LOG ===========================
264: psa_utils.debug_other_msg(g_unexp_level,l_full_path,FALSE);
265: -- ========================= FND LOG ===========================
266: l_message := fnd_message.get;
267: -- ========================= FND LOG ===========================
261: fnd_message.set_name ('AR', 'GENERIC_MESSAGE');
262: fnd_message.set_token ('GENERIC_TEXT', 'EXCEPTION - OTHERS PACKAGE - PSA_AR_GL_POST_PKG.TRANSFER_TO_GL - '|| sqlerrm);
263: -- ========================= FND LOG ===========================
264: psa_utils.debug_other_msg(g_unexp_level,l_full_path,FALSE);
265: -- ========================= FND LOG ===========================
266: l_message := fnd_message.get;
267: -- ========================= FND LOG ===========================
268: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
269: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
263: -- ========================= FND LOG ===========================
264: psa_utils.debug_other_msg(g_unexp_level,l_full_path,FALSE);
265: -- ========================= FND LOG ===========================
266: l_message := fnd_message.get;
267: -- ========================= FND LOG ===========================
268: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
269: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
270: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
271: -- ========================= FND LOG ===========================
267: -- ========================= FND LOG ===========================
268: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
269: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
270: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
271: -- ========================= FND LOG ===========================
272:
273: END; -- ## End MFAR process.
274:
275: /* ###################### RESET TRANSACTION CODES ########################## */
286:
287: p_status_code := 'F';
288: fnd_profile.get ('USSGL_OPTION', l_ussgl_option);
289:
290: -- ========================= FND LOG ===========================
291: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
292: psa_utils.debug_other_string(g_state_level,l_full_path,
293: ' TRANSFER_TO_GL ##> START RESET TRANSACTION CODES ');
294: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
292: psa_utils.debug_other_string(g_state_level,l_full_path,
293: ' TRANSFER_TO_GL ##> START RESET TRANSACTION CODES ');
294: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
295: psa_utils.debug_other_string(g_state_level,l_full_path,' l_ussgl_option --> ' || l_ussgl_option);
296: -- ========================= FND LOG ===========================
297:
298: IF l_ussgl_option = 'Y' THEN
299:
300: -- ========================= FND LOG ===========================
296: -- ========================= FND LOG ===========================
297:
298: IF l_ussgl_option = 'Y' THEN
299:
300: -- ========================= FND LOG ===========================
301: psa_utils.debug_other_string(g_state_level,l_full_path,
302: ' TRANSFER_TO_GL ##> Calling PSA_AR_GL_INTERFACE.reset_transaction_codes ');
303: -- ========================= FND LOG ===========================
304:
299:
300: -- ========================= FND LOG ===========================
301: psa_utils.debug_other_string(g_state_level,l_full_path,
302: ' TRANSFER_TO_GL ##> Calling PSA_AR_GL_INTERFACE.reset_transaction_codes ');
303: -- ========================= FND LOG ===========================
304:
305: PSA_AR_GL_INTERFACE.reset_transaction_codes (err_buf => l_errbuf,
306: ret_code => l_retcode,
307: p_pstctrl_id => p_posting_control_id);
305: PSA_AR_GL_INTERFACE.reset_transaction_codes (err_buf => l_errbuf,
306: ret_code => l_retcode,
307: p_pstctrl_id => p_posting_control_id);
308:
309: -- ========================= FND LOG ===========================
310: psa_utils.debug_other_string(g_state_level,l_full_path,' l_retcode --> ' || l_retcode);
311: -- ========================= FND LOG ===========================
312:
313: IF l_retcode = 'F' THEN
307: p_pstctrl_id => p_posting_control_id);
308:
309: -- ========================= FND LOG ===========================
310: psa_utils.debug_other_string(g_state_level,l_full_path,' l_retcode --> ' || l_retcode);
311: -- ========================= FND LOG ===========================
312:
313: IF l_retcode = 'F' THEN
314: RAISE PSA_RESET_TC_EXCEPTION;
315: END IF;
324:
325: p_status_code := 'F';
326: l_message := 'EXCEPTION - PSA_RESET_TC_EXCEPTION PACKAGE - PSA_AR_GL_POST_PKG.TRANSFER_TO_GL - ' || sqlerrm;
327:
328: -- ========================= FND LOG ===========================
329: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
330: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
331: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
332: -- ========================= FND LOG ===========================
328: -- ========================= FND LOG ===========================
329: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
330: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
331: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
332: -- ========================= FND LOG ===========================
333:
334: WHEN OTHERS THEN
335:
336: p_status_code := 'F';
335:
336: p_status_code := 'F';
337: fnd_message.set_name ('AR', 'GENERIC_MESSAGE');
338: fnd_message.set_token ('GENERIC_TEXT', 'EXCEPTION - OTHERS PACKAGE - PSA_AR_GL_POST_PKG.TRANSFER_TO_GL - '|| sqlerrm);
339: -- ========================= FND LOG ===========================
340: psa_utils.debug_other_msg(g_unexp_level,l_full_path,FALSE);
341: -- ========================= FND LOG ===========================
342: l_message := fnd_message.get;
343: -- ========================= FND LOG ===========================
337: fnd_message.set_name ('AR', 'GENERIC_MESSAGE');
338: fnd_message.set_token ('GENERIC_TEXT', 'EXCEPTION - OTHERS PACKAGE - PSA_AR_GL_POST_PKG.TRANSFER_TO_GL - '|| sqlerrm);
339: -- ========================= FND LOG ===========================
340: psa_utils.debug_other_msg(g_unexp_level,l_full_path,FALSE);
341: -- ========================= FND LOG ===========================
342: l_message := fnd_message.get;
343: -- ========================= FND LOG ===========================
344: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
345: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
339: -- ========================= FND LOG ===========================
340: psa_utils.debug_other_msg(g_unexp_level,l_full_path,FALSE);
341: -- ========================= FND LOG ===========================
342: l_message := fnd_message.get;
343: -- ========================= FND LOG ===========================
344: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
345: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
346: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
347: -- ========================= FND LOG ===========================
343: -- ========================= FND LOG ===========================
344: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
345: psa_utils.debug_other_string(g_excep_level,l_full_path,l_message);
346: psa_utils.debug_other_string(g_excep_level,l_full_path,' ');
347: -- ========================= FND LOG ===========================
348: END; -- ## End Reset Transaction Codes.
349:
350: END transfer_to_gl;
351: END psa_ar_gl_post_pkg;