[Home] [Help]
1: Package Body HXC_APPROVAL_WF_HELPER as
2: /* $Header: hxcaprwfhelper.pkb 120.12.12010000.4 2010/01/20 12:34:30 amakrish ship $ */
3: g_pkg constant varchar2(30) := 'hxc_approval_wf_helper.';
4: g_debug boolean :=hr_utility.debug_enabled;
5:
6: -- This will determine the error admin role
7: FUNCTION find_admin_role(
8: p_timecard_id IN hxc_time_building_blocks.time_building_block_id%TYPE
35:
36: BEGIN
37:
38: if g_debug then
39: hr_utility.set_location(l_proc, 10);
40: end if;
41:
42: open c_admin_role(p_timecard_id,p_timecard_ovn);
43: fetch c_admin_role into l_admin_role;
45: if l_admin_role is null then
46: --if OTL Admin Role is not found i.e. if user doen't select any OTL Workflow adminstrator in the form
47: --then we shall return Workflow Administrator.
48: if g_debug then
49: hr_utility.set_location(l_proc, 20);
50: end if;
51:
52: open c_get_admin;
53: fetch c_get_admin into l_admin_role;
57:
58: close c_admin_role;
59:
60: if g_debug then
61: hr_utility.set_location(l_proc, 30);
62: end if;
63:
64: return l_admin_role;
65:
98:
99: BEGIN
100:
101: if g_debug then
102: hr_utility.set_location(l_proc, 10);
103: end if;
104:
105: open c_error_admin_role(p_timecard_id,p_timecard_ovn);
106: fetch c_error_admin_role into l_error_admin_role;
109: --if OTL Error Admin Role is not found i.e. if user doen't select any OTL Error Workflow adminstrator in
110: --the form then we shall return Workflow Administrator.
111:
112: if g_debug then
113: hr_utility.set_location(l_proc, 20);
114: end if;
115: open c_get_admin;
116: fetch c_get_admin into l_error_admin_role;
117: close c_get_admin;
119:
120: close c_error_admin_role;
121:
122: if g_debug then
123: hr_utility.set_location(l_proc, 30);
124: end if;
125: return l_error_admin_role;
126:
127: END find_error_admin_role;
160: connect by prior time_building_block_id=parent_building_block_id
161: start with time_building_block_id=p_timecard_id;
162:
163: BEGIN
164: g_debug:=hr_utility.debug_enabled;
165: if g_debug then
166: hr_utility.set_location(l_proc, 10);
167: end if;
168: --The most recent detail building block should be found for the timecard, and the user id on the WHO column for
162:
163: BEGIN
164: g_debug:=hr_utility.debug_enabled;
165: if g_debug then
166: hr_utility.set_location(l_proc, 10);
167: end if;
168: --The most recent detail building block should be found for the timecard, and the user id on the WHO column for
169: --that detail used to subsequently pass to the workflow directory service, getrolename, PROCEDURE to obtain the
170: --appropriate role
182:
183: --If the role name can not be found from the user id, original system is FND, then we should look up the person
184: --id associated with the user id from the FND_USER record, and try finding the role using the PER orginal system.
185: if g_debug then
186: hr_utility.set_location(l_proc, 20);
187: end if;
188:
189: open c_get_user_id(l_user_id);
190: fetch c_get_user_id into l_person_id;
195: p_display_name => l_display_name);
196: end if;
197:
198: if g_debug then
199: hr_utility.set_location(l_proc, 30);
200: end if;
201: return l_name;
202:
203: END find_preparer_role;
230:
231:
232: BEGIN
233:
234: g_debug:=hr_utility.debug_enabled;
235: if g_debug then
236: hr_utility.set_location(l_proc, 10);
237: end if;
238: --Find what is the Original system i.e. PER/FND
232: BEGIN
233:
234: g_debug:=hr_utility.debug_enabled;
235: if g_debug then
236: hr_utility.set_location(l_proc, 10);
237: end if;
238: --Find what is the Original system i.e. PER/FND
239: open c_get_original_system(p_role_name);
240: fetch c_get_original_system into l_original_system,l_system_id,l_display_name;
242:
243: if(l_original_system = 'PER') then
244:
245: if g_debug then
246: hr_utility.set_location(l_proc, 20);
247: end if;
248: --If the original system is PER then we can do a direct query against PER_ALL_PEOPLE_F to fetch the full name.
249: open c_get_name_ppf(l_system_id, p_effective_date);
250: fetch c_get_name_ppf into l_full_name;
253:
254: if(l_original_system = 'FND_USR') then
255:
256: if g_debug then
257: hr_utility.set_location(l_proc, 30);
258: end if;
259:
260: l_full_name := l_display_name;
261: END if;
289: and sysdate between effective_start_date and effective_END_Date;
290:
291: BEGIN
292: if g_debug then
293: hr_utility.set_location(l_proc, 10);
294: end if;
295: --This FUNCTION uses the HXC_TIME_BUILDING_BLOCKS table and PER_ALL_ASSIGNMENTS_F to find the supervisor
296: --corresponding to the primary employee or contingent worker assignment, and then subsequently use that
297: --supervisor id to find the appropriate role from the workflow directory service using the PER original system.
330:
331:
332: BEGIN
333: if g_debug then
334: hr_utility.set_location(l_proc, 10);
335: end if;
336: --This is a private FUNCTION, which is passed the timecard id and object version number. This uses
337: --HXC_TIME_BUILDING_BLOCKS to locate the resource id associated with the timecard, and from there uses the
338: --workflow directory service getrolename call to obtain the role associated with the user, using the PER original system.
346: p_name => l_name,
347: p_display_name => l_display_name);
348:
349: if g_debug then
350: hr_utility.set_location(l_proc, 20);
351: end if;
352:
353: return l_name;
354:
365: l_role wf_local_roles.name%type;
366: l_proc constant varchar2(61) := g_pkg ||'find_role_for_recipient';
367:
368: BEGIN
369: g_debug:=hr_utility.debug_enabled;
370: if g_debug then
371: hr_utility.set_location(l_proc, 10);
372: end if;
373: --This FUNCTION is essentially a switch on the recipient code, to call one of the private specific FUNCTIONs for
367:
368: BEGIN
369: g_debug:=hr_utility.debug_enabled;
370: if g_debug then
371: hr_utility.set_location(l_proc, 10);
372: end if;
373: --This FUNCTION is essentially a switch on the recipient code, to call one of the private specific FUNCTIONs for
374: --that role, i.e. if recipient code is supervisor then fetch c_the role by calling find_supervisor_role etc.
375:
375:
376: if(p_recipient_code = hxc_app_comp_notifications_api.c_recipient_admin) then
377:
378: if g_debug then
379: hr_utility.set_location(l_proc, 20);
380: end if;
381:
382: l_role := find_admin_role(p_timecard_id,p_timecard_ovn);
383:
383:
384: elsif ( p_recipient_code = hxc_app_comp_notifications_api.c_recipient_error_admin) then
385:
386: if g_debug then
387: hr_utility.set_location(l_proc, 30);
388: end if;
389:
390: l_role :=find_error_admin_role(p_timecard_id,p_timecard_ovn);
391:
391:
392: elsif (p_recipient_code = hxc_app_comp_notifications_api.c_recipient_preparer) then
393:
394: if g_debug then
395: hr_utility.set_location(l_proc, 40);
396: end if;
397:
398: l_role :=find_preparer_role(p_timecard_id,p_timecard_ovn);
399:
399:
400: elsif(p_recipient_code = hxc_app_comp_notifications_api.c_recipient_supervisor) then
401:
402: if g_debug then
403: hr_utility.set_location(l_proc, 50);
404: end if;
405:
406: l_role :=find_supervisor_role(p_timecard_id,p_timecard_ovn);
407: elsif (p_recipient_code = hxc_app_comp_notifications_api.c_recipient_worker) then
406: l_role :=find_supervisor_role(p_timecard_id,p_timecard_ovn);
407: elsif (p_recipient_code = hxc_app_comp_notifications_api.c_recipient_worker) then
408:
409: if g_debug then
410: hr_utility.set_location(l_proc, 60);
411: end if;
412: l_role :=find_worker_role(p_timecard_id,p_timecard_ovn);
413: END if;
414:
437: and primary_flag = 'Y'
438: and sysdate between effective_start_date and effective_END_Date;
439:
440: BEGIN
441: g_debug:=hr_utility.debug_enabled;
442:
443: open get_supervisor(p_resource_id);
444: fetch get_supervisor into l_supervisor_id;
445: close get_supervisor;
445: close get_supervisor;
446:
447: if(l_supervisor_id = p_approver_resource_id) then
448: if g_debug then
449: hr_utility.set_location(l_proc, 10);
450: end if;
451: return true;
452: else
453: if g_debug then
450: end if;
451: return true;
452: else
453: if g_debug then
454: hr_utility.set_location(l_proc, 20);
455: end if;
456: return false;
457: END if;
458:
505:
506:
507:
508: BEGIN
509: g_debug:=hr_utility.debug_enabled;
510: if g_debug then
511: hr_utility.set_location(l_proc, 10);
512: end if;
513:
507:
508: BEGIN
509: g_debug:=hr_utility.debug_enabled;
510: if g_debug then
511: hr_utility.set_location(l_proc, 10);
512: end if;
513:
514: --The values for the recipient action code and recipient code are obtained via the safe method.
515:
535: --different CURSOR in this case to find any approval component associated with the application periods which
536: --have been created as part of this submission.
537:
538: if g_debug then
539: hr_utility.set_location(l_proc, 20);
540: end if;
541: open c_get_any_comp_id(p_app_bb_id);
542: fetch c_get_any_comp_id into l_approval_comp_id;
543: close c_get_any_comp_id;
543: close c_get_any_comp_id;
544: else
545:
546: if g_debug then
547: hr_utility.set_location(l_proc, 30);
548: end if;
549: open c_get_app_comp_id(p_app_bb_id);
550: fetch c_get_app_comp_id into l_approval_comp_id;
551: close c_get_app_comp_id;
575:
576: if(p_notif_action_code is null OR p_notif_recipient_code is null OR p_approval_comp_id is null)
577: then
578: if g_debug then
579: hr_utility.set_location(l_proc, 40);
580: end if;
581:
582: p_can_notify :=false;
583: else
581:
582: p_can_notify :=false;
583: else
584: if g_debug then
585: hr_utility.set_location(l_proc, 50);
586: end if;
587:
588: p_can_notify :=true;
589: END if;
647:
648: is
649:
650: BEGIN
651: g_debug:=hr_utility.debug_enabled;
652:
653: --run check PROCEDURE to validate the passed parameters
654:
655: hxc_han_bus.chk_notification_action_code(p_notif_action_code);
840:
841:
842: BEGIN
843: if g_debug then
844: hr_utility.set_location(l_proc, 10);
845: end if;
846:
847: open c_is_notification_exists(p_approval_comp_id,p_action_code,p_recipient_code);
848: fetch c_is_notification_exists into l_dummy;
865: --If the notification does exist, then we need to check if this notification has already been sent for
866: --the set of details which would sent in this notification.
867:
868: if g_debug then
869: hr_utility.set_location(l_proc, 20);
870: end if;
871:
872: l_recipient_role :=find_role_for_recipient(p_recipient_code,p_timecard_id,p_timecard_ovn);
873:
878: fetch c_get_notifications into l_item_key,l_notification_id,l_app_bb_id;
879: if(c_get_notifications%found) then
880:
881: if g_debug then
882: hr_utility.set_location(l_proc, 30);
883: end if;
884:
885: open c_get_app_dates(p_app_period_id);
886: fetch c_get_app_dates into l_app_start_date,l_app_end_date;
895: and p_recipient_code=hxc_app_comp_notifications_api.c_recipient_supervisor
896: and trunc(l_tc_end_date - l_tc_start_date) <= (l_app_end_date - l_app_start_date) then
897:
898: if g_debug then
899: hr_utility.set_location(l_proc, 40);
900: end if;
901:
902: return false;
903:
903:
904: else
905:
906: if g_debug then
907: hr_utility.set_location(l_proc, 50);
908: end if;
909:
910: --fetch c_detail blocks for current app_bb_id;
911: open c_get_detail_blocks(p_app_period_id);
943:
944:
945: else
946: if g_debug then
947: hr_utility.set_location(l_proc, 60);
948: end if;
949:
950: l_result := true;
951: END if;-- if(l_tab_type_a.COUNT = l_tab_type_b.COUNT)
952: END IF;--if p_action_code = 'SUBMISSION' and p_recipient_code='SUPERVISOR' then
953: else
954:
955: if g_debug then
956: hr_utility.set_location(l_proc, 70);
957: end if;
958:
959: l_result := true;
960:
970: if(p_action_code = hxc_app_comp_notifications_api.c_action_submission
971: and p_recipient_code=hxc_app_comp_notifications_api.c_recipient_worker and l_result = true) then
972:
973: if g_debug then
974: hr_utility.set_location(l_proc, 80);
975: end if;
976:
977: select tk_audit_item_key
978: into l_tk_audit_item_key
979: from hxc_timecard_summary
980: where timecard_id= p_timecard_id;
981:
982: if(l_tk_audit_item_key is not null) then
983: hr_utility.trace('TK itemkey '||l_tk_audit_item_key);
984: l_result := false;
985: END if;
986:
987: END if;
990: if(p_action_code = hxc_app_comp_notifications_api.c_action_auto_approve and
991: p_recipient_code=hxc_app_comp_notifications_api.c_recipient_worker and l_result = true) then
992:
993: if g_debug then
994: hr_utility.set_location(l_proc, 90);
995: end if;
996:
997: open c_chk_auto_approve(p_app_period_id);
998: fetch c_chk_auto_approve into l_app_mech;
1082:
1083:
1084: BEGIN
1085:
1086: g_debug:=hr_utility.debug_enabled;
1087:
1088: if g_debug then
1089: hr_utility.set_location(l_proc, 10);
1090: end if;
1085:
1086: g_debug:=hr_utility.debug_enabled;
1087:
1088: if g_debug then
1089: hr_utility.set_location(l_proc, 10);
1090: end if;
1091:
1092: l_app_bb_id:= wf_engine.GetItemAttrNumber(itemtype => itemtype,
1093: itemkey => itemkey,
1114:
1115: if c_tc_info%notfound then
1116:
1117: close c_tc_info;
1118: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1119: hr_utility.set_message_token('PROCEDURE', l_proc);
1120: hr_utility.set_message_token('STEP', '10');
1121: hr_utility.raise_error;
1122: END if;
1115: if c_tc_info%notfound then
1116:
1117: close c_tc_info;
1118: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1119: hr_utility.set_message_token('PROCEDURE', l_proc);
1120: hr_utility.set_message_token('STEP', '10');
1121: hr_utility.raise_error;
1122: END if;
1123:
1116:
1117: close c_tc_info;
1118: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1119: hr_utility.set_message_token('PROCEDURE', l_proc);
1120: hr_utility.set_message_token('STEP', '10');
1121: hr_utility.raise_error;
1122: END if;
1123:
1124: close c_tc_info;
1117: close c_tc_info;
1118: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1119: hr_utility.set_message_token('PROCEDURE', l_proc);
1120: hr_utility.set_message_token('STEP', '10');
1121: hr_utility.raise_error;
1122: END if;
1123:
1124: close c_tc_info;
1125:
1149:
1150: l_preparer_full_name := find_full_name_from_role(l_preparer_role,l_tc_start_date);
1151:
1152: if g_debug then
1153: hr_utility.set_location(l_proc, 20);
1154: end if;
1155:
1156: get_notif_attribute_values
1157: (itemtype,
1162: l_approval_comp_id,
1163: l_can_notify);
1164:
1165: if g_debug then
1166: hr_utility.set_location(l_proc, 30);
1167: end if;
1168:
1169: if(l_can_notify) then
1170: if g_debug then
1167: end if;
1168:
1169: if(l_can_notify) then
1170: if g_debug then
1171: hr_utility.set_location(l_proc, 40);
1172: end if;
1173: if(send_notification(l_approval_comp_id,l_action_code,l_recipient_code,l_timecard_id,l_timecard_ovn,l_app_bb_id,l_app_bb_ovn)) then
1174: if g_debug then
1175: hr_utility.set_location(l_proc, 50);
1171: hr_utility.set_location(l_proc, 40);
1172: end if;
1173: if(send_notification(l_approval_comp_id,l_action_code,l_recipient_code,l_timecard_id,l_timecard_ovn,l_app_bb_id,l_app_bb_ovn)) then
1174: if g_debug then
1175: hr_utility.set_location(l_proc, 50);
1176: end if;
1177: if(notification_with_details(l_action_code,l_recipient_code)) then
1178: if g_debug then
1179: hr_utility.set_location(l_proc, 60);
1175: hr_utility.set_location(l_proc, 50);
1176: end if;
1177: if(notification_with_details(l_action_code,l_recipient_code)) then
1178: if g_debug then
1179: hr_utility.set_location(l_proc, 60);
1180: end if;
1181:
1182: if(l_action_code=hxc_app_comp_notifications_api.c_action_auto_approve
1183: and l_recipient_code=hxc_app_comp_notifications_api.c_recipient_worker) then
1181:
1182: if(l_action_code=hxc_app_comp_notifications_api.c_action_auto_approve
1183: and l_recipient_code=hxc_app_comp_notifications_api.c_recipient_worker) then
1184: if g_debug then
1185: hr_utility.set_location(l_proc, 70);
1186: end if;
1187:
1188: -- set FROM ROLE to Worker Role
1189: l_tc_from_role :=find_role_for_recipient(hxc_app_comp_notifications_api.c_recipient_worker,l_timecard_id,l_timecard_ovn);
1234: p_effective_date => l_tc_start_date
1235: );
1236: exception
1237: when others then
1238: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1239: hr_utility.set_message_token('PROCEDURE', l_proc);
1240: hr_utility.set_message_token('STEP', '20');
1241: hr_utility.raise_error;
1242: end;
1235: );
1236: exception
1237: when others then
1238: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1239: hr_utility.set_message_token('PROCEDURE', l_proc);
1240: hr_utility.set_message_token('STEP', '20');
1241: hr_utility.raise_error;
1242: end;
1243:
1236: exception
1237: when others then
1238: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1239: hr_utility.set_message_token('PROCEDURE', l_proc);
1240: hr_utility.set_message_token('STEP', '20');
1241: hr_utility.raise_error;
1242: end;
1243:
1244: end if;
1237: when others then
1238: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1239: hr_utility.set_message_token('PROCEDURE', l_proc);
1240: hr_utility.set_message_token('STEP', '20');
1241: hr_utility.raise_error;
1242: end;
1243:
1244: end if;
1245: wf_engine.SetItemAttrText(
1260:
1261:
1262: elsif(l_action_code=hxc_app_comp_notifications_api.c_action_rejected and l_recipient_code=hxc_app_comp_notifications_api.c_recipient_preparer) then
1263: if g_debug then
1264: hr_utility.set_location(l_proc, 80);
1265: end if;
1266: --set TC_FROM_ROLE
1267: l_tc_from_role :=wf_engine.GetItemAttrText(
1268: itemtype => itemtype,
1325: avalue => 'N');
1326:
1327: elsif(l_action_code=hxc_app_comp_notifications_api.c_action_submission and l_recipient_code=hxc_app_comp_notifications_api.c_recipient_worker) then
1328: if g_debug then
1329: hr_utility.set_location(l_proc, 90);
1330: end if;
1331: -- We need to attach timecard Id to Application Id..it looks crazy...
1332: --but we need to do this as the TIMECARD attribute is using APP_BB_ID
1333: --in the URL.
1407: p_effective_date => l_tc_start_date
1408: );
1409: exception
1410: when others then
1411: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1412: hr_utility.set_message_token('PROCEDURE', l_proc);
1413: hr_utility.set_message_token('STEP', '30');
1414: hr_utility.raise_error;
1415: end;
1408: );
1409: exception
1410: when others then
1411: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1412: hr_utility.set_message_token('PROCEDURE', l_proc);
1413: hr_utility.set_message_token('STEP', '30');
1414: hr_utility.raise_error;
1415: end;
1416:
1409: exception
1410: when others then
1411: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1412: hr_utility.set_message_token('PROCEDURE', l_proc);
1413: hr_utility.set_message_token('STEP', '30');
1414: hr_utility.raise_error;
1415: end;
1416:
1417: end if;
1410: when others then
1411: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1412: hr_utility.set_message_token('PROCEDURE', l_proc);
1413: hr_utility.set_message_token('STEP', '30');
1414: hr_utility.raise_error;
1415: end;
1416:
1417: end if;
1418: wf_engine.SetItemAttrText(
1437: avalue => l_resource_id);
1438:
1439: elsif(l_action_code=hxc_app_comp_notifications_api.c_action_request_approval and l_recipient_code=hxc_app_comp_notifications_api.c_recipient_supervisor) then
1440: if g_debug then
1441: hr_utility.set_location(l_proc, 100);
1442: end if;
1443: l_supervisor_role :=find_role_for_recipient('SUPERVISOR',l_timecard_id,l_timecard_ovn);
1444:
1445: if l_supervisor_role is null then
1452: itemkey => itemkey,
1453: aname => 'TC_FROM_ROLE',
1454: avalue => l_worker_role);
1455: --set TITLE
1456: hr_utility.trace('set TITLE');
1457: fnd_message.set_name('HXC','HXC_APPR_WF_TITLE');
1458: fnd_message.set_token('START_DATE',to_char(l_effective_start_date,fnd_profile.value('ICX_DATE_FORMAT_MASK')));
1459: fnd_message.set_token('END_DATE',to_char(l_effective_END_date,fnd_profile.value('ICX_DATE_FORMAT_MASK')));
1460:
1510:
1511: elsif(l_action_code=hxc_app_comp_notifications_api.c_action_transfer and l_recipient_code=hxc_app_comp_notifications_api.c_recipient_preparer) then
1512:
1513: if g_debug then
1514: hr_utility.set_location(l_proc, 110);
1515: end if;
1516:
1517: wf_engine.SetItemAttrText(itemtype => itemtype,
1518: itemkey => itemkey,
1586: else
1587: if(l_action_code=hxc_app_comp_notifications_api.c_action_approved and l_recipient_code=hxc_app_comp_notifications_api.c_recipient_preparer) then
1588:
1589: if g_debug then
1590: hr_utility.set_location(l_proc, 120);
1591: end if;
1592: --set TC_FROM_ROLE
1593: l_tc_from_role :=wf_engine.GetItemAttrText(
1594: itemtype => itemtype,
1657:
1658: END if; -- END Notification with details or not
1659: else
1660: if g_debug then
1661: hr_utility.set_location(l_proc, 130);
1662: end if;
1663: result := 'COMPLETE:NO_NOTIFICATION';
1664: END if; -- END SEND Notification
1665:
1664: END if; -- END SEND Notification
1665:
1666: else
1667: if g_debug then
1668: hr_utility.set_location(l_proc, 140);
1669: end if;
1670: result := 'COMPLETE:NO_NOTIFICATION';
1671: END if;--END can notify or not
1672:
1672:
1673: return;
1674:
1675: -- error handler
1676: hr_utility.trace('Leaving preparing notifications');
1677: exception
1678: when others then
1679:
1680: -- The line below records this FUNCTION call in the error system
1681: -- in the case of an exception.
1682: --
1683:
1684: if g_debug then
1685: hr_utility.set_location(l_proc, 999);
1686: end if;
1687: wf_core.context('HCAPPRWFHELPER', 'hxc_approval_wf_helper.prepare_notification',
1688: itemtype, itemkey, to_char(actid), funcmode);
1689: raise;
1753: -- in the case of an exception.
1754: --
1755:
1756: if g_debug then
1757: hr_utility.set_location(l_proc, 999);
1758: end if;
1759: wf_core.context('HCAPPRWFHELPER', 'hxc_approval_wf_helper.cleanup',
1760: itemtype, itemkey, to_char(actid), funcmode);
1761: raise;