[Home] [Help]
PACKAGE BODY: APPS.CSF_DEBRIEF_LINES_CUHK
Source
1 PACKAGE body csf_debrief_lines_cuhk AS
2 /* $Header: csfcdblb.pls 115.4 2002/11/21 00:29:31 ibalint noship $ */
3
4 /*****************************************************************************************
5 This is the Vertical Industry User Hook API.
6 The Vertical Industry can add customization procedures here for Pre and Post Processing.
7 ******************************************************************************************/
8
9
10 PROCEDURE Create_debrief_line_Pre
11 ( px_debrief_line IN OUT NOCOPY CSF_DEBRIEF_PUB.DEBRIEF_LINE_Rec_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_api_name varchar2(200) := 'Create_debrief_line_Pre' ;
17 BEGIN
18 Savepoint csf_debrief_lines_cuhk;
19
20 x_return_status := fnd_api.g_ret_sts_success;
21 NULL;
22 -- Standard call to get message count and if count is 1, get message info
23 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
24 p_data => x_msg_data );
25
26 EXCEPTION
27 WHEN FND_API.G_EXC_ERROR THEN
28 ROLLBACK TO csf_debrief_lines_cuhk;
29 x_return_status := FND_API.G_RET_STS_ERROR;
30 FND_MSG_PUB.Count_And_Get
31 ( p_count => x_msg_count,
32 p_data => x_msg_data );
33 WHEN OTHERS THEN
34 ROLLBACK TO csf_debrief_lines_cuhk;
35 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
37 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
38 END IF;
39 FND_MSG_PUB.Count_And_Get
40 ( p_count => x_msg_count,
41 p_data => x_msg_data
42 );
43
44 END Create_debrief_line_Pre;
45
46
47
48 PROCEDURE Create_debrief_line_post
49 (
50 px_debrief_line IN OUT NOCOPY CSF_DEBRIEF_PUB.DEBRIEF_LINE_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_debrief_line_Pre' ;
56 BEGIN
57 Savepoint csf_debrief_lines_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 csf_debrief_lines_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 csf_debrief_lines_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_debrief_line_post;
84 PROCEDURE Update_debrief_line_pre
85 (
86 px_debrief_line IN OUT NOCOPY CSF_DEBRIEF_PUB.DEBRIEF_LINE_Rec_Type,
87 x_return_status OUT NOCOPY VARCHAR2,
88 x_msg_count OUT NOCOPY NUMBER,
89 x_msg_data OUT NOCOPY VARCHAR2
90 ) IS
91 l_api_name varchar2(200) := 'Create_debrief_line_Pre' ;
92 BEGIN
93 Savepoint csf_debrief_lines_cuhk;
94
95 x_return_status := fnd_api.g_ret_sts_success;
96 NULL;
97 -- Standard call to get message count and if count is 1, get message info
98 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
99 p_data => x_msg_data );
100
101 EXCEPTION
102 WHEN FND_API.G_EXC_ERROR THEN
103 ROLLBACK TO csf_debrief_lines_cuhk;
104 x_return_status := FND_API.G_RET_STS_ERROR;
105 FND_MSG_PUB.Count_And_Get
106 ( p_count => x_msg_count,
107 p_data => x_msg_data );
108 WHEN OTHERS THEN
109 ROLLBACK TO csf_debrief_lines_cuhk;
110 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
111 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
112 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
113 END IF;
114 FND_MSG_PUB.Count_And_Get
115 ( p_count => x_msg_count,
116 p_data => x_msg_data
117 );
118
119 END Update_debrief_line_pre;
120
121 PROCEDURE Update_debrief_line_post
122 (
123 px_debrief_line IN OUT NOCOPY CSF_DEBRIEF_PUB.DEBRIEF_LINE_Rec_Type,
124 x_return_status OUT NOCOPY VARCHAR2,
125 x_msg_count OUT NOCOPY NUMBER,
126 x_msg_data OUT NOCOPY VARCHAR2
127 ) IS
128 l_api_name varchar2(200) := 'Create_debrief_line_Pre' ;
129 BEGIN
130 Savepoint csf_debrief_lines_cuhk;
131
132 x_return_status := fnd_api.g_ret_sts_success;
133 NULL;
134 -- Standard call to get message count and if count is 1, get message info
135 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
136 p_data => x_msg_data );
137
138 EXCEPTION
139 WHEN FND_API.G_EXC_ERROR THEN
140 ROLLBACK TO csf_debrief_lines_cuhk;
141 x_return_status := FND_API.G_RET_STS_ERROR;
142 FND_MSG_PUB.Count_And_Get
143 ( p_count => x_msg_count,
144 p_data => x_msg_data );
145 WHEN OTHERS THEN
146 ROLLBACK TO csf_debrief_lines_cuhk;
147 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
148 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
149 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
150 END IF;
151 FND_MSG_PUB.Count_And_Get
152 ( p_count => x_msg_count,
153 p_data => x_msg_data
154 );
155
156 END Update_debrief_line_post;
157 PROCEDURE Delete_debrief_line_pre
158 (
159 p_line_id IN NUMBER,
160 x_return_status OUT NOCOPY VARCHAR2,
161 x_msg_count OUT NOCOPY NUMBER,
162 x_msg_data OUT NOCOPY VARCHAR2
163 ) IS
164 l_api_name varchar2(200) := 'Create_debrief_line_Pre' ;
165 BEGIN
166 Savepoint csf_debrief_lines_cuhk;
167
168 x_return_status := fnd_api.g_ret_sts_success;
169 NULL;
170 -- Standard call to get message count and if count is 1, get message info
171 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
172 p_data => x_msg_data );
173
174 EXCEPTION
175 WHEN FND_API.G_EXC_ERROR THEN
176 ROLLBACK TO csf_debrief_lines_cuhk;
177 x_return_status := FND_API.G_RET_STS_ERROR;
178 FND_MSG_PUB.Count_And_Get
179 ( p_count => x_msg_count,
180 p_data => x_msg_data );
181 WHEN OTHERS THEN
182 ROLLBACK TO csf_debrief_lines_cuhk;
183 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
184 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
185 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
186 END IF;
187 FND_MSG_PUB.Count_And_Get
188 ( p_count => x_msg_count,
189 p_data => x_msg_data
190 );
191
192 END Delete_debrief_line_pre;
193 PROCEDURE Delete_debrief_line_post
194 (
195 p_line_id IN NUMBER,
196 x_return_status OUT NOCOPY VARCHAR2,
197 x_msg_count OUT NOCOPY NUMBER,
198 x_msg_data OUT NOCOPY VARCHAR2
199 ) IS
200 l_api_name varchar2(200) := 'Create_debrief_line_Pre' ;
201 BEGIN
202 Savepoint csf_debrief_lines_cuhk;
203
204 x_return_status := fnd_api.g_ret_sts_success;
205 NULL;
206 -- Standard call to get message count and if count is 1, get message info
207 FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
208 p_data => x_msg_data );
209
210 EXCEPTION
211 WHEN FND_API.G_EXC_ERROR THEN
212 ROLLBACK TO csf_debrief_lines_cuhk;
213 x_return_status := FND_API.G_RET_STS_ERROR;
214 FND_MSG_PUB.Count_And_Get
215 ( p_count => x_msg_count,
216 p_data => x_msg_data );
217 WHEN OTHERS THEN
218 ROLLBACK TO csf_debrief_lines_cuhk;
219 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
221 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
222 END IF;
223 FND_MSG_PUB.Count_And_Get
224 ( p_count => x_msg_count,
225 p_data => x_msg_data
226 );
227
228 END Delete_debrief_line_post;
229 END csf_debrief_lines_cuhk;