DBA Data[Home] [Help]

APPS.IGIPMSDA dependencies on FND_LOG

Line 7: --bug 3199481: following variables added for fnd logging changes:sdixit :start

3:
4: g_user_id NUMBER := fnd_global.user_id;
5: g_date DATE := sysdate;
6: g_login_id NUMBER := fnd_global.login_id;
7: --bug 3199481: following variables added for fnd logging changes:sdixit :start
8: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: l_state_level number := FND_LOG.LEVEL_STATEMENT;
10: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
11: l_event_level number := FND_LOG.LEVEL_EVENT;

Line 8: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

4: g_user_id NUMBER := fnd_global.user_id;
5: g_date DATE := sysdate;
6: g_login_id NUMBER := fnd_global.login_id;
7: --bug 3199481: following variables added for fnd logging changes:sdixit :start
8: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: l_state_level number := FND_LOG.LEVEL_STATEMENT;
10: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
11: l_event_level number := FND_LOG.LEVEL_EVENT;
12: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;

Line 9: l_state_level number := FND_LOG.LEVEL_STATEMENT;

5: g_date DATE := sysdate;
6: g_login_id NUMBER := fnd_global.login_id;
7: --bug 3199481: following variables added for fnd logging changes:sdixit :start
8: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: l_state_level number := FND_LOG.LEVEL_STATEMENT;
10: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
11: l_event_level number := FND_LOG.LEVEL_EVENT;
12: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
13: l_error_level number := FND_LOG.LEVEL_ERROR;

Line 10: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;

6: g_login_id NUMBER := fnd_global.login_id;
7: --bug 3199481: following variables added for fnd logging changes:sdixit :start
8: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: l_state_level number := FND_LOG.LEVEL_STATEMENT;
10: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
11: l_event_level number := FND_LOG.LEVEL_EVENT;
12: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
13: l_error_level number := FND_LOG.LEVEL_ERROR;
14: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;

Line 11: l_event_level number := FND_LOG.LEVEL_EVENT;

7: --bug 3199481: following variables added for fnd logging changes:sdixit :start
8: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: l_state_level number := FND_LOG.LEVEL_STATEMENT;
10: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
11: l_event_level number := FND_LOG.LEVEL_EVENT;
12: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
13: l_error_level number := FND_LOG.LEVEL_ERROR;
14: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
15:

Line 12: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;

8: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: l_state_level number := FND_LOG.LEVEL_STATEMENT;
10: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
11: l_event_level number := FND_LOG.LEVEL_EVENT;
12: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
13: l_error_level number := FND_LOG.LEVEL_ERROR;
14: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
15:
16: PROCEDURE WriteToLog ( pp_mesg in varchar2) IS

Line 13: l_error_level number := FND_LOG.LEVEL_ERROR;

9: l_state_level number := FND_LOG.LEVEL_STATEMENT;
10: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
11: l_event_level number := FND_LOG.LEVEL_EVENT;
12: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
13: l_error_level number := FND_LOG.LEVEL_ERROR;
14: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
15:
16: PROCEDURE WriteToLog ( pp_mesg in varchar2) IS
17: BEGIN

Line 14: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;

10: l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
11: l_event_level number := FND_LOG.LEVEL_EVENT;
12: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
13: l_error_level number := FND_LOG.LEVEL_ERROR;
14: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
15:
16: PROCEDURE WriteToLog ( pp_mesg in varchar2) IS
17: BEGIN
18: FND_FILE.put_line( FND_FILE.log, pp_mesg );

Line 148: --bug 3199481 fnd logging changes:sdixit :start

144: return l_rev.parent_reversal_id;
145: END LOOP;
146: return -1;
147: EXCEPTION WHEN OTHERS THEN
148: --bug 3199481 fnd logging changes:sdixit :start
149: --standard way to handle when-others as per FND logging guidelines
150:
151: IF ( l_unexp_level >= l_debug_level ) THEN
152:

Line 149: --standard way to handle when-others as per FND logging guidelines

145: END LOOP;
146: return -1;
147: EXCEPTION WHEN OTHERS THEN
148: --bug 3199481 fnd logging changes:sdixit :start
149: --standard way to handle when-others as per FND logging guidelines
150:
151: IF ( l_unexp_level >= l_debug_level ) THEN
152:
153: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');

Line 156: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.l.igipmsdb.ParentDistributionID',TRUE);

152:
153: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
154: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
155: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
156: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.l.igipmsdb.ParentDistributionID',TRUE);
157: END IF;
158: --bug 3199481 fnd logging changes: sdixit: end block
159: return -1;
160:

Line 158: --bug 3199481 fnd logging changes: sdixit: end block

154: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
155: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
156: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.l.igipmsdb.ParentDistributionID',TRUE);
157: END IF;
158: --bug 3199481 fnd logging changes: sdixit: end block
159: return -1;
160:
161: END ParentDistributionID;
162: PROCEDURE GetMPPDefaults ( fp_invoice_distribution_id in number

Line 188: --bug 3199481: fnd logging changes:sdixit :start

184: END GetMPPDefaults;
185:
186:
187: BEGIN
188: --bug 3199481: fnd logging changes:sdixit :start
189: IF (l_state_level >= l_debug_level ) THEN
190: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
191: 'BEGIN MPP Expense collection');
192: END IF;

Line 190: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',

186:
187: BEGIN
188: --bug 3199481: fnd logging changes:sdixit :start
189: IF (l_state_level >= l_debug_level ) THEN
190: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
191: 'BEGIN MPP Expense collection');
192: END IF;
193: IF (l_state_level >= l_debug_level ) THEN
194: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMGLT.InsertInterfaceRec',

Line 194: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMGLT.InsertInterfaceRec',

190: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
191: 'BEGIN MPP Expense collection');
192: END IF;
193: IF (l_state_level >= l_debug_level ) THEN
194: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMGLT.InsertInterfaceRec',
195: '>> Invoice Id '||p_invoice_id||' >>');
196: END IF;
197: --bug 3199481 fnd logging changes: sdixit: end block
198:

Line 197: --bug 3199481 fnd logging changes: sdixit: end block

193: IF (l_state_level >= l_debug_level ) THEN
194: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMGLT.InsertInterfaceRec',
195: '>> Invoice Id '||p_invoice_id||' >>');
196: END IF;
197: --bug 3199481 fnd logging changes: sdixit: end block
198:
199: FOR l_inv in c_proper_inv ( p_invoice_id ) LOOP
200:
201: l_continue := TRUE;

Line 202: --bug 3199481: fnd logging changes:sdixit :start

198:
199: FOR l_inv in c_proper_inv ( p_invoice_id ) LOOP
200:
201: l_continue := TRUE;
202: --bug 3199481: fnd logging changes:sdixit :start
203: IF (l_state_level >= l_debug_level ) THEN
204: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
205: '>> Invoice has been '||l_inv.approval_status_lookup_code );
206: END IF;

Line 204: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',

200:
201: l_continue := TRUE;
202: --bug 3199481: fnd logging changes:sdixit :start
203: IF (l_state_level >= l_debug_level ) THEN
204: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
205: '>> Invoice has been '||l_inv.approval_status_lookup_code );
206: END IF;
207: --bug 3199481 fnd logging changes: sdixit: end block
208:

Line 207: --bug 3199481 fnd logging changes: sdixit: end block

203: IF (l_state_level >= l_debug_level ) THEN
204: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
205: '>> Invoice has been '||l_inv.approval_status_lookup_code );
206: END IF;
207: --bug 3199481 fnd logging changes: sdixit: end block
208:
209: IF NOT invoiceExists ( l_inv.invoice_id ) THEN
210: IF l_inv.approval_status_lookup_code = 'CANCELLED' THEN
211: l_continue := FALSE;

Line 214: --bug 3199481: fnd logging changes:sdixit :start

210: IF l_inv.approval_status_lookup_code = 'CANCELLED' THEN
211: l_continue := FALSE;
212: ELSE
213: -- Drop record into MPP extended invoice table
214: --bug 3199481: fnd logging changes:sdixit :start
215: IF (l_state_level >= l_debug_level ) THEN
216: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
217: '>> Invoice Does not exist in MPP extended table. Inserting...');
218: END IF;

Line 216: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',

212: ELSE
213: -- Drop record into MPP extended invoice table
214: --bug 3199481: fnd logging changes:sdixit :start
215: IF (l_state_level >= l_debug_level ) THEN
216: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
217: '>> Invoice Does not exist in MPP extended table. Inserting...');
218: END IF;
219: --bug 3199481 fnd logging changes: sdixit: end block
220: INSERT INTO igi_mpp_ap_invoices

Line 219: --bug 3199481 fnd logging changes: sdixit: end block

215: IF (l_state_level >= l_debug_level ) THEN
216: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
217: '>> Invoice Does not exist in MPP extended table. Inserting...');
218: END IF;
219: --bug 3199481 fnd logging changes: sdixit: end block
220: INSERT INTO igi_mpp_ap_invoices
221: ( invoice_id
222: , accounting_rule_id
223: , ignore_mpp_flag

Line 244: --bug 3199481: fnd logging changes:sdixit :start

240: END IF;
241:
242: IF l_continue THEN
243:
244: --bug 3199481: fnd logging changes:sdixit :start
245: IF (l_state_level >= l_debug_level ) THEN
246: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
247: '>> Continuing... ');
248: END IF;

Line 246: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',

242: IF l_continue THEN
243:
244: --bug 3199481: fnd logging changes:sdixit :start
245: IF (l_state_level >= l_debug_level ) THEN
246: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
247: '>> Continuing... ');
248: END IF;
249: IF InvoiceExists ( l_inv.invoice_id ) THEN
250:

Line 252: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',

248: END IF;
249: IF InvoiceExists ( l_inv.invoice_id ) THEN
250:
251: IF (l_state_level >= l_debug_level ) THEN
252: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
253: '>> Invoice Does exists. Check the extended distribution records...');
254: END IF;
255:
256: FOR l_dist in C_proper_dist ( l_inv.invoice_id ) LOOP

Line 259: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',

255:
256: FOR l_dist in C_proper_dist ( l_inv.invoice_id ) LOOP
257:
258: IF (l_state_level >= l_debug_level ) THEN
259: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
260: '>> Distribution Exists. Insert Extended Dist if not there...');
261: END IF;
262: --bug 3199481 fnd logging changes: sdixit: end block
263:

Line 262: --bug 3199481 fnd logging changes: sdixit: end block

258: IF (l_state_level >= l_debug_level ) THEN
259: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
260: '>> Distribution Exists. Insert Extended Dist if not there...');
261: END IF;
262: --bug 3199481 fnd logging changes: sdixit: end block
263:
264: IF Not InvoiceDistExists ( l_dist.invoice_id,
265: l_dist.distribution_line_number )
266: THEN

Line 267: --bug 3199481: fnd logging changes:sdixit :start

263:
264: IF Not InvoiceDistExists ( l_dist.invoice_id,
265: l_dist.distribution_line_number )
266: THEN
267: --bug 3199481: fnd logging changes:sdixit :start
268: IF (l_state_level >= l_debug_level ) THEN
269: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
270: '>> Insert Extended Dist.');
271: END IF;

Line 269: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',

265: l_dist.distribution_line_number )
266: THEN
267: --bug 3199481: fnd logging changes:sdixit :start
268: IF (l_state_level >= l_debug_level ) THEN
269: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
270: '>> Insert Extended Dist.');
271: END IF;
272: --bug 3199481 fnd logging changes: sdixit: end block
273:

Line 272: --bug 3199481 fnd logging changes: sdixit: end block

268: IF (l_state_level >= l_debug_level ) THEN
269: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
270: '>> Insert Extended Dist.');
271: END IF;
272: --bug 3199481 fnd logging changes: sdixit: end block
273:
274:
275: l_default_acc_rule_id := DefaultRuleID
276: ( l_dist.dist_code_combination_id );

Line 336: --bug 3199481: fnd logging changes:sdixit :start

332: END LOOP;
333: END IF;
334: END IF; -- If can continue
335: END LOOP;
336: --bug 3199481: fnd logging changes:sdixit :start
337: IF (l_state_level >= l_debug_level ) THEN
338: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
339: 'END MPP Expense Collection.');
340: END IF;

Line 338: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',

334: END IF; -- If can continue
335: END LOOP;
336: --bug 3199481: fnd logging changes:sdixit :start
337: IF (l_state_level >= l_debug_level ) THEN
338: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
339: 'END MPP Expense Collection.');
340: END IF;
341: --bug 3199481 fnd logging changes: sdixit: end block
342:

Line 341: --bug 3199481 fnd logging changes: sdixit: end block

337: IF (l_state_level >= l_debug_level ) THEN
338: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',
339: 'END MPP Expense Collection.');
340: END IF;
341: --bug 3199481 fnd logging changes: sdixit: end block
342:
343: EXCEPTION
344: WHEN others THEN
345: --standard way to handle when-others as per FND logging guidelines

Line 345: --standard way to handle when-others as per FND logging guidelines

341: --bug 3199481 fnd logging changes: sdixit: end block
342:
343: EXCEPTION
344: WHEN others THEN
345: --standard way to handle when-others as per FND logging guidelines
346:
347: IF ( l_unexp_level >= l_debug_level ) THEN
348:
349: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');

Line 352: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',TRUE);

348:
349: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
350: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
351: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
352: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',TRUE);
353: END IF;
354: --bug 3199481 fnd logging changes: sdixit: end block
355: raise_application_error ( -20000, SQLERRM);
356: END;

Line 354: --bug 3199481 fnd logging changes: sdixit: end block

350: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
351: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
352: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeInvoice',TRUE);
353: END IF;
354: --bug 3199481 fnd logging changes: sdixit: end block
355: raise_application_error ( -20000, SQLERRM);
356: END;
357:
358: PROCEDURE Synchronize_transfer ( errbuf out NOCOPY varchar2

Line 386: --bug 3199481: fnd logging changes:sdixit :start

382: return FALSE;
383: END IsTransferOK;
384:
385: BEGIN
386: --bug 3199481: fnd logging changes:sdixit :start
387: IF (l_state_level >= l_debug_level ) THEN
388: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',
389: ' Transfer ID : '||p_transfer_id );
390: END IF;

Line 388: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',

384:
385: BEGIN
386: --bug 3199481: fnd logging changes:sdixit :start
387: IF (l_state_level >= l_debug_level ) THEN
388: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',
389: ' Transfer ID : '||p_transfer_id );
390: END IF;
391: --bug 3199481 fnd logging changes: sdixit: end block
392: FOR l_inv in C_inv LOOP

Line 391: --bug 3199481 fnd logging changes: sdixit: end block

387: IF (l_state_level >= l_debug_level ) THEN
388: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',
389: ' Transfer ID : '||p_transfer_id );
390: END IF;
391: --bug 3199481 fnd logging changes: sdixit: end block
392: FOR l_inv in C_inv LOOP
393: --bug 3199481: fnd logging changes:sdixit :start
394: IF (l_state_level >= l_debug_level ) THEN
395: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',

Line 393: --bug 3199481: fnd logging changes:sdixit :start

389: ' Transfer ID : '||p_transfer_id );
390: END IF;
391: --bug 3199481 fnd logging changes: sdixit: end block
392: FOR l_inv in C_inv LOOP
393: --bug 3199481: fnd logging changes:sdixit :start
394: IF (l_state_level >= l_debug_level ) THEN
395: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',
396: ' Transfer : '||l_inv.invoice_id );
397: END IF;

Line 395: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',

391: --bug 3199481 fnd logging changes: sdixit: end block
392: FOR l_inv in C_inv LOOP
393: --bug 3199481: fnd logging changes:sdixit :start
394: IF (l_state_level >= l_debug_level ) THEN
395: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',
396: ' Transfer : '||l_inv.invoice_id );
397: END IF;
398: --bug 3199481 fnd logging changes: sdixit: end block
399: Synchronize_invoice ( l_inv.invoice_id, l_inv.accounting_rule_id );

Line 398: --bug 3199481 fnd logging changes: sdixit: end block

394: IF (l_state_level >= l_debug_level ) THEN
395: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',
396: ' Transfer : '||l_inv.invoice_id );
397: END IF;
398: --bug 3199481 fnd logging changes: sdixit: end block
399: Synchronize_invoice ( l_inv.invoice_id, l_inv.accounting_rule_id );
400: IF IsTransferOK ( l_inv.invoice_id) THEN
401: delete from igi_mpp_invoice_transfer
402: where rowid = l_inv.imit_rowid

Line 411: --bug 3199481 fnd logging changes: sdixit: start block

407: errbuf := 'Normal Completion';
408: retcode := 0;
409: EXCEPTION WHEN OTHERS THEN
410: rollback;
411: --bug 3199481 fnd logging changes: sdixit: start block
412: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
413: retcode := 2;
414: errbuf := Fnd_message.get;
415:

Line 421: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',TRUE);

417:
418: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
419: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
420: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
421: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',TRUE);
422: END IF;
423: --bug 3199481 fnd logging changes: sdixit: end block
424: return;
425: END ;

Line 423: --bug 3199481 fnd logging changes: sdixit: end block

419: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
420: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
421: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmsdb.IGIPMSDA.SynchronizeTransfer',TRUE);
422: END IF;
423: --bug 3199481 fnd logging changes: sdixit: end block
424: return;
425: END ;
426:
427: PROCEDURE Synchronize ( errbuf out NOCOPY varchar2

Line 485: --bug 3199481 fnd logging changes:sdixit :start

481: ELSE
482: return FALSE;
483: END IF;
484: EXCEPTION WHEN OTHERS THEN
485: --bug 3199481 fnd logging changes:sdixit :start
486:
487: IF ( l_unexp_level >= l_debug_level ) THEN
488:
489: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');

Line 492: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.l.igipmsdb.IGIPMSDA.ModeCheck',TRUE);

488:
489: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
490: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
491: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
492: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.l.igipmsdb.IGIPMSDA.ModeCheck',TRUE);
493: END IF;
494: return FALSE;
495: END ModeCheck;
496: BEGIN

Line 498: --bug 3199481: fnd logging changes:sdixit :start

494: return FALSE;
495: END ModeCheck;
496: BEGIN
497:
498: --bug 3199481: fnd logging changes:sdixit :start
499: IF (l_state_level >= l_debug_level ) THEN
500: FND_LOG.STRING (l_state_level ,'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
501: 'Expense Collection mode : '||p_mode );
502: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',

Line 500: FND_LOG.STRING (l_state_level ,'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',

496: BEGIN
497:
498: --bug 3199481: fnd logging changes:sdixit :start
499: IF (l_state_level >= l_debug_level ) THEN
500: FND_LOG.STRING (l_state_level ,'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
501: 'Expense Collection mode : '||p_mode );
502: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
503: 'Invoice number : '||p_invoice_num );
504: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',

Line 502: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',

498: --bug 3199481: fnd logging changes:sdixit :start
499: IF (l_state_level >= l_debug_level ) THEN
500: FND_LOG.STRING (l_state_level ,'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
501: 'Expense Collection mode : '||p_mode );
502: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
503: 'Invoice number : '||p_invoice_num );
504: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
505: ' Vendor name : '||p_vendor_name );
506: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',

Line 504: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',

500: FND_LOG.STRING (l_state_level ,'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
501: 'Expense Collection mode : '||p_mode );
502: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
503: 'Invoice number : '||p_invoice_num );
504: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
505: ' Vendor name : '||p_vendor_name );
506: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
507: ' Batch name : '||p_batch_name );
508: END IF;

Line 506: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',

502: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
503: 'Invoice number : '||p_invoice_num );
504: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
505: ' Vendor name : '||p_vendor_name );
506: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
507: ' Batch name : '||p_batch_name );
508: END IF;
509: --bug 3199481 fnd logging changes: sdixit: end block
510:

Line 509: --bug 3199481 fnd logging changes: sdixit: end block

505: ' Vendor name : '||p_vendor_name );
506: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
507: ' Batch name : '||p_batch_name );
508: END IF;
509: --bug 3199481 fnd logging changes: sdixit: end block
510:
511: FOR l_inv in C_inv LOOP
512:
513: IF ModeCheck ( p_mode, l_inv.invoice_id ) THEN

Line 514: --bug 3199481: fnd logging changes:sdixit :start

510:
511: FOR l_inv in C_inv LOOP
512:
513: IF ModeCheck ( p_mode, l_inv.invoice_id ) THEN
514: --bug 3199481: fnd logging changes:sdixit :start
515: IF (l_state_level >= l_debug_level ) THEN
516: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
517: ' Process : '||l_inv.invoice_id );
518: END IF;

Line 516: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',

512:
513: IF ModeCheck ( p_mode, l_inv.invoice_id ) THEN
514: --bug 3199481: fnd logging changes:sdixit :start
515: IF (l_state_level >= l_debug_level ) THEN
516: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
517: ' Process : '||l_inv.invoice_id );
518: END IF;
519: --bug 3199481 fnd logging changes: sdixit: end block
520: Synchronize_Invoice ( l_inv.invoice_id );

Line 519: --bug 3199481 fnd logging changes: sdixit: end block

515: IF (l_state_level >= l_debug_level ) THEN
516: FND_LOG.STRING (l_state_level , 'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',
517: ' Process : '||l_inv.invoice_id );
518: END IF;
519: --bug 3199481 fnd logging changes: sdixit: end block
520: Synchronize_Invoice ( l_inv.invoice_id );
521: END IF;
522:
523: END LOOP;

Line 531: --bug 3199481 fnd logging changes: sdixit: start block

527:
528:
529: EXCEPTION WHEN OTHERS THEN
530: rollback;
531: --bug 3199481 fnd logging changes: sdixit: start block
532: --errbuf := SQLERRM;
533: --retcode := 2;
534: --standard way to handle when-others as per FND logging guidelines
535: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message

Line 534: --standard way to handle when-others as per FND logging guidelines

530: rollback;
531: --bug 3199481 fnd logging changes: sdixit: start block
532: --errbuf := SQLERRM;
533: --retcode := 2;
534: --standard way to handle when-others as per FND logging guidelines
535: FND_MESSAGE.SET_NAME('IGI', 'IGI_LOGGING_USER_ERROR'); -- Seeded Message
536: retcode := 2;
537: errbuf := Fnd_message.get;
538:

Line 544: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',TRUE);

540:
541: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
542: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
543: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
544: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',TRUE);
545: END IF;
546: --bug 3199481 fnd logging changes: sdixit: end block
547: return;
548: END Synchronize;

Line 546: --bug 3199481 fnd logging changes: sdixit: end block

542: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
543: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
544: FND_LOG.MESSAGE ( l_unexp_level,'igi.plsql.igipmsdb.IGIPMSDA.Synchronize',TRUE);
545: END IF;
546: --bug 3199481 fnd logging changes: sdixit: end block
547: return;
548: END Synchronize;
549:
550: END IGIPMSDA ;