PACKAGE BODY: APPS.WMS_OPM_INTEGRATION_GRP

Source

1 PACKAGE BODY WMS_OPM_INTEGRATION_GRP AS
2 /* $Header: WMSOPMB.pls 120.4 2005/10/07 05:35:57 simran noship $ */
3 
4    --
5    --
6    PROCEDURE LOG (p_device_id IN NUMBER, p_data IN VARCHAR2);
7 
8    PROCEDURE PROCESS_RESPONSE
9                    (p_device_id           IN  NUMBER,
10                     p_request_id          IN  NUMBER,
11                     p_param_values_record IN  WMS_WCS_DEVICE_GRP.MSG_COMPONENT_LOOKUP_TYPE,
12                     x_return_status       OUT NOCOPY VARCHAR2,
13                     x_msg_count           OUT NOCOPY NUMBER,
14                     x_msg_data            OUT NOCOPY VARCHAR2)
15    IS
16       l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
17       l_api_version NUMBER := 1;
18    BEGIN
19       x_return_status := FND_API.G_RET_STS_ERROR;
20 
21       IF l_debug >= 1 THEN
22          LOG (p_device_id, 'Reached WMS_OPM_INTEGRATION_GRP.PROCESS_RESPONSE for p_request_id='
23               ||p_request_id);
24       END IF;
25 
26       --This is the OPM Open API to be called
27       --GMO does not have a source control area yet
28       --Will uncomment the API call once they are done
29       GMO_WMS_INTEGRATION_GRP.PROCESS_DEVICE_RESPONSE
30          (P_API_VERSION         => l_api_version,
31           X_RETURN_STATUS       => x_return_status,
32           X_MSG_COUNT           => x_msg_count,
33           X_MSG_DATA            => x_msg_data,
34           P_REQUEST_ID          => p_request_id,
35           P_DEVICE_ID           => p_device_id,
36           P_PARAM_VALUES_RECORD => p_param_values_record
37          );
38 
39       IF (l_debug = 1) THEN
40          log
41          (p_device_id,   'Done calling GMO_WMS_INTEGRATION_GRP.process_response');
42          log
43          (p_device_id,   'x_return_status='
44           ||x_return_status
45           ||', x_msg_count='
46           ||x_msg_count
47           ||', x_msg_data='
48           ||x_msg_data);
49       END IF;
50    EXCEPTION
51       WHEN OTHERS THEN
52          x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
53          IF (l_debug = 1) THEN
54             log
55             (p_device_id,   'Unexpected error in WMS_OPM_INTEGRATION_GRP.PROCESS_RESPONSE : '||SQLERRM);
56          END IF;
57    END PROCESS_RESPONSE;
58 
59    --
60    --
61    PROCEDURE LOG (p_device_id in number, p_data IN VARCHAR2)
62    IS
63       cnt   NUMBER;
64       --PRAGMA AUTONOMOUS_TRANSACTION;
65    BEGIN
66       wms_carousel_integration_pvt.LOG(p_device_id,p_data);
67       /*
68       Commented out for Bug# 4624894
69 
70       INSERT INTO wms_carousel_log
71                   (CAROUSEL_LOG_ID
72                    ,text
73                    ,device_id
74                    ,LAST_UPDATE_DATE
75                    ,LAST_UPDATED_BY
76                    ,CREATION_DATE
77                    ,CREATED_BY
78                    ,LAST_UPDATE_LOGIN
79                   )
80            VALUES (wms_carousel_log_s.NEXTVAL
81                    ,p_data
82                    ,p_device_id
83                    ,SYSDATE
84                    ,fnd_global.user_id
85                    ,SYSDATE
86                    ,fnd_global.user_id
87                    ,fnd_global.login_id
88                   );
89 
90       COMMIT;
91       */
92    END LOG;
93 
94 END WMS_OPM_INTEGRATION_GRP;
95