[Home] [Help]
PACKAGE BODY: APPS.CSP_REQUIREMENT_HEADERS_CUHK
Source
1 PACKAGE Body csp_requirement_headers_cuhk AS
2 /* $Header: cspcrqhb.pls 115.3 2002/11/26 08:06:33 hhaugeru noship $ */
3
4 /*****************************************************************************************
5 This is the Customer User Hook API.
6 The Vertical Industry can add customization procedures here for Pre and Post Processing.
7 ******************************************************************************************/
8 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspcrqhb.pls';
9
10
11 PROCEDURE Create_requirement_header_Pre
12 ( px_requirement_header IN OUT NOCOPY CSP_REQUIREMENT_HEADERS_PVT.Requirement_header_Rec_Type,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_msg_count OUT NOCOPY NUMBER,
15 x_msg_data OUT NOCOPY VARCHAR2
16 ) IS
17 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
18 BEGIN
19 Savepoint csp_requirement_headers_cuhk;
20
21 x_return_status := fnd_api.g_ret_sts_success;
22 NULL;
23 -- Standard call to get message count and if count is 1, get message info
24 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
25 p_data => x_msg_data );
26
27 EXCEPTION
28 WHEN FND_API.G_EXC_ERROR THEN
29 ROLLBACK TO csp_requirement_headers_cuhk;
30 x_return_status := FND_API.G_RET_STS_ERROR;
31 FND_MSG_PUB.Count_And_Get
32 ( p_count => x_msg_count,
33 p_data => x_msg_data );
34 WHEN OTHERS THEN
35 ROLLBACK TO csp_requirement_headers_cuhk;
36 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
37 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
38 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
39 END IF;
40 FND_MSG_PUB.Count_And_Get
41 ( p_count => x_msg_count,
42 p_data => x_msg_data
43 );
44
45 END Create_requirement_header_Pre;
46
47
48 PROCEDURE Create_requirement_header_post
49 (
50 px_requirement_header IN OUT NOCOPY CSP_REQUIREMENT_HEADERS_PVT.Requirement_header_Rec_Type,
51 x_return_status OUT NOCOPY VARCHAR2,
52 x_msg_count OUT NOCOPY NUMBER,
53 x_msg_data OUT NOCOPY VARCHAR2
54 ) IS
55 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
56 BEGIN
57 Savepoint csp_requirement_headers_cuhk;
58
59 x_return_status := fnd_api.g_ret_sts_success;
60 NULL;
61 -- Standard call to get message count and if count is 1, get message info
62 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
63 p_data => x_msg_data );
64
65 EXCEPTION
66 WHEN FND_API.G_EXC_ERROR THEN
67 ROLLBACK TO csp_requirement_headers_cuhk;
68 x_return_status := FND_API.G_RET_STS_ERROR;
69 FND_MSG_PUB.Count_And_Get
70 ( p_count => x_msg_count,
71 p_data => x_msg_data );
72 WHEN OTHERS THEN
73 ROLLBACK TO csp_requirement_headers_cuhk;
74 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
76 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
77 END IF;
78 FND_MSG_PUB.Count_And_Get
79 ( p_count => x_msg_count,
80 p_data => x_msg_data
81 );
82
83 END create_requirement_header_post;
84
85
86 PROCEDURE Update_requirement_header_pre
87 (
88 px_requirement_header IN OUT NOCOPY CSP_REQUIREMENT_HEADERS_PVT.Requirement_header_Rec_Type,
89 x_return_status OUT NOCOPY VARCHAR2,
90 x_msg_count OUT NOCOPY NUMBER,
91 x_msg_data OUT NOCOPY VARCHAR2
92 ) IS
93 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
94 BEGIN
95 Savepoint csp_requirement_headers_cuhk;
96
97 x_return_status := fnd_api.g_ret_sts_success;
98 NULL;
99 -- Standard call to get message count and if count is 1, get message info
100 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
101 p_data => x_msg_data );
102
103 EXCEPTION
104 WHEN FND_API.G_EXC_ERROR THEN
105 ROLLBACK TO csp_requirement_headers_cuhk;
106 x_return_status := FND_API.G_RET_STS_ERROR;
107 FND_MSG_PUB.Count_And_Get
108 ( p_count => x_msg_count,
109 p_data => x_msg_data );
110 WHEN OTHERS THEN
111 ROLLBACK TO csp_requirement_headers_cuhk;
112 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
113 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
114 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
115 END IF;
116 FND_MSG_PUB.Count_And_Get
117 ( p_count => x_msg_count,
118 p_data => x_msg_data
119 );
120
121 END Update_requirement_header_pre;
122
123 PROCEDURE Update_requirement_header_post
124 (
125 px_requirement_header IN OUT NOCOPY CSP_REQUIREMENT_HEADERS_PVT.Requirement_header_Rec_Type,
126 x_return_status OUT NOCOPY VARCHAR2,
127 x_msg_count OUT NOCOPY NUMBER,
128 x_msg_data OUT NOCOPY VARCHAR2
129 ) IS
130 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
131 BEGIN
132 Savepoint csp_requirement_headers_cuhk;
133
134 x_return_status := fnd_api.g_ret_sts_success;
135 NULL;
136 -- Standard call to get message count and if count is 1, get message info
137 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
138 p_data => x_msg_data );
139
140 EXCEPTION
141 WHEN FND_API.G_EXC_ERROR THEN
142 ROLLBACK TO csp_requirement_headers_cuhk;
143 x_return_status := FND_API.G_RET_STS_ERROR;
144 FND_MSG_PUB.Count_And_Get
145 ( p_count => x_msg_count,
146 p_data => x_msg_data );
147 WHEN OTHERS THEN
148 ROLLBACK TO csp_requirement_headers_cuhk;
149 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
150 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
151 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
152 END IF;
153 FND_MSG_PUB.Count_And_Get
154 ( p_count => x_msg_count,
155 p_data => x_msg_data
156 );
157
158 END Update_requirement_header_post;
159 PROCEDURE Delete_requirement_header_pre
160 (
161 p_header_id IN NUMBER,
162 x_return_status OUT NOCOPY VARCHAR2,
163 x_msg_count OUT NOCOPY NUMBER,
164 x_msg_data OUT NOCOPY VARCHAR2
165 ) IS
166 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
167 BEGIN
168 Savepoint csp_requirement_headers_cuhk;
169
170 x_return_status := fnd_api.g_ret_sts_success;
171 NULL;
172 -- Standard call to get message count and if count is 1, get message info
173 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
174 p_data => x_msg_data );
175
176 EXCEPTION
177 WHEN FND_API.G_EXC_ERROR THEN
178 ROLLBACK TO csp_requirement_headers_cuhk;
179 x_return_status := FND_API.G_RET_STS_ERROR;
180 FND_MSG_PUB.Count_And_Get
181 ( p_count => x_msg_count,
182 p_data => x_msg_data );
183 WHEN OTHERS THEN
184 ROLLBACK TO csp_requirement_headers_cuhk;
185 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
186 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
187 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
188 END IF;
189 FND_MSG_PUB.Count_And_Get
190 ( p_count => x_msg_count,
191 p_data => x_msg_data
192 );
193
194 END Delete_requirement_header_pre;
195 PROCEDURE Delete_requirement_header_post
196 (
197 p_header_id IN NUMBER,
198 x_return_status OUT NOCOPY VARCHAR2,
199 x_msg_count OUT NOCOPY NUMBER,
200 x_msg_data OUT NOCOPY VARCHAR2
201 ) IS
202 l_api_name varchar2(200) := 'create_inventory_location_Pre' ;
203 BEGIN
204 Savepoint csp_requirement_headers_cuhk;
205
206 x_return_status := fnd_api.g_ret_sts_success;
207 NULL;
208 -- Standard call to get message count and if count is 1, get message info
209 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
210 p_data => x_msg_data );
211
212 EXCEPTION
213 WHEN FND_API.G_EXC_ERROR THEN
214 ROLLBACK TO csp_requirement_headers_cuhk;
215 x_return_status := FND_API.G_RET_STS_ERROR;
216 FND_MSG_PUB.Count_And_Get
217 ( p_count => x_msg_count,
218 p_data => x_msg_data );
219 WHEN OTHERS THEN
220 ROLLBACK TO csp_requirement_headers_cuhk;
221 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
223 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
224 END IF;
225 FND_MSG_PUB.Count_And_Get
226 ( p_count => x_msg_count,
227 p_data => x_msg_data
228 );
229
230 END Delete_requirement_header_post;
231 END csp_requirement_headers_cuhk;