[Home] [Help]
1: Package Body HXC_APPROVAL_WF_HELPER as
2: /* $Header: hxcaprwfhelper.pkb 120.12.12010000.2 2008/08/05 12:00:08 ubhat 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;
1081:
1082:
1083: BEGIN
1084:
1085: g_debug:=hr_utility.debug_enabled;
1086:
1087: if g_debug then
1088: hr_utility.set_location(l_proc, 10);
1089: end if;
1084:
1085: g_debug:=hr_utility.debug_enabled;
1086:
1087: if g_debug then
1088: hr_utility.set_location(l_proc, 10);
1089: end if;
1090:
1091: l_app_bb_id:= wf_engine.GetItemAttrNumber(itemtype => itemtype,
1092: itemkey => itemkey,
1113:
1114: if c_tc_info%notfound then
1115:
1116: close c_tc_info;
1117: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1118: hr_utility.set_message_token('PROCEDURE', l_proc);
1119: hr_utility.set_message_token('STEP', '10');
1120: hr_utility.raise_error;
1121: END if;
1114: if c_tc_info%notfound then
1115:
1116: close c_tc_info;
1117: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1118: hr_utility.set_message_token('PROCEDURE', l_proc);
1119: hr_utility.set_message_token('STEP', '10');
1120: hr_utility.raise_error;
1121: END if;
1122:
1115:
1116: close c_tc_info;
1117: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1118: hr_utility.set_message_token('PROCEDURE', l_proc);
1119: hr_utility.set_message_token('STEP', '10');
1120: hr_utility.raise_error;
1121: END if;
1122:
1123: close c_tc_info;
1116: close c_tc_info;
1117: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1118: hr_utility.set_message_token('PROCEDURE', l_proc);
1119: hr_utility.set_message_token('STEP', '10');
1120: hr_utility.raise_error;
1121: END if;
1122:
1123: close c_tc_info;
1124:
1148:
1149: l_preparer_full_name := find_full_name_from_role(l_preparer_role,l_tc_start_date);
1150:
1151: if g_debug then
1152: hr_utility.set_location(l_proc, 20);
1153: end if;
1154:
1155: get_notif_attribute_values
1156: (itemtype,
1161: l_approval_comp_id,
1162: l_can_notify);
1163:
1164: if g_debug then
1165: hr_utility.set_location(l_proc, 30);
1166: end if;
1167:
1168: if(l_can_notify) then
1169: if g_debug then
1166: end if;
1167:
1168: if(l_can_notify) then
1169: if g_debug then
1170: hr_utility.set_location(l_proc, 40);
1171: end if;
1172: 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
1173: if g_debug then
1174: hr_utility.set_location(l_proc, 50);
1170: hr_utility.set_location(l_proc, 40);
1171: end if;
1172: 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
1173: if g_debug then
1174: hr_utility.set_location(l_proc, 50);
1175: end if;
1176: if(notification_with_details(l_action_code,l_recipient_code)) then
1177: if g_debug then
1178: hr_utility.set_location(l_proc, 60);
1174: hr_utility.set_location(l_proc, 50);
1175: end if;
1176: if(notification_with_details(l_action_code,l_recipient_code)) then
1177: if g_debug then
1178: hr_utility.set_location(l_proc, 60);
1179: end if;
1180:
1181: if(l_action_code=hxc_app_comp_notifications_api.c_action_auto_approve
1182: and l_recipient_code=hxc_app_comp_notifications_api.c_recipient_worker) then
1180:
1181: if(l_action_code=hxc_app_comp_notifications_api.c_action_auto_approve
1182: and l_recipient_code=hxc_app_comp_notifications_api.c_recipient_worker) then
1183: if g_debug then
1184: hr_utility.set_location(l_proc, 70);
1185: end if;
1186:
1187: -- set FROM ROLE to Worker Role
1188: l_tc_from_role :=find_role_for_recipient(hxc_app_comp_notifications_api.c_recipient_worker,l_timecard_id,l_timecard_ovn);
1233: p_effective_date => l_tc_start_date
1234: );
1235: exception
1236: when others then
1237: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1238: hr_utility.set_message_token('PROCEDURE', l_proc);
1239: hr_utility.set_message_token('STEP', '20');
1240: hr_utility.raise_error;
1241: end;
1234: );
1235: exception
1236: when others then
1237: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1238: hr_utility.set_message_token('PROCEDURE', l_proc);
1239: hr_utility.set_message_token('STEP', '20');
1240: hr_utility.raise_error;
1241: end;
1242:
1235: exception
1236: when others then
1237: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1238: hr_utility.set_message_token('PROCEDURE', l_proc);
1239: hr_utility.set_message_token('STEP', '20');
1240: hr_utility.raise_error;
1241: end;
1242:
1243: end if;
1236: when others then
1237: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1238: hr_utility.set_message_token('PROCEDURE', l_proc);
1239: hr_utility.set_message_token('STEP', '20');
1240: hr_utility.raise_error;
1241: end;
1242:
1243: end if;
1244: wf_engine.SetItemAttrText(
1259:
1260:
1261: 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
1262: if g_debug then
1263: hr_utility.set_location(l_proc, 80);
1264: end if;
1265: --set TC_FROM_ROLE
1266: l_tc_from_role :=wf_engine.GetItemAttrText(
1267: itemtype => itemtype,
1324: avalue => 'N');
1325:
1326: 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
1327: if g_debug then
1328: hr_utility.set_location(l_proc, 90);
1329: end if;
1330: -- We need to attach timecard Id to Application Id..it looks crazy...
1331: --but we need to do this as the TIMECARD attribute is using APP_BB_ID
1332: --in the URL.
1390: p_effective_date => l_tc_start_date
1391: );
1392: exception
1393: when others then
1394: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1395: hr_utility.set_message_token('PROCEDURE', l_proc);
1396: hr_utility.set_message_token('STEP', '30');
1397: hr_utility.raise_error;
1398: end;
1391: );
1392: exception
1393: when others then
1394: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1395: hr_utility.set_message_token('PROCEDURE', l_proc);
1396: hr_utility.set_message_token('STEP', '30');
1397: hr_utility.raise_error;
1398: end;
1399:
1392: exception
1393: when others then
1394: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1395: hr_utility.set_message_token('PROCEDURE', l_proc);
1396: hr_utility.set_message_token('STEP', '30');
1397: hr_utility.raise_error;
1398: end;
1399:
1400: end if;
1393: when others then
1394: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1395: hr_utility.set_message_token('PROCEDURE', l_proc);
1396: hr_utility.set_message_token('STEP', '30');
1397: hr_utility.raise_error;
1398: end;
1399:
1400: end if;
1401: wf_engine.SetItemAttrText(
1420: avalue => l_resource_id);
1421:
1422: 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
1423: if g_debug then
1424: hr_utility.set_location(l_proc, 100);
1425: end if;
1426: l_supervisor_role :=find_role_for_recipient('SUPERVISOR',l_timecard_id,l_timecard_ovn);
1427:
1428: if l_supervisor_role is null then
1435: itemkey => itemkey,
1436: aname => 'TC_FROM_ROLE',
1437: avalue => l_worker_role);
1438: --set TITLE
1439: hr_utility.trace('set TITLE');
1440: fnd_message.set_name('HXC','HXC_APPR_WF_TITLE');
1441: fnd_message.set_token('START_DATE',to_char(l_effective_start_date,fnd_profile.value('ICX_DATE_FORMAT_MASK')));
1442: fnd_message.set_token('END_DATE',to_char(l_effective_END_date,fnd_profile.value('ICX_DATE_FORMAT_MASK')));
1443:
1493:
1494: 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
1495:
1496: if g_debug then
1497: hr_utility.set_location(l_proc, 110);
1498: end if;
1499:
1500: wf_engine.SetItemAttrText(itemtype => itemtype,
1501: itemkey => itemkey,
1569: else
1570: 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
1571:
1572: if g_debug then
1573: hr_utility.set_location(l_proc, 120);
1574: end if;
1575: --set TC_FROM_ROLE
1576: l_tc_from_role :=wf_engine.GetItemAttrText(
1577: itemtype => itemtype,
1640:
1641: END if; -- END Notification with details or not
1642: else
1643: if g_debug then
1644: hr_utility.set_location(l_proc, 130);
1645: end if;
1646: result := 'COMPLETE:NO_NOTIFICATION';
1647: END if; -- END SEND Notification
1648:
1647: END if; -- END SEND Notification
1648:
1649: else
1650: if g_debug then
1651: hr_utility.set_location(l_proc, 140);
1652: end if;
1653: result := 'COMPLETE:NO_NOTIFICATION';
1654: END if;--END can notify or not
1655:
1655:
1656: return;
1657:
1658: -- error handler
1659: hr_utility.trace('Leaving preparing notifications');
1660: exception
1661: when others then
1662:
1663: -- The line below records this FUNCTION call in the error system
1664: -- in the case of an exception.
1665: --
1666:
1667: if g_debug then
1668: hr_utility.set_location(l_proc, 999);
1669: end if;
1670: wf_core.context('HCAPPRWFHELPER', 'hxc_approval_wf_helper.prepare_notification',
1671: itemtype, itemkey, to_char(actid), funcmode);
1672: raise;
1736: -- in the case of an exception.
1737: --
1738:
1739: if g_debug then
1740: hr_utility.set_location(l_proc, 999);
1741: end if;
1742: wf_core.context('HCAPPRWFHELPER', 'hxc_approval_wf_helper.cleanup',
1743: itemtype, itemkey, to_char(actid), funcmode);
1744: raise;