DBA Data[Home] [Help]

APPS.IGIPMSDA dependencies on IGIPMSDA

Line 1: PACKAGE BODY IGIPMSDA AS

1: PACKAGE BODY IGIPMSDA AS
2: -- $Header: igipmsdb.pls 115.13 2003/12/01 14:59:08 sdixit ship $
3:
4: g_user_id NUMBER := fnd_global.user_id;
5: g_date DATE := sysdate;

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 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 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 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 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 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 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 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 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 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 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 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 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 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 550: END IGIPMSDA ;

546: --bug 3199481 fnd logging changes: sdixit: end block
547: return;
548: END Synchronize;
549:
550: END IGIPMSDA ;