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

135: select decode(preference_value, 'CUSTOMER', 10, 'ACCOUNT', 20, 'BILL_TO', 30, 'DELINQUENCY', 40, 40)
136: into l_DefaultStrategyLevel
137: from iex_app_preferences_b
138: where preference_name = 'COLLECTIONS STRATEGY LEVEL' and enabled_flag = 'Y' and org_id is null; -- Changed for bug 8708271 multi level strategy
139: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
140: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
141: END IF;
142: EXCEPTION
143: WHEN OTHERS THEN

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

140: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
141: END IF;
142: EXCEPTION
143: WHEN OTHERS THEN
144: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
145: IEX_DEBUG_PUB.LogMessage( 'Strategy Level Rised Exception ');
146: END IF;
147: l_DefaultStrategyLevel := 40;
148: END;

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

151: select strategy_level
152: into l_DefaultStrategyLevel
153: from iex_strategy_templates_b
154: where strategy_temp_id = p_Strategy_temp_id;
155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
156: IEX_DEBUG_PUB.LogMessage( 'Strategy template :' || p_Strategy_temp_id || ' ,StrategyLevel :' || l_DefaultStrategyLevel);
157: END IF;
158: EXCEPTION
159: WHEN OTHERS THEN

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

156: IEX_DEBUG_PUB.LogMessage( 'Strategy template :' || p_Strategy_temp_id || ' ,StrategyLevel :' || l_DefaultStrategyLevel);
157: END IF;
158: EXCEPTION
159: WHEN OTHERS THEN
160: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
161: IEX_DEBUG_PUB.LogMessage( 'Strategy template Level Rised Exception ');
162: END IF;
163: l_DefaultStrategyLevel := 40;
164: END;

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

308:
309: /* check the default profile valuse */
310: /* Check the required profiles for Strategy Concurrent before starting */
311: if (NVL(FND_PROFILE.VALUE('IEX_STRATEGY_DISABLED'), 'N') = 'Y') then
312: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
313: IEX_DEBUG_PUB.LogMessage( 'Strategy creation aborted. ' );
314: IEX_DEBUG_PUB.LogMessage( 'Strategy Disabled by Profile ');
315: END IF;
316: return;

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

316: return;
317: end if;
318:
319: if (l_DefaultStrategyLevel = 50) Then
320: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
321: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );
322: IEX_DEBUG_PUB.LogMessage( 'No Default Strategy Run Level from IEX_APP_PREFERENCES ');
323: END IF;
324: b_Skip := 'T';

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

325: end if;
326:
327: l_StrategyTempID := NVL(to_number(FND_PROFILE.VALUE('IEX_STRATEGY_DEFAULT_TEMPLATE')), 0);
328: if (l_StrategyTempID = 0) Then
329: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
330: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );
331: IEX_DEBUG_PUB.LogMessage( 'No Default Strategy Template Profile ');
332: END IF;
333: b_Skip := 'T';

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

333: b_Skip := 'T';
334: end if;
335:
336: if (l_default_rs_ID = 0) Then
337: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
338: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );
339: IEX_DEBUG_PUB.LogMessage( 'Strategy Default Resource Profile not set. ');
340: IEX_DEBUG_PUB.LogMessage( 'Default Resource need to have view access all customers, if security enabled ');
341: END IF;

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

342: b_Skip := 'T';
343: end if;
344:
345: if (l_resource_ID = 0) Then
346: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
347: IEX_DEBUG_PUB.LogMessage( 'Strategy creation stopped. ' );
348: IEX_DEBUG_PUB.LogMessage( 'Strategy Fulfilment Resource Profile not set. ');
349: IEX_DEBUG_PUB.LogMessage( 'Fulfilment Resource should be configured for fulfilment ');
350: END IF;

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

364: IF FND_API.to_Boolean( l_init_msg_list ) THEN
365: FND_MSG_PUB.initialize;
366: END IF;
367:
368: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
369: IEX_DEBUG_PUB.LogMessage(
370: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
371: print_date => 'Y');
372: END IF;

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

370: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
371: print_date => 'Y');
372: END IF;
373:
374: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
375: IEX_DEBUG_PUB.LogMessage(
376: debug_msg => '1. D.ID= ' || p_delinquencyID || ' OID= ' || P_objectid || ' OT.= ' || P_objectType,
377: print_date => 'Y');
378: END IF;

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

383: --Start bug 6798118 gnramasa 05 Feb 08
384: If l_ObjectType in ('PARTY','ACCOUNT','BILL_TO','DELINQUENT') THEN
385: if (l_ObjectType = 'PARTY') then
386: -- IF PG_DEBUG < 10 THEN
387: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
388: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Party);
389: END IF;
390: Execute Immediate C_Party into fPartyCustID, fCustAccountID, fCustomerSiteUseId,
391: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

392: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
393: using p_ObjectID;
394: elsif (l_ObjectType = 'ACCOUNT') then
395: -- IF PG_DEBUG < 10 THEN
396: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
397: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_IEX_Account);
398: END IF;
399: Execute Immediate C_IEX_Account into fPartyCustID, fCustAccountID, fCustomerSiteUseId,
400: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

401: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
402: using p_ObjectID;
403: elsif (l_ObjectType = 'BILL_TO') then
404: -- IF PG_DEBUG < 10 THEN
405: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
406: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_IEX_BILLTO);
407: END IF;
408: Execute Immediate C_IEX_BILLTO into fPartyCustID, fCustAccountID, fCustomerSiteUseId,
409: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

410: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
411: using p_ObjectID;
412: elsif (l_objectType = 'DELINQUENT') then
413: -- IF PG_DEBUG < 10 THEN
414: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
415: iex_debug_pub.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_DelSelect );
416: END IF;
417: Execute Immediate c_DelSelect into fPartyCustID, fcustAccountID, fCustomerSiteUseId,
418: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

425: if p_DelinquencyID IS NOT NULL then
426: BEGIN
427: if (l_ObjectType = 'BANKRUPTCY') then
428: -- IF PG_DEBUG < 10 THEN
429: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
430: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_Bankruptcy);
431: END IF;
432: Execute Immediate c_Bankruptcy into fPartyCustID, fcustAccountID, fCustomerSiteUseId,
433: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

435: using p_DelinquencyID, p_ObjectID;
436:
437: elsif (l_ObjectType = 'WRITEOFF') then
438: -- IF PG_DEBUG < 10 THEN
439: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
440: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_WriteOff);
441: END IF;
442: Execute Immediate c_WriteOff into fPartyCustId, fcustAccountID, fCustomerSiteUseId,
443: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

445: using p_DelinquencyID, p_ObjectID;
446:
447: elsif (l_ObjectType = 'REPOSSESSION') then
448: -- IF PG_DEBUG < 10 THEN
449: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
450: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_Repossession);
451: END IF;
452: Execute Immediate c_Repossession into fPartyCustId, fCustAccountID, fCustomerSiteUseId,
453: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

455: using p_DelinquencyID, p_ObjectID;
456:
457: elsif (l_ObjectType = 'LITIGATION') then
458: -- IF PG_DEBUG < 10 THEN
459: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
460: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || c_Litigation);
461: END IF;
462: Execute Immediate c_Litigation into fPartyCustID, fCustAccountId, fCustomerSiteUseId,
463: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

465: using p_DelinquencyID, p_ObjectID;
466:
467:
468: else
469: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
470: IEX_DEBUG_PUB.LogMessage('ERROR: IEX_UNKNOWN_OBJTYPE ' || l_objectType);
471: END IF;
472:
473: FND_MESSAGE.Set_Name('IEX', 'IEX_UNKNOWN_OBJTYPE');

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

479: end if;
480:
481: EXCEPTION
482: When NO_DATA_FOUND then
483: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
484: IEX_DEBUG_PUB.LogMessage('ERROR: IEX_OBJECT_NOT_EXISTS' || l_objectType);
485: END IF;
486:
487: FND_MESSAGE.Set_Name('IEX', 'IEX_OBJECT_NOT_EXISTS');

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

493:
494: END;
495: elsif p_ObjectID IS NOT NULL then
496: begin
497: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
498: IEX_DEBUG_PUB.logmessage('p_ObjectID IS NOT NULL, p_ObjectID : ' || p_ObjectID );
499: END IF;
500: if (l_ObjectType = 'BANKRUPTCY') then
501: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

497: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
498: IEX_DEBUG_PUB.logmessage('p_ObjectID IS NOT NULL, p_ObjectID : ' || p_ObjectID );
499: END IF;
500: if (l_ObjectType = 'BANKRUPTCY') then
501: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
502: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_Bankruptcy);
503: END IF;
504: Execute Immediate C_Cont_Bankruptcy into fPartyCustID, fcustAccountID, fCustomerSiteUseId,
505: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

506: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
507: using p_ObjectID;
508:
509: elsif (l_ObjectType = 'WRITEOFF') then
510: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
511: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_WriteOff);
512: END IF;
513: Execute Immediate C_Cont_WriteOff into fPartyCustId, fcustAccountID, fCustomerSiteUseId,
514: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

515: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
516: using p_ObjectID;
517:
518: elsif (l_ObjectType = 'REPOSSESSION') then
519: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
520: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_Repossession);
521: END IF;
522: Execute Immediate C_Cont_Repossession into fPartyCustId, fCustAccountID, fCustomerSiteUseId,
523: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

524: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
525: using p_ObjectID;
526:
527: elsif (l_ObjectType = 'LITIGATION') then
528: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
529: IEX_DEBUG_PUB.logmessage('create_strategy: ' || 'STEP 35 Query: ' || C_Cont_Litigation);
530: END IF;
531: Execute Immediate C_Cont_Litigation into fPartyCustID, fCustAccountId, fCustomerSiteUseId,
532: fDelinquencyID, fTransactionID, fPaymentScheduleID, fObjectID,

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

533: fObjectType, fScoreValue, fStrategyLevel, fJTFObjectId, fJTFobjectType
534: using p_ObjectID;
535:
536: else
537: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
538: IEX_DEBUG_PUB.LogMessage(
539: debug_msg => 'ERROR: IEX_UNKNOWN_OBJTYPE ' || l_objectType,
540: print_date => 'Y');
541: END IF;

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

549: end if;
550:
551: EXCEPTION
552: When NO_DATA_FOUND then
553: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
554: IEX_DEBUG_PUB.LogMessage(
555: debug_msg => 'ERROR: IEX_OBJECT_NOT_EXISTS' || l_objectType,
556: print_date => 'Y');
557: END IF;

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

591: select preference_value
592: into l_StrategyLevel
593: from iex_app_preferences_b
594: where preference_name = 'COLLECTIONS STRATEGY LEVEL' and enabled_flag = 'Y' and org_id is null; -- Changed for bug 8708271 multi level strategy
595: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
596: IEX_DEBUG_PUB.LogMessage( 'StrategyLevel ' || l_StrategyLevel);
597: END IF;
598: EXCEPTION
599: WHEN OTHERS THEN

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

596: IEX_DEBUG_PUB.LogMessage( 'StrategyLevel ' || l_StrategyLevel);
597: END IF;
598: EXCEPTION
599: WHEN OTHERS THEN
600: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
601: IEX_DEBUG_PUB.LogMessage( 'Strategy Level Rised Exception ');
602: END IF;
603: l_StrategyLevel := 'CUSTOMER';
604: END;

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

625: --fObjectId := l_stry_cnt_rec.customer_site_use_id;
626: --fObjectType := 'IEX_BILLTO';
627: end if;
628:
629: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
630: IEX_DEBUG_PUB.LogMessage( 'l_ObjectId : ' || l_ObjectId);
631: IEX_DEBUG_PUB.LogMessage( 'l_Score_level : ' || l_Score_level);
632: IEX_DEBUG_PUB.LogMessage( 'l_DefaultStrategyLevel : ' || l_DefaultStrategyLevel);
633: END IF;

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

637: fetch c_Score_Exists into fScoreValue;
638: Close c_Score_Exists;
639:
640: IF fScoreValue IS NOT NULL then
641: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
642: IEX_DEBUG_PUB.LogMessage( ' Got New Score using c_Score_Exists '
643: || '; l_ObjectId = ' || l_ObjectId
644: || '; Score Value = ' || fScoreValue );
645: end if;

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

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

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

661: from iex_delinquencies
662: where delinquency_id = l_stry_cnt_rec.delinquency_id;
663: exception
664: WHEN OTHERS THEN
665: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
666: IEX_DEBUG_PUB.LogMessage( 'While selecting payment_schedule_id Rised Exception ');
667: END IF;
668: end;
669:

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

671: fetch c_score_exists_del into fScoreValue;
672: Close c_score_exists_del;
673:
674: IF fScoreValue IS NOT NULL then
675: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
676: IEX_DEBUG_PUB.LogMessage( ' Got New Score using c_Score_Exists_del '
677: || '; l_payment_schedule_id = ' || l_payment_schedule_id
678: || '; delinquency_id = ' || l_stry_cnt_rec.delinquency_id
679: || '; Score Value = ' || fScoreValue );

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

678: || '; delinquency_id = ' || l_stry_cnt_rec.delinquency_id
679: || '; Score Value = ' || fScoreValue );
680: end if;
681: ELSE
682: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
683: IEX_DEBUG_PUB.LogMessage('Score not exist for this object');
684: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');
685: END IF;
686: l_strategy_rec.score_value := 0;

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

693: end if;
694:
695: else
696: if (l_ObjectType = 'PARTY' OR l_ObjectType = 'IEX_ACCOUNT' OR l_ObjectType = 'IEX_BILLTO') AND (fScoreValue IS NULL) THEN
697: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
698: IEX_DEBUG_PUB.LogMessage('create_strategy: l_ObjectType = ' || l_ObjectType);
699: IEX_DEBUG_PUB.LogMessage('create_strategy: fScoreValue = ' || fScoreValue);
700: END IF;
701: BEGIN

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

705:
706: EXCEPTION
707: WHEN OTHERS THEN
708: -- IF PG_DEBUG < 10 THEN
709: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
710: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');
711: END IF;
712: l_strategy_rec.score_value := 0;
713: END;

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

720: --l_stry_cnt_rec.jtf_object_type := fJTFObjectType;
721: --End added by gnramasa for bug 6359338 23-Aug-07
722:
723:
724: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
725: IEX_DEBUG_PUB.LogMessage( debug_msg => '2. D.ID= '
726: || l_stry_cnt_rec.delinquency_id || ' OId= ' || l_stry_cnt_rec.object_id
727: || ' OT= ' || l_stry_cnt_rec.object_type || ' SV= ' || l_stry_cnt_rec.score_value,
728: print_date => 'Y');

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

735: p_stry_cnt_rec => l_stry_cnt_rec,
736: x_strategy_template_id => l_strategy_template_id
737: );
738:
739: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
740: IEX_DEBUG_PUB.LogMessage( debug_msg => '3. D.ID= ' || l_stry_cnt_rec.delinquency_id ||
741: ' S.TID=' || l_strategy_template_id, print_date => 'Y');
742: END IF;
743:

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

784: Close c_Score_Exists;
785: EXCEPTION
786: WHEN OTHERS THEN
787: -- IF PG_DEBUG < 10 THEN
788: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
789: IEX_DEBUG_PUB.LogMessage('create_strategy: ' || 'NO score available ');
790: END IF;
791: l_strategy_rec.score_value := 0;
792: END;

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

828: fetch c_Strategy_Exists into vStrategyStatus;
829: Close C_Strategy_Exists;
830: End if;
831:
832: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
833: IEX_DEBUG_PUB.LogMessage( debug_msg => '4. S.St=' || vStrategyStatus, print_date => 'Y');
834: END IF;
835:
836: if (vStrategyStatus IS NULL) or vStrategyStatus in ('CANCELLED', 'CLOSED') then

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

835:
836: if (vStrategyStatus IS NULL) or vStrategyStatus in ('CANCELLED', 'CLOSED') then
837:
838:
839: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
840: IEX_DEBUG_PUB.LogMessage( debug_msg => '5. Create strategy ', print_date => 'Y');
841: END IF;
842:
843: Begin

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

852: x_msg_data=>l_msg_data,
853: x_strategy_id => l_strategy_id
854: );
855:
856: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
857: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Return status = ' || l_return_status, print_date => 'Y');
858: END IF;
859:
860: if (x_return_status <> 'S') then

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

862: end if;
863:
864: l_strategy_rec.strategy_id := l_strategy_id;
865:
866: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
867: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Strategy created. id = ' || l_strategy_id, print_date => 'Y');
868: END IF;
869:
870: EXCEPTION

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_STRATEGY_CREATE_FAILED' || to_char(fObjectID), print_date => 'Y');
874: END IF;
875:
876: FND_MESSAGE.Set_Name('IEX', 'IEX_STRATEGY_CREATE_FAILED');

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

881:
882: END;
883:
884:
885: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
886: IEX_DEBUG_PUB.LogMessage( debug_msg => '6. Create Workflow ' || l_strategy_rec.strategy_id, print_date => 'Y');
887: END IF;
888:
889: BEGIN

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

898: x_msg_data=>l_msg_data,
899: bConcProg => 'NO'
900: );
901:
902: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
903: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Return status = ' || l_return_status, print_date => 'Y');
904: END IF;
905: IEX_DEBUG_PUB.LogMessage('Return status = ' || l_return_status);
906:

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

909: end if;
910:
911: EXCEPTION
912: WHEN OTHERS THEN
913: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
914: IEX_DEBUG_PUB.LogMessage( debug_msg => 'IEX_LAUNCH_WORKFLOW_FAILED' || to_char(fObjectID), print_date => 'Y');
915: END IF;
916:
917: FND_MESSAGE.Set_Name('IEX', 'IEX_LAUNCH_WORKFLOW_FAILED');

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

929:
930: ELSE
931: x_return_status := 'F';
932: IF l_ObjectType in ('LITIGATION', 'REPOSSESSION', 'BANKRUPTCY', 'WRITEOFF') THEN
933: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
934: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Strategy already exists with OPEN status, so strategy is not created.', print_date => 'Y');
935: END IF;
936: ELSE
937: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

933: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
934: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Strategy already exists with OPEN status, so strategy is not created.', print_date => 'Y');
935: END IF;
936: ELSE
937: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
938: IEX_DEBUG_PUB.LogMessage( debug_msg => 'IEX_LAUNCH_WORKFLOW_FAILED' || to_char(fObjectID), print_date => 'Y');
939: END IF;
940:
941: FND_MESSAGE.Set_Name('IEX', 'IEX_LAUNCH_WORKFLOW_FAILED');

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

949: ( p_count => x_msg_count,
950: p_data => x_msg_data
951: );
952:
953: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
954: IEX_DEBUG_PUB.LogMessage( debug_msg => 'Delinquency cursor ends', print_date => 'Y');
955: END IF;
956:
957: IEX_DEBUG_PUB.LogMessage('Delinquency cursor ends' );

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

1028: select decode(preference_value, 'CUSTOMER', 10, 'ACCOUNT', 20, 'BILL_TO', 30, 'DELINQUENCY', 40, 40)
1029: into l_DefaultStrategyLevel
1030: from iex_app_preferences_b
1031: where preference_name = 'COLLECTIONS STRATEGY LEVEL' and enabled_flag = 'Y' and org_id is null; -- Changed for bug 8708271 multi level strategy
1032: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1033: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
1034: END IF;
1035: EXCEPTION
1036: WHEN OTHERS THEN

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

1033: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
1034: END IF;
1035: EXCEPTION
1036: WHEN OTHERS THEN
1037: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1038: IEX_DEBUG_PUB.LogMessage( 'Strategy Level Rised Exception ');
1039: END IF;
1040: l_DefaultStrategyLevel := 40;
1041: END;

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

1040: l_DefaultStrategyLevel := 40;
1041: END;
1042: --End adding for bug 8834310 gnramasa 26th Aug 09
1043:
1044: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1045: IEX_DEBUG_PUB.LogMessage( 'GetStrategyTempID: Object_Type = '
1046: || p_stry_cnt_rec.object_type || ' Delinquency ID = ' || p_stry_cnt_rec.delinquency_id );
1047: END IF;
1048:

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

1115: -- for c_rec in C_StrategyTemp(p_stry_cnt_rec.object_type, p_stry_cnt_rec.delinquency_id) loop
1116: LOOP
1117: FETCH C_StrategyTemp INTO c_rec_Strategy_temp_id, c_Rec_Strategy_Rank, c_Rec_ENTITY_NAME, c_rec_active_flag ;
1118:
1119: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1120: IEX_DEBUG_PUB.LogMessage( ' Get Strategy Template: Inside Cursor. Entity Name '
1121: || c_Rec_Entity_Name
1122: || c_Rec_active_flag
1123: || ' Rank ' || c_Rec_Strategy_Rank);

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

1170: ' where party_id = ' || p_stry_cnt_rec.PARTY_CUST_ID ||
1171: ' and rownum < 2 ';
1172: */
1173: end if;
1174: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1175: IEX_DEBUG_PUB.LogMessage( ' Dynamic SQL in GetStrategyTemplate '
1176: || c_DynSql );
1177: END IF;
1178:

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

1179: --Execute Immediate c_DynSql into v_Exists;
1180:
1181: EXCEPTION
1182: When no_data_found then
1183: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1184: IEX_DEBUG_PUB.LogMessage( ' Get Strategy Template: No Data Found: ' || c_DynSql );
1185: END IF;
1186: v_SkipTemp := 'T';
1187: END;

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

1186: v_SkipTemp := 'T';
1187: END;
1188: end if;
1189:
1190: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1191: IEX_DEBUG_PUB.LogMessage(' Get Strategy Template: v_SkipTemp ' || v_SkipTemp );
1192: END IF;
1193:
1194: if v_SkipTemp <> 'T' then

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

1193:
1194: if v_SkipTemp <> 'T' then
1195:
1196: if (p_stry_cnt_rec.score_value >= c_rec_strategy_rank) then
1197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1198: IEX_DEBUG_PUB.LogMessage(' Get Strategy Template: c_rec_Strategy_temp_id: ' || c_rec_Strategy_temp_id );
1199: END IF;
1200:
1201: x_strategy_template_id := c_rec_Strategy_temp_id;

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

1313: select decode(preference_value, 'CUSTOMER', 10, 'ACCOUNT', 20, 'BILL_TO', 30, 'DELINQUENCY', 40, 40)
1314: into l_DefaultStrategyLevel
1315: from iex_app_preferences_b
1316: where preference_name = 'COLLECTIONS STRATEGY LEVEL' and enabled_flag = 'Y' and org_id is null; -- Changed for bug 8708271 multi level strategy
1317: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1318: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
1319: END IF;
1320: EXCEPTION
1321: WHEN OTHERS THEN

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

1318: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
1319: END IF;
1320: EXCEPTION
1321: WHEN OTHERS THEN
1322: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1323: IEX_DEBUG_PUB.LogMessage( 'Strategy Level Rised Exception ');
1324: END IF;
1325: l_DefaultStrategyLevel := 40;
1326: END;

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

1352: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1353: FND_MSG_PUB.initialize;
1354: END IF;
1355:
1356: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1357: IEX_DEBUG_PUB.LogMessage(
1358: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
1359: print_date => 'Y');
1360: END IF;

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

1362: -- Debug Message
1363: IEX_DEBUG_PUB.LogMessage('PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start');
1364:
1365:
1366: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1367: IEX_DEBUG_PUB.LogMessage(
1368: debug_msg => '1. D.ID= ' || p_delinquencyID || ' OID= ' || P_objectid || ' OT.= ' || P_objectType,
1369: print_date => 'Y');
1370: END IF;

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

1371:
1372: -- Initialize API return status to SUCCESS
1373: x_return_status := FND_API.G_RET_STS_SUCCESS;
1374: -- Debug Message
1375: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1376: IEX_DEBUG_PUB.LogMessage(
1377: debug_msg => '2. CHECK VALID STATUS => ' || p_Status,
1378: print_date => 'Y');
1379: END IF;

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

1417: return;
1418: end if;
1419: --end bug#2369298 schekuri 24-Feb-2006
1420:
1421: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1422: IEX_DEBUG_PUB.LogMessage(
1423: debug_msg => '4. Current S.St=' || vStrategyStatus ,
1424: print_date => 'Y');
1425: END IF;

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

1425: END IF;
1426:
1427: if ((fStrategyID IS NOT NULL) and vStrategyStatus NOT IN ('CLOSED', 'CANCELLED')) then
1428:
1429: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1430: IEX_DEBUG_PUB.LogMessage(
1431: debug_msg => '5. Update strategy ' || fStrategyID,
1432: print_date => 'Y');
1433: END IF;

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

1454: end if;
1455:
1456: EXCEPTION
1457: WHEN OTHERS THEN
1458: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1459: IEX_DEBUG_PUB.LogMessage(
1460: debug_msg => 'IEX_STRATEGY_UPDATE_FAILED' || fObjectID,
1461: print_date => 'Y');
1462: END IF;

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

1489: end if;
1490:
1491: x_return_status := 'F';
1492:
1493: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1494: IEX_DEBUG_PUB.LogMessage(
1495: debug_msg => 'IEX_NO_STRATEGIES_EXIST ' || fObjectID,
1496: print_date => 'Y');
1497: END IF;

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

1624: end if;
1625:
1626: FND_MSG_PUB.initialize;
1627:
1628: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1629: IEX_DEBUG_PUB.LogMessage(
1630: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
1631: print_date => 'Y');
1632: END IF;

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

1631: print_date => 'Y');
1632: END IF;
1633:
1634:
1635: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1636: IEX_DEBUG_PUB.LogMessage(
1637: debug_msg => '1. D.ID= ' || p_delinquencyID || ' OID= ' || P_objectid || ' OT.= ' || P_objectType,
1638: print_date => 'Y');
1639: END IF;

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

1642: x_return_status := FND_API.G_RET_STS_SUCCESS;
1643:
1644: --Start bug 6723540 gnramasa 02 Jan 08
1645: if p_delinquencyid is not null then
1646: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1647: IEX_DEBUG_PUB.LogMessage(debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name ||' : p_delinquencyid = ' || p_delinquencyid,
1648: print_date => 'Y');
1649: END IF;
1650: Open c_Strategy(p_delinquencyid, p_objectid, p_objecttype);

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

1650: Open c_Strategy(p_delinquencyid, p_objectid, p_objecttype);
1651: fetch c_Strategy into fStrategyID, fStrategyName, fWorkItemId, fWorkItemName;
1652: Close C_Strategy;
1653: elsif p_objectid is not null then
1654: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1655: IEX_DEBUG_PUB.LogMessage(debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name ||' : p_objectid = ' || p_objectid,
1656: print_date => 'Y');
1657: END IF;
1658: Open c_cont_Strategy(p_objectid, p_objecttype);

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

1658: Open c_cont_Strategy(p_objectid, p_objecttype);
1659: fetch c_cont_Strategy into fStrategyID, fStrategyName, fWorkItemId, fWorkItemName;
1660: Close c_cont_Strategy;
1661: else
1662: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1663: IEX_DEBUG_PUB.LogMessage(debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name ||' : p_delinquencyid and p_objectid is NULL',
1664: print_date => 'Y');
1665: END IF;
1666: return;

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

1666: return;
1667: end if;
1668: --End bug 6723540 gnramasa 02 Jan 08
1669:
1670: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1671: IEX_DEBUG_PUB.LogMessage(
1672: debug_msg => '4. WorkItemName=' || fWorkItemName,
1673: print_date => 'Y');
1674: END IF;

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

1680: x_workItemName := fWorkItemName;
1681: else
1682: x_return_status := 'F';
1683:
1684: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1685: IEX_DEBUG_PUB.LogMessage(debug_msg => 'IEX_NO_STRATEGY_EXISTS ' || p_DelinquencyID,
1686: print_date => 'Y');
1687: END IF;
1688:

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

1695: end if;
1696:
1697: EXCEPTION
1698: WHEN NO_DATA_FOUND then
1699: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1700: IEX_DEBUG_PUB.LogMessage(debug_msg => 'IEX_NO_STRATEGIES_EXIST ' || p_DelinquencyID,
1701: print_date => 'Y');
1702: END IF;
1703:

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

1803: select decode(preference_value, 'CUSTOMER', 10, 'ACCOUNT', 20, 'BILL_TO', 30, 'DELINQUENCY', 40, 40)
1804: into l_DefaultStrategyLevel
1805: from iex_app_preferences_b
1806: where preference_name = 'COLLECTIONS STRATEGY LEVEL' and enabled_flag = 'Y' and org_id is null; -- Changed for bug 8708271 multi level strategy
1807: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1808: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
1809: END IF;
1810: EXCEPTION
1811: WHEN OTHERS THEN

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

1808: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
1809: END IF;
1810: EXCEPTION
1811: WHEN OTHERS THEN
1812: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1813: IEX_DEBUG_PUB.LogMessage( 'Strategy Level Rised Exception ');
1814: END IF;
1815: l_DefaultStrategyLevel := 40;
1816: END;

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

1835: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1836: FND_MSG_PUB.initialize;
1837: END IF;
1838:
1839: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1840: IEX_DEBUG_PUB.LogMessage(
1841: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
1842: print_date => 'Y');
1843: END IF;

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

1841: debug_msg => 'PUB:' || G_PKG_NAME || '.' || l_api_name || ' Start',
1842: print_date => 'Y');
1843: END IF;
1844:
1845: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1846: IEX_DEBUG_PUB.LogMessage(
1847: debug_msg => '1. D.ID= ' || p_delinquencyID || ' OID= ' || P_objectid || ' OT.= ' || P_objectType,
1848: print_date => 'Y');
1849: END IF;

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

1884: -- Open c_Strategy_Exists(p_delinquencyid, p_objectid, p_objecttype);
1885: fetch c_open_strategies into fStrategyID, vStrategyStatus, fStrategyVersionNumber;
1886: Close c_open_strategies;
1887:
1888: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1889: IEX_DEBUG_PUB.LogMessage(
1890: debug_msg => '4. Current S.St=' || vStrategyStatus ,
1891: print_date => 'Y');
1892: END IF;

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

1892: END IF;
1893:
1894: if ((fStrategyID IS NOT NULL) and vStrategyStatus NOT IN ('CLOSED', 'CANCELLED')) then
1895:
1896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1897: IEX_DEBUG_PUB.LogMessage(
1898: debug_msg => '5. Update strategy ' || fStrategyID,
1899: print_date => 'Y');
1900: END IF;

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

1921: end if;
1922:
1923: EXCEPTION
1924: WHEN OTHERS THEN
1925: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1926: IEX_DEBUG_PUB.LogMessage(
1927: debug_msg => 'IEX_STRATEGY_UPDATE_FAILED' || fObjectID,
1928: print_date => 'Y');
1929: END IF;

Line 1978: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1974:
1975:
1976: BEGIN
1977: -- initialize variables
1978: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1979:
1980: l_MsgLevel := NVL(to_number(FND_PROFILE.VALUE('FND_AS_MSG_LEVEL_THRESHOLD')), FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
1981: l_DefaultTempID := GetDefaultStrategyTempID;
1982:

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

1986: select decode(preference_value, 'CUSTOMER', 10, 'ACCOUNT', 20, 'BILL_TO', 30, 'DELINQUENCY', 40, 40)
1987: into l_DefaultStrategyLevel
1988: from iex_app_preferences_b
1989: where preference_name = 'COLLECTIONS STRATEGY LEVEL' and enabled_flag = 'Y' and org_id is null; -- Changed for bug 8708271 multi level strategy
1990: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1991: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
1992: END IF;
1993: EXCEPTION
1994: WHEN OTHERS THEN

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

1991: IEX_DEBUG_PUB.LogMessage( 'Default StrategyLevel ' || l_DefaultStrategyLevel);
1992: END IF;
1993: EXCEPTION
1994: WHEN OTHERS THEN
1995: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1996: IEX_DEBUG_PUB.LogMessage( 'Strategy Level Rised Exception ');
1997: END IF;
1998: l_DefaultStrategyLevel := 40;
1999: END;