40: WaitMode varchar2(24);
41: StartDateTxt varchar(100);
42: StartDateDt date;
43: charDate varchar2(30);
44: owner varchar2(30) := fnd_global.user_name;
45: ownerID number := fnd_global.USER_ID;
46: respNam varchar2(80) := fnd_global.RESP_NAME;
47: respID number := fnd_global.RESP_ID;
48: --Bug 5223405: Change start
41: StartDateTxt varchar(100);
42: StartDateDt date;
43: charDate varchar2(30);
44: owner varchar2(30) := fnd_global.user_name;
45: ownerID number := fnd_global.USER_ID;
46: respNam varchar2(80) := fnd_global.RESP_NAME;
47: respID number := fnd_global.RESP_ID;
48: --Bug 5223405: Change start
49: --appNam varchar2(3) := fnd_global.APPLICATION_SHORT_NAME;
42: StartDateDt date;
43: charDate varchar2(30);
44: owner varchar2(30) := fnd_global.user_name;
45: ownerID number := fnd_global.USER_ID;
46: respNam varchar2(80) := fnd_global.RESP_NAME;
47: respID number := fnd_global.RESP_ID;
48: --Bug 5223405: Change start
49: --appNam varchar2(3) := fnd_global.APPLICATION_SHORT_NAME;
50: appName FND_APPLICATION.APPLICATION_SHORT_NAME%type := fnd_global.APPLICATION_SHORT_NAME;
43: charDate varchar2(30);
44: owner varchar2(30) := fnd_global.user_name;
45: ownerID number := fnd_global.USER_ID;
46: respNam varchar2(80) := fnd_global.RESP_NAME;
47: respID number := fnd_global.RESP_ID;
48: --Bug 5223405: Change start
49: --appNam varchar2(3) := fnd_global.APPLICATION_SHORT_NAME;
50: appName FND_APPLICATION.APPLICATION_SHORT_NAME%type := fnd_global.APPLICATION_SHORT_NAME;
51: --Bug 5223405: Change end
45: ownerID number := fnd_global.USER_ID;
46: respNam varchar2(80) := fnd_global.RESP_NAME;
47: respID number := fnd_global.RESP_ID;
48: --Bug 5223405: Change start
49: --appNam varchar2(3) := fnd_global.APPLICATION_SHORT_NAME;
50: appName FND_APPLICATION.APPLICATION_SHORT_NAME%type := fnd_global.APPLICATION_SHORT_NAME;
51: --Bug 5223405: Change end
52: respAppID number := fnd_global.RESP_APPL_ID;
53: EngItemKey varchar2(200);
46: respNam varchar2(80) := fnd_global.RESP_NAME;
47: respID number := fnd_global.RESP_ID;
48: --Bug 5223405: Change start
49: --appNam varchar2(3) := fnd_global.APPLICATION_SHORT_NAME;
50: appName FND_APPLICATION.APPLICATION_SHORT_NAME%type := fnd_global.APPLICATION_SHORT_NAME;
51: --Bug 5223405: Change end
52: respAppID number := fnd_global.RESP_APPL_ID;
53: EngItemKey varchar2(200);
54: errbuf varchar2(80);
48: --Bug 5223405: Change start
49: --appNam varchar2(3) := fnd_global.APPLICATION_SHORT_NAME;
50: appName FND_APPLICATION.APPLICATION_SHORT_NAME%type := fnd_global.APPLICATION_SHORT_NAME;
51: --Bug 5223405: Change end
52: respAppID number := fnd_global.RESP_APPL_ID;
53: EngItemKey varchar2(200);
54: errbuf varchar2(80);
55: bkgREQID number;
56: InstanceCount number;
437:
438: -- First set prior task to complete - one that just finished.
439: update zpb_analysis_cycle_tasks
440: set status_code = 'COMPLETE',
441: LAST_UPDATED_BY = fnd_global.USER_ID,
442: LAST_UPDATE_DATE = SYSDATE,
443: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
444: where ANALYSIS_CYCLE_ID = InstanceID and TASK_ID = priorTaskID;
445:
439: update zpb_analysis_cycle_tasks
440: set status_code = 'COMPLETE',
441: LAST_UPDATED_BY = fnd_global.USER_ID,
442: LAST_UPDATE_DATE = SYSDATE,
443: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
444: where ANALYSIS_CYCLE_ID = InstanceID and TASK_ID = priorTaskID;
445:
446: -- Get next task [wf process] to run - if NONE you are COMPLETE!
447: workflowprocess := 'NONE';
474: if workflowprocess = 'NONE' then
475:
476: update zpb_ANALYSIS_CYCLES
477: set status_code = 'COMPLETE',
478: LAST_UPDATED_BY = fnd_global.USER_ID,
479: LAST_UPDATE_DATE = SYSDATE,
480: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
481: where ANALYSIS_CYCLE_ID = INSTANCEID;
482:
476: update zpb_ANALYSIS_CYCLES
477: set status_code = 'COMPLETE',
478: LAST_UPDATED_BY = fnd_global.USER_ID,
479: LAST_UPDATE_DATE = SYSDATE,
480: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
481: where ANALYSIS_CYCLE_ID = INSTANCEID;
482:
483: update zpb_analysis_cycle_instances
484: set LAST_UPDATED_BY = fnd_global.USER_ID,
480: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
481: where ANALYSIS_CYCLE_ID = INSTANCEID;
482:
483: update zpb_analysis_cycle_instances
484: set LAST_UPDATED_BY = fnd_global.USER_ID,
485: LAST_UPDATE_DATE = SYSDATE, LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
486: where instance_ac_id = INSTANCEID;
487:
488: l_migration := 'N';
481: where ANALYSIS_CYCLE_ID = INSTANCEID;
482:
483: update zpb_analysis_cycle_instances
484: set LAST_UPDATED_BY = fnd_global.USER_ID,
485: LAST_UPDATE_DATE = SYSDATE, LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
486: where instance_ac_id = INSTANCEID;
487:
488: l_migration := 'N';
489: for v_mparams in c_mparams loop
509: from zpb_ANALYSIS_CYCLES where ANALYSIS_CYCLE_ID = INSTANCEID;
510:
511: update zpb_ANALYSIS_CYCLES
512: set status_code = 'PAUSED',
513: LAST_UPDATED_BY = fnd_global.USER_ID,
514: LAST_UPDATE_DATE = SYSDATE, LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
515: where ANALYSIS_CYCLE_ID = INSTANCEID;
516:
517: update zpb_analysis_cycle_instances
510:
511: update zpb_ANALYSIS_CYCLES
512: set status_code = 'PAUSED',
513: LAST_UPDATED_BY = fnd_global.USER_ID,
514: LAST_UPDATE_DATE = SYSDATE, LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
515: where ANALYSIS_CYCLE_ID = INSTANCEID;
516:
517: update zpb_analysis_cycle_instances
518: set LAST_UPDATED_BY = fnd_global.USER_ID,
514: LAST_UPDATE_DATE = SYSDATE, LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
515: where ANALYSIS_CYCLE_ID = INSTANCEID;
516:
517: update zpb_analysis_cycle_instances
518: set LAST_UPDATED_BY = fnd_global.USER_ID,
519: LAST_UPDATE_DATE = SYSDATE, LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
520: where instance_ac_id = INSTANCEID;
521:
522: select user_name into usr_paused_BP_Name from
515: where ANALYSIS_CYCLE_ID = INSTANCEID;
516:
517: update zpb_analysis_cycle_instances
518: set LAST_UPDATED_BY = fnd_global.USER_ID,
519: LAST_UPDATE_DATE = SYSDATE, LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
520: where instance_ac_id = INSTANCEID;
521:
522: select user_name into usr_paused_BP_Name from
523: FND_USER where user_id = usr_paused_BP_ID;
675: update zpb_analysis_cycle_tasks
676: set item_KEY = newitemkey,
677: Start_date = to_Date(charDate,'MM/DD/YYYY-HH24-MI-SS'),
678: status_code = 'ACTIVE',
679: LAST_UPDATED_BY = fnd_global.USER_ID,
680: LAST_UPDATE_DATE = SYSDATE,
681: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
682: where ANALYSIS_CYCLE_ID = INSTANCEID and task_id = TaskID;
683:
677: Start_date = to_Date(charDate,'MM/DD/YYYY-HH24-MI-SS'),
678: status_code = 'ACTIVE',
679: LAST_UPDATED_BY = fnd_global.USER_ID,
680: LAST_UPDATE_DATE = SYSDATE,
681: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
682: where ANALYSIS_CYCLE_ID = INSTANCEID and task_id = TaskID;
683:
684: -- Now that all is created and set START the PROCESS!
685: wf_engine.StartProcess(ItemType => ItemType,
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
861: | Set of arguments for Standard Activity Function:
862: | itemtype - A valid item type from WF_ITEM_TYPES table.
904: aname => 'RESPAPPID');
905:
906:
907: if l_wfprocess <> 'CALCSYNCPRC' then
908: fnd_global.apps_initialize(ownerID, respID, RespAppId);
909: end if;
910:
911: resultout := 'COMPLETE';
912: return;
925: Itemkey => ItemKey,
926: aname => 'RESPAPPID');
927:
928: if l_wfprocess <> 'CALCSYNCPRC' then
929: fnd_global.apps_initialize(ownerID, respID, RespAppId);
930: end if;
931:
932: return;
933:
1225: l_msgData varchar2(2000);
1226: BEGIN
1227: IF (p_start_mem IS NOT NULL ) THEN
1228: UPDATE zpb_ac_param_values SET value = p_start_mem,
1229: LAST_UPDATED_BY = fnd_global.USER_ID,
1230: LAST_UPDATE_DATE = SYSDATE,
1231: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1232: WHERE
1233: analysis_cycle_id = new_ac_id AND param_id =
1227: IF (p_start_mem IS NOT NULL ) THEN
1228: UPDATE zpb_ac_param_values SET value = p_start_mem,
1229: LAST_UPDATED_BY = fnd_global.USER_ID,
1230: LAST_UPDATE_DATE = SYSDATE,
1231: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1232: WHERE
1233: analysis_cycle_id = new_ac_id AND param_id =
1234: ( SELECT tag FROM fnd_lookup_values_vl WHERE lookup_type = 'ZPB_PARAMS' AND
1235: lookup_code = 'CAL_HS_TIME_MEMBER');
1236: END IF;
1237:
1238: IF (p_end_mem IS NOT NULL ) THEN
1239: UPDATE zpb_ac_param_values SET value = p_end_mem,
1240: LAST_UPDATED_BY = fnd_global.USER_ID,
1241: LAST_UPDATE_DATE = SYSDATE,
1242: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1243: WHERE
1244: analysis_cycle_id = new_ac_id AND param_id =
1238: IF (p_end_mem IS NOT NULL ) THEN
1239: UPDATE zpb_ac_param_values SET value = p_end_mem,
1240: LAST_UPDATED_BY = fnd_global.USER_ID,
1241: LAST_UPDATE_DATE = SYSDATE,
1242: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1243: WHERE
1244: analysis_cycle_id = new_ac_id AND param_id =
1245: ( SELECT tag FROM fnd_lookup_values_vl WHERE lookup_type = 'ZPB_PARAMS' AND
1246: lookup_code = 'CAL_HE_TIME_MEMBER');
1541: update zpb_analysis_cycle_tasks
1542: set item_KEY = newitemkey,
1543: Start_date = to_Date(charDate,'MM/DD/YYYY-HH24-MI-SS'),
1544: status_code = 'ACTIVE',
1545: LAST_UPDATED_BY = fnd_global.USER_ID,
1546: LAST_UPDATE_DATE = SYSDATE,
1547: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1548: where ANALYSIS_CYCLE_ID = InstanceID and task_id = TaskID;
1549:
1543: Start_date = to_Date(charDate,'MM/DD/YYYY-HH24-MI-SS'),
1544: status_code = 'ACTIVE',
1545: LAST_UPDATED_BY = fnd_global.USER_ID,
1546: LAST_UPDATE_DATE = SYSDATE,
1547: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1548: where ANALYSIS_CYCLE_ID = InstanceID and task_id = TaskID;
1549:
1550: update zpb_ANALYSIS_CYCLES
1551: set status_code = 'ACTIVE',
1548: where ANALYSIS_CYCLE_ID = InstanceID and task_id = TaskID;
1549:
1550: update zpb_ANALYSIS_CYCLES
1551: set status_code = 'ACTIVE',
1552: LAST_UPDATED_BY = fnd_global.USER_ID,
1553: LAST_UPDATE_DATE = SYSDATE,
1554: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1555: where ANALYSIS_CYCLE_ID = InstanceID;
1556:
1550: update zpb_ANALYSIS_CYCLES
1551: set status_code = 'ACTIVE',
1552: LAST_UPDATED_BY = fnd_global.USER_ID,
1553: LAST_UPDATE_DATE = SYSDATE,
1554: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1555: where ANALYSIS_CYCLE_ID = InstanceID;
1556:
1557: update zpb_analysis_cycle_instances
1558: set last_update_date = sysdate,
1555: where ANALYSIS_CYCLE_ID = InstanceID;
1556:
1557: update zpb_analysis_cycle_instances
1558: set last_update_date = sysdate,
1559: LAST_UPDATED_BY = fnd_global.USER_ID,
1560: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1561: where instance_ac_id = INSTANCEID;
1562:
1563: -- Now that all is created and set START the PROCESS!
1556:
1557: update zpb_analysis_cycle_instances
1558: set last_update_date = sysdate,
1559: LAST_UPDATED_BY = fnd_global.USER_ID,
1560: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1561: where instance_ac_id = INSTANCEID;
1562:
1563: -- Now that all is created and set START the PROCESS!
1564: wf_engine.StartProcess(ItemType => InstItemType,
1693: InstanceID := v_instances.instance_ac_id;
1694:
1695: update zpb_ANALYSIS_CYCLES
1696: set status_code = 'MARKED_FOR_DELETION',
1697: LAST_UPDATED_BY = fnd_global.USER_ID,
1698: LAST_UPDATE_DATE = SYSDATE,
1699: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1700: where ANALYSIS_CYCLE_ID = InstanceID;
1701:
1695: update zpb_ANALYSIS_CYCLES
1696: set status_code = 'MARKED_FOR_DELETION',
1697: LAST_UPDATED_BY = fnd_global.USER_ID,
1698: LAST_UPDATE_DATE = SYSDATE,
1699: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1700: where ANALYSIS_CYCLE_ID = InstanceID;
1701:
1702: update zpb_analysis_cycle_instances
1703: set last_update_date = sysdate,
1700: where ANALYSIS_CYCLE_ID = InstanceID;
1701:
1702: update zpb_analysis_cycle_instances
1703: set last_update_date = sysdate,
1704: LAST_UPDATED_BY = fnd_global.USER_ID,
1705: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1706: where instance_ac_id = INSTANCEID;
1707:
1708: -- now delete any Data Collection templates
1701:
1702: update zpb_analysis_cycle_instances
1703: set last_update_date = sysdate,
1704: LAST_UPDATED_BY = fnd_global.USER_ID,
1705: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
1706: where instance_ac_id = INSTANCEID;
1707:
1708: -- now delete any Data Collection templates
1709: -- associated with this cycle
2620:
2621: -- agb 04/22/04 change from PAUSED to PAUSING.
2622: update ZPB_ANALYSIS_CYCLES
2623: set status_code = 'PAUSING',
2624: LAST_UPDATED_BY = fnd_global.USER_ID,
2625: LAST_UPDATE_DATE = SYSDATE,
2626: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2627: where ANALYSIS_CYCLE_ID = InstanceID;
2628: end if;
2622: update ZPB_ANALYSIS_CYCLES
2623: set status_code = 'PAUSING',
2624: LAST_UPDATED_BY = fnd_global.USER_ID,
2625: LAST_UPDATE_DATE = SYSDATE,
2626: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2627: where ANALYSIS_CYCLE_ID = InstanceID;
2628: end if;
2629:
2630: commit;
2738: CurrtaskSeq := 0;
2739: --
2740: update ZPB_ANALYSIS_CYCLE_TASKS
2741: set STATUS_CODE = null,
2742: LAST_UPDATED_BY = fnd_global.USER_ID,
2743: LAST_UPDATE_DATE = SYSDATE,
2744: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2745: where ANALYSIS_CYCLE_ID = InstanceID;
2746: end if;
2740: update ZPB_ANALYSIS_CYCLE_TASKS
2741: set STATUS_CODE = null,
2742: LAST_UPDATED_BY = fnd_global.USER_ID,
2743: LAST_UPDATE_DATE = SYSDATE,
2744: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2745: where ANALYSIS_CYCLE_ID = InstanceID;
2746: end if;
2747:
2748: -- 5867453 bkport of 5371156 new source for base parmameters ownerID from task table above.
2774: if workflowprocess = 'NONE' then
2775:
2776: update zpb_ANALYSIS_CYCLES
2777: set status_code = 'COMPLETE',
2778: LAST_UPDATED_BY = fnd_global.USER_ID,
2779: LAST_UPDATE_DATE = SYSDATE,
2780: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2781: where ANALYSIS_CYCLE_ID = INSTANCEID;
2782:
2776: update zpb_ANALYSIS_CYCLES
2777: set status_code = 'COMPLETE',
2778: LAST_UPDATED_BY = fnd_global.USER_ID,
2779: LAST_UPDATE_DATE = SYSDATE,
2780: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2781: where ANALYSIS_CYCLE_ID = INSTANCEID;
2782:
2783: update zpb_analysis_cycle_instances
2784: set last_update_date = sysdate,
2781: where ANALYSIS_CYCLE_ID = INSTANCEID;
2782:
2783: update zpb_analysis_cycle_instances
2784: set last_update_date = sysdate,
2785: LAST_UPDATED_BY = fnd_global.USER_ID,
2786: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2787: where instance_ac_id = INSTANCEID;
2788:
2789: -- Mark for delete
2782:
2783: update zpb_analysis_cycle_instances
2784: set last_update_date = sysdate,
2785: LAST_UPDATED_BY = fnd_global.USER_ID,
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);
2898: update zpb_analysis_cycle_tasks
2899: set item_KEY = newitemkey,
2900: Start_date = to_Date(charDate,'MM/DD/YYYY-HH24-MI-SS'),
2901: status_code = 'ACTIVE',
2902: LAST_UPDATED_BY = fnd_global.USER_ID,
2903: LAST_UPDATE_DATE = SYSDATE,
2904: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2905: where ANALYSIS_CYCLE_ID = INSTANCEID and task_id = TaskID;
2906:
2900: Start_date = to_Date(charDate,'MM/DD/YYYY-HH24-MI-SS'),
2901: status_code = 'ACTIVE',
2902: LAST_UPDATED_BY = fnd_global.USER_ID,
2903: LAST_UPDATE_DATE = SYSDATE,
2904: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2905: where ANALYSIS_CYCLE_ID = INSTANCEID and task_id = TaskID;
2906:
2907: update ZPB_ANALYSIS_CYCLES
2908: set status_code = InPrevStatusCode,
2905: where ANALYSIS_CYCLE_ID = INSTANCEID and task_id = TaskID;
2906:
2907: update ZPB_ANALYSIS_CYCLES
2908: set status_code = InPrevStatusCode,
2909: LAST_UPDATED_BY = fnd_global.USER_ID,
2910: LAST_UPDATE_DATE = SYSDATE,
2911: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2912: where ANALYSIS_CYCLE_ID = INSTANCEID;
2913:
2907: update ZPB_ANALYSIS_CYCLES
2908: set status_code = InPrevStatusCode,
2909: LAST_UPDATED_BY = fnd_global.USER_ID,
2910: LAST_UPDATE_DATE = SYSDATE,
2911: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2912: where ANALYSIS_CYCLE_ID = INSTANCEID;
2913:
2914: update zpb_analysis_cycle_instances
2915: set last_update_date = sysdate,
2912: where ANALYSIS_CYCLE_ID = INSTANCEID;
2913:
2914: update zpb_analysis_cycle_instances
2915: set last_update_date = sysdate,
2916: LAST_UPDATED_BY = fnd_global.USER_ID,
2917: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2918: where instance_ac_id = INSTANCEID;
2919:
2920:
2913:
2914: update zpb_analysis_cycle_instances
2915: set last_update_date = sysdate,
2916: LAST_UPDATED_BY = fnd_global.USER_ID,
2917: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
2918: where instance_ac_id = INSTANCEID;
2919:
2920:
2921:
3249: where ANALYSIS_CYCLE_ID = thisACID;
3250:
3251:
3252: if (NameList is not null) then
3253: NameList := NameList || fnd_global.newline || EventACName;
3254: else
3255: NameList := EventACName;
3256: end if;
3257:
3303: InSTATCode varchar2(30);
3304: CodeToUpdateTo varchar2(30);
3305: InstanceID number;
3306: l_REQID number;
3307: ownerID number := fnd_global.USER_ID;
3308: respID number := fnd_global.RESP_ID;
3309: respAppID number := fnd_global.RESP_APPL_ID;
3310: ItemType varchar2(8) := 'ZPBSCHED';
3311: ItemKey varchar2(240);
3304: CodeToUpdateTo varchar2(30);
3305: InstanceID number;
3306: l_REQID number;
3307: ownerID number := fnd_global.USER_ID;
3308: respID number := fnd_global.RESP_ID;
3309: respAppID number := fnd_global.RESP_APPL_ID;
3310: ItemType varchar2(8) := 'ZPBSCHED';
3311: ItemKey varchar2(240);
3312: freqType varchar2(30);
3305: InstanceID number;
3306: l_REQID number;
3307: ownerID number := fnd_global.USER_ID;
3308: respID number := fnd_global.RESP_ID;
3309: respAppID number := fnd_global.RESP_APPL_ID;
3310: ItemType varchar2(8) := 'ZPBSCHED';
3311: ItemKey varchar2(240);
3312: freqType varchar2(30);
3313: l_business_area_id number; -- abudnik 17NOV2005 BUSINESS AREA ID
3356:
3357: -- Set the BP Status to Enable
3358: update ZPB_ANALYSIS_CYCLES
3359: set STATUS_CODE = 'ENABLE_TASK',
3360: LAST_UPDATED_BY = fnd_global.USER_ID,
3361: LAST_UPDATE_DATE = SYSDATE,
3362: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3363: where ANALYSIS_CYCLE_ID = Pacid;
3364: commit;
3358: update ZPB_ANALYSIS_CYCLES
3359: set STATUS_CODE = 'ENABLE_TASK',
3360: LAST_UPDATED_BY = fnd_global.USER_ID,
3361: LAST_UPDATE_DATE = SYSDATE,
3362: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3363: where ANALYSIS_CYCLE_ID = Pacid;
3364: commit;
3365:
3366:
3431: -- always EPB
3432: respAppID := 210;
3433:
3434: -- Set the context before calling submit_request
3435: fnd_global.apps_initialize(ownerID, respID, RespAppId);
3436:
3437: for v_instance in c_instance loop
3438:
3439: InstanceID := v_instance.ANALYSIS_CYCLE_ID;
3661: ownerID number;
3662: ACID number;
3663: l_business_area_id number;
3664:
3665: respIDW number := fnd_global.RESP_ID;
3666: respAppID number := fnd_global.RESP_APPL_ID;
3667: ItemType varchar2(8) := 'ZPBSCHED';
3668: ItemKey varchar2(240);
3669:
3662: ACID number;
3663: l_business_area_id number;
3664:
3665: respIDW number := fnd_global.RESP_ID;
3666: respAppID number := fnd_global.RESP_APPL_ID;
3667: ItemType varchar2(8) := 'ZPBSCHED';
3668: ItemKey varchar2(240);
3669:
3670: -- get RespId and RespAppId from params set on the workflow sched for this BP
3722: if p_TaskID is NOT NULL then
3723:
3724: update zpb_analysis_cycle_tasks
3725: set status_code = p_type,
3726: LAST_UPDATED_BY = fnd_global.USER_ID,
3727: LAST_UPDATE_DATE = SYSDATE,
3728: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3729: where task_id = p_TaskID;
3730: else
3724: update zpb_analysis_cycle_tasks
3725: set status_code = p_type,
3726: LAST_UPDATED_BY = fnd_global.USER_ID,
3727: LAST_UPDATE_DATE = SYSDATE,
3728: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3729: where task_id = p_TaskID;
3730: else
3731:
3732: if p_instanceID is NULL then
3741: if p_instanceID is NOT NULL then
3742:
3743: update zpb_ANALYSIS_CYCLES
3744: set status_code = p_type,
3745: LAST_UPDATED_BY = fnd_global.USER_ID,
3746: LAST_UPDATE_DATE = SYSDATE,
3747: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3748: where ANALYSIS_CYCLE_ID = p_InstanceID;
3749:
3743: update zpb_ANALYSIS_CYCLES
3744: set status_code = p_type,
3745: LAST_UPDATED_BY = fnd_global.USER_ID,
3746: LAST_UPDATE_DATE = SYSDATE,
3747: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3748: where ANALYSIS_CYCLE_ID = p_InstanceID;
3749:
3750: update zpb_analysis_cycle_instances
3751: set last_update_date = sysdate,
3748: where ANALYSIS_CYCLE_ID = p_InstanceID;
3749:
3750: update zpb_analysis_cycle_instances
3751: set last_update_date = sysdate,
3752: LAST_UPDATED_BY = fnd_global.USER_ID,
3753: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3754: where instance_ac_id = p_InstanceID;
3755:
3756:
3749:
3750: update zpb_analysis_cycle_instances
3751: set last_update_date = sysdate,
3752: LAST_UPDATED_BY = fnd_global.USER_ID,
3753: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3754: where instance_ac_id = p_InstanceID;
3755:
3756:
3757: else
3762: where task_id = p_TaskID;
3763:
3764: update zpb_ANALYSIS_CYCLES
3765: set status_code = p_type,
3766: LAST_UPDATED_BY = fnd_global.USER_ID,
3767: LAST_UPDATE_DATE = SYSDATE,
3768: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3769: where ANALYSIS_CYCLE_ID = l_InstanceID;
3770:
3764: update zpb_ANALYSIS_CYCLES
3765: set status_code = p_type,
3766: LAST_UPDATED_BY = fnd_global.USER_ID,
3767: LAST_UPDATE_DATE = SYSDATE,
3768: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3769: where ANALYSIS_CYCLE_ID = l_InstanceID;
3770:
3771: update zpb_analysis_cycle_instances
3772: set last_update_date = sysdate,
3769: where ANALYSIS_CYCLE_ID = l_InstanceID;
3770:
3771: update zpb_analysis_cycle_instances
3772: set last_update_date = sysdate,
3773: LAST_UPDATED_BY = fnd_global.USER_ID,
3774: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3775: where instance_ac_id = l_InstanceID;
3776:
3777:
3770:
3771: update zpb_analysis_cycle_instances
3772: set last_update_date = sysdate,
3773: LAST_UPDATED_BY = fnd_global.USER_ID,
3774: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
3775: where instance_ac_id = l_InstanceID;
3776:
3777:
3778: end if;
3851:
3852: ZPB_AW_WRITE_BACK.SUBMIT_WRITEBACK_REQUEST
3853: (l_business_area_id,
3854: p_user,
3855: FND_GLOBAL.RESP_ID,
3856: FND_GLOBAL.SESSION_ID,
3857: 'SPL',
3858: 'CALL PA.ATTACH.PERSONAL('''||p_user||''' ''ro'');'||
3859: 'CALL DC.SUBMIT.DRIVER(''ACCEPT'' ''-100'' '''||p_user||''' '''||
3852: ZPB_AW_WRITE_BACK.SUBMIT_WRITEBACK_REQUEST
3853: (l_business_area_id,
3854: p_user,
3855: FND_GLOBAL.RESP_ID,
3856: FND_GLOBAL.SESSION_ID,
3857: 'SPL',
3858: 'CALL PA.ATTACH.PERSONAL('''||p_user||''' ''ro'');'||
3859: 'CALL DC.SUBMIT.DRIVER(''ACCEPT'' ''-100'' '''||p_user||''' '''||
3860: p_templateID||''')',
4115: sessionid number;
4116: DLcmd varchar2(100);
4117: P_OUTVAL number;
4118: l_REQID number;
4119: respID number := fnd_global.RESP_ID;
4120: ACStatusCode varchar2(30);
4121: respIDW number := fnd_global.RESP_ID;
4122: respAppID number := fnd_global.RESP_APPL_ID;
4123: ItemType varchar2(8) := 'ZPBSCHED';
4117: P_OUTVAL number;
4118: l_REQID number;
4119: respID number := fnd_global.RESP_ID;
4120: ACStatusCode varchar2(30);
4121: respIDW number := fnd_global.RESP_ID;
4122: respAppID number := fnd_global.RESP_APPL_ID;
4123: ItemType varchar2(8) := 'ZPBSCHED';
4124: ItemKey varchar2(240);
4125: l_business_area_id number;
4118: l_REQID number;
4119: respID number := fnd_global.RESP_ID;
4120: ACStatusCode varchar2(30);
4121: respIDW number := fnd_global.RESP_ID;
4122: respAppID number := fnd_global.RESP_APPL_ID;
4123: ItemType varchar2(8) := 'ZPBSCHED';
4124: ItemKey varchar2(240);
4125: l_business_area_id number;
4126:
4264: end if;
4265:
4266:
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:
4528: if workflowprocess = 'NONE' then
4529:
4530: update zpb_ANALYSIS_CYCLES
4531: set status_code = 'ERROR',
4532: LAST_UPDATED_BY = fnd_global.USER_ID,
4533: LAST_UPDATE_DATE = SYSDATE,
4534: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
4535: where ANALYSIS_CYCLE_ID = p_InstanceID;
4536:
4530: update zpb_ANALYSIS_CYCLES
4531: set status_code = 'ERROR',
4532: LAST_UPDATED_BY = fnd_global.USER_ID,
4533: LAST_UPDATE_DATE = SYSDATE,
4534: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
4535: where ANALYSIS_CYCLE_ID = p_InstanceID;
4536:
4537: update zpb_analysis_cycle_instances
4538: set last_update_date = sysdate,
4535: where ANALYSIS_CYCLE_ID = p_InstanceID;
4536:
4537: update zpb_analysis_cycle_instances
4538: set last_update_date = sysdate,
4539: LAST_UPDATED_BY = fnd_global.USER_ID,
4540: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
4541: where instance_ac_id = p_InstanceID;
4542:
4543: -- Mark for delete
4536:
4537: update zpb_analysis_cycle_instances
4538: set last_update_date = sysdate,
4539: LAST_UPDATED_BY = fnd_global.USER_ID,
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);
4648: update zpb_analysis_cycle_tasks
4649: set item_KEY = newitemkey,
4650: Start_date = to_Date(charDate,'MM/DD/YYYY-HH24-MI-SS'),
4651: status_code = 'ACTIVE',
4652: LAST_UPDATED_BY = fnd_global.USER_ID,
4653: LAST_UPDATE_DATE = SYSDATE,
4654: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
4655: where ANALYSIS_CYCLE_ID = p_InstanceID and task_id = TaskID;
4656:
4650: Start_date = to_Date(charDate,'MM/DD/YYYY-HH24-MI-SS'),
4651: status_code = 'ACTIVE',
4652: LAST_UPDATED_BY = fnd_global.USER_ID,
4653: LAST_UPDATE_DATE = SYSDATE,
4654: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
4655: where ANALYSIS_CYCLE_ID = p_InstanceID and task_id = TaskID;
4656:
4657: update ZPB_ANALYSIS_CYCLES
4658: set status_code = InPrevStatusCode,
4655: where ANALYSIS_CYCLE_ID = p_InstanceID and task_id = TaskID;
4656:
4657: update ZPB_ANALYSIS_CYCLES
4658: set status_code = InPrevStatusCode,
4659: LAST_UPDATED_BY = fnd_global.USER_ID,
4660: LAST_UPDATE_DATE = SYSDATE,
4661: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
4662: where ANALYSIS_CYCLE_ID = p_InstanceID;
4663:
4657: update ZPB_ANALYSIS_CYCLES
4658: set status_code = InPrevStatusCode,
4659: LAST_UPDATED_BY = fnd_global.USER_ID,
4660: LAST_UPDATE_DATE = SYSDATE,
4661: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
4662: where ANALYSIS_CYCLE_ID = p_InstanceID;
4663:
4664: update zpb_analysis_cycle_instances
4665: set last_update_date = sysdate,
4662: where ANALYSIS_CYCLE_ID = p_InstanceID;
4663:
4664: update zpb_analysis_cycle_instances
4665: set last_update_date = sysdate,
4666: LAST_UPDATED_BY = fnd_global.USER_ID,
4667: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
4668: where instance_ac_id = p_InstanceID;
4669:
4670:
4663:
4664: update zpb_analysis_cycle_instances
4665: set last_update_date = sysdate,
4666: LAST_UPDATED_BY = fnd_global.USER_ID,
4667: LAST_UPDATE_LOGIN = fnd_global.LOGIN_ID
4668: where instance_ac_id = p_InstanceID;
4669:
4670:
4671: -- DBMS_OUTPUT.PUT_LINE('The Business Process Run has been started.');