4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'GMO_DVC_INTG_GRP';
5:
6: --This procedure reads the device.
7: procedure READ_DEVICE (P_API_VERSION IN NUMBER,
8: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
9: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
10: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
11: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
12: X_MSG_COUNT OUT NOCOPY NUMBER,
5:
6: --This procedure reads the device.
7: procedure READ_DEVICE (P_API_VERSION IN NUMBER,
8: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
9: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
10: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
11: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
12: X_MSG_COUNT OUT NOCOPY NUMBER,
13: X_MSG_DATA OUT NOCOPY VARCHAR2,
6: --This procedure reads the device.
7: procedure READ_DEVICE (P_API_VERSION IN NUMBER,
8: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
9: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
10: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
11: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
12: X_MSG_COUNT OUT NOCOPY NUMBER,
13: X_MSG_DATA OUT NOCOPY VARCHAR2,
14: P_RESOURCE_ID IN NUMBER,
33: -- Standard Start of API savepoint
34: SAVEPOINT READ_DEVICE_GRP;
35:
36: -- Standard call to check for call compatibility.
37: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: END IF;
40:
41: -- Initialize message list if p_init_msg_list is set to TRUE.
34: SAVEPOINT READ_DEVICE_GRP;
35:
36: -- Standard call to check for call compatibility.
37: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: END IF;
40:
41: -- Initialize message list if p_init_msg_list is set to TRUE.
42: IF FND_API.to_Boolean( p_init_msg_list ) THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
39: END IF;
40:
41: -- Initialize message list if p_init_msg_list is set to TRUE.
42: IF FND_API.to_Boolean( p_init_msg_list ) THEN
43: FND_MSG_PUB.initialize;
44: END IF;
45:
46: -- Initialize API return status to success
43: FND_MSG_PUB.initialize;
44: END IF;
45:
46: -- Initialize API return status to success
47: x_return_status := FND_API.G_RET_STS_SUCCESS;
48:
49: GMO_DVC_INTG_PVT.READ_DEVICE (
50: P_RESOURCE_ID => P_RESOURCE_ID,
51: P_DEVICE_ID => P_DEVICE_ID,
62: X_MSG_COUNT => X_MSG_COUNT,
63: X_MSG_DATA => X_MSG_DATA
64: );
65:
66: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
67: IF FND_API.To_Boolean( p_commit ) THEN
68: COMMIT ;
69: END IF;
70: ELSE
63: X_MSG_DATA => X_MSG_DATA
64: );
65:
66: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
67: IF FND_API.To_Boolean( p_commit ) THEN
68: COMMIT ;
69: END IF;
70: ELSE
71: RAISE FND_API.G_EXC_ERROR;
67: IF FND_API.To_Boolean( p_commit ) THEN
68: COMMIT ;
69: END IF;
70: ELSE
71: RAISE FND_API.G_EXC_ERROR;
72: END IF;
73:
74: -- Standard call to get message count and if count is 1, get message info.
75: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
74: -- Standard call to get message count and if count is 1, get message info.
75: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
76:
77: EXCEPTION
78: WHEN FND_API.G_EXC_ERROR THEN
79: ROLLBACK TO READ_DEVICE_GRP;
80: x_return_status := FND_API.G_RET_STS_ERROR;
81: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
82: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
76:
77: EXCEPTION
78: WHEN FND_API.G_EXC_ERROR THEN
79: ROLLBACK TO READ_DEVICE_GRP;
80: x_return_status := FND_API.G_RET_STS_ERROR;
81: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
82: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
83: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_dvc_intg_grp.read_device', FALSE);
84: end if;
81: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
82: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
83: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_dvc_intg_grp.read_device', FALSE);
84: end if;
85: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
86: ROLLBACK TO READ_DEVICE_GRP;
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
88: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
89: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
83: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_dvc_intg_grp.read_device', FALSE);
84: end if;
85: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
86: ROLLBACK TO READ_DEVICE_GRP;
87: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
88: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
89: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
90: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_dvc_intg_grp.read_device', FALSE);
91: end if;
90: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_dvc_intg_grp.read_device', FALSE);
91: end if;
92: WHEN OTHERS THEN
93: ROLLBACK TO READ_DEVICE_GRP;
94: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
95: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
96: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
97: END IF;
98: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
104:
105:
106: --This procedure reads the device.
107: procedure READ_DEVICE (P_API_VERSION IN NUMBER,
108: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
109: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
110: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
111: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
112: X_MSG_COUNT OUT NOCOPY NUMBER,
105:
106: --This procedure reads the device.
107: procedure READ_DEVICE (P_API_VERSION IN NUMBER,
108: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
109: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
110: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
111: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
112: X_MSG_COUNT OUT NOCOPY NUMBER,
113: X_MSG_DATA OUT NOCOPY VARCHAR2,
106: --This procedure reads the device.
107: procedure READ_DEVICE (P_API_VERSION IN NUMBER,
108: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
109: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
110: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
111: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
112: X_MSG_COUNT OUT NOCOPY NUMBER,
113: X_MSG_DATA OUT NOCOPY VARCHAR2,
114: P_RESOURCE_ID IN NUMBER,
186:
187:
188: --This procedure reads the device.
189: procedure READ_DEVICE (P_API_VERSION IN NUMBER,
190: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
191: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
192: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
193: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
194: X_MSG_COUNT OUT NOCOPY NUMBER,
187:
188: --This procedure reads the device.
189: procedure READ_DEVICE (P_API_VERSION IN NUMBER,
190: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
191: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
192: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
193: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
194: X_MSG_COUNT OUT NOCOPY NUMBER,
195: X_MSG_DATA OUT NOCOPY VARCHAR2,
188: --This procedure reads the device.
189: procedure READ_DEVICE (P_API_VERSION IN NUMBER,
190: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT FND_API.G_FALSE,
191: P_COMMIT IN VARCHAR2 DEFAULT FND_API.G_FALSE,
192: P_VALIDATION_LEVEL IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL,
193: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
194: X_MSG_COUNT OUT NOCOPY NUMBER,
195: X_MSG_DATA OUT NOCOPY VARCHAR2,
196: P_DEVICE_ID IN NUMBER,
215:
216: -- Standard Start of API savepoint
217: SAVEPOINT READ_DEVICE;
218: -- Standard call to check for call compatibility.
219: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
221: END IF;
222:
223: -- Initialize message list if p_init_msg_list is set to TRUE.
216: -- Standard Start of API savepoint
217: SAVEPOINT READ_DEVICE;
218: -- Standard call to check for call compatibility.
219: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,l_api_name,G_PKG_NAME) THEN
220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
221: END IF;
222:
223: -- Initialize message list if p_init_msg_list is set to TRUE.
224: IF FND_API.to_Boolean( p_init_msg_list ) THEN
220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
221: END IF;
222:
223: -- Initialize message list if p_init_msg_list is set to TRUE.
224: IF FND_API.to_Boolean( p_init_msg_list ) THEN
225: FND_MSG_PUB.initialize;
226: END IF;
227:
228: -- Initialize API return status to success
225: FND_MSG_PUB.initialize;
226: END IF;
227:
228: -- Initialize API return status to success
229: x_return_status := FND_API.G_RET_STS_SUCCESS;
230: l_response_code := fnd_table_of_varchar2_255();
231: l_response_code.extend;
232: l_response_code(1) := P_MSG_COMPONENT_PARAM;
233: l_response_code.extend;
252: x_uom_value := l_response_value(2);
253: end if;
254: end if;
255:
256: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
257: IF FND_API.To_Boolean( p_commit ) THEN
258: COMMIT ;
259: END IF;
260: ELSE
253: end if;
254: end if;
255:
256: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
257: IF FND_API.To_Boolean( p_commit ) THEN
258: COMMIT ;
259: END IF;
260: ELSE
261: RAISE FND_API.G_EXC_ERROR;
257: IF FND_API.To_Boolean( p_commit ) THEN
258: COMMIT ;
259: END IF;
260: ELSE
261: RAISE FND_API.G_EXC_ERROR;
262: END IF;
263:
264:
265: -- Standard call to get message count and if count is 1, get message info.
265: -- Standard call to get message count and if count is 1, get message info.
266: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
267:
268: EXCEPTION
269: WHEN FND_API.G_EXC_ERROR THEN
270: ROLLBACK TO READ_DEVICE;
271: x_return_status := FND_API.G_RET_STS_ERROR;
272: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
273: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
267:
268: EXCEPTION
269: WHEN FND_API.G_EXC_ERROR THEN
270: ROLLBACK TO READ_DEVICE;
271: x_return_status := FND_API.G_RET_STS_ERROR;
272: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
273: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
274: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_dvc_intg_grp.read_device', FALSE);
275: end if;
272: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
273: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
274: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_dvc_intg_grp.read_device', FALSE);
275: end if;
276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
277: ROLLBACK TO READ_DEVICE;
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
279: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
280: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
274: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,'gmo.plsql.gmo_dvc_intg_grp.read_device', FALSE);
275: end if;
276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
277: ROLLBACK TO READ_DEVICE;
278: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
279: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);
280: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
281: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_dvc_intg_grp.read_device', FALSE);
282: end if;
281: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_dvc_intg_grp.read_device', FALSE);
282: end if;
283: WHEN OTHERS THEN
284: ROLLBACK TO READ_DEVICE;
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
286: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
287: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
288: END IF;
289: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data);