[Home] [Help]
PACKAGE BODY: APPS.AST_CAMP_REASON_PVT
Source
1 PACKAGE BODY AST_camp_reason_PVT as
2 /* $Header: astvrcnb.pls 115.10 2002/02/06 11:44:20 pkm ship $ */
3
4 -- Start of Comments
5 -- Package name : AST_camp_reason_PVT
6 -- Purpose :
7 -- History :
8 -- NOTE :
9 -- End of Comments
10
11
12 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AST_camp_reason_PVT';
13 G_FILE_NAME CONSTANT VARCHAR2(12) := 'astvrcnb.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_reason_rec RETURN ast_camp_reason_pvt.camp_reason_rec_type IS
21 l_variable ast_camp_reason_pvt.camp_reason_rec_type := ast_camp_reason_pvt.g_miss_camp_reason_rec;
22 BEGIN
23 return (l_variable);
24 END;
25
26 -- Hint: Primary key needs to be returned.
27 PROCEDURE Create_camp_reason(
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_reason_Rec IN camp_reason_Rec_Type := G_MISS_camp_reason_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_reason';
41 l_api_version_number CONSTANT NUMBER := 1.0;
42 l_return_status_full VARCHAR2(1);
43 l_camp_reason_Rec camp_reason_Rec_Type := p_camp_reason_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_reason_Rec.source_code
50 AND source_code_for_id = l_camp_reason_Rec.object_id;
51
52 BEGIN
53
54
55 -- Standard Start of API savepoint
56 SAVEPOINT CREATE_camp_reason_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_reason_Rec.source_code_id, l_camp_reason_Rec.source_code,
102 l_camp_reason_Rec.object_type, l_camp_reason_Rec.object_id;
103
104 CLOSE cur_source;
105
106 l_camp_reason_Rec.object_version_number := 1.0;
107 --** By andre Araujo so we can deploy, remove later
108 INSERT INTO jtf_ih_campaign_result_reasons
109 (reason_id
110 ,object_id
111 ,object_version_number
112 ,created_by
113 ,creation_date
114 ,last_updated_by
115 ,last_update_date
116 ,last_update_login
117 ,object_type
118 ,source_code_id
119 ,source_code)
120 VALUES
121 (l_camp_reason_Rec.reason_id
122 ,l_camp_reason_Rec.object_id
123 ,l_camp_reason_Rec.object_version_number
124 ,l_camp_reason_Rec.created_by
125 ,l_camp_reason_Rec.creation_date
126 ,l_camp_reason_Rec.last_updated_by
127 ,l_camp_reason_Rec.last_update_date
128 ,l_camp_reason_Rec.last_update_login
129 ,l_camp_reason_Rec.object_type
130 ,l_camp_reason_Rec.source_code_id
131 ,l_camp_reason_Rec.source_code
132 );
133
134 --remove this comment later, see jft_ih revision before removing - AndrE**
135 --
136 -- End of API body
137 --
138
139 -- Standard check for p_commit
140 IF FND_API.to_Boolean( p_commit )
141 THEN
142 COMMIT WORK;
143 END IF;
144
145
146 -- Debug Message
147 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
148
149 -- Standard call to get message count and if count is 1, get message info.
150 FND_MSG_PUB.Count_And_Get
151 ( p_count => x_msg_count,
152 p_data => x_msg_data
153 );
154
155 EXCEPTION
156 WHEN FND_API.G_EXC_ERROR THEN
157 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
158 P_API_NAME => L_API_NAME
159 ,P_PKG_NAME => G_PKG_NAME
160 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
161 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
162 ,X_MSG_COUNT => X_MSG_COUNT
163 ,X_MSG_DATA => X_MSG_DATA
164 ,X_RETURN_STATUS => X_RETURN_STATUS);
165
166 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
167 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
168 P_API_NAME => L_API_NAME
169 ,P_PKG_NAME => G_PKG_NAME
170 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
171 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
172 ,X_MSG_COUNT => X_MSG_COUNT
173 ,X_MSG_DATA => X_MSG_DATA
174 ,X_RETURN_STATUS => X_RETURN_STATUS);
175
176 WHEN OTHERS THEN
177 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
178 P_API_NAME => L_API_NAME
179 ,P_PKG_NAME => G_PKG_NAME
180 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
181 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
182 ,X_MSG_COUNT => X_MSG_COUNT
183 ,X_MSG_DATA => X_MSG_DATA
184 ,X_RETURN_STATUS => X_RETURN_STATUS);
185 End Create_camp_reason;
186
187
188 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
189 -- The Master delete procedure may not be needed depends on different business requirements.
190 PROCEDURE Delete_camp_reason(
191 P_Api_Version_Number IN NUMBER,
192 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
193 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
194 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
195 P_camp_reason_Rec IN camp_reason_Rec_Type,
196 X_Return_Status OUT VARCHAR2,
197 X_Msg_Count OUT NUMBER,
198 X_Msg_Data OUT VARCHAR2
199 )
200
201 IS
202 l_api_name CONSTANT VARCHAR2(30) := 'Delete_camp_reason';
203 l_api_version_number CONSTANT NUMBER := 1.0;
204 l_camp_reason_Rec camp_reason_Rec_Type := p_camp_reason_Rec;
205 BEGIN
206 -- Standard Start of API savepoint
207 SAVEPOINT DELETE_camp_reason_PVT;
208
209 -- Standard call to check for call compatibility.
210 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
211 p_api_version_number,
212 l_api_name,
213 G_PKG_NAME)
214 THEN
215 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216 END IF;
217
218
219 -- Initialize message list if p_init_msg_list is set to TRUE.
220 IF FND_API.to_Boolean( p_init_msg_list )
221 THEN
222 FND_MSG_PUB.initialize;
223 END IF;
224
225
226 -- Debug Message
227 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'start');
228
229
230
231 -- Initialize API return status to SUCCESS
232 x_return_status := FND_API.G_RET_STS_SUCCESS;
233
234 --
235 -- Api body
236 --
237
238 DELETE FROM jtf_ih_campaign_result_reasons
239 WHERE reason_id = l_camp_reason_Rec.reason_id
240 AND source_code = l_camp_reason_Rec.source_code
241 AND object_id = l_camp_reason_Rec.object_id;
242
243 -- Standard check for p_commit
244 IF FND_API.to_Boolean( p_commit )
245 THEN
246 COMMIT WORK;
247 END IF;
248
249
250 -- Debug Message
251 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'AST', 'Private API: ' || l_api_name || 'end');
252
253
254
255 -- Standard call to get message count and if count is 1, get message info.
256 FND_MSG_PUB.Count_And_Get
257 ( p_count => x_msg_count,
258 p_data => x_msg_data
259 );
260
261 EXCEPTION
262 WHEN FND_API.G_EXC_ERROR THEN
263 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
264 P_API_NAME => L_API_NAME
265 ,P_PKG_NAME => G_PKG_NAME
266 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
267 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
268 ,X_MSG_COUNT => X_MSG_COUNT
269 ,X_MSG_DATA => X_MSG_DATA
270 ,X_RETURN_STATUS => X_RETURN_STATUS);
271
272 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
273 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
274 P_API_NAME => L_API_NAME
275 ,P_PKG_NAME => G_PKG_NAME
276 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
277 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
278 ,X_MSG_COUNT => X_MSG_COUNT
279 ,X_MSG_DATA => X_MSG_DATA
280 ,X_RETURN_STATUS => X_RETURN_STATUS);
281
282 WHEN OTHERS THEN
283 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
284 P_API_NAME => L_API_NAME
285 ,P_PKG_NAME => G_PKG_NAME
286 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
287 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PVT
288 ,X_MSG_COUNT => X_MSG_COUNT
289 ,X_MSG_DATA => X_MSG_DATA
290 ,X_RETURN_STATUS => X_RETURN_STATUS);
291 End Delete_camp_reason;
292
293 End AST_camp_reason_PVT;