[Home] [Help]
PACKAGE BODY: APPS.AST_CAMP_RESULT_PVT
Source
1 PACKAGE BODY AST_camp_result_PVT as
2 /* $Header: astvrclb.pls 115.7 2002/02/06 11:44:16 pkm ship $ */
3
4 -- Start of Comments
5 -- Package name : AST_camp_result_PVT
6 -- Purpose :
7 -- History :
8 -- NOTE :
9 -- End of Comments
10
11
12 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AST_camp_result_PVT';
13 G_FILE_NAME CONSTANT VARCHAR2(12) := 'astvrclb.pls';
14
15 G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
16 G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
17
18 -- FUNCTION to return initialized variables to forms
19
20 FUNCTION get_camp_result_rec RETURN ast_camp_result_pvt.camp_result_rec_type IS
21 l_variable ast_camp_result_pvt.camp_result_rec_type := ast_camp_result_pvt.g_miss_camp_result_rec;
22 BEGIN
23 return (l_variable);
24 END;
25
26 -- Hint: Primary key needs to be returned.
27 PROCEDURE Create_camp_result(
28 P_Api_Version_Number IN NUMBER,
29 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
30 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
31 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
32 P_camp_result_Rec IN camp_result_Rec_Type := G_MISS_camp_result_REC,
33 --Hint: Add detail tables as parameter lists if it's master-detail relationship.
34 X_Return_Status OUT VARCHAR2,
35 X_Msg_Count OUT NUMBER,
36 X_Msg_Data OUT VARCHAR2
37 )
38
39 IS
40 l_api_name CONSTANT VARCHAR2(30) := 'Create_camp_result';
41 l_api_version_number CONSTANT NUMBER := 1.0;
42 l_return_status_full VARCHAR2(1);
43 l_camp_result_Rec camp_result_Rec_Type := p_camp_result_Rec;
44
45 CURSOR cur_source IS
46 SELECT source_code_id, source_code, arc_source_code_for, source_code_for_id
47 FROM ams_source_codes
48 WHERE arc_source_code_for = 'CAMP'
49 AND source_code = l_camp_result_Rec.source_code
50 AND source_code_for_id = l_camp_result_Rec.object_id;
51
52 BEGIN
53
54
55 -- Standard Start of API savepoint
56 SAVEPOINT CREATE_camp_result_PVT;
57
58 -- Standard call to check for call compatibility.
59 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
60 p_api_version_number,
61 l_api_name,
62 G_PKG_NAME)
63 THEN
64 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65 END IF;
66
67 -- Initialize message list if p_init_msg_list is set to TRUE.
68 IF FND_API.to_Boolean( p_init_msg_list )
69 THEN
70 FND_MSG_PUB.initialize;
71 END IF;
72
73
74 -- Debug Message
75 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'start');
76
77
78 -- Initialize API return status to SUCCESS
79 x_return_status := FND_API.G_RET_STS_SUCCESS;
80
81 --
82 -- API body
83 --
84
85 -- ******************************************************************
86 -- Validate Environment
87 -- ******************************************************************
88 IF FND_GLOBAL.User_Id IS NULL
89 THEN
90 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
91 THEN
92 FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
93 FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
94 FND_MSG_PUB.ADD;
95 END IF;
96 RAISE FND_API.G_EXC_ERROR;
97 END IF;
98
99
100 OPEN cur_source;
101 FETCH cur_source INTO l_camp_result_Rec.source_code_id, l_camp_result_Rec.source_code,
102 l_camp_result_Rec.object_type, l_camp_result_Rec.object_id;
103 CLOSE cur_source;
104
105 l_camp_result_Rec.object_version_number := 1.0;
106
107 INSERT INTO jtf_ih_campaigns_results
108 (result_id
109 ,object_id
110 ,object_version_number
111 ,created_by
112 ,creation_date
113 ,last_updated_by
114 ,last_update_date
115 ,last_update_login
116 ,object_type
117 ,source_code_id
118 ,source_code)
119 VALUES
120 (l_camp_result_Rec.result_id
121 ,l_camp_result_Rec.object_id
122 ,l_camp_result_Rec.object_version_number
123 ,l_camp_result_Rec.created_by
124 ,l_camp_result_Rec.creation_date
125 ,l_camp_result_Rec.last_updated_by
126 ,l_camp_result_Rec.last_update_date
127 ,l_camp_result_Rec.last_update_login
128 ,l_camp_result_Rec.object_type
129 ,l_camp_result_Rec.source_code_id
130 ,l_camp_result_Rec.source_code
131 );
132
133 --
134 -- End of API body
135 --
136
137 -- Standard check for p_commit
138 IF FND_API.to_Boolean( p_commit )
139 THEN
140 COMMIT WORK;
141 END IF;
142
143
144 -- Debug Message
145 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
146
147 -- Standard call to get message count and if count is 1, get message info.
148 FND_MSG_PUB.Count_And_Get
149 ( p_count => x_msg_count,
150 p_data => x_msg_data
151 );
152
153 EXCEPTION
154 WHEN FND_API.G_EXC_ERROR THEN
155 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
156 P_API_NAME => L_API_NAME
157 ,P_PKG_NAME => G_PKG_NAME
158 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
159 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
160 ,X_MSG_COUNT => X_MSG_COUNT
161 ,X_MSG_DATA => X_MSG_DATA
162 ,X_RETURN_STATUS => X_RETURN_STATUS);
163
164 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
165 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
166 P_API_NAME => L_API_NAME
167 ,P_PKG_NAME => G_PKG_NAME
168 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
169 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
170 ,X_MSG_COUNT => X_MSG_COUNT
171 ,X_MSG_DATA => X_MSG_DATA
172 ,X_RETURN_STATUS => X_RETURN_STATUS);
173
174 WHEN OTHERS THEN
175 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
176 P_API_NAME => L_API_NAME
177 ,P_PKG_NAME => G_PKG_NAME
178 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
179 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
180 ,X_MSG_COUNT => X_MSG_COUNT
181 ,X_MSG_DATA => X_MSG_DATA
182 ,X_RETURN_STATUS => X_RETURN_STATUS);
183 End Create_camp_result;
184
185
186 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
187 -- The Master delete procedure may not be needed depends on different business requirements.
188 PROCEDURE Delete_camp_result(
189 P_Api_Version_Number IN NUMBER,
190 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
191 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
192 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
193 P_camp_result_Rec IN camp_result_Rec_Type,
194 X_Return_Status OUT VARCHAR2,
195 X_Msg_Count OUT NUMBER,
196 X_Msg_Data OUT VARCHAR2
197 )
198
199 IS
200 l_api_name CONSTANT VARCHAR2(30) := 'Delete_camp_result';
201 l_api_version_number CONSTANT NUMBER := 1.0;
202 l_camp_result_Rec camp_result_Rec_Type := p_camp_result_Rec;
203 BEGIN
204 -- Standard Start of API savepoint
205 SAVEPOINT DELETE_camp_result_PVT;
206
207 -- Standard call to check for call compatibility.
208 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
209 p_api_version_number,
210 l_api_name,
211 G_PKG_NAME)
212 THEN
213 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
214 END IF;
215
216
217 -- Initialize message list if p_init_msg_list is set to TRUE.
218 IF FND_API.to_Boolean( p_init_msg_list )
219 THEN
220 FND_MSG_PUB.initialize;
221 END IF;
222
223
224 -- Debug Message
225 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'start');
226
227
228
229 -- Initialize API return status to SUCCESS
230 x_return_status := FND_API.G_RET_STS_SUCCESS;
231
232 --
233 -- Api body
234 --
235
236 DELETE FROM jtf_ih_campaigns_results
237 WHERE result_id = l_camp_result_Rec.result_id
238 AND source_code = l_camp_result_Rec.source_code
239 AND object_id = l_camp_result_Rec.object_id;
240
241 -- Standard check for p_commit
242 IF FND_API.to_Boolean( p_commit )
243 THEN
244 COMMIT WORK;
245 END IF;
246
247
248 -- Debug Message
249 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
250
251
252
253 -- Standard call to get message count and if count is 1, get message info.
254 FND_MSG_PUB.Count_And_Get
255 ( p_count => x_msg_count,
256 p_data => x_msg_data
257 );
258
259 EXCEPTION
260 WHEN FND_API.G_EXC_ERROR THEN
261 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
262 P_API_NAME => L_API_NAME
263 ,P_PKG_NAME => G_PKG_NAME
264 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
265 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
266 ,X_MSG_COUNT => X_MSG_COUNT
267 ,X_MSG_DATA => X_MSG_DATA
268 ,X_RETURN_STATUS => X_RETURN_STATUS);
269
270 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
271 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
272 P_API_NAME => L_API_NAME
273 ,P_PKG_NAME => G_PKG_NAME
274 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
275 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
276 ,X_MSG_COUNT => X_MSG_COUNT
277 ,X_MSG_DATA => X_MSG_DATA
278 ,X_RETURN_STATUS => X_RETURN_STATUS);
279
280 WHEN OTHERS THEN
281 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
282 P_API_NAME => L_API_NAME
283 ,P_PKG_NAME => G_PKG_NAME
284 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
285 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
286 ,X_MSG_COUNT => X_MSG_COUNT
287 ,X_MSG_DATA => X_MSG_DATA
288 ,X_RETURN_STATUS => X_RETURN_STATUS);
289 End Delete_camp_result;
290
291 End AST_camp_result_PVT;