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 IEX_DEBUG_PUB

Line 277: IEX_DEBUG_PUB.LogMessage( 'Strategy creation aborted. ' );

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;
281: end if;

Line 278: IEX_DEBUG_PUB.LogMessage( 'Strategy Disabled by Profile ');

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;
281: end if;
282:

Line 285: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );

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';
289: end if;

Line 286: IEX_DEBUG_PUB.LogMessage( 'No Default Strategy Run Level from IEX_APP_PREFERENCES ');

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';
289: end if;
290:

Line 294: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );

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';
298: end if;

Line 295: IEX_DEBUG_PUB.LogMessage( 'No Default Strategy Template Profile ');

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';
298: end if;
299:

Line 302: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );

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;
306: b_Skip := 'T';

Line 303: IEX_DEBUG_PUB.LogMessage( 'Strategy Default Resource Profile not set. ');

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;
306: b_Skip := 'T';
307: end if;

Line 304: IEX_DEBUG_PUB.LogMessage( 'Default Resource need to have view access all customers, if security enabled ');

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;
306: b_Skip := 'T';
307: end if;
308:

Line 311: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );

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;
315: b_Skip := 'T';

Line 312: IEX_DEBUG_PUB.LogMessage( 'Strategy Fulfilment Resource Profile not set. ');

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;
315: b_Skip := 'T';
316: end if;

Line 313: IEX_DEBUG_PUB.LogMessage( 'Fulfilment Resource should be configured for fulfilment ');

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;
315: b_Skip := 'T';
316: end if;
317:

Line 333: IEX_DEBUG_PUB.LogMessage(

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;
337:

Line 339: IEX_DEBUG_PUB.LogMessage(

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;
343:

Line 352: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Party);

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,
356: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 361: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_IEX_Account);

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,
365: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 370: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_IEX_BILLTO);

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,
374: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 379: iex_debug_pub.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_DelSelect );

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,
383: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 394: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_Bankruptcy);

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,
398: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 404: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_WriteOff);

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,
408: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 414: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_Repossession);

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,
418: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 424: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_Litigation);

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,
428: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 434: IEX_DEBUG_PUB.LogMessage('ERROR: IEX_UNKNOWN_OBJTYPE ' || l_objectType);

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');
438: FND_MESSAGE.Set_Token('OBJECT_TYPE', l_ObjectType);

Line 448: IEX_DEBUG_PUB.LogMessage('ERROR: IEX_OBJECT_NOT_EXISTS' || l_objectType);

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');
452: FND_MESSAGE.Set_Token('OBJECT_ID', to_char(fObjectID));

Line 462: IEX_DEBUG_PUB.logmessage('p_ObjectID IS NOT NULL, p_ObjectID : ' || p_ObjectID );

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
466: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_Bankruptcy);

Line 466: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_Bankruptcy);

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,
470: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 475: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_WriteOff);

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,
479: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 484: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_Repossession);

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,
488: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 493: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_Litigation);

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,
497: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType

Line 502: IEX_DEBUG_PUB.LogMessage(

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;
506:

Line 518: IEX_DEBUG_PUB.LogMessage(

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;
522:

Line 560: IEX_DEBUG_PUB.LogMessage( 'StrategyLevel ' || l_StrategyLevel);

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
564: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 565: IEX_DEBUG_PUB.LogMessage( 'Strategy Level Rised Exception ');

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;
569:

Line 594: IEX_DEBUG_PUB.LogMessage( 'l_ObjectId : ' || l_ObjectId);

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;
598:

Line 595: IEX_DEBUG_PUB.LogMessage( 'l_Score_level : ' || l_Score_level);

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;
598:
599: if l_DefaultStrategyLevel <> 40 then -- This will pick the scores for all levels but not for delinquency

Line 596: IEX_DEBUG_PUB.LogMessage( 'l_DefaultStrategyLevel : ' || l_DefaultStrategyLevel);

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;
598:
599: if l_DefaultStrategyLevel <> 40 then -- This will pick the scores for all levels but not for delinquency
600: Open c_Score_Exists(l_ObjectId, l_Score_level);

Line 606: IEX_DEBUG_PUB.LogMessage( ' Got New Score using c_Score_Exists '

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;
610: ELSE

Line 612: IEX_DEBUG_PUB.LogMessage('Score not exist for this object');

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;
616: END IF;

Line 613: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');

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;
616: END IF;
617:

Line 630: IEX_DEBUG_PUB.LogMessage( 'While selecting payment_schedule_id Rised Exception ');

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:
634: Open c_score_exists_del(l_payment_schedule_id, 'IEX_INVOICES', l_stry_cnt_rec.delinquency_id, 'IEX_DELINQUENCY');

Line 640: IEX_DEBUG_PUB.LogMessage( ' Got New Score using c_Score_Exists_del '

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 );
644: end if;

Line 647: IEX_DEBUG_PUB.LogMessage('Score not exist for this object');

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;
651: END IF;

Line 648: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');

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;
651: END IF;
652:

Line 662: IEX_DEBUG_PUB.LogMessage('create_strategy: l_ObjectType = ' || l_ObjectType);

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
666: Open c_Score_Exists(l_stry_cnt_rec.jtf_object_id, l_stry_cnt_rec.jtf_object_type);

Line 663: IEX_DEBUG_PUB.LogMessage('create_strategy: fScoreValue = ' || fScoreValue);

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
666: Open c_Score_Exists(l_stry_cnt_rec.jtf_object_id, l_stry_cnt_rec.jtf_object_type);
667: fetch c_Score_Exists into fScoreValue;

Line 673: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');

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;
677: end if;

Line 688: IEX_DEBUG_PUB.LogMessage( debug_msg => '2. D.ID= '

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');
692: END IF;

Line 703: IEX_DEBUG_PUB.LogMessage( debug_msg => '3. D.ID= ' || l_stry_cnt_rec.delinquency_id ||

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:
707: else

Line 748: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');

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;
752: end if;

Line 792: IEX_DEBUG_PUB.LogMessage( debug_msg => '4. S.St=' || vStrategyStatus, print_date => 'Y');

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
796:

Line 799: IEX_DEBUG_PUB.LogMessage( debug_msg => '5. Create strategy ', print_date => 'Y');

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
803:

Line 816: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Return status = ' || l_return_status, print_date => 'Y');

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
820: RAISE FND_API.G_EXC_ERROR;

Line 826: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Strategy created. id = ' || l_strategy_id, print_date => 'Y');

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
830: WHEN OTHERS THEN

Line 832: IEX_DEBUG_PUB.LogMessage( debug_msg => 'IEX_STRATEGY_CREATE_FAILED' || to_char(fObjectID), print_date => 'Y');

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');
836: FND_MESSAGE.Set_Token('OBJECT_ID', to_char(fObjectID));

Line 845: IEX_DEBUG_PUB.LogMessage( debug_msg => '6. Create Workflow ' || l_strategy_rec.strategy_id, print_date => 'Y');

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
849:

Line 862: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Return status = ' || l_return_status, print_date => 'Y');

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:
866: if (x_return_status <> 'S') then

Line 864: IEX_DEBUG_PUB.LogMessage('Return status = ' || l_return_status);

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:
866: if (x_return_status <> 'S') then
867: RAISE FND_API.G_EXC_ERROR;
868: end if;

Line 873: IEX_DEBUG_PUB.LogMessage( debug_msg => 'IEX_LAUNCH_WORKFLOW_FAILED' || to_char(fObjectID), print_date => 'Y');

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');
877: FND_MESSAGE.Set_Token('OBJECT_ID', to_char(fObjectID));

Line 893: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Strategy already exists with OPEN status, so strategy is not created.', print_date => 'Y');

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
897: IEX_DEBUG_PUB.LogMessage( debug_msg => 'IEX_LAUNCH_WORKFLOW_FAILED' || to_char(fObjectID), print_date => 'Y');

Line 897: IEX_DEBUG_PUB.LogMessage( debug_msg => 'IEX_LAUNCH_WORKFLOW_FAILED' || to_char(fObjectID), print_date => 'Y');

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');
901: FND_MESSAGE.Set_Token('OBJECT_ID', to_char(fObjectID));

Line 913: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Delinquency cursor ends', print_date => 'Y');

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' );
917:

Line 916: IEX_DEBUG_PUB.LogMessage('Delinquency cursor ends' );

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' );
917:
918: EXCEPTION
919:
920: WHEN FND_API.G_EXC_ERROR THEN

Line 986: IEX_DEBUG_PUB.LogMessage( 'GetStrategyTempID: Object_Type = '

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:
990: x_Strategy_Template_id := l_DefaultTempID;

Line 1055: IEX_DEBUG_PUB.LogMessage( ' Get Strategy Template: Inside Cursor. Entity Name '

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);
1059: END IF;

Line 1110: IEX_DEBUG_PUB.LogMessage( ' Dynamic SQL in GetStrategyTemplate '

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:
1114: --Execute Immediate c_DynSql into v_Exists;

Line 1119: IEX_DEBUG_PUB.LogMessage( ' Get Strategy Template: No Data Found: ' || c_DynSql );

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;
1123: end if;

Line 1126: IEX_DEBUG_PUB.LogMessage(' Get Strategy Template: v_SkipTemp ' || v_SkipTemp );

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
1130:

Line 1133: IEX_DEBUG_PUB.LogMessage(' Get Strategy Template: c_rec_Strategy_temp_id: ' || c_rec_Strategy_temp_id );

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;
1137: return;

Line 1269: IEX_DEBUG_PUB.LogMessage(

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;
1273:

Line 1275: IEX_DEBUG_PUB.LogMessage('PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start');

1271: print_date => 'Y');
1272: END IF;
1273:
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(

Line 1279: IEX_DEBUG_PUB.LogMessage(

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;
1283:

Line 1288: IEX_DEBUG_PUB.LogMessage(

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;
1292:

Line 1328: IEX_DEBUG_PUB.LogMessage(

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;
1332:

Line 1336: IEX_DEBUG_PUB.LogMessage(

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;
1340:

Line 1365: IEX_DEBUG_PUB.LogMessage(

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;
1369:

Line 1394: IEX_DEBUG_PUB.LogMessage(

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;
1398:

Line 1413: IEX_DEBUG_PUB.LogMessage('Delinquency cursor ends' );

1409: ( p_count => x_msg_count,
1410: p_data => x_msg_data
1411: );
1412:
1413: IEX_DEBUG_PUB.LogMessage('Delinquency cursor ends' );
1414:
1415:
1416: EXCEPTION
1417:

Line 1529: IEX_DEBUG_PUB.LogMessage(

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;
1533:

Line 1536: IEX_DEBUG_PUB.LogMessage(

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;
1540:

Line 1547: IEX_DEBUG_PUB.LogMessage(debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name ||' : p_delinquencyid = ' || p_delinquencyid,

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);
1551: fetch c_Strategy into fStrategyID, fStrategyName, fWorkItemId, fWorkItemName;

Line 1555: IEX_DEBUG_PUB.LogMessage(debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name ||' : p_objectid = ' || p_objectid,

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);
1559: fetch c_cont_Strategy into fStrategyID, fStrategyName, fWorkItemId, fWorkItemName;

Line 1563: IEX_DEBUG_PUB.LogMessage(debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name ||' : p_delinquencyid and p_objectid is NULL',

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;
1567: end if;

Line 1571: IEX_DEBUG_PUB.LogMessage(

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;
1575:

Line 1585: IEX_DEBUG_PUB.LogMessage(debug_msg => 'IEX_NO_STRATEGY_EXISTS ' || p_DelinquencyID,

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:
1589: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_STRATEGIES_EXIST');

Line 1600: IEX_DEBUG_PUB.LogMessage(debug_msg => 'IEX_NO_STRATEGIES_EXIST ' || p_DelinquencyID,

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:
1604: FND_MESSAGE.Set_Name('IEX', 'IEX_NO_STRATEGIES_EXIST');

Line 1722: IEX_DEBUG_PUB.LogMessage(

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;
1726:

Line 1728: IEX_DEBUG_PUB.LogMessage(

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;
1732:

Line 1771: IEX_DEBUG_PUB.LogMessage(

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;
1775:

Line 1779: IEX_DEBUG_PUB.LogMessage(

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;
1783:

Line 1808: IEX_DEBUG_PUB.LogMessage(

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;
1812:

Line 1836: IEX_DEBUG_PUB.LogMessage('Delinquency cursor ends' );

1832: ( p_count => x_msg_count,
1833: p_data => x_msg_data
1834: );
1835:
1836: IEX_DEBUG_PUB.LogMessage('Delinquency cursor ends' );
1837:
1838:
1839: EXCEPTION
1840:

Line 1870: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);

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
1874: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1875: IEX_DEBUG_PUB.LogMessage( 'Strategy Level Rised Exception ');

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;
1879: