DBA Data[Home] [Help]

APPS.FV_IPAC_AUTOPAYMENTS_PKG dependencies on FND_LOG

Line 51: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

47: -- p_document_id IN NUMBER
48: ) IS
49: l_module_name VARCHAR2(200) := g_module_name || 'Main';
50: BEGIN
51: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
52: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Start Automatic Payments Process.....');
53: END IF;
54:
55: -- Assign initial values

Line 52: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Start Automatic Payments Process.....');

48: ) IS
49: l_module_name VARCHAR2(200) := g_module_name || 'Main';
50: BEGIN
51: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
52: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Start Automatic Payments Process.....');
53: END IF;
54:
55: -- Assign initial values
56: g_errbuf := NULL;

Line 70: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

66: g_sob_id := p_set_of_books_id;
67: x_errbuf := NULL;
68: x_retcode := 0;
69:
70: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
71: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'The parameters passed to the process are: ');
72: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Batch Name: '||g_batch_name);
73: -- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Transaction Code: '||g_tran_code);
74: END IF;

Line 71: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'The parameters passed to the process are: ');

67: x_errbuf := NULL;
68: x_retcode := 0;
69:
70: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
71: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'The parameters passed to the process are: ');
72: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Batch Name: '||g_batch_name);
73: -- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Transaction Code: '||g_tran_code);
74: END IF;
75:

Line 72: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Batch Name: '||g_batch_name);

68: x_retcode := 0;
69:
70: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
71: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'The parameters passed to the process are: ');
72: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Batch Name: '||g_batch_name);
73: -- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Transaction Code: '||g_tran_code);
74: END IF;
75:
76: -- Derive the Batch Id and Sob

Line 73: -- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Transaction Code: '||g_tran_code);

69:
70: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
71: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'The parameters passed to the process are: ');
72: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Batch Name: '||g_batch_name);
73: -- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Transaction Code: '||g_tran_code);
74: END IF;
75:
76: -- Derive the Batch Id and Sob
77: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 77: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

73: -- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Transaction Code: '||g_tran_code);
74: END IF;
75:
76: -- Derive the Batch Id and Sob
77: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
78: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Deriving the Batch Id and Set Of Books Id');
79: END IF;
80:
81: Get_Required_Parameters;

Line 78: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Deriving the Batch Id and Set Of Books Id');

74: END IF;
75:
76: -- Derive the Batch Id and Sob
77: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
78: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Deriving the Batch Id and Set Of Books Id');
79: END IF;
80:
81: Get_Required_Parameters;
82:

Line 85: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

81: Get_Required_Parameters;
82:
83: IF (g_retcode = 0) THEN
84: -- Validate the invoices
85: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
86: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Validating the Invoices');
87: END IF;
88: Validate_Invoices;
89: END IF;

Line 86: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Validating the Invoices');

82:
83: IF (g_retcode = 0) THEN
84: -- Validate the invoices
85: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
86: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Validating the Invoices');
87: END IF;
88: Validate_Invoices;
89: END IF;
90:

Line 102: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

98: x_retcode := 0;
99: x_errbuf := '** Automatic Payments Process completed successfully **';
100: END IF;
101:
102: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
103: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'End Automatic Payments Process.....');
104: END IF;
105:
106: EXCEPTION

Line 103: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'End Automatic Payments Process.....');

99: x_errbuf := '** Automatic Payments Process completed successfully **';
100: END IF;
101:
102: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
103: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'End Automatic Payments Process.....');
104: END IF;
105:
106: EXCEPTION
107: WHEN OTHERS THEN

Line 110: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;

106: EXCEPTION
107: WHEN OTHERS THEN
108: x_errbuf := SQLERRM || ' -- Error in Main Procedure.';
109: x_retcode := 2;
110: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;
111: END Main;
112:
113: -- ------------------------------------------------------------------
114: -- Procedure Get_Required_Parameters

Line 130: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

126: -- Get the Sob
127:
128: mo_utils.get_ledger_info(g_org_id, g_sob_id, l_ledger_name);
129:
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, ' Set of Books Id : '||TO_CHAR(g_sob_id));
132: END IF;
133:
134: -- Get the Batch Id

Line 131: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, ' Set of Books Id : '||TO_CHAR(g_sob_id));

127:
128: mo_utils.get_ledger_info(g_org_id, g_sob_id, l_ledger_name);
129:
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, ' Set of Books Id : '||TO_CHAR(g_sob_id));
132: END IF;
133:
134: -- Get the Batch Id
135: BEGIN

Line 152: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception1',g_errbuf) ;

148: g_errbuf := SQLERRM ||
149: ' -- Error in Get_Required_Parameters Procedure, while deriving
150: the batch id.';
151: g_retcode := 2;
152: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception1',g_errbuf) ;
153: END;
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, ' Batch Id : '||TO_CHAR(g_batch_id));
156: END IF;

Line 154: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

150: the batch id.';
151: g_retcode := 2;
152: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception1',g_errbuf) ;
153: END;
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, ' Batch Id : '||TO_CHAR(g_batch_id));
156: END IF;
157: EXCEPTION
158: WHEN OTHERS THEN

Line 155: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, ' Batch Id : '||TO_CHAR(g_batch_id));

151: g_retcode := 2;
152: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception1',g_errbuf) ;
153: END;
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, ' Batch Id : '||TO_CHAR(g_batch_id));
156: END IF;
157: EXCEPTION
158: WHEN OTHERS THEN
159: g_errbuf := SQLERRM || ' -- Error in Get_Required_Parameters Procedure.';

Line 161: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;

157: EXCEPTION
158: WHEN OTHERS THEN
159: g_errbuf := SQLERRM || ' -- Error in Get_Required_Parameters Procedure.';
160: g_retcode := 2;
161: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;
162: END Get_Required_Parameters;
163:
164: -- ------------------------------------------------------------------
165: -- Procedure Validate_Invoices

Line 215: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

211: '------------------------------ ');
212:
213: FOR l_invoice_csr IN get_invoice_csr LOOP
214: l_invoice_num := l_invoice_csr.invoice_num;
215: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
216: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Validating IPAC Invoice '||l_invoice_num);
217: END IF;
218:
219: -- Call the approval api

Line 216: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Validating IPAC Invoice '||l_invoice_num);

212:
213: FOR l_invoice_csr IN get_invoice_csr LOOP
214: l_invoice_num := l_invoice_csr.invoice_num;
215: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
216: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Validating IPAC Invoice '||l_invoice_num);
217: END IF;
218:
219: -- Call the approval api
220: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 220: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

216: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Validating IPAC Invoice '||l_invoice_num);
217: END IF;
218:
219: -- Call the approval api
220: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
221: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Calling the Approval API ');
222: END IF;
223: Call_Approval_Api(l_invoice_csr.invoice_id,l_invoice_num,
224: l_invoice_csr.invoice_date,NULL,'I','Y');

Line 221: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Calling the Approval API ');

217: END IF;
218:
219: -- Call the approval api
220: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
221: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Calling the Approval API ');
222: END IF;
223: Call_Approval_Api(l_invoice_csr.invoice_id,l_invoice_num,
224: l_invoice_csr.invoice_date,NULL,'I','Y');
225:

Line 247: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

243:
244: FOR l_recinv_csr IN get_recinv_csr(l_inv_action) LOOP
245: l_invoice_num := l_recinv_csr.invoice_num;
246: IF (i = 1) THEN
247: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Validating Recurring Invoice '||l_invoice_num);
249: END IF;
250: ELSE
251: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Validating Recurring Invoice '||l_invoice_num);

244: FOR l_recinv_csr IN get_recinv_csr(l_inv_action) LOOP
245: l_invoice_num := l_recinv_csr.invoice_num;
246: IF (i = 1) THEN
247: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Validating Recurring Invoice '||l_invoice_num);
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,' Processing Recurring Invoice '||l_invoice_num);

Line 251: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

247: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Validating Recurring Invoice '||l_invoice_num);
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,' Processing Recurring Invoice '||l_invoice_num);
253: END IF;
254: END IF;
255:

Line 252: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Processing Recurring Invoice '||l_invoice_num);

248: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Validating Recurring Invoice '||l_invoice_num);
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,' Processing Recurring Invoice '||l_invoice_num);
253: END IF;
254: END IF;
255:
256: -- Call the approval api

Line 257: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

253: END IF;
254: END IF;
255:
256: -- Call the approval api
257: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Calling the Approval API ');
259: END IF;
260: Call_Approval_Api(l_recinv_csr.invoice_id,l_invoice_num,
261: l_recinv_csr.accomplish_date,

Line 258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Calling the Approval API ');

254: END IF;
255:
256: -- Call the approval api
257: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
258: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Calling the Approval API ');
259: END IF;
260: Call_Approval_Api(l_recinv_csr.invoice_id,l_invoice_num,
261: l_recinv_csr.accomplish_date,
262: l_recinv_csr.payment_method_lookup_code,

Line 278: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;

274: EXCEPTION
275: WHEN OTHERS THEN
276: g_errbuf := SQLERRM || ' -- Error in Validate_Invoices Procedure.';
277: g_retcode := 2;
278: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;
279: END Validate_Invoices;
280:
281:
282: -- ------------------------------------------------------------------

Line 330: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

326: x_paygroup Ap_Invoices.pay_group_lookup_code%TYPE;
327: l_funds_return_code VARCHAR2(15);
328:
329: BEGIN
330: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
331: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' In call approval api with p_invoice_num:'||p_invoice_num||
332: ', p_invoice_flag: '||p_invoice_flag||', p_validate_flag:'||
333: p_validate_flag);
334: END IF;

Line 331: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' In call approval api with p_invoice_num:'||p_invoice_num||

327: l_funds_return_code VARCHAR2(15);
328:
329: BEGIN
330: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
331: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' In call approval api with p_invoice_num:'||p_invoice_num||
332: ', p_invoice_flag: '||p_invoice_flag||', p_validate_flag:'||
333: p_validate_flag);
334: END IF;
335:

Line 357: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

353: p_funds_return_code =>l_funds_return_code,
354: p_calling_sequence =>'FVIPAPMB'
355: );
356:
357: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
358: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Approval Status: '||l_approval_status||
359: ' Hold Count: '||TO_CHAR(l_holds_count));
360: END IF;
361: END IF;

Line 358: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Approval Status: '||l_approval_status||

354: p_calling_sequence =>'FVIPAPMB'
355: );
356:
357: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
358: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Approval Status: '||l_approval_status||
359: ' Hold Count: '||TO_CHAR(l_holds_count));
360: END IF;
361: END IF;
362:

Line 367: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

363: IF ( ((p_validate_flag = 'Y') AND (l_holds_count = 0)
364: AND (l_approval_status = 'APPROVED')) OR (p_validate_flag = 'N') ) THEN --cnt
365:
366: IF ((p_invoice_flag = 'R') AND (p_validate_flag = 'Y')) THEN
367: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Updating the invoice_action in the '||
369: 'Fv_Ipac_Recurring_Inv Table.');
370: END IF;
371:

Line 368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Updating the invoice_action in the '||

364: AND (l_approval_status = 'APPROVED')) OR (p_validate_flag = 'N') ) THEN --cnt
365:
366: IF ((p_invoice_flag = 'R') AND (p_validate_flag = 'Y')) THEN
367: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
368: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Updating the invoice_action in the '||
369: 'Fv_Ipac_Recurring_Inv Table.');
370: END IF;
371:
372: UPDATE Fv_Ipac_Recurring_Inv

Line 381: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,' The payment method is not CLEARING '||

377: BEGIN
378: -- Check the payment method for recurring invoices,
379: -- if it is not 'Clearing', then put in the exception report
380: IF ((p_invoice_flag = 'R') AND (p_payment_method <> 'CLEARING')) THEN
381: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,' The payment method is not CLEARING '||
382: 'for the invoice '||p_invoice_num||
383: '. Hence payment is not made for this invoice.');
384: GOTO end_label;
385: END IF;

Line 388: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

384: GOTO end_label;
385: END IF;
386:
387: -- Update the Wf Approval Status
388: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
389: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Updating the Workflow approval status for '||
390: 'the invoice '||p_invoice_num);
391: END IF;
392: Update_WfStatus(p_invoice_id);

Line 389: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Updating the Workflow approval status for '||

385: END IF;
386:
387: -- Update the Wf Approval Status
388: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
389: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Updating the Workflow approval status for '||
390: 'the invoice '||p_invoice_num);
391: END IF;
392: Update_WfStatus(p_invoice_id);
393:

Line 394: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

390: 'the invoice '||p_invoice_num);
391: END IF;
392: Update_WfStatus(p_invoice_id);
393:
394: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
395: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Calling the pay in full API.');
396: END IF;
397:
398:

Line 395: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Calling the pay in full API.');

391: END IF;
392: Update_WfStatus(p_invoice_id);
393:
394: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
395: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Calling the pay in full API.');
396: END IF;
397:
398:
399: Ap_Pay_Single_Invoice_Pkg.Ap_Pay_Invoice_In_Full(

Line 437: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,' In the exception of the pay in full API with '||

433: */
434: EXCEPTION
435: WHEN OTHERS THEN
436: l_mesg := Fnd_Message.Get||SQLERRM;
437: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,' In the exception of the pay in full API with '||
438: 'the mesg '||l_mesg);
439: Log_Mesg('O',RPAD(NVL(p_invoice_num,' '),50,' ')
440: ||RPAD(NVL(l_approval_status,' '),25,' ')
441: ||RPAD(NVL(TO_CHAR(l_holds_count),' '),19,' ')

Line 446: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

442: ||l_mesg);
443: RETURN;
444: END;
445:
446: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
447: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Inserting the transaction into the '||
448: 'Fv_Interagency_Funds Table.');
449: END IF;
450: -- Call Insert_IA_Txns Procedure

Line 447: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Inserting the transaction into the '||

443: RETURN;
444: END;
445:
446: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
447: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Inserting the transaction into the '||
448: 'Fv_Interagency_Funds Table.');
449: END IF;
450: -- Call Insert_IA_Txns Procedure
451: Insert_IA_Txns(p_invoice_id,p_invoice_num,x_paygroup);

Line 494: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;

490: EXCEPTION
491: WHEN OTHERS THEN
492: g_errbuf := SQLERRM || ' -- Error in Call_Approval_Api Procedure.';
493: g_retcode := 2;
494: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;
495: END Call_Approval_Api;
496:
497: -- ------------------------------------------------------------------
498: -- Procedure Insert_IA_Txns

Line 536: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception7',g_errbuf) ;

532: g_errbuf := SQLERRM ||
533: ' -- Error in Insert_IA_Txns Procedure'||
534: ' while checking for the paygroup for the invoice '||p_invoice_num;
535: g_retcode := 2;
536: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception7',g_errbuf) ;
537: END;
538:
539: -- Get the vendor and creation date information for the invoice.
540: -- If the paygroup matches, then get the vendor info,

Line 563: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception8',g_errbuf) ;

559: ' -- Error in Insert_IA_Txns Procedure (no data found)'||
560: ' while getting the vendor information for the invoice '||
561: p_invoice_num;
562: g_retcode := 2;
563: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.exception8',g_errbuf) ;
564: WHEN OTHERS THEN
565: g_errbuf := SQLERRM ||
566: ' -- Error in Insert_IA_Txns Procedure'||
567: ' while getting the vendor information for the invoice '

Line 570: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception9',g_errbuf) ;

566: ' -- Error in Insert_IA_Txns Procedure'||
567: ' while getting the vendor information for the invoice '
568: ||p_invoice_num;
569: g_retcode := 2;
570: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception9',g_errbuf) ;
571: END;
572: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
573: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' The invoice '||p_invoice_num||' has been inserted '||
574: 'into the interagency table.');

Line 572: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

568: ||p_invoice_num;
569: g_retcode := 2;
570: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception9',g_errbuf) ;
571: END;
572: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
573: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' The invoice '||p_invoice_num||' has been inserted '||
574: 'into the interagency table.');
575: END IF;
576: ELSE -- count

Line 573: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' The invoice '||p_invoice_num||' has been inserted '||

569: g_retcode := 2;
570: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception9',g_errbuf) ;
571: END;
572: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
573: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' The invoice '||p_invoice_num||' has been inserted '||
574: 'into the interagency table.');
575: END IF;
576: ELSE -- count
577: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,' The paygroup on the invoice '||p_invoice_num||

Line 577: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,' The paygroup on the invoice '||p_invoice_num||

573: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' The invoice '||p_invoice_num||' has been inserted '||
574: 'into the interagency table.');
575: END IF;
576: ELSE -- count
577: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,' The paygroup on the invoice '||p_invoice_num||
578: ' does not match to the Interagency paygroup defined '||
579: 'on the Federal Options Form.');
580: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,' The invoice '||p_invoice_num||
581: ' has not been inserted '|| 'into the interagency table.');

Line 580: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,' The invoice '||p_invoice_num||

576: ELSE -- count
577: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,' The paygroup on the invoice '||p_invoice_num||
578: ' does not match to the Interagency paygroup defined '||
579: 'on the Federal Options Form.');
580: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_EXCEPTION, l_module_name,' The invoice '||p_invoice_num||
581: ' has not been inserted '|| 'into the interagency table.');
582: BEGIN
583: SELECT pay_group_lookup_code
584: INTO x_paygroup

Line 594: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception10',g_errbuf) ;

590: g_errbuf := SQLERRM ||
591: ' -- Error in Insert_IA_Txns Procedure'||
592: ' while deriving the paygroup for the invoice '||p_invoice_num;
593: g_retcode := 2;
594: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception10',g_errbuf) ;
595: END;
596: RETURN;
597: END IF; -- count
598:

Line 634: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;

630: EXCEPTION
631: WHEN OTHERS THEN
632: g_errbuf := SQLERRM || ' -- Error in Insert_IA_Txns Procedure.';
633: g_retcode := 2;
634: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;
635: END Insert_IA_Txns;
636:
637:
638: -- ------------------------------------------------------------------

Line 656: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;

652: EXCEPTION
653: WHEN OTHERS THEN
654: g_errbuf := SQLERRM || ' -- Error in Update_WfStatus Procedure.';
655: g_retcode := 2;
656: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;
657: END Update_WfStatus;
658:
659:
660: -- ------------------------------------------------------------------

Line 733: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;

729: EXCEPTION
730: WHEN OTHERS THEN
731: g_errbuf := SQLERRM || ' -- Error in Create_Output_Messages Procedure.';
732: g_retcode := 2;
733: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;
734: END Create_Output_Messages;
735:
736:
737: -- ------------------------------------------------------------------

Line 761: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;

757: EXCEPTION
758: WHEN OTHERS THEN
759: g_errbuf := SQLERRM || ' -- Error in Log_Mesg Procedure.';
760: g_retcode := 2;
761: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',g_errbuf) ;
762: END Log_Mesg;
763:
764: END Fv_Ipac_AutoPayments_Pkg;