[Home] [Help]
PACKAGE BODY: APPS.CZ_WEBSERVICES_PVT
Source
1 PACKAGE BODY CZ_WEBSERVICES_PVT AS
2 /* $Header: czwspvtb.pls 120.1 2005/06/17 11:49:15 dalee ship $ */
3 ------------------------------------------------------------------------------------------
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'CZ_WEBSERVICES_PVT';
5
6 procedure validate(p_init_msg IN VARCHAR2
7 ,p_url IN VARCHAR2
8 ,x_config_xml_msg OUT NOCOPY VARCHAR2
9 ,x_return_status OUT NOCOPY VARCHAR2
10 ,x_msg_count OUT NOCOPY NUMBER
11 ,x_msg_data OUT NOCOPY VARCHAR2
12 )
13 IS
14
15 l_api_name CONSTANT VARCHAR2(20) := 'validate:ws';
16 l_api_version CONSTANT NUMBER := 1.0;
17 l_empty_input_list CZ_CF_API.CFG_INPUT_LIST;
18 l_empty_attr_list CZ_CF_API.config_ext_attr_tbl_type;
19 l_config_message_pieces CZ_CF_API.CFG_OUTPUT_PIECES;
20 l_validation_status NUMBER;
21 l_rebuilt_xml VARCHAR2(4000);
22 l_message_count NUMBER;
23 l_message_data VARCHAR2(4000);
24
25 BEGIN
26 CZ_CF_API.validate(l_empty_input_list,
27 p_init_msg,
28 l_config_message_pieces,
29 l_validation_status,
30 p_url,
31 null);
32
33 IF (l_validation_status = CZ_CF_API.CONFIG_PROCESSED) THEN
34 x_return_status := FND_API.G_RET_STS_SUCCESS;
35 IF (l_config_message_pieces.COUNT > 0) THEN
36 l_rebuilt_xml := '';
37 FOR i in l_config_message_pieces.FIRST..l_config_message_pieces.LAST LOOP
38 -- THis keeps appending
39 l_rebuilt_xml := l_rebuilt_xml || l_config_message_pieces(i);
40 END LOOP;
41 x_config_xml_msg := l_rebuilt_xml;
42 END IF;
43 ELSE
44 x_return_status := FND_API.G_RET_STS_ERROR;
45 -- need to put a message
46 END IF;
47 EXCEPTION
48 WHEN OTHERS THEN
49 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
50 IF fnd_msg_pub.check_msg_Level(fnd_msg_pub.G_MSG_LVL_UNEXP_ERROR) THEN
51 fnd_msg_pub.add_exc_msg(G_PKG_NAME, l_api_name);
52 END IF;
53
54 fnd_msg_pub.count_and_get(p_count => x_msg_count,
55 p_data => x_msg_data);
56
57 END validate; -- pvt
58
59 END;