[Home] [Help]
80: l_run_num NUMBER(15);
81:
82: /* ################################## GLOBAL VARIABLES DECLARE END ################################## */
83:
84: --===========================FND_LOG.START=====================================
85: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
86: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
87: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
88: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
81:
82: /* ################################## GLOBAL VARIABLES DECLARE END ################################## */
83:
84: --===========================FND_LOG.START=====================================
85: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
86: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
87: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
88: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
89: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
82: /* ################################## GLOBAL VARIABLES DECLARE END ################################## */
83:
84: --===========================FND_LOG.START=====================================
85: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
86: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
87: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
88: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
89: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
90: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
83:
84: --===========================FND_LOG.START=====================================
85: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
86: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
87: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
88: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
89: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
90: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
91: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFG2B.PSA_XFR_TO_GL_PKG.';
84: --===========================FND_LOG.START=====================================
85: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
86: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
87: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
88: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
89: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
90: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
91: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFG2B.PSA_XFR_TO_GL_PKG.';
92: --===========================FND_LOG.END=======================================
85: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
86: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
87: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
88: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
89: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
90: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
91: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFG2B.PSA_XFR_TO_GL_PKG.';
92: --===========================FND_LOG.END=======================================
93:
86: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
87: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
88: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
89: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
90: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
91: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFG2B.PSA_XFR_TO_GL_PKG.';
92: --===========================FND_LOG.END=======================================
93:
94: PROCEDURE Transfer_to_gl ( errbuf OUT NOCOPY VARCHAR2,
88: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
89: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
90: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
91: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFG2B.PSA_XFR_TO_GL_PKG.';
92: --===========================FND_LOG.END=======================================
93:
94: PROCEDURE Transfer_to_gl ( errbuf OUT NOCOPY VARCHAR2,
95: retcode OUT NOCOPY VARCHAR2,
96: p_set_of_books_id IN NUMBER,
103:
104: IS
105:
106: MFAR_PROC_EXCEPTION EXCEPTION;
107: -- ========================= FND LOG ===========================
108: l_full_path VARCHAR2(100) := g_path || 'Transfer_to_gl';
109: -- ========================= FND LOG ===========================
110:
111: BEGIN
105:
106: MFAR_PROC_EXCEPTION EXCEPTION;
107: -- ========================= FND LOG ===========================
108: l_full_path VARCHAR2(100) := g_path || 'Transfer_to_gl';
109: -- ========================= FND LOG ===========================
110:
111: BEGIN
112:
113: -- ========================= FND LOG ===========================
109: -- ========================= FND LOG ===========================
110:
111: BEGIN
112:
113: -- ========================= FND LOG ===========================
114: psa_utils.debug_other_string(g_state_level,l_full_path,
115: ' ########################## ');
116: psa_utils.debug_other_string(g_state_level,l_full_path,
117: ' ## Transfer to gl START ## ');
121: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
122: psa_utils.debug_other_string(g_state_level,l_full_path, ' ');
123: psa_utils.debug_other_string(g_state_level,l_full_path, ' PROCESS : ');
124: psa_utils.debug_other_string(g_state_level,l_full_path, ' ========= ');
125: -- ========================= FND LOG ===========================
126:
127: /*
128: ## This procedure will call the procedures in the following order
129: ## 1. Transaction
141: -- Assignment from populate_global_variables has been removed.
142:
143: l_pst_ctrl_id := p_pst_ctrl_id;
144:
145: -- ========================= FND LOG ===========================
146: psa_utils.debug_other_string(g_state_level,l_full_path,
147: ' ##> value of l_pst_ctrl_id set to '||p_pst_ctrl_id);
148: psa_utils.debug_other_string(g_state_level,l_full_path,
149: ' ##> setting savepoint PSA_PSAMFG2B ');
146: psa_utils.debug_other_string(g_state_level,l_full_path,
147: ' ##> value of l_pst_ctrl_id set to '||p_pst_ctrl_id);
148: psa_utils.debug_other_string(g_state_level,l_full_path,
149: ' ##> setting savepoint PSA_PSAMFG2B ');
150: -- ========================= FND LOG ===========================
151: SAVEPOINT PSA_PSAMFG2B;
152:
153: -- ========================= FND LOG ===========================
154: psa_utils.debug_other_string(g_state_level,l_full_path,
149: ' ##> setting savepoint PSA_PSAMFG2B ');
150: -- ========================= FND LOG ===========================
151: SAVEPOINT PSA_PSAMFG2B;
152:
153: -- ========================= FND LOG ===========================
154: psa_utils.debug_other_string(g_state_level,l_full_path,
155: ' ##> Now populating global variables ');
156: -- ========================= FND LOG ===========================
157: Populate_global_variables;
152:
153: -- ========================= FND LOG ===========================
154: psa_utils.debug_other_string(g_state_level,l_full_path,
155: ' ##> Now populating global variables ');
156: -- ========================= FND LOG ===========================
157: Populate_global_variables;
158:
159: -- ========================= FND LOG ===========================
160: psa_utils.debug_other_string(g_state_level,l_full_path,
155: ' ##> Now populating global variables ');
156: -- ========================= FND LOG ===========================
157: Populate_global_variables;
158:
159: -- ========================= FND LOG ===========================
160: psa_utils.debug_other_string(g_state_level,l_full_path,
161: ' ##> Trasferring data to GL interface ');
162: -- ========================= FND LOG ===========================
163:
158:
159: -- ========================= FND LOG ===========================
160: psa_utils.debug_other_string(g_state_level,l_full_path,
161: ' ##> Trasferring data to GL interface ');
162: -- ========================= FND LOG ===========================
163:
164: IF arp_global.sysparam.accounting_method = 'ACCRUAL' THEN
165:
166: -- ========================= FND LOG ===========================
162: -- ========================= FND LOG ===========================
163:
164: IF arp_global.sysparam.accounting_method = 'ACCRUAL' THEN
165:
166: -- ========================= FND LOG ===========================
167: psa_utils.debug_other_string(g_state_level,l_full_path,
168: ' arp_global.sysparam.accounting_method ==> ACCRUAL ');
169: psa_utils.debug_other_string(g_state_level,l_full_path,
170: ' --> Calling Reverse_core_entries_if_any');
167: psa_utils.debug_other_string(g_state_level,l_full_path,
168: ' arp_global.sysparam.accounting_method ==> ACCRUAL ');
169: psa_utils.debug_other_string(g_state_level,l_full_path,
170: ' --> Calling Reverse_core_entries_if_any');
171: -- ========================= FND LOG ===========================
172:
173: -- Bug 3621280.
174: -- reversing Core CM applications if they dont balance by fund or Balance.
175: Reverse_core_entries_if_any (errbuf,
176: retcode,
177: p_set_of_books_id,
178: l_error_message);
179:
180: -- ========================= FND LOG ===========================
181: psa_utils.debug_other_string(g_state_level,l_full_path,
182: ' retcode ==> ' || retcode);
183: -- ========================= FND LOG ===========================
184:
179:
180: -- ========================= FND LOG ===========================
181: psa_utils.debug_other_string(g_state_level,l_full_path,
182: ' retcode ==> ' || retcode);
183: -- ========================= FND LOG ===========================
184:
185: IF retcode = 'F' THEN
186: RAISE MFAR_PROC_EXCEPTION;
187: END IF;
185: IF retcode = 'F' THEN
186: RAISE MFAR_PROC_EXCEPTION;
187: END IF;
188:
189: -- ========================= FND LOG ===========================
190: psa_utils.debug_other_string(g_state_level,l_full_path,
191: ' Calling MFAR_Trx_to_gl ');
192: -- ========================= FND LOG ===========================
193:
188:
189: -- ========================= FND LOG ===========================
190: psa_utils.debug_other_string(g_state_level,l_full_path,
191: ' Calling MFAR_Trx_to_gl ');
192: -- ========================= FND LOG ===========================
193:
194: MFAR_Trx_to_gl ( errbuf,
195: retcode,
196: p_set_of_books_id,
198: p_gl_date_to,
199: p_gl_posted_date,
200: p_summary_flag);
201:
202: -- ========================= FND LOG ===========================
203: psa_utils.debug_other_string(g_state_level,l_full_path,
204: ' retcode ==> ' || retcode);
205: -- ========================= FND LOG ===========================
206:
201:
202: -- ========================= FND LOG ===========================
203: psa_utils.debug_other_string(g_state_level,l_full_path,
204: ' retcode ==> ' || retcode);
205: -- ========================= FND LOG ===========================
206:
207: IF retcode = 'F' THEN
208: RAISE MFAR_PROC_EXCEPTION;
209: END IF;
207: IF retcode = 'F' THEN
208: RAISE MFAR_PROC_EXCEPTION;
209: END IF;
210:
211: -- ========================= FND LOG ===========================
212: psa_utils.debug_other_string(g_state_level,l_full_path,
213: ' Calling MFAR_Rcpt_to_gl ');
214: -- ========================= FND LOG ===========================
215:
210:
211: -- ========================= FND LOG ===========================
212: psa_utils.debug_other_string(g_state_level,l_full_path,
213: ' Calling MFAR_Rcpt_to_gl ');
214: -- ========================= FND LOG ===========================
215:
216: MFAR_Rcpt_to_gl (errbuf,
217: retcode,
218: p_set_of_books_id,
220: p_gl_date_to,
221: p_gl_posted_date,
222: p_summary_flag);
223:
224: -- ========================= FND LOG ===========================
225: psa_utils.debug_other_string(g_state_level,l_full_path,
226: ' retcode ==> ' || retcode);
227: -- ========================= FND LOG ===========================
228:
223:
224: -- ========================= FND LOG ===========================
225: psa_utils.debug_other_string(g_state_level,l_full_path,
226: ' retcode ==> ' || retcode);
227: -- ========================= FND LOG ===========================
228:
229: IF retcode = 'F' THEN
230: RAISE MFAR_PROC_EXCEPTION;
231: END IF;
229: IF retcode = 'F' THEN
230: RAISE MFAR_PROC_EXCEPTION;
231: END IF;
232:
233: -- ========================= FND LOG ===========================
234: psa_utils.debug_other_string(g_state_level,l_full_path,
235: ' Calling Misc_rct_to_gl ');
236: -- ========================= FND LOG ===========================
237:
232:
233: -- ========================= FND LOG ===========================
234: psa_utils.debug_other_string(g_state_level,l_full_path,
235: ' Calling Misc_rct_to_gl ');
236: -- ========================= FND LOG ===========================
237:
238: Misc_rct_to_gl( errbuf,
239: retcode,
240: p_set_of_books_id,
241: p_gl_date_from,
242: p_gl_date_to ,
243: p_gl_posted_date);
244:
245: -- ========================= FND LOG ===========================
246: psa_utils.debug_other_string(g_state_level,l_full_path,
247: ' retcode ==> ' || retcode);
248: -- ========================= FND LOG ===========================
249:
244:
245: -- ========================= FND LOG ===========================
246: psa_utils.debug_other_string(g_state_level,l_full_path,
247: ' retcode ==> ' || retcode);
248: -- ========================= FND LOG ===========================
249:
250: IF retcode = 'F' THEN
251: RAISE MFAR_PROC_EXCEPTION;
252: END IF;
250: IF retcode = 'F' THEN
251: RAISE MFAR_PROC_EXCEPTION;
252: END IF;
253:
254: -- ========================= FND LOG ===========================
255: psa_utils.debug_other_string(g_state_level,l_full_path,
256: ' Calling MFAR_Adj_to_gl ');
257: -- ========================= FND LOG ===========================
258:
253:
254: -- ========================= FND LOG ===========================
255: psa_utils.debug_other_string(g_state_level,l_full_path,
256: ' Calling MFAR_Adj_to_gl ');
257: -- ========================= FND LOG ===========================
258:
259: MFAR_Adj_to_gl ( errbuf,
260: retcode,
261: p_set_of_books_id,
263: p_gl_date_to,
264: p_gl_posted_date,
265: p_summary_flag);
266:
267: -- ========================= FND LOG ===========================
268: psa_utils.debug_other_string(g_state_level,l_full_path,
269: ' retcode ==> ' || retcode);
270: -- ========================= FND LOG ===========================
271:
266:
267: -- ========================= FND LOG ===========================
268: psa_utils.debug_other_string(g_state_level,l_full_path,
269: ' retcode ==> ' || retcode);
270: -- ========================= FND LOG ===========================
271:
272: IF retcode = 'F' THEN
273: RAISE MFAR_PROC_EXCEPTION;
274: END IF;
274: END IF;
275:
276: ELSIF arp_global.sysparam.accounting_method = 'CASH' THEN
277:
278: -- ========================= FND LOG ===========================
279: psa_utils.debug_other_string(g_state_level,l_full_path,
280: ' arp_global.sysparam.accounting_method ==> CASH ');
281: psa_utils.debug_other_string(g_state_level,l_full_path,
282: ' Calling MFAR_Rcpt_to_gl_CB ');
279: psa_utils.debug_other_string(g_state_level,l_full_path,
280: ' arp_global.sysparam.accounting_method ==> CASH ');
281: psa_utils.debug_other_string(g_state_level,l_full_path,
282: ' Calling MFAR_Rcpt_to_gl_CB ');
283: -- ========================= FND LOG ===========================
284:
285: MFAR_Rcpt_to_gl_CB
286: (errbuf,
287: retcode,
290: p_gl_date_to,
291: p_gl_posted_date,
292: p_summary_flag);
293:
294: -- ========================= FND LOG ===========================
295: psa_utils.debug_other_string(g_state_level,l_full_path,
296: ' retcode ==> ' || retcode);
297: -- ========================= FND LOG ===========================
298:
293:
294: -- ========================= FND LOG ===========================
295: psa_utils.debug_other_string(g_state_level,l_full_path,
296: ' retcode ==> ' || retcode);
297: -- ========================= FND LOG ===========================
298:
299: IF retcode = 'F' THEN
300: RAISE MFAR_PROC_EXCEPTION;
301: END IF;
299: IF retcode = 'F' THEN
300: RAISE MFAR_PROC_EXCEPTION;
301: END IF;
302:
303: -- ========================= FND LOG ===========================
304: psa_utils.debug_other_string(g_state_level,l_full_path,
305: ' Calling Misc_rct_to_gl_CB ');
306: -- ========================= FND LOG ===========================
307:
302:
303: -- ========================= FND LOG ===========================
304: psa_utils.debug_other_string(g_state_level,l_full_path,
305: ' Calling Misc_rct_to_gl_CB ');
306: -- ========================= FND LOG ===========================
307:
308: Misc_rct_to_gl_CB
309: (errbuf,
310: retcode,
312: p_gl_date_from,
313: p_gl_date_to ,
314: p_gl_posted_date);
315:
316: -- ========================= FND LOG ===========================
317: psa_utils.debug_other_string(g_state_level,l_full_path,
318: ' retcode ==> ' || retcode);
319: -- ========================= FND LOG ===========================
320:
315:
316: -- ========================= FND LOG ===========================
317: psa_utils.debug_other_string(g_state_level,l_full_path,
318: ' retcode ==> ' || retcode);
319: -- ========================= FND LOG ===========================
320:
321: IF retcode = 'F' THEN
322: RAISE MFAR_PROC_EXCEPTION;
323: END IF;
339: END LOOP;
340: RAISE MFAR_PROC_EXCEPTION;
341: END IF;
342:
343: -- ========================= FND LOG ===========================
344: psa_utils.debug_other_string(g_state_level,l_full_path,
345: ' ##> Updating GL interface with proper segments ');
346: -- ========================= FND LOG ===========================
347:
342:
343: -- ========================= FND LOG ===========================
344: psa_utils.debug_other_string(g_state_level,l_full_path,
345: ' ##> Updating GL interface with proper segments ');
346: -- ========================= FND LOG ===========================
347:
348: Upd_seg_in_gl_interface;
349:
350: -- ========================= FND LOG ===========================
346: -- ========================= FND LOG ===========================
347:
348: Upd_seg_in_gl_interface;
349:
350: -- ========================= FND LOG ===========================
351: psa_utils.debug_other_string(g_state_level,l_full_path, ' ');
352: psa_utils.debug_other_string(g_state_level,l_full_path,
353: ' ############################## ');
354: psa_utils.debug_other_string(g_state_level,l_full_path,
356: psa_utils.debug_other_string(g_state_level,l_full_path,
357: ' ############################## ');
358: psa_utils.debug_other_string(g_state_level,l_full_path,
359: ' ' || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
360: -- ========================= FND LOG ===========================
361:
362: EXCEPTION
363: WHEN MFAR_PROC_EXCEPTION THEN
364: -- ========================= FND LOG ===========================
360: -- ========================= FND LOG ===========================
361:
362: EXCEPTION
363: WHEN MFAR_PROC_EXCEPTION THEN
364: -- ========================= FND LOG ===========================
365: psa_utils.debug_other_string(g_excep_level,l_full_path,
366: 'EXCEPTION - MFAR_PROC_EXCEPTION : ERROR IN PSA_TRANSFER_TO_GL_PKG.TRANSFER_TO_GL');
367: -- ========================= FND LOG ===========================
368:
363: WHEN MFAR_PROC_EXCEPTION THEN
364: -- ========================= FND LOG ===========================
365: psa_utils.debug_other_string(g_excep_level,l_full_path,
366: 'EXCEPTION - MFAR_PROC_EXCEPTION : ERROR IN PSA_TRANSFER_TO_GL_PKG.TRANSFER_TO_GL');
367: -- ========================= FND LOG ===========================
368:
369: BEGIN
370: -- ========================= FND LOG ===========================
371: psa_utils.debug_other_string(g_excep_level,l_full_path,'Rolling back');
366: 'EXCEPTION - MFAR_PROC_EXCEPTION : ERROR IN PSA_TRANSFER_TO_GL_PKG.TRANSFER_TO_GL');
367: -- ========================= FND LOG ===========================
368:
369: BEGIN
370: -- ========================= FND LOG ===========================
371: psa_utils.debug_other_string(g_excep_level,l_full_path,'Rolling back');
372: -- ========================= FND LOG ===========================
373: ROLLBACK TO PSA_PSAMFG2B;
374: EXCEPTION
368:
369: BEGIN
370: -- ========================= FND LOG ===========================
371: psa_utils.debug_other_string(g_excep_level,l_full_path,'Rolling back');
372: -- ========================= FND LOG ===========================
373: ROLLBACK TO PSA_PSAMFG2B;
374: EXCEPTION
375: WHEN OTHERS THEN
376: -- ========================= FND LOG ===========================
372: -- ========================= FND LOG ===========================
373: ROLLBACK TO PSA_PSAMFG2B;
374: EXCEPTION
375: WHEN OTHERS THEN
376: -- ========================= FND LOG ===========================
377: psa_utils.debug_other_string(g_excep_level,l_full_path,
378: 'EXCEPTION - MFAR_PROC_EXCEPTION : SAVEPOINT ERASED.');
379: -- ========================= FND LOG ===========================
380: END;
375: WHEN OTHERS THEN
376: -- ========================= FND LOG ===========================
377: psa_utils.debug_other_string(g_excep_level,l_full_path,
378: 'EXCEPTION - MFAR_PROC_EXCEPTION : SAVEPOINT ERASED.');
379: -- ========================= FND LOG ===========================
380: END;
381: retcode := 'F';
382:
383: WHEN OTHERS THEN
380: END;
381: retcode := 'F';
382:
383: WHEN OTHERS THEN
384: -- ========================= FND LOG ===========================
385: psa_utils.debug_other_string(g_excep_level,l_full_path,'EXCEPTION - OTHERS : ERROR IN PSA_TRANSFER_TO_GL_PKG.TRANSFER_TO_GL');
386: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
387: psa_utils.debug_unexpected_msg(l_full_path);
388: -- ========================= FND LOG ===========================
384: -- ========================= FND LOG ===========================
385: psa_utils.debug_other_string(g_excep_level,l_full_path,'EXCEPTION - OTHERS : ERROR IN PSA_TRANSFER_TO_GL_PKG.TRANSFER_TO_GL');
386: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
387: psa_utils.debug_unexpected_msg(l_full_path);
388: -- ========================= FND LOG ===========================
389:
390: BEGIN
391: -- ========================= FND LOG ===========================
392: psa_utils.debug_other_string(g_excep_level,l_full_path, 'Rolling back');
387: psa_utils.debug_unexpected_msg(l_full_path);
388: -- ========================= FND LOG ===========================
389:
390: BEGIN
391: -- ========================= FND LOG ===========================
392: psa_utils.debug_other_string(g_excep_level,l_full_path, 'Rolling back');
393: -- ========================= FND LOG ===========================
394: ROLLBACK TO PSA_PSAMFG2B;
395: EXCEPTION
389:
390: BEGIN
391: -- ========================= FND LOG ===========================
392: psa_utils.debug_other_string(g_excep_level,l_full_path, 'Rolling back');
393: -- ========================= FND LOG ===========================
394: ROLLBACK TO PSA_PSAMFG2B;
395: EXCEPTION
396: WHEN OTHERS THEN
397: -- ========================= FND LOG ===========================
393: -- ========================= FND LOG ===========================
394: ROLLBACK TO PSA_PSAMFG2B;
395: EXCEPTION
396: WHEN OTHERS THEN
397: -- ========================= FND LOG ===========================
398: psa_utils.debug_other_string(g_excep_level,l_full_path,
399: 'EXCEPTION - OTHERS : SAVEPOINT ERASED.');
400: -- ========================= FND LOG ===========================
401: END;
396: WHEN OTHERS THEN
397: -- ========================= FND LOG ===========================
398: psa_utils.debug_other_string(g_excep_level,l_full_path,
399: 'EXCEPTION - OTHERS : SAVEPOINT ERASED.');
400: -- ========================= FND LOG ===========================
401: END;
402: retcode := 'F';
403:
404: END Transfer_to_gl;
598: AND ((crh.STATUS <> 'REVERSED'));
599:
600:
601: PSA_MISC_GLX_FAIL EXCEPTION;
602: -- ========================= FND LOG ===========================
603: l_full_path VARCHAR2(100) := g_path || 'misc_rc_to_gl';
604: -- ========================= FND LOG ===========================
605:
606: BEGIN
600:
601: PSA_MISC_GLX_FAIL EXCEPTION;
602: -- ========================= FND LOG ===========================
603: l_full_path VARCHAR2(100) := g_path || 'misc_rc_to_gl';
604: -- ========================= FND LOG ===========================
605:
606: BEGIN
607:
608: -- ========================= FND LOG ===========================
604: -- ========================= FND LOG ===========================
605:
606: BEGIN
607:
608: -- ========================= FND LOG ===========================
609: psa_utils.debug_other_string(g_state_level,l_full_path, ' ');
610: psa_utils.debug_other_string(g_state_level,l_full_path,
611: ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
612: psa_utils.debug_other_string(g_state_level,l_full_path,
614: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
615: psa_utils.debug_other_string(g_state_level,l_full_path,
616: ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
617: psa_utils.debug_other_string(g_state_level,l_full_path, ' ');
618: -- ========================= FND LOG ===========================
619:
620: retcode := 'S';
621:
622: l_gl_start_date := p_gl_date_from;
622: l_gl_start_date := p_gl_date_from;
623: l_post_through_date := p_gl_date_to;
624: l_sob_id := p_set_of_books_id;
625:
626: -- ========================= FND LOG ===========================
627: psa_utils.debug_other_string(g_state_level,l_full_path, ' ');
628: psa_utils.debug_other_string(g_state_level,l_full_path, ' PARAMETERS :');
629: psa_utils.debug_other_string(g_state_level,l_full_path, ' ============');
630: psa_utils.debug_other_string(g_state_level,l_full_path,
645: psa_utils.debug_other_string(g_state_level,l_full_path, ' ');
646: psa_utils.debug_other_string(g_state_level,l_full_path, ' PROCESS :');
647: psa_utils.debug_other_string(g_state_level,l_full_path, ' =========');
648: psa_utils.debug_other_string(g_state_level,l_full_path, ' ');
649: -- ========================= FND LOG ===========================
650:
651: BEGIN
652:
653: /*
654: ## Call Create Misc Distributions program to create Multi-fund Distributions
655: ## for receipts that fall within the GL DATE parameters.
656: */
657:
658: -- ========================= FND LOG ===========================
659: psa_utils.debug_other_string(g_state_level,l_full_path,
660: ' --> Creating Distributions for Misc Receipts');
661: -- ========================= FND LOG ===========================
662:
657:
658: -- ========================= FND LOG ===========================
659: psa_utils.debug_other_string(g_state_level,l_full_path,
660: ' --> Creating Distributions for Misc Receipts');
661: -- ========================= FND LOG ===========================
662:
663: FOR I IN c_create_dist
664: LOOP
665:
673: run_num => l_run_num,
674: p_error_message => l_error_message,
675: p_report_only => 'N')) THEN
676:
677: -- ========================= FND LOG ===========================
678: psa_utils.debug_other_string(g_excep_level,l_full_path,
679: ' --> PSA_MF_CREATE_DISTRIBUTIONS.create_distributions -> FALSE');
680: -- ========================= FND LOG ===========================
681:
676:
677: -- ========================= FND LOG ===========================
678: psa_utils.debug_other_string(g_excep_level,l_full_path,
679: ' --> PSA_MF_CREATE_DISTRIBUTIONS.create_distributions -> FALSE');
680: -- ========================= FND LOG ===========================
681:
682: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
683: -- ========================= FND LOG ===========================
684: psa_utils.debug_other_string(g_excep_level,l_full_path,
679: ' --> PSA_MF_CREATE_DISTRIBUTIONS.create_distributions -> FALSE');
680: -- ========================= FND LOG ===========================
681:
682: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
683: -- ========================= FND LOG ===========================
684: psa_utils.debug_other_string(g_excep_level,l_full_path,
685: ' --> Raising invalid_distribution');
686: -- ========================= FND LOG ===========================
687: Raise INVALID_DISTRIBUTION;
682: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
683: -- ========================= FND LOG ===========================
684: psa_utils.debug_other_string(g_excep_level,l_full_path,
685: ' --> Raising invalid_distribution');
686: -- ========================= FND LOG ===========================
687: Raise INVALID_DISTRIBUTION;
688: END IF;
689: ELSE
690: -- ========================= FND LOG ===========================
686: -- ========================= FND LOG ===========================
687: Raise INVALID_DISTRIBUTION;
688: END IF;
689: ELSE
690: -- ========================= FND LOG ===========================
691: psa_utils.debug_other_string(g_state_level,l_full_path,
692: ' --> Cash receipt id --> ' || I.cash_receipt_id);
693: -- ========================= FND LOG ===========================
694: END IF;
689: ELSE
690: -- ========================= FND LOG ===========================
691: psa_utils.debug_other_string(g_state_level,l_full_path,
692: ' --> Cash receipt id --> ' || I.cash_receipt_id);
693: -- ========================= FND LOG ===========================
694: END IF;
695: END IF;
696:
697: END LOOP;
696:
697: END LOOP;
698: END;
699:
700: -- ========================= FND LOG ===========================
701: psa_utils.debug_other_string(g_state_level,l_full_path,
702: ' --> Inserting into GL INTERFACE foor - PSA_MF_MISC_DIST_ALL');
703: -- ========================= FND LOG ===========================
704:
699:
700: -- ========================= FND LOG ===========================
701: psa_utils.debug_other_string(g_state_level,l_full_path,
702: ' --> Inserting into GL INTERFACE foor - PSA_MF_MISC_DIST_ALL');
703: -- ========================= FND LOG ===========================
704:
705: FOR J IN Cur_MFAR_mrct_lines
706: LOOP
707:
765: J.ref29,
766: J.ref30);
767:
768: IF (SQL%FOUND) THEN
769: -- ========================= FND LOG ===========================
770: psa_utils.debug_other_string(g_state_level,l_full_path,
771: ' --> Receipt Number ==> ' || J.ref24 );
772: psa_utils.debug_other_string(g_state_level,l_full_path,
773: ' CCID => ' || J.ccid
772: psa_utils.debug_other_string(g_state_level,l_full_path,
773: ' CCID => ' || J.ccid
774: || ' DEBIT => ' || J.entered_dr
775: || ' CREDIT => ' || J.entered_cr);
776: -- ========================= FND LOG ===========================
777: END IF;
778:
779: END LOOP;
780:
777: END IF;
778:
779: END LOOP;
780:
781: -- ========================= FND LOG ===========================
782: psa_utils.debug_other_string(g_state_level,l_full_path,
783: ' --> Inserting into GL INTERFACE for - PSA_MF_REVERSE_OF_AR_CRH');
784: -- ========================= FND LOG ===========================
785:
780:
781: -- ========================= FND LOG ===========================
782: psa_utils.debug_other_string(g_state_level,l_full_path,
783: ' --> Inserting into GL INTERFACE for - PSA_MF_REVERSE_OF_AR_CRH');
784: -- ========================= FND LOG ===========================
785:
786: FOR J IN Cur_MFAR_crct_hist_lines
787: LOOP
788:
850: J.ref29,
851: J.ref30);
852:
853: IF (SQL%FOUND) THEN
854: -- ========================= FND LOG ===========================
855: psa_utils.debug_other_string(g_state_level,l_full_path,
856: ' --> Receipt Number ==> ' || J.ref24);
857: psa_utils.debug_other_string(g_state_level,l_full_path,
858: ' CCID => ' || J.ccid
857: psa_utils.debug_other_string(g_state_level,l_full_path,
858: ' CCID => ' || J.ccid
859: ||' DEBIT => ' || J.entered_dr
860: ||' CREDIT => ' || J.entered_cr );
861: -- ========================= FND LOG ===========================
862: END IF;
863: END LOOP;
864:
865: FOR K IN Cur_MFAR_LINES
925: K.ref29,
926: K.ref30);
927:
928: IF (SQL%FOUND) THEN
929: -- ========================= FND LOG ===========================
930: psa_utils.debug_other_string(g_state_level,l_full_path,
931: ' --> Receipt Number ==> ' || K.ref24);
932: psa_utils.debug_other_string(g_state_level,l_full_path,
933: ' CCID => ' || K.ccid
932: psa_utils.debug_other_string(g_state_level,l_full_path,
933: ' CCID => ' || K.ccid
934: || ' DEBIT => ' || K.entered_dr
935: || ' CREDIT => ' || K.entered_cr );
936: -- ========================= FND LOG ===========================
937: END IF;
938:
939: END LOOP;
940:
942: ## Insert a record into psa_misc_posting to keep track of
943: ## each reversing record of AR_CASH_RECEIPT_HISTORY, that we insert into GL_INTERFACE
944: */
945:
946: -- ========================= FND LOG ===========================
947: psa_utils.debug_other_string(g_state_level,l_full_path,
948: ' --> Inserting into psa_misc_posting ');
949: -- ========================= FND LOG ===========================
950:
945:
946: -- ========================= FND LOG ===========================
947: psa_utils.debug_other_string(g_state_level,l_full_path,
948: ' --> Inserting into psa_misc_posting ');
949: -- ========================= FND LOG ===========================
950:
951: FOR J IN c_crh_post
952: LOOP
953:
953:
954: INSERT INTO psa_misc_posting (cash_receipt_history_id, posting_control_id)
955: VALUES (J.cash_receipt_history_id, l_pst_ctrl_id);
956:
957: -- ========================= FND LOG ===========================
958: psa_utils.debug_other_string(g_state_level,l_full_path,
959: ' --> Cash receipt hist id --> ' || J.cash_receipt_history_id);
960: -- ========================= FND LOG ===========================
961:
956:
957: -- ========================= FND LOG ===========================
958: psa_utils.debug_other_string(g_state_level,l_full_path,
959: ' --> Cash receipt hist id --> ' || J.cash_receipt_history_id);
960: -- ========================= FND LOG ===========================
961:
962: END LOOP;
963:
964: UPDATE psa_mf_misc_dist_all
967: (SELECT misc_cash_distribution_id FROM ar_misc_cash_distributions
968: WHERE posting_control_id = l_pst_ctrl_id);
969:
970: IF (SQL%FOUND) THEN
971: -- ====================== FND LOG ==========================
972: psa_utils.debug_other_string(g_state_level,l_full_path,
973: ' --> (PSA_MF_MISC_DIST_ALL) Updated Posting control id for '
974: || (SQL%ROWCOUNT));
975: -- ====================== FND LOG ==========================
971: -- ====================== FND LOG ==========================
972: psa_utils.debug_other_string(g_state_level,l_full_path,
973: ' --> (PSA_MF_MISC_DIST_ALL) Updated Posting control id for '
974: || (SQL%ROWCOUNT));
975: -- ====================== FND LOG ==========================
976: END IF;
977:
978: -- Bug3967158
979: -- delete all such records in psa_mf_misc_dist_all that
986: FROM ar_misc_cash_distributions
987: WHERE posting_control_id = l_pst_ctrl_id);
988:
989: IF (SQL%FOUND) THEN
990: -- ====================== FND LOG ==========================
991: psa_utils.debug_other_string(g_state_level,l_full_path,
992: ' --> (PSA_MF_MISC_DIST_ALL) Deleted --> '
993: || (SQL%ROWCOUNT));
994: -- ====================== FND LOG ==========================
990: -- ====================== FND LOG ==========================
991: psa_utils.debug_other_string(g_state_level,l_full_path,
992: ' --> (PSA_MF_MISC_DIST_ALL) Deleted --> '
993: || (SQL%ROWCOUNT));
994: -- ====================== FND LOG ==========================
995: END IF;
996:
997: -- ========================= FND LOG ===========================
998: psa_utils.debug_other_string(g_state_level,l_full_path,
993: || (SQL%ROWCOUNT));
994: -- ====================== FND LOG ==========================
995: END IF;
996:
997: -- ========================= FND LOG ===========================
998: psa_utils.debug_other_string(g_state_level,l_full_path,
999: ' --> END of MISC TRANSACTIONS '
1000: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
1001: -- ========================= FND LOG ===========================
997: -- ========================= FND LOG ===========================
998: psa_utils.debug_other_string(g_state_level,l_full_path,
999: ' --> END of MISC TRANSACTIONS '
1000: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
1001: -- ========================= FND LOG ===========================
1002:
1003: EXCEPTION
1004: WHEN INVALID_DISTRIBUTION THEN
1005: -- ========================= FND LOG ===========================
1001: -- ========================= FND LOG ===========================
1002:
1003: EXCEPTION
1004: WHEN INVALID_DISTRIBUTION THEN
1005: -- ========================= FND LOG ===========================
1006: psa_utils.debug_other_string(g_excep_level,l_full_path,
1007: ' --> EXCEPTION - INVALID_DISTRIBUTION raised during PSA_TRANSFER_TO_GL_PKG.Misc_rct_to_gl ');
1008: psa_utils.debug_other_string(g_excep_level,l_full_path,
1009: ' --> p_error_message --> ' || l_error_message);
1006: psa_utils.debug_other_string(g_excep_level,l_full_path,
1007: ' --> EXCEPTION - INVALID_DISTRIBUTION raised during PSA_TRANSFER_TO_GL_PKG.Misc_rct_to_gl ');
1008: psa_utils.debug_other_string(g_excep_level,l_full_path,
1009: ' --> p_error_message --> ' || l_error_message);
1010: -- ========================= FND LOG ===========================
1011: retcode := 'F';
1012:
1013: WHEN OTHERS THEN
1014: -- ========================= FND LOG ===========================
1010: -- ========================= FND LOG ===========================
1011: retcode := 'F';
1012:
1013: WHEN OTHERS THEN
1014: -- ========================= FND LOG ===========================
1015: psa_utils.debug_other_string(g_excep_level,l_full_path,
1016: ' --> EXCEPTION - OTHERS raised during PSA_TRANSFER_TO_GL_PKG.Misc_rct_to_gl ');
1017: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
1018: psa_utils.debug_unexpected_msg(l_full_path);
1015: psa_utils.debug_other_string(g_excep_level,l_full_path,
1016: ' --> EXCEPTION - OTHERS raised during PSA_TRANSFER_TO_GL_PKG.Misc_rct_to_gl ');
1017: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
1018: psa_utils.debug_unexpected_msg(l_full_path);
1019: -- ========================= FND LOG ===========================
1020: errbuf := 2;
1021: retcode := 'F';
1022:
1023: END Misc_rct_to_gl;
1145: AND nvl(ctlgd.amount,0) <> 0
1146: AND ctlgd.posting_control_id = l_pst_ctrl_id
1147: AND nvl(psa_trx_dist.posting_control_id, -3) = -3;
1148:
1149: -- ========================= FND LOG ===========================
1150: l_full_path VARCHAR2(100) := g_path || 'Mfar_trx_to_gl';
1151: -- ========================= FND LOG ===========================
1152:
1153: BEGIN
1147: AND nvl(psa_trx_dist.posting_control_id, -3) = -3;
1148:
1149: -- ========================= FND LOG ===========================
1150: l_full_path VARCHAR2(100) := g_path || 'Mfar_trx_to_gl';
1151: -- ========================= FND LOG ===========================
1152:
1153: BEGIN
1154:
1155: -- ========================= FND LOG ===========================
1151: -- ========================= FND LOG ===========================
1152:
1153: BEGIN
1154:
1155: -- ========================= FND LOG ===========================
1156: psa_utils.debug_other_string(g_state_level,l_full_path,
1157: ' ');
1158: psa_utils.debug_other_string(g_state_level,l_full_path,
1159: ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' );
1163: psa_utils.debug_other_string(g_state_level,l_full_path,
1164: ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
1165: psa_utils.debug_other_string(g_state_level,l_full_path,
1166: ' ');
1167: -- ========================= FND LOG ===========================
1168:
1169: retcode := 'S';
1170:
1171: l_gl_start_date := p_gl_date_from;
1171: l_gl_start_date := p_gl_date_from;
1172: l_post_through_date := p_gl_date_to;
1173: l_sob_id := p_set_of_books_id;
1174:
1175: -- ========================= FND LOG ===========================
1176: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS :');
1177: psa_utils.debug_other_string(g_state_level,l_full_path,' ============');
1178: psa_utils.debug_other_string(g_state_level,l_full_path,' p_gl_date_from -->' || p_gl_date_from );
1179: psa_utils.debug_other_string(g_state_level,l_full_path,' p_gl_date_to -->' || p_gl_date_to );
1189: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
1190: psa_utils.debug_other_string(g_state_level,l_full_path,' PROCESS :');
1191: psa_utils.debug_other_string(g_state_level,l_full_path,' =========');
1192: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
1193: -- ========================= FND LOG ===========================
1194:
1195: FOR I IN Cur_MFAR_cust_trx_id
1196: LOOP
1197:
1195: FOR I IN Cur_MFAR_cust_trx_id
1196: LOOP
1197:
1198: BEGIN
1199: -- ========================= FND LOG ===========================
1200: psa_utils.debug_other_string(g_state_level,l_full_path,
1201: ' --> Creating distribution for Cust trx id ==> '
1202: || l_run_num || ' -- ' || I.customer_trx_id );
1203: -- ========================= FND LOG ===========================
1199: -- ========================= FND LOG ===========================
1200: psa_utils.debug_other_string(g_state_level,l_full_path,
1201: ' --> Creating distribution for Cust trx id ==> '
1202: || l_run_num || ' -- ' || I.customer_trx_id );
1203: -- ========================= FND LOG ===========================
1204:
1205: IF NOT (PSA_MFAR_TRANSACTIONS.create_distributions (
1206: errbuf => l_errbuf,
1207: retcode => l_retcode,
1209: p_set_of_books_id => l_sob_id,
1210: p_run_id => l_run_num,
1211: p_error_message => l_error_message)) THEN
1212:
1213: -- ========================= FND LOG ===========================
1214: psa_utils.debug_other_string(g_excep_level,l_full_path,
1215: ' --> PSA_MFAR_TRANSACTIONS.create_distributions --> FALSE');
1216: -- ========================= FND LOG ===========================
1217: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
1212:
1213: -- ========================= FND LOG ===========================
1214: psa_utils.debug_other_string(g_excep_level,l_full_path,
1215: ' --> PSA_MFAR_TRANSACTIONS.create_distributions --> FALSE');
1216: -- ========================= FND LOG ===========================
1217: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
1218: -- ========================= FND LOG ===========================
1219: psa_utils.debug_other_string(g_excep_level,l_full_path,
1220: ' --> Raising invalid_distribution');
1214: psa_utils.debug_other_string(g_excep_level,l_full_path,
1215: ' --> PSA_MFAR_TRANSACTIONS.create_distributions --> FALSE');
1216: -- ========================= FND LOG ===========================
1217: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
1218: -- ========================= FND LOG ===========================
1219: psa_utils.debug_other_string(g_excep_level,l_full_path,
1220: ' --> Raising invalid_distribution');
1221: -- ========================= FND LOG ===========================
1222: Raise invalid_distribution;
1217: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
1218: -- ========================= FND LOG ===========================
1219: psa_utils.debug_other_string(g_excep_level,l_full_path,
1220: ' --> Raising invalid_distribution');
1221: -- ========================= FND LOG ===========================
1222: Raise invalid_distribution;
1223: END IF;
1224:
1225: ELSE
1222: Raise invalid_distribution;
1223: END IF;
1224:
1225: ELSE
1226: -- ========================= FND LOG ===========================
1227: psa_utils.debug_other_string(g_state_level,l_full_path,
1228: ' --> Customer trx id --> ' || I.customer_trx_id);
1229: -- ========================= FND LOG ===========================
1230: END IF;
1225: ELSE
1226: -- ========================= FND LOG ===========================
1227: psa_utils.debug_other_string(g_state_level,l_full_path,
1228: ' --> Customer trx id --> ' || I.customer_trx_id);
1229: -- ========================= FND LOG ===========================
1230: END IF;
1231: END;
1232:
1233: --
1234: -- Delete core receivables account line (INV_REC) from gl_interface
1235: -- when profile FV: Post Detailed Receipt Accounting = 'N'
1236: --
1237:
1238: -- ========================= FND LOG ===========================
1239: psa_utils.debug_other_string(g_state_level,l_full_path,
1240: ' --> l_post_det_acct_flag ==> ' || l_post_det_acct_flag );
1241: -- ========================= FND LOG ===========================
1242:
1237:
1238: -- ========================= FND LOG ===========================
1239: psa_utils.debug_other_string(g_state_level,l_full_path,
1240: ' --> l_post_det_acct_flag ==> ' || l_post_det_acct_flag );
1241: -- ========================= FND LOG ===========================
1242:
1243: IF l_post_det_acct_flag = 'N' THEN
1244:
1245: DELETE FROM GL_INTERFACE GI
1249: AND GI.reference29 IN ('INV_REC', 'DM_REC')
1250: AND GI.reference30 = 'RA_CUST_TRX_LINE_GL_DIST'
1251: AND GI.reference22 = to_char(I.customer_trx_id);
1252:
1253: -- ========================= FND LOG ===========================
1254: psa_utils.debug_other_string(g_state_level,l_full_path,
1255: ' --> DELETE FROM GL_INTERFACE ' || SQL%ROWCOUNT);
1256: -- ========================= FND LOG ===========================
1257:
1252:
1253: -- ========================= FND LOG ===========================
1254: psa_utils.debug_other_string(g_state_level,l_full_path,
1255: ' --> DELETE FROM GL_INTERFACE ' || SQL%ROWCOUNT);
1256: -- ========================= FND LOG ===========================
1257:
1258: END IF;
1259:
1260: FOR J IN Cur_MFAR_trx_lines (I.customer_trx_id)
1263: /*
1264: ## For each Cutomer trax id the record will be inserted.
1265: */
1266:
1267: -- ========================= FND LOG ===========================
1268: psa_utils.debug_other_string(g_state_level,l_full_path,
1269: ' --> Customer trx id ==> ' || I.customer_trx_id );
1270: -- ========================= FND LOG ===========================
1271:
1266:
1267: -- ========================= FND LOG ===========================
1268: psa_utils.debug_other_string(g_state_level,l_full_path,
1269: ' --> Customer trx id ==> ' || I.customer_trx_id );
1270: -- ========================= FND LOG ===========================
1271:
1272:
1273: INSERT INTO gl_interface
1274: (created_by,
1330: J.ref29,
1331: J.ref30);
1332:
1333: IF (SQL%FOUND) THEN
1334: -- ========================= FND LOG ===========================
1335: psa_utils.debug_other_string(g_state_level,l_full_path,
1336: ' --> Inserting into GL INTERFACE for ==> '
1337: || I.customer_trx_id );
1338: psa_utils.debug_other_string(g_state_level,l_full_path,
1338: psa_utils.debug_other_string(g_state_level,l_full_path,
1339: ' CCID => ' || J.ccid
1340: || ' DEBIT => ' || J.entered_dr
1341: || ' CREDIT => ' || J.entered_cr );
1342: -- ========================= FND LOG ===========================
1343: END IF;
1344:
1345: END LOOP;
1346:
1346:
1347: END LOOP;
1348:
1349:
1350: -- ========================= FND LOG ===========================
1351: psa_utils.debug_other_string(g_state_level,l_full_path,
1352: ' --> updating psa_mf_trx_dist_all with posting control id ');
1353: -- ========================= FND LOG ===========================
1354:
1349:
1350: -- ========================= FND LOG ===========================
1351: psa_utils.debug_other_string(g_state_level,l_full_path,
1352: ' --> updating psa_mf_trx_dist_all with posting control id ');
1353: -- ========================= FND LOG ===========================
1354:
1355: UPDATE psa_mf_trx_dist_all ptda
1356: SET ptda.posting_control_id = l_pst_ctrl_id
1357: WHERE ptda.cust_trx_line_gl_dist_id IN
1358: (SELECT cust_trx_line_gl_dist_id FROM ra_cust_trx_line_gl_dist rct
1359: WHERE rct.posting_control_id = l_pst_ctrl_id);
1360:
1361: IF (SQL%FOUND) THEN
1362: -- ========================= FND LOG ===========================
1363: psa_utils.debug_other_string(g_state_level,l_full_path,
1364: ' --> (PSA_MF_TRX_DIST_ALL) Updated Posting control id for '
1365: || SQL%ROWCOUNT);
1366: -- ========================= FND LOG ===========================
1362: -- ========================= FND LOG ===========================
1363: psa_utils.debug_other_string(g_state_level,l_full_path,
1364: ' --> (PSA_MF_TRX_DIST_ALL) Updated Posting control id for '
1365: || SQL%ROWCOUNT);
1366: -- ========================= FND LOG ===========================
1367: END IF;
1368:
1369: -- Bug 3671841, making the call to delete stray records.
1370:
1373: AND cust_trx_line_gl_dist_id NOT IN
1374: ( SELECT cust_trx_line_gl_dist_id FROM ra_cust_trx_line_gl_dist rct
1375: WHERE rct.posting_control_id = l_pst_ctrl_id);
1376:
1377: -- ========================= FND LOG ===========================
1378: psa_utils.debug_other_string(g_state_level,l_full_path,
1379: ' --> DELETE FROM psa_mf_trx_dist_all ==> ' || SQL%ROWCOUNT);
1380: psa_utils.debug_other_string(g_state_level,l_full_path,
1381: ' --> END of TRANSACTIONS '
1379: ' --> DELETE FROM psa_mf_trx_dist_all ==> ' || SQL%ROWCOUNT);
1380: psa_utils.debug_other_string(g_state_level,l_full_path,
1381: ' --> END of TRANSACTIONS '
1382: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
1383: -- ========================= FND LOG ===========================
1384:
1385: EXCEPTION
1386: WHEN INVALID_DISTRIBUTION THEN
1387: -- ========================= FND LOG ===========================
1383: -- ========================= FND LOG ===========================
1384:
1385: EXCEPTION
1386: WHEN INVALID_DISTRIBUTION THEN
1387: -- ========================= FND LOG ===========================
1388: psa_utils.debug_other_string(g_excep_level,l_full_path,
1389: ' --> EXCEPTION - INVALID_DISTRIBUTION raised during PSA_XFR_TO_GL_PKG.Mfar_trx_to_gl ');
1390: psa_utils.debug_other_string(g_excep_level,l_full_path,
1391: ' --> p_error_message --> ' || l_error_message);
1388: psa_utils.debug_other_string(g_excep_level,l_full_path,
1389: ' --> EXCEPTION - INVALID_DISTRIBUTION raised during PSA_XFR_TO_GL_PKG.Mfar_trx_to_gl ');
1390: psa_utils.debug_other_string(g_excep_level,l_full_path,
1391: ' --> p_error_message --> ' || l_error_message);
1392: -- ========================= FND LOG ===========================
1393: retcode := 'F';
1394:
1395: WHEN OTHERS THEN
1396: -- ========================= FND LOG ===========================
1392: -- ========================= FND LOG ===========================
1393: retcode := 'F';
1394:
1395: WHEN OTHERS THEN
1396: -- ========================= FND LOG ===========================
1397: psa_utils.debug_other_string(g_excep_level,l_full_path,
1398: ' --> EXCEPTION - OTHERS raised during PSA_XFR_TO_GL_PKG.Mfar_trx_to_gl ');
1399: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
1400: psa_utils.debug_unexpected_msg(l_full_path);
1397: psa_utils.debug_other_string(g_excep_level,l_full_path,
1398: ' --> EXCEPTION - OTHERS raised during PSA_XFR_TO_GL_PKG.Mfar_trx_to_gl ');
1399: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
1400: psa_utils.debug_unexpected_msg(l_full_path);
1401: -- ========================= FND LOG ===========================
1402: errbuf := 2;
1403: retcode := 'F';
1404:
1405: END Mfar_trx_to_gl;
1856: HAVING sum(accounted_dr) = sum(accounted_cr);
1857:
1858: l_fv_balance_check c_fv_balance_check%rowtype;
1859:
1860: -- ========================= FND LOG ===========================
1861: l_full_path VARCHAR2(100) := g_path || 'mfar_rcpt_to_gl';
1862: -- ========================= FND LOG ===========================
1863:
1864: BEGIN
1858: l_fv_balance_check c_fv_balance_check%rowtype;
1859:
1860: -- ========================= FND LOG ===========================
1861: l_full_path VARCHAR2(100) := g_path || 'mfar_rcpt_to_gl';
1862: -- ========================= FND LOG ===========================
1863:
1864: BEGIN
1865:
1866: retcode := 'S';
1864: BEGIN
1865:
1866: retcode := 'S';
1867:
1868: -- ========================= FND LOG ===========================
1869: psa_utils.debug_other_string(g_state_level,l_full_path,
1870: ' ' );
1871: psa_utils.debug_other_string(g_state_level,l_full_path,
1872: ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' );
1876: psa_utils.debug_other_string(g_state_level,l_full_path,
1877: ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' );
1878: psa_utils.debug_other_string(g_state_level,l_full_path,
1879: ' ' );
1880: -- ========================= FND LOG ===========================
1881:
1882: l_gl_start_date := p_gl_date_from;
1883: l_post_through_date := p_gl_date_to;
1884: l_summary_flag := p_summary_flag;
1883: l_post_through_date := p_gl_date_to;
1884: l_summary_flag := p_summary_flag;
1885: l_sob_id := p_set_of_books_id;
1886:
1887: -- ========================= FND LOG ===========================
1888: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS :');
1889: psa_utils.debug_other_string(g_state_level,l_full_path,' ============');
1890: psa_utils.debug_other_string(g_state_level,l_full_path,' p_gl_date_from -->' || p_gl_date_from );
1891: psa_utils.debug_other_string(g_state_level,l_full_path,' p_gl_date_to -->' || p_gl_date_to );
1902: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
1903: psa_utils.debug_other_string(g_state_level,l_full_path,' PROCESS :');
1904: psa_utils.debug_other_string(g_state_level,l_full_path,' =========');
1905: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
1906: -- ========================= FND LOG ===========================
1907:
1908: -- Begin processing of Cleared Receipts - Cash Management
1909:
1910: FOR K IN c_crh_posted
1909:
1910: FOR K IN c_crh_posted
1911: LOOP
1912:
1913: -- ========================= FND LOG ===========================
1914: psa_utils.debug_other_string(g_state_level,l_full_path,
1915: ' in to cursor c_crh_posted ');
1916: -- ========================= FND LOG ===========================
1917:
1912:
1913: -- ========================= FND LOG ===========================
1914: psa_utils.debug_other_string(g_state_level,l_full_path,
1915: ' in to cursor c_crh_posted ');
1916: -- ========================= FND LOG ===========================
1917:
1918: FOR I IN Cur_Clr_MFAR_rct_app_id
1919: LOOP
1920: /*
1925: -- select psa_mf_error_log_s.nextval into l_run_num from dual;
1926: -- This is now set in the initialization routine
1927:
1928: BEGIN
1929: -- ========================= FND LOG ===========================
1930: psa_utils.debug_other_string(g_state_level,l_full_path,
1931: ' --> inside Cur_Clr_MFAR_rct_app_id ');
1932: psa_utils.debug_other_string(g_state_level,l_full_path,
1933: ' --> Creating distribution for receivable_application_id ==> '
1931: ' --> inside Cur_Clr_MFAR_rct_app_id ');
1932: psa_utils.debug_other_string(g_state_level,l_full_path,
1933: ' --> Creating distribution for receivable_application_id ==> '
1934: || l_run_num || ' -- ' || I.receivable_application_id );
1935: -- ========================= FND LOG ===========================
1936:
1937: IF NOT (PSA_MFAR_RECEIPTS.create_distributions (
1938: errbuf => l_errbuf,
1939: retcode => l_retcode,
1941: p_set_of_books_id => l_sob_id,
1942: p_run_id => l_run_num,
1943: p_error_message => l_error_message)) THEN
1944:
1945: -- ========================= FND LOG ===========================
1946: psa_utils.debug_other_string(g_state_level,l_full_path,
1947: ' --> PSA_MFAR_RECEIPTS.create_distributions ==> FALSE ');
1948: -- ========================= FND LOG ===========================
1949:
1944:
1945: -- ========================= FND LOG ===========================
1946: psa_utils.debug_other_string(g_state_level,l_full_path,
1947: ' --> PSA_MFAR_RECEIPTS.create_distributions ==> FALSE ');
1948: -- ========================= FND LOG ===========================
1949:
1950: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
1951: -- ========================= FND LOG ===========================
1952: psa_utils.debug_other_string(g_excep_level,l_full_path,
1947: ' --> PSA_MFAR_RECEIPTS.create_distributions ==> FALSE ');
1948: -- ========================= FND LOG ===========================
1949:
1950: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
1951: -- ========================= FND LOG ===========================
1952: psa_utils.debug_other_string(g_excep_level,l_full_path,
1953: ' --> Raising invalid_distribution');
1954: -- ========================= FND LOG ===========================
1955: Raise invalid_distribution;
1950: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
1951: -- ========================= FND LOG ===========================
1952: psa_utils.debug_other_string(g_excep_level,l_full_path,
1953: ' --> Raising invalid_distribution');
1954: -- ========================= FND LOG ===========================
1955: Raise invalid_distribution;
1956: END IF;
1957:
1958: ELSE
1955: Raise invalid_distribution;
1956: END IF;
1957:
1958: ELSE
1959: -- ========================= FND LOG ===========================
1960: psa_utils.debug_other_string(g_state_level,l_full_path,
1961: ' Receivable Application id --> '
1962: || I.receivable_application_id);
1963: -- ========================= FND LOG ===========================
1959: -- ========================= FND LOG ===========================
1960: psa_utils.debug_other_string(g_state_level,l_full_path,
1961: ' Receivable Application id --> '
1962: || I.receivable_application_id);
1963: -- ========================= FND LOG ===========================
1964: END IF;
1965: END;
1966:
1967: -- ========================= FND LOG ===========================
1963: -- ========================= FND LOG ===========================
1964: END IF;
1965: END;
1966:
1967: -- ========================= FND LOG ===========================
1968: psa_utils.debug_other_string(g_state_level,l_full_path,
1969: ' --> Before cursor cur_clr_mfar_rct_lines ');
1970: psa_utils.debug_other_string(g_state_level,l_full_path,
1971: ' --> Receivable Application id ==> ' || I.receivable_application_id );
1970: psa_utils.debug_other_string(g_state_level,l_full_path,
1971: ' --> Receivable Application id ==> ' || I.receivable_application_id );
1972: psa_utils.debug_other_string(g_state_level,l_full_path,
1973: ' --> cash_receipt_history_id ==> ' || K.cash_receipt_history_id);
1974: -- ========================= FND LOG ===========================
1975:
1976: FOR J IN cur_clr_mfar_rct_lines (I.receivable_application_id, K.cash_receipt_history_id)
1977: LOOP
1978:
1975:
1976: FOR J IN cur_clr_mfar_rct_lines (I.receivable_application_id, K.cash_receipt_history_id)
1977: LOOP
1978:
1979: -- ========================= FND LOG ===========================
1980: psa_utils.debug_other_string(g_state_level,l_full_path,
1981: ' --> inside cur_clr_mfar_rct_lines ');
1982: psa_utils.debug_other_string(g_state_level,l_full_path,
1983: ' --> J.newstatus ' || J.newstatus || ' and ' ||
1981: ' --> inside cur_clr_mfar_rct_lines ');
1982: psa_utils.debug_other_string(g_state_level,l_full_path,
1983: ' --> J.newstatus ' || J.newstatus || ' and ' ||
1984: ' --> J.oldstatus ' || J.oldstatus );
1985: -- ========================= FND LOG ===========================
1986:
1987: IF (J.newstatus = 'REVERSED') AND (J.oldstatus = 'REMITTED') THEN
1988: -- ========================= FND LOG ===========================
1989: psa_utils.debug_other_string(g_state_level,l_full_path,' --> Exiting ');
1984: ' --> J.oldstatus ' || J.oldstatus );
1985: -- ========================= FND LOG ===========================
1986:
1987: IF (J.newstatus = 'REVERSED') AND (J.oldstatus = 'REMITTED') THEN
1988: -- ========================= FND LOG ===========================
1989: psa_utils.debug_other_string(g_state_level,l_full_path,' --> Exiting ');
1990: -- ========================= FND LOG ===========================
1991: EXIT;
1992: END IF;
1986:
1987: IF (J.newstatus = 'REVERSED') AND (J.oldstatus = 'REMITTED') THEN
1988: -- ========================= FND LOG ===========================
1989: psa_utils.debug_other_string(g_state_level,l_full_path,' --> Exiting ');
1990: -- ========================= FND LOG ===========================
1991: EXIT;
1992: END IF;
1993:
1994: -- ========================= FND LOG ===========================
1990: -- ========================= FND LOG ===========================
1991: EXIT;
1992: END IF;
1993:
1994: -- ========================= FND LOG ===========================
1995: psa_utils.debug_other_string(g_state_level,l_full_path,
1996: ' --> Inserting into gl interface ');
1997: -- ========================= FND LOG ===========================
1998:
1993:
1994: -- ========================= FND LOG ===========================
1995: psa_utils.debug_other_string(g_state_level,l_full_path,
1996: ' --> Inserting into gl interface ');
1997: -- ========================= FND LOG ===========================
1998:
1999: INSERT INTO gl_interface
2000: (created_by,
2001: date_created,
2058: J.ref30,
2059: NULL);
2060:
2061: IF (SQL%FOUND) THEN
2062: -- ========================= FND LOG ===========================
2063: psa_utils.debug_other_string(g_state_level,l_full_path,
2064: ' --> Inserting into GL INTERFACE for Receipts (Cash Cleared) '||
2065: ' - Receivable Application id ==> ' || I.receivable_application_id);
2066: psa_utils.debug_other_string(g_state_level,l_full_path,
2066: psa_utils.debug_other_string(g_state_level,l_full_path,
2067: ' CCID => ' || J.ccid
2068: || ' DEBIT => ' || J.entered_dr
2069: || ' CREDIT => ' || J.entered_cr );
2070: -- ========================= FND LOG ===========================
2071: END IF;
2072:
2073: END LOOP;
2074:
2074:
2075: END LOOP;
2076: END LOOP;
2077:
2078: -- ========================= FND LOG ===========================
2079: psa_utils.debug_other_string(g_state_level,l_full_path,
2080: ' --> Calling PSA_MFAR_RECEIPTS.PURGE_ORPHAN_DISTRIBUTIONS ');
2081: -- ========================= FND LOG ===========================
2082:
2077:
2078: -- ========================= FND LOG ===========================
2079: psa_utils.debug_other_string(g_state_level,l_full_path,
2080: ' --> Calling PSA_MFAR_RECEIPTS.PURGE_ORPHAN_DISTRIBUTIONS ');
2081: -- ========================= FND LOG ===========================
2082:
2083: -- Bug 3671841, issuing a call to purge orphan distributions
2084: PSA_MFAR_RECEIPTS.PURGE_ORPHAN_DISTRIBUTIONS;
2085:
2090: (SELECT receivable_application_id FROM ar_receivable_applications ara, ar_cash_receipt_history crh
2091: WHERE ara.cash_receipt_id = crh.cash_receipt_id AND crh.status = 'CLEARED'
2092: AND crh.posting_control_id = l_pst_ctrl_id) ;
2093:
2094: -- ========================= FND LOG ===========================
2095: psa_utils.debug_other_string(g_state_level,l_full_path,
2096: ' UPDATE psa_mf_rct_dist_all '|| SQL%ROWCOUNT);
2097: -- ========================= FND LOG ===========================
2098:
2093:
2094: -- ========================= FND LOG ===========================
2095: psa_utils.debug_other_string(g_state_level,l_full_path,
2096: ' UPDATE psa_mf_rct_dist_all '|| SQL%ROWCOUNT);
2097: -- ========================= FND LOG ===========================
2098:
2099: FOR I IN Cur_MFAR_rct_app_id
2100: LOOP
2101:
2107: -- select psa_mf_error_log_s.nextval into l_run_num from dual;
2108: -- This is now set in the initialization routine.
2109:
2110: BEGIN
2111: -- ========================= FND LOG ===========================
2112: psa_utils.debug_other_string(g_state_level,l_full_path,
2113: ' --> inside cursor Cur_MFAR_rct_app_id ');
2114: psa_utils.debug_other_string(g_state_level,l_full_path,
2115: ' --> Creating distribution for receivable_application_id ==> '
2113: ' --> inside cursor Cur_MFAR_rct_app_id ');
2114: psa_utils.debug_other_string(g_state_level,l_full_path,
2115: ' --> Creating distribution for receivable_application_id ==> '
2116: || l_run_num || ' -- ' || I.receivable_application_id );
2117: -- ========================= FND LOG ===========================
2118:
2119: IF NOT (PSA_MFAR_RECEIPTS.create_distributions (
2120: errbuf => l_errbuf,
2121: retcode => l_retcode,
2123: p_set_of_books_id => l_sob_id,
2124: p_run_id => l_run_num,
2125: p_error_message => l_error_message)) THEN
2126:
2127: -- ========================= FND LOG ===========================
2128: psa_utils.debug_other_string(g_state_level,l_full_path,
2129: ' --> PSA_MFAR_RECEIPTS.create_distributions ==> FALSE ');
2130: -- ========================= FND LOG ===========================
2131:
2126:
2127: -- ========================= FND LOG ===========================
2128: psa_utils.debug_other_string(g_state_level,l_full_path,
2129: ' --> PSA_MFAR_RECEIPTS.create_distributions ==> FALSE ');
2130: -- ========================= FND LOG ===========================
2131:
2132: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
2133: -- ========================= FND LOG ===========================
2134: psa_utils.debug_other_string(g_excep_level,l_full_path,
2129: ' --> PSA_MFAR_RECEIPTS.create_distributions ==> FALSE ');
2130: -- ========================= FND LOG ===========================
2131:
2132: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
2133: -- ========================= FND LOG ===========================
2134: psa_utils.debug_other_string(g_excep_level,l_full_path,
2135: ' --> Raising invalid_distribution');
2136: -- ========================= FND LOG ===========================
2137: Raise invalid_distribution;
2132: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
2133: -- ========================= FND LOG ===========================
2134: psa_utils.debug_other_string(g_excep_level,l_full_path,
2135: ' --> Raising invalid_distribution');
2136: -- ========================= FND LOG ===========================
2137: Raise invalid_distribution;
2138: END IF;
2139: ELSE
2140: -- ========================= FND LOG ===========================
2136: -- ========================= FND LOG ===========================
2137: Raise invalid_distribution;
2138: END IF;
2139: ELSE
2140: -- ========================= FND LOG ===========================
2141: psa_utils.debug_other_string(g_state_level,l_full_path,
2142: ' --> Receivable Application id --> '
2143: || I.receivable_application_id);
2144: -- ========================= FND LOG ===========================
2140: -- ========================= FND LOG ===========================
2141: psa_utils.debug_other_string(g_state_level,l_full_path,
2142: ' --> Receivable Application id --> '
2143: || I.receivable_application_id);
2144: -- ========================= FND LOG ===========================
2145: END IF;
2146: END;
2147:
2148: -- ========================= FND LOG ===========================
2144: -- ========================= FND LOG ===========================
2145: END IF;
2146: END;
2147:
2148: -- ========================= FND LOG ===========================
2149: psa_utils.debug_other_string(g_state_level,l_full_path,
2150: ' --> l_post_det_acct_flag ==> ' || l_post_det_acct_flag );
2151: -- ========================= FND LOG ===========================
2152: /* -- Bug 4178626
2147:
2148: -- ========================= FND LOG ===========================
2149: psa_utils.debug_other_string(g_state_level,l_full_path,
2150: ' --> l_post_det_acct_flag ==> ' || l_post_det_acct_flag );
2151: -- ========================= FND LOG ===========================
2152: /* -- Bug 4178626
2153: IF l_post_det_acct_flag = 'N' THEN
2154:
2155: OPEN c_fv_balance_check (l_sob_id, l_pst_ctrl_id, I.receivable_application_id);
2158:
2159: IF (l_fv_balance_check.sum_acctd_dr IS NOT NULL AND
2160: l_fv_balance_check.sum_acctd_cr IS NOT NULL ) THEN
2161:
2162: -- ========================= FND LOG ===========================
2163: psa_utils.debug_other_string(g_state_level,l_full_path,
2164: ' --> inside if ' );
2165: -- ========================= FND LOG ===========================
2166:
2161:
2162: -- ========================= FND LOG ===========================
2163: psa_utils.debug_other_string(g_state_level,l_full_path,
2164: ' --> inside if ' );
2165: -- ========================= FND LOG ===========================
2166:
2167: l_rct_post_det_flag := 'N';
2168:
2169: DELETE FROM gl_interface gl
2173: AND substr(gl.reference29, 7) IN ('CASH', 'REC')
2174: AND gl.reference10 NOT LIKE 'MFAR%'
2175: AND to_number(substr(gl.reference22, 1, instr(gl.reference22, 'C')-1)) = l_fv_balance_check.cash_receipt_id;
2176:
2177: -- ========================= FND LOG ===========================
2178: psa_utils.debug_other_string(g_state_level,l_full_path,
2179: ' --> DELETE FROM gl_interface -> ' || SQL%ROWCOUNT);
2180: -- ========================= FND LOG ===========================
2181: ELSE
2176:
2177: -- ========================= FND LOG ===========================
2178: psa_utils.debug_other_string(g_state_level,l_full_path,
2179: ' --> DELETE FROM gl_interface -> ' || SQL%ROWCOUNT);
2180: -- ========================= FND LOG ===========================
2181: ELSE
2182: l_rct_post_det_flag := 'Y';
2183: END IF;
2184:
2181: ELSE
2182: l_rct_post_det_flag := 'Y';
2183: END IF;
2184:
2185: -- ========================= FND LOG ===========================
2186: psa_utils.debug_other_string(g_state_level,l_full_path,
2187: ' --> l_rct_post_det_flag -> ' || l_rct_post_det_flag);
2188: -- ========================= FND LOG ===========================
2189: END IF;
2184:
2185: -- ========================= FND LOG ===========================
2186: psa_utils.debug_other_string(g_state_level,l_full_path,
2187: ' --> l_rct_post_det_flag -> ' || l_rct_post_det_flag);
2188: -- ========================= FND LOG ===========================
2189: END IF;
2190: -- Bug 4178626 */
2191:
2192: -- ========================= FND LOG ===========================
2188: -- ========================= FND LOG ===========================
2189: END IF;
2190: -- Bug 4178626 */
2191:
2192: -- ========================= FND LOG ===========================
2193: psa_utils.debug_other_string(g_state_level,l_full_path,
2194: ' --> Before cursor Cur_mfar_rct_lines ');
2195: -- ========================= FND LOG ===========================
2196:
2191:
2192: -- ========================= FND LOG ===========================
2193: psa_utils.debug_other_string(g_state_level,l_full_path,
2194: ' --> Before cursor Cur_mfar_rct_lines ');
2195: -- ========================= FND LOG ===========================
2196:
2197: FOR J IN Cur_mfar_rct_lines (I.receivable_application_id)
2198: LOOP
2199:
2200: /*
2201: ## For each receivable app id the record will be INserted.
2202: */
2203:
2204: -- ========================= FND LOG ===========================
2205: psa_utils.debug_other_string(g_state_level,l_full_path,
2206: ' --> inside cursor Cur_mfar_rct_lines ');
2207: psa_utils.debug_other_string(g_state_level,l_full_path,
2208: ' --> Receivable Application id ==> ' || I.receivable_application_id);
2207: psa_utils.debug_other_string(g_state_level,l_full_path,
2208: ' --> Receivable Application id ==> ' || I.receivable_application_id);
2209: psa_utils.debug_other_string(g_state_level,l_full_path,
2210: ' --> inserting into gl_interface ');
2211: -- ========================= FND LOG ===========================
2212:
2213: INSERT INTO gl_interface
2214: (created_by,
2215: date_created,
2272: J.ref30,
2273: J.ussgl);
2274:
2275: IF (SQL%FOUND) THEN
2276: -- ========================= FND LOG ===========================
2277: psa_utils.debug_other_string(g_state_level,l_full_path,
2278: ' --> Inserting into GL INTERFACE for Receipts ' ||
2279: ' - Receivable Application id ==> ' || I.receivable_application_id );
2280: psa_utils.debug_other_string(g_state_level,l_full_path,
2280: psa_utils.debug_other_string(g_state_level,l_full_path,
2281: ' CCID => ' || J.ccid
2282: || ' DEBIT => ' || J.entered_dr
2283: || ' CREDIT => ' || J.entered_cr );
2284: -- ========================= FND LOG ===========================
2285: END IF;
2286:
2287: END LOOP;
2288:
2286:
2287: END LOOP;
2288:
2289: -- Insert accounting lines into gl_interface for on account credit memo
2290: -- ========================= FND LOG ===========================
2291: psa_utils.debug_other_string(g_state_level,l_full_path,
2292: ' --> Before cursor Cur_mfar_rct_lines_cm ');
2293: -- ========================= FND LOG ===========================
2294:
2289: -- Insert accounting lines into gl_interface for on account credit memo
2290: -- ========================= FND LOG ===========================
2291: psa_utils.debug_other_string(g_state_level,l_full_path,
2292: ' --> Before cursor Cur_mfar_rct_lines_cm ');
2293: -- ========================= FND LOG ===========================
2294:
2295:
2296: FOR J IN Cur_mfar_rct_lines_cm (I.receivable_application_id)
2297: LOOP
2299: /*
2300: ## For each receivable app id the record will be INserted.
2301: */
2302:
2303: -- ========================= FND LOG ===========================
2304: psa_utils.debug_other_string(g_state_level,l_full_path,
2305: ' --> Inside cursor Cur_mfar_rct_lines_cm ');
2306: psa_utils.debug_other_string(g_state_level,l_full_path,
2307: ' --> Receivable Application id ==> ' || I.receivable_application_id );
2304: psa_utils.debug_other_string(g_state_level,l_full_path,
2305: ' --> Inside cursor Cur_mfar_rct_lines_cm ');
2306: psa_utils.debug_other_string(g_state_level,l_full_path,
2307: ' --> Receivable Application id ==> ' || I.receivable_application_id );
2308: -- ========================= FND LOG ===========================
2309:
2310: INSERT INTO gl_interface
2311: (created_by,
2312: date_created,
2369: J.ref30,
2370: J.ussgl);
2371:
2372: IF (SQL%FOUND) THEN
2373: -- ========================= FND LOG ===========================
2374: psa_utils.debug_other_string(g_state_level,l_full_path,
2375: ' --> Inserting into GL INTERFACE for Receipts ' ||
2376: ' - Receivable Application id ==> ' || I.receivable_application_id );
2377: psa_utils.debug_other_string(g_state_level,l_full_path,
2377: psa_utils.debug_other_string(g_state_level,l_full_path,
2378: ' CCID => ' || J.ccid
2379: || ' DEBIT => ' || J.entered_dr
2380: || ' CREDIT => ' || J.entered_cr );
2381: -- ========================= FND LOG ===========================
2382: END IF;
2383:
2384: END LOOP;
2385:
2384: END LOOP;
2385:
2386: END LOOP;
2387:
2388: -- ========================= FND LOG ===========================
2389: psa_utils.debug_other_string(g_state_level,l_full_path,
2390: ' --> Calling PSA_MFAR_RECEIPTS.PURGE_ORPHAN_DISTRIBUTIONS ');
2391: -- ========================= FND LOG ===========================
2392:
2387:
2388: -- ========================= FND LOG ===========================
2389: psa_utils.debug_other_string(g_state_level,l_full_path,
2390: ' --> Calling PSA_MFAR_RECEIPTS.PURGE_ORPHAN_DISTRIBUTIONS ');
2391: -- ========================= FND LOG ===========================
2392:
2393: -- Bug 3671841, issuing a call to purge orphan distributions
2394: PSA_MFAR_RECEIPTS.PURGE_ORPHAN_DISTRIBUTIONS;
2395:
2399: (SELECT receivable_application_id FROM ar_receivable_applications ara
2400: WHERE ara.posting_control_id = l_pst_ctrl_id);
2401:
2402: IF (SQL%FOUND) THEN
2403: -- ========================= FND LOG ===========================
2404: psa_utils.debug_other_string(g_state_level,l_full_path,
2405: ' --> (PSA_MF_RCT_DIST_ALL) Posting control id updated for '
2406: || (SQL%ROWCOUNT) );
2407: -- ========================= FND LOG ===========================
2403: -- ========================= FND LOG ===========================
2404: psa_utils.debug_other_string(g_state_level,l_full_path,
2405: ' --> (PSA_MF_RCT_DIST_ALL) Posting control id updated for '
2406: || (SQL%ROWCOUNT) );
2407: -- ========================= FND LOG ===========================
2408: END IF;
2409: -- ========================= FND LOG ===========================
2410: psa_utils.debug_other_string(g_event_level,l_full_path,
2411: ' --> End of Receipts Transfer '|| to_char(sysdate, 'DD/MM/YYYY HH:MI:SS'));
2405: ' --> (PSA_MF_RCT_DIST_ALL) Posting control id updated for '
2406: || (SQL%ROWCOUNT) );
2407: -- ========================= FND LOG ===========================
2408: END IF;
2409: -- ========================= FND LOG ===========================
2410: psa_utils.debug_other_string(g_event_level,l_full_path,
2411: ' --> End of Receipts Transfer '|| to_char(sysdate, 'DD/MM/YYYY HH:MI:SS'));
2412: -- ========================= FND LOG ===========================
2413:
2408: END IF;
2409: -- ========================= FND LOG ===========================
2410: psa_utils.debug_other_string(g_event_level,l_full_path,
2411: ' --> End of Receipts Transfer '|| to_char(sysdate, 'DD/MM/YYYY HH:MI:SS'));
2412: -- ========================= FND LOG ===========================
2413:
2414: EXCEPTION
2415: WHEN INVALID_DISTRIBUTION THEN
2416: -- ========================= FND LOG ===========================
2412: -- ========================= FND LOG ===========================
2413:
2414: EXCEPTION
2415: WHEN INVALID_DISTRIBUTION THEN
2416: -- ========================= FND LOG ===========================
2417: psa_utils.debug_other_string(g_excep_level,l_full_path,
2418: ' --> EXCEPTION - INVALID_DISTRIBUTION raised during PSA_XFR_TO_GL_PKG.Mfar_rct_to_gl ');
2419: psa_utils.debug_other_string(g_excep_level,l_full_path,
2420: ' --> p_error_message --> ' || l_error_message);
2417: psa_utils.debug_other_string(g_excep_level,l_full_path,
2418: ' --> EXCEPTION - INVALID_DISTRIBUTION raised during PSA_XFR_TO_GL_PKG.Mfar_rct_to_gl ');
2419: psa_utils.debug_other_string(g_excep_level,l_full_path,
2420: ' --> p_error_message --> ' || l_error_message);
2421: -- ========================= FND LOG ===========================
2422: retcode := 'F';
2423:
2424: WHEN OTHERS THEN
2425: -- ========================= FND LOG ===========================
2421: -- ========================= FND LOG ===========================
2422: retcode := 'F';
2423:
2424: WHEN OTHERS THEN
2425: -- ========================= FND LOG ===========================
2426: psa_utils.debug_other_string(g_excep_level,l_full_path,
2427: ' --> EXCEPTION - OTHERS raised during PSA_XFR_TO_GL_PKG.Mfar_rct_to_gl ');
2428: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
2429: psa_utils.debug_unexpected_msg(l_full_path);
2426: psa_utils.debug_other_string(g_excep_level,l_full_path,
2427: ' --> EXCEPTION - OTHERS raised during PSA_XFR_TO_GL_PKG.Mfar_rct_to_gl ');
2428: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
2429: psa_utils.debug_unexpected_msg(l_full_path);
2430: -- ========================= FND LOG ===========================
2431: errbuf := 2;
2432: retcode := 'F';
2433:
2434: END Mfar_rcpt_to_gl;
2571: -- AND nvl(psa_adj_dist.amount, 0) <> 0 -- Bug 3739491, commented this condition
2572: AND adj.posting_control_id = l_pst_ctrl_id
2573: AND nvl(psa_adj_dist.posting_control_id, -3) = -3;
2574:
2575: -- ========================= FND LOG ===========================
2576: l_full_path VARCHAR2(100) := g_path || 'mfar_adj_to_gl';
2577: -- ========================= FND LOG ===========================
2578:
2579: BEGIN
2573: AND nvl(psa_adj_dist.posting_control_id, -3) = -3;
2574:
2575: -- ========================= FND LOG ===========================
2576: l_full_path VARCHAR2(100) := g_path || 'mfar_adj_to_gl';
2577: -- ========================= FND LOG ===========================
2578:
2579: BEGIN
2580:
2581: -- ========================= FND LOG ===========================
2577: -- ========================= FND LOG ===========================
2578:
2579: BEGIN
2580:
2581: -- ========================= FND LOG ===========================
2582: psa_utils.debug_other_string(g_state_level,l_full_path,
2583: ' ' );
2584: psa_utils.debug_other_string(g_state_level,l_full_path,
2585: ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
2589: psa_utils.debug_other_string(g_state_level,l_full_path,
2590: ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
2591: psa_utils.debug_other_string(g_state_level,l_full_path,
2592: ' ');
2593: -- ========================= FND LOG ===========================
2594: retcode := 'S';
2595: l_gl_start_date := p_gl_date_from;
2596: l_post_through_date := p_gl_date_to;
2597: l_summary_flag := p_summary_flag;
2596: l_post_through_date := p_gl_date_to;
2597: l_summary_flag := p_summary_flag;
2598: l_sob_id := p_set_of_books_id;
2599:
2600: -- ========================= FND LOG ===========================
2601: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS :');
2602: psa_utils.debug_other_string(g_state_level,l_full_path,' ============');
2603: psa_utils.debug_other_string(g_state_level,l_full_path,' p_gl_date_from -->' || p_gl_date_from);
2604: psa_utils.debug_other_string(g_state_level,l_full_path,' p_gl_date_to -->' || p_gl_date_to );
2614: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2615: psa_utils.debug_other_string(g_state_level,l_full_path,' PROCESS :');
2616: psa_utils.debug_other_string(g_state_level,l_full_path,' =========');
2617: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2618: -- ========================= FND LOG ===========================
2619:
2620: FOR I IN Cur_lines_to_be_processed
2621: LOOP
2622:
2620: FOR I IN Cur_lines_to_be_processed
2621: LOOP
2622:
2623: BEGIN
2624: -- ========================= FND LOG ===========================
2625: psa_utils.debug_other_string(g_state_level,l_full_path,
2626: ' --> Creating distribution for adjustment id ==> ' || l_run_num
2627: || ' -- ' || I.adjustment_id);
2628: -- ========================= FND LOG ===========================
2624: -- ========================= FND LOG ===========================
2625: psa_utils.debug_other_string(g_state_level,l_full_path,
2626: ' --> Creating distribution for adjustment id ==> ' || l_run_num
2627: || ' -- ' || I.adjustment_id);
2628: -- ========================= FND LOG ===========================
2629:
2630: IF NOT (PSA_MFAR_ADJUSTMENTS.create_distributions (
2631: errbuf => l_errbuf,
2632: retcode => l_retcode,
2635: p_run_id => l_run_num,
2636: p_error_message => l_error_message)) THEN
2637:
2638: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
2639: -- ========================= FND LOG ===========================
2640: psa_utils.debug_other_string(g_state_level,l_full_path,
2641: 'Mfar_adj_to_gl: Raising invalid_distribution');
2642: -- ========================= FND LOG ===========================
2643: Raise invalid_distribution;
2638: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
2639: -- ========================= FND LOG ===========================
2640: psa_utils.debug_other_string(g_state_level,l_full_path,
2641: 'Mfar_adj_to_gl: Raising invalid_distribution');
2642: -- ========================= FND LOG ===========================
2643: Raise invalid_distribution;
2644: END IF;
2645:
2646: ELSE
2643: Raise invalid_distribution;
2644: END IF;
2645:
2646: ELSE
2647: -- ========================= FND LOG ===========================
2648: psa_utils.debug_other_string(g_state_level,l_full_path,
2649: 'Mfar_adj_to_gl: '
2650: || ' Adjustment id --> ' || I.adjustment_id);
2651: -- ========================= FND LOG ===========================
2647: -- ========================= FND LOG ===========================
2648: psa_utils.debug_other_string(g_state_level,l_full_path,
2649: 'Mfar_adj_to_gl: '
2650: || ' Adjustment id --> ' || I.adjustment_id);
2651: -- ========================= FND LOG ===========================
2652: END IF;
2653: END;
2654:
2655: -- Bug 3817595 .. Start
2662: AND GI.reference10 NOT LIKE '%MFAR%'
2663: AND GI.reference22 = to_char(I.adjustment_id);
2664: -- Bug 3817595 .. End
2665:
2666: -- ========================= FND LOG ===========================
2667: psa_utils.debug_other_string(g_state_level,l_full_path,
2668: ' Deleting rows from Gl interface ' || SQL%ROWCOUNT);
2669: -- ========================= FND LOG ===========================
2670:
2665:
2666: -- ========================= FND LOG ===========================
2667: psa_utils.debug_other_string(g_state_level,l_full_path,
2668: ' Deleting rows from Gl interface ' || SQL%ROWCOUNT);
2669: -- ========================= FND LOG ===========================
2670:
2671: FOR J IN Cur_mfar_lines (I.adjustment_id)
2672: LOOP
2673:
2674: /*
2675: ## For each adjustments id the record will be inserted.
2676: */
2677:
2678: -- ========================= FND LOG ===========================
2679: psa_utils.debug_other_string(g_state_level,l_full_path,
2680: ' --> adjustment id ==> ' || I.adjustment_id );
2681: -- ========================= FND LOG ===========================
2682:
2677:
2678: -- ========================= FND LOG ===========================
2679: psa_utils.debug_other_string(g_state_level,l_full_path,
2680: ' --> adjustment id ==> ' || I.adjustment_id );
2681: -- ========================= FND LOG ===========================
2682:
2683: INSERT INTO gl_interface
2684: (created_by,
2685: date_created,
2742: J.ref29,
2743: J.ref30);
2744:
2745: IF (SQL%FOUND) THEN
2746: -- ========================= FND LOG ===========================
2747: psa_utils.debug_other_string(g_state_level,l_full_path,
2748: ' --> Inserting into GL INTERFACE for adjustment id ==> '
2749: || I.adjustment_id );
2750: psa_utils.debug_other_string(g_state_level,l_full_path,
2752: || ' DEBIT => ' || J.entered_dr
2753: || ' CREDIT => ' || J.entered_cr );
2754: psa_utils.debug_other_string(g_state_level,l_full_path,
2755: ' USSGL_TRANSACTION_CODE => '|| J.ussgl_transaction_code);
2756: -- ========================= FND LOG ===========================
2757: END IF;
2758: END LOOP;
2759:
2760: END LOOP;
2765: (SELECT adjustment_id FROM ar_adjustments aa
2766: WHERE aa.posting_control_id = l_pst_ctrl_id);
2767:
2768: IF (SQL%FOUND) THEN
2769: -- ========================= FND LOG ===========================
2770: psa_utils.debug_other_string(g_state_level,l_full_path,
2771: ' --> (PSA_MF_ADJ_DIST_ALL) Posting control id updated for '
2772: || (SQL%ROWCOUNT));
2773: -- ========================= FND LOG ===========================
2769: -- ========================= FND LOG ===========================
2770: psa_utils.debug_other_string(g_state_level,l_full_path,
2771: ' --> (PSA_MF_ADJ_DIST_ALL) Posting control id updated for '
2772: || (SQL%ROWCOUNT));
2773: -- ========================= FND LOG ===========================
2774: END IF;
2775:
2776: -- ========================= FND LOG ===========================
2777: psa_utils.debug_other_string(g_event_level,l_full_path,
2772: || (SQL%ROWCOUNT));
2773: -- ========================= FND LOG ===========================
2774: END IF;
2775:
2776: -- ========================= FND LOG ===========================
2777: psa_utils.debug_other_string(g_event_level,l_full_path,
2778: ' --> End of Adjustments transfer '
2779: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
2780: -- ========================= FND LOG ===========================
2776: -- ========================= FND LOG ===========================
2777: psa_utils.debug_other_string(g_event_level,l_full_path,
2778: ' --> End of Adjustments transfer '
2779: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
2780: -- ========================= FND LOG ===========================
2781:
2782: EXCEPTION
2783: WHEN INVALID_DISTRIBUTION THEN
2784: -- ========================= FND LOG ===========================
2780: -- ========================= FND LOG ===========================
2781:
2782: EXCEPTION
2783: WHEN INVALID_DISTRIBUTION THEN
2784: -- ========================= FND LOG ===========================
2785: psa_utils.debug_other_string(g_excep_level,l_full_path,
2786: ' --> EXCEPTION - INVALID_DISTRIBUTION raised during PPSA_XFR_TO_GL_PKG.Mfar_adj_to_gl ');
2787: psa_utils.debug_other_string(g_excep_level,l_full_path,
2788: ' --> p_error_message --> ' || l_error_message);
2785: psa_utils.debug_other_string(g_excep_level,l_full_path,
2786: ' --> EXCEPTION - INVALID_DISTRIBUTION raised during PPSA_XFR_TO_GL_PKG.Mfar_adj_to_gl ');
2787: psa_utils.debug_other_string(g_excep_level,l_full_path,
2788: ' --> p_error_message --> ' || l_error_message);
2789: -- ========================= FND LOG ===========================
2790: retcode := 'F';
2791:
2792: WHEN OTHERS THEN
2793: -- ========================= FND LOG ===========================
2789: -- ========================= FND LOG ===========================
2790: retcode := 'F';
2791:
2792: WHEN OTHERS THEN
2793: -- ========================= FND LOG ===========================
2794: psa_utils.debug_other_string(g_excep_level,l_full_path,
2795: ' --> EXCEPTION - OTHERS raised during PSA_XFR_TO_GL_PKG.Mfar_adj_to_gl ');
2796: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
2797: psa_utils.debug_unexpected_msg(l_full_path);
2794: psa_utils.debug_other_string(g_excep_level,l_full_path,
2795: ' --> EXCEPTION - OTHERS raised during PSA_XFR_TO_GL_PKG.Mfar_adj_to_gl ');
2796: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
2797: psa_utils.debug_unexpected_msg(l_full_path);
2798: -- ========================= FND LOG ===========================
2799: errbuf := 2;
2800: retcode := 'F';
2801:
2802: END Mfar_adj_to_gl;
2879: gl_int_dets_null gl_tab_type;
2880:
2881: GET_QUALIFIER_SEGNUM_EXCEP EXCEPTION;
2882:
2883: -- ========================= FND LOG ===========================
2884: l_full_path VARCHAR2(100) := g_path || 'Reverse_core_entries_if_any';
2885: -- ========================= FND LOG ===========================
2886:
2887: BEGIN
2881: GET_QUALIFIER_SEGNUM_EXCEP EXCEPTION;
2882:
2883: -- ========================= FND LOG ===========================
2884: l_full_path VARCHAR2(100) := g_path || 'Reverse_core_entries_if_any';
2885: -- ========================= FND LOG ===========================
2886:
2887: BEGIN
2888:
2889: -- ========================= FND LOG ===========================
2885: -- ========================= FND LOG ===========================
2886:
2887: BEGIN
2888:
2889: -- ========================= FND LOG ===========================
2890: psa_utils.debug_other_string(g_state_level,l_full_path,' START Reverse_core_entries_if_any ');
2891: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS :');
2892: psa_utils.debug_other_string(g_state_level,l_full_path,' ============');
2893: psa_utils.debug_other_string(g_state_level,l_full_path,' p_set_of_books_id -->' || p_set_of_books_id );
2894: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2895: psa_utils.debug_other_string(g_state_level,l_full_path,' PROCESS :');
2896: psa_utils.debug_other_string(g_state_level,l_full_path,' =========');
2897: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
2898: -- ========================= FND LOG ===========================
2899:
2900: retcode := 'S';
2901:
2902: OPEN Cur_coa_id (p_set_of_books_id);
2902: OPEN Cur_coa_id (p_set_of_books_id);
2903: FETCH Cur_coa_id INTO l_chart_of_accounts_id;
2904: CLOSE Cur_coa_id;
2905:
2906: -- ========================= FND LOG ===========================
2907: psa_utils.debug_other_string(g_state_level,l_full_path,' l_chart_of_accounts_id --> ' || l_chart_of_accounts_id);
2908: psa_utils.debug_other_string(g_state_level,l_full_path,' Getting org details ');
2909: -- ========================= FND LOG ===========================
2910:
2905:
2906: -- ========================= FND LOG ===========================
2907: psa_utils.debug_other_string(g_state_level,l_full_path,' l_chart_of_accounts_id --> ' || l_chart_of_accounts_id);
2908: psa_utils.debug_other_string(g_state_level,l_full_path,' Getting org details ');
2909: -- ========================= FND LOG ===========================
2910:
2911: PSA_MFAR_UTILS.PSA_MF_ORG_DETAILS (l_org_details);
2912:
2913: -- ========================= FND LOG ===========================
2909: -- ========================= FND LOG ===========================
2910:
2911: PSA_MFAR_UTILS.PSA_MF_ORG_DETAILS (l_org_details);
2912:
2913: -- ========================= FND LOG ===========================
2914: psa_utils.debug_other_string(g_state_level,l_full_path,' l_org_details.allocation_method --> ' || l_org_details.allocation_method);
2915: -- ========================= FND LOG ===========================
2916:
2917: IF (l_org_details.allocation_method = 'BAL') THEN
2911: PSA_MFAR_UTILS.PSA_MF_ORG_DETAILS (l_org_details);
2912:
2913: -- ========================= FND LOG ===========================
2914: psa_utils.debug_other_string(g_state_level,l_full_path,' l_org_details.allocation_method --> ' || l_org_details.allocation_method);
2915: -- ========================= FND LOG ===========================
2916:
2917: IF (l_org_details.allocation_method = 'BAL') THEN
2918: l_qual_name := 'GL_BALANCING';
2919: ELSE -- ## 'ACC'
2919: ELSE -- ## 'ACC'
2920: l_qual_name := 'GL_ACCOUNT';
2921: END IF;
2922:
2923: -- ========================= FND LOG ===========================
2924: psa_utils.debug_other_string(g_state_level,l_full_path,' l_qual_name --> ' || l_qual_name);
2925: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM ' );
2926: -- ========================= FND LOG ===========================
2927:
2922:
2923: -- ========================= FND LOG ===========================
2924: psa_utils.debug_other_string(g_state_level,l_full_path,' l_qual_name --> ' || l_qual_name);
2925: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM ' );
2926: -- ========================= FND LOG ===========================
2927:
2928: IF (NOT FND_FLEX_APIS.GET_QUALIFIER_SEGNUM(
2929: APPL_ID => 101,
2930: KEY_FLEX_CODE => 'GL#',
2930: KEY_FLEX_CODE => 'GL#',
2931: STRUCTURE_NUMBER => l_chart_of_accounts_id,
2932: FLEX_QUAL_NAME => l_qual_name,
2933: SEGMENT_NUMBER => l_acct_seg_num)) THEN -- OUT
2934: -- ========================= FND LOG ===========================
2935: psa_utils.debug_other_string(g_state_level,l_full_path,' l_acct_seg_num --> ' || l_acct_seg_num );
2936: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_QUALIFIER_SEGNUM_EXCEP ');
2937: -- ========================= FND LOG ===========================
2938: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
2933: SEGMENT_NUMBER => l_acct_seg_num)) THEN -- OUT
2934: -- ========================= FND LOG ===========================
2935: psa_utils.debug_other_string(g_state_level,l_full_path,' l_acct_seg_num --> ' || l_acct_seg_num );
2936: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_QUALIFIER_SEGNUM_EXCEP ');
2937: -- ========================= FND LOG ===========================
2938: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
2939: ELSE
2940: -- ========================= FND LOG ===========================
2941: psa_utils.debug_other_string(g_state_level,l_full_path,' l_acct_seg_num --> ' || l_acct_seg_num );
2936: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_QUALIFIER_SEGNUM_EXCEP ');
2937: -- ========================= FND LOG ===========================
2938: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
2939: ELSE
2940: -- ========================= FND LOG ===========================
2941: psa_utils.debug_other_string(g_state_level,l_full_path,' l_acct_seg_num --> ' || l_acct_seg_num );
2942: -- ========================= FND LOG ===========================
2943: END IF;
2944:
2938: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
2939: ELSE
2940: -- ========================= FND LOG ===========================
2941: psa_utils.debug_other_string(g_state_level,l_full_path,' l_acct_seg_num --> ' || l_acct_seg_num );
2942: -- ========================= FND LOG ===========================
2943: END IF;
2944:
2945: -- Picking up details from gl_interface.
2946: FOR C_cust_trx_dets IN Cur_cust_Trx_id
2945: -- Picking up details from gl_interface.
2946: FOR C_cust_trx_dets IN Cur_cust_Trx_id
2947: LOOP
2948:
2949: -- ========================= FND LOG ===========================
2950: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside Cur_cust_Trx_id');
2951: -- ========================= FND LOG ===========================
2952:
2953: gl_int_dets := gl_int_dets_null;
2947: LOOP
2948:
2949: -- ========================= FND LOG ===========================
2950: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside Cur_cust_Trx_id');
2951: -- ========================= FND LOG ===========================
2952:
2953: gl_int_dets := gl_int_dets_null;
2954:
2955: l_select := ' SELECT segment' || l_acct_seg_num || ' Segment, SUM(accounted_dr) Debit, SUM(accounted_cr) Credit' ||
2958: ' AND reference30 = :2' ||
2959: ' GROUP BY segment' || l_acct_seg_num ||
2960: ' HAVING SUM(nvl(accounted_dr,0)) <> SUM(nvl(accounted_cr,0))' ;
2961:
2962: -- ========================= FND LOG ===========================
2963: psa_utils.debug_other_string(g_state_level,l_full_path,' C_cust_trx_dets.reference22 --> ' || C_cust_trx_dets.reference22);
2964: psa_utils.debug_other_string(g_state_level,l_full_path,' l_select --> ' || l_select);
2965: -- ========================= FND LOG ===========================
2966:
2961:
2962: -- ========================= FND LOG ===========================
2963: psa_utils.debug_other_string(g_state_level,l_full_path,' C_cust_trx_dets.reference22 --> ' || C_cust_trx_dets.reference22);
2964: psa_utils.debug_other_string(g_state_level,l_full_path,' l_select --> ' || l_select);
2965: -- ========================= FND LOG ===========================
2966:
2967: EXECUTE IMMEDIATE l_select BULK COLLECT INTO gl_int_dets USING C_cust_trx_dets.reference22, 'AR_RECEIVABLE_APPLICATIONS';
2968:
2969: -- ========================= FND LOG ===========================
2965: -- ========================= FND LOG ===========================
2966:
2967: EXECUTE IMMEDIATE l_select BULK COLLECT INTO gl_int_dets USING C_cust_trx_dets.reference22, 'AR_RECEIVABLE_APPLICATIONS';
2968:
2969: -- ========================= FND LOG ===========================
2970: psa_utils.debug_other_string(g_state_level,l_full_path,' Execute immediate ');
2971: -- ========================= FND LOG ===========================
2972:
2973: l_count := gl_int_dets.count;
2967: EXECUTE IMMEDIATE l_select BULK COLLECT INTO gl_int_dets USING C_cust_trx_dets.reference22, 'AR_RECEIVABLE_APPLICATIONS';
2968:
2969: -- ========================= FND LOG ===========================
2970: psa_utils.debug_other_string(g_state_level,l_full_path,' Execute immediate ');
2971: -- ========================= FND LOG ===========================
2972:
2973: l_count := gl_int_dets.count;
2974:
2975: IF (l_count <> 0)
2973: l_count := gl_int_dets.count;
2974:
2975: IF (l_count <> 0)
2976: THEN
2977: -- ========================= FND LOG ===========================
2978: psa_utils.debug_other_string(g_state_level,l_full_path,' l_count --> ' || l_count);
2979: -- ========================= FND LOG ===========================
2980:
2981: FOR C_int_dets IN Cur_CM_dets (C_cust_trx_dets.reference22)
2975: IF (l_count <> 0)
2976: THEN
2977: -- ========================= FND LOG ===========================
2978: psa_utils.debug_other_string(g_state_level,l_full_path,' l_count --> ' || l_count);
2979: -- ========================= FND LOG ===========================
2980:
2981: FOR C_int_dets IN Cur_CM_dets (C_cust_trx_dets.reference22)
2982: LOOP
2983:
2980:
2981: FOR C_int_dets IN Cur_CM_dets (C_cust_trx_dets.reference22)
2982: LOOP
2983:
2984: -- ========================= FND LOG ===========================
2985: psa_utils.debug_other_string(g_state_level,l_full_path,' Inserting into gl_interface');
2986: -- ========================= FND LOG ===========================
2987:
2988: INSERT INTO gl_interface
2982: LOOP
2983:
2984: -- ========================= FND LOG ===========================
2985: psa_utils.debug_other_string(g_state_level,l_full_path,' Inserting into gl_interface');
2986: -- ========================= FND LOG ===========================
2987:
2988: INSERT INTO gl_interface
2989: (created_by,
2990: date_created,
3044: C_int_dets.ref28,
3045: C_int_dets.ref29,
3046: C_int_dets.ref30);
3047:
3048: -- ========================= FND LOG ===========================
3049: psa_utils.debug_other_string(g_state_level,l_full_path,' Inserting into gl_interface --> ' || SQL%ROWCOUNT);
3050: -- ========================= FND LOG ===========================
3051:
3052: END LOOP;
3046: C_int_dets.ref30);
3047:
3048: -- ========================= FND LOG ===========================
3049: psa_utils.debug_other_string(g_state_level,l_full_path,' Inserting into gl_interface --> ' || SQL%ROWCOUNT);
3050: -- ========================= FND LOG ===========================
3051:
3052: END LOOP;
3053: ELSE
3054: -- ========================= FND LOG ===========================
3050: -- ========================= FND LOG ===========================
3051:
3052: END LOOP;
3053: ELSE
3054: -- ========================= FND LOG ===========================
3055: psa_utils.debug_other_string(g_state_level,l_full_path,' l_count --> ' || l_count);
3056: psa_utils.debug_other_string(g_state_level,l_full_path,' BALANCED ');
3057: -- ========================= FND LOG ===========================
3058: END IF;
3053: ELSE
3054: -- ========================= FND LOG ===========================
3055: psa_utils.debug_other_string(g_state_level,l_full_path,' l_count --> ' || l_count);
3056: psa_utils.debug_other_string(g_state_level,l_full_path,' BALANCED ');
3057: -- ========================= FND LOG ===========================
3058: END IF;
3059:
3060: END LOOP;
3061:
3058: END IF;
3059:
3060: END LOOP;
3061:
3062: -- ========================= FND LOG ===========================
3063: psa_utils.debug_other_string(g_state_level,l_full_path,' END Reverse_core_entries_if_any ');
3064: -- ========================= FND LOG ===========================
3065:
3066: EXCEPTION
3060: END LOOP;
3061:
3062: -- ========================= FND LOG ===========================
3063: psa_utils.debug_other_string(g_state_level,l_full_path,' END Reverse_core_entries_if_any ');
3064: -- ========================= FND LOG ===========================
3065:
3066: EXCEPTION
3067:
3068: WHEN GET_QUALIFIER_SEGNUM_EXCEP THEN
3066: EXCEPTION
3067:
3068: WHEN GET_QUALIFIER_SEGNUM_EXCEP THEN
3069: p_error_message := fnd_message.get;
3070: -- ========================= FND LOG ===========================
3071: psa_utils.debug_other_string(g_excep_level,l_full_path,
3072: ' --> EXCEPTION - GET_QUALIFIER_SEGNUM_EXCEP - ' || p_error_message);
3073: -- ========================= FND LOG ===========================
3074: retcode := 'F';
3069: p_error_message := fnd_message.get;
3070: -- ========================= FND LOG ===========================
3071: psa_utils.debug_other_string(g_excep_level,l_full_path,
3072: ' --> EXCEPTION - GET_QUALIFIER_SEGNUM_EXCEP - ' || p_error_message);
3073: -- ========================= FND LOG ===========================
3074: retcode := 'F';
3075:
3076: WHEN OTHERS THEN
3077: p_error_message := sqlcode || sqlerrm;
3074: retcode := 'F';
3075:
3076: WHEN OTHERS THEN
3077: p_error_message := sqlcode || sqlerrm;
3078: -- ========================= FND LOG ===========================
3079: psa_utils.debug_other_string(g_excep_level,l_full_path,
3080: ' --> EXCEPTION - OTHERS raised during PSA_XFR_TO_GL_PKG.Reverse_core_entries_if_any ');
3081: psa_utils.debug_other_string(g_excep_level,l_full_path, p_error_message);
3082: psa_utils.debug_unexpected_msg(l_full_path);
3079: psa_utils.debug_other_string(g_excep_level,l_full_path,
3080: ' --> EXCEPTION - OTHERS raised during PSA_XFR_TO_GL_PKG.Reverse_core_entries_if_any ');
3081: psa_utils.debug_other_string(g_excep_level,l_full_path, p_error_message);
3082: psa_utils.debug_unexpected_msg(l_full_path);
3083: -- ========================= FND LOG ===========================
3084: errbuf := 2;
3085: retcode := 'F';
3086:
3087: END Reverse_core_entries_if_any;
3120: SELECT currency_code from gl_sets_of_books
3121: WHERE Set_of_books_id = l_sob_id;
3122:
3123: l_fv_profile_defined BOOLEAN;
3124: -- ========================= FND LOG ===========================
3125: l_full_path VARCHAR2(100) := g_path || 'Populate_global_variables';
3126: -- ========================= FND LOG ===========================
3127:
3128: BEGIN
3122:
3123: l_fv_profile_defined BOOLEAN;
3124: -- ========================= FND LOG ===========================
3125: l_full_path VARCHAR2(100) := g_path || 'Populate_global_variables';
3126: -- ========================= FND LOG ===========================
3127:
3128: BEGIN
3129:
3130: -- ========================= FND LOG ===========================
3126: -- ========================= FND LOG ===========================
3127:
3128: BEGIN
3129:
3130: -- ========================= FND LOG ===========================
3131: psa_utils.debug_other_string(g_state_level,l_full_path,
3132: ' --> Populate_global_variables - START '
3133: || to_char(sysdate, 'DD/MM/YYYY HH:MI:SS'));
3134: -- ========================= FND LOG ===========================
3130: -- ========================= FND LOG ===========================
3131: psa_utils.debug_other_string(g_state_level,l_full_path,
3132: ' --> Populate_global_variables - START '
3133: || to_char(sysdate, 'DD/MM/YYYY HH:MI:SS'));
3134: -- ========================= FND LOG ===========================
3135:
3136: l_batch_prefix := 'AR '; -- Padded with a single space so that REFERENCE1 is correctly set as AR 3241
3137: -- where 3241 is the posting_control_id
3138: l_user_id := fnd_global.user_id;
3347: END IF;
3348:
3349: select psa_mf_error_log_s.nextval into l_run_num from dual;
3350:
3351: -- ========================= FND LOG ===========================
3352: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
3353: psa_utils.debug_other_string(g_state_level,l_full_path,' LISTING THE VARIABLES AND VALUES :');
3354: psa_utils.debug_other_string(g_state_level,l_full_path,' ==================================');
3355: psa_utils.debug_other_string(g_state_level,l_full_path,' l_batch_prefix -->' || l_batch_prefix);
3374: psa_utils.debug_other_string(g_state_level,l_full_path, ' ** REST ARE MESSAGES ** ');
3375: psa_utils.debug_other_string(g_state_level,l_full_path,' ');
3376: psa_utils.debug_other_string(g_state_level,l_full_path,' --> Populate_global_variables - END '
3377: || to_char(sysdate, 'DD/MM/YYYY HH:MI:SS'));
3378: -- ========================= FND LOG ===========================
3379:
3380: EXCEPTION
3381:
3382: WHEN OTHERS THEN
3379:
3380: EXCEPTION
3381:
3382: WHEN OTHERS THEN
3383: -- ========================= FND LOG ===========================
3384: psa_utils.debug_other_string(g_excep_level,l_full_path,
3385: ' --> EXCEPTION - OTHERS raised during PSA_TRANSFER_TO_GL_PKG.Populate_global_variables ');
3386: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
3387: psa_utils.debug_unexpected_msg(l_full_path);
3384: psa_utils.debug_other_string(g_excep_level,l_full_path,
3385: ' --> EXCEPTION - OTHERS raised during PSA_TRANSFER_TO_GL_PKG.Populate_global_variables ');
3386: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
3387: psa_utils.debug_unexpected_msg(l_full_path);
3388: -- ========================= FND LOG ===========================
3389: app_exception.raise_exception;
3390:
3391: END Populate_global_variables;
3392:
3532: /* ##########################################UPD_SEG_IN_GL_INTERFACE ################################# */
3533:
3534: PROCEDURE Upd_seg_in_gl_interface
3535: IS
3536: -- ========================= FND LOG ===========================
3537: l_full_path VARCHAR2(100) := g_path || 'Upd_seg_in_gl_interface';
3538: -- ========================= FND LOG ===========================
3539: BEGIN
3540: -- ========================= FND LOG ===========================
3534: PROCEDURE Upd_seg_in_gl_interface
3535: IS
3536: -- ========================= FND LOG ===========================
3537: l_full_path VARCHAR2(100) := g_path || 'Upd_seg_in_gl_interface';
3538: -- ========================= FND LOG ===========================
3539: BEGIN
3540: -- ========================= FND LOG ===========================
3541: psa_utils.debug_other_string(g_state_level,l_full_path,
3542: ' --> Upd_seg_in_gl_interface - START '
3536: -- ========================= FND LOG ===========================
3537: l_full_path VARCHAR2(100) := g_path || 'Upd_seg_in_gl_interface';
3538: -- ========================= FND LOG ===========================
3539: BEGIN
3540: -- ========================= FND LOG ===========================
3541: psa_utils.debug_other_string(g_state_level,l_full_path,
3542: ' --> Upd_seg_in_gl_interface - START '
3543: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
3544: -- ========================= FND LOG ===========================
3540: -- ========================= FND LOG ===========================
3541: psa_utils.debug_other_string(g_state_level,l_full_path,
3542: ' --> Upd_seg_in_gl_interface - START '
3543: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
3544: -- ========================= FND LOG ===========================
3545:
3546: UPDATE gl_interface gi
3547: SET (
3548: gi.segment1 , gi.segment2 , gi.segment3 , gi.segment4 , gi.segment5 , gi.segment6 ,
3560: WHERE cc.code_combination_id = gi.code_combination_id)
3561: WHERE gi.group_id = l_pst_ctrl_id
3562: AND reference10 like '%MFAR%';
3563:
3564: -- ========================= FND LOG ===========================
3565: psa_utils.debug_other_string(g_state_level,l_full_path,
3566: ' --> Upd_seg_in_gl_interface - END '
3567: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
3568: -- ========================= FND LOG ===========================
3564: -- ========================= FND LOG ===========================
3565: psa_utils.debug_other_string(g_state_level,l_full_path,
3566: ' --> Upd_seg_in_gl_interface - END '
3567: || to_char (sysdate, 'DD/MM/YYYY HH:MI:SS'));
3568: -- ========================= FND LOG ===========================
3569:
3570: END Upd_seg_in_gl_interface;
3571:
3572:
3925:
3926: -- l_run_num NUMBER(15);
3927:
3928: l_fv_balance_check c_fv_balance_check%rowtype;
3929: -- ========================= FND LOG ===========================
3930: l_full_path VARCHAR2(100) := g_path || 'Mfar_rcpt_to_gl_CB';
3931: -- ========================= FND LOG ===========================
3932: BEGIN
3933:
3927:
3928: l_fv_balance_check c_fv_balance_check%rowtype;
3929: -- ========================= FND LOG ===========================
3930: l_full_path VARCHAR2(100) := g_path || 'Mfar_rcpt_to_gl_CB';
3931: -- ========================= FND LOG ===========================
3932: BEGIN
3933:
3934: retcode := 'F';
3935:
3956: END IF;
3957:
3958: EXCEPTION
3959: WHEN INVALID_DISTRIBUTION THEN
3960: -- ========================= FND LOG ===========================
3961: psa_utils.debug_other_string(g_excep_level,l_full_path,
3962: ' PSA_XFR_TO_GL_PKG.Mfar_rct_to_gl: Unable to create Multi-Fund distributions for Receivable Application ID: ' || I.receivable_application_id);
3963: psa_utils.debug_other_string(g_excep_level,l_full_path,' Error Message : ' || l_error_message);
3964: -- ========================= FND LOG ===========================
3960: -- ========================= FND LOG ===========================
3961: psa_utils.debug_other_string(g_excep_level,l_full_path,
3962: ' PSA_XFR_TO_GL_PKG.Mfar_rct_to_gl: Unable to create Multi-Fund distributions for Receivable Application ID: ' || I.receivable_application_id);
3963: psa_utils.debug_other_string(g_excep_level,l_full_path,' Error Message : ' || l_error_message);
3964: -- ========================= FND LOG ===========================
3965: retcode := 'F';
3966:
3967: WHEN OTHERS THEN
3968: -- ========================= FND LOG ===========================
3964: -- ========================= FND LOG ===========================
3965: retcode := 'F';
3966:
3967: WHEN OTHERS THEN
3968: -- ========================= FND LOG ===========================
3969: psa_utils.debug_other_string(g_excep_level,l_full_path,
3970: ' PSA_XFR_TO_GL_PKG.Mfar_rct_to_gl: Unable to create Multi-Fund distributions for Receivable Application ID: ' || I.receivable_application_id);
3971: psa_utils.debug_other_string(g_excep_level,l_full_path,' Error Message : ' || sqlerrm);
3972: psa_utils.debug_unexpected_msg(l_full_path);
3969: psa_utils.debug_other_string(g_excep_level,l_full_path,
3970: ' PSA_XFR_TO_GL_PKG.Mfar_rct_to_gl: Unable to create Multi-Fund distributions for Receivable Application ID: ' || I.receivable_application_id);
3971: psa_utils.debug_other_string(g_excep_level,l_full_path,' Error Message : ' || sqlerrm);
3972: psa_utils.debug_unexpected_msg(l_full_path);
3973: -- ========================= FND LOG ===========================
3974: retcode := 'F';
3975:
3976: END;
3977: /* -- 4178626
4090: retcode := 'S';
4091:
4092: EXCEPTION
4093: WHEN OTHERS THEN
4094: -- ========================= FND LOG ===========================
4095: psa_utils.debug_other_string(g_excep_level,l_full_path,
4096: ' PSA_XFR_TO_GL_PKG.Mfar_rct_to_gl: Exception : OTHERS ');
4097: psa_utils.debug_other_string(g_excep_level,l_full_path,' Error Message : ' || sqlerrm);
4098: psa_utils.debug_unexpected_msg(l_full_path);
4095: psa_utils.debug_other_string(g_excep_level,l_full_path,
4096: ' PSA_XFR_TO_GL_PKG.Mfar_rct_to_gl: Exception : OTHERS ');
4097: psa_utils.debug_other_string(g_excep_level,l_full_path,' Error Message : ' || sqlerrm);
4098: psa_utils.debug_unexpected_msg(l_full_path);
4099: -- ========================= FND LOG ===========================
4100: retcode := 'F';
4101:
4102: END Mfar_rcpt_to_gl_CB;
4103:
4179: AND ard.source_id = crh.cash_receipt_history_id
4180: AND (ard.amount_cr is null or ard.amount_cr > 0);
4181:
4182: PSA_MISC_GLX_FAIL EXCEPTION;
4183: -- ========================= FND LOG ===========================
4184: l_full_path VARCHAR2(100) := g_path || 'Misc_rct_to_gl_CB';
4185: -- ========================= FND LOG ===========================
4186:
4187: BEGIN
4181:
4182: PSA_MISC_GLX_FAIL EXCEPTION;
4183: -- ========================= FND LOG ===========================
4184: l_full_path VARCHAR2(100) := g_path || 'Misc_rct_to_gl_CB';
4185: -- ========================= FND LOG ===========================
4186:
4187: BEGIN
4188:
4189: l_gl_start_date := p_gl_date_from;
4211: p_report_only => 'N')) THEN
4212:
4213:
4214: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
4215: -- ========================= FND LOG ===========================
4216: psa_utils.debug_other_string(g_excep_level,l_full_path,
4217: 'Misc_rct_to_gl: Raising invalid_distribution');
4218: -- ========================= FND LOG ===========================
4219: Raise invalid_distribution;
4214: IF l_error_message IS NOT NULL OR l_retcode = 'F' THEN
4215: -- ========================= FND LOG ===========================
4216: psa_utils.debug_other_string(g_excep_level,l_full_path,
4217: 'Misc_rct_to_gl: Raising invalid_distribution');
4218: -- ========================= FND LOG ===========================
4219: Raise invalid_distribution;
4220: END IF;
4221:
4222: END IF;
4225: END LOOP;
4226:
4227: EXCEPTION
4228: WHEN INVALID_DISTRIBUTION THEN
4229: -- ========================= FND LOG ===========================
4230: psa_utils.debug_other_string(g_excep_level,l_full_path,
4231: ' p_error_message --> ' || l_error_message);
4232: -- ========================= FND LOG ===========================
4233: retcode := 'F';
4228: WHEN INVALID_DISTRIBUTION THEN
4229: -- ========================= FND LOG ===========================
4230: psa_utils.debug_other_string(g_excep_level,l_full_path,
4231: ' p_error_message --> ' || l_error_message);
4232: -- ========================= FND LOG ===========================
4233: retcode := 'F';
4234:
4235: WHEN OTHERS THEN
4236: -- ========================= FND LOG ===========================
4232: -- ========================= FND LOG ===========================
4233: retcode := 'F';
4234:
4235: WHEN OTHERS THEN
4236: -- ========================= FND LOG ===========================
4237: psa_utils.debug_other_string(g_excep_level,l_full_path,
4238: 'EXCEPTION - OTHERS raised during PSA_MF_CREATE_DISTRIBUTIONS.create_distributions ' || 'in PSA_TRANSFER_TO_GL_PKG.Misc_rct_to_gl ');
4239: psa_utils.debug_unexpected_msg(l_full_path);
4240: -- ========================= FND LOG ===========================
4236: -- ========================= FND LOG ===========================
4237: psa_utils.debug_other_string(g_excep_level,l_full_path,
4238: 'EXCEPTION - OTHERS raised during PSA_MF_CREATE_DISTRIBUTIONS.create_distributions ' || 'in PSA_TRANSFER_TO_GL_PKG.Misc_rct_to_gl ');
4239: psa_utils.debug_unexpected_msg(l_full_path);
4240: -- ========================= FND LOG ===========================
4241: errbuf := 2;
4242: retcode := 'F';
4243:
4244: END;
4335: WHERE posting_control_id = l_pst_ctrl_id);
4336:
4337: EXCEPTION
4338: WHEN OTHERS THEN
4339: -- ========================= FND LOG ===========================
4340: psa_utils.debug_other_string(g_excep_level,l_full_path,
4341: 'EXCEPTION - OTHERS raised during in PSA_TRANSFER_TO_GL_PKG.Misc_rct_to_gl - rolling back ');
4342: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
4343: psa_utils.debug_unexpected_msg(l_full_path);
4340: psa_utils.debug_other_string(g_excep_level,l_full_path,
4341: 'EXCEPTION - OTHERS raised during in PSA_TRANSFER_TO_GL_PKG.Misc_rct_to_gl - rolling back ');
4342: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
4343: psa_utils.debug_unexpected_msg(l_full_path);
4344: -- ========================= FND LOG ===========================
4345: errbuf := 2;
4346: retcode := 'F';
4347:
4348: END Misc_rct_to_gl_CB;