The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_XDP_ORDER_STATUS(p_status IN VARCHAR2,
p_order_id IN NUMBER) IS
x_progress VARCHAR2(2000);
UPDATE xdp_order_headers
SET status_code = p_status ,
completion_date = sysdate ,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE order_id = p_order_id ;
UPDATE xdp_order_headers
SET status_code = p_status ,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE order_id = p_order_id ;
END UPDATE_XDP_ORDER_STATUS;
PROCEDURE UPDATE_XDP_ORDER_LINE_STATUS(p_status IN VARCHAR2,
p_line_item_id IN NUMBER)IS
x_progress VARCHAR2(2000);
UPDATE xdp_order_line_items
SET status_code = p_status ,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE line_item_id = p_line_item_id ;
UPDATE xdp_order_line_items
SET status_code = p_status ,
completion_date = sysdate ,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE line_item_id = p_line_item_id ;
END UPDATE_XDP_ORDER_LINE_STATUS;
PROCEDURE UPDATE_XDP_WORKITEM_STATUS(p_status IN VARCHAR2,
p_workitem_instance_id IN NUMBER)IS
x_progress VARCHAR2(2000);
UPDATE xdp_fulfill_worklist
SET status_code = p_status ,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE workitem_instance_id = p_workitem_instance_id ;
UPDATE xdp_fulfill_worklist
SET status_code = p_status ,
completion_date = sysdate ,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE workitem_instance_id = p_workitem_instance_id ;
END UPDATE_XDP_WORKITEM_STATUS;
PROCEDURE UPDATE_XDP_FA_STATUS(p_status IN VARCHAR2,
p_fa_instance_id IN NUMBER)IS
x_progress VARCHAR2(2000);
UPDATE xdp_fa_runtime_list
SET status_code = p_status ,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE fa_instance_id = p_fa_instance_id ;
UPDATE xdp_fa_runtime_list
SET status_code = p_status ,
completion_date = sysdate ,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE fa_instance_id = p_fa_instance_id ;
END UPDATE_XDP_FA_STATUS;
Update_XDP_Order_Status('IN_PROGRESS',p_Order_ID);
(SELECT line_item_id FROM xdp_order_line_items
WHERE order_id=p_order_id ORDER BY line_sequence)
LOOP
Execute_LineItem_Sync(
p_order_id => p_order_id,
p_lineitem_id => c_lineitem.line_item_id,
x_return_code => x_return_code,
x_error_description =>x_error_description);
SELECT 'N' INTO l_done
FROM dual
WHERE EXISTS( SELECT 'x' FROM
xdp_order_line_items
WHERE order_id = p_order_id AND
status_code = 'ERROR');
Update_XDP_Order_Status('SUCCESS',p_Order_ID);
Update_XDP_Order_Status('ERROR',p_Order_ID);
Update_XDP_Order_Status( 'ERROR',p_Order_ID);
Update_XDP_Order_Status( 'ERROR',p_Order_ID);
UPDATE_XDP_ORDER_LINE_STATUS('IN PROGRESS',p_lineItem_id);
(SELECT workitem_instance_id FROM xdp_fulfill_worklist
WHERE line_item_id=p_lineItem_id order by wi_sequence)
LOOP
Execute_Workitem_Sync(
p_order_id => p_order_id,
p_lineitem_id =>p_lineitem_id,
p_workitem_instance_id => c_workitem_instance.workitem_instance_id,
x_return_code => x_return_code,
x_error_description =>x_error_description);
SELECT 'N' INTO lv_done FROM dual
WHERE EXISTS( SELECT 'x' FROM
XDP_FULFILL_WORKLIST
WHERE line_item_id = p_lineItem_id AND
status_code = 'ERROR');
UPDATE_XDP_ORDER_LINE_STATUS('SUCCESS',p_lineItem_id);
UPDATE_XDP_ORDER_LINE_STATUS('ERROR',p_lineItem_id);
XDP_INSTALL_BASE.UPDATE_IB(p_order_id,p_lineItem_id,lv_ib_error_code,lv_ib_err_desc);
UPDATE_XDP_ORDER_LINE_STATUS('ERROR',p_lineItem_id);
UPDATE_XDP_ORDER_LINE_STATUS('ERROR',p_lineItem_id);
SELECT
wfg.fulfillment_action_id,
wfg.provisioning_seq
FROM
xdp_wi_fa_mapping wfg,
XDP_FULFILL_WORKLIST fwt
WHERE
fwt.workitem_id = wfg.workitem_id and
fwt.workitem_instance_id = p_workitem_instance_id
ORDER BY wfg.provisioning_seq;
SELECT fa_instance_id
FROM xdp_fa_runtime_list
WHERE
workitem_instance_id = p_workitem_instance_id
ORDER BY provisioning_sequence;
UPDATE_XDP_WORKITEM_STATUS('IN PROGRESS',p_workitem_instance_id);
SELECT
wim.wi_type_code,
wim.fa_exec_map_proc,
wim.workitem_name,
wim.workitem_id,
wim.user_wf_item_type,
wim.user_wf_item_key_prefix,
wim.user_wf_process_name,
wim.wf_exec_proc
INTO
lv_type,
lv_proc,
lv_wi,
lv_workitem_id,
lv_user_item_type,
lv_user_item_key_prefix,
lv_user_wf_process,
lv_user_wi_proc
FROM
xdp_workitems wim,
xdp_fulfill_worklist fwt
WHERE
wim.workitem_id = fwt.workitem_id AND
fwt.workitem_instance_id = p_workitem_instance_id;
UPDATE XDP_FULFILL_WORKLIST
SET WF_ITEM_TYPE = lv_user_item_type,
WF_ITEM_KEY = lv_user_item_key,
LAST_UPDATE_DATE = SYSDATE, LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
WHERE WORKITEM_INSTANCE_ID = p_workitem_instance_id;
GOTO UpdateStatus;
update XDP_FULFILL_WORKLIST
set WF_ITEM_TYPE = lv_user_item_type,
WF_ITEM_KEY = lv_user_item_key,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
where
WORKITEM_INSTANCE_ID = p_workitem_instance_id;
GOTO UpdateStatus;
<>
IF (XDPSTATUS.IS_WI_IN_ERROR(p_workitem_instance_id)) THEN
x_return_code := 0;
UPDATE_XDP_WORKITEM_STATUS(l_status_code,p_workitem_instance_id);
UPDATE_XDP_WORKITEM_STATUS('ERROR',p_workitem_instance_id);
UPDATE_XDP_WORKITEM_STATUS('ERROR',p_workitem_instance_id);
SELECT channel_name,adapter_status
FROM XDP_ADAPTER_REG
WHERE adapter_status = 'IDLE' AND
usage_code = 'TEST' AND
fe_id = l_fe_id;
UPDATE_XDP_FA_STATUS('IN PROGRESS',p_fa_instance_id);
SELECT
fe_routing_proc,
frt.workitem_instance_id,
fwt.order_id,
frt.fulfillment_action_id,
fwt.line_item_id
INTO
lv_proc,
lv_wi_instance_id,
lv_order_id,
lv_fa_id,
lv_line_item_id
FROM XDP_FULFILL_ACTIONS fan,
xdp_fa_runtime_list frt,
XDP_FULFILL_WORKLIST fwt
WHERE
fan.fulfillment_action_id = frt.fulfillment_action_id and
fwt.workitem_instance_id = frt.workitem_instance_id and
frt.fa_instance_id = p_fa_instance_id;
SELECT fulfillment_proc
INTO
lv_proc
FROM xdp_fa_fulfillment_proc ffp,
xdp_fe_sw_gen_lookup fsp
WHERE
ffp.fulfillment_action_id = lv_fa_id AND
ffp.fe_sw_gen_lookup_id = fsp.fe_sw_gen_lookup_id AND
fsp.fetype_id = lv_fetype_id AND
fsp.sw_generic = lv_sw_generic AND
fsp.adapter_type = lv_adapter;
UPDATE_XDP_FA_STATUS('SUCCESS',p_fa_instance_id);
UPDATE_XDP_FA_STATUS('ERROR',p_fa_instance_id);
UPDATE_XDP_FA_STATUS('ERROR',p_fa_instance_id);