[Home] [Help]
1: PACKAGE BODY ZPB_WF AS
2: /* $Header: zpbwrkfl.plb 120.18 2007/12/04 16:24:57 mbhat ship $ */
3:
4:
5: Owner varchar2(30);
3:
4:
5: Owner varchar2(30);
6: g_owner varchar2(50) := ' ';
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZPB_WF';
8:
9: /*+=========================================================================+
10: | ACStart
11: |
87: select STATUS_CODE, NAME, PUBLISHED_BY
88: into ACstatusCode, ACname, OwnerID
89: from zpb_analysis_cycles
90: where ANALYSIS_CYCLE_ID = ACID;
91: Owner := ZPB_WF_NTF.ID_to_FNDUser(OwnerID);
92:
93:
94: -- Get start date for WF WAIT
95: select TAG as PARAM_ID
272: -- abudnik b 4725904 COMMENTING OUT OUR USE OF ZPB BACKGROUND ENGINES.
273: -- THIS WILL NOW BE DONE BY STANDARD WORKFLOW via OAM
274:
275: -- WF BACKGROUND ENGINE TO RUN deferred activities like WAIT.
276: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(request_id, 'ZPB', 'ZPB_WFBKGMGR', rphase,rstatus,dphase,dstatus, message);
277:
278: if call_status = TRUE then
279: if dphase <> 'RUNNING' then
280: bkgREQID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WFBKGMGR', NULL, NULL, FALSE, Itemtype, itemkey );
276: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(request_id, 'ZPB', 'ZPB_WFBKGMGR', rphase,rstatus,dphase,dstatus, message);
277:
278: if call_status = TRUE then
279: if dphase <> 'RUNNING' then
280: bkgREQID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WFBKGMGR', NULL, NULL, FALSE, Itemtype, itemkey );
281: wf_engine.SetItemAttrNumber(Itemtype => ItemType,
282: Itemkey => ItemKey,
283: aname => 'BKGREQID',
284: avalue => bkgREQID);
283: aname => 'BKGREQID',
284: avalue => bkgREQID);
285: end if;
286: else
287: bkgREQID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WFBKGMGR', NULL, NULL, FALSE, Itemtype, itemkey );
288: wf_engine.SetItemAttrNumber(Itemtype => ItemType,
289: Itemkey => ItemKey,
290: aname => 'BKGREQID',
291: avalue => bkgREQID);
460:
461: -- If instance is marked for deletion do not mark it as complete
462: -- Clean up the instance measures and quit
463: if InstatusCode = 'MARKED_FOR_DELETION' then
464: l_REQID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WF_DELAWINST', NULL, NULL, FALSE, InstanceID, ownerID, l_business_area_id);
465:
466: -- Clean up Current Instance Measure if Appropriate
467: DeleteCurrInstMeas(ACID, ownerID);
468:
491: end loop;
492:
493: if l_migration = 'N' then
494: -- Mark for delete
495: zpb_wf.markfordelete(ACID, ownerID, respID, respAppID);
496: end if;
497:
498: resultout :='COMPLETE:RUN_COMPLETE';
499: return;
689: /*+======================================================================+
690: -- abudnik b 4725904 COMMENTING OUT OUR USE OF ZPB BACKGROUND ENGINES.
691: -- THIS WILL NOW BE DONE BY STANDARD WORKFLOW via OAM
692: -- WF BACKGROUND ENGINE TO RUN deferred activities like WAIT.
693: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(request_id, 'ZPB', 'ZPB_WF_START', rphase,rstatus,dphase,dstatus, message);
694:
695: if call_status = TRUE then
696: if dphase <> 'RUNNING' then
697: resultout :='COMPLETE:Y';
717: -- when the error is raised here ZPBWFERR will update zpb status
718: -- commits can not be done inside WF.
719: -- UPDATE_STATUS('ERROR', Instanceid, NULL, NULL);
720:
721: WF_CORE.CONTEXT('ZPB_WF.RunNextTask', itemtype, itemkey, to_char(actid), funcmode);
722: raise;
723:
724: end RunNextTask;
725:
820: CodeAW := ZPB_AW.GET_CODE_AW;
821: AnnoAW := ZPB_AW.GET_ANNOTATION_AW;
822:
823: -- abudnik 17NOV2005 BUSINESS AREA ID.
824: reqID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WF_TO_AW', NULL, NULL, FALSE, ACID, taskID, dataAW, CodeAW, AnnoAW, l_business_area_id);
825:
826: wf_engine.SetItemAttrNumber(Itemtype => ItemType,
827: Itemkey => ItemKey,
828: aname => 'REQUEST_ID',
840: -- when the error is raised here ZPBWFERR will update zpb status
841: -- commits can not be done inside WF.
842: -- UPDATE_STATUS('ERROR', NULL, taskid, NULL);
843:
844: WF_CORE.CONTEXT('ZPB_WF.RunLoad', itemtype, itemkey, to_char(actid), funcmode);
845: raise;
846:
847: end RunLoad;
848:
940:
941: exception
942:
943: when others then
944: WF_CORE.CONTEXT('ZPB_WF.Selector', itemtype, itemkey,
945: to_char(actid), command);
946: raise;
947: end Selector;
948:
970: -- Activity until no Deferred or notified Activities are found.
971: -- Itemtype and Itemkey for future use
972:
973: Loop
974: -- BUG 4517776 - SELECT ON WF VIEW WITHIN ZPB_WFBKGMGR SLOW
975: select count(*)
976: into itemsToProcess
977: from wf_items_v v
978: WHERE v.ITEM_TYPE = 'ZPBSCHED' AND end_date is NULL
1035: -- Activity until no Deferred or notified Activities are found.
1036: -- TGT_ITEMTYPE and TGT_ITEMKEY for future use.
1037:
1038: Loop
1039: -- BUG 4517776 - SELECT ON WF VIEW WITHIN ZPB_WFBKGMGR SLOW
1040: select count(*)
1041: into itemsToProcess
1042: from wf_items_v v
1043: WHERE v.ITEM_TYPE = 'EPBCYCLE' AND end_date is NULL
1168:
1169: BEGIN
1170:
1171: -- find all workflows for this ACID or instance, abort and purge.
1172: ZPB_WF.DeleteWorkflow(errbuf, retcode, inACID, ACIDType);
1173:
1174: -- The default date setting for exec wf_purge.adhocdirectory is sysdate.
1175: -- This will purge out any ad hoc roles or users I've generated based on the expiration_date
1176: -- set in wf_directory.CreateAdHocRole. This is a standard WF API.
1203:
1204: exception
1205:
1206: when others then
1207: RAISE_APPLICATION_ERROR(-20100, 'Error in ZPB_WF.CallDelWF');
1208: end CallDelWF;
1209:
1210: --BPEXT
1211: PROCEDURE updateHorizonParams(p_start_mem IN VARCHAR2
1329: return;
1330: end if;
1331:
1332: -- Begining the creation of a new Business Process Run
1333: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_NEW_BP_START');
1334: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
1335:
1336: -- call ops prg to make new instance
1337: ZPB_AC_OPS.CREATE_NEW_INSTANCE(ACID, outInstanceID);
1368: ownerID := wf_engine.GetItemAttrNumber(Itemtype => ItemType,
1369: Itemkey => ItemKey,
1370: aname => 'OWNERID');
1371: -- AGB 11/07/2003 Publish change
1372: Owner := ZPB_WF_NTF.ID_to_FNDUser(OwnerID);
1373: respID := wf_engine.GetItemAttrNumber(Itemtype => ItemType,
1374: Itemkey => ItemKey,
1375: aname => 'RESPID');
1376: respAppID := wf_engine.GetItemAttrNumber(Itemtype => ItemType,
1392: -- b 5170327 intializes the pv_status variable
1393: ZPB_ERROR_HANDLER.INIT_CONC_REQ_STATUS;
1394:
1395: -- currently calls zpb_gen_phys_model.gen_physical_model + in.run.init
1396: ZPB_WF.INIT_BUSINESS_PROCESS(ACID, outInstanceID, TaskID, ownerID);
1397:
1398: -- Set item key and date
1399: charDate := to_char(sysdate, 'MM/DD/YYYY-HH24-MI-SS');
1400: newitemkey := rtrim(substr(ACName, 1, 50), ' ') || '-' || to_char(ACID) || '-1-' || workflowprocess || '-' || charDate;
1571: -- abudnik b 4725904 COMMENTING OUT OUR USE OF ZPB BACKGROUND ENGINES.
1572: -- THIS WILL NOW BE DONE BY STANDARD WORKFLOW via OAM
1573:
1574: -- WF BACKGROUND ENGINE TO RUN deferred activities like WAIT.
1575: call_status := FND_CONCURRENT.GET_REQUEST_STATUS(request_id, 'ZPB', 'ZPB_WF_START', rphase,rstatus,dphase,dstatus, message);
1576:
1577: if call_status = TRUE then
1578: if dphase <> 'RUNNING' then
1579: -- WF BACKGROUND ENGINE TO RUN deferred activities like WAIT.
1576:
1577: if call_status = TRUE then
1578: if dphase <> 'RUNNING' then
1579: -- WF BACKGROUND ENGINE TO RUN deferred activities like WAIT.
1580: bkgREQID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WF_START', NULL, NULL, FALSE, InstItemType, newitemkey );
1581: wf_engine.SetItemAttrNumber(Itemtype => InstItemType,
1582: Itemkey => newItemKey,
1583: aname => 'BKGREQID',
1584: avalue => bkgREQID);
1584: avalue => bkgREQID);
1585: end if;
1586: else
1587: -- WF BACKGROUND ENGINE TO RUN deferred activities like WAIT.
1588: bkgREQID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WF_START', NULL, NULL, FALSE, InstItemType, newitemkey );
1589: wf_engine.SetItemAttrNumber(Itemtype => InstItemType,
1590: Itemkey => newItemKey,
1591: aname => 'BKGREQID',
1592: avalue => bkgREQID);
1596: +======================================================================+*/
1597:
1598:
1599: -- The new Business Process Run has started
1600: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_NEW_BP_END');
1601: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
1602:
1603: -- b 5170327 - retcode is an OUT parameter conc program standard - 0=success, 1=warning or 2=error.
1604: -- will have warning if set by AW dml from call to ZPB_WF.INIT_BUSINESS_PROCESS
1600: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_NEW_BP_END');
1601: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
1602:
1603: -- b 5170327 - retcode is an OUT parameter conc program standard - 0=success, 1=warning or 2=error.
1604: -- will have warning if set by AW dml from call to ZPB_WF.INIT_BUSINESS_PROCESS
1605: retcode := ZPB_ERROR_HANDLER.GET_CONC_REQ_STATUS;
1606:
1607: return;
1608:
1727:
1728: -- 03/07/2004 agb new instance delete
1729: if rtrim(l_appended, ' ') = 'DO_NOT_APPEND_VIEW' then
1730: -- zpb_build_metadata.remove_instance(DataAW, InstanceID);
1731: l_REQID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WF_DELAWINST', NULL, NULL, FALSE, instanceid, ownerID, l_business_area_id);
1732: end if;
1733:
1734: retValue := 'MARKED';
1735: end if;
2320: return;
2321:
2322: exception
2323: when others then
2324: WF_CORE.CONTEXT('ZPB_WF.FrequencyInit', itemtype, itemkey, to_char(actid), funcmode);
2325: raise;
2326:
2327: end FrequencyInit;
2328:
2561: return;
2562:
2563: exception
2564: when others then
2565: WF_CORE.CONTEXT('ZPB_WF.FrequencyMgr', itemtype, itemkey, to_char(actid), funcmode);
2566: raise;
2567:
2568: end FrequencyMgr;
2569:
2592: END IF;
2593:
2594: exception
2595: when others then
2596: WF_CORE.CONTEXT('ZPB_WF', 'SetCompDate', itemtype, itemkey, to_char(actid), funcmode);
2597: raise;
2598: end SetCompDate;
2599:
2600:
2752: zpb_analysis_cycles c
2753: where i.INSTANCE_AC_ID = InstanceID
2754: and i.ANALYSIS_CYCLE_ID = c.ANALYSIS_CYCLE_ID;
2755:
2756: Owner := ZPB_WF_NTF.ID_to_FNDUser(OwnerID);
2757: respAppID := 210;
2758: for v_respID in c_respID loop
2759: RespID := v_respID.RESP_ID;
2760: exit;
2786: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2787: where instance_ac_id = INSTANCEID;
2788:
2789: -- Mark for delete
2790: zpb_wf.markfordelete(ACID, ownerID, respID, respAppID);
2791:
2792: resultout :='COMPLETE:N';
2793: return;
2794: end if;
3124: end if;
3125:
3126: exception
3127: when others then
3128: WF_CORE.CONTEXT('ZPB_WF', 'SET_CURRINST', itemtype, itemkey, to_char(actid), funcmode);
3129: raise;
3130:
3131: end SET_CURRINST;
3132:
3273: wf_engine.SetItemAttrText(Itemtype => ItemType,
3274: Itemkey => ItemKey,
3275: aname => 'RESULT',
3276: avalue => ACIDlist);
3277: zpb_wf.ACStart(thisACID, 'N', 'Y');
3278: dbms_lock.sleep(15);
3279: resultout :='COMPLETE:PROCEED';
3280: else
3281: -- 0 length remaining OR NULL
3288: return;
3289:
3290: exception
3291: when others then
3292: WF_CORE.CONTEXT('ZPB_WF', 'PREP_EVENT_ACID', itemtype, itemkey, to_char(actid), funcmode);
3293: raise;
3294:
3295: end PREP_EVENT_ACID;
3296:
3440:
3441: -- If enable_asap we resume the instance from the left-on task
3442: -- The associated AW measure for the instance is unchanged
3443: if PStatus = 'ENABLE_TASK' then
3444: zpb_wf.resume_instance(InstanceID);
3445: end if;
3446:
3447: -- If enable first we restart the instance from its first task
3448: -- we also set the context and submit a CM request that will
3464: set status_code='MARKED_FOR_DELETION'
3465: where analysis_cycle_id=InstanceID;
3466:
3467: -- clean the measure
3468: l_REQID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WF_DELAWINST', NULL, NULL, FALSE, InstanceID, ownerID, l_business_area_id);
3469: end if;
3470: end loop;
3471: end if;
3472:
3491: -- BUG 4291814 - WORKFLOW COMPONENTS: START BP EXTERNALLY
3492: -- BUG 4496397 - Only kick off new instace in One-Time-Only and Enable
3493: -- from next run case
3494: if (freqType='ONE_TIME_ONLY' and PStatus='ENABLE_NEXT') or freqType= 'EXTERNAL_EVENT' then
3495: zpb_wf.ACStart(Pacid,'Y');
3496: end if;
3497:
3498:
3499: end if; -- outermost
3532: -- set olap page pool size based on ZPB_OPPS_AW_BUILD profile setting
3533: zpb_util_pvt.set_opps(ZPB_UTIL_PVT.ZPB_OPPS_AW_BUILD, UserID);
3534:
3535: --log START Generate Physical Model
3536: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_GENPHYS_START');
3537: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3538:
3539: ZPB_AW.INITIALIZE_FOR_AC (p_api_version => 1.0,
3540: p_init_msg_list => FND_API.G_TRUE,
3551: ZPB_AW.DETACH_ALL;
3552: attached := 'N';
3553:
3554: --log END Generate Physical Model has completed
3555: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_GENPHYS_END');
3556: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3557:
3558: -- NEW CALL to intialize process run data for instance
3559: ZPB_WF.INIT_PROC_RUN_DATA (ACID, InstanceID, TaskID, UserID);
3555: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_GENPHYS_END');
3556: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3557:
3558: -- NEW CALL to intialize process run data for instance
3559: ZPB_WF.INIT_PROC_RUN_DATA (ACID, InstanceID, TaskID, UserID);
3560:
3561: end if;
3562: return;
3563:
3564: exception
3565: when others then
3566:
3567: --log Generate Physical Model has errored
3568: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_GENPHYS_ERROR');
3569: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3570:
3571: if attached = 'Y' then
3572: ZPB_AW.DETACH_ALL;
3622: ZPB_AW.DETACH_ALL;
3623: attached := 'N';
3624:
3625: --log solve OK
3626: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_SOLVEOK');
3627: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3628:
3629: return;
3630:
3637: ZPB_AW.DETACH_ALL;
3638: end if;
3639:
3640: --log solve OK
3641: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_SOLVE_NOTOK');
3642: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3643: errbuf:=substr(sqlerrm, 1, 255);
3644:
3645: -- update zpb instance info with ERROR
3713: from ZPB_ANALYSIS_CYCLES
3714: where ANALYSIS_CYCLE_ID = ACId;
3715:
3716: -- abudnik 17NOV2005 BUSINESS AREA ID.
3717: l_REQID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WF_DELAWINST', NULL, NULL, FALSE, p_InstanceID, ownerID, l_business_area_id);
3718: return;
3719: end if;
3720:
3721:
3879:
3880: -- retcode := '0';
3881:
3882: --log Initialization of Business Process Run data has started
3883: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_INIT_DATA_START');
3884: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3885:
3886: ZPB_AW.INITIALIZE_FOR_AC (p_api_version => 1.0,
3887: p_init_msg_list => FND_API.G_TRUE,
3904: ZPB_AW.DETACH_ALL;
3905: attached := 'N';
3906:
3907: --log Initialization of Business Process Run data has completed
3908: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_INIT_DATA_END');
3909: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3910:
3911: return;
3912:
3918: ZPB_AW.DETACH_ALL;
3919: end if;
3920:
3921: --log Initialization of Business Process Run data encountered an error
3922: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_INIT_DATA_ERROR');
3923: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3924: -- errbuf:=substr(sqlerrm, 1, 255);
3925:
3926: -- update zpb instance info with ERROR
3945:
3946: retcode := '0';
3947:
3948: --log DEL INST OK
3949: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_BEGDELINST');
3950: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3951:
3952: delete from zpb_measures
3953: where instance_id = InstanceID;
3993: ZPB_AW.DETACH_ALL;
3994: attached := 'N';
3995:
3996: --log DEL INST OK
3997: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_ENDDELINST');
3998: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
3999:
4000: return;
4001:
4008: ZPB_AW.DETACH_ALL;
4009: end if;
4010:
4011: --log DEL INST ERR
4012: FND_MESSAGE.SET_NAME('ZPB', 'ZPB_WF_ERRDELINST');
4013: FND_FILE.put_line(FND_FILE.LOG, FND_MESSAGE.GET);
4014: errbuf:=substr(sqlerrm, 1, 255);
4015:
4016: -- do not update zpb instance info with ERROR from this procedure
4032:
4033: BEGIN
4034:
4035: -- find all workflows for this ACID or instance, abort.
4036: ZPB_WF.abortWorkflow(errbuf, retcode, inACID, 'A');
4037:
4038: return;
4039:
4040: exception
4039:
4040: exception
4041:
4042: when others then
4043: RAISE_APPLICATION_ERROR(-20100, 'Error in ZPB_WF.CallWFABORT');
4044:
4045: end CallWFAbort;
4046:
4047: procedure AbortWorkflow (errbuf out nocopy varchar2,
4267: -- Set context before calling SUBMIT_REQUEST
4268: fnd_global.apps_initialize(ownerID, respIDW, RespAppID);
4269:
4270: -- abudnik 17NOV2005 BUSINESS AREA ID
4271: l_REQID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WF_DELAWINST', NULL, NULL, FALSE, currInstanceId, ownerID, l_business_area_id);
4272:
4273: EXCEPTION
4274: WHEN NO_DATA_FOUND THEN
4275: NULL;
4488: from ZPB_ANALYSIS_CYCLES
4489: where ANALYSIS_CYCLE_ID = ACID;
4490:
4491: -- Converted from zpb_analysis_cycles select above
4492: Owner := ZPB_WF_NTF.ID_to_FNDUser(OwnerID);
4493:
4494: -- Using ZPB_CONTROLLER_RESP as the source for this
4495: select RESPONSIBILITY_ID
4496: into respID
4540: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
4541: where instance_ac_id = p_InstanceID;
4542:
4543: -- Mark for delete
4544: -- zpb_wf.markfordelete(ACID, ownerID, respID, respAppID);
4545:
4546: x_msg_count := 1;
4547: x_msg_data := 'The Data Load task was missing the WF Process Name for this Business Process.';
4548: -- Standard call to get message count and if count is 1, get message info.
4755: resultout := wf_engine.eng_timedout;
4756: end if;
4757: exception
4758: when others then
4759: WF_CORE.CONTEXT('ZPB_WF.REVIEW_NOTIF_RESPONSE', itemtype, itemkey, to_char(actid), funcmode);
4760: raise;
4761: end REVIEW_NOTIF_RESPONSE;
4762:
4763:
4837: FROM WF_PROCESS_ACTIVITIES
4838: WHERE INSTANCE_ID=actid;
4839:
4840: If l_ActEntry = 'SUBMIT_CONC_REQUEST' then
4841: reqID := FND_REQUEST.SUBMIT_REQUEST ('ZPB', 'ZPB_WF_INSTANCE', NULL, NULL, FALSE, itemkey, l_ACID, l_business_area_id);
4842: -- l_ActEntry = 'EXECUTECONCPROG' then
4843:
4844: elsif l_ActEntry = 'VALIDATE_BP' then
4845: -- procedure can be used by a new function activity for validate bp
4868: return;
4869:
4870: exception
4871: when others then
4872: Wf_Core.Context('ZPB_WF', 'SUBMIT_CONC_REQUEST', itemtype,
4873: itemkey, to_char(actid), funcmode);
4874: raise;
4875:
4876:
4877:
4878: END SUBMIT_CONC_REQUEST;
4879:
4880:
4881: end ZPB_WF;
4882: