[Home] [Help]
66: BEGIN
67: --check for custom work flow first
68: --abort all the custom workflow for the given strategy_id
69: -- IF PG_DEBUG < 10 THEN
70: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
71: iex_debug_pub.logmessage ('**** BEGIN New abort_processes ************');
72: END IF;
73:
74: -- Begin bug 7703319
112: itemkey => c_rec.work_item_id,
113: status => l_status,
114: result => l_result);
115: -- IF PG_DEBUG < 10 THEN
116: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
117: iex_debug_pub.logmessage('abort_processes: ' || 'after workflow status check ' ||l_status || ' item key'
118: || c_rec.work_item_id);
119: END IF;
120:
119: END IF;
120:
121: IF l_status <> wf_engine.eng_completed THEN
122: -- IF PG_DEBUG < 10 THEN
123: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
124: iex_debug_pub.logmessage('abort_processes: ' || ' process has not completed and status =>'|| l_status);
125: END IF;
126: -- BEGIN commented for bug#8493656
127: wf_engine.abortprocess(itemtype => c_rec.itemtype,
130: end if; -- Added for bug#8493656
131: EXCEPTION
132: WHEN OTHERS THEN
133: -- IF PG_DEBUG < 10 THEN
134: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
135: iex_debug_pub.logmessage('abort_processes: ' || 'abort process ' || c_rec.itemtype ||
136: 'itemkey ' || c_rec.work_item_id ||'has failed');
137: END IF;
138: END;
154: itemkey => c_rec.work_item_id,
155: status =>l_status,
156: result =>l_result);
157: -- IF PG_DEBUG < 10 THEN
158: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
159: iex_debug_pub.logmessage('abort_processes: ' || 'after workflow status check ' ||l_status || ' item key'
160: ||c_rec.work_item_id);
161: END IF;
162:
167:
168: -- end for bug 8996459
169: IF l_status <> wf_engine.eng_completed THEN
170: -- IF PG_DEBUG < 10 THEN
171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
172: iex_debug_pub.logmessage ('abort_processes: ' || ' in fulfilment and process has not completed '||
173: 'and status =>'||l_status);
174: END IF;
175:
195: --Begin bug#8490070 snuthala 25-May-2009
196: EXCEPTION
197: WHEN OTHERS THEN
198: -- IF PG_DEBUG < 10 THEN
199: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
200: iex_debug_pub.logmessage('abort_processes: ' || 'abort process ' || l_itemtype ||
201: 'itemkey ' || c_rec.work_item_id ||'has failed');
202: END IF;
203: END;
209: END ;
210:
211:
212: -- IF PG_DEBUG < 10 THEN
213: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
214: iex_debug_pub.logmessage ('**** END abort_processes ************');
215: END IF;
216: EXCEPTION
217: WHEN OTHERS THEN
215: END IF;
216: EXCEPTION
217: WHEN OTHERS THEN
218: -- IF PG_DEBUG < 10 THEN
219: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
220: iex_debug_pub.logmessage('abort_processes: ' || 'abort process has failed' );
221: END IF;
222: END abort_processes;
223:
232: RETURN NUMBER IS
233: v_result NUMBER;
234: BEGIN
235: -- IF PG_DEBUG < 10 THEN
236: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
237: iex_debug_pub.logmessage ('**** BEGIN CHECK_WORK_ITEM_OPEN ************');
238: END IF;
239: select count(*)
240: INTO v_result
247: and a.status_code ='OPEN';
248:
249: return v_result;
250: -- IF PG_DEBUG < 10 THEN
251: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
252: iex_debug_pub.logmessage ('**** END CHECK_WORK_ITEM_OPEN ************');
253: END IF;
254: END CHECK_WORK_ITEM_OPEN;
255:
263: RETURN NUMBER IS
264: v_result NUMBER;
265: BEGIN
266: -- IF PG_DEBUG < 10 THEN
267: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
268: iex_debug_pub.logmessage ('**** BEGIN CHECK_CURRENT_WORK_ITEM ************');
269: END IF;
270: select count(*) INTO v_result from iex_strategies
271: where strategy_id =p_strategy_id
272: and next_work_item_id =p_work_item_id
273: and status_code ='OPEN';
274: return v_result;
275: -- IF PG_DEBUG < 10 THEN
276: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
277: iex_debug_pub.logmessage ('**** END CHECK_CURRENT_WORK_ITEM ************');
278: END IF;
279: END CHECK_CURRENT_WORK_ITEM;
280:
290: l_msg_data VARCHAR2(32767);
291:
292: BEGIN
293: -- IF PG_DEBUG < 10 THEN
294: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
295: iex_debug_pub.logmessage ('**** BEGIN update_workitem_Status ************');
296: END IF;
297: IEX_STRY_UTL_PUB.UPDATE_WORK_ITEM (p_api_version => l_api_version,
298: p_init_msg_list => FND_API.G_TRUE,
303: p_work_item_id => p_work_item_id,
304: p_status => p_status);
305:
306: -- IF PG_DEBUG < 10 THEN
307: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
308: iex_debug_pub.logmessage ('**** END update_workitem_Status ************');
309: END IF;
310: END update_workitem_Status;
311:
326: where resource_id =p_resource_id;
327:
328: BEGIN
329: -- IF PG_DEBUG < 10 THEN
330: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
331: iex_debug_pub.logmessage ('**** BEGIN get_username ************');
332: END IF;
333: OPEN c_getname(p_resource_id);
334: --FETCH c_getname INTO x_username; -- bug 6717880/7170165 by Ehuh
334: --FETCH c_getname INTO x_username; -- bug 6717880/7170165 by Ehuh
335: FETCH c_getname INTO x_username, x_source_name; -- bug 6717880/7170165 by Ehuh
336: CLOSE c_getname;
337: -- IF PG_DEBUG < 10 THEN
338: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
339: iex_debug_pub.logmessage ('**** END get_username ************');
340: END IF;
341: END get_username;
342:
367:
368:
369: BEGIN
370: -- IF PG_DEBUG < 10 THEN
371: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
372: iex_debug_pub.logmessage ('**** BEGIN set_notification_resources ************');
373: END IF;
374: -- get user name from jtf_rs_resource_extns
375: --Start bug 6717880/7170165 by Ehuh
396: -- for the time being assign mgr =resource_id
397: BEGIN
398: open c_manager(p_resource_id);
399: fetch c_manager into l_mgr_id, l_mgrname, l_mgr_resource_id;
400: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
401: iex_debug_pub.logmessage ('Manager Info ' || l_mgrName || ' ID ' ||
402: l_mgr_id || 'Resource ID ' || l_mgr_resource_id);
403: END IF;
404: close c_manager;
419: itemkey => itemkey,
420: aname => 'NOTIFICATION_MGRNAME',
421: avalue => l_mgrname);
422: -- IF PG_DEBUG < 10 THEN
423: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
424: iex_debug_pub.logmessage ('**** END set_notification_resources ************');
425: END IF;
426: exception
427: when others then
445: -- initialize variable
446: l_grace_period := nvl(fnd_profile.value('IEX_STRY_GRACE_PERIOD'),0);
447:
448: -- IF PG_DEBUG < 10 THEN
449: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
450: iex_debug_pub.logmessage ('**** BEGIN set_escalate_wait_time ************');
451: END IF;
452: wf_engine.SetItemAttrDate(itemtype => itemtype,
453: itemkey => itemkey,
453: itemkey => itemkey,
454: aname => 'ESCALATE_WAIT_TIME',
455: avalue => p_escalate_date);
456: -- IF PG_DEBUG < 10 THEN
457: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
458: iex_debug_pub.logmessage ('set_escalate_wait_time: ' || 'ESCALATETIME' ||TO_CHAR(p_escalate_date,'DD-MON-YYYY:HH:MI:SS'));
459: END IF;
460: -- IF PG_DEBUG < 10 THEN
461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
457: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
458: iex_debug_pub.logmessage ('set_escalate_wait_time: ' || 'ESCALATETIME' ||TO_CHAR(p_escalate_date,'DD-MON-YYYY:HH:MI:SS'));
459: END IF;
460: -- IF PG_DEBUG < 10 THEN
461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
462: iex_debug_pub.logmessage ('**** END set_escalate_wait_time ************');
463: END IF;
464: exception
465: when others then
475:
476: BEGIN
477:
478: -- IF PG_DEBUG < 10 THEN
479: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
480: iex_debug_pub.logmessage ('**** BEGIN set_optional_wait_time ************');
481: END IF;
482: wf_engine.SetItemAttrDate(itemtype => itemtype,
483: itemkey => itemkey,
483: itemkey => itemkey,
484: aname => 'OPTIONAL_WAIT_TIME',
485: avalue => p_optional_date);
486: -- IF PG_DEBUG < 10 THEN
487: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
488: iex_debug_pub.logmessage ('set_optional_wait_time: ' || 'OPTIONALTIME' ||TO_CHAR(p_optional_date,'DD-MON-YYYY:HH:MI:SS'));
489: END IF;
490: -- IF PG_DEBUG < 10 THEN
491: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
487: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
488: iex_debug_pub.logmessage ('set_optional_wait_time: ' || 'OPTIONALTIME' ||TO_CHAR(p_optional_date,'DD-MON-YYYY:HH:MI:SS'));
489: END IF;
490: -- IF PG_DEBUG < 10 THEN
491: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
492: iex_debug_pub.logmessage ('**** END set_optional_wait_time ************');
493: END IF;
494: exception
495: when others then
527:
528:
529: BEGIN
530: -- IF PG_DEBUG < 10 THEN
531: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
532: iex_debug_pub.logmessage ('**** BEGIN populate_schedule_times ************');
533: END IF;
534: l_work_item_id := wf_engine.GetItemAttrNumber(
535: itemtype => itemtype,
547: (p_date =>SYSDATE,
548: l_UOM =>c_rec.schedule_uom,
549: l_UNIT =>c_rec.schedule_wait);
550: -- IF PG_DEBUG < 10 THEN
551: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
552: iex_debug_pub.logmessage('populate_schedule_times: ' || 'schedulestart'||x_schedule_start);
553: END IF;
554: -- bug 10133319 escalate wait override if exists
555: IF p_strategy_work_item_rec.escalate_wait_time IS NOT NULL THEN
560: (p_date =>x_schedule_start,
561: l_UOM =>c_rec.closure_time_uom,
562: l_UNIT =>c_rec.closure_time_limit);
563: -- IF PG_DEBUG < 10 THEN
564: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
565: iex_debug_pub.logmessage('populate_schedule_times: ' || 'schedulestart'||x_schedule_end);
566: END IF;
567: -- populate the escalate wait period
568: IF p_strategy_work_item_rec.escalate_yn IS NOT NULL THEN
587: (p_date =>x_schedule_start,
588: l_UOM =>c_rec.option_wait_time_uom,
589: l_UNIT =>c_rec.option_wait_time);
590: -- IF PG_DEBUG < 10 THEN
591: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
592: iex_debug_pub.logmessage('populate_schedule_times: ' || 'sysdate '
593: ||TO_CHAR(sysdate,'DD-MON-YYYY:HH:MI:SS'));
594: END IF;
595:
593: ||TO_CHAR(sysdate,'DD-MON-YYYY:HH:MI:SS'));
594: END IF;
595:
596: -- IF PG_DEBUG < 10 THEN
597: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
598: iex_debug_pub.logmessage('populate_schedule_times: ' || 'l_optional_date '
599: ||TO_CHAR(l_optional_date,'DD-MON-YYYY:HH:MI:SS'));
600: END IF;
601:
622:
623:
624: END LOOP;
625: -- IF PG_DEBUG < 10 THEN
626: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
627: iex_debug_pub.logmessage ('**** END populate_schedule_times ************');
628: END IF;
629: EXCEPTION WHEN OTHERS THEN
630: null;
672: l_count :=0;
673: l_found := TRUE;
674:
675: -- IF PG_DEBUG < 10 THEN
676: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
677: iex_debug_pub.logmessage ('populate_schedule_times: ' || '**** BEGIN get_resource ************');
678: iex_debug_pub.logmessage ('default resource id from profile iex_stry_default_resource) ' || l_resource_id);
679: iex_debug_pub.logmessage ('calling get_access_resources ' || p_party_id);
680: END IF;
705:
706: --End bug#5373412 schekuri 10-Jul-2006
707:
708: --IF PG_DEBUG < 10 THEN
709: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
710: iex_debug_pub.logmessage('populate_schedule_times: ' || 'in get resource and l_return_status = '||l_return_status);
711: iex_debug_pub.logmessage('in get resource and l_return_status from iex_utilities.get_access_resources = '||l_return_status);
712: iex_debug_pub.logmessage('resource count from iex_utilities.get_access_resources = '||l_resource_tab.count);
713: END IF;
721:
722: --if p_competence_id IS NULL THEN
723: if p_competence_tab.count = 0 THEN
724: -- IF PG_DEBUG < 10 THEN
725: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
726: iex_debug_pub.logmessage('populate_schedule_times: ' || 'Competence table is empty');
727: END IF;
728: --get the first resource id if competence id is null from
729: -- the work item template
729: -- the work item template
730: FOR i in 1..l_resource_tab.count LOOP
731: l_resource_id := l_resource_tab(i).resource_id;
732: -- IF PG_DEBUG < 10 THEN
733: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
734: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
735: END IF;
736: EXIT;
737: END LOOP;
736: EXIT;
737: END LOOP;
738: else
739: -- IF PG_DEBUG < 10 THEN
740: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
741: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
742: END IF;
743: FOR i in 1..l_resource_tab.count LOOP
744: -- IF PG_DEBUG < 10 THEN
741: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
742: END IF;
743: FOR i in 1..l_resource_tab.count LOOP
744: -- IF PG_DEBUG < 10 THEN
745: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
746: iex_debug_pub.logmessage('populate_schedule_times: ' || 'PERSON ID is '||l_resource_tab(i).person_id);
747: iex_debug_pub.logmessage('populate_schedule_times: ' || 'RESOURCE ID is '||l_resource_tab(i).resource_id);
748: END IF;
749:
753: p_competence_tab(j));
754: FETCH c_get_person_id INTO l_count;
755: CLOSE c_get_person_id;
756: -- IF PG_DEBUG < 10 THEN
757: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
758: iex_debug_pub.logmessage('populate_schedule_times: ' || 'COMPETENCE ID is '||
759: p_competence_tab(j));
760: END IF;
761: -- IF PG_DEBUG < 10 THEN
758: iex_debug_pub.logmessage('populate_schedule_times: ' || 'COMPETENCE ID is '||
759: p_competence_tab(j));
760: END IF;
761: -- IF PG_DEBUG < 10 THEN
762: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
763: iex_debug_pub.logmessage('populate_schedule_times: ' || 'no of matches '|| l_count);
764: END IF;
765: If l_count =0 THEN
766: -- match not found, use the first resource and exit out NOCOPY
769: --Commented the below the code to return default resource id instead of first resource id
770: --when there is no resource found matching the competency of the workitem.
771: /*l_resource_id := l_resource_tab(1).resource_id;
772: -- IF PG_DEBUG < 10 THEN
773: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
774: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
775: END IF;*/
776: --End bug#5373412 schekuri 10-Jul-2006
777: -- have to look for the next resource if l_found is false
779: EXIT;
780: ELSE
781: l_resource_id := l_resource_tab(i).resource_id;
782: -- IF PG_DEBUG < 10 THEN
783: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
784: iex_debug_pub.logmessage('1st record found with competence matched l_resource_tab l_resource_id = '|| l_resource_id);
785: END IF;
786: l_found :=TRUE;
787: End if;
789: if l_found THEN
790: -- a matching resource with all the competencies
791: --have been found ,stop looking for next resource
792: -- IF PG_DEBUG < 10 THEN
793: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
794: iex_debug_pub.logmessage('populate_schedule_times: ' || 'match found and RESOURCE ID is =>'
795: ||l_resource_tab(i).resource_id);
796: END IF;
797: exit;
800: end if;
801: --assign out NOCOPY variable
802: x_resource_id :=l_resource_id;
803: -- IF PG_DEBUG < 10 THEN
804: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
805: iex_debug_pub.logmessage('populate_schedule_times: ' || 'value of x_resource_id' ||x_resource_id);
806: END IF;
807: -- IF PG_DEBUG < 10 THEN
808: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
804: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
805: iex_debug_pub.logmessage('populate_schedule_times: ' || 'value of x_resource_id' ||x_resource_id);
806: END IF;
807: -- IF PG_DEBUG < 10 THEN
808: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
809: iex_debug_pub.logmessage ('populate_schedule_times: ' || '**** END get_resource ************');
810: END IF;
811: END get_resource;
812:
1036: l_Assignment_Level := NVL(FND_PROFILE.VALUE('IEX_ACCESS_LEVEL'),'PARTY');
1037: l_return_status :=FND_API.G_RET_STS_SUCCESS;
1038:
1039: -- IF PG_DEBUG < 10 THEN
1040: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1041: iex_debug_pub.logmessage ('populate_schedule_times: ' || '**** BEGIN create_work_item ************');
1042: END IF;
1043:
1044: -- Start for bug 8708271 pnaveenk multi level strategy
1079: l_index :=l_index +1;
1080: END LOOP;
1081:
1082: -- IF PG_DEBUG < 10 THEN
1083: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1084: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'No. of competence is =>'||l_competence_tab.count);
1085: END IF;
1086: -- IF PG_DEBUG < 10 THEN
1087: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1083: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1084: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'No. of competence is =>'||l_competence_tab.count);
1085: END IF;
1086: -- IF PG_DEBUG < 10 THEN
1087: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1088: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'in create work item private and going to call get_resource');
1089: END IF;
1090:
1091: -- get resource for the given competence_id
1111: end if;
1112:
1113: if l_Assignment_Level = 'PARTY' then
1114:
1115: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1116: iex_debug_pub.logmessage ('Calling Get_Resource! Party Level :Party ID ' || p_Party_ID);
1117: end if;
1118: get_resource(p_party_id,l_competence_tab,l_resource_id);
1119:
1117: end if;
1118: get_resource(p_party_id,l_competence_tab,l_resource_id);
1119:
1120: else
1121: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1122: iex_debug_pub.logmessage ('No Territory Access Call :Party ID ' || p_Party_ID);
1123: end if;
1124: end if;
1125:
1129: l_Assignment_Level := 'ACCOUNT';
1130: end if;
1131: if l_Assignment_Level = 'PARTY' then
1132:
1133: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1134: iex_debug_pub.logmessage ('Calling Get_Resource! Party Level :Party ID ' || p_Party_ID);
1135: end if;
1136: get_resource(p_party_id,l_competence_tab,l_resource_id);
1137:
1136: get_resource(p_party_id,l_competence_tab,l_resource_id);
1137:
1138: elsif l_Assignment_level = 'ACCOUNT' then
1139:
1140: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1141: iex_debug_pub.logmessage ('Calling Get_Resource! Account Level :Account ID ' || l_Object_ID);
1142: end if;
1143:
1144: bReturn:=get_account_resource(l_object_id, l_competence_tab, l_resource_id);
1144: bReturn:=get_account_resource(l_object_id, l_competence_tab, l_resource_id);
1145:
1146: else
1147:
1148: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1149: iex_debug_pub.logmessage ('No Territory Access Call :Party ID ' || p_Party_ID);
1150: end if;
1151:
1152: end if;
1156: l_Assignment_Level := 'BILL_TO';
1157: end if;
1158: if l_Assignment_Level = 'PARTY' then
1159:
1160: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1161: iex_debug_pub.logmessage ('Calling Get_Resource! Party Level :Party ID ' || p_Party_ID);
1162: end if;
1163: get_resource(p_party_id,l_competence_tab,l_resource_id);
1164:
1163: get_resource(p_party_id,l_competence_tab,l_resource_id);
1164:
1165: elsif l_Assignment_level = 'ACCOUNT' then
1166:
1167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1168: iex_debug_pub.logmessage ('Calling Get_Resource! Account Level :Account ID ' || l_cust_account_ID);
1169: end if;
1170:
1171: bReturn:=get_account_resource(l_cust_account_id, l_competence_tab, l_resource_id);
1171: bReturn:=get_account_resource(l_cust_account_id, l_competence_tab, l_resource_id);
1172:
1173: else
1174:
1175: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1176: iex_debug_pub.logmessage ('Calling Get_Resource! Bill To Level :Site Use ID ' || l_Object_ID);
1177: end if;
1178: --Bug5373412. Fix By LKKUMAR on 11-July-2006.Start.
1179: --bReturn:=get_billto_resource(l_object_id,l_competence_tab,l_resource_id);
1188: -- End - Kasreeni 01/17/2005 - Modified for multiple level resource check
1189: -- End- Andre 07/28/2004 - Add bill to assignmnet
1190:
1191: -- IF PG_DEBUG < 10 THEN
1192: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1193: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'after get_resource and resource_id ='||
1194: l_resource_id);
1195: END IF;
1196:
1195: END IF;
1196:
1197: if l_resource_id is null then
1198: l_Resource_id := l_Default_Resource_ID;
1199: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1200: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'Assigning Default resource_id ='|| l_resource_id);
1201: end if;
1202: end if;
1203:
1206:
1207: x_return_Status :=FND_API.G_RET_STS_ERROR;
1208: x_error_msg := 'resource_id is Null';
1209: -- IF PG_DEBUG < 10 THEN
1210: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1211: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'resource id is null ');
1212: END IF;
1213: return;
1214: end if;
1215:
1216: -- resource id is found, ready for creating work item in
1217: -- the database.(finally)
1218: -- IF PG_DEBUG < 10 THEN
1219: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1220: iex_debug_pub.logMessage ('populate_schedule_times: ' || 'ready to insert work items');
1221: END IF;
1222: -- IF PG_DEBUG < 10 THEN
1223: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1219: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1220: iex_debug_pub.logMessage ('populate_schedule_times: ' || 'ready to insert work items');
1221: END IF;
1222: -- IF PG_DEBUG < 10 THEN
1223: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1224: iex_debug_pub.logMessage ('populate_schedule_times: ' || 'work_item_template_id'||c_get_witem_rec.work_item_template_id);
1225: END IF;
1226: -- IF PG_DEBUG < 10 THEN
1227: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1223: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1224: iex_debug_pub.logMessage ('populate_schedule_times: ' || 'work_item_template_id'||c_get_witem_rec.work_item_template_id);
1225: END IF;
1226: -- IF PG_DEBUG < 10 THEN
1227: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1228: iex_debug_pub.logMessage ('populate_schedule_times: ' || 'status_code'||c_get_witem_rec.status);
1229: END IF;
1230:
1231: -- bug 10133319
1306: l_strategy_work_item_rec.schedule_start :=x_schedule_start;
1307: l_strategy_work_item_rec.schedule_end :=x_schedule_end;
1308: l_strategy_work_item_rec.execute_start :=SYSDATE;
1309:
1310: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1311: iex_debug_pub.logmessage ('before calling create_work_pvt.create');
1312: END IF;
1313:
1314: iex_strategy_work_items_pvt.create_strategy_work_items
1320: x_work_item_id =>x_work_item_id,
1321: x_return_status =>l_return_status,
1322: x_msg_count =>l_msg_count,
1323: x_msg_data =>l_msg_data);
1324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1325: iex_debug_pub.logmessage ('after calling create_work_pvt.create');
1326: iex_debug_pub.logmessage ('and l_return_status from the pvt ='||l_return_status);
1327: END IF;
1328: x_return_status :=l_return_Status;
1354: wf_engine.SetItemAttrText(itemtype =>itemtype,
1355: itemkey => itemkey,
1356: aname => 'WORK_ITEM_NAME',
1357: avalue => l_workitem_name);
1358: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1359: iex_debug_pub.logmessage ('work_item_name' ||l_workitem_name);
1360: END IF;
1361:
1362: --Begin bug#5874874 gnramasa 25-Apr-2007
1382: ( p_count => l_msg_count,
1383: p_data => l_msg_data
1384: );
1385: Get_Messages(l_msg_count,x_error_msg);
1386: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1387: iex_debug_pub.logmessage('error message is ' ||x_error_msg);
1388: END IF;
1389: END IF;
1390:
1395: aname => 'ACTIVITY_NAME',
1396: avalue => NULL);
1397:
1398: ELSE
1399: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1400: iex_debug_pub.logmessage('X_MSG_COUNT' ||l_msg_count);
1401: iex_debug_pub.logmessage('X_MSG_DATA' ||l_msg_data);
1402: END IF;
1403: -- get error message and passit pass it
1411: p_data => l_msg_data
1412: );
1413:
1414: Get_Messages(l_msg_count,x_error_msg);
1415: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1416: iex_debug_pub.logmessage('error message is ' || x_error_msg);
1417: END IF;
1418: end if;
1419: EXIT;
1420: END IF;
1421:
1422: x_return_status :=l_return_Status;
1423: END LOOP;
1424: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1425: iex_debug_pub.logmessage ('after calling create_work_pvt.create ' ||
1426: 'and x_return status=>'||x_return_status );
1427: END IF;
1428: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1424: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1425: iex_debug_pub.logmessage ('after calling create_work_pvt.create ' ||
1426: 'and x_return status=>'||x_return_status );
1427: END IF;
1428: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1429: iex_debug_pub.logmessage ('**** END create_work_item ************');
1430: END IF;
1431: End create_work_item;
1432:
1445: p_itemkey,
1446: p_process);
1447:
1448: -- IF PG_DEBUG < 10 THEN
1449: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1450: iex_debug_pub.logmessage ('process_status: ' || 'root is '||rootid);
1451: END IF;
1452: Wf_Item_Activity_Status.Status(p_itemtype
1453: ,p_itemkey
1454: ,rootid
1455: ,x_status);
1456:
1457: -- IF PG_DEBUG < 10 THEN
1458: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1459: iex_debug_pub.logmessage ('process_status: ' || 'status is '||x_status);
1460: END IF;
1461: EXCEPTION WHEN OTHERS THEN
1462: -- send the status has active
1470: itemkey IN VARCHAR2,
1471: l_strategy_mailer_rec OUT NOCOPY iex_strategy_work_pub.STRATEGY_Mailer_Rec_Type) IS
1472: BEGIN
1473: -- IF PG_DEBUG < 10 THEN
1474: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1475: iex_debug_pub.logmessage ('**** BEGIN populate_strategy_mailer ************');
1476: END IF;
1477: l_strategy_mailer_rec.strategy_id := wf_engine.GetItemAttrNumber(
1478: itemtype => itemtype,
1504: itemtype => itemtype,
1505: itemkey => itemkey,
1506: aname => 'RESP_APPL_ID');
1507: -- IF PG_DEBUG < 10 THEN
1508: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1509: iex_debug_pub.logmessage ('populate_strategy_mailer: ' || 'resp_id ' || l_strategy_mailer_rec.resp_id ||
1510: ' USER_ID ' || l_strategy_mailer_rec.user_id||' APPL ID '
1511: ||l_strategy_mailer_rec.resp_appl_id);
1512: END IF;
1511: ||l_strategy_mailer_rec.resp_appl_id);
1512: END IF;
1513:
1514: -- IF PG_DEBUG < 10 THEN
1515: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1516: iex_debug_pub.logmessage ('**** END populate_strategy_mailer ************');
1517: END IF;
1518: END populate_strategy_mailer;
1519:
1524: p_custom_itemtype IN VARCHAR2,
1525: l_custom_wf_rec OUT NOCOPY IEX_STRY_CUWF_PUB.CUSTOM_WF_Rec_Type) IS
1526: BEGIN
1527: -- IF PG_DEBUG < 10 THEN
1528: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1529: iex_debug_pub.logmessage ('**** BEGIN populate_custom_workflow ************');
1530: END IF;
1531: l_custom_wf_rec.strategy_id := wf_engine.GetItemAttrNumber(
1532: itemtype => itemtype,
1558: aname => 'RESP_APPL_ID');
1559:
1560:
1561: -- IF PG_DEBUG < 10 THEN
1562: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1563: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'strategy_id ' || l_custom_wf_rec.strategy_id);
1564: END IF;
1565: -- IF PG_DEBUG < 10 THEN
1566: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1562: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1563: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'strategy_id ' || l_custom_wf_rec.strategy_id);
1564: END IF;
1565: -- IF PG_DEBUG < 10 THEN
1566: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1567: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'workitem_id ' || l_custom_wf_rec.workitem_id);
1568: END IF;
1569: -- IF PG_DEBUG < 10 THEN
1570: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1566: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1567: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'workitem_id ' || l_custom_wf_rec.workitem_id);
1568: END IF;
1569: -- IF PG_DEBUG < 10 THEN
1570: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1571: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'custom_itemtype ' || l_custom_wf_rec.custom_itemtype);
1572: END IF;
1573: -- IF PG_DEBUG < 10 THEN
1574: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1570: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1571: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'custom_itemtype ' || l_custom_wf_rec.custom_itemtype);
1572: END IF;
1573: -- IF PG_DEBUG < 10 THEN
1574: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1575: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'resp_id ' || l_custom_wf_rec.resp_id ||
1576: ' USER_ID ' || l_custom_wf_rec.user_id||' APPL ID '
1577: ||l_custom_wf_rec.resp_appl_id);
1578: END IF;
1577: ||l_custom_wf_rec.resp_appl_id);
1578: END IF;
1579:
1580: -- IF PG_DEBUG < 10 THEN
1581: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1582: iex_debug_pub.logmessage ('**** END populate_custom_workflow ************');
1583: END IF;
1584: END populate_custom_workflow;
1585:
1616: -- initialize variable
1617: l_msg_list := '';
1618:
1619: -- IF PG_DEBUG < 10 THEN
1620: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1621: iex_debug_pub.logmessage ('**** BEGIN Get_Messages ************');
1622: END IF;
1623: FOR l_count in 1..p_message_count LOOP
1624:
1660: END LOOP;
1661:
1662: x_msgs := l_msg_list;
1663: -- IF PG_DEBUG < 10 THEN
1664: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1665: iex_debug_pub.logmessage ('Get_Messages: ' || 'L_MSG_LIST'||l_msg_list);
1666: END IF;
1667: -- IF PG_DEBUG < 10 THEN
1668: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1664: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1665: iex_debug_pub.logmessage ('Get_Messages: ' || 'L_MSG_LIST'||l_msg_list);
1666: END IF;
1667: -- IF PG_DEBUG < 10 THEN
1668: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1669: iex_debug_pub.logmessage ('**** END Get_Messages ************');
1670: END IF;
1671: END Get_Messages;
1672:
1802: return;
1803: end if;
1804:
1805: --IF PG_DEBUG < 10 THEN
1806: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1807: iex_debug_pub.logmessage ('**** BEGIN check_work_items_completed ************');
1808: END IF;
1809: --IF PG_DEBUG < 10 THEN
1810: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1806: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1807: iex_debug_pub.logmessage ('**** BEGIN check_work_items_completed ************');
1808: END IF;
1809: --IF PG_DEBUG < 10 THEN
1810: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1811: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'ITEMTYPE =>'||itemtype);
1812: END IF;
1813: --IF PG_DEBUG < 10 THEN
1814: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1810: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1811: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'ITEMTYPE =>'||itemtype);
1812: END IF;
1813: --IF PG_DEBUG < 10 THEN
1814: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1815: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'ITEMKEY =>'||itemkey);
1816: END IF;
1817:
1818: /* l_value :=wf_engine.GetActivityLabel(actid);
1820: itemkey => itemkey,
1821: aname => 'ACTIVITY_NAME',
1822: avalue => l_value);
1823: --IF PG_DEBUG < 10 THEN
1824: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1825: iex_debug_pub.logMessage('check_work_items_completed: ' || 'ACTIVITYNAME' ||l_value);
1826: END IF;
1827: */
1828:
1853: aname => 'WORK_ITEMID');
1854:
1855:
1856: --IF PG_DEBUG < 10 THEN
1857: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1858: iex_debug_pub.logmessage ('in check_work_items_completed and '||
1859: 'l_work_item_id =>'||l_work_item_id);
1860: END IF;
1861:
1873: itemkey => itemkey,
1874: aname => 'STRATEGY_ID');
1875:
1876: --IF PG_DEBUG < 10 THEN
1877: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1878: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'strategy id =>'||l_strategy_id);
1879: END IF;
1880:
1881: --get strategy template id
1882: OPEN c_get_strat_template_id (l_strategy_id);
1883: FETCH c_get_strat_template_id INTO l_strategy_template_id;
1884: CLOSE c_get_strat_template_id;
1885: --IF PG_DEBUG < 10 THEN
1886: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1887: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'template id =>'||l_strategy_template_id);
1888: END IF;
1889:
1890: --get the work items along with the status
1896: -- NOT IN ('COMPLETE','CANCELLED','TIMEOUT','SKIP') THEN
1897: -- there are pending work items to be processed
1898: result := wf_engine.eng_completed ||':'||wf_no;
1899: -- IF PG_DEBUG < 10 THEN
1900: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1901: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'there are pending witems to be created and result is'||
1902: '=>'||result);
1903: END IF;
1904: return;
1906:
1907: END LOOP;
1908: result := wf_engine.eng_completed ||':'||wf_yes;
1909: -- IF PG_DEBUG < 10 THEN
1910: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1911: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'result =>'||result);
1912: END IF;
1913: -- IF PG_DEBUG < 10 THEN
1914: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1910: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1911: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'result =>'||result);
1912: END IF;
1913: -- IF PG_DEBUG < 10 THEN
1914: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1915: iex_debug_pub.logmessage ('**** END check_work_items_completed ************');
1916: END IF;
1917: exception
1918: when others then
1918: when others then
1919: wf_core.context('IEX_STRATEGY_WF','check_work_items_completed',itemtype,
1920: itemkey,to_char(actid),funcmode);
1921: -- IF PG_DEBUG < 10 THEN
1922: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1923: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'in error');
1924: END IF;
1925: raise;
1926:
1954: l_error VARCHAR2(32767);
1955:
1956: Begin
1957: -- IF PG_DEBUG < 10 THEN
1958: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1959: iex_debug_pub.logmessage ('**** BEGIN close_strategy ************');
1960: END IF;
1961: if funcmode <> 'RUN' then
1962: result := wf_engine.eng_null;
1968: itemkey => itemkey,
1969: aname => 'ACTIVITY_NAME',
1970: avalue => l_value);
1971: -- IF PG_DEBUG < 10 THEN
1972: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1973: iex_debug_pub.logMessage('close_strategy: ' || 'ACTIVITYNAME' ||l_value);
1974: END IF;
1975: */
1976:
1999: -- if the l_work_item is not null then, it means all the pending work items are processed
2000: -- update the stategy_status to 'CLOSED'
2001:
2002: -- IF PG_DEBUG < 10 THEN
2003: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2004: iex_debug_pub.logmessage('close_strategy: ' || ' close strategy procedure and status is =>'||l_strategy_status);
2005: END IF;
2006: -- commented for bug 11703982 PNAVEENK close the strategy even work item id is null
2007: IF l_work_item_id IS NOT NULL THEN
2022: p_status => l_strategy_status);
2023:
2024:
2025: -- IF PG_DEBUG < 10 THEN
2026: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2027: iex_debug_pub.logmessage('close_strategy: ' || ' close strategy procedure and x_status is =>'||l_return_status);
2028: END IF;
2029:
2030: -- if the result is 'N' then go back to
2050: p_data => l_msg_data
2051: );
2052: Get_Messages(l_msg_count,l_error);
2053: -- IF PG_DEBUG < 10 THEN
2054: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2055: iex_debug_pub.logmessage('close_strategy: ' || 'error message is ' || l_error);
2056: END IF;
2057:
2058: wf_engine.SetItemAttrText(itemtype => itemtype,
2062:
2063: end if;
2064:
2065: -- IF PG_DEBUG < 10 THEN
2066: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2067: iex_debug_pub.logmessage ('**** END close_strategy ************');
2068: END IF;
2069: exception
2070: when others then
2113: l_init_msg_list := FND_API.G_TRUE;
2114: l_commit := FND_API.G_TRUE;
2115:
2116: -- IF PG_DEBUG < 10 THEN
2117: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2118: iex_debug_pub.logmessage ('**** BEGIN create_next_work_item ************');
2119: END IF;
2120: if funcmode <> 'RUN' then
2121: result := wf_engine.eng_null;
2127: itemkey => itemkey,
2128: aname => 'ACTIVITY_NAME',
2129: avalue => l_value);
2130: --IF PG_DEBUG < 10 THEN
2131: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2132: iex_debug_pub.logMessage('create_next_work_item: ' || 'ACTIVITYNAME' ||l_value);
2133: END IF;
2134: */
2135:
2150: OPEN c_get_strat_template_id (l_strategy_id);
2151: FETCH c_get_strat_template_id INTO l_strategy_template_id;
2152: CLOSE c_get_strat_template_id;
2153: --IF PG_DEBUG < 10 THEN
2154: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2155: iex_debug_pub.logmessage('create_next_work_item: ' || 'in create next work item');
2156: END IF;
2157: --IF PG_DEBUG < 10 THEN
2158: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2154: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2155: iex_debug_pub.logmessage('create_next_work_item: ' || 'in create next work item');
2156: END IF;
2157: --IF PG_DEBUG < 10 THEN
2158: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2159: iex_debug_pub.logmessage('create_next_work_item: ' || 'before calling create work item private proc');
2160: END IF;
2161:
2162: --create work item in the database
2168: l_return_status,
2169: l_error);
2170:
2171: --IF PG_DEBUG < 10 THEN
2172: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2173: iex_debug_pub.logmessage ('create_next_work_item: ' || ' creation of work items and status => '||l_return_status);
2174: END IF;
2175:
2176: if l_return_status <>FND_API.G_RET_STS_SUCCESS THEN
2185: result := wf_engine.eng_completed ||':'||wf_yes;
2186:
2187: end if;
2188: --IF PG_DEBUG < 10 THEN
2189: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2190: iex_debug_pub.logmessage ('create_next_work_item: ' || ' RESULT IS => '||result);
2191: END IF;
2192: --IF PG_DEBUG < 10 THEN
2193: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2189: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2190: iex_debug_pub.logmessage ('create_next_work_item: ' || ' RESULT IS => '||result);
2191: END IF;
2192: --IF PG_DEBUG < 10 THEN
2193: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2194: iex_debug_pub.logmessage ('**** END create_next_work_item ************');
2195: END IF;
2196: exception
2197: when others then
2211:
2212: l_value VARCHAR2(300);
2213: Begin
2214: -- IF PG_DEBUG < 10 THEN
2215: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2216: iex_debug_pub.logmessage ('**** BEGIN WAIT_SIGNAL ************');
2217: END IF;
2218: if funcmode <> 'RUN' then
2219: result := wf_engine.eng_null;
2225: itemkey => itemkey,
2226: aname => 'ACTIVITY_NAME',
2227: avalue => l_value);
2228: --IF PG_DEBUG < 10 THEN
2229: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2230: iex_debug_pub.logMessage('wait_signal: ' || 'ACTIVITYNAME' ||l_value);
2231: END IF;
2232: */
2233:
2240: --if it works.
2241: --COMMIT;
2242: result := wf_engine.eng_completed ||':'||wf_yes;
2243: -- IF PG_DEBUG < 10 THEN
2244: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2245: iex_debug_pub.logmessage ('**** END WAIT_SIGNAL ************');
2246: END IF;
2247: exception
2248: when others then
2267: l_result VARCHAR2(1);
2268: l_value VARCHAR2(300);
2269:
2270: BEGIN
2271: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2272: iex_debug_pub.logmessage ('**** START wait_complete_signal ************');
2273: END IF;
2274: if funcmode <> wf_engine.eng_run then
2275: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2271: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2272: iex_debug_pub.logmessage ('**** START wait_complete_signal ************');
2273: END IF;
2274: if funcmode <> wf_engine.eng_run then
2275: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2276: iex_debug_pub.logmessage('SECOND TIME FUNCMODE' ||funcmode);
2277: END IF;
2278: result := wf_engine.eng_null;
2279: return;
2280: end if;
2281:
2282:
2283:
2284: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2285: iex_debug_pub.logmessage('FUNCMODE' ||funcmode);
2286: END IF;
2287: l_value :=wf_engine.GetActivityLabel(actid);
2288: wf_engine.SetItemAttrText(itemtype => itemtype,
2288: wf_engine.SetItemAttrText(itemtype => itemtype,
2289: itemkey => itemkey,
2290: aname => 'ACTIVITY_NAME',
2291: avalue => l_value);
2292: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2293: iex_debug_pub.logMessage('ACTIVITYNAME' ||l_value);
2294: END IF;
2295:
2296:
2295:
2296:
2297: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
2298: ':'||wf_engine.eng_null;
2299: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2300: iex_debug_pub.logmessage ('**** END wait_complete_signal ************');
2301: END IF;
2302: exception
2303: when others then
2358: l_activity_label VARCHAR2(100);
2359:
2360: Begin
2361: -- IF PG_DEBUG < 10 THEN
2362: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2363: iex_debug_pub.logmessage ('**** START WAIT_SIGNAL ************');
2364: END IF;
2365: -- IF PG_DEBUG < 10 THEN
2366: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2362: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2363: iex_debug_pub.logmessage ('**** START WAIT_SIGNAL ************');
2364: END IF;
2365: -- IF PG_DEBUG < 10 THEN
2366: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2367: iex_debug_pub.logmessage ('wait_signal: ' || 'status' ||status ||'workitemid ' ||work_item_id || '**'||
2368: 'signal source '||signal_source||'strategy_id' ||strategy_id);
2369: END IF;
2370:
2373: status =>l_status,
2374: result =>l_result);
2375:
2376: -- IF PG_DEBUG < 10 THEN
2377: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2378: iex_debug_pub.logmessage('wait_signal: ' || 'status ofthe process '|| l_status);
2379: END IF;
2380:
2381: --- resume process only if it is suspend
2385:
2386: --check if the signal_source is fulfillment or optional
2387: if signal_source in ('FULFILLMENT','CUSTOM') THEN
2388: -- IF PG_DEBUG < 10 THEN
2389: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2390: iex_debug_pub.logmessage('wait_signal: ' || 'signal source '|| signal_source);
2391: END IF;
2392: -- the agent has not updated the current work item
2393: l_result := CHECK_CURRENT_WORK_ITEM(strategy_id,work_item_id);
2392: -- the agent has not updated the current work item
2393: l_result := CHECK_CURRENT_WORK_ITEM(strategy_id,work_item_id);
2394: IF l_result >0 THEN
2395: -- IF PG_DEBUG < 10 THEN
2396: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2397: iex_debug_pub.logmessage('wait_signal: ' || 'agent has not updated the work item');
2398: END IF;
2399: -- do not call update since custom or fulfilment is going to update it
2400: --update_workitem_Status(work_item_id,status );
2401: else
2402: --agent has updated and we are on the next work item or the strategy is
2403: --closed or complete, or ON HOLD
2404: -- IF PG_DEBUG < 10 THEN
2405: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2406: iex_debug_pub.logmessage('wait_signal: ' || 'agent has updated the work item');
2407: END IF;
2408: return;
2409: END IF;
2409: END IF;
2410:
2411: else -- signal source is null
2412: -- IF PG_DEBUG < 10 THEN
2413: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2414: iex_debug_pub.logmessage('wait_signal: ' || 'signal source is null');
2415: END IF;
2416: if work_item_id is NULL THEN
2417: -- the status could be ON-HOLD or 'OPEN' (from promises API)
2418: If status IN ('CLOSED','CANCELLED') THEN
2419: -- strategy is being closed or cancelled
2420: -- complete fulfilment and custom has to be aborted
2421: -- IF PG_DEBUG < 10 THEN
2422: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2423: iex_debug_pub.logmessage('wait_signal: ' || 'work item is null');
2424: END IF;
2425: --abort custom or fulfillment wfs' if they are not completed
2426: abort_processes(strategy_id);
2426: abort_processes(strategy_id);
2427: elsif status ='ONHOLD' THEN
2428: --continue being suspended
2429: -- IF PG_DEBUG < 10 THEN
2430: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2431: iex_debug_pub.logmessage('wait_signal: ' || 'work item is null and status is '||status);
2432: END IF;
2433: return;
2434: else --status is OPEN
2437: l_result := CHECK_WORK_ITEM_OPEN(strategy_id);
2438: IF l_result >0 THEN
2439: --remain suspended, do nothing
2440: -- IF PG_DEBUG < 10 THEN
2441: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2442: iex_debug_pub.logmessage('wait_signal: ' || 'work item is still open ');
2443: END IF;
2444: return;
2445: else
2444: return;
2445: else
2446: --work item has completed, resume process
2447: -- IF PG_DEBUG < 10 THEN
2448: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2449: iex_debug_pub.logmessage('wait_signal: ' || 'work item has been completed');
2450: END IF;
2451: END IF;
2452: end if; -- status check
2489: if signal_source in ('FULFILLMENT','CUSTOM') THEN
2490: return;
2491: else -- signal source is null
2492: -- IF PG_DEBUG < 10 THEN
2493: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2494: iex_debug_pub.logmessage('wait_signal: ' || 'signal source is null');
2495: END IF;
2496: if work_item_id is NULL THEN
2497: -- the status could be ON-HOLD or 'OPEN' (from promises API)
2498: If status IN ('CLOSED','CANCELLED') THEN
2499: -- strategy is being closed or cancelled
2500: -- complete fulfilment and custom has to be aborted
2501: -- IF PG_DEBUG < 10 THEN
2502: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2503: iex_debug_pub.logmessage('wait_signal: ' || 'work item is null');
2504: END IF;
2505: else
2506: -- IF PG_DEBUG < 10 THEN
2503: iex_debug_pub.logmessage('wait_signal: ' || 'work item is null');
2504: END IF;
2505: else
2506: -- IF PG_DEBUG < 10 THEN
2507: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2508: iex_debug_pub.logmessage('wait_signal: ' || 'work item is null and status is '||status);
2509: END IF;
2510: return;
2511: end if; -- status check
2514: -- maybe the agent can indicate if it is custom or fulfilment
2515: --work item . this portion is not there .so call abort on the
2516: -- strategy_id.
2517: -- IF PG_DEBUG < 10 THEN
2518: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2519: iex_debug_pub.logmessage('wait_signal: ' || 'work item is not null ');
2520: END IF;
2521: --05/10 if sendsiganl fails we don't want to abort process
2522: --so abort shoud be part of complete activity and send signal want complete
2528: itemtype => process,
2529: itemkey => strategy_id,
2530: aname => 'ACTIVITY_NAME');
2531: -- IF PG_DEBUG < 10 THEN
2532: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2533: iex_debug_pub.logmessage('wait_signal: ' || 'BEFORE CALLING COMPLETE ACTIVITY');
2534: END IF;
2535: -- IF PG_DEBUG < 10 THEN
2536: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2532: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2533: iex_debug_pub.logmessage('wait_signal: ' || 'BEFORE CALLING COMPLETE ACTIVITY');
2534: END IF;
2535: -- IF PG_DEBUG < 10 THEN
2536: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2537: iex_debug_pub.logmessage('wait_signal: ' || process ||strategy_id||l_activity_label);
2538: END IF;
2539:
2540: wf_engine.SetItemAttrText(itemtype => process,
2566: --this will happen if the workflow failed before
2567: --being suspended, for example if notification
2568: -- does not have a performer.
2569: -- Bug 7703319 by Ehuh
2570: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2571: iex_debug_pub.logmessage('l_activity is NULL ..... ');
2572: END IF;
2573: CLOSE_AND_ABORT_STRATEGY_WF(strategy_id,status);
2574: --return;
2580: CLOSE_AND_ABORT_STRATEGY_WF(strategy_id,status);
2581: NULL;
2582: --COMMIT; -- the work flow was not going to end from the close strategy
2583: END IF; -- item status
2584: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2585: iex_debug_pub.logmessage ('**** END WAIT_SIGNAL ************');
2586: END IF;
2587:
2588: exception
2588: exception
2589: when others then
2590: wf_core.context('IEX_STRATEGY_WF','send_signal',process,
2591: strategy_id,to_char(111),'RUN');
2592: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2593: iex_debug_pub.logmessage ('Error in SEND_SIGNAL -->' ||sqlerrm);
2594: END IF;
2595: raise;
2596:
2631: -- initialize variable
2632: l_return_status :=FND_API.G_RET_STS_SUCCESS;
2633:
2634: -- IF PG_DEBUG < 10 THEN
2635: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2636: iex_debug_pub.logmessage ('**** START CUSTOM_CHECK ************');
2637: END IF;
2638: if funcmode <> 'RUN' then
2639: result := wf_engine.eng_null;
2670: aname => 'ACTIVITY_NAME',
2671: avalue => l_value);
2672:
2673: -- IF PG_DEBUG < 10 THEN
2674: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2675: iex_debug_pub.logMessage('CUSTOM_CHECK: ' || 'ACTIVITYNAME' ||l_value);
2676: END IF;
2677: */
2678: l_work_item_temp_id := wf_engine.GetItemAttrNumber(
2706: l_custom_itemtype,
2707: l_custom_wf_rec);
2708:
2709: -- IF PG_DEBUG < 10 THEN
2710: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2711: iex_debug_pub.logmessage('CUSTOM_CHECK: ' || 'before calling custom workflow');
2712: END IF;
2713:
2714: IEX_STRY_cuwf_pub.Start_CustomWF
2722: x_return_status => l_return_status);
2723: End if;
2724:
2725: -- IF PG_DEBUG < 10 THEN
2726: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2727: iex_debug_pub.logmessage ('CUSTOM_CHECK: ' || 'End of custom work flow ');
2728: END IF;
2729: result := wf_engine.eng_completed ||':'||l_result;
2730: return;
2742: */
2743:
2744:
2745: -- IF PG_DEBUG < 10 THEN
2746: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2747: iex_debug_pub.logmessage ('**** END CUSTOM_CHECK ************');
2748: END IF;
2749: exception
2750: when others then
2788: -- initialize variable
2789: l_return_status :=FND_API.G_RET_STS_SUCCESS;
2790:
2791: -- IF PG_DEBUG < 10 THEN
2792: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2793: iex_debug_pub.logmessage ('**** START FULFIL_CHECK ************');
2794: END IF;
2795: if funcmode <> 'RUN' then
2796: result := wf_engine.eng_null;
2802: itemkey => itemkey,
2803: aname => 'ACTIVITY_NAME',
2804: avalue => l_value);
2805: -- IF PG_DEBUG < 10 THEN
2806: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2807: iex_debug_pub.logMessage('FULFIL_CHECK: ' || 'ACTIVITYNAME' ||l_value);
2808: END IF;
2809: */
2810:
2854: else
2855: l_strategy_mailer_rec.xdo_template_id := l_fulfil_temp_id;
2856: end if;
2857: -- IF PG_DEBUG < 10 THEN
2858: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2859: iex_debug_pub.logmessage('FULFIL_CHECK: ' || 'fulful template id' ||l_fulfil_temp_id);
2860: END IF;
2861: iex_strategy_work_pub.strategy_mailer(
2862: p_api_version =>1.0,
2883: */
2884:
2885:
2886: -- IF PG_DEBUG < 10 THEN
2887: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2888: iex_debug_pub.logmessage ('**** END FULFIL_CHECK ************');
2889: END IF;
2890: exception
2891: when others then
2933: BEGIN
2934: -- initialize variable
2935: l_return_status :=FND_API.G_RET_STS_SUCCESS;
2936:
2937: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2938: iex_debug_pub.logmessage ('**** START cal_post_wait ************');
2939: END IF;
2940: if funcmode <> 'RUN' then
2941: result := wf_engine.eng_null;
2967: itemtype => itemtype,
2968: itemkey => itemkey,
2969: aname => 'WORKITEM_TEMPLATE_ID');
2970:
2971: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2972: iex_debug_pub.logMessage('cal_post_wait workitemtempid = ' ||l_work_item_temp_id);
2973: END IF;
2974:
2975: --Begin bug#5502077 schekuri 30-Apr-2007
2991: end if;
2992: exception
2993: when others then
2994: l_result := wf_no;
2995: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2996: iex_debug_pub.logMessage('cal_post_wait GET FULFILLMENT ERROR ');
2997: END IF;
2998: end;
2999:
2996: iex_debug_pub.logMessage('cal_post_wait GET FULFILLMENT ERROR ');
2997: END IF;
2998: end;
2999:
3000: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3001: iex_debug_pub.logMessage('cal_post_wait l_result = ' ||l_result);
3002: END IF;
3003:
3004: --start fulfilment process
3004: --start fulfilment process
3005: If l_result = wf_yes THEN
3006: select sysdate into l_execution_time from dual;
3007: l_return := wf_no;
3008: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3009: iex_debug_pub.logMessage('cal_post_wait l_execution_time = ' ||l_execution_time);
3010: END IF;
3011: else*/
3012: --End bug#5502077 schekuri 30-Apr-2007
3025: END IF;
3026: -- end for bug 10133319
3027: exception
3028: when others then
3029: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3030: iex_debug_pub.logMessage('cal_post_wait get execution time error ');
3031: END IF;
3032: end;
3033:
3030: iex_debug_pub.logMessage('cal_post_wait get execution time error ');
3031: END IF;
3032: end;
3033:
3034: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3035: iex_debug_pub.logMessage('fulfil_check post_execution_wait = ' ||l_post_execution_wait);
3036: iex_debug_pub.logMessage('fulfil_check execution_time_uom = ' ||l_execution_time_uom);
3037: END IF;
3038: if (l_post_execution_wait = 0) then
3044: l_UOM =>l_execution_time_uom,
3045: l_UNIT =>l_post_execution_wait);
3046: exception
3047: when others then
3048: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3049: iex_debug_pub.logMessage('cal_post_wait convert date error ');
3050: END IF;
3051: end;
3052: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3048: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3049: iex_debug_pub.logMessage('cal_post_wait convert date error ');
3050: END IF;
3051: end;
3052: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3053: iex_debug_pub.logMessage('fulfil_check l_execution_time = ' ||l_execution_time);
3054: END IF;
3055:
3056: l_return := wf_yes;
3062: itemkey => itemkey,
3063: aname => 'EXECUTION_TIME',
3064: avalue => l_execution_time);
3065:
3066: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3067: iex_debug_pub.logMessage('cal_post_wait result = ' ||l_return);
3068: END IF;
3069:
3070: --Begin bug#5874874 gnramasa 25-Apr-2007
3075: --End bug#5874874 gnramasa 25-Apr-2007
3076:
3077: result := wf_engine.eng_completed ||':'||l_return;
3078:
3079: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3080: iex_debug_pub.logmessage ('**** END cal_post_wait ************');
3081: END IF;
3082: exception
3083: when others then
3115: FROM iex_strategy_work_items
3116: WHERE work_item_id = p_work_item_id;
3117:
3118: BEGIN
3119: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3120: iex_debug_pub.logmessage ('**** START cal_pre_wait ************');
3121: END IF;
3122: if funcmode <> 'RUN' then
3123: result := wf_engine.eng_null;
3142: itemtype => itemtype,
3143: itemkey => itemkey,
3144: aname => 'WORK_ITEMID');
3145:
3146: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3147: iex_debug_pub.logMessage('cal_pre_wait workitemtempid = ' ||l_work_item_temp_id);
3148: END IF;
3149:
3150: BEGIN
3160: where b.work_item_template_id = a.work_item_temp_id
3161: and b.work_item_id = l_work_item_id;
3162: END IF;
3163: -- end bug 10133319
3164: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3165: iex_debug_pub.logMessage('Collections cal_pre_wait pre_execution_wait = ' ||l_pre_execution_wait);
3166: iex_debug_pub.logMessage('Collections cal_pre_wait schedule_uom = ' ||l_schedule_uom);
3167: END IF;
3168: exception
3166: iex_debug_pub.logMessage('Collections cal_pre_wait schedule_uom = ' ||l_schedule_uom);
3167: END IF;
3168: exception
3169: when others then
3170: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3171: iex_debug_pub.logMessage('cal_pre_wait get execution time error ');
3172: END IF;
3173: end;
3174:
3179: l_schedule:= IEX_STRY_UTL_PUB.get_Date
3180: (p_date =>sysdate,
3181: l_UOM =>l_schedule_uom,
3182: l_UNIT =>l_pre_execution_wait);
3183: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3184: iex_debug_pub.logMessage('Collections cal_pre_wait l_schedule = ' || to_char(l_schedule, 'hh24:mi:ss mm/dd/yyyy'));
3185: END IF;
3186: exception
3187: when others then
3184: iex_debug_pub.logMessage('Collections cal_pre_wait l_schedule = ' || to_char(l_schedule, 'hh24:mi:ss mm/dd/yyyy'));
3185: END IF;
3186: exception
3187: when others then
3188: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3189: iex_debug_pub.logMessage('cal_pre_wait convert date error ');
3190: END IF;
3191: end;
3192:
3198: itemkey => itemkey,
3199: aname => 'PRE_WAIT_TIME',
3200: avalue => l_schedule);
3201:
3202: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3203: iex_debug_pub.logMessage('cal_pre_wait result = ' ||l_return);
3204: END IF;
3205:
3206: result := wf_engine.eng_completed ||':'||l_return;
3204: END IF;
3205:
3206: result := wf_engine.eng_completed ||':'||l_return;
3207:
3208: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3209: iex_debug_pub.logmessage ('**** END cal_pre_wait ************');
3210: END IF;
3211: exception
3212: when others then
3238: l_return VARCHAR2(1);
3239: l_strategy_status varchar2(100);
3240:
3241: BEGIN
3242: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3243: iex_debug_pub.logmessage ('**** START wi_failed_first_time ************');
3244: END IF;
3245: if funcmode <> 'RUN' then
3246: result := wf_engine.eng_null;
3261: itemkey => itemkey,
3262: aname => 'CREATE_WI_ERROR_COUNT');
3263:
3264:
3265: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3266: iex_debug_pub.logMessage('wi_failed_first_time l_create_wi_error_count = ' ||l_create_wi_error_count);
3267: END IF;
3268:
3269: if (l_create_wi_error_count = 1) then
3276: into l_restart_create_wi_time
3277: from dual;
3278: exception
3279: when others then
3280: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3281: iex_debug_pub.logMessage('wi_failed_first_time get sysdate time error ');
3282: END IF;
3283: end;
3284:
3297: itemkey => itemkey,
3298: aname => 'CREATE_WI_ERROR_COUNT',
3299: avalue => l_create_wi_error_count);
3300:
3301: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3302: iex_debug_pub.logMessage('wi_failed_first_time result = ' ||l_return);
3303: END IF;
3304:
3305: result := wf_engine.eng_completed ||':'||l_return;
3303: END IF;
3304:
3305: result := wf_engine.eng_completed ||':'||l_return;
3306:
3307: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3308: iex_debug_pub.logmessage ('**** END wi_failed_first_time ************');
3309: END IF;
3310: exception
3311: when others then
3340: WHERE work_item_id = p_work_item_id;
3341:
3342: BEGIN
3343: -- IF PG_DEBUG < 10 THEN
3344: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3345: iex_debug_pub.logmessage ('**** START OPTIONAL_CHECK ************');
3346: END IF;
3347: if funcmode <> 'RUN' then
3348: result := wf_engine.eng_null;
3349: return;
3350: end if;
3351:
3352: -- IF PG_DEBUG < 10 THEN
3353: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3354: iex_debug_pub.logmessage('OPTIONAL_CHECK: ' || '*************FUNCMODE' ||funcmode||'**********************');
3355: END IF;
3356:
3357: l_value :=wf_engine.GetActivityLabel(actid);
3359: itemkey => itemkey,
3360: aname => 'ACTIVITY_NAME',
3361: avalue => l_value);
3362: -- IF PG_DEBUG < 10 THEN
3363: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3364: iex_debug_pub.logMessage('OPTIONAL_CHECK: ' || 'ACTIVITYNAME' ||l_value);
3365: END IF;
3366:
3367: l_work_item_temp_id := wf_engine.GetItemAttrNumber(
3388: END IF;
3389: -- end bug 10133319
3390: result := wf_engine.eng_completed ||':'||l_result;
3391: -- IF PG_DEBUG < 10 THEN
3392: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3393: iex_debug_pub.logmessage ('**** END OPTIONAL_CHECK ************');
3394: END IF;
3395: exception
3396: when others then
3423: WHERE work_item_id = p_work_item_id;
3424:
3425: BEGIN
3426: -- IF PG_DEBUG < 10 THEN
3427: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3428: iex_debug_pub.logmessage ('**** START ESCALATE_CHECK ************');
3429: END IF;
3430: if funcmode <> 'RUN' then
3431: result := wf_engine.eng_null;
3438: aname => 'ACTIVITY_NAME',
3439: avalue => l_value);
3440:
3441: -- IF PG_DEBUG < 10 THEN
3442: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3443: iex_debug_pub.logMessage('ESCALATE_CHECK: ' || 'ACTIVITYNAME' ||l_value);
3444: END IF;
3445:
3446: l_work_item_temp_id := wf_engine.GetItemAttrNumber(
3467: END IF;
3468: -- end bug 10133319
3469: result := wf_engine.eng_completed ||':'||l_result;
3470: -- IF PG_DEBUG < 10 THEN
3471: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3472: iex_debug_pub.logmessage ('**** END ESCALATE_CHECK ************');
3473: END IF;
3474: exception
3475: when others then
3502: WHERE work_item_id = p_work_item_id;
3503:
3504: BEGIN
3505: -- IF PG_DEBUG < 10 THEN
3506: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3507: iex_debug_pub.logmessage ('**** START NOTIFY_CHECK ************');
3508: END IF;
3509: if funcmode <> 'RUN' then
3510: result := wf_engine.eng_null;
3516: itemkey => itemkey,
3517: aname => 'ACTIVITY_NAME',
3518: avalue => l_value);
3519: -- IF PG_DEBUG < 10 THEN
3520: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3521: iex_debug_pub.logMessage('NOTIFY_CHECK: ' || 'ACTIVITYNAME' ||l_value);
3522: END IF;
3523: */
3524: l_work_item_temp_id := wf_engine.GetItemAttrNumber(
3545: END IF;
3546: -- end bug 10133319
3547: result := wf_engine.eng_completed ||':'||l_result;
3548: -- IF PG_DEBUG < 10 THEN
3549: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3550: iex_debug_pub.logmessage ('**** END NOTIFY_CHECK ************');
3551: END IF;
3552: exception
3553: when others then
3568: l_execution_time date;
3569:
3570: BEGIN
3571:
3572: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3573: iex_debug_pub.logmessage ('**** BEGIN set_on_hold_wait ************');
3574: END IF;
3575: select sysdate+(23/24)
3576: into l_execution_time
3579: itemkey => itemkey,
3580: aname => 'ON_HOLD_WAIT_TIME',
3581: avalue => l_execution_time);
3582:
3583: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3584: iex_debug_pub.logmessage ('set_on_hold_wait: ' || 'ON_HOLD_WAIT_TIME' ||TO_CHAR(l_execution_time,'DD-MON-YYYY:HH:MI:SS'));
3585: END IF;
3586: exception
3587: when others then
3610: l_timeout_wi NUMBER;
3611: l_strategy_status VARCHAR2(100);
3612: BEGIN
3613: -- IF PG_DEBUG < 10 THEN
3614: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3615: iex_debug_pub.logmessage ('**** START ONHOLD_CHECK ************');
3616: END IF;
3617: if funcmode <> 'RUN' then
3618: result := wf_engine.eng_null;
3624: itemkey => itemkey,
3625: aname => 'ACTIVITY_NAME',
3626: avalue => l_value);
3627: -- IF PG_DEBUG < 10 THEN
3628: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3629: iex_debug_pub.logMessage('ONHOLD_CHECK: ' || 'ACTIVITYNAME' ||l_value);
3630: END IF;
3631: */
3632:
3702: end if;
3703: --End - schekuri - 03-Dec-2005 - bug#4506922
3704:
3705: -- IF PG_DEBUG < 10 THEN
3706: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3707: iex_debug_pub.logmessage ('**** END ONHOLD_CHECK ************');
3708: END IF;
3709:
3710: exception
3733: exc EXCEPTION;
3734: l_error VARCHAR2(32767);
3735: BEGIN
3736: -- IF PG_DEBUG < 10 THEN
3737: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3738: iex_debug_pub.logmessage ('**** START UPDATE_WORK_ITEM ************');
3739: END IF;
3740: if funcmode <> 'RUN' then
3741: result := wf_engine.eng_null;
3746: itemtype => itemtype,
3747: itemkey => itemkey,
3748: aname => 'WORK_ITEMID');
3749: -- IF PG_DEBUG < 10 THEN
3750: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3751: iex_debug_pub.logmessage('UPDATE_WORK_ITEM: ' || 'value of workitem id '||l_work_item_id);
3752: END IF;
3753: IEX_STRY_UTL_PUB.UPDATE_WORK_ITEM (p_api_version => l_api_version,
3754: p_init_msg_list => FND_API.G_TRUE,
3763: else
3764: RAISE EXC;
3765: END IF;
3766: -- IF PG_DEBUG < 10 THEN
3767: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3768: iex_debug_pub.logmessage ('**** END UPDATE_WORK_ITEM ************');
3769: END IF;
3770:
3771:
3774: --pass the error message
3775: -- get error message and passit pass it
3776: Get_Messages(l_msg_count,l_error);
3777: -- IF PG_DEBUG < 10 THEN
3778: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3779: iex_debug_pub.logmessage('UPDATE_WORK_ITEM: ' || 'error message is ' || l_error);
3780: END IF;
3781: wf_core.context('IEX_STRATEGY_WF','CUSTOM_CHECK',itemtype,
3782: itemkey,to_char(actid),funcmode,l_error);
3803: l_value VARCHAR2(300);
3804:
3805: BEGIN
3806: -- IF PG_DEBUG < 10 THEN
3807: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3808: iex_debug_pub.logmessage ('**** START WAIT_OPTIONAL ************');
3809: END IF;
3810: if funcmode <> wf_engine.eng_run then
3811: -- IF PG_DEBUG < 10 THEN
3808: iex_debug_pub.logmessage ('**** START WAIT_OPTIONAL ************');
3809: END IF;
3810: if funcmode <> wf_engine.eng_run then
3811: -- IF PG_DEBUG < 10 THEN
3812: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3813: iex_debug_pub.logmessage('WAIT_OPTIONAL: ' || 'SECOND TIME FUNCMODE' ||funcmode);
3814: END IF;
3815: result := wf_engine.eng_null;
3816: return;
3818:
3819:
3820:
3821: -- IF PG_DEBUG < 10 THEN
3822: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3823: iex_debug_pub.logmessage('WAIT_OPTIONAL: ' || 'FUNCMODE' ||funcmode);
3824: END IF;
3825: l_value :=wf_engine.GetActivityLabel(actid);
3826: wf_engine.SetItemAttrText(itemtype => itemtype,
3827: itemkey => itemkey,
3828: aname => 'ACTIVITY_NAME',
3829: avalue => l_value);
3830: -- IF PG_DEBUG < 10 THEN
3831: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3832: iex_debug_pub.logMessage('WAIT_OPTIONAL: ' || 'ACTIVITYNAME' ||l_value);
3833: END IF;
3834:
3835:
3835:
3836: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
3837: ':'||wf_engine.eng_null;
3838: -- IF PG_DEBUG < 10 THEN
3839: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3840: iex_debug_pub.logmessage ('**** END WAIT_OPTIONAL ************');
3841: END IF;
3842: exception
3843: when others then
3863: l_value VARCHAR2(300);
3864:
3865: BEGIN
3866: -- IF PG_DEBUG < 10 THEN
3867: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3868: iex_debug_pub.logmessage ('**** START WAIT_ESCALATION ************');
3869: END IF;
3870: if funcmode <> wf_engine.eng_run then
3871: result := wf_engine.eng_null;
3874:
3875:
3876:
3877: -- IF PG_DEBUG < 10 THEN
3878: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3879: iex_debug_pub.logmessage('WAIT_ESCALATION: ' || 'FUNCMODE' ||funcmode);
3880: END IF;
3881: l_value :=wf_engine.GetActivityLabel(actid);
3882: wf_engine.SetItemAttrText(itemtype => itemtype,
3884: aname => 'ACTIVITY_NAME',
3885: avalue => l_value);
3886:
3887: -- IF PG_DEBUG < 10 THEN
3888: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3889: iex_debug_pub.logMessage('WAIT_ESCALATION: ' || 'ACTIVITYNAME' ||l_value);
3890: END IF;
3891:
3892:
3892:
3893: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
3894: ':'||wf_engine.eng_null;
3895: -- IF PG_DEBUG < 10 THEN
3896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3897: iex_debug_pub.logmessage ('**** END WAIT_ESCALATION ************');
3898: END IF;
3899: exception
3900: when others then
3929:
3930: BEGIN
3931:
3932: -- IF PG_DEBUG < 10 THEN
3933: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3934: iex_debug_pub.logmessage ('**** START WAIT_STRATEGY ************');
3935: END IF;
3936: if funcmode <> wf_engine.eng_run then
3937: result := wf_engine.eng_null;
3940:
3941:
3942:
3943: -- IF PG_DEBUG < 10 THEN
3944: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3945: iex_debug_pub.logmessage('WAIT_STRATEGY: ' || 'FUNCMODE' ||funcmode);
3946: END IF;
3947: l_value :=wf_engine.GetActivityLabel(actid);
3948: wf_engine.SetItemAttrText(itemtype => itemtype,
3950: aname => 'ACTIVITY_NAME',
3951: avalue => l_value);
3952:
3953: -- IF PG_DEBUG < 10 THEN
3954: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3955: iex_debug_pub.logMessage('WAIT_STRATEGY: ' || 'ACTIVITYNAME' ||l_value);
3956: END IF;
3957:
3958:
3958:
3959: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
3960: ':'||wf_engine.eng_null;
3961: -- IF PG_DEBUG < 10 THEN
3962: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3963: iex_debug_pub.logmessage ('**** END WAIT_STRATEGY ************');
3964: END IF;
3965: exception
3966: when others then
4033:
4034:
4035: BEGIN
4036: -- IF PG_DEBUG < 10 THEN
4037: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4038: iex_debug_pub.logmessage ('**** start CLOSE_AND_ABORT_STRATEGY_WF ************');
4039: END IF;
4040:
4041: abort_processes(l_strategy_id);
4049: p_strategy_id => l_strategy_id,
4050: p_status => l_status);
4051:
4052: -- IF PG_DEBUG < 10 THEN
4053: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4054: iex_debug_pub.logmessage ('CLOSE_AND_ABORT_STRATEGY_WF: ' || '**** status after closing/cancelling strategy is '||
4055: l_return_status);
4056: END IF;
4057:
4060: itemkey => l_strategy_id);
4061: EXCEPTION
4062: WHEN OTHERS THEN
4063: -- IF PG_DEBUG < 10 THEN
4064: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4065: iex_debug_pub.logmessage('CLOSE_AND_ABORT_STRATEGY_WF: ' || 'abort process ' || l_strategy_id ||
4066: 'has failed');
4067: END IF;
4068: END;
4067: END IF;
4068: END;
4069:
4070: -- IF PG_DEBUG < 10 THEN
4071: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4072: iex_debug_pub.logmessage ('**** end CLOSE_AND_ABORT_STRATEGY_WF ************');
4073: END IF;
4074: END CLOSE_AND_ABORT_STRATEGY_WF;
4075:
4092:
4093:
4094: BEGIN
4095: -- IF PG_DEBUG < 10 THEN
4096: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4097: iex_debug_pub.logmessage ('**** start SET_SESSION_CTX ************');
4098: END IF;
4099: --set item Attributes
4100: --set org_id
4113: aname => 'RESP_APPL_ID',
4114: avalue => FND_GLOBAL.RESP_APPL_ID );
4115:
4116: -- IF PG_DEBUG < 10 THEN
4117: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4118: iex_debug_pub.logmessage ('SET_SESSION_CTX: ' || 'USER_ID' || FND_GLOBAL.USER_ID);
4119: END IF;
4120: -- IF PG_DEBUG < 10 THEN
4121: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4117: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4118: iex_debug_pub.logmessage ('SET_SESSION_CTX: ' || 'USER_ID' || FND_GLOBAL.USER_ID);
4119: END IF;
4120: -- IF PG_DEBUG < 10 THEN
4121: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4122: iex_debug_pub.logmessage ('SET_SESSION_CTX: ' || 'RESP_ID' || FND_GLOBAL.RESP_ID);
4123: END IF;
4124: -- IF PG_DEBUG < 10 THEN
4125: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4121: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4122: iex_debug_pub.logmessage ('SET_SESSION_CTX: ' || 'RESP_ID' || FND_GLOBAL.RESP_ID);
4123: END IF;
4124: -- IF PG_DEBUG < 10 THEN
4125: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4126: iex_debug_pub.logmessage ('SET_SESSION_CTX: ' || 'RESP_APPL_ID' ||FND_GLOBAL.RESP_APPL_ID);
4127: END IF;
4128:
4129:
4139: wf_engine.SetItemAttrText(itemtype =>itemtype,
4140: itemkey => itemkey,
4141: aname => 'CUSTOMER_NAME',
4142: avalue => l_party_name);
4143: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4144: iex_debug_pub.logmessage ('party_name' ||l_party_name);
4145: END IF;
4146: exception
4147: when others then
4148: null;
4149: end;
4150: end if;
4151:
4152: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4153: iex_debug_pub.logmessage ('**** End SET_SESSION_CTX ************');
4154: END IF;
4155: EXCEPTION
4156: when others then
4211:
4212: l_vTest := 'Runtime Changed';
4213:
4214: -- IF PG_DEBUG < 10 THEN
4215: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4216: iex_debug_pub.logmessage ('get_billto_resource: ' || '**** BEGIN get_billto_resource ************');
4217: iex_debug_pub.logmessage ('default resource id from profile iex_stry_default_resource) ' || l_resource_id);
4218: iex_debug_pub.logmessage ('calling get_billto_resources ' || p_siteuse_id);
4219: END IF;
4243: x_resource_tab => l_resource_tab);
4244:
4245: --End bug#5373412 schekuri 10-Jul-2006
4246: --IF PG_DEBUG < 10 THEN
4247: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4248: iex_debug_pub.logmessage('get_billto_resource: ' || 'in get resource and l_return_status = '||l_return_status);
4249: iex_debug_pub.logmessage('in get resource and l_return_status from iex_utilities.get_billto_resources = '||l_return_status);
4250: iex_debug_pub.logmessage('resource count from iex_utilities.get_billto_resources = '||l_resource_tab.count);
4251: END IF;
4262:
4263: --if p_competence_id IS NULL THEN
4264: if p_competence_tab.count = 0 THEN
4265: -- IF PG_DEBUG < 10 THEN
4266: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4267: iex_debug_pub.logmessage('get_billto_resource: ' || 'Competence table is empty');
4268: END IF;
4269: --get the first resource id if competence id is null from
4270: -- the work item template
4270: -- the work item template
4271: FOR i in 1..l_resource_tab.count LOOP
4272: l_resource_id := l_resource_tab(i).resource_id;
4273: -- IF PG_DEBUG < 10 THEN
4274: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4275: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
4276: END IF;
4277: EXIT;
4278: END LOOP;
4277: EXIT;
4278: END LOOP;
4279: else
4280: -- IF PG_DEBUG < 10 THEN
4281: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4282: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
4283: END IF;
4284: FOR i in 1..l_resource_tab.count LOOP
4285: -- IF PG_DEBUG < 10 THEN
4282: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
4283: END IF;
4284: FOR i in 1..l_resource_tab.count LOOP
4285: -- IF PG_DEBUG < 10 THEN
4286: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4287: iex_debug_pub.logmessage('get_billto_resource: ' || 'PERSON ID is '||l_resource_tab(i).person_id);
4288: iex_debug_pub.logmessage('get_billto_resource: ' || 'RESOURCE ID is '||l_resource_tab(i).resource_id);
4289: END IF;
4290:
4294: p_competence_tab(j));
4295: FETCH c_get_person_id INTO l_count;
4296: CLOSE c_get_person_id;
4297: -- IF PG_DEBUG < 10 THEN
4298: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4299: iex_debug_pub.logmessage('get_billto_resource: ' || 'COMPETENCE ID is '||
4300: p_competence_tab(j));
4301: END IF;
4302: -- IF PG_DEBUG < 10 THEN
4299: iex_debug_pub.logmessage('get_billto_resource: ' || 'COMPETENCE ID is '||
4300: p_competence_tab(j));
4301: END IF;
4302: -- IF PG_DEBUG < 10 THEN
4303: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4304: iex_debug_pub.logmessage('get_billto_resource: ' || 'no of matches '|| l_count);
4305: END IF;
4306: If l_count =0 THEN
4307: -- match not found, use the first resource and exit out NOCOPY
4310: --Commented the below the code to return default resource id instead of first resource id
4311: --when there is no resource found matching the competency of the workitem.
4312: /*l_resource_id := l_resource_tab(1).resource_id;
4313: -- IF PG_DEBUG < 10 THEN
4314: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4315: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
4316: END IF;*/
4317: --End bug#5373412 schekuri 10-Jul-2006
4318: -- have to look for the next resource if l_found is false
4320: EXIT;
4321: ELSE
4322: l_resource_id := l_resource_tab(i).resource_id;
4323: -- IF PG_DEBUG < 10 THEN
4324: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4325: iex_debug_pub.logmessage('1st record found with competence matched l_resource_tab l_resource_id = '|| l_resource_id);
4326: END IF;
4327: l_found :=TRUE;
4328: End if;
4330: if l_found THEN
4331: -- a matching resource with all the competencies
4332: --have been found ,stop looking for next resource
4333: -- IF PG_DEBUG < 10 THEN
4334: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4335: iex_debug_pub.logmessage('get_billto_resource: ' || 'match found and RESOURCE ID is =>'
4336: ||l_resource_tab(i).resource_id);
4337: END IF;
4338: exit;
4341: end if;
4342: --assign out NOCOPY variable
4343: x_resource_id :=l_resource_id;
4344: -- IF PG_DEBUG < 10 THEN
4345: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4346: iex_debug_pub.logmessage('get_billto_resource: ' || 'value of x_resource_id' ||x_resource_id);
4347: END IF;
4348: -- IF PG_DEBUG < 10 THEN
4349: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4345: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4346: iex_debug_pub.logmessage('get_billto_resource: ' || 'value of x_resource_id' ||x_resource_id);
4347: END IF;
4348: -- IF PG_DEBUG < 10 THEN
4349: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4350: iex_debug_pub.logmessage ('get_billto_resource: ' || '**** END get_billto_resource ************');
4351: END IF;
4352:
4353: return l_bReturn;
4407:
4408: l_vTest := 'Runtime Changed';
4409:
4410: -- IF PG_DEBUG < 10 THEN
4411: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4412: iex_debug_pub.logmessage ('get_account_resource: ' || '**** BEGIN get_billto_resource ************');
4413: iex_debug_pub.logmessage ('default resource id from profile iex_stry_default_resource) ' || l_resource_id);
4414: iex_debug_pub.logmessage ('calling get_account_resources ' || p_account_id);
4415: END IF;
4436: x_return_status => l_return_status,
4437: p_account_id => p_account_id,
4438: x_resource_tab => l_resource_tab);*/
4439: --End bug#5373412 schekuri 10-Jul-2006
4440: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4441: iex_debug_pub.logmessage('get_billto_resource: ' || 'in get resource and l_return_status = '||l_return_status);
4442: iex_debug_pub.logmessage('in get resource and l_return_status from iex_utilities.get_assign_account_resources = '||l_return_status);
4443: iex_debug_pub.logmessage('resource count from iex_utilities.get_assign_account_resources = '||l_resource_tab.count);
4444: END IF;
4454:
4455:
4456: --if p_competence_id IS NULL THEN
4457: if p_competence_tab.count = 0 THEN
4458: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4459: iex_debug_pub.logmessage('get_account_resource: ' || 'Competence table is empty');
4460: END IF;
4461: --get the first resource id if competence id is null from
4462: -- the work item template
4461: --get the first resource id if competence id is null from
4462: -- the work item template
4463: FOR i in 1..l_resource_tab.count LOOP
4464: l_resource_id := l_resource_tab(i).resource_id;
4465: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4466: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
4467: END IF;
4468: EXIT;
4469: END LOOP;
4467: END IF;
4468: EXIT;
4469: END LOOP;
4470: else
4471: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4472: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
4473: END IF;
4474: FOR i in 1..l_resource_tab.count LOOP
4475: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4471: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4472: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
4473: END IF;
4474: FOR i in 1..l_resource_tab.count LOOP
4475: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4476: iex_debug_pub.logmessage('get_account_resource: ' || 'PERSON ID is '||l_resource_tab(i).person_id);
4477: iex_debug_pub.logmessage('get_account_resource: ' || 'RESOURCE ID is '||l_resource_tab(i).resource_id);
4478: END IF;
4479:
4482: OPEN c_get_person_id (l_resource_tab(i).person_id,
4483: p_competence_tab(j));
4484: FETCH c_get_person_id INTO l_count;
4485: CLOSE c_get_person_id;
4486: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4487: iex_debug_pub.logmessage('get_account_resource: ' || 'COMPETENCE ID is '||
4488: p_competence_tab(j));
4489: END IF;
4490: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4486: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4487: iex_debug_pub.logmessage('get_account_resource: ' || 'COMPETENCE ID is '||
4488: p_competence_tab(j));
4489: END IF;
4490: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4491: iex_debug_pub.logmessage('get_account_resource: ' || 'no of matches '|| l_count);
4492: END IF;
4493: If l_count =0 THEN
4494: -- match not found, use the first resource and exit out NOCOPY
4496: --Begin bug#5373412 schekuri 10-Jul-2006
4497: --Commented the below the code to return default resource id instead of first resource id
4498: --when there is no resource found matching the competency of the workitem.
4499: /*l_resource_id := l_resource_tab(1).resource_id;
4500: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4501: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
4502: END IF;*/
4503: --End bug#5373412 schekuri 10-Jul-2006
4504: -- have to look for the next resource if l_found is false
4505: l_found :=FALSE;
4506: EXIT;
4507: ELSE
4508: l_resource_id := l_resource_tab(i).resource_id;
4509: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4510: iex_debug_pub.logmessage('1st record found with competence matched l_resource_tab l_resource_id = '|| l_resource_id);
4511: END IF;
4512: l_found :=TRUE;
4513: End if;
4514: END LOOP;
4515: if l_found THEN
4516: -- a matching resource with all the competencies
4517: --have been found ,stop looking for next resource
4518: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4519: iex_debug_pub.logmessage('get_account_resource: ' || 'match found and RESOURCE ID is =>'
4520: ||l_resource_tab(i).resource_id);
4521: END IF;
4522: exit;
4524: END LOOP;
4525: end if;
4526: --assign out NOCOPY variable
4527: x_resource_id :=l_resource_id;
4528: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4529: iex_debug_pub.logmessage('get_account_resource: ' || 'value of x_resource_id' ||x_resource_id);
4530: END IF;
4531: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4532: iex_debug_pub.logmessage ('get_account_resource: ' || '**** END get_account_resource ************');
4527: x_resource_id :=l_resource_id;
4528: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4529: iex_debug_pub.logmessage('get_account_resource: ' || 'value of x_resource_id' ||x_resource_id);
4530: END IF;
4531: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4532: iex_debug_pub.logmessage ('get_account_resource: ' || '**** END get_account_resource ************');
4533: END IF;
4534:
4535: return l_bReturn;
4549: l_result VARCHAR2(1);
4550: l_value VARCHAR2(300);
4551:
4552: BEGIN
4553: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4554: iex_debug_pub.logmessage ('**** START wait_on_hold_signal ************');
4555: END IF;
4556: if funcmode <> wf_engine.eng_run then
4557: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4553: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4554: iex_debug_pub.logmessage ('**** START wait_on_hold_signal ************');
4555: END IF;
4556: if funcmode <> wf_engine.eng_run then
4557: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4558: iex_debug_pub.logmessage('SECOND TIME FUNCMODE' ||funcmode);
4559: END IF;
4560: result := wf_engine.eng_null;
4561: return;
4562: end if;
4563:
4564:
4565:
4566: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4567: iex_debug_pub.logmessage('FUNCMODE' ||funcmode);
4568: END IF;
4569: l_value :=wf_engine.GetActivityLabel(actid);
4570: wf_engine.SetItemAttrText(itemtype => itemtype,
4570: wf_engine.SetItemAttrText(itemtype => itemtype,
4571: itemkey => itemkey,
4572: aname => 'ACTIVITY_NAME',
4573: avalue => l_value);
4574: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4575: iex_debug_pub.logMessage('ACTIVITYNAME' ||l_value);
4576: END IF;
4577:
4578:
4577:
4578:
4579: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
4580: ':'||wf_engine.eng_null;
4581: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4582: iex_debug_pub.logmessage ('**** END wait_on_hold_signal ************');
4583: END IF;
4584: exception
4585: when others then
4608: l_strategy_status VARCHAR2(50);
4609:
4610: BEGIN
4611:
4612: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4613: iex_debug_pub.logmessage ('**** START update_work_item_to_open ************');
4614: END IF;
4615: if funcmode <> wf_engine.eng_run then
4616: result := wf_engine.eng_null;
4646: UPDATE IEX_STRATEGY_WORK_ITEMS SET STATUS_CODE = 'OPEN' WHERE WORK_ITEM_ID = l_work_item_id;
4647: END IF;
4648: end if;
4649:
4650: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4651: iex_debug_pub.logmessage ('**** END update_work_item_to_open ************');
4652: END IF;
4653:
4654: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4650: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4651: iex_debug_pub.logmessage ('**** END update_work_item_to_open ************');
4652: END IF;
4653:
4654: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4655: iex_debug_pub.logmessage('FUNCMODE ' ||funcmode);
4656: END IF;
4657:
4658: l_value :=wf_engine.GetActivityLabel(actid);
4661: itemkey => itemkey,
4662: aname => 'ACTIVITY_NAME',
4663: avalue => l_value);
4664:
4665: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4666: iex_debug_pub.logMessage('ACTIVITYNAME ' ||l_value);
4667: END IF;
4668:
4669:
4703: WHERE work_item_id = p_work_item_id;
4704: l_resource_id number; -- added for bug 8919933 PNAVEENK
4705: BEGIN
4706: -- IF PG_DEBUG < 10 THEN
4707: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4708: iex_debug_pub.logmessage ('**** START UPDATE_ESCALATION_FLAG ************');
4709: END IF;
4710: if funcmode <> 'RUN' then
4711: result := wf_engine.eng_null;
4720: itemtype => itemtype,
4721: itemkey => itemkey,
4722: aname => 'PARTY_ID');
4723: -- IF PG_DEBUG < 10 THEN
4724: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4725: iex_debug_pub.logmessage('UPDATE_ESC_FLAG: ' || 'value of workitem id '||l_work_item_id);
4726: END IF;
4727: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4728: iex_debug_pub.logmessage ('UPDATE_ESC_FLAG: ' || 'Updating the work item..');
4723: -- IF PG_DEBUG < 10 THEN
4724: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4725: iex_debug_pub.logmessage('UPDATE_ESC_FLAG: ' || 'value of workitem id '||l_work_item_id);
4726: END IF;
4727: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4728: iex_debug_pub.logmessage ('UPDATE_ESC_FLAG: ' || 'Updating the work item..');
4729: END IF;
4730: open c_get_work_items(l_work_item_id);
4731: fetch c_get_work_items into l_status_code,l_object_version_number;
4742: x_msg_count => l_msg_count,
4743: x_msg_data => l_msg_data,
4744: x_return_status => l_return_status,
4745: XO_OBJECT_VERSION_NUMBER =>l_object_version_number );
4746: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4747: iex_debug_pub.logmessage ('UPDATE_ESC_FLAG: Return status = ' || l_return_status);
4748: END IF;
4749: if l_return_status =FND_API.G_RET_STS_SUCCESS THEN
4750: begin
4759: else
4760: RAISE EXC;
4761: END IF;
4762: -- IF PG_DEBUG < 10 THEN
4763: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4764: iex_debug_pub.logmessage ('**** END UPDATE_ESC_FLAG ************');
4765: END IF;
4766:
4767: -- start for bug 8919933 PNAVEENK
4766:
4767: -- start for bug 8919933 PNAVEENK
4768:
4769: Begin
4770: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4771: iex_debug_pub.logmessage ('**** START UPDATE_NOTIFICATION_RESOURCE ************');
4772: END IF;
4773:
4774:
4782: set_notification_resources(l_resource_id, itemtype, itemkey);
4783:
4784: result := wf_engine.eng_completed ||':'||wf_yes;
4785:
4786: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4787: iex_debug_pub.logmessage ('**** END UPDATE_NOTIFICATION_RESOURCE ************');
4788: END IF;
4789:
4790: exception
4800: --pass the error message
4801: -- get error message and passit pass it
4802: Get_Messages(l_msg_count,l_error);
4803: -- IF PG_DEBUG < 10 THEN
4804: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4805: iex_debug_pub.logmessage('UPDATE_ESC_FLAG: ' || 'error message is ' || l_error);
4806: END IF;
4807: wf_core.context('IEX_STRATEGY_WF','UPDATE_ESC_FLAG',itemtype,
4808: itemkey,to_char(actid),funcmode,l_error);
4815:
4816:
4817: begin
4818: -- initialize variable
4819: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4820: wf_yes := 'Y';
4821: wf_no := 'N';
4822: end IEX_STRATEGY_WF;