[Home] [Help]
375: PROCEDURE Register_Process_Execution
376: (x_completion_code OUT NOCOPY NUMBER) IS
377: -- =======================================================================
378: -- Purpose
379: -- Registers the concurrent request in FEM_PL_REQUESTS, registers
380: -- the object execution in FEM_PL_OBJECT_EXECUTIION, obtaining an
381: -- FEM "execution lock, and performs other FEM process initialization
382: -- steps.
383: -- History
419: 'register_process_execution.begin',
420: p_msg_text => 'BEGIN');
421:
422: -- Call the FEM_PL_PKG.Register_Request API procedure to register
423: -- the concurrent request in FEM_PL_REQUESTS.
424:
425: FND_MSG_PUB.Initialize;
426:
427: FEM_PL_PKG.Register_Request
1582: 'undo_xgl_int_error_rows.begin',
1583: p_msg_text => 'BEGIN');
1584:
1585: -- -------------------------------------------------------------------
1586: -- Using p_request_id, from FEM_PL_REQUESTS look up CAL_PERIOD_ID,
1587: -- LEDGER_ID, and OUTPUT_DATASET_CODE.
1588: -- -------------------------------------------------------------------
1589:
1590: BEGIN
1590: BEGIN
1591:
1592: SELECT ledger_id, cal_period_id, output_dataset_code
1593: INTO pv_ledger_id, pv_cal_period_id, pv_dataset_code
1594: FROM fem_pl_requests
1595: WHERE request_id = p_request_id;
1596:
1597: FEM_ENGINES_PKG.Tech_Message
1598: (p_severity => pc_log_level_statement,
2965: IF pv_ds_balance_type_cd = 'ACTUAL' THEN
2966:
2967: SELECT MAX(r.output_dataset_code)
2968: INTO pv_precedent_dataset_code
2969: FROM fem_pl_requests r,
2970: fem_pl_object_executions x,
2971: fem_object_catalog_b o
2972: WHERE r.ledger_id = pv_ledger_id
2973: AND r.cal_period_id = pv_cal_period_id
2992: ELSIF pv_ds_balance_type_cd = 'BUDGET' THEN
2993:
2994: SELECT MAX(r.output_dataset_code)
2995: INTO pv_precedent_dataset_code
2996: FROM fem_pl_requests r,
2997: fem_pl_object_executions x,
2998: fem_object_catalog_b o
2999: WHERE r.ledger_id = pv_ledger_id
3000: AND r.cal_period_id = pv_cal_period_id
3019: ELSIF pv_ds_balance_type_cd = 'ENCUMBRANCE' THEN
3020:
3021: SELECT MAX(r.output_dataset_code)
3022: INTO pv_precedent_dataset_code
3023: FROM fem_pl_requests r,
3024: fem_pl_object_executions x,
3025: fem_object_catalog_b o
3026: WHERE r.ledger_id = pv_ledger_id
3027: AND r.cal_period_id = pv_cal_period_id
6012: FROM FEM_INTG_EXEC_PARAMS_GT
6013: WHERE ERROR_CODE IS NULL;
6014:
6015: -- Bug fix 4285337: Get the end date for each period in order to populate
6016: -- it in FEM_PL_REQUESTS.EFFECTIVE_DATE
6017: CURSOR cp_cur (p_dataset_code IN VARCHAR2) IS
6018: SELECT gt.CAL_PERIOD_ID
6019: , gt.LOAD_METHOD_CODE
6020: , gt.PERIOD_NAME
6034: FROM FEM_INTG_EXEC_PARAMS_GT
6035: WHERE ERROR_CODE IS NULL
6036: AND REQUEST_ID IS NOT NULL;
6037:
6038: v_first_load_cal_per_id fem_pl_requests.cal_period_id%TYPE;
6039: v_last_load_cal_per_id fem_pl_requests.cal_period_id%TYPE;
6040: v_cal_per_name fem_cal_periods_tl.cal_period_name%TYPE;
6041: v_cal_per_num fem_cal_periods_attr.number_assign_value%TYPE;
6042: v_cal_per_year fem_cal_periods_attr.number_assign_value%TYPE;
6035: WHERE ERROR_CODE IS NULL
6036: AND REQUEST_ID IS NOT NULL;
6037:
6038: v_first_load_cal_per_id fem_pl_requests.cal_period_id%TYPE;
6039: v_last_load_cal_per_id fem_pl_requests.cal_period_id%TYPE;
6040: v_cal_per_name fem_cal_periods_tl.cal_period_name%TYPE;
6041: v_cal_per_num fem_cal_periods_attr.number_assign_value%TYPE;
6042: v_cal_per_year fem_cal_periods_attr.number_assign_value%TYPE;
6043: v_first_load_eff_per_num gl_period_statuses.effective_period_num%TYPE;
6536: -- Dataset, so we need to check if any balances have been loaded
6537: -- for this Ledger/Output Dataset/Cal Period
6538: BEGIN
6539: -- Bug fix 4170124: Changed to check FEM_DL_DIMENSIONS instead
6540: -- of FEM_PL_REQUESTS
6541: SELECT 'Y'
6542: INTO v_dummy_flag
6543: FROM DUAL
6544: WHERE EXISTS
6589: p_value2 => TO_CHAR(v_req_id));
6590:
6591: -- Initialize the FND Message API
6592: FND_MSG_PUB.Initialize;
6593: -- Register the concurrent request in FEM_PL_REQUESTS
6594: -- Bug fix 4285337: Pass the end date of each period when
6595: -- registering the request
6596: FEM_PL_PKG.Register_Request
6597: (P_API_VERSION => pc_API_version,