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.IEX_STRATEGY_PUB dependencies on FND_LOG

Line 276: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

272:
273: /* check the default profile valuse */
274: /* Check the required profiles for Strategy Concurrent before starting */
275: if (NVL(FND_PROFILE.VALUE('IEX_STRATEGY_DISABLED'), 'N') = 'Y') then
276: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
277: IEX_DEBUG_PUB.LogMessage( 'Strategy creation aborted. ' );
278: IEX_DEBUG_PUB.LogMessage( 'Strategy Disabled by Profile ');
279: END IF;
280: return;

Line 284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

280: return;
281: end if;
282:
283: if (l_DefaultStrategyLevel = 50) Then
284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
285: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );
286: IEX_DEBUG_PUB.LogMessage( 'No Default Strategy Run Level from IEX_APP_PREFERENCES ');
287: END IF;
288: b_Skip := 'T';

Line 293: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

289: end if;
290:
291: l_StrategyTempID := NVL(to_number(FND_PROFILE.VALUE('IEX_STRATEGY_DEFAULT_TEMPLATE')), 0);
292: if (l_StrategyTempID = 0) Then
293: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
294: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );
295: IEX_DEBUG_PUB.LogMessage( 'No Default Strategy Template Profile ');
296: END IF;
297: b_Skip := 'T';

Line 301: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

297: b_Skip := 'T';
298: end if;
299:
300: if (l_default_rs_ID = 0) Then
301: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
302: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );
303: IEX_DEBUG_PUB.LogMessage( 'Strategy Default Resource Profile not set. ');
304: IEX_DEBUG_PUB.LogMessage( 'Default Resource need to have view access all customers, if security enabled ');
305: END IF;

Line 310: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

306: b_Skip := 'T';
307: end if;
308:
309: if (l_resource_ID = 0) Then
310: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
311: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );
312: IEX_DEBUG_PUB.LogMessage( 'Strategy Fulfilment Resource Profile not set. ');
313: IEX_DEBUG_PUB.LogMessage( 'Fulfilment Resource should be configured for fulfilment ');
314: END IF;

Line 332: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

328: IF FND_API.to_Boolean( l_init_msg_list ) THEN
329: FND_MSG_PUB.initialize;
330: END IF;
331:
332: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
333: IEX_DEBUG_PUB.LogMessage(
334: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
335: print_date => 'Y');
336: END IF;

Line 338: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

334: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
335: print_date => 'Y');
336: END IF;
337:
338: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
339: IEX_DEBUG_PUB.LogMessage(
340: debug_msg => '1. D.ID= ' || p_delinquencyID || ' OID= ' || P_objectid || ' OT.= ' || P_objectType,
341: print_date => 'Y');
342: END IF;

Line 351: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

347: --Start bug 6798118 gnramasa 05 Feb 08
348: If l_ObjectType in ('PARTY','ACCOUNT','BILL_TO','DELINQUENT') THEN
349: if (l_ObjectType = 'PARTY') then
350: -- IF PG_DEBUG < 10 THEN
351: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
352: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Party);
353: END IF;
354: Execute Immediate C_Party into fPartyCustID, fCustAccountID, fCustomerSiteUseId,
355: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 360: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

356: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
357: using p_ObjectID;
358: elsif (l_ObjectType = 'ACCOUNT') then
359: -- IF PG_DEBUG < 10 THEN
360: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
361: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_IEX_Account);
362: END IF;
363: Execute Immediate C_IEX_Account into fPartyCustID, fCustAccountID, fCustomerSiteUseId,
364: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 369: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

365: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
366: using p_ObjectID;
367: elsif (l_ObjectType = 'BILL_TO') then
368: -- IF PG_DEBUG < 10 THEN
369: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
370: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_IEX_BILLTO);
371: END IF;
372: Execute Immediate C_IEX_BILLTO into fPartyCustID, fCustAccountID, fCustomerSiteUseId,
373: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 378: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

374: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
375: using p_ObjectID;
376: elsif (l_objectType = 'DELINQUENT') then
377: -- IF PG_DEBUG < 10 THEN
378: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
379: iex_debug_pub.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_DelSelect );
380: END IF;
381: Execute Immediate c_DelSelect into fPartyCustID, fcustAccountID, fCustomerSiteUseId,
382: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 393: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

389: if p_DelinquencyID IS NOT NULL then
390: BEGIN
391: if (l_ObjectType = 'BANKRUPTCY') then
392: -- IF PG_DEBUG < 10 THEN
393: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
394: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_Bankruptcy);
395: END IF;
396: Execute Immediate c_Bankruptcy into fPartyCustID, fcustAccountID, fCustomerSiteUseId,
397: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 403: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

399: using p_DelinquencyID, p_ObjectID;
400:
401: elsif (l_ObjectType = 'WRITEOFF') then
402: -- IF PG_DEBUG < 10 THEN
403: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
404: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_WriteOff);
405: END IF;
406: Execute Immediate c_WriteOff into fPartyCustId, fcustAccountID, fCustomerSiteUseId,
407: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 413: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

409: using p_DelinquencyID, p_ObjectID;
410:
411: elsif (l_ObjectType = 'REPOSSESSION') then
412: -- IF PG_DEBUG < 10 THEN
413: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
414: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_Repossession);
415: END IF;
416: Execute Immediate c_Repossession into fPartyCustId, fCustAccountID, fCustomerSiteUseId,
417: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 423: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

419: using p_DelinquencyID, p_ObjectID;
420:
421: elsif (l_ObjectType = 'LITIGATION') then
422: -- IF PG_DEBUG < 10 THEN
423: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
424: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_Litigation);
425: END IF;
426: Execute Immediate c_Litigation into fPartyCustID, fCustAccountId, fCustomerSiteUseId,
427: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 433: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

429: using p_DelinquencyID, p_ObjectID;
430:
431:
432: else
433: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
434: IEX_DEBUG_PUB.LogMessage('ERROR: IEX_UNKNOWN_OBJTYPE ' || l_objectType);
435: END IF;
436:
437: FND_MESSAGE.Set_Name('IEX', 'IEX_UNKNOWN_OBJTYPE');

Line 447: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

443: end if;
444:
445: EXCEPTION
446: When NO_DATA_FOUND then
447: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
448: IEX_DEBUG_PUB.LogMessage('ERROR: IEX_OBJECT_NOT_EXISTS' || l_objectType);
449: END IF;
450:
451: FND_MESSAGE.Set_Name('IEX', 'IEX_OBJECT_NOT_EXISTS');

Line 461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

457:
458: END;
459: elsif p_ObjectID IS NOT NULL then
460: begin
461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
462: IEX_DEBUG_PUB.logmessage('p_ObjectID IS NOT NULL, p_ObjectID : ' || p_ObjectID );
463: END IF;
464: if (l_ObjectType = 'BANKRUPTCY') then
465: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 465: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
462: IEX_DEBUG_PUB.logmessage('p_ObjectID IS NOT NULL, p_ObjectID : ' || p_ObjectID );
463: END IF;
464: if (l_ObjectType = 'BANKRUPTCY') then
465: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
466: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_Bankruptcy);
467: END IF;
468: Execute Immediate C_Cont_Bankruptcy into fPartyCustID, fcustAccountID, fCustomerSiteUseId,
469: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 474: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

470: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
471: using p_ObjectID;
472:
473: elsif (l_ObjectType = 'WRITEOFF') then
474: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
475: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_WriteOff);
476: END IF;
477: Execute Immediate C_Cont_WriteOff into fPartyCustId, fcustAccountID, fCustomerSiteUseId,
478: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 483: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

479: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
480: using p_ObjectID;
481:
482: elsif (l_ObjectType = 'REPOSSESSION') then
483: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
484: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_Repossession);
485: END IF;
486: Execute Immediate C_Cont_Repossession into fPartyCustId, fCustAccountID, fCustomerSiteUseId,
487: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 492: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

488: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
489: using p_ObjectID;
490:
491: elsif (l_ObjectType = 'LITIGATION') then
492: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
493: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_Litigation);
494: END IF;
495: Execute Immediate C_Cont_Litigation into fPartyCustID, fCustAccountId, fCustomerSiteUseId,
496: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

Line 501: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

497: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
498: using p_ObjectID;
499:
500: else
501: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
502: IEX_DEBUG_PUB.LogMessage(
503: debug_msg => 'ERROR: IEX_UNKNOWN_OBJTYPE ' || l_objectType,
504: print_date => 'Y');
505: END IF;

Line 517: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

513: end if;
514:
515: EXCEPTION
516: When NO_DATA_FOUND then
517: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
518: IEX_DEBUG_PUB.LogMessage(
519: debug_msg => 'ERROR: IEX_OBJECT_NOT_EXISTS' || l_objectType,
520: print_date => 'Y');
521: END IF;

Line 559: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

555: select preference_value
556: into l_StrategyLevel
557: from iex_app_preferences_vl
558: where preference_name = 'COLLECTIONS STRATEGY LEVEL' and enabled_flag = 'Y' ;
559: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
560: IEX_DEBUG_PUB.LogMessage( 'StrategyLevel ' || l_StrategyLevel);
561: END IF;
562: EXCEPTION
563: WHEN OTHERS THEN

Line 564: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

560: IEX_DEBUG_PUB.LogMessage( 'StrategyLevel ' || l_StrategyLevel);
561: END IF;
562: EXCEPTION
563: WHEN OTHERS THEN
564: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
565: IEX_DEBUG_PUB.LogMessage( 'Strategy Level Rised Exception ');
566: END IF;
567: l_StrategyLevel := 'CUSTOMER';
568: END;

Line 593: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

589: --fObjectId := l_stry_cnt_rec.customer_site_use_id;
590: --fObjectType := 'IEX_BILLTO';
591: end if;
592:
593: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
594: IEX_DEBUG_PUB.LogMessage( 'l_ObjectId : ' || l_ObjectId);
595: IEX_DEBUG_PUB.LogMessage( 'l_Score_level : ' || l_Score_level);
596: IEX_DEBUG_PUB.LogMessage( 'l_DefaultStrategyLevel : ' || l_DefaultStrategyLevel);
597: END IF;

Line 605: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

601: fetch c_Score_Exists into fScoreValue;
602: Close c_Score_Exists;
603:
604: IF fScoreValue IS NOT NULL then
605: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
606: IEX_DEBUG_PUB.LogMessage( ' Got New Score using c_Score_Exists '
607: || '; l_ObjectId = ' || l_ObjectId
608: || '; Score Value = ' || fScoreValue );
609: end if;

Line 611: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

607: || '; l_ObjectId = ' || l_ObjectId
608: || '; Score Value = ' || fScoreValue );
609: end if;
610: ELSE
611: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
612: IEX_DEBUG_PUB.LogMessage('Score not exist for this object');
613: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');
614: END IF;
615: l_strategy_rec.score_value := 0;

Line 629: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

625: from iex_delinquencies
626: where delinquency_id = l_stry_cnt_rec.delinquency_id;
627: exception
628: WHEN OTHERS THEN
629: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
630: IEX_DEBUG_PUB.LogMessage( 'While selecting payment_schedule_id Rised Exception ');
631: END IF;
632: end;
633:

Line 639: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

635: fetch c_score_exists_del into fScoreValue;
636: Close c_score_exists_del;
637:
638: IF fScoreValue IS NOT NULL then
639: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
640: IEX_DEBUG_PUB.LogMessage( ' Got New Score using c_Score_Exists_del '
641: || '; l_payment_schedule_id = ' || l_payment_schedule_id
642: || '; delinquency_id = ' || l_stry_cnt_rec.delinquency_id
643: || '; Score Value = ' || fScoreValue );

Line 646: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

642: || '; delinquency_id = ' || l_stry_cnt_rec.delinquency_id
643: || '; Score Value = ' || fScoreValue );
644: end if;
645: ELSE
646: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
647: IEX_DEBUG_PUB.LogMessage('Score not exist for this object');
648: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');
649: END IF;
650: l_strategy_rec.score_value := 0;

Line 661: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

657: end if;
658:
659: else
660: if (l_ObjectType = 'PARTY' OR l_ObjectType = 'IEX_ACCOUNT' OR l_ObjectType = 'IEX_BILLTO') AND (fScoreValue IS NULL) THEN
661: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
662: IEX_DEBUG_PUB.LogMessage('create_strategy: l_ObjectType = ' || l_ObjectType);
663: IEX_DEBUG_PUB.LogMessage('create_strategy: fScoreValue = ' || fScoreValue);
664: END IF;
665: BEGIN

Line 672: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

668: Close c_Score_Exists;
669: EXCEPTION
670: WHEN OTHERS THEN
671: -- IF PG_DEBUG < 10 THEN
672: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
673: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');
674: END IF;
675: l_strategy_rec.score_value := 0;
676: END;

Line 687: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

683: --l_stry_cnt_rec.jtf_object_type := fJTFObjectType;
684: --End added by gnramasa for bug 6359338 23-Aug-07
685:
686:
687: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
688: IEX_DEBUG_PUB.LogMessage( debug_msg => '2. D.ID= '
689: || l_stry_cnt_rec.delinquency_id || ' OId= ' || l_stry_cnt_rec.object_id
690: || ' OT= ' || l_stry_cnt_rec.object_type || ' SV= ' || l_stry_cnt_rec.score_value,
691: print_date => 'Y');

Line 702: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

698: p_stry_cnt_rec => l_stry_cnt_rec,
699: x_strategy_template_id => l_strategy_template_id
700: );
701:
702: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
703: IEX_DEBUG_PUB.LogMessage( debug_msg => '3. D.ID= ' || l_stry_cnt_rec.delinquency_id ||
704: ' S.TID=' || l_strategy_template_id, print_date => 'Y');
705: END IF;
706:

Line 747: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

743: Close c_Score_Exists;
744: EXCEPTION
745: WHEN OTHERS THEN
746: -- IF PG_DEBUG < 10 THEN
747: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
748: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');
749: END IF;
750: l_strategy_rec.score_value := 0;
751: END;

Line 791: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

787: fetch c_Strategy_Exists into vStrategyStatus;
788: Close C_Strategy_Exists;
789: End if;
790:
791: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
792: IEX_DEBUG_PUB.LogMessage( debug_msg => '4. S.St=' || vStrategyStatus, print_date => 'Y');
793: END IF;
794:
795: if (vStrategyStatus IS NULL) or vStrategyStatus in ('CANCELLED', 'CLOSED') then

Line 798: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

794:
795: if (vStrategyStatus IS NULL) or vStrategyStatus in ('CANCELLED', 'CLOSED') then
796:
797:
798: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
799: IEX_DEBUG_PUB.LogMessage( debug_msg => '5. Create strategy ', print_date => 'Y');
800: END IF;
801:
802: Begin

Line 815: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

811: x_msg_data=>l_msg_data,
812: x_strategy_id => l_strategy_id
813: );
814:
815: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
816: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Return status = ' || l_return_status, print_date => 'Y');
817: END IF;
818:
819: if (x_return_status <> 'S') then

Line 825: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

821: end if;
822:
823: l_strategy_rec.strategy_id := l_strategy_id;
824:
825: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
826: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Strategy created. id = ' || l_strategy_id, print_date => 'Y');
827: END IF;
828:
829: EXCEPTION

Line 831: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

827: END IF;
828:
829: EXCEPTION
830: WHEN OTHERS THEN
831: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
832: IEX_DEBUG_PUB.LogMessage( debug_msg => 'IEX_STRATEGY_CREATE_FAILED' || to_char(fObjectID), print_date => 'Y');
833: END IF;
834:
835: FND_MESSAGE.Set_Name('IEX', 'IEX_STRATEGY_CREATE_FAILED');

Line 844: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

840:
841: END;
842:
843:
844: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
845: IEX_DEBUG_PUB.LogMessage( debug_msg => '6. Create Workflow ' || l_strategy_rec.strategy_id, print_date => 'Y');
846: END IF;
847:
848: BEGIN

Line 861: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

857: x_msg_data=>l_msg_data,
858: bConcProg => 'NO'
859: );
860:
861: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
862: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Return status = ' || l_return_status, print_date => 'Y');
863: END IF;
864: IEX_DEBUG_PUB.LogMessage('Return status = ' || l_return_status);
865:

Line 872: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

868: end if;
869:
870: EXCEPTION
871: WHEN OTHERS THEN
872: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
873: IEX_DEBUG_PUB.LogMessage( debug_msg => 'IEX_LAUNCH_WORKFLOW_FAILED' || to_char(fObjectID), print_date => 'Y');
874: END IF;
875:
876: FND_MESSAGE.Set_Name('IEX', 'IEX_LAUNCH_WORKFLOW_FAILED');

Line 892: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

888:
889: ELSE
890: x_return_status := 'F';
891: IF l_ObjectType in ('LITIGATION', 'REPOSSESSION', 'BANKRUPTCY', 'WRITEOFF') THEN
892: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
893: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Strategy already exists with OPEN status, so strategy is not created.', print_date => 'Y');
894: END IF;
895: ELSE
896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

892: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
893: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Strategy already exists with OPEN status, so strategy is not created.', print_date => 'Y');
894: END IF;
895: ELSE
896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
897: IEX_DEBUG_PUB.LogMessage( debug_msg => 'IEX_LAUNCH_WORKFLOW_FAILED' || to_char(fObjectID), print_date => 'Y');
898: END IF;
899:
900: FND_MESSAGE.Set_Name('IEX', 'IEX_LAUNCH_WORKFLOW_FAILED');

Line 912: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

908: ( p_count => x_msg_count,
909: p_data => x_msg_data
910: );
911:
912: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
913: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Delinquency cursor ends', print_date => 'Y');
914: END IF;
915:
916: IEX_DEBUG_PUB.LogMessage('Delinquency cursor ends' );

Line 985: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

981: vstr4 := ' where CUST_ACCOUNT_id = :AcctId ';
982: vstr5 := ' where party_id = :PartyId ';
983: vstr6 := ' where customer_site_use_id = :CustomerSiteUseId ';
984:
985: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
986: IEX_DEBUG_PUB.LogMessage( 'GetStrategyTempID: Object_Type = '
987: || p_stry_cnt_rec.object_type || ' Delinquency ID = ' || p_stry_cnt_rec.delinquency_id );
988: END IF;
989:

Line 1054: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1050: -- for c_rec in C_StrategyTemp(p_stry_cnt_rec.object_type, p_stry_cnt_rec.delinquency_id) loop
1051: LOOP
1052: FETCH C_StrategyTemp INTO c_rec_Strategy_temp_id, c_Rec_Strategy_Rank, c_Rec_ENTITY_NAME, c_rec_active_flag ;
1053:
1054: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1055: IEX_DEBUG_PUB.LogMessage( ' Get Strategy Template: Inside Cursor. Entity Name '
1056: || c_Rec_Entity_Name
1057: || c_Rec_active_flag
1058: || ' Rank ' || c_Rec_Strategy_Rank);

Line 1109: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1105: ' where party_id = ' || p_stry_cnt_rec.PARTY_CUST_ID ||
1106: ' and rownum < 2 ';
1107: */
1108: end if;
1109: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1110: IEX_DEBUG_PUB.LogMessage( ' Dynamic SQL in GetStrategyTemplate '
1111: || c_DynSql );
1112: END IF;
1113:

Line 1118: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1114: --Execute Immediate c_DynSql into v_Exists;
1115:
1116: EXCEPTION
1117: When no_data_found then
1118: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1119: IEX_DEBUG_PUB.LogMessage( ' Get Strategy Template: No Data Found: ' || c_DynSql );
1120: END IF;
1121: v_SkipTemp := 'T';
1122: END;

Line 1125: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1121: v_SkipTemp := 'T';
1122: END;
1123: end if;
1124:
1125: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1126: IEX_DEBUG_PUB.LogMessage(' Get Strategy Template: v_SkipTemp ' || v_SkipTemp );
1127: END IF;
1128:
1129: if v_SkipTemp <> 'T' then

Line 1132: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1128:
1129: if v_SkipTemp <> 'T' then
1130:
1131: if (p_stry_cnt_rec.score_value >= c_rec_strategy_rank) then
1132: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1133: IEX_DEBUG_PUB.LogMessage(' Get Strategy Template: c_rec_Strategy_temp_id: ' || c_rec_Strategy_temp_id );
1134: END IF;
1135:
1136: x_strategy_template_id := c_rec_Strategy_temp_id;

Line 1268: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1264: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1265: FND_MSG_PUB.initialize;
1266: END IF;
1267:
1268: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1269: IEX_DEBUG_PUB.LogMessage(
1270: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
1271: print_date => 'Y');
1272: END IF;

Line 1278: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1274: -- Debug Message
1275: IEX_DEBUG_PUB.LogMessage('PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start');
1276:
1277:
1278: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1279: IEX_DEBUG_PUB.LogMessage(
1280: debug_msg => '1. D.ID= ' || p_delinquencyID || ' OID= ' || P_objectid || ' OT.= ' || P_objectType,
1281: print_date => 'Y');
1282: END IF;

Line 1287: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1283:
1284: -- Initialize API return status to SUCCESS
1285: x_return_status := FND_API.G_RET_STS_SUCCESS;
1286: -- Debug Message
1287: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1288: IEX_DEBUG_PUB.LogMessage(
1289: debug_msg => '2. CHECK VALID STATUS => ' || p_Status,
1290: print_date => 'Y');
1291: END IF;

Line 1327: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1323: return;
1324: end if;
1325: --end bug#2369298 schekuri 24-Feb-2006
1326:
1327: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1328: IEX_DEBUG_PUB.LogMessage(
1329: debug_msg => '4. Current S.St=' || vStrategyStatus ,
1330: print_date => 'Y');
1331: END IF;

Line 1335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1331: END IF;
1332:
1333: if ((fStrategyID IS NOT NULL) and vStrategyStatus NOT IN ('CLOSED', 'CANCELLED')) then
1334:
1335: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1336: IEX_DEBUG_PUB.LogMessage(
1337: debug_msg => '5. Update strategy ' || fStrategyID,
1338: print_date => 'Y');
1339: END IF;

Line 1364: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1360: end if;
1361:
1362: EXCEPTION
1363: WHEN OTHERS THEN
1364: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1365: IEX_DEBUG_PUB.LogMessage(
1366: debug_msg => 'IEX_STRATEGY_UPDATE_FAILED' || fObjectID,
1367: print_date => 'Y');
1368: END IF;

Line 1393: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1389: end if;
1390:
1391: x_return_status := 'F';
1392:
1393: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1394: IEX_DEBUG_PUB.LogMessage(
1395: debug_msg => 'IEX_NO_STRATEGIES_EXIST ' || fObjectID,
1396: print_date => 'Y');
1397: END IF;

Line 1528: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1524: end if;
1525:
1526: FND_MSG_PUB.initialize;
1527:
1528: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1529: IEX_DEBUG_PUB.LogMessage(
1530: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
1531: print_date => 'Y');
1532: END IF;

Line 1535: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1531: print_date => 'Y');
1532: END IF;
1533:
1534:
1535: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1536: IEX_DEBUG_PUB.LogMessage(
1537: debug_msg => '1. D.ID= ' || p_delinquencyID || ' OID= ' || P_objectid || ' OT.= ' || P_objectType,
1538: print_date => 'Y');
1539: END IF;

Line 1546: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1542: x_return_status := FND_API.G_RET_STS_SUCCESS;
1543:
1544: --Start bug 6723540 gnramasa 02 Jan 08
1545: if p_delinquencyid is not null then
1546: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1547: IEX_DEBUG_PUB.LogMessage(debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name ||' : p_delinquencyid = ' || p_delinquencyid,
1548: print_date => 'Y');
1549: END IF;
1550: Open c_Strategy(p_delinquencyid, p_objectid, p_objecttype);

Line 1554: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1550: Open c_Strategy(p_delinquencyid, p_objectid, p_objecttype);
1551: fetch c_Strategy into fStrategyID, fStrategyName, fWorkItemId, fWorkItemName;
1552: Close C_Strategy;
1553: elsif p_objectid is not null then
1554: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1555: IEX_DEBUG_PUB.LogMessage(debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name ||' : p_objectid = ' || p_objectid,
1556: print_date => 'Y');
1557: END IF;
1558: Open c_cont_Strategy(p_objectid, p_objecttype);

Line 1562: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1558: Open c_cont_Strategy(p_objectid, p_objecttype);
1559: fetch c_cont_Strategy into fStrategyID, fStrategyName, fWorkItemId, fWorkItemName;
1560: Close c_cont_Strategy;
1561: else
1562: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1563: IEX_DEBUG_PUB.LogMessage(debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name ||' : p_delinquencyid and p_objectid is NULL',
1564: print_date => 'Y');
1565: END IF;
1566: return;

Line 1570: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1566: return;
1567: end if;
1568: --End bug 6723540 gnramasa 02 Jan 08
1569:
1570: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1571: IEX_DEBUG_PUB.LogMessage(
1572: debug_msg => '4. WorkItemName=' || fWorkItemName,
1573: print_date => 'Y');
1574: END IF;

Line 1584: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1580: x_workItemName := fWorkItemName;
1581: else
1582: x_return_status := 'F';
1583:
1584: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1585: IEX_DEBUG_PUB.LogMessage(debug_msg => 'IEX_NO_STRATEGY_EXISTS ' || p_DelinquencyID,
1586: print_date => 'Y');
1587: END IF;
1588:

Line 1599: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1595: end if;
1596:
1597: EXCEPTION
1598: WHEN NO_DATA_FOUND then
1599: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1600: IEX_DEBUG_PUB.LogMessage(debug_msg => 'IEX_NO_STRATEGIES_EXIST ' || p_DelinquencyID,
1601: print_date => 'Y');
1602: END IF;
1603:

Line 1721: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1717: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1718: FND_MSG_PUB.initialize;
1719: END IF;
1720:
1721: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1722: IEX_DEBUG_PUB.LogMessage(
1723: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
1724: print_date => 'Y');
1725: END IF;

Line 1727: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1723: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
1724: print_date => 'Y');
1725: END IF;
1726:
1727: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1728: IEX_DEBUG_PUB.LogMessage(
1729: debug_msg => '1. D.ID= ' || p_delinquencyID || ' OID= ' || P_objectid || ' OT.= ' || P_objectType,
1730: print_date => 'Y');
1731: END IF;

Line 1770: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1766: -- Open c_Strategy_Exists(p_delinquencyid, p_objectid, p_objecttype);
1767: fetch c_open_strategies into fStrategyID, vStrategyStatus, fStrategyVersionNumber;
1768: Close c_open_strategies;
1769:
1770: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1771: IEX_DEBUG_PUB.LogMessage(
1772: debug_msg => '4. Current S.St=' || vStrategyStatus ,
1773: print_date => 'Y');
1774: END IF;

Line 1778: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1774: END IF;
1775:
1776: if ((fStrategyID IS NOT NULL) and vStrategyStatus NOT IN ('CLOSED', 'CANCELLED')) then
1777:
1778: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1779: IEX_DEBUG_PUB.LogMessage(
1780: debug_msg => '5. Update strategy ' || fStrategyID,
1781: print_date => 'Y');
1782: END IF;

Line 1807: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1803: end if;
1804:
1805: EXCEPTION
1806: WHEN OTHERS THEN
1807: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1808: IEX_DEBUG_PUB.LogMessage(
1809: debug_msg => 'IEX_STRATEGY_UPDATE_FAILED' || fObjectID,
1810: print_date => 'Y');
1811: END IF;

Line 1860: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1856:
1857:
1858: BEGIN
1859: -- initialize variables
1860: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1861:
1862: l_MsgLevel := NVL(to_number(FND_PROFILE.VALUE('FND_AS_MSG_LEVEL_THRESHOLD')), FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
1863: l_DefaultTempID := GetDefaultStrategyTempID;
1864: begin

Line 1869: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1865: select decode(preference_value, 'CUSTOMER', 10, 'ACCOUNT', 20, 'BILL_TO', 30, 'DELINQUENCY', 40, 40)
1866: into l_DefaultStrategyLevel
1867: from iex_app_preferences_vl
1868: where preference_name = 'COLLECTIONS STRATEGY LEVEL' and enabled_flag = 'Y' ;
1869: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1870: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
1871: END IF;
1872: EXCEPTION
1873: WHEN OTHERS THEN

Line 1874: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1870: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
1871: END IF;
1872: EXCEPTION
1873: WHEN OTHERS THEN
1874: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1875: IEX_DEBUG_PUB.LogMessage( 'Strategy Level Rised Exception ');
1876: END IF;
1877: l_DefaultStrategyLevel := 40;
1878: END;