eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_MASS_ADDITIONS_CREATE_PKG dependencies on FND_LOG

Line 341: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', '* 10 : ORACLE PROJECTS INSERT MASS PROCESSING *') ;

337:
338: fnd_profile.get('PA_DEBUG_MODE',G_debug_mode);
339: G_debug_mode := NVL(G_debug_mode, 'N');
340:
341: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', '*** 10 : ORACLE PROJECTS INSERT MASS PROCESSING ***') ;
342: -- Standrad call to check API compatibility.
343: IF NOT FND_API.Compatible_API_Call( G_api_version,
344: p_api_version,
345: 'INSERT_MASS',

Line 359: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'INSERT MASS Processing begins.') ;

355: END IF ;
356: -- Initialize API return status to success.
357: --
358: l_return_status := FND_API.G_RET_STS_SUCCESS ;
359: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'INSERT MASS Processing begins.') ;
360:
361: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Calling Insert_Receipts processing.') ;
362:
363:

Line 361: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Calling Insert_Receipts processing.') ;

357: --
358: l_return_status := FND_API.G_RET_STS_SUCCESS ;
359: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'INSERT MASS Processing begins.') ;
360:
361: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Calling Insert_Receipts processing.') ;
362:
363:
364: Insert_Receipts( P_acctg_date ,
365: P_ledger_id ,

Line 372: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Insert Mass Main Loop Begins Here.') ;

368: P_bt_code ,
369: P_primary_accounting_method ,
370: P_calling_sequence ) ;
371:
372: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Insert Mass Main Loop Begins Here.') ;
373:
374: OPEN c_apinv ;
375:
376: LOOP

Line 378: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Main Loop Iteration Begins' ) ;

374: OPEN c_apinv ;
375:
376: LOOP
377:
378: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Main Loop Iteration Begins' ) ;
379: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Initialize Plsql variables' ) ;
380: InitPlSQLTab ;
381:
382: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Fetching records from cursor c_apinv.') ;

Line 379: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Initialize Plsql variables' ) ;

375:
376: LOOP
377:
378: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Main Loop Iteration Begins' ) ;
379: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Initialize Plsql variables' ) ;
380: InitPlSQLTab ;
381:
382: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Fetching records from cursor c_apinv.') ;
383: fetch c_apinv

Line 382: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Fetching records from cursor c_apinv.') ;

378: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Main Loop Iteration Begins' ) ;
379: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Initialize Plsql variables' ) ;
380: InitPlSQLTab ;
381:
382: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Fetching records from cursor c_apinv.') ;
383: fetch c_apinv
384: bulk collect into t_eiIDTab,
385: t_eiDateTab,
386: t_lineNumTab,

Line 437: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Exiting from main loop') ;

433: limit l_count ;
434:
435: IF t_eiIDTab.count = 0 THEN
436: CLOSE c_apinv ;
437: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Exiting from main loop') ;
438: EXIT ;
439: END IF ;
440:
441: lRec := 0 ;

Line 448: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Expenditure Item ID:'||t_eiIDTab(indx)) ;

444: FOR indx in 1..t_eiIDTab.count LOOP
445:
446: l_ignore_cdl := 'N' ;
447:
448: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Expenditure Item ID:'||t_eiIDTab(indx)) ;
449: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL Line Number:'||t_lineNumTab(indx)) ;
450: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','t_cdlEventIDTab:'||t_cdlEventIDTab(indx) ) ;
451:
452: IF ( t_RvrAssetsFlagTab(indx) is NULL and t_SrcAssetsFlagTab(indx) is NULL ) THEN

Line 449: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL Line Number:'||t_lineNumTab(indx)) ;

445:
446: l_ignore_cdl := 'N' ;
447:
448: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Expenditure Item ID:'||t_eiIDTab(indx)) ;
449: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL Line Number:'||t_lineNumTab(indx)) ;
450: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','t_cdlEventIDTab:'||t_cdlEventIDTab(indx) ) ;
451:
452: IF ( t_RvrAssetsFlagTab(indx) is NULL and t_SrcAssetsFlagTab(indx) is NULL ) THEN
453: -- Latest CDL..

Line 450: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','t_cdlEventIDTab:'||t_cdlEventIDTab(indx) ) ;

446: l_ignore_cdl := 'N' ;
447:
448: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Expenditure Item ID:'||t_eiIDTab(indx)) ;
449: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL Line Number:'||t_lineNumTab(indx)) ;
450: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','t_cdlEventIDTab:'||t_cdlEventIDTab(indx) ) ;
451:
452: IF ( t_RvrAssetsFlagTab(indx) is NULL and t_SrcAssetsFlagTab(indx) is NULL ) THEN
453: -- Latest CDL..
454: --

Line 457: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','Reversing and reversed cdls are ignored' ) ;

453: -- Latest CDL..
454: --
455: l_ignore_cdl := 'N' ;
456: ELSIF ( NVL(t_RvrAssetsFlagTab(indx), 'N') <> 'Y' and NVL(t_SrcAssetsFlagTab(indx), 'N') <> 'Y' ) THEN
457: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','Reversing and reversed cdls are ignored' ) ;
458: l_ignore_cdl := 'Y' ;
459: END IF ;
460:
461: -- =====

Line 471: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL ignored because ap distribution not eligible' ) ;

467: -- ====
468:
469: IF t_linetypeLcdTab(indx) in ( 'ITEM', 'ACCRUAL', 'PA-ADJ') THEN
470: IF t_ATrackFlagTab(indx) = 'N' THEN
471: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL ignored because ap distribution not eligible' ) ;
472: l_ignore_cdl := 'Y' ;
473: END IF ;
474: ELSE
475: l_assets_tracking_flag := 'N' ;

Line 480: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA returns N for related ID '|| t_RelatedIdTab(indx) ) ;

476: open c_assets_tracking_flagA ( t_RelatedIdTab(indx)) ;
477: fetch c_assets_tracking_flagA into l_assets_tracking_flag ;
478: close c_assets_tracking_flagA ;
479: IF ( NVL(l_assets_tracking_flag,'N') <> 'Y') THEN
480: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA returns N for related ID '|| t_RelatedIdTab(indx) ) ;
481: open c_assets_tracking_flagB ( t_parentInvDstIdTab(indx)) ;
482: fetch c_assets_tracking_flagB into l_assets_tracking_flag ;
483: close c_assets_tracking_flagB ;
484: END IF ;

Line 487: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA and B returns N ' ) ;

483: close c_assets_tracking_flagB ;
484: END IF ;
485:
486: IF l_assets_tracking_flag <> 'Y' THEN
487: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA and B returns N ' ) ;
488: l_ignore_cdl := 'Y' ;
489: t_ATrackFlagTab(indx) := 'N' ;
490: ELSE
491: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA and B returns Y ' ) ;

Line 491: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA and B returns Y ' ) ;

487: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA and B returns N ' ) ;
488: l_ignore_cdl := 'Y' ;
489: t_ATrackFlagTab(indx) := 'N' ;
490: ELSE
491: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA and B returns Y ' ) ;
492: l_ignore_cdl := 'N' ;
493: t_ATrackFlagTab(indx) := 'Y' ;
494: END IF ;
495: END IF ;

Line 498: -- write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL ignored because ap distribution not eligible' ) ;

494: END IF ;
495: END IF ;
496:
497: --IF t_apAssetsFlagTab(indx) = 'N' THEN
498: -- write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL ignored because ap distribution not eligible' ) ;
499: -- l_ignore_cdl := 'Y' ;
500: --END IF ;
501:
502: l_dummy := 0 ;

Line 509: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL does not belong to assets account.' ) ;

505: --t_poDistIdTab(indx) is NULL and
506: t_accTypeTab(indx) <> 'A' THEN
507:
508: l_ignore_cdl := 'Y' ;
509: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL does not belong to assets account.' ) ;
510:
511: END IF ;
512:
513: IF t_accTypeTab(indx) <> 'A' THEN

Line 516: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL does not belong to assets account.' ) ;

512:
513: IF t_accTypeTab(indx) <> 'A' THEN
514:
515: l_ignore_cdl := 'Y' ;
516: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL does not belong to assets account.' ) ;
517:
518: END IF ;
519: --
520: -- AP interfaced regular distribution lines

Line 539: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass',

535:
536: IF l_ignore_cdl = 'N' THEN
537:
538: IF t_poDistIdTab(indx) is not NULL THEN
539: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass',
540: 'Getting asset_category_id for po distribution:'||t_poDistIdTab(indx));
541: select mtlsi.asset_category_id,
542: polt.order_type_lookup_code,
543: decode(pod.accrue_on_receipt_flag, 'Y', pod.code_combination_id, NULL ),

Line 563: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass',

559: and pol.line_type_id = polt.line_type_id
560: and pol.item_id = mtlsi.inventory_item_id(+)
561: and t_invOrgIDTab(indx) = mtlsi.organization_id (+) ;
562:
563: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass',
564: 'Asset_category_id for po distribution:'||l_assets_category_id);
565: ELSE
566: l_assets_category_id := NULL ;
567: l_po_order_type_lcd := NULL ;

Line 616: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Intercompany Invoice' ) ;

612: l_ledgercatcdTab(lrec) := t_ledgercatcdTab(indx) ;
613: l_ledgerIdTab(lrec) := t_ledgerIdTab(indx) ;
614:
615: IF t_sourceTab(indx) = 'Intercompany' THEN
616: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Intercompany Invoice' ) ;
617: l_PayCcidTab(lrec) := Inv_Fa_Interface_Pvt.Get_Ic_Ccid
618: ( l_invDistIdTab(lrec),
619: t_DistCcidTab(indx),
620: l_linetypeLcdtab(lrec) ) ;

Line 624: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Code combination ID:'|| l_payCCIDTab(lrec) ) ;

620: l_linetypeLcdtab(lrec) ) ;
621: ELSE
622: l_payCCIDTab(lrec) := t_XalccidTab(indx) ;
623: END IF ;
624: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Code combination ID:'|| l_payCCIDTab(lrec) ) ;
625: END IF ; -- l_ignore_cdl = 'N'
626:
627: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Ignore CDL flag value:'||l_ignore_cdl ) ;
628: IF l_ignore_cdl = 'Y' THEN

Line 627: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Ignore CDL flag value:'||l_ignore_cdl ) ;

623: END IF ;
624: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Code combination ID:'|| l_payCCIDTab(lrec) ) ;
625: END IF ; -- l_ignore_cdl = 'N'
626:
627: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Ignore CDL flag value:'||l_ignore_cdl ) ;
628: IF l_ignore_cdl = 'Y' THEN
629: l_No_count := l_No_count + 1;
630: Flag_no_eiIDTab(l_No_count) := t_eiIDtab(indx) ;
631: Flag_no_lineNumTab(l_No_count) := t_lineNumTab(indx) ;

Line 640: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Count of cdls ignored:'||Flag_no_eiIDTab.COUNT ) ;

636: -- Mark the cdls as assets addition not required for the list of
637: -- cdls identified by the Flag_no_lineNumTab and Flag_no_eiIdTab.
638: IF Flag_no_eiIDTab.COUNT > 0 THEN
639:
640: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'Count of cdls ignored:'||Flag_no_eiIDTab.COUNT ) ;
641: FORALL i in Flag_no_eiIDTab.FIRST..Flag_no_eiIDTab.LAST
642: UPDATE pa_cost_distribution_lines
643: SET si_assets_addition_flag = 'N',
644: program_update_date = SYSDATE,

Line 654: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'FA_MASS_ADDITIONS_GT Count:'||l_eiIDtab.count) ;

650: AND line_num = Flag_no_lineNumTab(i);
651: END IF ;
652:
653: IF l_eiIDtab.count > 0 THEN
654: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'FA_MASS_ADDITIONS_GT Count:'||l_eiIDtab.count) ;
655:
656: FORALL i in l_eiIDtab.FIRST..l_eiIDtab.LAST
657: INSERT INTO FA_MASS_ADDITIONS_GT(
658: mass_addition_id,

Line 812: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'When Others:'||SQLERRM ) ;

808: x_return_status := l_return_status ;
809: EXCEPTION
810: WHEN OTHERS THEN
811: --
812: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass', 'When Others:'||SQLERRM ) ;
813: APP_EXCEPTION.RAISE_EXCEPTION;
814: --
815: END Insert_Mass;
816:

Line 1019: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Begin discount processing.') ;

1015:
1016: -- Initialize API return status to success.
1017: --
1018: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1019: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Begin discount processing.') ;
1020:
1021: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Begin Main LOOP.') ;
1022: open c_apinv ;
1023:

Line 1021: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Begin Main LOOP.') ;

1017: --
1018: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1019: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Begin discount processing.') ;
1020:
1021: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Begin Main LOOP.') ;
1022: open c_apinv ;
1023:
1024: LOOP
1025: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Init PLSQL Tab variables.') ;

Line 1025: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Init PLSQL Tab variables.') ;

1021: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Begin Main LOOP.') ;
1022: open c_apinv ;
1023:
1024: LOOP
1025: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Init PLSQL Tab variables.') ;
1026: initPLSQLTab ;
1027: l_No_count := 0 ;
1028: lrec := 0 ;
1029: fetch c_apinv

Line 1083: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Leaving main LOOP.') ;

1079: limit l_count ;
1080:
1081: IF t_eiIDTab.count = 0 THEN
1082: close c_apinv ;
1083: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Leaving main LOOP.') ;
1084: exit ;
1085: END IF ;
1086:
1087: lRec:= 0 ;

Line 1091: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Exp Item ID:'||t_eiIDTab(indx)) ;

1087: lRec:= 0 ;
1088:
1089: FOR indx in 1..t_eiIDTab.count LOOP
1090: l_ignore_cdl := 'N' ;
1091: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Exp Item ID:'||t_eiIDTab(indx)) ;
1092: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'CDL Line num:'||t_lineNumTab(indx)) ;
1093:
1094: IF t_RvrAssetsFlagTab(indx) is NULL and t_SrcAssetsFlagTab(indx) is NULL THEN
1095: l_ignore_cdl := 'N' ;

Line 1092: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'CDL Line num:'||t_lineNumTab(indx)) ;

1088:
1089: FOR indx in 1..t_eiIDTab.count LOOP
1090: l_ignore_cdl := 'N' ;
1091: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Exp Item ID:'||t_eiIDTab(indx)) ;
1092: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'CDL Line num:'||t_lineNumTab(indx)) ;
1093:
1094: IF t_RvrAssetsFlagTab(indx) is NULL and t_SrcAssetsFlagTab(indx) is NULL THEN
1095: l_ignore_cdl := 'N' ;
1096: ELSIF NVL(t_RvrAssetsFlagTab(indx), 'N') <> 'Y' and

Line 1112: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL ignored because ap distribution not eligible' ) ;

1108: --
1109:
1110: IF t_linetypeLcdTab(indx) in ( 'ITEM', 'ACCRUAL', 'DISCOUNT') THEN
1111: IF t_ATrackFlagTab(indx) = 'N' THEN
1112: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL ignored because ap distribution not eligible' ) ;
1113: l_ignore_cdl := 'Y' ;
1114: END IF ;
1115: ELSE
1116: l_assets_tracking_flag := 'N' ;

Line 1121: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA returns N ') ;

1117: open c_assets_tracking_flagA ( t_RelatedIdTab(indx)) ;
1118: fetch c_assets_tracking_flagA into l_assets_tracking_flag ;
1119: close c_assets_tracking_flagA ;
1120: IF ( NVL(l_assets_tracking_flag,'N') <> 'Y') THEN
1121: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA returns N ') ;
1122: open c_assets_tracking_flagB ( t_parentInvDstIdTab(indx)) ;
1123: fetch c_assets_tracking_flagB into l_assets_tracking_flag ;
1124: close c_assets_tracking_flagB ;
1125: END IF ;

Line 1128: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA and B returns N ') ;

1124: close c_assets_tracking_flagB ;
1125: END IF ;
1126:
1127: IF l_assets_tracking_flag <> 'Y' THEN
1128: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA and B returns N ') ;
1129: l_ignore_cdl := 'Y' ;
1130: t_ATrackFlagTab(indx) := 'N' ;
1131: ELSE
1132: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA or B returns Y ') ;

Line 1132: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA or B returns Y ') ;

1128: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA and B returns N ') ;
1129: l_ignore_cdl := 'Y' ;
1130: t_ATrackFlagTab(indx) := 'N' ;
1131: ELSE
1132: write_to_log(FND_LOG.LEVEL_STATEMENT, '10:PA Insert_mass','CDL c_assets_tracking_flagA or B returns Y ') ;
1133: l_ignore_cdl := 'N' ;
1134: t_ATrackFlagTab(indx) := 'Y' ;
1135: END IF ;
1136: END IF ;

Line 1148: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Invoice Source:'||t_sourceTab(indx)) ;

1144: --IF t_apAssetsFlagTab(indx) = 'N' THEN
1145: -- l_ignore_cdl := 'Y' ;
1146: --END IF ;
1147:
1148: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Invoice Source:'||t_sourceTab(indx)) ;
1149: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Account Type :'||t_accTypeTab(indx)) ;
1150:
1151: IF t_accTypeTab(indx) <> 'A' THEN
1152: l_ignore_cdl := 'Y' ;

Line 1149: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Account Type :'||t_accTypeTab(indx)) ;

1145: -- l_ignore_cdl := 'Y' ;
1146: --END IF ;
1147:
1148: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Invoice Source:'||t_sourceTab(indx)) ;
1149: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Account Type :'||t_accTypeTab(indx)) ;
1150:
1151: IF t_accTypeTab(indx) <> 'A' THEN
1152: l_ignore_cdl := 'Y' ;
1153: END IF ;

Line 1163: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Ignore CDL :'||l_ignore_cdl) ;

1159: l_ignore_cdl := 'Y' ;
1160: END IF ;
1161:
1162: END IF ;
1163: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Ignore CDL :'||l_ignore_cdl) ;
1164:
1165: IF l_ignore_cdl = 'N' THEN
1166:
1167: IF t_poDistIdTab(indx) is not NULL THEN

Line 1168: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'PO DistributionID:'||t_poDistIdTab(indx));

1164:
1165: IF l_ignore_cdl = 'N' THEN
1166:
1167: IF t_poDistIdTab(indx) is not NULL THEN
1168: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'PO DistributionID:'||t_poDistIdTab(indx));
1169: SELECT mtlsi.asset_category_id,
1170: polt.order_type_lookup_code,
1171: decode(pod.accrue_on_receipt_flag, 'Y', pod.code_combination_id, NULL ),
1172: pod.deliver_to_person_id,

Line 1191: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS',

1187: AND pol.line_type_id = polt.line_type_id
1188: AND pol.item_id = mtlsi.inventory_item_id(+)
1189: AND t_InvOrgIDTab(indx) = mtlsi.organization_id (+) ;
1190:
1191: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS',
1192: 'Asset_category_id for po distribution:'||l_assets_category_id);
1193: ELSE
1194: l_assets_category_id := NULL ;
1195: l_po_order_type_lcd := NULL ;

Line 1256: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Flag_no_eiIDTab.COUNT:'||Flag_no_eiIDTab.COUNT) ;

1252: END IF ;
1253: END LOOP ; -- Index for fetch
1254:
1255: IF Flag_no_eiIDTab.COUNT > 0 THEN
1256: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'Flag_no_eiIDTab.COUNT:'||Flag_no_eiIDTab.COUNT) ;
1257:
1258: FORALL i in Flag_no_eiIDTab.FIRST..Flag_no_eiIDTab.LAST
1259: UPDATE pa_cost_distribution_lines
1260: SET si_assets_addition_flag = 'N',

Line 1271: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'eiIDTab.COUNT:'||l_eiIDTab.COUNT) ;

1267: AND line_num = Flag_no_lineNumTab(i);
1268: END IF ;
1269:
1270: IF l_eiIDtab.count > 0 THEN
1271: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'eiIDTab.COUNT:'||l_eiIDTab.COUNT) ;
1272:
1273: FORALL i in l_eiIDtab.FIRST..l_eiIDtab.LAST
1274: INSERT INTO FA_MASS_ADDITIONS_GT(
1275: mass_addition_id,

Line 1427: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'EXCEPTION:'||SQLERRM) ;

1423: x_msg_data := l_msg_data ;
1424: x_return_status := l_return_status ;
1425: EXCEPTION
1426: WHEN OTHERS THEN
1427: write_to_log(FND_LOG.LEVEL_STATEMENT, '40:INSERT_DISCOUNTS', 'EXCEPTION:'||SQLERRM) ;
1428: l_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
1429: APP_EXCEPTION.RAISE_EXCEPTION;
1430: END Insert_Discounts;
1431:

Line 1484: write_to_log(FND_LOG.LEVEL_STATEMENT,'50:UPDATE_MASS','UPDATE MASS Processing begins.') ;

1480: --
1481: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1482:
1483: IF (g_debug_mode = 'Y') THEN
1484: write_to_log(FND_LOG.LEVEL_STATEMENT,'50:UPDATE_MASS','UPDATE MASS Processing begins.') ;
1485: END IF;
1486:
1487: -- Successfully assets generated transactions
1488: --

Line 1502: write_to_log(FND_LOG.LEVEL_STATEMENT,'50:UPDATE_MASS','UPDATE MASS Record processed:'||SQL%ROWCOUNT );

1498: FROM fa_mass_additions_gt
1499: WHERE line_status = 'PROCESSED') ;
1500:
1501: IF (g_debug_mode = 'Y') THEN
1502: write_to_log(FND_LOG.LEVEL_STATEMENT,'50:UPDATE_MASS','UPDATE MASS Record processed:'||SQL%ROWCOUNT );
1503: END IF;
1504:
1505: -- Flag the transactions where we do not need assets generations
1506: -- Waiting for FA team Feedback and the condition...????

Line 1523: write_to_log(FND_LOG.LEVEL_STATEMENT,'50:UPDATE_MASS', 'UPDATE MASS Record processed with N-status:'||SQL%ROWCOUNT);

1519: FROM fa_mass_additions_gt
1520: WHERE line_status = 'REJECTED') ;
1521:
1522: IF (g_debug_mode = 'Y') THEN
1523: write_to_log(FND_LOG.LEVEL_STATEMENT,'50:UPDATE_MASS', 'UPDATE MASS Record processed with N-status:'||SQL%ROWCOUNT);
1524: END IF;
1525:
1526: x_msg_count := l_msg_count ;
1527: x_msg_data := l_msg_data ;

Line 1685: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1681: BEGIN
1682: l_current_calling_sequence := P_calling_sequence||'->'||
1683: 'Insert_Mass';
1684: l_count := 1000;
1685: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1686: 'Inside Insert Receipt procedure.') ;
1687: OPEN c_apinv ;
1688:
1689: LOOP

Line 1690: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1686: 'Inside Insert Receipt procedure.') ;
1687: OPEN c_apinv ;
1688:
1689: LOOP
1690: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1691: 'Main Loop Begins here.') ;
1692: InitPlSQLTab ;
1693:
1694: fetch c_apinv

Line 1747: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1743: limit l_count ;
1744:
1745: IF t_eiIDTab.count = 0 THEN
1746: CLOSE c_apinv ;
1747: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1748: 'Exiting Main Loop.') ;
1749: EXIT ;
1750: END IF ;
1751:

Line 1757: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1753: l_No_count := 0 ;
1754:
1755: FOR indx in 1..t_eiIDTab.count LOOP
1756: l_ignore_cdl := 'N' ;
1757: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1758: 'Exp Item ID:'|| t_eiIDTab(indx) ) ;
1759: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1760: 'line Number:'|| t_lineNumTab(indx) ) ;
1761: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

Line 1759: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1755: FOR indx in 1..t_eiIDTab.count LOOP
1756: l_ignore_cdl := 'N' ;
1757: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1758: 'Exp Item ID:'|| t_eiIDTab(indx) ) ;
1759: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1760: 'line Number:'|| t_lineNumTab(indx) ) ;
1761: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1762: 'Account Type:'|| t_accTypeTab(indx) ) ;
1763:

Line 1761: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1757: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1758: 'Exp Item ID:'|| t_eiIDTab(indx) ) ;
1759: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1760: 'line Number:'|| t_lineNumTab(indx) ) ;
1761: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1762: 'Account Type:'|| t_accTypeTab(indx) ) ;
1763:
1764: IF t_RvrAssetsFlagTab(indx) is NULL and t_SrcAssetsFlagTab(indx) is NULL THEN
1765: l_ignore_cdl := 'N' ;

Line 1778: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1774:
1775: IF l_ignore_cdl = 'N' THEN
1776:
1777: IF t_poDistIdTab(indx) is not NULL THEN
1778: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1779: 'PO Dist ID :'|| t_poDistIdTab(indx) ) ;
1780:
1781: SELECT mtlsi.asset_category_id,
1782: polt.order_type_lookup_code,

Line 1803: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1799: AND pol.line_type_id = polt.line_type_id
1800: AND pol.item_id = mtlsi.inventory_item_id(+)
1801: AND t_InvOrgIDTab(indx) = mtlsi.organization_id (+) ;
1802:
1803: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1804: 'Asset_category_id for po distribution:'||l_assets_category_id);
1805: ELSE
1806: l_assets_category_id := NULL ;
1807: l_po_order_type_lcd := NULL ;

Line 1852: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1848: l_payCCIDTab(lrec) := t_XalccidTab(indx) ;
1849: l_ledgercatcdTab(lrec) := t_ledgercatcdTab(indx) ;
1850: l_ledgeridTab(lrec) := t_ledgeridTab(indx) ;
1851:
1852: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1853: 'Payable CCID:'||l_payCCIDTab(lrec) ) ;
1854: END IF ; -- l_ignore_cdl = 'N'
1855:
1856: IF l_ignore_cdl = 'Y' THEN

Line 1866: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1862:
1863: -- Mark the cdls as assets addition not required for the list of
1864: -- cdls identified by the Flag_no_lineNumTab and Flag_no_eiIdTab.
1865: IF Flag_no_eiIDTab.COUNT > 0 THEN
1866: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1867: 'Flag_no_eiIDTab.COUNT:'||Flag_no_eiIDTab.COUNT ) ;
1868:
1869: FORALL i in Flag_no_eiIDTab.FIRST..Flag_no_eiIDTab.LAST
1870: UPDATE pa_cost_distribution_lines

Line 1882: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

1878: AND line_num = Flag_no_lineNumTab(i);
1879: END IF ;
1880:
1881: IF l_eiIDtab.count > 0 THEN
1882: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
1883: 'l_eiIDtab.count:'||l_eiIDtab.count) ;
1884: FORALL i in l_eiIDtab.FIRST..l_eiIDtab.LAST
1885: INSERT INTO FA_MASS_ADDITIONS_GT(
1886: mass_addition_id,

Line 2027: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

2023: NULL,
2024: NULL,
2025: NULL -- Salvage Value
2026: from DUAL ;
2027: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
2028: 'Inserting MRC Records...') ;
2029: END IF ; -- end of l_eiIDtab.count
2030: END LOOP ;
2031: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

Line 2031: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',

2027: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
2028: 'Inserting MRC Records...') ;
2029: END IF ; -- end of l_eiIDtab.count
2030: END LOOP ;
2031: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT',
2032: 'End of Receipt Insert') ;
2033: --
2034: EXCEPTION
2035: WHEN OTHERS THEN

Line 2036: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT', SQLERRM) ;

2032: 'End of Receipt Insert') ;
2033: --
2034: EXCEPTION
2035: WHEN OTHERS THEN
2036: write_to_log(FND_LOG.LEVEL_STATEMENT, '50:PA INSERT_RECEIPT', SQLERRM) ;
2037: APP_EXCEPTION.RAISE_EXCEPTION;
2038: --
2039: END Insert_Receipts;
2040:

Line 2158: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then

2154: MODULE IN VARCHAR2,
2155: MESSAGE IN VARCHAR2) is
2156: begin
2157: IF (g_debug_mode = 'Y') THEN
2158: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2159: --FND_LOG.string(log_level,module, message);
2160: FND_LOG.string( fnd_log.level_procedure,module, message);
2161: end if ;
2162:

Line 2159: --FND_LOG.string(log_level,module, message);

2155: MESSAGE IN VARCHAR2) is
2156: begin
2157: IF (g_debug_mode = 'Y') THEN
2158: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2159: --FND_LOG.string(log_level,module, message);
2160: FND_LOG.string( fnd_log.level_procedure,module, message);
2161: end if ;
2162:
2163: END IF;

Line 2160: FND_LOG.string( fnd_log.level_procedure,module, message);

2156: begin
2157: IF (g_debug_mode = 'Y') THEN
2158: if ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2159: --FND_LOG.string(log_level,module, message);
2160: FND_LOG.string( fnd_log.level_procedure,module, message);
2161: end if ;
2162:
2163: END IF;
2164: