[Home] [Help]
PACKAGE BODY: APPS.CSP_ORDERHEADERS_PUB
Source
1 PACKAGE BODY CSP_ORDERHEADERS_PUB AS
2 /* $Header: cspptmhb.pls 115.7 2003/05/02 17:31:37 phegde ship $ */
3 -- Start of Comments
4 -- Package name : CSP_ORDERHEADERS_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_ORDERHEADERS_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspptmhb.pls';
13
14 -- Start of Comments
15 -- ***************** Private Conversion Routines Values -> Ids **************
16 -- Purpose
17 --
18 -- This procedure takes a public ORDERHEADERS record as input. It may contain
19 -- values or ids. All values are then converted into ids and a
20 -- private ORDERHEADERSrecord is returned for the private
21 -- API call.
22 --
23 -- Conversions:
24 --
25 -- Notes
26 --
27 -- 1. IDs take precedence over values. If both are present for a field, ID is used,
28 -- the value based parameter is ignored and a warning message is created.
29 -- 2. This is automatically generated procedure, it converts public record type to
30 -- private record type for all attributes.
31 -- Developer must manually add conversion logic to the attributes.
32 --
33 -- End of Comments
34 PROCEDURE Convert_MOH_Values_To_Ids(
35 P_MOH_Rec IN CSP_orderheaders_PUB.MOH_Rec_Type,
36 x_pvt_MOH_rec OUT NOCOPY CSP_orderheaders_PVT.MOH_Rec_Type
37 )
38 IS
39 -- Hint: Declare cursor and local variables
40 -- Example: CURSOR C_Get_Lookup_Code(X_Lookup_Type VARCHAR2, X_Meaning VARCHAR2) IS
41 -- SELECT lookup_code
42 -- FROM as_lookups
43 -- WHERE lookup_type = X_Lookup_Type and nls_upper(meaning) = nls_upper(X_Meaning);
44 l_any_errors BOOLEAN := FALSE;
45 BEGIN
46 -- Hint: Add logic to process value-id verification for ORDERHEADERS record.
47 -- Value based parameters should be converted to their equivalent ids.
48 -- Each value should resolve into one and only one id.
49 -- If this condition is not satisfied, API must report an error and assign l_any_errors to TRUE.
50 -- Example: Process Lead Source/Lead Source Code
51 -- If(p_opp_rec.lead_source_code is NOT NULL and p_opp_rec.lead_source_code <> FND_API.G_MISS_CHAR)
52 -- THEN
53 -- p_pvt_opp_rec.lead_source_code := p_opp_rec.lead_source_code;
54 -- IF(p_opp_rec.lead_source is NOT NULL and p_opp_rec.lead_source <> FND_API.G_MISS_CHAR)
55 -- THEN
56 -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
57 -- THEN
58 -- FND_MESSAGE.Set_Name('AS','API_ATTRIBUTE_IGNORED');
59 -- FND_MESSAGE.Set_Token('COLUMN','LEAD_SOURCE',FALSE);
60 -- FND_MSG_PUB.Add;
61 -- END IF;
62 -- END IF;
63 -- ELSIF(p_opp_rec.lead_source is NOT NULL and p_opp_rec.lead_source <> FND_API.G_MISS_CHAR)
64 -- THEN
65 -- OPEN C_Get_Lookup_Code('LEAD_SOURCE', p_opp_rec.lead_source);
66 -- FETCH C_Get_Lookup_Code INTO l_val;
67 -- CLOSE C_Get_Lookup_Code;
68 -- p_pvt_opp_rec.lead_source_code := l_val;
69 -- IF(l_val IS NULL)
70 -- THEN
71 -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
72 -- THEN
73 -- FND_MESSAGE.Set_Name('AS','API_ATTRIBUTE_CONVERSION_ERROR'
74 -- FND_MESSAGE.Set_Token('COLUMN','LEAD_SOURCE', FALSE
75 -- FND_MESSAGE.Set_Token('VALUE', p_opp_rec.lead_source, FALSE
76 -- FND_MSG_PUB.Add;
77 -- END IF;
78 -- l_any_errors := TRUE;
79 -- END IF;
80 -- ELSE
81 -- p_pvt_opp_rec.lead_source_code := NULL;
82 -- END IF;
83
84
85 -- Now copy the rest of the columns to the private record
86 -- Hint: We provide copy all columns to the private record.
87 -- Developer should delete those fields which are used by Value-Id conversion above
88 -- Hint: Developer should remove some of the following statements because of inconsistent column name between table and view.
89
90 x_pvt_MOH_rec.HEADER_ID := P_MOH_Rec.HEADER_ID;
91 x_pvt_MOH_rec.CREATED_BY := P_MOH_Rec.CREATED_BY;
92 x_pvt_MOH_rec.CREATION_DATE := P_MOH_Rec.CREATION_DATE;
93 x_pvt_MOH_rec.LAST_UPDATED_BY := P_MOH_Rec.LAST_UPDATED_BY;
94 x_pvt_MOH_rec.LAST_UPDATE_DATE := P_MOH_Rec.LAST_UPDATE_DATE;
95 x_pvt_MOH_rec.LAST_UPDATE_LOGIN := P_MOH_Rec.LAST_UPDATE_LOGIN;
96 x_pvt_MOH_rec.CARRIER := P_MOH_Rec.CARRIER;
97 x_pvt_MOH_rec.SHIPMENT_METHOD := P_MOH_Rec.SHIPMENT_METHOD;
98 x_pvt_MOH_rec.AUTORECEIPT_FLAG := P_MOH_Rec.AUTORECEIPT_FLAG;
99 x_pvt_MOH_rec.ATTRIBUTE_CATEGORY := P_MOH_Rec.ATTRIBUTE_CATEGORY;
100 X_PVT_MOH_REC.LOCATION_ID := P_MOH_REC.LOCATION_ID;
101
102 -- The following lines are removed because they are declared in the CSP_ORDERHEADERS_PUB.P_MOH_Rec record.
103 /*
104 x_pvt_MOH_rec.ATTRIBUTE1 := P_MOH_Rec.ATTRIBUTE1;
105 x_pvt_MOH_rec.ATTRIBUTE2 := P_MOH_Rec.ATTRIBUTE2;
106 x_pvt_MOH_rec.ATTRIBUTE3 := P_MOH_Rec.ATTRIBUTE3;
107 x_pvt_MOH_rec.ATTRIBUTE4 := P_MOH_Rec.ATTRIBUTE4;
108 x_pvt_MOH_rec.ATTRIBUTE5 := P_MOH_Rec.ATTRIBUTE5;
109 x_pvt_MOH_rec.ATTRIBUTE6 := P_MOH_Rec.ATTRIBUTE6;
110 x_pvt_MOH_rec.ATTRIBUTE7 := P_MOH_Rec.ATTRIBUTE7;
111 x_pvt_MOH_rec.ATTRIBUTE8 := P_MOH_Rec.ATTRIBUTE8;
112 x_pvt_MOH_rec.ATTRIBUTE9 := P_MOH_Rec.ATTRIBUTE9;
113 x_pvt_MOH_rec.ATTRIBUTE10 := P_MOH_Rec.ATTRIBUTE10;
114 x_pvt_MOH_rec.ATTRIBUTE11 := P_MOH_Rec.ATTRIBUTE11;
115 x_pvt_MOH_rec.ATTRIBUTE12 := P_MOH_Rec.ATTRIBUTE12;
116 x_pvt_MOH_rec.ATTRIBUTE13 := P_MOH_Rec.ATTRIBUTE13;
117 x_pvt_MOH_rec.ATTRIBUTE14 := P_MOH_Rec.ATTRIBUTE14;
118 x_pvt_MOH_rec.ATTRIBUTE15 := P_MOH_Rec.ATTRIBUTE15;
119
120 x_pvt_MOH_rec.ADDRESS1 := P_MOH_Rec.ADDRESS1;
121 x_pvt_MOH_rec.ADDRESS2 := P_MOH_Rec.ADDRESS2;
122 x_pvt_MOH_rec.ADDRESS3 := P_MOH_Rec.ADDRESS3;
123 x_pvt_MOH_rec.ADDRESS4 := P_MOH_Rec.ADDRESS4;
124 x_pvt_MOH_rec.CITY := P_MOH_Rec.CITY;
125 x_pvt_MOH_rec.POSTAL_CODE := P_MOH_Rec.POSTAL_CODE;
126 x_pvt_MOH_rec.STATE := P_MOH_Rec.STATE;
127 x_pvt_MOH_rec.PROVINCE := P_MOH_Rec.PROVINCE;
128 x_pvt_MOH_rec.COUNTRY := P_MOH_Rec.COUNTRY; */
129
130
131 -- If there is an error in conversion precessing, raise an error.
132 IF l_any_errors
133 THEN
134 raise FND_API.G_EXC_ERROR;
135 END IF;
136
137 END Convert_MOH_Values_To_Ids;
138 PROCEDURE Create_orderheaders(
139 P_Api_Version_Number IN NUMBER,
140 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
141 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
142 P_MOH_Rec IN MOH_Rec_Type := G_MISS_MOH_REC,
143 --Hint: Add detail tables as parameter lists if it's master-detail relationship.
144 X_HEADER_ID OUT NOCOPY NUMBER,
145 X_Return_Status OUT NOCOPY VARCHAR2,
146 X_Msg_Count OUT NOCOPY NUMBER,
147 X_Msg_Data OUT NOCOPY VARCHAR2
148 )
149
150 IS
151 l_api_name CONSTANT VARCHAR2(30) := 'Create_orderheaders';
152 l_api_version_number CONSTANT NUMBER := 2.0;
153 l_pvt_MOH_rec CSP_ORDERHEADERS_PVT.MOH_Rec_Type;
154 BEGIN
155 -- Standard Start of API savepoint
156 SAVEPOINT CREATE_ORDERHEADERS_PUB;
157
158 -- Standard call to check for call compatibility.
159 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
160 p_api_version_number,
161 l_api_name,
162 G_PKG_NAME)
163 THEN
164 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
165 END IF;
166
167
168 -- Initialize message list if p_init_msg_list is set to TRUE.
169 IF FND_API.to_Boolean( p_init_msg_list )
170 THEN
171 FND_MSG_PUB.initialize;
172 END IF;
173
174
175 -- Debug Message
176 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
177
178
179 -- Initialize API return status to SUCCESS
180 x_return_status := FND_API.G_RET_STS_SUCCESS;
181
182 --
183 -- API body
184 --
185
186 -- Debug Message
187 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'AS: Public API: Convert_MOH_Values_To_Ids');
188
189 -- Convert the values to ids
190 --
191 Convert_MOH_Values_To_Ids (
192 p_MOH_rec => p_MOH_rec,
193 x_pvt_MOH_rec => l_pvt_MOH_rec
194 );
195
196 -- Calling Private package: Create_ORDERHEADERS
197 -- Hint: Primary key needs to be returned
198 CSP_orderheaders_PVT.Create_orderheaders(
199 P_Api_Version_Number => 2.0,
200 P_Init_Msg_List => FND_API.G_FALSE,
201 P_Commit => FND_API.G_FALSE,
202 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
203 P_MOH_Rec => l_pvt_MOH_Rec ,
204 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
205 X_HEADER_ID => x_HEADER_ID,
206 X_Return_Status => x_return_status,
207 X_Msg_Count => x_msg_count,
208 X_Msg_Data => x_msg_data);
209
210
211
212 -- Check return status from the above procedure call
213 IF x_return_status = FND_API.G_RET_STS_ERROR then
214 raise FND_API.G_EXC_ERROR;
215 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
216 raise FND_API.G_EXC_UNEXPECTED_ERROR;
217 END IF;
218
219 --
220 -- End of API body.
221 --
222
223 -- Standard check for p_commit
224 IF FND_API.to_Boolean( p_commit )
225 THEN
226 COMMIT WORK;
227 END IF;
228
229
230 -- Debug Message
231 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
232
233
234 -- Standard call to get message count and if count is 1, get message info.
235 FND_MSG_PUB.Count_And_Get
236 ( p_count => x_msg_count,
237 p_data => x_msg_data
238 );
239
240 EXCEPTION
241 WHEN FND_API.G_EXC_ERROR THEN
242 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
243 P_API_NAME => L_API_NAME
244 ,P_PKG_NAME => G_PKG_NAME
245 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
246 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
247 ,X_MSG_COUNT => X_MSG_COUNT
248 ,X_MSG_DATA => X_MSG_DATA
249 ,X_RETURN_STATUS => X_RETURN_STATUS);
250
251 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
252 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
253 P_API_NAME => L_API_NAME
254 ,P_PKG_NAME => G_PKG_NAME
255 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
256 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
257 ,X_MSG_COUNT => X_MSG_COUNT
258 ,X_MSG_DATA => X_MSG_DATA
259 ,X_RETURN_STATUS => X_RETURN_STATUS);
260
261 WHEN OTHERS THEN
262 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
263 P_API_NAME => L_API_NAME
264 ,P_PKG_NAME => G_PKG_NAME
265 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
266 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
267 ,X_MSG_COUNT => X_MSG_COUNT
268 ,X_MSG_DATA => X_MSG_DATA
269 ,X_RETURN_STATUS => X_RETURN_STATUS);
270 End Create_orderheaders;
271
272
273 -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
274 PROCEDURE Update_orderheaders(
275 P_Api_Version_Number IN NUMBER,
276 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
277 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
278 P_Identity_Salesforce_Id IN NUMBER := NULL,
279 P_MOH_Rec IN MOH_Rec_Type,
280 X_Return_Status OUT NOCOPY VARCHAR2,
281 X_Msg_Count OUT NOCOPY NUMBER,
282 X_Msg_Data OUT NOCOPY VARCHAR2
283 )
284
285 IS
286 l_api_name CONSTANT VARCHAR2(30) := 'Update_orderheaders';
287 l_api_version_number CONSTANT NUMBER := 2.0;
288 l_pvt_MOH_rec CSP_ORDERHEADERS_PVT.MOH_Rec_Type;
289 BEGIN
290 -- Standard Start of API savepoint
291 SAVEPOINT UPDATE_ORDERHEADERS_PUB;
292
293 -- Standard call to check for call compatibility.
294 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
295 p_api_version_number,
296 l_api_name,
297 G_PKG_NAME)
298 THEN
299 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
300 END IF;
301
302
303 -- Initialize message list if p_init_msg_list is set to TRUE.
304 IF FND_API.to_Boolean( p_init_msg_list )
305 THEN
306 FND_MSG_PUB.initialize;
307 END IF;
308
309
310 -- Debug Message
311 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
312
313
314 -- Initialize API return status to SUCCESS
315 x_return_status := FND_API.G_RET_STS_SUCCESS;
316
317 --
318 -- API body
319 --
320
321 -- Debug Message
322 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'AS: Public API: Convert_MOH_Values_To_Ids');
323
324 -- Convert the values to ids
325 --
326 Convert_MOH_Values_To_Ids (
327 p_MOH_rec => p_MOH_rec,
328 x_pvt_MOH_rec => l_pvt_MOH_rec
329 );
330
331 CSP_orderheaders_PVT.Update_orderheaders(
332 P_Api_Version_Number => 2.0,
333 P_Init_Msg_List => FND_API.G_FALSE,
334 P_Commit => p_commit,
335 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
336 P_Identity_Salesforce_Id => p_identity_salesforce_id,
337 P_MOH_Rec => l_pvt_MOH_Rec ,
338 X_Return_Status => x_return_status,
339 X_Msg_Count => x_msg_count,
340 X_Msg_Data => x_msg_data);
341
342
343
344 -- Check return status from the above procedure call
345 IF x_return_status = FND_API.G_RET_STS_ERROR then
346 raise FND_API.G_EXC_ERROR;
347 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
348 raise FND_API.G_EXC_UNEXPECTED_ERROR;
349 END IF;
350
351 --
352 -- End of API body
353 --
354
355 -- Standard check for p_commit
356 IF FND_API.to_Boolean( p_commit )
357 THEN
358 COMMIT WORK;
359 END IF;
360
361
362 -- Debug Message
363 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
364
365
366 -- Standard call to get message count and if count is 1, get message info.
367 FND_MSG_PUB.Count_And_Get
368 ( p_count => x_msg_count,
369 p_data => x_msg_data
370 );
371
372 EXCEPTION
373 WHEN FND_API.G_EXC_ERROR THEN
374 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
375 P_API_NAME => L_API_NAME
376 ,P_PKG_NAME => G_PKG_NAME
377 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
378 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
379 ,X_MSG_COUNT => X_MSG_COUNT
380 ,X_MSG_DATA => X_MSG_DATA
381 ,X_RETURN_STATUS => X_RETURN_STATUS);
382
386 ,P_PKG_NAME => G_PKG_NAME
383 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
384 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
385 P_API_NAME => L_API_NAME
387 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
388 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
389 ,X_MSG_COUNT => X_MSG_COUNT
390 ,X_MSG_DATA => X_MSG_DATA
391 ,X_RETURN_STATUS => X_RETURN_STATUS);
392
393 WHEN OTHERS THEN
394 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
395 P_API_NAME => L_API_NAME
396 ,P_PKG_NAME => G_PKG_NAME
397 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
398 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
399 ,X_MSG_COUNT => X_MSG_COUNT
400 ,X_MSG_DATA => X_MSG_DATA
401 ,X_RETURN_STATUS => X_RETURN_STATUS);
402 End Update_orderheaders;
403
404
405 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
406 -- The Master delete procedure may not be needed depends on different business requirements.
407 PROCEDURE Delete_orderheaders(
408 P_Api_Version_Number IN NUMBER,
409 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
410 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
411 P_identity_salesforce_id IN NUMBER := NULL,
412 P_MOH_Rec IN MOH_Rec_Type,
413 X_Return_Status OUT NOCOPY VARCHAR2,
414 X_Msg_Count OUT NOCOPY NUMBER,
415 X_Msg_Data OUT NOCOPY VARCHAR2
416 )
417
418 IS
419 l_api_name CONSTANT VARCHAR2(30) := 'Delete_orderheaders';
420 l_api_version_number CONSTANT NUMBER := 2.0;
421 l_pvt_MOH_rec CSP_ORDERHEADERS_PVT.MOH_Rec_Type;
422 BEGIN
423 -- Standard Start of API savepoint
424 SAVEPOINT DELETE_ORDERHEADERS_PUB;
425
426 -- Standard call to check for call compatibility.
427 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
428 p_api_version_number,
429 l_api_name,
430 G_PKG_NAME)
431 THEN
432 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
433 END IF;
434
435
436 -- Initialize message list if p_init_msg_list is set to TRUE.
437 IF FND_API.to_Boolean( p_init_msg_list )
438 THEN
439 FND_MSG_PUB.initialize;
440 END IF;
441
442
443 -- Debug Message
444 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
445
446
447 -- Initialize API return status to SUCCESS
448 x_return_status := FND_API.G_RET_STS_SUCCESS;
449
450 --
451 -- API body
452 --
453
454 -- Debug Message
455 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'AS: Public API: Convert_MOH_Values_To_Ids');
456
457 -- Convert the values to ids
458 --
459 Convert_MOH_Values_To_Ids (
460 p_MOH_rec => p_MOH_rec,
461 x_pvt_MOH_rec => l_pvt_MOH_rec
462 );
463
464 CSP_orderheaders_PVT.Delete_orderheaders(
465 P_Api_Version_Number => 2.0,
466 P_Init_Msg_List => FND_API.G_FALSE,
467 P_Commit => p_commit,
468 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
469 P_Identity_Salesforce_Id => p_identity_salesforce_id,
470 P_MOH_Rec => l_pvt_MOH_Rec,
471 X_Return_Status => x_return_status,
472 X_Msg_Count => x_msg_count,
473 X_Msg_Data => x_msg_data);
474
475
476
477 -- Check return status from the above procedure call
478 IF x_return_status = FND_API.G_RET_STS_ERROR then
479 raise FND_API.G_EXC_ERROR;
480 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
481 raise FND_API.G_EXC_UNEXPECTED_ERROR;
482 END IF;
483
484 --
485 -- End of API body
486 --
487
488 -- Standard check for p_commit
489 IF FND_API.to_Boolean( p_commit )
490 THEN
491 COMMIT WORK;
492 END IF;
493
494
495 -- Debug Message
496 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
497
498
499 -- Standard call to get message count and if count is 1, get message info.
500 FND_MSG_PUB.Count_And_Get
501 ( p_count => x_msg_count,
502 p_data => x_msg_data
503 );
504
505 EXCEPTION
506 WHEN FND_API.G_EXC_ERROR THEN
507 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
508 P_API_NAME => L_API_NAME
509 ,P_PKG_NAME => G_PKG_NAME
510 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
511 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
512 ,X_MSG_COUNT => X_MSG_COUNT
513 ,X_MSG_DATA => X_MSG_DATA
517 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
514 ,X_RETURN_STATUS => X_RETURN_STATUS);
515
516 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
518 P_API_NAME => L_API_NAME
519 ,P_PKG_NAME => G_PKG_NAME
520 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
521 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
522 ,X_MSG_COUNT => X_MSG_COUNT
523 ,X_MSG_DATA => X_MSG_DATA
524 ,X_RETURN_STATUS => X_RETURN_STATUS);
525
526 WHEN OTHERS THEN
527 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
528 P_API_NAME => L_API_NAME
529 ,P_PKG_NAME => G_PKG_NAME
530 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
531 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
532 ,X_MSG_COUNT => X_MSG_COUNT
533 ,X_MSG_DATA => X_MSG_DATA
534 ,X_RETURN_STATUS => X_RETURN_STATUS);
535 End Delete_orderheaders;
536
537
538 PROCEDURE Get_orderheaders(
539 P_Api_Version_Number IN NUMBER,
540 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
541 P_identity_salesforce_id IN NUMBER := NULL,
542 P_MOH_Rec IN CSP_orderheaders_PUB.MOH_Rec_Type,
543 -- Hint: Add list of bind variables here
544 p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
545 p_start_rec_prt IN NUMBER := 1,
546 p_return_tot_count IN NUMBER := FND_API.G_FALSE,
547 -- Hint: user defined record type
548 p_order_by_rec IN CSP_orderheaders_PUB.MOH_sort_rec_type,
549 x_return_status OUT NOCOPY VARCHAR2,
550 x_msg_count OUT NOCOPY NUMBER,
551 x_msg_data OUT NOCOPY VARCHAR2,
552 X_MOH_Tbl OUT NOCOPY CSP_orderheaders_PUB.MOH_Tbl_Type,
553 x_returned_rec_count OUT NOCOPY NUMBER,
554 x_next_rec_ptr OUT NOCOPY NUMBER,
555 x_tot_rec_count OUT NOCOPY NUMBER
556 -- other optional parameters
557 -- x_tot_rec_amount OUT NOCOPY NUMBER
558 )
559
560 IS
561 l_api_name CONSTANT VARCHAR2(30) := 'Get_orderheaders';
562 l_api_version_number CONSTANT NUMBER := 2.0;
563 BEGIN
564 -- Standard Start of API savepoint
565 SAVEPOINT GET_ORDERHEADERS_PUB;
566
567 -- Standard call to check for call compatibility.
568 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
569 p_api_version_number,
570 l_api_name,
571 G_PKG_NAME)
572 THEN
573 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
574 END IF;
575
576
577 -- Initialize message list if p_init_msg_list is set to TRUE.
578 IF FND_API.to_Boolean( p_init_msg_list )
579 THEN
580 FND_MSG_PUB.initialize;
581 END IF;
582
583
584 -- Debug Message
585 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
586
587
588 -- Initialize API return status to SUCCESS
589 x_return_status := FND_API.G_RET_STS_SUCCESS;
590
591 --
592 -- API body
593 --
594 -- Debug Message
595 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: - Calling PVT.Get_ORDERHEADERS');
596 /*
597 CSP_orderheaders_PVT.Get_orderheaders(
598 P_Api_Version_Number => 1.0,
599 P_Init_Msg_List => FND_API.G_FALSE,
600 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
601 P_Identity_Salesforce_id => p_identity_salesforce_id,
602 P_MOH_Rec => P_MOH_Rec,
603 p_rec_requested => p_rec_requested,
604 p_start_rec_prt => p_start_rec_prt,
605 p_return_tot_count => p_return_tot_count,
606 p_order_by_rec => p_order_by_rec,
607 X_Return_Status => x_return_status,
608 X_Msg_Count => x_msg_count,
609 X_Msg_Data => x_msg_data,
610 X_MOH_Tbl => X_MOH_Tbl,
611 x_returned_rec_count => x_returned_rec_count,
612 x_next_rec_ptr => x_next_rec_ptr,
613 x_tot_rec_count => x_tot_rec_count
614 );
615
616
617
618 -- Check return status from the above procedure call
619 IF x_return_status = FND_API.G_RET_STS_ERROR then
620 raise FND_API.G_EXC_ERROR;
621 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
622 raise FND_API.G_EXC_UNEXPECTED_ERROR;
623 END IF;
624 */
625 --
626 -- End of API body
627 --
628
629 -- Debug Message
630 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
631
632
633 -- Standard call to get message count and if count is 1, get message info.
634 FND_MSG_PUB.Count_And_Get
635 ( p_count => x_msg_count,
636 p_data => x_msg_data
637 );
638
639 EXCEPTION
640 WHEN FND_API.G_EXC_ERROR THEN
641 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
642 P_API_NAME => L_API_NAME
643 ,P_PKG_NAME => G_PKG_NAME
644 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
645 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
646 ,X_MSG_COUNT => X_MSG_COUNT
647 ,X_MSG_DATA => X_MSG_DATA
648 ,X_RETURN_STATUS => X_RETURN_STATUS);
649
650 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
651 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
652 P_API_NAME => L_API_NAME
653 ,P_PKG_NAME => G_PKG_NAME
654 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
655 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
656 ,X_MSG_COUNT => X_MSG_COUNT
657 ,X_MSG_DATA => X_MSG_DATA
658 ,X_RETURN_STATUS => X_RETURN_STATUS);
659
660 WHEN OTHERS THEN
661 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
662 P_API_NAME => L_API_NAME
663 ,P_PKG_NAME => G_PKG_NAME
664 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
665 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
666 ,X_MSG_COUNT => X_MSG_COUNT
667 ,X_MSG_DATA => X_MSG_DATA
668 ,X_RETURN_STATUS => X_RETURN_STATUS);
669 End Get_orderheaders;
670
671
672 End CSP_ORDERHEADERS_PUB;