[Home] [Help]
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