DBA Data[Home] [Help]

APPS.IEX_STRATEGY_WORK_PUB dependencies on FND_LOG

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

112: l_org_id := mo_global.get_current_org_id;
113:
114:
115: -- IF PG_DEBUG < 10 THEN
116: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
117: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, funcmode = ' || funcmode);
118: END IF;
119:
120: if funcmode <> 'RUN' then

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

122: return;
123: end if;
124:
125: -- IF PG_DEBUG < 10 THEN
126: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
127: iex_debug_pub.logmessage ('send_mail: ' || 'itemtype = ' || itemtype);
128: END IF;
129: -- IF PG_DEBUG < 10 THEN
130: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

126: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
127: iex_debug_pub.logmessage ('send_mail: ' || 'itemtype = ' || itemtype);
128: END IF;
129: -- IF PG_DEBUG < 10 THEN
130: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
131: iex_debug_pub.logmessage ('send_mail: ' || 'itemtkey = ' || itemkey);
132: END IF;
133: l_party_id := wf_engine.GetItemAttrNumber(
134: itemtype => itemtype,

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

137:
138: if (l_party_id <> 0) then
139:
140: -- IF PG_DEBUG < 10 THEN
141: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
142: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, after PARTY_ID ='|| l_PARTY_ID );
143: END IF;
144:
145: l_count := l_count +1;

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

155: itemkey => itemkey,
156: aname => 'STRATEGY_ID');
157: if (l_strategy_id <> 0) then
158: -- IF PG_DEBUG < 10 THEN
159: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
160: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, strategy_id ' );
161: END IF;
162: l_count := l_count +1;
163: l_fulfillment_bind_tbl(l_count).key_name := 'strategy_id';

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

170: itemkey => itemkey,
171: aname => 'DELINQUENCY_ID');
172: if (l_delinquency_id <> 0) then
173: -- IF PG_DEBUG < 10 THEN
174: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
175: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, delinquency_id ' );
176: END IF;
177: l_count := l_count +1;
178: l_fulfillment_bind_tbl(l_count).key_name := 'delinquency_id';

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

185: itemkey => itemkey,
186: aname => 'CUST_ACCOUNT_ID');
187: if (l_cust_account_id <> 0) then
188: -- IF PG_DEBUG < 10 THEN
189: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
190: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, cust_account_id ' );
191: END IF;
192: l_count := l_count +1;
193: l_fulfillment_bind_tbl(l_count).key_name := 'cust_account_id';

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

208: itemkey => itemkey,
209: aname => 'OVERDUE_AMOUNT');
210: if (l_overdue_amount <> 0) then
211: -- IF PG_DEBUG < 10 THEN
212: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
213: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, overdue_amount ');
214: END IF;
215: l_count := l_count +1;
216: l_fulfillment_bind_tbl(l_count).key_name := 'overdue_amount';

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

225: itemkey => itemkey,
226: aname => 'DELINQUENCY_STATUS');
227: if (l_delinquency_status is not null) then
228: -- IF PG_DEBUG < 10 THEN
229: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
230: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, delinquency_status ' );
231: END IF;
232: l_count := l_count +1;
233: l_fulfillment_bind_tbl(l_count).key_name := 'delinquency_status';

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

237: */
238:
239: if (l_org_id is not null) then
240: -- IF PG_DEBUG < 10 THEN
241: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
242: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, org_id ' );
243: END IF;
244: l_count := l_count +1;
245: l_fulfillment_bind_tbl(l_count).key_name := 'org_id';

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

253: aname => 'AGING_BUCKET_LINE_ID');
254: /* not pass the l_aging_bucket_line_id - pass customer_site_use_id instead
255: if (l_aging_bucket_line_id <> 0) then
256: --IF PG_DEBUG < 10 THEN
257: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
258: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, aging_bucket_line_id ' );
259: END IF;
260: l_count := l_count +1;
261: l_fulfillment_bind_tbl(l_count).key_name := 'aging_bucket_line_id';

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

269: itemkey => itemkey,
270: aname => 'CUSTOMER_SITE_USE_ID');
271: if (l_customer_site_use_id <> 0) then
272: -- IF PG_DEBUG < 10 THEN
273: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
274: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, customer_site_use_id ' );
275: END IF;
276: l_count := l_count +1;
277: l_fulfillment_bind_tbl(l_count).key_name := 'customer_site_use_id';

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

285: itemkey => itemkey,
286: aname => 'PAYMENT_SCHEDULE_ID');
287: if (l_payment_schedule_id <> 0) then
288: -- IF PG_DEBUG < 10 THEN
289: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
290: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, payment_schedule_id ');
291: END IF;
292: l_count := l_count +1;
293: l_fulfillment_bind_tbl(l_count).key_name := 'payment_schedule_id';

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

303: itemtype => itemtype,
304: itemkey => itemkey,
305: aname => 'XDO_TEMPLATE_ID');
306: if (l_template_id <> 0) then
307: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
308: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, template_id ' );
309: END IF;
310: end if;
311:

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

309: END IF;
310: end if;
311:
312: if (l_xdo_template_id <> 0) then
313: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
314: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, xdo_template_id ' );
315: END IF;
316: end if;
317: /*

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

333: itemkey => itemkey,
334: aname => 'WORKITEM_ID');
335: if (l_workitem_id <> 0) then
336: -- IF PG_DEBUG < 10 THEN
337: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
338: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, workitem_id ' );
339: END IF;
340: /*
341: l_count := l_count +1;

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

348: return;
349: end if;
350:
351: -- IF PG_DEBUG < 10 THEN
352: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
353: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, l_count ='|| l_count );
354: END IF;
355:
356: -- ctlee - check the hz_customer_profiles.dunning_letter

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

378: EXCEPTION
379: WHEN OTHERS THEN
380: NULL;
381: END;
382: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
383: iex_debug_pub.logmessage ('send_mail: ' || ' check fail dunning profile check ' );
384: END IF;
385: return;
386: end if;

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

409: EXCEPTION
410: WHEN OTHERS THEN
411: NULL;
412: END;
413: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
414: iex_debug_pub.logmessage ('send_mail: ' || ' check fail dunning min amount check ' );
415: END IF;
416: return;
417:

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

443: l_dunning_rec.dunning_method := l_dunning_method; -- default
444: end;
445:
446: -- IF PG_DEBUG < 10 THEN
447: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
448: iex_debug_pub.logmessage ('send_mail: ' || ' after fulfil method');
449: END IF;
450:
451: -- ctlee - 5/20 create dunning record; 11/21/2002 remove checking profile error when update a non-existing record

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

470: into l_DefaultStrategyLevel
471: from iex_strategies
472: where strategy_id = l_strategy_id;
473:
474: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
475: iex_debug_pub.logmessage('Default StrategyLevel ' || l_DefaultStrategyLevel);
476: END IF;
477: EXCEPTION
478: WHEN OTHERS THEN

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

475: iex_debug_pub.logmessage('Default StrategyLevel ' || l_DefaultStrategyLevel);
476: END IF;
477: EXCEPTION
478: WHEN OTHERS THEN
479: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
480: iex_debug_pub.logmessage('Strategy Level Rised Exception ');
481: END IF;
482: l_DefaultStrategyLevel := 'DELINQUENCY';
483: END;

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

525: , x_msg_data => l_msg_data
526: );
527: exception
528: when others then
529: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
530: iex_debug_pub.logmessage ('close dunning before fulfillment exception');
531: END IF;
532: end;
533: END LOOP;

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

532: end;
533: END LOOP;
534:
535: -- IF PG_DEBUG < 10 THEN
536: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
537: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, before create dunning ' );
538: END IF;
539: -- Start Added by gnramasa for bug 5661324 14-Mar-07
540: l_dunning_rec.template_id:= l_template_id;

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

556: l_fulfillment_bind_tbl(l_count).key_type := 'NUMBER';
557: l_fulfillment_bind_tbl(l_count).key_value := to_char(l_dunning_id);
558: -- End Added by gnramasa for bug 5661324 14-Mar-07
559: -- IF PG_DEBUG < 10 THEN
560: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
561: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, before send_fulfillment ' );
562: END IF;
563: -- call fulfilment function with multiple bind variables.
564: -- ctlee - 6/18 fulfillment printer method available

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

604: x_contact_destination => l_contact_destination, -- bug 3955222
605: x_contact_party_id => l_contact_party_id); -- bug 3955222
606: end if;
607: -- Start Change by gnramasa for bug 5661324 14-Mar-07
608: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
609: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, after send_fulfillment ' );
610: iex_debug_pub.logmessage ('send_mail: ' || 'request_id =>'|| l_request_id);
611: iex_debug_pub.logmessage ('send_mail: ' || 'return_status =>'|| l_return_status);
612: iex_debug_pub.logmessage ('send_mail: ' || 'msg_count =>' || l_msg_count);

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

642: all_message := null;
643: FOR l_index IN 1..l_msg_count LOOP
644: my_message := FND_MSG_PUB.Get(p_msg_index => l_index,
645: p_encoded => 'F');
646: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
647: iex_debug_pub.logmessage ('send_mail: ' || my_message);
648: END IF;
649: if all_message is null then
650: all_message := my_message;

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

702: , x_msg_count => l_msg_count
703: , x_msg_data => l_msg_data
704: );
705:
706: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
707: iex_debug_pub.logmessage ('update dunning l_status =>' || l_return_status);
708: iex_debug_pub.logmessage ('send_mail: ' || 'result =>' || result);
709: END IF;
710:

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

725: where resource_id =p_resource_id;
726:
727: BEGIN
728: -- IF PG_DEBUG < 10 THEN
729: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
730: iex_debug_pub.logmessage ('**** BEGIN get_username ************');
731: END IF;
732: OPEN c_getname(p_resource_id);
733: FETCH c_getname INTO x_username;

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

732: OPEN c_getname(p_resource_id);
733: FETCH c_getname INTO x_username;
734: CLOSE c_getname;
735: -- IF PG_DEBUG < 10 THEN
736: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
737: iex_debug_pub.logmessage ('**** END get_username ************');
738: END IF;
739: END get_username;
740: -- End Change by gnramasa for bug 5661324 14-Mar-07

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

789: l_SkipFlag NUMBER;
790: --End bug#5502077 schekuri 02-May-2007
791: BEGIN
792: -- IF PG_DEBUG < 10 THEN
793: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
794: iex_debug_pub.logmessage('populate_fulfillment_wait: ' || 'DEL ID = ' ||p_delinquency_id);
795: END IF;
796:
797: -- IF PG_DEBUG < 10 THEN

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

794: iex_debug_pub.logmessage('populate_fulfillment_wait: ' || 'DEL ID = ' ||p_delinquency_id);
795: END IF;
796:
797: -- IF PG_DEBUG < 10 THEN
798: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
799: iex_debug_pub.logmessage('populate_fulfillment_wait: ' || 'work item id = ' ||p_work_item_id);
800: END IF;
801: begin
802: select a.strategy_level,b.resource_id,a.strategy_id --Added strategy_id for bug#5502077 schekuri 02-May-2007

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

824: aname => 'NOTIFICATION_USERNAME',
825: avalue => l_username);
826:
827: -- IF PG_DEBUG < 10 THEN
828: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
829: iex_debug_pub.logmessage('populate_fulfillment_wait: ' || 'strategy_level = ' ||l_strategy_level);
830: END IF;
831:
832: if l_strategy_level = 10 or l_strategy_level = 20 or l_strategy_level = 30 then

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

832: if l_strategy_level = 10 or l_strategy_level = 20 or l_strategy_level = 30 then
833: FOR party_rec in c_get_party(p_work_item_id)
834: LOOP
835: -- IF PG_DEBUG < 10 THEN
836: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
837: iex_debug_pub.logmessage('populate_fulfillment_wait: ' || 'INSIDE THE LOOP ' ||party_rec.party_id);
838: iex_debug_pub.logmessage('populate_fulfillment_wait: ' || 'INSIDE THE LOOP ' ||party_rec.cust_account_id);
839: END IF;
840: wf_engine.SetItemAttrNumber(itemtype => itemtype,

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

870: else
871: FOR d_rec in c_get_del(p_delinquency_id)
872: LOOP
873: -- IF PG_DEBUG < 10 THEN
874: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
875: iex_debug_pub.logmessage('populate_fulfillment_wait: ' || 'INSIDE THE LOOP ' ||d_rec.party_id);
876: END IF;
877: wf_engine.SetItemAttrNumber(itemtype => itemtype,
878: itemkey => itemkey,

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

953: EXCEPTION
954: WHEN OTHERS THEN NULL;
955: END;
956:
957: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
958: iex_debug_pub.logmessage ('populate_fulfillment_wait: check for skip ' || ' SKIP FLAG = ' ||
959: l_SkipFlag);
960: END IF;
961:

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

976: l_UOM =>c_rec.schedule_uom,
977: l_UNIT =>c_rec.schedule_wait);*/
978: --End bug#5502077 schekuri 02-May-2007
979: -- IF PG_DEBUG < 10 THEN
980: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
981: iex_debug_pub.logmessage ('populate_fulfillment_wait: ' || ' SCHEDULE TIME WAIT = ' ||
982: to_char(l_fulfillment_schedule, 'ss:mi:hh24 mm/dd/yyyy'));
983: END IF;
984:

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

998: l_fulfillment_wait:= sysdate;
999: --end bug#5502077 schekuri 30-Apr-2007
1000:
1001: -- IF PG_DEBUG < 10 THEN
1002: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1003: iex_debug_pub.logmessage ('populate_fulfillment_wait: ' || ' EXECUTION TIME WAIT = ' ||
1004: to_char(l_fulfillment_wait, 'ss:mi:hh24 mm/dd/yyyy'));
1005: END IF;
1006:

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

1046: l_api_name := 'STRATEGY_MAILER';
1047:
1048:
1049: --IF PG_DEBUG < 10 THEN
1050: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1051: iex_debug_pub.logmessage ('in strategy_mailer');
1052: END IF;
1053: -- Standard Start of API savepoint
1054: -- SAVEPOINT STRATEGY_MAILER; -- Standard call to check for call compatibility.

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

1052: END IF;
1053: -- Standard Start of API savepoint
1054: -- SAVEPOINT STRATEGY_MAILER; -- Standard call to check for call compatibility.
1055: --IF PG_DEBUG < 10 THEN
1056: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1057: iex_debug_pub.logmessage ('in strategy_mailer 1');
1058: END IF;
1059: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version, l_api_name, G_PKG_NAME) THEN
1060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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

1059: IF NOT FND_API.Compatible_API_Call ( l_api_version_number, p_api_version, l_api_name, G_PKG_NAME) THEN
1060: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1061: END IF;
1062: --IF PG_DEBUG < 10 THEN
1063: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1064: iex_debug_pub.logmessage ('in strategy_mailer 2');
1065: END IF;
1066: -- Initialize message list IF p_init_msg_list is set to TRUE.
1067: IF FND_API.to_Boolean( p_init_msg_list ) THEN

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

1067: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1068: FND_MSG_PUB.initialize;
1069: END IF;
1070: --IF PG_DEBUG < 10 THEN
1071: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1072: iex_debug_pub.logmessage ('in strategy_mailer 3');
1073: END IF;
1074:
1075:

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

1078: l_itemtype := 'IEXSTFFM';
1079: l_workflowprocess := 'IEXSTFFM';
1080: l_itemkey := p_strategy_mailer_rec.workitem_id;
1081: --IF PG_DEBUG < 10 THEN
1082: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1083: iex_debug_pub.logmessage ('in strategy_mailer 4');
1084: END IF;
1085:
1086: wf_engine.createprocess ( itemtype => l_itemtype,

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

1086: wf_engine.createprocess ( itemtype => l_itemtype,
1087: itemkey => l_itemkey,
1088: process => l_workflowprocess);
1089: --IF PG_DEBUG < 10 THEN
1090: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1091: iex_debug_pub.logmessage ('in strategy_mailer 5');
1092: END IF;
1093:
1094:

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

1154: itemkey => l_itemkey
1155: );
1156:
1157: -- IF PG_DEBUG < 10 THEN
1158: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1159: iex_debug_pub.logmessage ('strategy_mailer: ' || ' before start workflow process');
1160: END IF;
1161:
1162: wf_engine.startprocess(itemtype => l_itemtype, itemkey => l_itemkey);

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

1160: END IF;
1161:
1162: wf_engine.startprocess(itemtype => l_itemtype, itemkey => l_itemkey);
1163: -- IF PG_DEBUG < 10 THEN
1164: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1165: iex_debug_pub.logmessage ('strategy_mailer: ' || ' after start workflow process');
1166: END IF;
1167: wf_engine.ItemStatus(
1168: itemtype => l_itemType,

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

1175: else
1176: x_return_status := 'F';
1177: end if;
1178: -- IF PG_DEBUG < 10 THEN
1179: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1180: iex_debug_pub.logmessage ('strategy_mailer: ' || ' workflow return status = ' || l_return_status);
1181: END IF;
1182:
1183:

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

1182:
1183:
1184: EXCEPTION
1185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1186: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1187: iex_debug_pub.logmessage('UNEXPECTED ERROR. PUB: ' || l_api_name || ' end');
1188: iex_debug_pub.logmessage('PUB: ' || l_api_name || ' end');
1189: iex_debug_pub.logmessage('End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1190: END IF;

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

1189: iex_debug_pub.logmessage('End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1190: END IF;
1191:
1192: WHEN OTHERS THEN
1193: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1194: iex_debug_pub.logmessage('UNHANDLED WORKFLOW EXCEPTION. Strategy ID ' || p_strategy_mailer_rec.strategy_id);
1195: iex_debug_pub.logmessage('PUB: ' || l_api_name || ' end');
1196: iex_debug_pub.logmessage('End time:' || TO_CHAR(SYSDATE, 'HH24:MI:SSSSS'));
1197: END IF;

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

1273: --pass the error message
1274: -- get error message and pass
1275: iex_strategy_wf.Get_Messages(l_msg_count,l_error);
1276: -- IF PG_DEBUG < 10 THEN
1277: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1278: iex_debug_pub.logmessage('wf_send_signal: ' || 'error message is ' || l_error);
1279: END IF;
1280: wf_core.context('IEX_STRATEGY_WORK_PUB','wf_send_signal',itemtype,
1281: itemkey,to_char(actid),funcmode,l_error);

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

1374: itemtype => itemtype,
1375: itemkey => itemkey,
1376: aname => 'CUSTOMER_SITE_USE_ID');
1377: -- IF PG_DEBUG < 10 THEN
1378: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1379: iex_debug_pub.logmessage ('check_dunning: ' || ' check dunning, delinquency_id = ' || l_delinquency_id);
1380: iex_debug_pub.logmessage ('check_dunning: ' || ' check dunning, party_id = ' || l_party_id);
1381: iex_debug_pub.logmessage ('check_dunning: ' || ' check dunning, cust_account_id = ' || l_cust_account_id);
1382: iex_debug_pub.logmessage ('check_dunning: ' || ' check dunning, strategy_id = ' || l_strategy_id);

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

1384: iex_debug_pub.logmessage ('check_dunning: ' || ' check dunning, customer_site_use_id = ' || l_customer_site_use_id);
1385: END IF;
1386:
1387: -- IF PG_DEBUG < 10 THEN
1388: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1389: iex_debug_pub.logmessage ('check_dunning: ' || 'USER_ID' || l_user_id || ' RESP_ID ' || l_resp_id);
1390: END IF;
1391: -- IF PG_DEBUG < 10 THEN
1392: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

1388: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1389: iex_debug_pub.logmessage ('check_dunning: ' || 'USER_ID' || l_user_id || ' RESP_ID ' || l_resp_id);
1390: END IF;
1391: -- IF PG_DEBUG < 10 THEN
1392: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1393: iex_debug_pub.logmessage ('check_dunning: ' || 'RESP_APPL_ID' ||l_resp_appl_id);
1394: END IF;
1395: --set the session
1396: --FND_GLOBAL.Apps_Initialize(l_user_id, l_resp_id, l_resp_appl_id);

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

1400: -- if l_delinquency_id is not null then
1401: if l_strategy_level = 'CUSTOMER' then
1402: begin
1403: -- IF PG_DEBUG < 10 THEN
1404: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1405: iex_debug_pub.logmessage ('check_dunning: level 10' || ' check dunning, party_id = ' || l_party_id);
1406: END IF;
1407: if l_party_id is not null then
1408: select count(*) into l_count from iex_dunnings where dunning_id in (

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

1411: and dun.dunning_level = l_strategy_level
1412: and dun.status = 'CLOSE'
1413: and trunc(sysdate) = trunc(dun.creation_date) );
1414: -- IF PG_DEBUG < 10 THEN
1415: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1416: iex_debug_pub.logmessage ('check_dunning: level 10' || ' check dunning, l_count = ' || l_count);
1417: END IF;
1418: if l_count > 0 and l_unique_fulfillment = 'Y' then
1419: wf_engine.SetItemAttrText(itemtype => itemtype,

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

1429: end;
1430: elsif l_strategy_level = 'ACCOUNT' then
1431: begin
1432: -- IF PG_DEBUG < 10 THEN
1433: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1434: iex_debug_pub.logmessage ('check_dunning: level 20' || ' check dunning, cust_account_id = ' || l_cust_account_id);
1435: END IF;
1436: if l_cust_account_id is not null then
1437: select count(*) into l_count from iex_dunnings where dunning_id in (

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

1440: and dun.dunning_level = l_strategy_level
1441: and dun.status = 'CLOSE'
1442: and trunc(sysdate) = trunc(dun.creation_date) );
1443: -- IF PG_DEBUG < 10 THEN
1444: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1445: iex_debug_pub.logmessage ('check_dunning: level 20' || ' check dunning, l_count = ' || l_count);
1446: END IF;
1447: if l_count > 0 and l_unique_fulfillment = 'Y' then
1448: wf_engine.SetItemAttrText(itemtype => itemtype,

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

1458: end;
1459: elsif l_strategy_level = 'BILL_TO' then
1460: begin
1461: -- IF PG_DEBUG < 10 THEN
1462: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1463: iex_debug_pub.logmessage ('check_dunning: level 30' || ' check dunning, customer_site_use_id = ' || l_customer_site_use_id);
1464: END IF;
1465: if l_customer_site_use_id is not null then
1466: select count(*) into l_count from iex_dunnings where dunning_id in (

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

1469: and dun.dunning_level = l_strategy_level
1470: and dun.status = 'CLOSE'
1471: and trunc(sysdate) = trunc(dun.creation_date) );
1472: -- IF PG_DEBUG < 10 THEN
1473: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1474: iex_debug_pub.logmessage ('check_dunning: level 30' || ' check dunning, l_count = ' || l_count);
1475: END IF;
1476: if l_count > 0 and l_unique_fulfillment = 'Y' then
1477: wf_engine.SetItemAttrText(itemtype => itemtype,

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

1488: else -- default level 40
1489: begin
1490: select cust_account_id into l_cust_account_id from iex_delinquencies
1491: where delinquency_id = l_delinquency_id;
1492: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1493: iex_debug_pub.logmessage ('check_dunning: 40 ' || ' check dunning, delinquency_id = ' || l_delinquency_id);
1494: END IF;
1495: if l_cust_account_id is not null then
1496: -- begin bug #4230209 03/09/2005 by ctlee, multiple letters were sent in the same day even unique = 'Y'

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

1508: del.delinquency_id <> l_delinquency_id )
1509: )
1510: and trunc(sysdate) = trunc(dun.creation_date) );
1511: -- end bug #4230209 03/09/2005 by ctlee, multiple letters were sent in the same day even unique = 'Y'
1512: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1513: iex_debug_pub.logmessage ('check_dunning: 40' || ' check dunning, l_count = ' || l_count);
1514: END IF;
1515: if l_count > 0 and l_unique_fulfillment = 'Y' then
1516: wf_engine.SetItemAttrText(itemtype => itemtype,

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

1677: exit;
1678: END LOOP;
1679:
1680: -- IF PG_DEBUG < 10 THEN
1681: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1682: iex_debug_pub.logmessage('resend_fulfillment: ' || 'DEL ID ' ||l_delinquency_id);
1683: END IF;
1684:
1685: FOR x_rec in c_get_xdo_template(p_work_item_id)

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

1705: EXCEPTION WHEN OTHERS THEN
1706: l_strategy_level := 40; -- default to delinquency level
1707: end;
1708: -- IF PG_DEBUG < 10 THEN
1709: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1710: iex_debug_pub.logmessage('resend_fulfillment: ' || 'strategy_level = ' ||l_strategy_level);
1711: END IF;
1712:
1713: if l_strategy_level = 10 or l_strategy_level = 20 or l_strategy_level = 30 then

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

1728: else
1729: FOR d_rec in c_get_del(l_delinquency_id)
1730: LOOP
1731: -- IF PG_DEBUG < 10 THEN
1732: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1733: iex_debug_pub.logmessage('resend_fulfillment: ' || 'INSIDE THE LOOP ' ||d_rec.party_id);
1734: END IF;
1735: l_party_id := d_rec.party_id;
1736: l_party_type := d_rec.party_type;

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

1755:
1756: if (l_party_id <> 0) then
1757:
1758: -- IF PG_DEBUG < 10 THEN
1759: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1760: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, after PARTY_ID ='|| l_PARTY_ID );
1761: END IF;
1762:
1763: l_count := l_count +1;

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

1770: end if;
1771:
1772: if (l_strategy_id <> 0) then
1773: -- IF PG_DEBUG < 10 THEN
1774: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1775: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, strategy_id ' );
1776: END IF;
1777: l_count := l_count +1;
1778: l_fulfillment_bind_tbl(l_count).key_name := 'strategy_id';

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

1782:
1783:
1784: if (l_delinquency_id <> 0) then
1785: -- IF PG_DEBUG < 10 THEN
1786: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1787: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, delinquency_id ' );
1788: END IF;
1789: l_count := l_count +1;
1790: l_fulfillment_bind_tbl(l_count).key_name := 'delinquency_id';

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

1793: end if;
1794:
1795: if (l_cust_account_id <> 0) then
1796: -- IF PG_DEBUG < 10 THEN
1797: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1798: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, cust_account_id ' );
1799: END IF;
1800: l_count := l_count +1;
1801: l_fulfillment_bind_tbl(l_count).key_name := 'cust_account_id';

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

1810: end if;
1811:
1812: if (l_customer_site_use_id <> 0) then
1813: -- IF PG_DEBUG < 10 THEN
1814: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1815: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, customer_site_use_id ' );
1816: END IF;
1817: l_count := l_count +1;
1818: l_fulfillment_bind_tbl(l_count).key_name := 'customer_site_use_id';

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

1823:
1824: if l_strategy_level = 40 then
1825: if (l_overdue_amount <> 0) then
1826: -- IF PG_DEBUG < 10 THEN
1827: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1828: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, overdue_amount ');
1829: END IF;
1830: l_count := l_count +1;
1831: l_fulfillment_bind_tbl(l_count).key_name := 'overdue_amount';

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

1835:
1836:
1837: if (l_status is not null) then
1838: -- IF PG_DEBUG < 10 THEN
1839: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1840: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, delinquency_status ' );
1841: END IF;
1842: l_count := l_count +1;
1843: l_fulfillment_bind_tbl(l_count).key_name := 'delinquency_status';

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

1847:
1848: /*
1849: if (l_aging_bucket_line_id <> 0) then
1850: -- IF PG_DEBUG < 10 THEN
1851: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1852: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, aging_bucket_line_id ' );
1853: END IF;
1854: l_count := l_count +1;
1855: l_fulfillment_bind_tbl(l_count).key_name := 'aging_bucket_line_id';

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

1860:
1861:
1862: if (l_payment_schedule_id <> 0) then
1863: -- IF PG_DEBUG < 10 THEN
1864: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1865: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, payment_schedule_id ');
1866: END IF;
1867: l_count := l_count +1;
1868: l_fulfillment_bind_tbl(l_count).key_name := 'payment_schedule_id';

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

1874:
1875: l_curr_dmethod := iex_send_xml_pvt.getCurrDeliveryMethod();
1876: if (l_curr_dmethod = 'FFM') then
1877: if (l_fulfil_temp_id <> 0) then
1878: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1879: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, template_id ' );
1880: END IF;
1881: else -- template_id could not be null
1882: x_error_message := 'No fulfillment template id';

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

1883: return;
1884: end if;
1885: else
1886: if (l_xdo_template_id <> 0) then
1887: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1888: iex_debug_pub.logmessage ('send_mail: ' || ' in send mail, xdo_template_id ' );
1889: END IF;
1890: else -- template_id could not be null
1891: x_error_message := 'No xdo template id';

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

1895:
1896:
1897: if (p_work_item_id <> 0) then
1898: -- IF PG_DEBUG < 10 THEN
1899: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1900: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, workitem_id ' );
1901: END IF;
1902: /*
1903: l_count := l_count +1;

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

1910: return;
1911: end if;
1912:
1913: -- IF PG_DEBUG < 10 THEN
1914: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1915: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, l_count ='|| l_count );
1916: END IF;
1917:
1918:

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

1923: , p_site_use_id => l_customer_site_use_id
1924: , p_delinquency_id => l_delinquency_id ) = 'N'
1925: ) then
1926: x_error_message := 'Customer profile has set the dunning flag to NO';
1927: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1928: iex_debug_pub.logmessage ('resend_fulfillment: ' || x_error_message);
1929: END IF;
1930: return;
1931: end if;

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

1936: p_cust_account_id => l_cust_account_id
1937: , p_site_use_id => l_customer_site_use_id) = 'N'
1938: ) then
1939: x_error_message := 'The dunning amount does not exceed the minimum dunning amount in customer profile';
1940: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1941: iex_debug_pub.logmessage ('resend_fulfillment: ' || x_error_message);
1942: END IF;
1943: return;
1944:

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

1969: l_dunning_rec.dunning_method := l_dunning_method; -- default
1970: end;
1971:
1972: -- IF PG_DEBUG < 10 THEN
1973: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1974: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' after fulfil method');
1975: END IF;
1976:
1977: -- ctlee - 5/20 create dunning record

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

1996: into l_DefaultStrategyLevel
1997: from iex_strategies
1998: where strategy_id = l_strategy_id;
1999:
2000: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2001: iex_debug_pub.logmessage('resend_fulfillment Default StrategyLevel ' || l_DefaultStrategyLevel);
2002: END IF;
2003: EXCEPTION
2004: WHEN OTHERS THEN

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

2001: iex_debug_pub.logmessage('resend_fulfillment Default StrategyLevel ' || l_DefaultStrategyLevel);
2002: END IF;
2003: EXCEPTION
2004: WHEN OTHERS THEN
2005: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2006: iex_debug_pub.logmessage('Strategy Level Rised Exception ');
2007: END IF;
2008: l_DefaultStrategyLevel := 'DELINQUENCY';
2009: END;

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

2051: , x_msg_data => l_msg_data
2052: );
2053: exception
2054: when others then
2055: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2056: iex_debug_pub.logmessage ('close dunning before fulfillment exception');
2057: END IF;
2058: end;
2059: END LOOP;

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

2059: END LOOP;
2060:
2061: -- ctlee - 6/18 fulfillment printer method available
2062: -- IF PG_DEBUG < 10 THEN
2063: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2064: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, before create dunning ' );
2065: END IF;
2066: IEX_DUNNING_PVT.CREATE_DUNNING(
2067: p_api_version => 1.0

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

2074: , x_msg_data => l_msg_data);
2075: -- end if;
2076:
2077: --IF PG_DEBUG < 10 THEN
2078: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2079: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, before send_fulfillment ' );
2080: END IF;
2081:
2082:

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

2128: -- IEX_DEBUG_PUB.setDebugFileDir(P_FILEDIR => '/sqlcom/log', P_FILENAME =>'james.IEX');
2129: --IEX_DEBUG_PUB.setDebugFileDir(P_FILEDIR => '/sqlcom/log');
2130:
2131:
2132: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2133: iex_debug_pub.logmessage ('resend_fulfillment: ' || ' in send mail, after send_fulfillment ' );
2134: END IF;
2135:
2136: -- return to workflow

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

2134: END IF;
2135:
2136: -- return to workflow
2137: if (l_request_id is null OR l_return_status <> 'S') then
2138: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2139: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'request_id =>'|| l_request_id);
2140: END IF;
2141: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2142: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'return_status =>'|| l_return_status);

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

2137: if (l_request_id is null OR l_return_status <> 'S') then
2138: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2139: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'request_id =>'|| l_request_id);
2140: END IF;
2141: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2142: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'return_status =>'|| l_return_status);
2143: END IF;
2144: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2145: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'msg_count =>' || l_msg_count);

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

2140: END IF;
2141: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2142: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'return_status =>'|| l_return_status);
2143: END IF;
2144: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2145: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'msg_count =>' || l_msg_count);
2146: END IF;
2147:
2148: -- IF PG_DEBUG < 10 THEN

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

2145: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'msg_count =>' || l_msg_count);
2146: END IF;
2147:
2148: -- IF PG_DEBUG < 10 THEN
2149: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2150: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'msg_data =>');
2151: END IF;
2152: FOR l_index IN 1..l_msg_count LOOP
2153: my_message := FND_MSG_PUB.Get(p_msg_index => l_index,

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

2152: FOR l_index IN 1..l_msg_count LOOP
2153: my_message := FND_MSG_PUB.Get(p_msg_index => l_index,
2154: p_encoded => 'F');
2155: -- IF PG_DEBUG < 10 THEN
2156: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2157: iex_debug_pub.logmessage ('resend_fulfillment: ' || my_message);
2158: END IF;
2159: END LOOP;
2160: x_error_message := my_message;

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

2159: END LOOP;
2160: x_error_message := my_message;
2161: else
2162: -- IF PG_DEBUG < 10 THEN
2163: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2164: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'request_id =>'|| l_request_id);
2165: END IF;
2166: -- IF PG_DEBUG < 10 THEN
2167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

2163: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2164: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'request_id =>'|| l_request_id);
2165: END IF;
2166: -- IF PG_DEBUG < 10 THEN
2167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2168: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'return_status =>'|| l_return_status);
2169: END IF;
2170: -- IF PG_DEBUG < 10 THEN
2171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

2167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2168: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'return_status =>'|| l_return_status);
2169: END IF;
2170: -- IF PG_DEBUG < 10 THEN
2171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2172: iex_debug_pub.logmessage ('resend_fulfillment: ' || 'msg_count =>' || l_msg_count);
2173: END IF;
2174:
2175: x_status := 'S';

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

2217: l_result VARCHAR2(1);
2218: l_value VARCHAR2(300);
2219:
2220: BEGIN
2221: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2222: iex_debug_pub.logmessage ('**** START wait_on_hold_signal ************');
2223: END IF;
2224: if funcmode <> wf_engine.eng_run then
2225: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

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

2221: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2222: iex_debug_pub.logmessage ('**** START wait_on_hold_signal ************');
2223: END IF;
2224: if funcmode <> wf_engine.eng_run then
2225: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2226: iex_debug_pub.logmessage('SECOND TIME FUNCMODE' ||funcmode);
2227: END IF;
2228: result := wf_engine.eng_null;
2229: return;

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

2230: end if;
2231:
2232:
2233:
2234: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2235: iex_debug_pub.logmessage('FUNCMODE' ||funcmode);
2236: END IF;
2237: /* l_value :=wf_engine.GetActivityLabel(actid);
2238: wf_engine.SetItemAttrText(itemtype => itemtype,

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

2238: wf_engine.SetItemAttrText(itemtype => itemtype,
2239: itemkey => itemkey,
2240: aname => 'ACTIVITY_NAME',
2241: avalue => l_value);
2242: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2243: iex_debug_pub.logMessage('ACTIVITYNAME' ||l_value);
2244: END IF;*/
2245:
2246:

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

2245:
2246:
2247: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
2248: ':'||wf_engine.eng_null;
2249: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2250: iex_debug_pub.logmessage ('**** END wait_on_hold_signal ************');
2251: END IF;
2252: exception
2253: when others then

Line 2265: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

2261: --end schekuri Bug#4506922 Date:02-Dec-2005
2262:
2263: begin
2264: -- initialize variables
2265: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2266:
2267: --begin schekuri Bug#4506922 Date:02-Dec-2005
2268: wf_yes := 'Y';
2269: wf_no := 'N';