[Home] [Help]
PACKAGE BODY: APPS.PSB_DE_CLIENT_EXTENSIONS_PUB
Source
1 PACKAGE BODY PSB_DE_Client_Extensions_Pub AS
2 /*$Header: PSBVCLEB.pls 120.1 2003/03/28 20:28:04 krajagop noship $*/
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):= 'PSB_DE_Client_Extensions_Pub';
5
6 /*===========================================================================+
7 | PROCEDURE Run_Client_Extension_Pub |
8 +===========================================================================*/
9 --
10 -- This is the placeholder API and does nothing. If required, the clients
11 -- will implement this API to provide desired customization.
12 --
13 PROCEDURE Run_Client_Extension_Pub
14 (
15 p_api_version IN NUMBER,
16 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17 p_commit IN VARCHAR2 := FND_API.G_FALSE,
18 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19 x_return_status OUT NOCOPY VARCHAR2,
20 x_msg_count OUT NOCOPY NUMBER,
21 x_msg_data OUT NOCOPY VARCHAR2,
22 --
23 p_data_extract_id IN NUMBER,
24 p_mode IN VARCHAR2
25 )
26 IS
27 --
28 l_api_name CONSTANT VARCHAR2(30) := 'Run_Client_Extension_Pub';
29 l_api_version CONSTANT NUMBER := 1.0;
30 --
31 l_return_status VARCHAR2(1);
32 l_msg_count NUMBER;
33 l_msg_data VARCHAR2(2000);
34 --
35
36 BEGIN
37
38 --
39 -- Begin standard API section.
40 --
41
42 SAVEPOINT Run_Client_Extension ;
43 --
44 IF NOT FND_API.Compatible_API_Call ( l_api_version,
45 p_api_version,
46 l_api_name,
47 G_PKG_NAME )
48 THEN
49 RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
50 END IF;
51 --
52 IF FND_API.to_Boolean ( p_init_msg_list ) THEN
53 FND_MSG_PUB.initialize ;
54 END IF;
55 --
56
57 x_return_status := FND_API.G_RET_STS_SUCCESS ;
58 --
59
60 --
61 -- End standard API section.
62 --
63
64 --
65 -- Begin client extension.
66 --
67 --
68 -- End client extension.
69 --
70
71 --
72 -- Down below are again the standard end and exception sections of the API.
73 --
74
75 --
76 IF FND_API.To_Boolean ( p_commit ) THEN
77 COMMIT WORK;
78 END iF;
79 --
80 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
81 p_data => x_msg_data );
82 --
83 EXCEPTION
84 --
85 WHEN FND_API.G_EXC_ERROR THEN
86 --
87 ROLLBACK TO Run_Client_Extension ;
88 x_return_status := FND_API.G_RET_STS_ERROR;
89 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
90 p_data => x_msg_data );
91 --
92 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93 --
94 ROLLBACK TO Run_Client_Extension ;
95 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
96 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
97 p_data => x_msg_data );
98 --
99 WHEN OTHERS THEN
100 --
101 ROLLBACK TO Run_Client_Extension ;
102 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
103 --
104 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
105 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
106 l_api_name);
107 END if;
108 --
109 FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
110 p_data => x_msg_data );
111 --
112 END Run_Client_Extension_Pub ;
113 /*---------------------------------------------------------------------------*/
114
115
116 END PSB_DE_Client_Extensions_Pub ;