[Home] [Help]
269: -- commit;
270:
271: /*+======================================================================+
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:
687:
688:
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
852: |
853: | This is an ItemType Selector function that contains callback
854: | functionality to reestablish context for each process in our
855: | ItemType. This is a requierment of the Concurrent Manager
856: | Standard Activity to be sure that the context is set up by
857: | calling:
858: | fnd_global.apps_initialize(user_id, resp_id, resp_appl_id)
859: |
860: | IN
857: | calling:
858: | fnd_global.apps_initialize(user_id, resp_id, resp_appl_id)
859: |
860: | IN
861: | Set of arguments for Standard Activity Function:
862: | itemtype - A valid item type from WF_ITEM_TYPES table.
863: | itemkey - string generated as WF primary key.
864: | actid - An Activity ID.
865: | command - Oracle Workflow calls selector/callback function with
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.
1177: wf_purge.adhocdirectory;
1178:
1179: -- Delete task rows from zpb_excp_results, zpb_exp_explanations by instance
1180:
1568:
1569:
1570: /*+======================================================================+
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:
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
1605: retcode := ZPB_ERROR_HANDLER.GET_CONC_REQ_STATUS;
1606:
1607: return;
3016: end if;
3017:
3018: zpb_data_load.run_data_load(TaskID, DataAW, CodeAW, AnnoAW);
3019:
3020: -- b 5170327 - retcode is an OUT parameter conc program standard - 0=success, 1=warning or 2=error.
3021: -- for warnings from just above flow of calls.
3022: retcode := ZPB_ERROR_HANDLER.GET_CONC_REQ_STATUS;
3023:
3024:
3611:
3612: -- b 5170327 intializes the pv_status variable
3613: ZPB_ERROR_HANDLER.INIT_CONC_REQ_STATUS;
3614: ZPB_AW.EXECUTE('call SV.RUN.SOLVE(''' || l_dbname || ''', ''' || TO_CHAR(Instanceid) || ''', ''' || TO_CHAR(taskid) || ''')');
3615: -- b 5170327 - retcode is an OUT parameter conc program standard - 0=success, 1=warning or 2=error.
3616: retcode := ZPB_ERROR_HANDLER.GET_CONC_REQ_STATUS;
3617:
3618: -- update
3619: ZPB_AW.EXECUTE('upd');
4358: -- Resume the instance from the first task
4359: RESUME_INSTANCE (InstanceID => P_InstanceId,
4360: PResumeType => 'RUN_FROM_TOP');
4361:
4362: -- b 5170327 - retcode is an OUT parameter conc program standard - 0=success, 1=warning or 2=error.
4363: retcode := ZPB_ERROR_HANDLER.GET_CONC_REQ_STATUS;
4364:
4365: errbuf:=' ';
4366:
4416:
4417: BEGIN
4418:
4419:
4420: -- Standard Start of API savepoint
4421: SAVEPOINT zpb_request_explanation;
4422: -- Standard call to check for call compatibility.
4423: IF NOT FND_API.Compatible_API_Call( l_api_version,
4424: p_api_version,
4418:
4419:
4420: -- Standard Start of API savepoint
4421: SAVEPOINT zpb_request_explanation;
4422: -- Standard call to check for call compatibility.
4423: IF NOT FND_API.Compatible_API_Call( l_api_version,
4424: p_api_version,
4425: l_api_name,
4426: G_PKG_NAME)
4451:
4452: if InstanceStatusCode = 'ISCNotFound' then
4453: x_msg_count := 1;
4454: x_msg_data := 'No Instance ws found for this Business Process.';
4455: -- Standard call to get message count and if count is 1, get message info.
4456: FND_MSG_PUB.Count_And_Get(
4457: p_count => x_msg_count,
4458: p_data => x_msg_data );
4459:
4463:
4464: if InstanceStatusCode = 'ACTIVE' then
4465: x_msg_count := 1;
4466: x_msg_data := 'The instance of this Business Process is currently running. Instance: ' || p_InstanceID ;
4467: -- Standard call to get message count and if count is 1, get message info.
4468: FND_MSG_PUB.Count_And_Get(
4469: p_count => x_msg_count,
4470: p_data => x_msg_data );
4471:
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.
4549: FND_MSG_PUB.Count_And_Get(
4550: p_count => x_msg_count,
4551: p_data => x_msg_data );
4552:
4671: -- DBMS_OUTPUT.PUT_LINE('The Business Process Run has been started.');
4672: -- DBMS_OUTPUT.PUT_LINE('The Workflow ITEM_KEY is: ' || newitemkey);
4673:
4674:
4675: -- Standard check of p_commit.
4676: IF FND_API.To_Boolean( p_commit ) THEN
4677: COMMIT WORK;
4678: END IF;
4679: -- Standard call to get message count and if count is 1, get message info.
4675: -- Standard check of p_commit.
4676: IF FND_API.To_Boolean( p_commit ) THEN
4677: COMMIT WORK;
4678: END IF;
4679: -- Standard call to get message count and if count is 1, get message info.
4680: FND_MSG_PUB.Count_And_Get(
4681: p_count => x_msg_count,
4682: p_data => x_msg_data
4683: );