[Home] [Help]
1: package body BIS_COLL_RS_HISTORY AS
2: /*$Header: BISRSHTB.pls 120.4 2006/05/18 12:29:15 aguwalan noship $*/
3:
4: g_current_user_id NUMBER := FND_GLOBAL.User_id;
5: g_error_status VARCHAR2(80) := get_lookup_meaning('BIS_REQUEST_SET_STATUS','ERROR_COMPL');
6: g_completion_status VARCHAR2(80) := get_lookup_meaning('BIS_REQUEST_SET_STATUS','NORMAL_COMPL');
7: g_warning_status VARCHAR2(80) := get_lookup_meaning('BIS_REQUEST_SET_STATUS','WARNING_COMPL');
8:
152:
153: if l_root_request_id is null then
154: --Program is running as the part of the request set
155:
156: l_root_request_id := FND_GLOBAL.CONC_PRIORITY_REQUEST;
157: is_prog_part_of_rs := true;
158: --get request set details
159: if(get_req_set_details(p_request_set_id => l_req_set_id,
160: p_request_set_appl_id => l_req_app_id,
337: -- Get data for the History program (current program)
338: -- and update its stage and program completion date and status.
339: -- run following only if the program is running as the part of the request set
340: if(is_prog_part_of_rs) then
341: OPEN c_get_stage(FND_GLOBAL.conc_request_id);
342: FETCH c_get_stage into l_rs_history_stage;
343: CLOSE c_get_stage;
344:
345: if((BIS_RS_PROG_RUN_HISTORY_PKG.Update_Row( p_Set_request_id => l_root_request_id
343: CLOSE c_get_stage;
344:
345: if((BIS_RS_PROG_RUN_HISTORY_PKG.Update_Row( p_Set_request_id => l_root_request_id
346: , p_Stage_request_id => l_rs_history_stage
347: , p_Request_id => FND_GLOBAL.conc_request_id
348: , p_Status_code => 'C'
349: , p_Phase_code => 'C'
350: , p_Completion_date => sysdate
351: , p_Last_update_date => sysdate