The following lines contain the word 'select', 'insert', 'update' or 'delete':
ACTION_INSERT_RESPONSE CONSTANT VARCHAR2(30) := 'INSERT_RESPONSE';
ACTION_UPDATE_RESPONSE CONSTANT VARCHAR2(30) := 'UPDATE_RESPONSE';
ACTION_INSERT_REQUEST CONSTANT VARCHAR2(30) := 'INSERT_REQUEST';
ACTION_UPDATE_DEVICE_STATUS CONSTANT VARCHAR2(30) := 'UPDATE_DEVICE_STATUS';
ACTION_UPDATE_DEVICE_RESPONSE CONSTANT VARCHAR2(30) := 'UPDATE_DEVICE_RESPONSE';
cursor c_get_device_details is select name from wms_devices_vl where device_id = P_DEVICE_ID;
DELETE FROM GMO_DEVICE_RESPONSES_T WHERE REQUEST_ID IN
(SELECT REQUEST_ID FROM GMO_DEVICE_REQUESTS_T
WHERE CREATION_DATE < l_cleanup_to_date );
DELETE FROM GMO_DEVICE_REQUESTS_T WHERE CREATION_DATE < l_cleanup_to_date;
IF (P_ACTION = ACTION_INSERT_RESPONSE) then
insert into gmo_device_responses_t
(
RESPONSE_ID,
REQUEST_ID,
RESP_COMP_CODE,
RESP_COMP_CODE_VALUE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE
) values(
GMO_DEVICE_RESPONSES_T_S.nextval,
P_REQUEST_ID,
P_RESP_COMP_CODE,
P_RESP_COMP_CODE_VALUE,
FND_GLOBAL.USER_ID,
sysdate,
FND_GLOBAL.USER_ID,
FND_GLOBAL.LOGIN_ID,
sysdate
);
ELSIF (P_ACTION = ACTION_UPDATE_RESPONSE) then
update gmo_device_responses_t set
RESP_COMP_CODE_VALUE = P_RESP_COMP_CODE_VALUE,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
LAST_UPDATE_DATE = sysdate
where REQUEST_ID = P_REQUEST_ID
and RESP_COMP_CODE = P_RESP_COMP_CODE;
IF (P_ACTION = ACTION_INSERT_REQUEST) then
INSERT INTO GMO_DEVICE_REQUESTS_T (REQUEST_ID, DEVICE_ID, REQUESTER, RESPONSE_STATUS, DEVICE_STATUS, REQUEST_DATE, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_LOGIN, LAST_UPDATE_DATE)
VALUES (P_REQUEST_ID, P_DEVICE_ID, P_REQUESTER, '', P_DEVICE_STATUS, SYSDATE, FND_GLOBAL.USER_ID, SYSDATE, FND_GLOBAL.USER_ID, FND_GLOBAL.LOGIN_ID, SYSDATE);
ELSIF (P_ACTION = ACTION_UPDATE_DEVICE_STATUS) then
UPDATE GMO_DEVICE_REQUESTS_T SET
DEVICE_STATUS = P_DEVICE_STATUS,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID
WHERE REQUEST_ID = P_REQUEST_ID AND DEVICE_ID = P_DEVICE_ID;
ELSIF (P_ACTION = ACTION_UPDATE_DEVICE_RESPONSE) then
-- update process_device_response
UPDATE GMO_DEVICE_REQUESTS_T SET
RESPONSE_STATUS = FND_API.G_RET_STS_SUCCESS,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID
WHERE REQUEST_ID = P_REQUEST_ID AND DEVICE_ID = P_DEVICE_ID;
cursor c_get_msg_component is select RESP_COMP_CODE_VALUE, RESP_COMP_CODE_UOM from gmp_resource_device_messages where resource_id = P_RESOURCE_ID and device_id = P_DEVICE_ID and process_param_id = L_PARAM_ID AND EVENT_ID = P_EVENT_ID;
cursor c_get_parameter_details is select parameter_name from gmp_process_parameters where parameter_id = l_param_id;
cursor c_get_org_details is select organization_code from mtl_parameters where organization_id = P_ORGANIZATION_ID;
cursor c_get_device_details is select output_method, output_method_id, name, subinventory_code from wms_devices_vl where device_id = P_DEVICE_ID;
cursor c_get_device_response is select RESP_COMP_CODE_VALUE from gmo_device_responses_t where request_id = l_request_id and RESP_COMP_CODE = l_response_code;
select sysdate into l_request_start_date from dual;
POST_REQUEST (P_ACTION => ACTION_INSERT_REQUEST, P_REQUEST_ID => l_request_id, P_DEVICE_ID => P_DEVICE_ID , P_REQUESTER => P_REQUESTER , P_DEVICE_STATUS => '');
POST_RESPONSE (P_ACTION => ACTION_INSERT_RESPONSE, P_REQUEST_ID => l_request_id, P_RESP_COMP_CODE => P_MSG_COMPONENT(I), P_RESP_COMP_CODE_VALUE => '');
POST_REQUEST (P_ACTION => ACTION_UPDATE_DEVICE_STATUS, P_REQUEST_ID => l_request_id, P_DEVICE_ID => P_DEVICE_ID , P_REQUESTER => P_REQUESTER , P_DEVICE_STATUS => l_return_status);
select sysdate into l_request_current_date from dual;
select RESPONSE_STATUS into l_response_status from gmo_device_requests_t where request_id = l_request_id;
select count(*) into l_count from GMO_DEVICE_REQUESTS_T WHERE REQUEST_ID = P_REQUEST_ID AND DEVICE_ID = P_DEVICE_ID;
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'1' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.ORGANIZATION);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'2' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.ORDER_NUMBER);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'3' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.ITEM);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'4' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.BUSINESS_EVENT);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'10' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.LPN);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'11' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.LOT);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'12' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.UOM);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'13' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.CYCLE_COUNT_ID);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'14' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.QUANTITY);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'15' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.REQUESTED_QUANTITY);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'16' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.WEIGHT);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'17' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.WEIGHT_UOM_CODE);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'18' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.VOLUME);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'19' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.VOLUME_UOM_CODE);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'20' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.LENGTH);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'21' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.WIDTH);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'22' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.HEIGHT);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'23' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DIMENSIONAL_WEIGHT);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'24' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DIMENSIONAL_WEIGHT_FACTOR);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'25' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.NET_WEIGHT);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'26' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.RECEIVED_REQUEST_DATE_AND_TIME);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'27' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.MEASUREMENT_DATE_AND_TIME);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'28' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.RESPONSE_DATE_AND_TIME);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'29' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.TEMPERATURE);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'30' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.TEMPERATURE_UOM);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'31' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.REASON_ID);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'32' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.REASON_TYPE);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'33' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.SENSOR_MEASUREMENT_TYPE);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'34' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.VALUE);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'35' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.QUALITY);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'36' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.OPC_VARIANT_CODE);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'37' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.EPC);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'38' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.UNUSED);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'39' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.BATCH);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'40' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_COMPONENT_1);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'41' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_COMPONENT_2);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'42' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_COMPONENT_3);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'43' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_COMPONENT_4);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'44' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_COMPONENT_5);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'45' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_COMPONENT_6);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'46' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_COMPONENT_7);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'47' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_COMPONENT_8);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'48' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_COMPONENT_9);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'49' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_COMPONENT_10);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'50' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.RELATION_ID);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'51' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.TASK_ID);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'52' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.TASK_SUMMARY);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'53' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.ORGANIZATION_ID);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'54' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.INVENTORY_ITEM_ID);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'55' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DEVICE_STATUS);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'56' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.TRANSFER_LPN_ID);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'57' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DESTINATION_SUBINVENTORY);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'58' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.DESTINATION_LOCATOR_ID);
POST_RESPONSE (P_ACTION => ACTION_UPDATE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_RESP_COMP_CODE =>'59' , P_RESP_COMP_CODE_VALUE => P_PARAM_VALUES_RECORD.SOURCE_LOCATOR_ID);
-- update process_device_response
POST_REQUEST (P_ACTION => ACTION_UPDATE_DEVICE_RESPONSE, P_REQUEST_ID => P_REQUEST_ID, P_DEVICE_ID => P_DEVICE_ID , P_REQUESTER => FND_GLOBAL.USER_ID , P_DEVICE_STATUS => '');