[Home] [Help]
62: BEGIN
63: --check for custom work flow first
64: --abort all the custom workflow for the given strategy_id
65: -- IF PG_DEBUG < 10 THEN
66: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
67: iex_debug_pub.logmessage ('**** BEGIN New abort_processes ************');
68: END IF;
69:
70: -- Begin bug 7703319
107: itemkey => c_rec.work_item_id,
108: status => l_status,
109: result => l_result);
110: -- IF PG_DEBUG < 10 THEN
111: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
112: iex_debug_pub.logmessage('abort_processes: ' || 'after workflow status check ' ||l_status || ' item key'
113: || c_rec.work_item_id);
114: END IF;
115:
114: END IF;
115:
116: IF l_status <> wf_engine.eng_completed THEN
117: -- IF PG_DEBUG < 10 THEN
118: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
119: iex_debug_pub.logmessage('abort_processes: ' || ' process has not completed and status =>'|| l_status);
120: END IF;
121: BEGIN
122: wf_engine.abortprocess(itemtype => c_rec.itemtype,
123: itemkey => c_rec.work_item_id);
124: EXCEPTION
125: WHEN OTHERS THEN
126: -- IF PG_DEBUG < 10 THEN
127: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
128: iex_debug_pub.logmessage('abort_processes: ' || 'abort process ' || c_rec.itemtype ||
129: 'itemkey ' || c_rec.work_item_id ||'has failed');
130: END IF;
131: END;
145: itemkey => c_rec.work_item_id,
146: status =>l_status,
147: result =>l_result);
148: -- IF PG_DEBUG < 10 THEN
149: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
150: iex_debug_pub.logmessage('abort_processes: ' || 'after workflow status check ' ||l_status || ' item key'
151: ||c_rec.work_item_id);
152: END IF;
153: IF l_status <> wf_engine.eng_completed THEN
151: ||c_rec.work_item_id);
152: END IF;
153: IF l_status <> wf_engine.eng_completed THEN
154: -- IF PG_DEBUG < 10 THEN
155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
156: iex_debug_pub.logmessage ('abort_processes: ' || ' in fulfilment and process has not completed '||
157: 'and status =>'||l_status);
158: END IF;
159: BEGIN
161: itemkey => c_rec.work_item_id);
162: EXCEPTION
163: WHEN OTHERS THEN
164: -- IF PG_DEBUG < 10 THEN
165: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
166: iex_debug_pub.logmessage('abort_processes: ' || 'abort process ' || l_itemtype ||
167: 'itemkey ' || c_rec.work_item_id ||'has failed');
168: END IF;
169: END;
175: END ;
176:
177:
178: -- IF PG_DEBUG < 10 THEN
179: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
180: iex_debug_pub.logmessage ('**** END abort_processes ************');
181: END IF;
182: EXCEPTION
183: WHEN OTHERS THEN
181: END IF;
182: EXCEPTION
183: WHEN OTHERS THEN
184: -- IF PG_DEBUG < 10 THEN
185: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
186: iex_debug_pub.logmessage('abort_processes: ' || 'abort process has failed' );
187: END IF;
188: END abort_processes;
189:
198: RETURN NUMBER IS
199: v_result NUMBER;
200: BEGIN
201: -- IF PG_DEBUG < 10 THEN
202: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
203: iex_debug_pub.logmessage ('**** BEGIN CHECK_WORK_ITEM_OPEN ************');
204: END IF;
205: select count(*)
206: INTO v_result
213: and a.status_code ='OPEN';
214:
215: return v_result;
216: -- IF PG_DEBUG < 10 THEN
217: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
218: iex_debug_pub.logmessage ('**** END CHECK_WORK_ITEM_OPEN ************');
219: END IF;
220: END CHECK_WORK_ITEM_OPEN;
221:
229: RETURN NUMBER IS
230: v_result NUMBER;
231: BEGIN
232: -- IF PG_DEBUG < 10 THEN
233: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
234: iex_debug_pub.logmessage ('**** BEGIN CHECK_CURRENT_WORK_ITEM ************');
235: END IF;
236: select count(*) INTO v_result from iex_strategies
237: where strategy_id =p_strategy_id
238: and next_work_item_id =p_work_item_id
239: and status_code ='OPEN';
240: return v_result;
241: -- IF PG_DEBUG < 10 THEN
242: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
243: iex_debug_pub.logmessage ('**** END CHECK_CURRENT_WORK_ITEM ************');
244: END IF;
245: END CHECK_CURRENT_WORK_ITEM;
246:
256: l_msg_data VARCHAR2(32767);
257:
258: BEGIN
259: -- IF PG_DEBUG < 10 THEN
260: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
261: iex_debug_pub.logmessage ('**** BEGIN update_workitem_Status ************');
262: END IF;
263: IEX_STRY_UTL_PUB.UPDATE_WORK_ITEM (p_api_version => l_api_version,
264: p_init_msg_list => FND_API.G_TRUE,
269: p_work_item_id => p_work_item_id,
270: p_status => p_status);
271:
272: -- IF PG_DEBUG < 10 THEN
273: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
274: iex_debug_pub.logmessage ('**** END update_workitem_Status ************');
275: END IF;
276: END update_workitem_Status;
277:
292: where resource_id =p_resource_id;
293:
294: BEGIN
295: -- IF PG_DEBUG < 10 THEN
296: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
297: iex_debug_pub.logmessage ('**** BEGIN get_username ************');
298: END IF;
299: OPEN c_getname(p_resource_id);
300: --FETCH c_getname INTO x_username; -- bug 6717880/7170165 by Ehuh
300: --FETCH c_getname INTO x_username; -- bug 6717880/7170165 by Ehuh
301: FETCH c_getname INTO x_username, x_source_name; -- bug 6717880/7170165 by Ehuh
302: CLOSE c_getname;
303: -- IF PG_DEBUG < 10 THEN
304: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
305: iex_debug_pub.logmessage ('**** END get_username ************');
306: END IF;
307: END get_username;
308:
333:
334:
335: BEGIN
336: -- IF PG_DEBUG < 10 THEN
337: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
338: iex_debug_pub.logmessage ('**** BEGIN set_notification_resources ************');
339: END IF;
340: -- get user name from jtf_rs_resource_extns
341: --Start bug 6717880/7170165 by Ehuh
362: -- for the time being assign mgr =resource_id
363: BEGIN
364: open c_manager(p_resource_id);
365: fetch c_manager into l_mgr_id, l_mgrname, l_mgr_resource_id;
366: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
367: iex_debug_pub.logmessage ('Manager Info ' || l_mgrName || ' ID ' ||
368: l_mgr_id || 'Resource ID ' || l_mgr_resource_id);
369: END IF;
370: close c_manager;
385: itemkey => itemkey,
386: aname => 'NOTIFICATION_MGRNAME',
387: avalue => l_mgrname);
388: -- IF PG_DEBUG < 10 THEN
389: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
390: iex_debug_pub.logmessage ('**** END set_notification_resources ************');
391: END IF;
392: exception
393: when others then
411: -- initialize variable
412: l_grace_period := nvl(fnd_profile.value('IEX_STRY_GRACE_PERIOD'),0);
413:
414: -- IF PG_DEBUG < 10 THEN
415: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
416: iex_debug_pub.logmessage ('**** BEGIN set_escalate_wait_time ************');
417: END IF;
418: wf_engine.SetItemAttrDate(itemtype => itemtype,
419: itemkey => itemkey,
419: itemkey => itemkey,
420: aname => 'ESCALATE_WAIT_TIME',
421: avalue => p_escalate_date);
422: -- IF PG_DEBUG < 10 THEN
423: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
424: iex_debug_pub.logmessage ('set_escalate_wait_time: ' || 'ESCALATETIME' ||TO_CHAR(p_escalate_date,'DD-MON-YYYY:HH:MI:SS'));
425: END IF;
426: -- IF PG_DEBUG < 10 THEN
427: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
423: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
424: iex_debug_pub.logmessage ('set_escalate_wait_time: ' || 'ESCALATETIME' ||TO_CHAR(p_escalate_date,'DD-MON-YYYY:HH:MI:SS'));
425: END IF;
426: -- IF PG_DEBUG < 10 THEN
427: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
428: iex_debug_pub.logmessage ('**** END set_escalate_wait_time ************');
429: END IF;
430: exception
431: when others then
441:
442: BEGIN
443:
444: -- IF PG_DEBUG < 10 THEN
445: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
446: iex_debug_pub.logmessage ('**** BEGIN set_optional_wait_time ************');
447: END IF;
448: wf_engine.SetItemAttrDate(itemtype => itemtype,
449: itemkey => itemkey,
449: itemkey => itemkey,
450: aname => 'OPTIONAL_WAIT_TIME',
451: avalue => p_optional_date);
452: -- IF PG_DEBUG < 10 THEN
453: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
454: iex_debug_pub.logmessage ('set_optional_wait_time: ' || 'OPTIONALTIME' ||TO_CHAR(p_optional_date,'DD-MON-YYYY:HH:MI:SS'));
455: END IF;
456: -- IF PG_DEBUG < 10 THEN
457: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
453: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
454: iex_debug_pub.logmessage ('set_optional_wait_time: ' || 'OPTIONALTIME' ||TO_CHAR(p_optional_date,'DD-MON-YYYY:HH:MI:SS'));
455: END IF;
456: -- IF PG_DEBUG < 10 THEN
457: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
458: iex_debug_pub.logmessage ('**** END set_optional_wait_time ************');
459: END IF;
460: exception
461: when others then
488: where work_item_temp_id =p_work_item_temp_id;
489: l_optional_date DATE;
490: BEGIN
491: -- IF PG_DEBUG < 10 THEN
492: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
493: iex_debug_pub.logmessage ('**** BEGIN populate_schedule_times ************');
494: END IF;
495: FOR c_rec in c_get_witem_temp(p_work_item_temp_id)
496: LOOP
498: (p_date =>SYSDATE,
499: l_UOM =>c_rec.schedule_uom,
500: l_UNIT =>c_rec.schedule_wait);
501: -- IF PG_DEBUG < 10 THEN
502: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
503: iex_debug_pub.logmessage('populate_schedule_times: ' || 'schedulestart'||x_schedule_start);
504: END IF;
505: x_schedule_end:=IEX_STRY_UTL_PUB.get_Date
506: (p_date =>x_schedule_start,
506: (p_date =>x_schedule_start,
507: l_UOM =>c_rec.closure_time_uom,
508: l_UNIT =>c_rec.closure_time_limit);
509: -- IF PG_DEBUG < 10 THEN
510: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
511: iex_debug_pub.logmessage('populate_schedule_times: ' || 'schedulestart'||x_schedule_end);
512: END IF;
513: -- populate the escalate wait period
514: if c_rec.escalate_yn =wf_yes THEN
525: (p_date =>x_schedule_start,
526: l_UOM =>c_rec.option_wait_time_uom,
527: l_UNIT =>c_rec.option_wait_time);
528: -- IF PG_DEBUG < 10 THEN
529: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
530: iex_debug_pub.logmessage('populate_schedule_times: ' || 'sysdate '
531: ||TO_CHAR(sysdate,'DD-MON-YYYY:HH:MI:SS'));
532: END IF;
533:
531: ||TO_CHAR(sysdate,'DD-MON-YYYY:HH:MI:SS'));
532: END IF;
533:
534: -- IF PG_DEBUG < 10 THEN
535: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
536: iex_debug_pub.logmessage('populate_schedule_times: ' || 'l_optional_date '
537: ||TO_CHAR(l_optional_date,'DD-MON-YYYY:HH:MI:SS'));
538: END IF;
539:
560:
561:
562: END LOOP;
563: -- IF PG_DEBUG < 10 THEN
564: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
565: iex_debug_pub.logmessage ('**** END populate_schedule_times ************');
566: END IF;
567: EXCEPTION WHEN OTHERS THEN
568: null;
610: l_count :=0;
611: l_found := TRUE;
612:
613: -- IF PG_DEBUG < 10 THEN
614: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
615: iex_debug_pub.logmessage ('populate_schedule_times: ' || '**** BEGIN get_resource ************');
616: iex_debug_pub.logmessage ('default resource id from profile iex_stry_default_resource) ' || l_resource_id);
617: iex_debug_pub.logmessage ('calling get_access_resources ' || p_party_id);
618: END IF;
643:
644: --End bug#5373412 schekuri 10-Jul-2006
645:
646: --IF PG_DEBUG < 10 THEN
647: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
648: iex_debug_pub.logmessage('populate_schedule_times: ' || 'in get resource and l_return_status = '||l_return_status);
649: iex_debug_pub.logmessage('in get resource and l_return_status from iex_utilities.get_access_resources = '||l_return_status);
650: iex_debug_pub.logmessage('resource count from iex_utilities.get_access_resources = '||l_resource_tab.count);
651: END IF;
659:
660: --if p_competence_id IS NULL THEN
661: if p_competence_tab.count = 0 THEN
662: -- IF PG_DEBUG < 10 THEN
663: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
664: iex_debug_pub.logmessage('populate_schedule_times: ' || 'Competence table is empty');
665: END IF;
666: --get the first resource id if competence id is null from
667: -- the work item template
667: -- the work item template
668: FOR i in 1..l_resource_tab.count LOOP
669: l_resource_id := l_resource_tab(i).resource_id;
670: -- IF PG_DEBUG < 10 THEN
671: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
672: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
673: END IF;
674: EXIT;
675: END LOOP;
674: EXIT;
675: END LOOP;
676: else
677: -- IF PG_DEBUG < 10 THEN
678: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
679: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
680: END IF;
681: FOR i in 1..l_resource_tab.count LOOP
682: -- IF PG_DEBUG < 10 THEN
679: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
680: END IF;
681: FOR i in 1..l_resource_tab.count LOOP
682: -- IF PG_DEBUG < 10 THEN
683: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
684: iex_debug_pub.logmessage('populate_schedule_times: ' || 'PERSON ID is '||l_resource_tab(i).person_id);
685: iex_debug_pub.logmessage('populate_schedule_times: ' || 'RESOURCE ID is '||l_resource_tab(i).resource_id);
686: END IF;
687:
691: p_competence_tab(j));
692: FETCH c_get_person_id INTO l_count;
693: CLOSE c_get_person_id;
694: -- IF PG_DEBUG < 10 THEN
695: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
696: iex_debug_pub.logmessage('populate_schedule_times: ' || 'COMPETENCE ID is '||
697: p_competence_tab(j));
698: END IF;
699: -- IF PG_DEBUG < 10 THEN
696: iex_debug_pub.logmessage('populate_schedule_times: ' || 'COMPETENCE ID is '||
697: p_competence_tab(j));
698: END IF;
699: -- IF PG_DEBUG < 10 THEN
700: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
701: iex_debug_pub.logmessage('populate_schedule_times: ' || 'no of matches '|| l_count);
702: END IF;
703: If l_count =0 THEN
704: -- match not found, use the first resource and exit out NOCOPY
707: --Commented the below the code to return default resource id instead of first resource id
708: --when there is no resource found matching the competency of the workitem.
709: /*l_resource_id := l_resource_tab(1).resource_id;
710: -- IF PG_DEBUG < 10 THEN
711: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
712: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
713: END IF;*/
714: --End bug#5373412 schekuri 10-Jul-2006
715: -- have to look for the next resource if l_found is false
717: EXIT;
718: ELSE
719: l_resource_id := l_resource_tab(i).resource_id;
720: -- IF PG_DEBUG < 10 THEN
721: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
722: iex_debug_pub.logmessage('1st record found with competence matched l_resource_tab l_resource_id = '|| l_resource_id);
723: END IF;
724: l_found :=TRUE;
725: End if;
727: if l_found THEN
728: -- a matching resource with all the competencies
729: --have been found ,stop looking for next resource
730: -- IF PG_DEBUG < 10 THEN
731: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
732: iex_debug_pub.logmessage('populate_schedule_times: ' || 'match found and RESOURCE ID is =>'
733: ||l_resource_tab(i).resource_id);
734: END IF;
735: exit;
738: end if;
739: --assign out NOCOPY variable
740: x_resource_id :=l_resource_id;
741: -- IF PG_DEBUG < 10 THEN
742: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
743: iex_debug_pub.logmessage('populate_schedule_times: ' || 'value of x_resource_id' ||x_resource_id);
744: END IF;
745: -- IF PG_DEBUG < 10 THEN
746: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
742: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
743: iex_debug_pub.logmessage('populate_schedule_times: ' || 'value of x_resource_id' ||x_resource_id);
744: END IF;
745: -- IF PG_DEBUG < 10 THEN
746: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
747: iex_debug_pub.logmessage ('populate_schedule_times: ' || '**** END get_resource ************');
748: END IF;
749: END get_resource;
750:
922: l_Assignment_Level := NVL(FND_PROFILE.VALUE('IEX_ACCESS_LEVEL'),'PARTY');
923: l_return_status :=FND_API.G_RET_STS_SUCCESS;
924:
925: -- IF PG_DEBUG < 10 THEN
926: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
927: iex_debug_pub.logmessage ('populate_schedule_times: ' || '**** BEGIN create_work_item ************');
928: END IF;
929: FOR c_get_witem_rec in c_get_next_witem
930: (p_strategy_id,
947: l_index :=l_index +1;
948: END LOOP;
949:
950: -- IF PG_DEBUG < 10 THEN
951: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
952: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'No. of competence is =>'||l_competence_tab.count);
953: END IF;
954: -- IF PG_DEBUG < 10 THEN
955: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
951: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
952: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'No. of competence is =>'||l_competence_tab.count);
953: END IF;
954: -- IF PG_DEBUG < 10 THEN
955: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
956: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'in create work item private and going to call get_resource');
957: END IF;
958:
959: -- get resource for the given competence_id
976: if l_object_code = 'PARTY' then
977:
978: if l_Assignment_Level = 'PARTY' then
979:
980: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
981: iex_debug_pub.logmessage ('Calling Get_Resource! Party Level :Party ID ' || p_Party_ID);
982: end if;
983: get_resource(p_party_id,l_competence_tab,l_resource_id);
984:
982: end if;
983: get_resource(p_party_id,l_competence_tab,l_resource_id);
984:
985: else
986: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
987: iex_debug_pub.logmessage ('No Territory Access Call :Party ID ' || p_Party_ID);
988: end if;
989: end if;
990:
992: elsif l_object_code = 'IEX_ACCOUNT' then
993:
994: if l_Assignment_Level = 'PARTY' then
995:
996: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
997: iex_debug_pub.logmessage ('Calling Get_Resource! Party Level :Party ID ' || p_Party_ID);
998: end if;
999: get_resource(p_party_id,l_competence_tab,l_resource_id);
1000:
999: get_resource(p_party_id,l_competence_tab,l_resource_id);
1000:
1001: elsif l_Assignment_level = 'ACCOUNT' then
1002:
1003: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1004: iex_debug_pub.logmessage ('Calling Get_Resource! Account Level :Account ID ' || l_Object_ID);
1005: end if;
1006:
1007: bReturn:=get_account_resource(l_object_id, l_competence_tab, l_resource_id);
1007: bReturn:=get_account_resource(l_object_id, l_competence_tab, l_resource_id);
1008:
1009: else
1010:
1011: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1012: iex_debug_pub.logmessage ('No Territory Access Call :Party ID ' || p_Party_ID);
1013: end if;
1014:
1015: end if;
1016:
1017: else
1018: if l_Assignment_Level = 'PARTY' then
1019:
1020: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1021: iex_debug_pub.logmessage ('Calling Get_Resource! Party Level :Party ID ' || p_Party_ID);
1022: end if;
1023: get_resource(p_party_id,l_competence_tab,l_resource_id);
1024:
1023: get_resource(p_party_id,l_competence_tab,l_resource_id);
1024:
1025: elsif l_Assignment_level = 'ACCOUNT' then
1026:
1027: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1028: iex_debug_pub.logmessage ('Calling Get_Resource! Account Level :Account ID ' || l_cust_account_ID);
1029: end if;
1030:
1031: bReturn:=get_account_resource(l_cust_account_id, l_competence_tab, l_resource_id);
1031: bReturn:=get_account_resource(l_cust_account_id, l_competence_tab, l_resource_id);
1032:
1033: else
1034:
1035: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1036: iex_debug_pub.logmessage ('Calling Get_Resource! Bill To Level :Site Use ID ' || l_Object_ID);
1037: end if;
1038: --Bug5373412. Fix By LKKUMAR on 11-July-2006.Start.
1039: --bReturn:=get_billto_resource(l_object_id,l_competence_tab,l_resource_id);
1045: -- End - Kasreeni 01/17/2005 - Modified for multiple level resource check
1046: -- End- Andre 07/28/2004 - Add bill to assignmnet
1047:
1048: -- IF PG_DEBUG < 10 THEN
1049: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1050: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'after get_resource and resource_id ='||
1051: l_resource_id);
1052: END IF;
1053:
1052: END IF;
1053:
1054: if l_resource_id is null then
1055: l_Resource_id := l_Default_Resource_ID;
1056: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1057: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'Assigning Default resource_id ='|| l_resource_id);
1058: end if;
1059: end if;
1060:
1063:
1064: x_return_Status :=FND_API.G_RET_STS_ERROR;
1065: x_error_msg := 'resource_id is Null';
1066: -- IF PG_DEBUG < 10 THEN
1067: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1068: iex_debug_pub.logmessage ('populate_schedule_times: ' || 'resource id is null ');
1069: END IF;
1070: return;
1071: end if;
1072:
1073: -- resource id is found, ready for creating work item in
1074: -- the database.(finally)
1075: -- IF PG_DEBUG < 10 THEN
1076: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1077: iex_debug_pub.logMessage ('populate_schedule_times: ' || 'ready to insert work items');
1078: END IF;
1079: -- IF PG_DEBUG < 10 THEN
1080: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1076: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1077: iex_debug_pub.logMessage ('populate_schedule_times: ' || 'ready to insert work items');
1078: END IF;
1079: -- IF PG_DEBUG < 10 THEN
1080: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1081: iex_debug_pub.logMessage ('populate_schedule_times: ' || 'work_item_template_id'||c_get_witem_rec.work_item_template_id);
1082: END IF;
1083: -- IF PG_DEBUG < 10 THEN
1084: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1080: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1081: iex_debug_pub.logMessage ('populate_schedule_times: ' || 'work_item_template_id'||c_get_witem_rec.work_item_template_id);
1082: END IF;
1083: -- IF PG_DEBUG < 10 THEN
1084: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1085: iex_debug_pub.logMessage ('populate_schedule_times: ' || 'status_code'||c_get_witem_rec.status);
1086: END IF;
1087:
1088: l_strategy_work_item_rec.resource_id :=l_resource_id;
1142: l_strategy_work_item_rec.schedule_start :=x_schedule_start;
1143: l_strategy_work_item_rec.schedule_end :=x_schedule_end;
1144: l_strategy_work_item_rec.execute_start :=SYSDATE;
1145:
1146: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1147: iex_debug_pub.logmessage ('before calling create_work_pvt.create');
1148: END IF;
1149:
1150: iex_strategy_work_items_pvt.create_strategy_work_items
1156: x_work_item_id =>x_work_item_id,
1157: x_return_status =>l_return_status,
1158: x_msg_count =>l_msg_count,
1159: x_msg_data =>l_msg_data);
1160: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1161: iex_debug_pub.logmessage ('after calling create_work_pvt.create');
1162: iex_debug_pub.logmessage ('and l_return_status from the pvt ='||l_return_status);
1163: END IF;
1164: x_return_status :=l_return_Status;
1190: wf_engine.SetItemAttrText(itemtype =>itemtype,
1191: itemkey => itemkey,
1192: aname => 'WORK_ITEM_NAME',
1193: avalue => l_workitem_name);
1194: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1195: iex_debug_pub.logmessage ('work_item_name' ||l_workitem_name);
1196: END IF;
1197:
1198: --Begin bug#5874874 gnramasa 25-Apr-2007
1218: ( p_count => l_msg_count,
1219: p_data => l_msg_data
1220: );
1221: Get_Messages(l_msg_count,x_error_msg);
1222: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1223: iex_debug_pub.logmessage('error message is ' ||x_error_msg);
1224: END IF;
1225: END IF;
1226:
1231: aname => 'ACTIVITY_NAME',
1232: avalue => NULL);
1233:
1234: ELSE
1235: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1236: iex_debug_pub.logmessage('X_MSG_COUNT' ||l_msg_count);
1237: iex_debug_pub.logmessage('X_MSG_DATA' ||l_msg_data);
1238: END IF;
1239: -- get error message and passit pass it
1247: p_data => l_msg_data
1248: );
1249:
1250: Get_Messages(l_msg_count,x_error_msg);
1251: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1252: iex_debug_pub.logmessage('error message is ' || x_error_msg);
1253: END IF;
1254: end if;
1255: EXIT;
1256: END IF;
1257:
1258: x_return_status :=l_return_Status;
1259: END LOOP;
1260: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1261: iex_debug_pub.logmessage ('after calling create_work_pvt.create ' ||
1262: 'and x_return status=>'||x_return_status );
1263: END IF;
1264: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1260: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1261: iex_debug_pub.logmessage ('after calling create_work_pvt.create ' ||
1262: 'and x_return status=>'||x_return_status );
1263: END IF;
1264: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1265: iex_debug_pub.logmessage ('**** END create_work_item ************');
1266: END IF;
1267: End create_work_item;
1268:
1281: p_itemkey,
1282: p_process);
1283:
1284: -- IF PG_DEBUG < 10 THEN
1285: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1286: iex_debug_pub.logmessage ('process_status: ' || 'root is '||rootid);
1287: END IF;
1288: Wf_Item_Activity_Status.Status(p_itemtype
1289: ,p_itemkey
1290: ,rootid
1291: ,x_status);
1292:
1293: -- IF PG_DEBUG < 10 THEN
1294: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1295: iex_debug_pub.logmessage ('process_status: ' || 'status is '||x_status);
1296: END IF;
1297: EXCEPTION WHEN OTHERS THEN
1298: -- send the status has active
1306: itemkey IN VARCHAR2,
1307: l_strategy_mailer_rec OUT NOCOPY iex_strategy_work_pub.STRATEGY_Mailer_Rec_Type) IS
1308: BEGIN
1309: -- IF PG_DEBUG < 10 THEN
1310: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1311: iex_debug_pub.logmessage ('**** BEGIN populate_strategy_mailer ************');
1312: END IF;
1313: l_strategy_mailer_rec.strategy_id := wf_engine.GetItemAttrNumber(
1314: itemtype => itemtype,
1340: itemtype => itemtype,
1341: itemkey => itemkey,
1342: aname => 'RESP_APPL_ID');
1343: -- IF PG_DEBUG < 10 THEN
1344: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1345: iex_debug_pub.logmessage ('populate_strategy_mailer: ' || 'resp_id ' || l_strategy_mailer_rec.resp_id ||
1346: ' USER_ID ' || l_strategy_mailer_rec.user_id||' APPL ID '
1347: ||l_strategy_mailer_rec.resp_appl_id);
1348: END IF;
1347: ||l_strategy_mailer_rec.resp_appl_id);
1348: END IF;
1349:
1350: -- IF PG_DEBUG < 10 THEN
1351: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1352: iex_debug_pub.logmessage ('**** END populate_strategy_mailer ************');
1353: END IF;
1354: END populate_strategy_mailer;
1355:
1360: p_custom_itemtype IN VARCHAR2,
1361: l_custom_wf_rec OUT NOCOPY IEX_STRY_CUWF_PUB.CUSTOM_WF_Rec_Type) IS
1362: BEGIN
1363: -- IF PG_DEBUG < 10 THEN
1364: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1365: iex_debug_pub.logmessage ('**** BEGIN populate_custom_workflow ************');
1366: END IF;
1367: l_custom_wf_rec.strategy_id := wf_engine.GetItemAttrNumber(
1368: itemtype => itemtype,
1394: aname => 'RESP_APPL_ID');
1395:
1396:
1397: -- IF PG_DEBUG < 10 THEN
1398: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1399: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'strategy_id ' || l_custom_wf_rec.strategy_id);
1400: END IF;
1401: -- IF PG_DEBUG < 10 THEN
1402: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1398: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1399: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'strategy_id ' || l_custom_wf_rec.strategy_id);
1400: END IF;
1401: -- IF PG_DEBUG < 10 THEN
1402: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1403: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'workitem_id ' || l_custom_wf_rec.workitem_id);
1404: END IF;
1405: -- IF PG_DEBUG < 10 THEN
1406: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1402: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1403: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'workitem_id ' || l_custom_wf_rec.workitem_id);
1404: END IF;
1405: -- IF PG_DEBUG < 10 THEN
1406: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1407: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'custom_itemtype ' || l_custom_wf_rec.custom_itemtype);
1408: END IF;
1409: -- IF PG_DEBUG < 10 THEN
1410: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1406: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1407: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'custom_itemtype ' || l_custom_wf_rec.custom_itemtype);
1408: END IF;
1409: -- IF PG_DEBUG < 10 THEN
1410: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1411: iex_debug_pub.logmessage ('populate_custom_workflow: ' || 'resp_id ' || l_custom_wf_rec.resp_id ||
1412: ' USER_ID ' || l_custom_wf_rec.user_id||' APPL ID '
1413: ||l_custom_wf_rec.resp_appl_id);
1414: END IF;
1413: ||l_custom_wf_rec.resp_appl_id);
1414: END IF;
1415:
1416: -- IF PG_DEBUG < 10 THEN
1417: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1418: iex_debug_pub.logmessage ('**** END populate_custom_workflow ************');
1419: END IF;
1420: END populate_custom_workflow;
1421:
1452: -- initialize variable
1453: l_msg_list := '';
1454:
1455: -- IF PG_DEBUG < 10 THEN
1456: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1457: iex_debug_pub.logmessage ('**** BEGIN Get_Messages ************');
1458: END IF;
1459: FOR l_count in 1..p_message_count LOOP
1460:
1496: END LOOP;
1497:
1498: x_msgs := l_msg_list;
1499: -- IF PG_DEBUG < 10 THEN
1500: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1501: iex_debug_pub.logmessage ('Get_Messages: ' || 'L_MSG_LIST'||l_msg_list);
1502: END IF;
1503: -- IF PG_DEBUG < 10 THEN
1504: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1500: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1501: iex_debug_pub.logmessage ('Get_Messages: ' || 'L_MSG_LIST'||l_msg_list);
1502: END IF;
1503: -- IF PG_DEBUG < 10 THEN
1504: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1505: iex_debug_pub.logmessage ('**** END Get_Messages ************');
1506: END IF;
1507: END Get_Messages;
1508:
1638: return;
1639: end if;
1640:
1641: --IF PG_DEBUG < 10 THEN
1642: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1643: iex_debug_pub.logmessage ('**** BEGIN check_work_items_completed ************');
1644: END IF;
1645: --IF PG_DEBUG < 10 THEN
1646: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1642: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1643: iex_debug_pub.logmessage ('**** BEGIN check_work_items_completed ************');
1644: END IF;
1645: --IF PG_DEBUG < 10 THEN
1646: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1647: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'ITEMTYPE =>'||itemtype);
1648: END IF;
1649: --IF PG_DEBUG < 10 THEN
1650: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1646: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1647: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'ITEMTYPE =>'||itemtype);
1648: END IF;
1649: --IF PG_DEBUG < 10 THEN
1650: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1651: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'ITEMKEY =>'||itemkey);
1652: END IF;
1653:
1654: /* l_value :=wf_engine.GetActivityLabel(actid);
1656: itemkey => itemkey,
1657: aname => 'ACTIVITY_NAME',
1658: avalue => l_value);
1659: --IF PG_DEBUG < 10 THEN
1660: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1661: iex_debug_pub.logMessage('check_work_items_completed: ' || 'ACTIVITYNAME' ||l_value);
1662: END IF;
1663: */
1664:
1689: aname => 'WORK_ITEMID');
1690:
1691:
1692: --IF PG_DEBUG < 10 THEN
1693: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1694: iex_debug_pub.logmessage ('in check_work_items_completed and '||
1695: 'l_work_item_id =>'||l_work_item_id);
1696: END IF;
1697:
1709: itemkey => itemkey,
1710: aname => 'STRATEGY_ID');
1711:
1712: --IF PG_DEBUG < 10 THEN
1713: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1714: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'strategy id =>'||l_strategy_id);
1715: END IF;
1716:
1717: --get strategy template id
1718: OPEN c_get_strat_template_id (l_strategy_id);
1719: FETCH c_get_strat_template_id INTO l_strategy_template_id;
1720: CLOSE c_get_strat_template_id;
1721: --IF PG_DEBUG < 10 THEN
1722: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1723: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'template id =>'||l_strategy_template_id);
1724: END IF;
1725:
1726: --get the work items along with the status
1732: -- NOT IN ('COMPLETE','CANCELLED','TIMEOUT','SKIP') THEN
1733: -- there are pending work items to be processed
1734: result := wf_engine.eng_completed ||':'||wf_no;
1735: -- IF PG_DEBUG < 10 THEN
1736: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1737: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'there are pending witems to be created and result is'||
1738: '=>'||result);
1739: END IF;
1740: return;
1742:
1743: END LOOP;
1744: result := wf_engine.eng_completed ||':'||wf_yes;
1745: -- IF PG_DEBUG < 10 THEN
1746: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1747: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'result =>'||result);
1748: END IF;
1749: -- IF PG_DEBUG < 10 THEN
1750: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1746: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1747: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'result =>'||result);
1748: END IF;
1749: -- IF PG_DEBUG < 10 THEN
1750: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1751: iex_debug_pub.logmessage ('**** END check_work_items_completed ************');
1752: END IF;
1753: exception
1754: when others then
1754: when others then
1755: wf_core.context('IEX_STRATEGY_WF','check_work_items_completed',itemtype,
1756: itemkey,to_char(actid),funcmode);
1757: -- IF PG_DEBUG < 10 THEN
1758: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1759: iex_debug_pub.logmessage ('check_work_items_completed: ' || 'in error');
1760: END IF;
1761: raise;
1762:
1790: l_error VARCHAR2(32767);
1791:
1792: Begin
1793: -- IF PG_DEBUG < 10 THEN
1794: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1795: iex_debug_pub.logmessage ('**** BEGIN close_strategy ************');
1796: END IF;
1797: if funcmode <> 'RUN' then
1798: result := wf_engine.eng_null;
1804: itemkey => itemkey,
1805: aname => 'ACTIVITY_NAME',
1806: avalue => l_value);
1807: -- IF PG_DEBUG < 10 THEN
1808: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1809: iex_debug_pub.logMessage('close_strategy: ' || 'ACTIVITYNAME' ||l_value);
1810: END IF;
1811: */
1812:
1835: -- if the l_work_item is not null then, it means all the pending work items are processed
1836: -- update the stategy_status to 'CLOSED'
1837:
1838: -- IF PG_DEBUG < 10 THEN
1839: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1840: iex_debug_pub.logmessage('close_strategy: ' || ' close strategy procedure and status is =>'||l_strategy_status);
1841: END IF;
1842:
1843: IF l_work_item_id IS NOT NULL THEN
1857: p_status => l_strategy_status);
1858:
1859:
1860: -- IF PG_DEBUG < 10 THEN
1861: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1862: iex_debug_pub.logmessage('close_strategy: ' || ' close strategy procedure and x_status is =>'||l_return_status);
1863: END IF;
1864:
1865: -- if the result is 'N' then go back to
1885: p_data => l_msg_data
1886: );
1887: Get_Messages(l_msg_count,l_error);
1888: -- IF PG_DEBUG < 10 THEN
1889: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1890: iex_debug_pub.logmessage('close_strategy: ' || 'error message is ' || l_error);
1891: END IF;
1892:
1893: wf_engine.SetItemAttrText(itemtype => itemtype,
1897:
1898: end if;
1899:
1900: -- IF PG_DEBUG < 10 THEN
1901: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1902: iex_debug_pub.logmessage ('**** END close_strategy ************');
1903: END IF;
1904: exception
1905: when others then
1948: l_init_msg_list := FND_API.G_TRUE;
1949: l_commit := FND_API.G_TRUE;
1950:
1951: -- IF PG_DEBUG < 10 THEN
1952: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1953: iex_debug_pub.logmessage ('**** BEGIN create_next_work_item ************');
1954: END IF;
1955: if funcmode <> 'RUN' then
1956: result := wf_engine.eng_null;
1962: itemkey => itemkey,
1963: aname => 'ACTIVITY_NAME',
1964: avalue => l_value);
1965: --IF PG_DEBUG < 10 THEN
1966: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1967: iex_debug_pub.logMessage('create_next_work_item: ' || 'ACTIVITYNAME' ||l_value);
1968: END IF;
1969: */
1970:
1985: OPEN c_get_strat_template_id (l_strategy_id);
1986: FETCH c_get_strat_template_id INTO l_strategy_template_id;
1987: CLOSE c_get_strat_template_id;
1988: --IF PG_DEBUG < 10 THEN
1989: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1990: iex_debug_pub.logmessage('create_next_work_item: ' || 'in create next work item');
1991: END IF;
1992: --IF PG_DEBUG < 10 THEN
1993: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1989: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1990: iex_debug_pub.logmessage('create_next_work_item: ' || 'in create next work item');
1991: END IF;
1992: --IF PG_DEBUG < 10 THEN
1993: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1994: iex_debug_pub.logmessage('create_next_work_item: ' || 'before calling create work item private proc');
1995: END IF;
1996:
1997: --create work item in the database
2003: l_return_status,
2004: l_error);
2005:
2006: --IF PG_DEBUG < 10 THEN
2007: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2008: iex_debug_pub.logmessage ('create_next_work_item: ' || ' creation of work items and status => '||l_return_status);
2009: END IF;
2010:
2011: if l_return_status <>FND_API.G_RET_STS_SUCCESS THEN
2020: result := wf_engine.eng_completed ||':'||wf_yes;
2021:
2022: end if;
2023: --IF PG_DEBUG < 10 THEN
2024: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2025: iex_debug_pub.logmessage ('create_next_work_item: ' || ' RESULT IS => '||result);
2026: END IF;
2027: --IF PG_DEBUG < 10 THEN
2028: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2024: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2025: iex_debug_pub.logmessage ('create_next_work_item: ' || ' RESULT IS => '||result);
2026: END IF;
2027: --IF PG_DEBUG < 10 THEN
2028: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2029: iex_debug_pub.logmessage ('**** END create_next_work_item ************');
2030: END IF;
2031: exception
2032: when others then
2046:
2047: l_value VARCHAR2(300);
2048: Begin
2049: -- IF PG_DEBUG < 10 THEN
2050: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2051: iex_debug_pub.logmessage ('**** BEGIN WAIT_SIGNAL ************');
2052: END IF;
2053: if funcmode <> 'RUN' then
2054: result := wf_engine.eng_null;
2060: itemkey => itemkey,
2061: aname => 'ACTIVITY_NAME',
2062: avalue => l_value);
2063: --IF PG_DEBUG < 10 THEN
2064: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2065: iex_debug_pub.logMessage('wait_signal: ' || 'ACTIVITYNAME' ||l_value);
2066: END IF;
2067: */
2068:
2075: --if it works.
2076: --COMMIT;
2077: result := wf_engine.eng_completed ||':'||wf_yes;
2078: -- IF PG_DEBUG < 10 THEN
2079: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2080: iex_debug_pub.logmessage ('**** END WAIT_SIGNAL ************');
2081: END IF;
2082: exception
2083: when others then
2102: l_result VARCHAR2(1);
2103: l_value VARCHAR2(300);
2104:
2105: BEGIN
2106: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2107: iex_debug_pub.logmessage ('**** START wait_complete_signal ************');
2108: END IF;
2109: if funcmode <> wf_engine.eng_run then
2110: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2106: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2107: iex_debug_pub.logmessage ('**** START wait_complete_signal ************');
2108: END IF;
2109: if funcmode <> wf_engine.eng_run then
2110: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2111: iex_debug_pub.logmessage('SECOND TIME FUNCMODE' ||funcmode);
2112: END IF;
2113: result := wf_engine.eng_null;
2114: return;
2115: end if;
2116:
2117:
2118:
2119: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2120: iex_debug_pub.logmessage('FUNCMODE' ||funcmode);
2121: END IF;
2122: l_value :=wf_engine.GetActivityLabel(actid);
2123: wf_engine.SetItemAttrText(itemtype => itemtype,
2123: wf_engine.SetItemAttrText(itemtype => itemtype,
2124: itemkey => itemkey,
2125: aname => 'ACTIVITY_NAME',
2126: avalue => l_value);
2127: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2128: iex_debug_pub.logMessage('ACTIVITYNAME' ||l_value);
2129: END IF;
2130:
2131:
2130:
2131:
2132: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
2133: ':'||wf_engine.eng_null;
2134: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2135: iex_debug_pub.logmessage ('**** END wait_complete_signal ************');
2136: END IF;
2137: exception
2138: when others then
2193: l_activity_label VARCHAR2(100);
2194:
2195: Begin
2196: -- IF PG_DEBUG < 10 THEN
2197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2198: iex_debug_pub.logmessage ('**** START WAIT_SIGNAL ************');
2199: END IF;
2200: -- IF PG_DEBUG < 10 THEN
2201: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2198: iex_debug_pub.logmessage ('**** START WAIT_SIGNAL ************');
2199: END IF;
2200: -- IF PG_DEBUG < 10 THEN
2201: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2202: iex_debug_pub.logmessage ('wait_signal: ' || 'status' ||status ||'workitemid ' ||work_item_id || '**'||
2203: 'signal source '||signal_source||'strategy_id' ||strategy_id);
2204: END IF;
2205:
2208: status =>l_status,
2209: result =>l_result);
2210:
2211: -- IF PG_DEBUG < 10 THEN
2212: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2213: iex_debug_pub.logmessage('wait_signal: ' || 'status ofthe process '|| l_status);
2214: END IF;
2215:
2216: --- resume process only if it is suspend
2220:
2221: --check if the signal_source is fulfillment or optional
2222: if signal_source in ('FULFILLMENT','CUSTOM') THEN
2223: -- IF PG_DEBUG < 10 THEN
2224: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2225: iex_debug_pub.logmessage('wait_signal: ' || 'signal source '|| signal_source);
2226: END IF;
2227: -- the agent has not updated the current work item
2228: l_result := CHECK_CURRENT_WORK_ITEM(strategy_id,work_item_id);
2227: -- the agent has not updated the current work item
2228: l_result := CHECK_CURRENT_WORK_ITEM(strategy_id,work_item_id);
2229: IF l_result >0 THEN
2230: -- IF PG_DEBUG < 10 THEN
2231: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2232: iex_debug_pub.logmessage('wait_signal: ' || 'agent has not updated the work item');
2233: END IF;
2234: -- do not call update since custom or fulfilment is going to update it
2235: --update_workitem_Status(work_item_id,status );
2236: else
2237: --agent has updated and we are on the next work item or the strategy is
2238: --closed or complete, or ON HOLD
2239: -- IF PG_DEBUG < 10 THEN
2240: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2241: iex_debug_pub.logmessage('wait_signal: ' || 'agent has updated the work item');
2242: END IF;
2243: return;
2244: END IF;
2244: END IF;
2245:
2246: else -- signal source is null
2247: -- IF PG_DEBUG < 10 THEN
2248: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2249: iex_debug_pub.logmessage('wait_signal: ' || 'signal source is null');
2250: END IF;
2251: if work_item_id is NULL THEN
2252: -- the status could be ON-HOLD or 'OPEN' (from promises API)
2253: If status IN ('CLOSED','CANCELLED') THEN
2254: -- strategy is being closed or cancelled
2255: -- complete fulfilment and custom has to be aborted
2256: -- IF PG_DEBUG < 10 THEN
2257: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2258: iex_debug_pub.logmessage('wait_signal: ' || 'work item is null');
2259: END IF;
2260: --abort custom or fulfillment wfs' if they are not completed
2261: abort_processes(strategy_id);
2261: abort_processes(strategy_id);
2262: elsif status ='ONHOLD' THEN
2263: --continue being suspended
2264: -- IF PG_DEBUG < 10 THEN
2265: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2266: iex_debug_pub.logmessage('wait_signal: ' || 'work item is null and status is '||status);
2267: END IF;
2268: return;
2269: else --status is OPEN
2272: l_result := CHECK_WORK_ITEM_OPEN(strategy_id);
2273: IF l_result >0 THEN
2274: --remain suspended, do nothing
2275: -- IF PG_DEBUG < 10 THEN
2276: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2277: iex_debug_pub.logmessage('wait_signal: ' || 'work item is still open ');
2278: END IF;
2279: return;
2280: else
2279: return;
2280: else
2281: --work item has completed, resume process
2282: -- IF PG_DEBUG < 10 THEN
2283: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2284: iex_debug_pub.logmessage('wait_signal: ' || 'work item has been completed');
2285: END IF;
2286: END IF;
2287: end if; -- status check
2324: if signal_source in ('FULFILLMENT','CUSTOM') THEN
2325: return;
2326: else -- signal source is null
2327: -- IF PG_DEBUG < 10 THEN
2328: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2329: iex_debug_pub.logmessage('wait_signal: ' || 'signal source is null');
2330: END IF;
2331: if work_item_id is NULL THEN
2332: -- the status could be ON-HOLD or 'OPEN' (from promises API)
2333: If status IN ('CLOSED','CANCELLED') THEN
2334: -- strategy is being closed or cancelled
2335: -- complete fulfilment and custom has to be aborted
2336: -- IF PG_DEBUG < 10 THEN
2337: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2338: iex_debug_pub.logmessage('wait_signal: ' || 'work item is null');
2339: END IF;
2340: else
2341: -- IF PG_DEBUG < 10 THEN
2338: iex_debug_pub.logmessage('wait_signal: ' || 'work item is null');
2339: END IF;
2340: else
2341: -- IF PG_DEBUG < 10 THEN
2342: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2343: iex_debug_pub.logmessage('wait_signal: ' || 'work item is null and status is '||status);
2344: END IF;
2345: return;
2346: end if; -- status check
2349: -- maybe the agent can indicate if it is custom or fulfilment
2350: --work item . this portion is not there .so call abort on the
2351: -- strategy_id.
2352: -- IF PG_DEBUG < 10 THEN
2353: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2354: iex_debug_pub.logmessage('wait_signal: ' || 'work item is not null ');
2355: END IF;
2356: --05/10 if sendsiganl fails we don't want to abort process
2357: --so abort shoud be part of complete activity and send signal want complete
2363: itemtype => process,
2364: itemkey => strategy_id,
2365: aname => 'ACTIVITY_NAME');
2366: -- IF PG_DEBUG < 10 THEN
2367: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2368: iex_debug_pub.logmessage('wait_signal: ' || 'BEFORE CALLING COMPLETE ACTIVITY');
2369: END IF;
2370: -- IF PG_DEBUG < 10 THEN
2371: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2367: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2368: iex_debug_pub.logmessage('wait_signal: ' || 'BEFORE CALLING COMPLETE ACTIVITY');
2369: END IF;
2370: -- IF PG_DEBUG < 10 THEN
2371: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2372: iex_debug_pub.logmessage('wait_signal: ' || process ||strategy_id||l_activity_label);
2373: END IF;
2374:
2375: wf_engine.SetItemAttrText(itemtype => process,
2401: --this will happen if the workflow failed before
2402: --being suspended, for example if notification
2403: -- does not have a performer.
2404: -- Bug 7703319 by Ehuh
2405: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2406: iex_debug_pub.logmessage('l_activity is NULL ..... ');
2407: END IF;
2408: CLOSE_AND_ABORT_STRATEGY_WF(strategy_id,status);
2409: --return;
2415: CLOSE_AND_ABORT_STRATEGY_WF(strategy_id,status);
2416: NULL;
2417: --COMMIT; -- the work flow was not going to end from the close strategy
2418: END IF; -- item status
2419: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2420: iex_debug_pub.logmessage ('**** END WAIT_SIGNAL ************');
2421: END IF;
2422:
2423: exception
2423: exception
2424: when others then
2425: wf_core.context('IEX_STRATEGY_WF','send_signal',process,
2426: strategy_id,to_char(111),'RUN');
2427: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2428: iex_debug_pub.logmessage ('Error in SEND_SIGNAL -->' ||sqlerrm);
2429: END IF;
2430: raise;
2431:
2455: -- initialize variable
2456: l_return_status :=FND_API.G_RET_STS_SUCCESS;
2457:
2458: -- IF PG_DEBUG < 10 THEN
2459: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2460: iex_debug_pub.logmessage ('**** START CUSTOM_CHECK ************');
2461: END IF;
2462: if funcmode <> 'RUN' then
2463: result := wf_engine.eng_null;
2492: aname => 'ACTIVITY_NAME',
2493: avalue => l_value);
2494:
2495: -- IF PG_DEBUG < 10 THEN
2496: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2497: iex_debug_pub.logMessage('CUSTOM_CHECK: ' || 'ACTIVITYNAME' ||l_value);
2498: END IF;
2499: */
2500: l_work_item_temp_id := wf_engine.GetItemAttrNumber(
2514: l_custom_itemtype,
2515: l_custom_wf_rec);
2516:
2517: -- IF PG_DEBUG < 10 THEN
2518: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2519: iex_debug_pub.logmessage('CUSTOM_CHECK: ' || 'before calling custom workflow');
2520: END IF;
2521:
2522: IEX_STRY_cuwf_pub.Start_CustomWF
2530: x_return_status => l_return_status);
2531: End if;
2532:
2533: -- IF PG_DEBUG < 10 THEN
2534: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2535: iex_debug_pub.logmessage ('CUSTOM_CHECK: ' || 'End of custom work flow ');
2536: END IF;
2537: result := wf_engine.eng_completed ||':'||l_result;
2538: return;
2550: */
2551:
2552:
2553: -- IF PG_DEBUG < 10 THEN
2554: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2555: iex_debug_pub.logmessage ('**** END CUSTOM_CHECK ************');
2556: END IF;
2557: exception
2558: when others then
2588: -- initialize variable
2589: l_return_status :=FND_API.G_RET_STS_SUCCESS;
2590:
2591: -- IF PG_DEBUG < 10 THEN
2592: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2593: iex_debug_pub.logmessage ('**** START FULFIL_CHECK ************');
2594: END IF;
2595: if funcmode <> 'RUN' then
2596: result := wf_engine.eng_null;
2602: itemkey => itemkey,
2603: aname => 'ACTIVITY_NAME',
2604: avalue => l_value);
2605: -- IF PG_DEBUG < 10 THEN
2606: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2607: iex_debug_pub.logMessage('FULFIL_CHECK: ' || 'ACTIVITYNAME' ||l_value);
2608: END IF;
2609: */
2610:
2636: else
2637: l_strategy_mailer_rec.xdo_template_id := l_fulfil_temp_id;
2638: end if;
2639: -- IF PG_DEBUG < 10 THEN
2640: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2641: iex_debug_pub.logmessage('FULFIL_CHECK: ' || 'fulful template id' ||l_fulfil_temp_id);
2642: END IF;
2643: iex_strategy_work_pub.strategy_mailer(
2644: p_api_version =>1.0,
2665: */
2666:
2667:
2668: -- IF PG_DEBUG < 10 THEN
2669: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2670: iex_debug_pub.logmessage ('**** END FULFIL_CHECK ************');
2671: END IF;
2672: exception
2673: when others then
2710: BEGIN
2711: -- initialize variable
2712: l_return_status :=FND_API.G_RET_STS_SUCCESS;
2713:
2714: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2715: iex_debug_pub.logmessage ('**** START cal_post_wait ************');
2716: END IF;
2717: if funcmode <> 'RUN' then
2718: result := wf_engine.eng_null;
2744: itemtype => itemtype,
2745: itemkey => itemkey,
2746: aname => 'WORKITEM_TEMPLATE_ID');
2747:
2748: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2749: iex_debug_pub.logMessage('cal_post_wait workitemtempid = ' ||l_work_item_temp_id);
2750: END IF;
2751:
2752: --Begin bug#5502077 schekuri 30-Apr-2007
2768: end if;
2769: exception
2770: when others then
2771: l_result := wf_no;
2772: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2773: iex_debug_pub.logMessage('cal_post_wait GET FULFILLMENT ERROR ');
2774: END IF;
2775: end;
2776:
2773: iex_debug_pub.logMessage('cal_post_wait GET FULFILLMENT ERROR ');
2774: END IF;
2775: end;
2776:
2777: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2778: iex_debug_pub.logMessage('cal_post_wait l_result = ' ||l_result);
2779: END IF;
2780:
2781: --start fulfilment process
2781: --start fulfilment process
2782: If l_result = wf_yes THEN
2783: select sysdate into l_execution_time from dual;
2784: l_return := wf_no;
2785: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2786: iex_debug_pub.logMessage('cal_post_wait l_execution_time = ' ||l_execution_time);
2787: END IF;
2788: else*/
2789: --End bug#5502077 schekuri 30-Apr-2007
2794: where b.work_item_template_id = a.work_item_temp_id
2795: and b.work_item_id = l_work_item_id;
2796: exception
2797: when others then
2798: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2799: iex_debug_pub.logMessage('cal_post_wait get execution time error ');
2800: END IF;
2801: end;
2802:
2799: iex_debug_pub.logMessage('cal_post_wait get execution time error ');
2800: END IF;
2801: end;
2802:
2803: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2804: iex_debug_pub.logMessage('fulfil_check post_execution_wait = ' ||l_post_execution_wait);
2805: iex_debug_pub.logMessage('fulfil_check execution_time_uom = ' ||l_execution_time_uom);
2806: END IF;
2807: if (l_post_execution_wait = 0) then
2813: l_UOM =>l_execution_time_uom,
2814: l_UNIT =>l_post_execution_wait);
2815: exception
2816: when others then
2817: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2818: iex_debug_pub.logMessage('cal_post_wait convert date error ');
2819: END IF;
2820: end;
2821: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2817: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2818: iex_debug_pub.logMessage('cal_post_wait convert date error ');
2819: END IF;
2820: end;
2821: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2822: iex_debug_pub.logMessage('fulfil_check l_execution_time = ' ||l_execution_time);
2823: END IF;
2824:
2825: l_return := wf_yes;
2831: itemkey => itemkey,
2832: aname => 'EXECUTION_TIME',
2833: avalue => l_execution_time);
2834:
2835: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2836: iex_debug_pub.logMessage('cal_post_wait result = ' ||l_return);
2837: END IF;
2838:
2839: --Begin bug#5874874 gnramasa 25-Apr-2007
2844: --End bug#5874874 gnramasa 25-Apr-2007
2845:
2846: result := wf_engine.eng_completed ||':'||l_return;
2847:
2848: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2849: iex_debug_pub.logmessage ('**** END cal_post_wait ************');
2850: END IF;
2851: exception
2852: when others then
2879: l_return VARCHAR2(1);
2880: l_strategy_status varchar2(100);
2881:
2882: BEGIN
2883: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2884: iex_debug_pub.logmessage ('**** START cal_pre_wait ************');
2885: END IF;
2886: if funcmode <> 'RUN' then
2887: result := wf_engine.eng_null;
2906: itemtype => itemtype,
2907: itemkey => itemkey,
2908: aname => 'WORK_ITEMID');
2909:
2910: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2911: iex_debug_pub.logMessage('cal_pre_wait workitemtempid = ' ||l_work_item_temp_id);
2912: END IF;
2913:
2914: begin
2916: into l_pre_execution_wait, l_schedule_uom
2917: from IEX_STRY_TEMP_WORK_ITEMS_VL a, IEX_STRATEGY_WORK_ITEMS b
2918: where b.work_item_template_id = a.work_item_temp_id
2919: and b.work_item_id = l_work_item_id;
2920: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2921: iex_debug_pub.logMessage('Collections cal_pre_wait pre_execution_wait = ' ||l_pre_execution_wait);
2922: iex_debug_pub.logMessage('Collections cal_pre_wait schedule_uom = ' ||l_schedule_uom);
2923: END IF;
2924: exception
2922: iex_debug_pub.logMessage('Collections cal_pre_wait schedule_uom = ' ||l_schedule_uom);
2923: END IF;
2924: exception
2925: when others then
2926: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2927: iex_debug_pub.logMessage('cal_pre_wait get execution time error ');
2928: END IF;
2929: end;
2930:
2935: l_schedule:= IEX_STRY_UTL_PUB.get_Date
2936: (p_date =>sysdate,
2937: l_UOM =>l_schedule_uom,
2938: l_UNIT =>l_pre_execution_wait);
2939: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2940: iex_debug_pub.logMessage('Collections cal_pre_wait l_schedule = ' || to_char(l_schedule, 'hh24:mi:ss mm/dd/yyyy'));
2941: END IF;
2942: exception
2943: when others then
2940: iex_debug_pub.logMessage('Collections cal_pre_wait l_schedule = ' || to_char(l_schedule, 'hh24:mi:ss mm/dd/yyyy'));
2941: END IF;
2942: exception
2943: when others then
2944: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2945: iex_debug_pub.logMessage('cal_pre_wait convert date error ');
2946: END IF;
2947: end;
2948:
2954: itemkey => itemkey,
2955: aname => 'PRE_WAIT_TIME',
2956: avalue => l_schedule);
2957:
2958: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2959: iex_debug_pub.logMessage('cal_pre_wait result = ' ||l_return);
2960: END IF;
2961:
2962: result := wf_engine.eng_completed ||':'||l_return;
2960: END IF;
2961:
2962: result := wf_engine.eng_completed ||':'||l_return;
2963:
2964: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2965: iex_debug_pub.logmessage ('**** END cal_pre_wait ************');
2966: END IF;
2967: exception
2968: when others then
2994: l_return VARCHAR2(1);
2995: l_strategy_status varchar2(100);
2996:
2997: BEGIN
2998: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
2999: iex_debug_pub.logmessage ('**** START wi_failed_first_time ************');
3000: END IF;
3001: if funcmode <> 'RUN' then
3002: result := wf_engine.eng_null;
3017: itemkey => itemkey,
3018: aname => 'CREATE_WI_ERROR_COUNT');
3019:
3020:
3021: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3022: iex_debug_pub.logMessage('wi_failed_first_time l_create_wi_error_count = ' ||l_create_wi_error_count);
3023: END IF;
3024:
3025: if (l_create_wi_error_count = 1) then
3032: into l_restart_create_wi_time
3033: from dual;
3034: exception
3035: when others then
3036: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3037: iex_debug_pub.logMessage('wi_failed_first_time get sysdate time error ');
3038: END IF;
3039: end;
3040:
3053: itemkey => itemkey,
3054: aname => 'CREATE_WI_ERROR_COUNT',
3055: avalue => l_create_wi_error_count);
3056:
3057: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3058: iex_debug_pub.logMessage('wi_failed_first_time result = ' ||l_return);
3059: END IF;
3060:
3061: result := wf_engine.eng_completed ||':'||l_return;
3059: END IF;
3060:
3061: result := wf_engine.eng_completed ||':'||l_return;
3062:
3063: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3064: iex_debug_pub.logmessage ('**** END wi_failed_first_time ************');
3065: END IF;
3066: exception
3067: when others then
3089: l_value VARCHAr2(300);
3090:
3091: BEGIN
3092: -- IF PG_DEBUG < 10 THEN
3093: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3094: iex_debug_pub.logmessage ('**** START OPTIONAL_CHECK ************');
3095: END IF;
3096: if funcmode <> 'RUN' then
3097: result := wf_engine.eng_null;
3098: return;
3099: end if;
3100:
3101: -- IF PG_DEBUG < 10 THEN
3102: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3103: iex_debug_pub.logmessage('OPTIONAL_CHECK: ' || '*************FUNCMODE' ||funcmode||'**********************');
3104: END IF;
3105:
3106: l_value :=wf_engine.GetActivityLabel(actid);
3108: itemkey => itemkey,
3109: aname => 'ACTIVITY_NAME',
3110: avalue => l_value);
3111: -- IF PG_DEBUG < 10 THEN
3112: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3113: iex_debug_pub.logMessage('OPTIONAL_CHECK: ' || 'ACTIVITYNAME' ||l_value);
3114: END IF;
3115:
3116: l_work_item_temp_id := wf_engine.GetItemAttrNumber(
3123: where work_item_temp_id =l_work_item_temp_id;
3124:
3125: result := wf_engine.eng_completed ||':'||l_result;
3126: -- IF PG_DEBUG < 10 THEN
3127: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3128: iex_debug_pub.logmessage ('**** END OPTIONAL_CHECK ************');
3129: END IF;
3130: exception
3131: when others then
3151: l_value VARCHAr2(300);
3152:
3153: BEGIN
3154: -- IF PG_DEBUG < 10 THEN
3155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3156: iex_debug_pub.logmessage ('**** START ESCALATE_CHECK ************');
3157: END IF;
3158: if funcmode <> 'RUN' then
3159: result := wf_engine.eng_null;
3166: aname => 'ACTIVITY_NAME',
3167: avalue => l_value);
3168:
3169: -- IF PG_DEBUG < 10 THEN
3170: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3171: iex_debug_pub.logMessage('ESCALATE_CHECK: ' || 'ACTIVITYNAME' ||l_value);
3172: END IF;
3173:
3174: l_work_item_temp_id := wf_engine.GetItemAttrNumber(
3181: where work_item_temp_id =l_work_item_temp_id;
3182:
3183: result := wf_engine.eng_completed ||':'||l_result;
3184: -- IF PG_DEBUG < 10 THEN
3185: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3186: iex_debug_pub.logmessage ('**** END ESCALATE_CHECK ************');
3187: END IF;
3188: exception
3189: when others then
3208: l_result VARCHAR2(1);
3209: l_value VARCHAr2(300);
3210: BEGIN
3211: -- IF PG_DEBUG < 10 THEN
3212: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3213: iex_debug_pub.logmessage ('**** START NOTIFY_CHECK ************');
3214: END IF;
3215: if funcmode <> 'RUN' then
3216: result := wf_engine.eng_null;
3222: itemkey => itemkey,
3223: aname => 'ACTIVITY_NAME',
3224: avalue => l_value);
3225: -- IF PG_DEBUG < 10 THEN
3226: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3227: iex_debug_pub.logMessage('NOTIFY_CHECK: ' || 'ACTIVITYNAME' ||l_value);
3228: END IF;
3229: */
3230: l_work_item_temp_id := wf_engine.GetItemAttrNumber(
3237: where work_item_temp_id =l_work_item_temp_id;
3238:
3239: result := wf_engine.eng_completed ||':'||l_result;
3240: -- IF PG_DEBUG < 10 THEN
3241: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3242: iex_debug_pub.logmessage ('**** END NOTIFY_CHECK ************');
3243: END IF;
3244: exception
3245: when others then
3260: l_execution_time date;
3261:
3262: BEGIN
3263:
3264: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3265: iex_debug_pub.logmessage ('**** BEGIN set_on_hold_wait ************');
3266: END IF;
3267: select sysdate+(23/24)
3268: into l_execution_time
3271: itemkey => itemkey,
3272: aname => 'ON_HOLD_WAIT_TIME',
3273: avalue => l_execution_time);
3274:
3275: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3276: iex_debug_pub.logmessage ('set_on_hold_wait: ' || 'ON_HOLD_WAIT_TIME' ||TO_CHAR(l_execution_time,'DD-MON-YYYY:HH:MI:SS'));
3277: END IF;
3278: exception
3279: when others then
3302: l_timeout_wi NUMBER;
3303: l_strategy_status VARCHAR2(100);
3304: BEGIN
3305: -- IF PG_DEBUG < 10 THEN
3306: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3307: iex_debug_pub.logmessage ('**** START ONHOLD_CHECK ************');
3308: END IF;
3309: if funcmode <> 'RUN' then
3310: result := wf_engine.eng_null;
3316: itemkey => itemkey,
3317: aname => 'ACTIVITY_NAME',
3318: avalue => l_value);
3319: -- IF PG_DEBUG < 10 THEN
3320: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3321: iex_debug_pub.logMessage('ONHOLD_CHECK: ' || 'ACTIVITYNAME' ||l_value);
3322: END IF;
3323: */
3324:
3394: end if;
3395: --End - schekuri - 03-Dec-2005 - bug#4506922
3396:
3397: -- IF PG_DEBUG < 10 THEN
3398: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3399: iex_debug_pub.logmessage ('**** END ONHOLD_CHECK ************');
3400: END IF;
3401:
3402: exception
3425: exc EXCEPTION;
3426: l_error VARCHAR2(32767);
3427: BEGIN
3428: -- IF PG_DEBUG < 10 THEN
3429: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3430: iex_debug_pub.logmessage ('**** START UPDATE_WORK_ITEM ************');
3431: END IF;
3432: if funcmode <> 'RUN' then
3433: result := wf_engine.eng_null;
3438: itemtype => itemtype,
3439: itemkey => itemkey,
3440: aname => 'WORK_ITEMID');
3441: -- IF PG_DEBUG < 10 THEN
3442: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3443: iex_debug_pub.logmessage('UPDATE_WORK_ITEM: ' || 'value of workitem id '||l_work_item_id);
3444: END IF;
3445: IEX_STRY_UTL_PUB.UPDATE_WORK_ITEM (p_api_version => l_api_version,
3446: p_init_msg_list => FND_API.G_TRUE,
3455: else
3456: RAISE EXC;
3457: END IF;
3458: -- IF PG_DEBUG < 10 THEN
3459: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3460: iex_debug_pub.logmessage ('**** END UPDATE_WORK_ITEM ************');
3461: END IF;
3462:
3463:
3466: --pass the error message
3467: -- get error message and passit pass it
3468: Get_Messages(l_msg_count,l_error);
3469: -- IF PG_DEBUG < 10 THEN
3470: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3471: iex_debug_pub.logmessage('UPDATE_WORK_ITEM: ' || 'error message is ' || l_error);
3472: END IF;
3473: wf_core.context('IEX_STRATEGY_WF','CUSTOM_CHECK',itemtype,
3474: itemkey,to_char(actid),funcmode,l_error);
3495: l_value VARCHAR2(300);
3496:
3497: BEGIN
3498: -- IF PG_DEBUG < 10 THEN
3499: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3500: iex_debug_pub.logmessage ('**** START WAIT_OPTIONAL ************');
3501: END IF;
3502: if funcmode <> wf_engine.eng_run then
3503: -- IF PG_DEBUG < 10 THEN
3500: iex_debug_pub.logmessage ('**** START WAIT_OPTIONAL ************');
3501: END IF;
3502: if funcmode <> wf_engine.eng_run then
3503: -- IF PG_DEBUG < 10 THEN
3504: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3505: iex_debug_pub.logmessage('WAIT_OPTIONAL: ' || 'SECOND TIME FUNCMODE' ||funcmode);
3506: END IF;
3507: result := wf_engine.eng_null;
3508: return;
3510:
3511:
3512:
3513: -- IF PG_DEBUG < 10 THEN
3514: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3515: iex_debug_pub.logmessage('WAIT_OPTIONAL: ' || 'FUNCMODE' ||funcmode);
3516: END IF;
3517: l_value :=wf_engine.GetActivityLabel(actid);
3518: wf_engine.SetItemAttrText(itemtype => itemtype,
3519: itemkey => itemkey,
3520: aname => 'ACTIVITY_NAME',
3521: avalue => l_value);
3522: -- IF PG_DEBUG < 10 THEN
3523: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3524: iex_debug_pub.logMessage('WAIT_OPTIONAL: ' || 'ACTIVITYNAME' ||l_value);
3525: END IF;
3526:
3527:
3527:
3528: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
3529: ':'||wf_engine.eng_null;
3530: -- IF PG_DEBUG < 10 THEN
3531: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3532: iex_debug_pub.logmessage ('**** END WAIT_OPTIONAL ************');
3533: END IF;
3534: exception
3535: when others then
3555: l_value VARCHAR2(300);
3556:
3557: BEGIN
3558: -- IF PG_DEBUG < 10 THEN
3559: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3560: iex_debug_pub.logmessage ('**** START WAIT_ESCALATION ************');
3561: END IF;
3562: if funcmode <> wf_engine.eng_run then
3563: result := wf_engine.eng_null;
3566:
3567:
3568:
3569: -- IF PG_DEBUG < 10 THEN
3570: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3571: iex_debug_pub.logmessage('WAIT_ESCALATION: ' || 'FUNCMODE' ||funcmode);
3572: END IF;
3573: l_value :=wf_engine.GetActivityLabel(actid);
3574: wf_engine.SetItemAttrText(itemtype => itemtype,
3576: aname => 'ACTIVITY_NAME',
3577: avalue => l_value);
3578:
3579: -- IF PG_DEBUG < 10 THEN
3580: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3581: iex_debug_pub.logMessage('WAIT_ESCALATION: ' || 'ACTIVITYNAME' ||l_value);
3582: END IF;
3583:
3584:
3584:
3585: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
3586: ':'||wf_engine.eng_null;
3587: -- IF PG_DEBUG < 10 THEN
3588: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3589: iex_debug_pub.logmessage ('**** END WAIT_ESCALATION ************');
3590: END IF;
3591: exception
3592: when others then
3621:
3622: BEGIN
3623:
3624: -- IF PG_DEBUG < 10 THEN
3625: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3626: iex_debug_pub.logmessage ('**** START WAIT_STRATEGY ************');
3627: END IF;
3628: if funcmode <> wf_engine.eng_run then
3629: result := wf_engine.eng_null;
3632:
3633:
3634:
3635: -- IF PG_DEBUG < 10 THEN
3636: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3637: iex_debug_pub.logmessage('WAIT_STRATEGY: ' || 'FUNCMODE' ||funcmode);
3638: END IF;
3639: l_value :=wf_engine.GetActivityLabel(actid);
3640: wf_engine.SetItemAttrText(itemtype => itemtype,
3642: aname => 'ACTIVITY_NAME',
3643: avalue => l_value);
3644:
3645: -- IF PG_DEBUG < 10 THEN
3646: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3647: iex_debug_pub.logMessage('WAIT_STRATEGY: ' || 'ACTIVITYNAME' ||l_value);
3648: END IF;
3649:
3650:
3650:
3651: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
3652: ':'||wf_engine.eng_null;
3653: -- IF PG_DEBUG < 10 THEN
3654: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3655: iex_debug_pub.logmessage ('**** END WAIT_STRATEGY ************');
3656: END IF;
3657: exception
3658: when others then
3725:
3726:
3727: BEGIN
3728: -- IF PG_DEBUG < 10 THEN
3729: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3730: iex_debug_pub.logmessage ('**** start CLOSE_AND_ABORT_STRATEGY_WF ************');
3731: END IF;
3732:
3733: abort_processes(l_strategy_id);
3741: p_strategy_id => l_strategy_id,
3742: p_status => l_status);
3743:
3744: -- IF PG_DEBUG < 10 THEN
3745: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3746: iex_debug_pub.logmessage ('CLOSE_AND_ABORT_STRATEGY_WF: ' || '**** status after closing/cancelling strategy is '||
3747: l_return_status);
3748: END IF;
3749:
3752: itemkey => l_strategy_id);
3753: EXCEPTION
3754: WHEN OTHERS THEN
3755: -- IF PG_DEBUG < 10 THEN
3756: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3757: iex_debug_pub.logmessage('CLOSE_AND_ABORT_STRATEGY_WF: ' || 'abort process ' || l_strategy_id ||
3758: 'has failed');
3759: END IF;
3760: END;
3759: END IF;
3760: END;
3761:
3762: -- IF PG_DEBUG < 10 THEN
3763: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3764: iex_debug_pub.logmessage ('**** end CLOSE_AND_ABORT_STRATEGY_WF ************');
3765: END IF;
3766: END CLOSE_AND_ABORT_STRATEGY_WF;
3767:
3784:
3785:
3786: BEGIN
3787: -- IF PG_DEBUG < 10 THEN
3788: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3789: iex_debug_pub.logmessage ('**** start SET_SESSION_CTX ************');
3790: END IF;
3791: --set item Attributes
3792: --set org_id
3805: aname => 'RESP_APPL_ID',
3806: avalue => FND_GLOBAL.RESP_APPL_ID );
3807:
3808: -- IF PG_DEBUG < 10 THEN
3809: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3810: iex_debug_pub.logmessage ('SET_SESSION_CTX: ' || 'USER_ID' || FND_GLOBAL.USER_ID);
3811: END IF;
3812: -- IF PG_DEBUG < 10 THEN
3813: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3809: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3810: iex_debug_pub.logmessage ('SET_SESSION_CTX: ' || 'USER_ID' || FND_GLOBAL.USER_ID);
3811: END IF;
3812: -- IF PG_DEBUG < 10 THEN
3813: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3814: iex_debug_pub.logmessage ('SET_SESSION_CTX: ' || 'RESP_ID' || FND_GLOBAL.RESP_ID);
3815: END IF;
3816: -- IF PG_DEBUG < 10 THEN
3817: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3813: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3814: iex_debug_pub.logmessage ('SET_SESSION_CTX: ' || 'RESP_ID' || FND_GLOBAL.RESP_ID);
3815: END IF;
3816: -- IF PG_DEBUG < 10 THEN
3817: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3818: iex_debug_pub.logmessage ('SET_SESSION_CTX: ' || 'RESP_APPL_ID' ||FND_GLOBAL.RESP_APPL_ID);
3819: END IF;
3820:
3821:
3831: wf_engine.SetItemAttrText(itemtype =>itemtype,
3832: itemkey => itemkey,
3833: aname => 'CUSTOMER_NAME',
3834: avalue => l_party_name);
3835: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3836: iex_debug_pub.logmessage ('party_name' ||l_party_name);
3837: END IF;
3838: exception
3839: when others then
3840: null;
3841: end;
3842: end if;
3843:
3844: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3845: iex_debug_pub.logmessage ('**** End SET_SESSION_CTX ************');
3846: END IF;
3847: EXCEPTION
3848: when others then
3903:
3904: l_vTest := 'Runtime Changed';
3905:
3906: -- IF PG_DEBUG < 10 THEN
3907: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3908: iex_debug_pub.logmessage ('get_billto_resource: ' || '**** BEGIN get_billto_resource ************');
3909: iex_debug_pub.logmessage ('default resource id from profile iex_stry_default_resource) ' || l_resource_id);
3910: iex_debug_pub.logmessage ('calling get_billto_resources ' || p_siteuse_id);
3911: END IF;
3935: x_resource_tab => l_resource_tab);
3936:
3937: --End bug#5373412 schekuri 10-Jul-2006
3938: --IF PG_DEBUG < 10 THEN
3939: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3940: iex_debug_pub.logmessage('get_billto_resource: ' || 'in get resource and l_return_status = '||l_return_status);
3941: iex_debug_pub.logmessage('in get resource and l_return_status from iex_utilities.get_billto_resources = '||l_return_status);
3942: iex_debug_pub.logmessage('resource count from iex_utilities.get_billto_resources = '||l_resource_tab.count);
3943: END IF;
3954:
3955: --if p_competence_id IS NULL THEN
3956: if p_competence_tab.count = 0 THEN
3957: -- IF PG_DEBUG < 10 THEN
3958: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3959: iex_debug_pub.logmessage('get_billto_resource: ' || 'Competence table is empty');
3960: END IF;
3961: --get the first resource id if competence id is null from
3962: -- the work item template
3962: -- the work item template
3963: FOR i in 1..l_resource_tab.count LOOP
3964: l_resource_id := l_resource_tab(i).resource_id;
3965: -- IF PG_DEBUG < 10 THEN
3966: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3967: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
3968: END IF;
3969: EXIT;
3970: END LOOP;
3969: EXIT;
3970: END LOOP;
3971: else
3972: -- IF PG_DEBUG < 10 THEN
3973: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3974: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
3975: END IF;
3976: FOR i in 1..l_resource_tab.count LOOP
3977: -- IF PG_DEBUG < 10 THEN
3974: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
3975: END IF;
3976: FOR i in 1..l_resource_tab.count LOOP
3977: -- IF PG_DEBUG < 10 THEN
3978: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3979: iex_debug_pub.logmessage('get_billto_resource: ' || 'PERSON ID is '||l_resource_tab(i).person_id);
3980: iex_debug_pub.logmessage('get_billto_resource: ' || 'RESOURCE ID is '||l_resource_tab(i).resource_id);
3981: END IF;
3982:
3986: p_competence_tab(j));
3987: FETCH c_get_person_id INTO l_count;
3988: CLOSE c_get_person_id;
3989: -- IF PG_DEBUG < 10 THEN
3990: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3991: iex_debug_pub.logmessage('get_billto_resource: ' || 'COMPETENCE ID is '||
3992: p_competence_tab(j));
3993: END IF;
3994: -- IF PG_DEBUG < 10 THEN
3991: iex_debug_pub.logmessage('get_billto_resource: ' || 'COMPETENCE ID is '||
3992: p_competence_tab(j));
3993: END IF;
3994: -- IF PG_DEBUG < 10 THEN
3995: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
3996: iex_debug_pub.logmessage('get_billto_resource: ' || 'no of matches '|| l_count);
3997: END IF;
3998: If l_count =0 THEN
3999: -- match not found, use the first resource and exit out NOCOPY
4002: --Commented the below the code to return default resource id instead of first resource id
4003: --when there is no resource found matching the competency of the workitem.
4004: /*l_resource_id := l_resource_tab(1).resource_id;
4005: -- IF PG_DEBUG < 10 THEN
4006: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4007: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
4008: END IF;*/
4009: --End bug#5373412 schekuri 10-Jul-2006
4010: -- have to look for the next resource if l_found is false
4012: EXIT;
4013: ELSE
4014: l_resource_id := l_resource_tab(i).resource_id;
4015: -- IF PG_DEBUG < 10 THEN
4016: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4017: iex_debug_pub.logmessage('1st record found with competence matched l_resource_tab l_resource_id = '|| l_resource_id);
4018: END IF;
4019: l_found :=TRUE;
4020: End if;
4022: if l_found THEN
4023: -- a matching resource with all the competencies
4024: --have been found ,stop looking for next resource
4025: -- IF PG_DEBUG < 10 THEN
4026: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4027: iex_debug_pub.logmessage('get_billto_resource: ' || 'match found and RESOURCE ID is =>'
4028: ||l_resource_tab(i).resource_id);
4029: END IF;
4030: exit;
4033: end if;
4034: --assign out NOCOPY variable
4035: x_resource_id :=l_resource_id;
4036: -- IF PG_DEBUG < 10 THEN
4037: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4038: iex_debug_pub.logmessage('get_billto_resource: ' || 'value of x_resource_id' ||x_resource_id);
4039: END IF;
4040: -- IF PG_DEBUG < 10 THEN
4041: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4037: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4038: iex_debug_pub.logmessage('get_billto_resource: ' || 'value of x_resource_id' ||x_resource_id);
4039: END IF;
4040: -- IF PG_DEBUG < 10 THEN
4041: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4042: iex_debug_pub.logmessage ('get_billto_resource: ' || '**** END get_billto_resource ************');
4043: END IF;
4044:
4045: return l_bReturn;
4099:
4100: l_vTest := 'Runtime Changed';
4101:
4102: -- IF PG_DEBUG < 10 THEN
4103: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4104: iex_debug_pub.logmessage ('get_account_resource: ' || '**** BEGIN get_billto_resource ************');
4105: iex_debug_pub.logmessage ('default resource id from profile iex_stry_default_resource) ' || l_resource_id);
4106: iex_debug_pub.logmessage ('calling get_account_resources ' || p_account_id);
4107: END IF;
4128: x_return_status => l_return_status,
4129: p_account_id => p_account_id,
4130: x_resource_tab => l_resource_tab);*/
4131: --End bug#5373412 schekuri 10-Jul-2006
4132: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4133: iex_debug_pub.logmessage('get_billto_resource: ' || 'in get resource and l_return_status = '||l_return_status);
4134: iex_debug_pub.logmessage('in get resource and l_return_status from iex_utilities.get_assign_account_resources = '||l_return_status);
4135: iex_debug_pub.logmessage('resource count from iex_utilities.get_assign_account_resources = '||l_resource_tab.count);
4136: END IF;
4146:
4147:
4148: --if p_competence_id IS NULL THEN
4149: if p_competence_tab.count = 0 THEN
4150: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4151: iex_debug_pub.logmessage('get_account_resource: ' || 'Competence table is empty');
4152: END IF;
4153: --get the first resource id if competence id is null from
4154: -- the work item template
4153: --get the first resource id if competence id is null from
4154: -- the work item template
4155: FOR i in 1..l_resource_tab.count LOOP
4156: l_resource_id := l_resource_tab(i).resource_id;
4157: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4158: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
4159: END IF;
4160: EXIT;
4161: END LOOP;
4159: END IF;
4160: EXIT;
4161: END LOOP;
4162: else
4163: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4164: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
4165: END IF;
4166: FOR i in 1..l_resource_tab.count LOOP
4167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4163: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4164: iex_debug_pub.logmessage('Loop for matching competence. count = '||p_competence_tab.count );
4165: END IF;
4166: FOR i in 1..l_resource_tab.count LOOP
4167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4168: iex_debug_pub.logmessage('get_account_resource: ' || 'PERSON ID is '||l_resource_tab(i).person_id);
4169: iex_debug_pub.logmessage('get_account_resource: ' || 'RESOURCE ID is '||l_resource_tab(i).resource_id);
4170: END IF;
4171:
4174: OPEN c_get_person_id (l_resource_tab(i).person_id,
4175: p_competence_tab(j));
4176: FETCH c_get_person_id INTO l_count;
4177: CLOSE c_get_person_id;
4178: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4179: iex_debug_pub.logmessage('get_account_resource: ' || 'COMPETENCE ID is '||
4180: p_competence_tab(j));
4181: END IF;
4182: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4178: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4179: iex_debug_pub.logmessage('get_account_resource: ' || 'COMPETENCE ID is '||
4180: p_competence_tab(j));
4181: END IF;
4182: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4183: iex_debug_pub.logmessage('get_account_resource: ' || 'no of matches '|| l_count);
4184: END IF;
4185: If l_count =0 THEN
4186: -- match not found, use the first resource and exit out NOCOPY
4188: --Begin bug#5373412 schekuri 10-Jul-2006
4189: --Commented the below the code to return default resource id instead of first resource id
4190: --when there is no resource found matching the competency of the workitem.
4191: /*l_resource_id := l_resource_tab(1).resource_id;
4192: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4193: iex_debug_pub.logmessage('1st record from l_resource_tab l_resource_id = '|| l_resource_id);
4194: END IF;*/
4195: --End bug#5373412 schekuri 10-Jul-2006
4196: -- have to look for the next resource if l_found is false
4197: l_found :=FALSE;
4198: EXIT;
4199: ELSE
4200: l_resource_id := l_resource_tab(i).resource_id;
4201: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4202: iex_debug_pub.logmessage('1st record found with competence matched l_resource_tab l_resource_id = '|| l_resource_id);
4203: END IF;
4204: l_found :=TRUE;
4205: End if;
4206: END LOOP;
4207: if l_found THEN
4208: -- a matching resource with all the competencies
4209: --have been found ,stop looking for next resource
4210: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4211: iex_debug_pub.logmessage('get_account_resource: ' || 'match found and RESOURCE ID is =>'
4212: ||l_resource_tab(i).resource_id);
4213: END IF;
4214: exit;
4216: END LOOP;
4217: end if;
4218: --assign out NOCOPY variable
4219: x_resource_id :=l_resource_id;
4220: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4221: iex_debug_pub.logmessage('get_account_resource: ' || 'value of x_resource_id' ||x_resource_id);
4222: END IF;
4223: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4224: iex_debug_pub.logmessage ('get_account_resource: ' || '**** END get_account_resource ************');
4219: x_resource_id :=l_resource_id;
4220: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4221: iex_debug_pub.logmessage('get_account_resource: ' || 'value of x_resource_id' ||x_resource_id);
4222: END IF;
4223: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4224: iex_debug_pub.logmessage ('get_account_resource: ' || '**** END get_account_resource ************');
4225: END IF;
4226:
4227: return l_bReturn;
4241: l_result VARCHAR2(1);
4242: l_value VARCHAR2(300);
4243:
4244: BEGIN
4245: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4246: iex_debug_pub.logmessage ('**** START wait_on_hold_signal ************');
4247: END IF;
4248: if funcmode <> wf_engine.eng_run then
4249: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4245: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4246: iex_debug_pub.logmessage ('**** START wait_on_hold_signal ************');
4247: END IF;
4248: if funcmode <> wf_engine.eng_run then
4249: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4250: iex_debug_pub.logmessage('SECOND TIME FUNCMODE' ||funcmode);
4251: END IF;
4252: result := wf_engine.eng_null;
4253: return;
4254: end if;
4255:
4256:
4257:
4258: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4259: iex_debug_pub.logmessage('FUNCMODE' ||funcmode);
4260: END IF;
4261: l_value :=wf_engine.GetActivityLabel(actid);
4262: wf_engine.SetItemAttrText(itemtype => itemtype,
4262: wf_engine.SetItemAttrText(itemtype => itemtype,
4263: itemkey => itemkey,
4264: aname => 'ACTIVITY_NAME',
4265: avalue => l_value);
4266: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4267: iex_debug_pub.logMessage('ACTIVITYNAME' ||l_value);
4268: END IF;
4269:
4270:
4269:
4270:
4271: result := wf_engine.eng_notified||':'||wf_engine.eng_null||
4272: ':'||wf_engine.eng_null;
4273: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4274: iex_debug_pub.logmessage ('**** END wait_on_hold_signal ************');
4275: END IF;
4276: exception
4277: when others then
4300: l_strategy_status VARCHAR2(50);
4301:
4302: BEGIN
4303:
4304: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4305: iex_debug_pub.logmessage ('**** START update_work_item_to_open ************');
4306: END IF;
4307: if funcmode <> wf_engine.eng_run then
4308: result := wf_engine.eng_null;
4338: UPDATE IEX_STRATEGY_WORK_ITEMS SET STATUS_CODE = 'OPEN' WHERE WORK_ITEM_ID = l_work_item_id;
4339: END IF;
4340: end if;
4341:
4342: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4343: iex_debug_pub.logmessage ('**** END update_work_item_to_open ************');
4344: END IF;
4345:
4346: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4342: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4343: iex_debug_pub.logmessage ('**** END update_work_item_to_open ************');
4344: END IF;
4345:
4346: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4347: iex_debug_pub.logmessage('FUNCMODE ' ||funcmode);
4348: END IF;
4349:
4350: l_value :=wf_engine.GetActivityLabel(actid);
4353: itemkey => itemkey,
4354: aname => 'ACTIVITY_NAME',
4355: avalue => l_value);
4356:
4357: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4358: iex_debug_pub.logMessage('ACTIVITYNAME ' ||l_value);
4359: END IF;
4360:
4361:
4394: FROM iex_strategy_work_items
4395: WHERE work_item_id = p_work_item_id;
4396: BEGIN
4397: -- IF PG_DEBUG < 10 THEN
4398: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4399: iex_debug_pub.logmessage ('**** START UPDATE_ESCALATION_FLAG ************');
4400: END IF;
4401: if funcmode <> 'RUN' then
4402: result := wf_engine.eng_null;
4411: itemtype => itemtype,
4412: itemkey => itemkey,
4413: aname => 'PARTY_ID');
4414: -- IF PG_DEBUG < 10 THEN
4415: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4416: iex_debug_pub.logmessage('UPDATE_ESC_FLAG: ' || 'value of workitem id '||l_work_item_id);
4417: END IF;
4418: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4419: iex_debug_pub.logmessage ('UPDATE_ESC_FLAG: ' || 'Updating the work item..');
4414: -- IF PG_DEBUG < 10 THEN
4415: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4416: iex_debug_pub.logmessage('UPDATE_ESC_FLAG: ' || 'value of workitem id '||l_work_item_id);
4417: END IF;
4418: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4419: iex_debug_pub.logmessage ('UPDATE_ESC_FLAG: ' || 'Updating the work item..');
4420: END IF;
4421: open c_get_work_items(l_work_item_id);
4422: fetch c_get_work_items into l_status_code,l_object_version_number;
4433: x_msg_count => l_msg_count,
4434: x_msg_data => l_msg_data,
4435: x_return_status => l_return_status,
4436: XO_OBJECT_VERSION_NUMBER =>l_object_version_number );
4437: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4438: iex_debug_pub.logmessage ('UPDATE_ESC_FLAG: Return status = ' || l_return_status);
4439: END IF;
4440: if l_return_status =FND_API.G_RET_STS_SUCCESS THEN
4441: begin
4450: else
4451: RAISE EXC;
4452: END IF;
4453: -- IF PG_DEBUG < 10 THEN
4454: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4455: iex_debug_pub.logmessage ('**** END UPDATE_ESC_FLAG ************');
4456: END IF;
4457:
4458:
4461: --pass the error message
4462: -- get error message and passit pass it
4463: Get_Messages(l_msg_count,l_error);
4464: -- IF PG_DEBUG < 10 THEN
4465: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
4466: iex_debug_pub.logmessage('UPDATE_ESC_FLAG: ' || 'error message is ' || l_error);
4467: END IF;
4468: wf_core.context('IEX_STRATEGY_WF','UPDATE_ESC_FLAG',itemtype,
4469: itemkey,to_char(actid),funcmode,l_error);
4476:
4477:
4478: begin
4479: -- initialize variable
4480: PG_DEBUG := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4481: wf_yes := 'Y';
4482: wf_no := 'N';
4483: end IEX_STRATEGY_WF;