11: g_checkrun_name ap_checks_all.checkrun_name%TYPE;
12: x_err_code NUMBER;
13: x_err_stage VARCHAR2(2000);
14: --g_dit_flag VARCHAR2(1);
15: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
16: g_do_accounting VARCHAR2(1);
17:
18:
19: PROCEDURE CREATE_TREASURY_PAYMENT_EVENT
50: x_err_code := 0;
51: g_treasury_conf_id := TO_NUMBER(p_treas_conf_id);
52: g_do_accounting := p_do_accounting;
53:
54: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
55: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
56: 'Treasury Confirmation Id = '||g_treasury_conf_id);
57: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
58: 'p_do_accounting: '||p_do_accounting);
51: g_treasury_conf_id := TO_NUMBER(p_treas_conf_id);
52: g_do_accounting := p_do_accounting;
53:
54: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
55: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
56: 'Treasury Confirmation Id = '||g_treasury_conf_id);
57: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
58: 'p_do_accounting: '||p_do_accounting);
59: END IF;
53:
54: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
55: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
56: 'Treasury Confirmation Id = '||g_treasury_conf_id);
57: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
58: 'p_do_accounting: '||p_do_accounting);
59: END IF;
60:
61:
82: END IF;
83: commit;
84: x_retcode := 2;
85: x_errbuf := 'The Treasury Confirmation journal category has not been seeded';
86: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
87: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
88: 'p_button_name = '||p_button_name);
89: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
90: 'Treasury Confirmation Id = '||g_treasury_conf_id);
83: commit;
84: x_retcode := 2;
85: x_errbuf := 'The Treasury Confirmation journal category has not been seeded';
86: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
87: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
88: 'p_button_name = '||p_button_name);
89: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
90: 'Treasury Confirmation Id = '||g_treasury_conf_id);
91: END IF;
85: x_errbuf := 'The Treasury Confirmation journal category has not been seeded';
86: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
87: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
88: 'p_button_name = '||p_button_name);
89: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
90: 'Treasury Confirmation Id = '||g_treasury_conf_id);
91: END IF;
92: Return;
93: END IF;
116: INTO l_dit_flag
117: FROM fv_operating_units
118: where org_id = g_org_id ;
119:
120: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
121: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
122: 'dit flag = '||l_dit_flag);
123: END IF;
124: g_dit_flag := l_dit_flag;
117: FROM fv_operating_units
118: where org_id = g_org_id ;
119:
120: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
121: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
122: 'dit flag = '||l_dit_flag);
123: END IF;
124: g_dit_flag := l_dit_flag;
125:
126: IF l_dit_flag <> 'Y' THEN
127: x_retcode := 0;
128: x_errbuf := 'Disbursement in transit checkbox is disabled in Define Federal Options form'||
129: '-no accounting created for Treasury Confirmation ';
130: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
132: 'No Accounting created for Treasury Confirmation -'||
133: 'disbursement in transit checkbox is disabled in Define Federal Options form');
134: END IF;
127: x_retcode := 0;
128: x_errbuf := 'Disbursement in transit checkbox is disabled in Define Federal Options form'||
129: '-no accounting created for Treasury Confirmation ';
130: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
132: 'No Accounting created for Treasury Confirmation -'||
133: 'disbursement in transit checkbox is disabled in Define Federal Options form');
134: END IF;
135: END IF;
134: END IF;
135: END IF;
136: */
137:
138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
139: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
140: 'g_payment_instr_id = '||g_payment_instr_id);
141: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
142: 'g_accounting_date = '||g_accounting_date);
135: END IF;
136: */
137:
138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
139: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
140: 'g_payment_instr_id = '||g_payment_instr_id);
141: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
142: 'g_accounting_date = '||g_accounting_date);
143: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
137:
138: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
139: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
140: 'g_payment_instr_id = '||g_payment_instr_id);
141: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
142: 'g_accounting_date = '||g_accounting_date);
143: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
144: 'g_ledger_id = '||g_ledger_id);
145: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
139: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
140: 'g_payment_instr_id = '||g_payment_instr_id);
141: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
142: 'g_accounting_date = '||g_accounting_date);
143: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
144: 'g_ledger_id = '||g_ledger_id);
145: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
146: 'g_org_id = '||g_org_id);
147: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
141: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
142: 'g_accounting_date = '||g_accounting_date);
143: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
144: 'g_ledger_id = '||g_ledger_id);
145: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
146: 'g_org_id = '||g_org_id);
147: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
148: 'g_checkrun_name = '||g_checkrun_name);
149: END IF;
143: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
144: 'g_ledger_id = '||g_ledger_id);
145: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
146: 'g_org_id = '||g_org_id);
147: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
148: 'g_checkrun_name = '||g_checkrun_name);
149: END IF;
150: EXCEPTION
151: WHEN OTHERS THEN
150: EXCEPTION
151: WHEN OTHERS THEN
152: x_retcode := 2;
153: x_errbuf := 'The Treasury Confirmation rows are not available';
154: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
155: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
156: 'p_button_name = '||p_button_name);
157: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
158: 'Treasury Confirmation Id = '||g_treasury_conf_id);
151: WHEN OTHERS THEN
152: x_retcode := 2;
153: x_errbuf := 'The Treasury Confirmation rows are not available';
154: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
155: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
156: 'p_button_name = '||p_button_name);
157: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
158: 'Treasury Confirmation Id = '||g_treasury_conf_id);
159: END IF;
153: x_errbuf := 'The Treasury Confirmation rows are not available';
154: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
155: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
156: 'p_button_name = '||p_button_name);
157: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
158: 'Treasury Confirmation Id = '||g_treasury_conf_id);
159: END IF;
160: END;
161:
172: commit;
173: RETURN;
174: END IF;
175:
176: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
177: 'Button='||p_button_name);
178:
179: IF p_button_name = 'TREASURY_CONFIRMATION.CONFIRM' THEN
180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
176: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
177: 'Button='||p_button_name);
178:
179: IF p_button_name = 'TREASURY_CONFIRMATION.CONFIRM' THEN
180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
181: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
182: 'Confirmation Process begins');
183: END IF;
184: do_confirm_process(x_status_code,x_return_status);
177: 'Button='||p_button_name);
178:
179: IF p_button_name = 'TREASURY_CONFIRMATION.CONFIRM' THEN
180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
181: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
182: 'Confirmation Process begins');
183: END IF;
184: do_confirm_process(x_status_code,x_return_status);
185: x_retcode := x_status_code;
188: UPDATE fv_treasury_confirmations
189: SET confirmation_status_flag = 'Y'
190: WHERE treasury_confirmation_id = g_treasury_conf_id;
191:
192: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
193: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
194: 'The Confirm Process is Successful');
195: END IF;
196: ELSE
189: SET confirmation_status_flag = 'Y'
190: WHERE treasury_confirmation_id = g_treasury_conf_id;
191:
192: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
193: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
194: 'The Confirm Process is Successful');
195: END IF;
196: ELSE
197:
202: UPDATE fv_treasury_confirmations
203: SET confirmation_status_flag = 'N'
204: WHERE treasury_confirmation_id = g_treasury_conf_id;
205:
206: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
207: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
208: 'The Confirm Process has failed.');
209: END IF;
210:
203: SET confirmation_status_flag = 'N'
204: WHERE treasury_confirmation_id = g_treasury_conf_id;
205:
206: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
207: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
208: 'The Confirm Process has failed.');
209: END IF;
210:
211: END IF;
210:
211: END IF;
212:
213: ELSIF p_button_name = 'TREASURY_CONFIRMATION.BACK_OUT' THEN
214: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
215: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
216: 'Backout Process begins');
217: END IF;
218: --if g_dit_flag = 'Y' THEN
211: END IF;
212:
213: ELSIF p_button_name = 'TREASURY_CONFIRMATION.BACK_OUT' THEN
214: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
215: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
216: 'Backout Process begins');
217: END IF;
218: --if g_dit_flag = 'Y' THEN
219: do_backout_process(x_status_code,x_return_status);
228: UPDATE fv_treasury_confirmations
229: SET confirmation_status_flag = 'B'
230: WHERE treasury_confirmation_id = g_treasury_conf_id;
231:
232: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
233: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
234: 'The Backout Process is Successful');
235: END IF;
236: ELSE
229: SET confirmation_status_flag = 'B'
230: WHERE treasury_confirmation_id = g_treasury_conf_id;
231:
232: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
233: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
234: 'The Backout Process is Successful');
235: END IF;
236: ELSE
237: ROLLBACK TO FV_TREAS;
240: UPDATE fv_treasury_confirmations
241: SET confirmation_status_flag = 'Y'
242: WHERE treasury_confirmation_id = g_treasury_conf_id;
243:
244: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
246: 'The Backout Process has failed.');
247: END IF;
248:
241: SET confirmation_status_flag = 'Y'
242: WHERE treasury_confirmation_id = g_treasury_conf_id;
243:
244: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
246: 'The Backout Process has failed.');
247: END IF;
248:
249: END IF;
247: END IF;
248:
249: END IF;
250: ELSE
251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
253: 'No Treasury Confirmation process');
254: END IF;
255: RETURN;
248:
249: END IF;
250: ELSE
251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
253: 'No Treasury Confirmation process');
254: END IF;
255: RETURN;
256: END IF;
259:
260: EXCEPTION
261: WHEN OTHERS THEN
262: g_errmsg := SQLERRM;
263: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,g_errmsg);
264: RAISE;
265: END Main;
266:
267: PROCEDURE DO_CONFIRM_PROCESS (x_status_code OUT NOCOPY VARCHAR2
336: FROM FV_TREASURY_CONFIRMATIONS_ALL
337: WHERE payment_instruction_id = g_payment_instr_id
338: AND org_id = g_org_id;
339:
340: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
341: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
342: 'l_checkrun_name = '||l_checkrun_name);
343: END IF;
344: EXCEPTION
337: WHERE payment_instruction_id = g_payment_instr_id
338: AND org_id = g_org_id;
339:
340: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
341: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
342: 'l_checkrun_name = '||l_checkrun_name);
343: END IF;
344: EXCEPTION
345: WHEN OTHERS THEN
342: 'l_checkrun_name = '||l_checkrun_name);
343: END IF;
344: EXCEPTION
345: WHEN OTHERS THEN
346: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
347: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
348: 'No Upgrade entries');
349: END IF;
350: l_checkrun_name := NULL;
343: END IF;
344: EXCEPTION
345: WHEN OTHERS THEN
346: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
347: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
348: 'No Upgrade entries');
349: END IF;
350: l_checkrun_name := NULL;
351: END;
417: END IF;
418:
419: l_diff := l_end_doc - l_begin_doc + 1;
420:
421: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
423: 'l_diff is ' || l_diff);
424: END IF;
425:
418:
419: l_diff := l_end_doc - l_begin_doc + 1;
420:
421: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
422: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
423: 'l_diff is ' || l_diff);
424: END IF;
425:
426: FOR i IN 1.. l_diff
424: END IF;
425:
426: FOR i IN 1.. l_diff
427: LOOP
428: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
429: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
430: 'l_row_num:'||l_row_num);
431: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
432: 'l_check_tbl(l_row_num).check_id:'||
425:
426: FOR i IN 1.. l_diff
427: LOOP
428: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
429: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
430: 'l_row_num:'||l_row_num);
431: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
432: 'l_check_tbl(l_row_num).check_id:'||
433: l_check_tbl(l_row_num).check_id);
427: LOOP
428: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
429: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
430: 'l_row_num:'||l_row_num);
431: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
432: 'l_check_tbl(l_row_num).check_id:'||
433: l_check_tbl(l_row_num).check_id);
434: END IF;
435:
491: LOOP
492: FETCH cur_corr_treas_pay_num INTO l_corr_treas_pay_num, l_offset_check_id;
493: EXIT WHEN cur_corr_treas_pay_num%NOTFOUND;
494:
495: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
497: 'In corrected treasury pay number loop');
498: END IF;
499:
492: FETCH cur_corr_treas_pay_num INTO l_corr_treas_pay_num, l_offset_check_id;
493: EXIT WHEN cur_corr_treas_pay_num%NOTFOUND;
494:
495: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
496: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
497: 'In corrected treasury pay number loop');
498: END IF;
499:
500: IF l_corr_treas_pay_num IS NOT NULL THEN
597: ORDER BY period_year,period_num ASC ;
598:
599: EXCEPTION
600: WHEN others THEN
601: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||
602: 'Error in getting next Open Period',SQLERRM);
603: RETURN;
604:
605: END;
609: END IF; --- end of Closed Period
610:
611: EXCEPTION
612: WHEN OTHERS THEN
613: fv_utility.log_mesg(fnd_log.level_exception,l_module_name,SQLERRM);
614:
615: END GET_OPEN_PERIOD;
616:
617: PROCEDURE CREATE_TREASURY_PAYMENT_EVENT
682: BEGIN
683: l_calling_sequence := p_calling_sequence || ' -> FV_TREASURY_PAYMENTS_PKG.CREATE_TREASURY_PAYMENT_EVENT';
684: l_module_name := g_module_name||'Create_Treasury_Payment_Event';
685:
686: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
687: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
688: 'Calling Sequence: '||p_calling_sequence);
689: END IF;
690:
683: l_calling_sequence := p_calling_sequence || ' -> FV_TREASURY_PAYMENTS_PKG.CREATE_TREASURY_PAYMENT_EVENT';
684: l_module_name := g_module_name||'Create_Treasury_Payment_Event';
685:
686: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
687: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
688: 'Calling Sequence: '||p_calling_sequence);
689: END IF;
690:
691: --Set the reference info value based on event type
733: ,p_event_number => NULL
734: ,p_valuation_method => NULL
735: ,p_security_context => l_security_context) THEN
736:
737: IF (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL ) THEN
738: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,'Event exists! event_id =' || l_tc_event_id);
739: END IF;
740:
741: --- call the xla_events_pub_pkg.get_array_event_info
734: ,p_valuation_method => NULL
735: ,p_security_context => l_security_context) THEN
736:
737: IF (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL ) THEN
738: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,'Event exists! event_id =' || l_tc_event_id);
739: END IF;
740:
741: --- call the xla_events_pub_pkg.get_array_event_info
742: /*XLA_EVENTS_PUB_PKG.DELETE_EVENT(
744: p_event_id => l_tc_event_id,
745: p_valuation_method => NULL,
746: p_security_context => l_security_context);
747:
748: IF (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL ) THEN
749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name, 'After delete '||l_tc_event_id);
750: END IF;*/
751:
752: END IF;
745: p_valuation_method => NULL,
746: p_security_context => l_security_context);
747:
748: IF (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL ) THEN
749: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name, 'After delete '||l_tc_event_id);
750: END IF;*/
751:
752: END IF;
753:
765: p_security_context => l_security_context
766: -- p_budgetary_control_flag => 'Y'
767: );
768:
769: IF FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL THEN
770: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Event ID: '||l_tc_event_id );
771: END IF;
772:
773: IF l_tc_event_id is NULL THEN
766: -- p_budgetary_control_flag => 'Y'
767: );
768:
769: IF FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL THEN
770: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Event ID: '||l_tc_event_id );
771: END IF;
772:
773: IF l_tc_event_id is NULL THEN
774: IF FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL THEN
770: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Event ID: '||l_tc_event_id );
771: END IF;
772:
773: IF l_tc_event_id is NULL THEN
774: IF FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL THEN
775: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'Event creation failed for: Treasury confirmation ID: '
776: || to_char(l_event_source_info.transaction_number));
777: END IF;
778: RAISE FND_API.g_exc_error;
771: END IF;
772:
773: IF l_tc_event_id is NULL THEN
774: IF FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL THEN
775: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'Event creation failed for: Treasury confirmation ID: '
776: || to_char(l_event_source_info.transaction_number));
777: END IF;
778: RAISE FND_API.g_exc_error;
779: END IF;
818: ,p_event_number => NULL
819: ,p_valuation_method => NULL
820: ,p_security_context => l_security_context) THEN
821:
822: IF (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL ) THEN
823: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,'Event exists! event_id =' || l_void_event_id);
824: END IF;
825:
826: XLA_EVENTS_PUB_PKG.DELETE_EVENT(
819: ,p_valuation_method => NULL
820: ,p_security_context => l_security_context) THEN
821:
822: IF (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL ) THEN
823: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name,'Event exists! event_id =' || l_void_event_id);
824: END IF;
825:
826: XLA_EVENTS_PUB_PKG.DELETE_EVENT(
827: p_event_source_info => l_event_source_info,
828: p_event_id => l_void_event_id,
829: p_valuation_method => NULL,
830: p_security_context => l_security_context);
831:
832: IF (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL ) THEN
833: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name, 'After delete '||l_void_event_id);
834: END IF;
835: END IF;
836: */
829: p_valuation_method => NULL,
830: p_security_context => l_security_context);
831:
832: IF (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL ) THEN
833: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, l_module_name, 'After delete '||l_void_event_id);
834: END IF;
835: END IF;
836: */
837: --If the event does not exist, create a new event,
852: p_security_context => l_security_context
853: -- p_budgetary_control_flag => 'Y'
854: );
855:
856: IF FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL THEN
857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Event ID: '||l_void_event_id );
858: END IF;
859: END IF;
860:
853: -- p_budgetary_control_flag => 'Y'
854: );
855:
856: IF FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL THEN
857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Event ID: '||l_void_event_id );
858: END IF;
859: END IF;
860:
861: IF l_void_event_id is NULL THEN
858: END IF;
859: END IF;
860:
861: IF l_void_event_id is NULL THEN
862: IF FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL THEN
863: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'Event creation failed for: Treasury confirmation ID: '
864: || to_char(l_event_source_info.transaction_number)||'Check ID: '||l_check_id);
865: END IF;
866: RAISE FND_API.g_exc_error;
859: END IF;
860:
861: IF l_void_event_id is NULL THEN
862: IF FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL THEN
863: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED, l_module_name,'Event creation failed for: Treasury confirmation ID: '
864: || to_char(l_event_source_info.transaction_number)||'Check ID: '||l_check_id);
865: END IF;
866: RAISE FND_API.g_exc_error;
867: END IF;
894: );
895:
896: IF l_retcode <> 0 THEN
897: l_api_message := 'Error Accounting for Events in SLA:'||l_errbuf;
898: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
899: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name , l_api_message);
900: END IF;
901: x_status_code := 'FAILURE';
902: RAISE FND_API.g_exc_error;
895:
896: IF l_retcode <> 0 THEN
897: l_api_message := 'Error Accounting for Events in SLA:'||l_errbuf;
898: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
899: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name , l_api_message);
900: END IF;
901: x_status_code := 'FAILURE';
902: RAISE FND_API.g_exc_error;
903: END IF;
979: p_treasury_conf_id NUMBER;
980: l_pmt_id fv_treasury_confirmations_all.payment_instruction_id%TYPE;
981:
982: BEGIN
983: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'Start Of Void');
984:
985: l_module_name := g_module_name || 'Void';
986: l_calling_sequence := 'FV_TREASURY_PAYMENTS_PKG.Void_Payments';
987: l_reference1 := 'Void';
1014: INTO l_pmt_id
1015: FROM fv_treasury_confirmations ftc
1016: WHERE ftc.treasury_confirmation_id = p_treasury_conf_id;
1017:
1018: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module_name,
1020: 'p_treasury_conf_id :'||p_treasury_conf_id || 'l_pmt_id :'||l_pmt_id || 'event_id:'||cur_event_id);
1021: END IF;
1022:
1015: FROM fv_treasury_confirmations ftc
1016: WHERE ftc.treasury_confirmation_id = p_treasury_conf_id;
1017:
1018: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module_name,
1020: 'p_treasury_conf_id :'||p_treasury_conf_id || 'l_pmt_id :'||l_pmt_id || 'event_id:'||cur_event_id);
1021: END IF;
1022:
1023: UPDATE fv_voided_checks
1048: WHEN OTHERS THEN
1049: l_err_code := SQLCODE;
1050: l_err_stage := SQLERRM;
1051: X_retcode:=2;
1052: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||' insert fv_voided_checks2',l_err_stage);
1053: END;
1054:
1055: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1056: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'INSERT INTO fv_voided_checks');
1051: X_retcode:=2;
1052: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||' insert fv_voided_checks2',l_err_stage);
1053: END;
1054:
1055: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1056: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'INSERT INTO fv_voided_checks');
1057: END IF;
1058:
1059: BEGIN
1052: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||' insert fv_voided_checks2',l_err_stage);
1053: END;
1054:
1055: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1056: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'INSERT INTO fv_voided_checks');
1057: END IF;
1058:
1059: BEGIN
1060: INSERT INTO fv_voided_checks
1106: WHEN OTHERS THEN
1107: l_err_code := SQLCODE;
1108: l_err_stage := SQLERRM;
1109: X_retcode:=2;
1110: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||' insert fv_voided_checks1',l_err_stage);
1111: END;
1112:
1113: l_status_code:='SUCCESS';
1114:
1178: );
1179: */
1180: ELSE
1181: X_errbuf := 'Create Accounting has failed. Please check the logs and resubmit the process.';
1182: fv_utility.log_mesg(fnd_log.level_exception,l_module_name ,X_errbuf);
1183: X_retcode := 2;
1184: RETURN;
1185: END IF;
1186:
1187: EXCEPTION
1188: WHEN OTHERS THEN
1189: l_err_code := SQLCODE;
1190: l_err_stage := SQLERRM;
1191: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||
1192: 'update fv_voided_checks1',l_err_stage);
1193: END;
1194: ELSE
1195: l_status_code:='SUCCESS';
1220: EXCEPTION
1221: WHEN OTHERS THEN
1222: l_err_code := SQLCODE;
1223: l_err_stage := SQLERRM;
1224: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||'update fv_voided_checks1',l_err_stage);
1225: END;
1226: */
1227:
1228: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'End Of Void');
1224: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||'update fv_voided_checks1',l_err_stage);
1225: END;
1226: */
1227:
1228: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'End Of Void');
1229: X_retcode:=0;
1230: END Void;
1231:
1232: