[Home] [Help]
PACKAGE BODY: APPS.CSP_PACKLIST_HEADERS_PUB
Source
1 PACKAGE BODY CSP_Packlist_Headers_PUB AS
2 /* $Header: cspptahb.pls 115.6 2003/05/02 17:26:54 phegde ship $ */
3 -- Start of Comments
4 -- Package name : CSP_Packlist_Headers_PUB
5 -- Purpose :
6 -- History :
7 -- NOTE :
8 -- End of Comments
9
10
11 G_PKG_NAME CONSTANT VARCHAR2(30):= 'CSP_Packlist_Headers_PUB';
12 G_FILE_NAME CONSTANT VARCHAR2(12) := 'cspptahb.pls';
13
14 -- Start of Comments
15 -- ***************** Private Conversion Routines Values -> Ids **************
16 -- Purpose
17 --
18 -- This procedure takes a public Packlist_Headers record as input. It may contain
19 -- values or ids. All values are then converted into ids and a
20 -- private Packlist_Headersrecord 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_PLH_Values_To_Ids(
35 P_PLH_Rec IN CSP_packlist_headers_PUB.PLH_Rec_Type,
36 x_pvt_PLH_rec OUT NOCOPY CSP_packlist_headers_PVT.PLH_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 Packlist_Headers 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_PLH_rec.PACKLIST_HEADER_ID := P_PLH_Rec.PACKLIST_HEADER_ID;
91 x_pvt_PLH_rec.CREATED_BY := P_PLH_Rec.CREATED_BY;
92 x_pvt_PLH_rec.CREATION_DATE := P_PLH_Rec.CREATION_DATE;
93 x_pvt_PLH_rec.LAST_UPDATED_BY := P_PLH_Rec.LAST_UPDATED_BY;
94 x_pvt_PLH_rec.LAST_UPDATE_DATE := P_PLH_Rec.LAST_UPDATE_DATE;
95 x_pvt_PLH_rec.LAST_UPDATE_LOGIN := P_PLH_Rec.LAST_UPDATE_LOGIN;
96 x_pvt_PLH_rec.ORGANIZATION_ID := P_PLH_Rec.ORGANIZATION_ID;
97 x_pvt_PLH_rec.PACKLIST_NUMBER := P_PLH_Rec.PACKLIST_NUMBER;
98 x_pvt_PLH_rec.SUBINVENTORY_CODE := P_PLH_Rec.SUBINVENTORY_CODE;
99 x_pvt_PLH_rec.PACKLIST_STATUS := P_PLH_Rec.PACKLIST_STATUS;
100 x_pvt_PLH_rec.DATE_CREATED := P_PLH_Rec.DATE_CREATED;
101 x_pvt_PLH_rec.DATE_PACKED := P_PLH_Rec.DATE_PACKED;
102 x_pvt_PLH_rec.DATE_SHIPPED := P_PLH_Rec.DATE_SHIPPED;
103 x_pvt_PLH_rec.DATE_RECEIVED := P_PLH_Rec.DATE_RECEIVED;
104 x_pvt_PLH_rec.CARRIER := P_PLH_Rec.CARRIER;
105 x_pvt_PLH_rec.SHIPMENT_METHOD := P_PLH_Rec.SHIPMENT_METHOD;
106 x_pvt_PLH_rec.WAYBILL := P_PLH_Rec.WAYBILL;
107 x_pvt_PLH_rec.COMMENTS := P_PLH_Rec.COMMENTS;
108 x_pvt_PLH_rec.ADDRESS1 := P_PLH_Rec.ADDRESS1;
109 x_pvt_PLH_rec.ADDRESS2 := P_PLH_Rec.ADDRESS2;
110 x_pvt_PLH_rec.ADDRESS3 := P_PLH_Rec.ADDRESS3;
111 x_pvt_PLH_rec.ADDRESS4 := P_PLH_Rec.ADDRESS4;
112 x_pvt_PLH_rec.CITY := P_PLH_Rec.CITY;
113 x_pvt_PLH_rec.POSTAL_CODE := P_PLH_Rec.POSTAL_CODE;
114 x_pvt_PLH_rec.STATE := P_PLH_Rec.STATE;
115 x_pvt_PLH_rec.PROVINCE := P_PLH_Rec.PROVINCE;
116 x_pvt_PLH_rec.COUNTRY := P_PLH_Rec.COUNTRY;
117 x_pvt_PLH_rec.ATTRIBUTE_CATEGORY := P_PLH_Rec.ATTRIBUTE_CATEGORY;
118 x_pvt_PLH_rec.ATTRIBUTE1 := P_PLH_Rec.ATTRIBUTE1;
119 x_pvt_PLH_rec.ATTRIBUTE2 := P_PLH_Rec.ATTRIBUTE2;
120 x_pvt_PLH_rec.ATTRIBUTE3 := P_PLH_Rec.ATTRIBUTE3;
121 x_pvt_PLH_rec.ATTRIBUTE4 := P_PLH_Rec.ATTRIBUTE4;
122 x_pvt_PLH_rec.ATTRIBUTE5 := P_PLH_Rec.ATTRIBUTE5;
123 x_pvt_PLH_rec.ATTRIBUTE6 := P_PLH_Rec.ATTRIBUTE6;
124 x_pvt_PLH_rec.ATTRIBUTE7 := P_PLH_Rec.ATTRIBUTE7;
125 x_pvt_PLH_rec.ATTRIBUTE8 := P_PLH_Rec.ATTRIBUTE8;
126 x_pvt_PLH_rec.ATTRIBUTE9 := P_PLH_Rec.ATTRIBUTE9;
127 x_pvt_PLH_rec.ATTRIBUTE10 := P_PLH_Rec.ATTRIBUTE10;
128 x_pvt_PLH_rec.ATTRIBUTE11 := P_PLH_Rec.ATTRIBUTE11;
129 x_pvt_PLH_rec.ATTRIBUTE12 := P_PLH_Rec.ATTRIBUTE12;
130 x_pvt_PLH_rec.ATTRIBUTE13 := P_PLH_Rec.ATTRIBUTE13;
131 x_pvt_PLH_rec.ATTRIBUTE14 := P_PLH_Rec.ATTRIBUTE14;
132 x_pvt_PLH_rec.ATTRIBUTE15 := P_PLH_Rec.ATTRIBUTE15;
133 */
134
135 -- If there is an error in conversion precessing, raise an error.
136 IF l_any_errors
137 THEN
138 raise FND_API.G_EXC_ERROR;
139 END IF;
140
141 END Convert_PLH_Values_To_Ids;
142 PROCEDURE Create_packlist_headers(
143 P_Api_Version_Number IN NUMBER,
144 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
145 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
146 P_PLH_Rec IN PLH_Rec_Type := G_MISS_PLH_REC,
147 --Hint: Add detail tables as parameter lists if it's master-detail relationship.
148 X_PACKLIST_HEADER_ID OUT NOCOPY NUMBER,
149 X_Return_Status OUT NOCOPY VARCHAR2,
150 X_Msg_Count OUT NOCOPY NUMBER,
151 X_Msg_Data OUT NOCOPY VARCHAR2
152 )
153
154 IS
155 l_api_name CONSTANT VARCHAR2(30) := 'Create_packlist_headers';
156 l_api_version_number CONSTANT NUMBER := 1.0;
157 l_pvt_PLH_rec CSP_Packlist_Headers_PVT.PLH_Rec_Type;
158 BEGIN
159 -- Standard Start of API savepoint
160 SAVEPOINT CREATE_Packlist_Headers_PUB;
161
162 -- Standard call to check for call compatibility.
163 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
164 p_api_version_number,
165 l_api_name,
166 G_PKG_NAME)
167 THEN
168 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169 END IF;
170
171
172 -- Initialize message list if p_init_msg_list is set to TRUE.
173 IF FND_API.to_Boolean( p_init_msg_list )
174 THEN
175 FND_MSG_PUB.initialize;
176 END IF;
177
178
179 -- Debug Message
180 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
181
182
183 -- Initialize API return status to SUCCESS
184 x_return_status := FND_API.G_RET_STS_SUCCESS;
185
186 --
187 -- API body
188 --
189
190 -- Debug Message
191 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'AS: Public API: Convert_PLH_Values_To_Ids');
192
193 -- Convert the values to ids
194 --
195 Convert_PLH_Values_To_Ids (
196 p_PLH_rec => p_PLH_rec,
197 x_pvt_PLH_rec => l_pvt_PLH_rec
198 );
199
200 -- Calling Private package: Create_Packlist_Headers
201 -- Hint: Primary key needs to be returned
202 CSP_packlist_headers_PVT.Create_packlist_headers(
203 P_Api_Version_Number => 2.0,
204 P_Init_Msg_List => FND_API.G_FALSE,
205 P_Commit => FND_API.G_FALSE,
206 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
207 P_PLH_Rec => l_pvt_PLH_Rec ,
208 -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
209 X_PACKLIST_HEADER_ID => x_PACKLIST_HEADER_ID,
210 X_Return_Status => x_return_status,
211 X_Msg_Count => x_msg_count,
212 X_Msg_Data => x_msg_data);
213
214
215
216 -- Check return status from the above procedure call
217 IF x_return_status = FND_API.G_RET_STS_ERROR then
218 raise FND_API.G_EXC_ERROR;
219 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
220 raise FND_API.G_EXC_UNEXPECTED_ERROR;
221 END IF;
222
223 --
224 -- End of API body.
225 --
226
227 -- Standard check for p_commit
228 IF FND_API.to_Boolean( p_commit )
229 THEN
230 COMMIT WORK;
231 END IF;
232
233
234 -- Debug Message
235 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
236
237
238 -- Standard call to get message count and if count is 1, get message info.
239 FND_MSG_PUB.Count_And_Get
240 ( p_count => x_msg_count,
241 p_data => x_msg_data
242 );
243
244 EXCEPTION
245 WHEN FND_API.G_EXC_ERROR THEN
246 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
247 P_API_NAME => L_API_NAME
248 ,P_PKG_NAME => G_PKG_NAME
249 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
250 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
251 ,X_MSG_COUNT => X_MSG_COUNT
252 ,X_MSG_DATA => X_MSG_DATA
253 ,X_RETURN_STATUS => X_RETURN_STATUS);
254
255 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
256 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
257 P_API_NAME => L_API_NAME
258 ,P_PKG_NAME => G_PKG_NAME
259 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
260 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
261 ,X_MSG_COUNT => X_MSG_COUNT
262 ,X_MSG_DATA => X_MSG_DATA
263 ,X_RETURN_STATUS => X_RETURN_STATUS);
264
265 WHEN OTHERS THEN
266 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
267 P_API_NAME => L_API_NAME
268 ,P_PKG_NAME => G_PKG_NAME
269 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
270 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
271 ,X_MSG_COUNT => X_MSG_COUNT
272 ,X_MSG_DATA => X_MSG_DATA
273 ,X_RETURN_STATUS => X_RETURN_STATUS);
274 End Create_packlist_headers;
275
276
277 -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
278 PROCEDURE Update_packlist_headers(
279 P_Api_Version_Number IN NUMBER,
280 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
281 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
282 P_Identity_Salesforce_Id IN NUMBER := NULL,
283 P_PLH_Rec IN PLH_Rec_Type,
284 X_Return_Status OUT NOCOPY VARCHAR2,
285 X_Msg_Count OUT NOCOPY NUMBER,
286 X_Msg_Data OUT NOCOPY VARCHAR2
287 )
288
289 IS
290 l_api_name CONSTANT VARCHAR2(30) := 'Update_packlist_headers';
291 l_api_version_number CONSTANT NUMBER := 1.0;
292 l_pvt_PLH_rec CSP_Packlist_Headers_PVT.PLH_Rec_Type;
293 BEGIN
294 -- Standard Start of API savepoint
295 SAVEPOINT UPDATE_Packlist_Headers_PUB;
296
297 -- Standard call to check for call compatibility.
298 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
299 p_api_version_number,
300 l_api_name,
301 G_PKG_NAME)
302 THEN
303 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304 END IF;
305
306
307 -- Initialize message list if p_init_msg_list is set to TRUE.
308 IF FND_API.to_Boolean( p_init_msg_list )
309 THEN
310 FND_MSG_PUB.initialize;
311 END IF;
312
313
314 -- Debug Message
315 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
316
317
318 -- Initialize API return status to SUCCESS
319 x_return_status := FND_API.G_RET_STS_SUCCESS;
320
321 --
322 -- API body
323 --
324
325 -- Debug Message
326 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'AS: Public API: Convert_PLH_Values_To_Ids');
327
328 -- Convert the values to ids
329 --
330 Convert_PLH_Values_To_Ids (
331 p_PLH_rec => p_PLH_rec,
332 x_pvt_PLH_rec => l_pvt_PLH_rec
333 );
334
335 CSP_packlist_headers_PVT.Update_packlist_headers(
336 P_Api_Version_Number => 2.0,
337 P_Init_Msg_List => FND_API.G_FALSE,
338 P_Commit => p_commit,
339 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
340 P_Identity_Salesforce_Id => p_identity_salesforce_id,
341 P_PLH_Rec => l_pvt_PLH_Rec ,
342 X_Return_Status => x_return_status,
343 X_Msg_Count => x_msg_count,
344 X_Msg_Data => x_msg_data);
345
346
347
348 -- Check return status from the above procedure call
349 IF x_return_status = FND_API.G_RET_STS_ERROR then
350 raise FND_API.G_EXC_ERROR;
351 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
352 raise FND_API.G_EXC_UNEXPECTED_ERROR;
353 END IF;
354
355 --
356 -- End of API body
357 --
358
359 -- Standard check for p_commit
360 IF FND_API.to_Boolean( p_commit )
361 THEN
362 COMMIT WORK;
363 END IF;
364
365
366 -- Debug Message
367 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
368
369
370 -- Standard call to get message count and if count is 1, get message info.
371 FND_MSG_PUB.Count_And_Get
372 ( p_count => x_msg_count,
373 p_data => x_msg_data
374 );
375
376 EXCEPTION
380 ,P_PKG_NAME => G_PKG_NAME
377 WHEN FND_API.G_EXC_ERROR THEN
378 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
379 P_API_NAME => L_API_NAME
381 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
382 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
383 ,X_MSG_COUNT => X_MSG_COUNT
384 ,X_MSG_DATA => X_MSG_DATA
385 ,X_RETURN_STATUS => X_RETURN_STATUS);
386
387 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
388 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
389 P_API_NAME => L_API_NAME
390 ,P_PKG_NAME => G_PKG_NAME
391 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
392 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
393 ,X_MSG_COUNT => X_MSG_COUNT
394 ,X_MSG_DATA => X_MSG_DATA
395 ,X_RETURN_STATUS => X_RETURN_STATUS);
396
397 WHEN OTHERS THEN
398 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
399 P_API_NAME => L_API_NAME
400 ,P_PKG_NAME => G_PKG_NAME
401 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
402 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
403 ,X_MSG_COUNT => X_MSG_COUNT
404 ,X_MSG_DATA => X_MSG_DATA
405 ,X_RETURN_STATUS => X_RETURN_STATUS);
406 End Update_packlist_headers;
407
408
409 -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
410 -- The Master delete procedure may not be needed depends on different business requirements.
411 PROCEDURE Delete_packlist_headers(
412 P_Api_Version_Number IN NUMBER,
413 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
414 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
415 P_identity_salesforce_id IN NUMBER := NULL,
416 P_PLH_Rec IN PLH_Rec_Type,
417 X_Return_Status OUT NOCOPY VARCHAR2,
418 X_Msg_Count OUT NOCOPY NUMBER,
419 X_Msg_Data OUT NOCOPY VARCHAR2
420 )
421
422 IS
423 l_api_name CONSTANT VARCHAR2(30) := 'Delete_packlist_headers';
424 l_api_version_number CONSTANT NUMBER := 1.0;
425 l_pvt_PLH_rec CSP_Packlist_Headers_PVT.PLH_Rec_Type;
426 BEGIN
427 -- Standard Start of API savepoint
428 SAVEPOINT DELETE_Packlist_Headers_PUB;
429
430 -- Standard call to check for call compatibility.
431 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
432 p_api_version_number,
433 l_api_name,
434 G_PKG_NAME)
435 THEN
436 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437 END IF;
438
439
440 -- Initialize message list if p_init_msg_list is set to TRUE.
441 IF FND_API.to_Boolean( p_init_msg_list )
442 THEN
443 FND_MSG_PUB.initialize;
444 END IF;
445
446
447 -- Debug Message
448 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
449
450
451 -- Initialize API return status to SUCCESS
452 x_return_status := FND_API.G_RET_STS_SUCCESS;
453
454 --
455 -- API body
456 --
457
458 -- Debug Message
459 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'AS: Public API: Convert_PLH_Values_To_Ids');
460
461 -- Convert the values to ids
462 --
463 Convert_PLH_Values_To_Ids (
464 p_PLH_rec => p_PLH_rec,
465 x_pvt_PLH_rec => l_pvt_PLH_rec
466 );
467
468 CSP_packlist_headers_PVT.Delete_packlist_headers(
469 P_Api_Version_Number => 2.0,
470 P_Init_Msg_List => FND_API.G_FALSE,
471 P_Commit => p_commit,
472 P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
473 P_Identity_Salesforce_Id => p_identity_salesforce_id,
474 P_PLH_Rec => l_pvt_PLH_Rec,
475 X_Return_Status => x_return_status,
476 X_Msg_Count => x_msg_count,
477 X_Msg_Data => x_msg_data);
478
479
480
481 -- Check return status from the above procedure call
482 IF x_return_status = FND_API.G_RET_STS_ERROR then
483 raise FND_API.G_EXC_ERROR;
484 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
485 raise FND_API.G_EXC_UNEXPECTED_ERROR;
486 END IF;
487
488 --
489 -- End of API body
490 --
491
492 -- Standard check for p_commit
493 IF FND_API.to_Boolean( p_commit )
494 THEN
495 COMMIT WORK;
496 END IF;
497
498
499 -- Debug Message
500 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
501
502
503 -- Standard call to get message count and if count is 1, get message info.
504 FND_MSG_PUB.Count_And_Get
505 ( p_count => x_msg_count,
506 p_data => x_msg_data
510 WHEN FND_API.G_EXC_ERROR THEN
507 );
508
509 EXCEPTION
511 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
512 P_API_NAME => L_API_NAME
513 ,P_PKG_NAME => G_PKG_NAME
514 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
515 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
516 ,X_MSG_COUNT => X_MSG_COUNT
517 ,X_MSG_DATA => X_MSG_DATA
518 ,X_RETURN_STATUS => X_RETURN_STATUS);
519
520 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
521 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
522 P_API_NAME => L_API_NAME
523 ,P_PKG_NAME => G_PKG_NAME
524 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
525 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
526 ,X_MSG_COUNT => X_MSG_COUNT
527 ,X_MSG_DATA => X_MSG_DATA
528 ,X_RETURN_STATUS => X_RETURN_STATUS);
529
530 WHEN OTHERS THEN
531 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
532 P_API_NAME => L_API_NAME
533 ,P_PKG_NAME => G_PKG_NAME
534 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
535 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
536 ,X_MSG_COUNT => X_MSG_COUNT
537 ,X_MSG_DATA => X_MSG_DATA
538 ,X_RETURN_STATUS => X_RETURN_STATUS);
539 End Delete_packlist_headers;
540
541
542 PROCEDURE Get_packlist_headers(
543 P_Api_Version_Number IN NUMBER,
544 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
545 P_identity_salesforce_id IN NUMBER := NULL,
546 P_PLH_Rec IN CSP_packlist_headers_PUB.PLH_Rec_Type,
547 -- Hint: Add list of bind variables here
548 p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
549 p_start_rec_prt IN NUMBER := 1,
550 p_return_tot_count IN NUMBER := FND_API.G_FALSE,
551 -- Hint: user defined record type
552 p_order_by_rec IN CSP_packlist_headers_PUB.PLH_sort_rec_type,
553 x_return_status OUT NOCOPY VARCHAR2,
554 x_msg_count OUT NOCOPY NUMBER,
555 x_msg_data OUT NOCOPY VARCHAR2,
556 X_PLH_Tbl OUT NOCOPY CSP_packlist_headers_PUB.PLH_Tbl_Type,
557 x_returned_rec_count OUT NOCOPY NUMBER,
558 x_next_rec_ptr OUT NOCOPY NUMBER,
559 x_tot_rec_count OUT NOCOPY NUMBER
560 -- other optional parameters
561 -- x_tot_rec_amount OUT NOCOPY NUMBER
562 )
563
564 IS
565 l_api_name CONSTANT VARCHAR2(30) := 'Get_packlist_headers';
566 l_api_version_number CONSTANT NUMBER := 1.0;
567 BEGIN
568 -- Standard Start of API savepoint
569 SAVEPOINT GET_Packlist_Headers_PUB;
570
571 -- Standard call to check for call compatibility.
572 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
573 p_api_version_number,
574 l_api_name,
575 G_PKG_NAME)
576 THEN
577 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
578 END IF;
579
580
581 -- Initialize message list if p_init_msg_list is set to TRUE.
582 IF FND_API.to_Boolean( p_init_msg_list )
583 THEN
584 FND_MSG_PUB.initialize;
585 END IF;
586
587
588 -- Debug Message
589 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'start');
590
591
592 -- Initialize API return status to SUCCESS
593 x_return_status := FND_API.G_RET_STS_SUCCESS;
594
595 --
596 -- API body
597 --
598 -- Debug Message
599 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: - Calling PVT.Get_Packlist_Headers');
600 /*
601 CSP_packlist_headers_PVT.Get_packlist_headers(
602 P_Api_Version_Number => 2.0,
603 P_Init_Msg_List => FND_API.G_FALSE,
604 p_validation_level => FND_API.G_VALID_LEVEL_FULL,
605 P_Identity_Salesforce_id => p_identity_salesforce_id,
606 P_PLH_Rec => P_PLH_Rec,
607 p_rec_requested => p_rec_requested,
608 p_start_rec_prt => p_start_rec_prt,
609 p_return_tot_count => p_return_tot_count,
610 -- Hint: user defined record type
611 p_order_by_rec => p_order_by_rec,
612 X_Return_Status => x_return_status,
613 X_Msg_Count => x_msg_count,
614 X_Msg_Data => x_msg_data,
615 X_PLH_Tbl => X_PLH_Tbl,
616 x_returned_rec_count => x_returned_rec_count,
617 x_next_rec_ptr => x_next_rec_ptr,
618 x_tot_rec_count => x_tot_rec_count
619 -- other optional parameters
620 -- x_tot_rec_amount => x_tot_rec_amount
621 );
622
623
624
625 -- Check return status from the above procedure call
626 IF x_return_status = FND_API.G_RET_STS_ERROR then
627 raise FND_API.G_EXC_ERROR;
628 elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
629 raise FND_API.G_EXC_UNEXPECTED_ERROR;
630 END IF;
634 --
631 */
632 --
633 -- End of API body
635
636 -- Debug Message
637 JTF_PLSQL_API.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'CSP', 'Public API: ' || l_api_name || 'end');
638
639
640 -- Standard call to get message count and if count is 1, get message info.
641 FND_MSG_PUB.Count_And_Get
642 ( p_count => x_msg_count,
643 p_data => x_msg_data
644 );
645
646 EXCEPTION
647 WHEN FND_API.G_EXC_ERROR THEN
648 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
649 P_API_NAME => L_API_NAME
650 ,P_PKG_NAME => G_PKG_NAME
651 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
652 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
653 ,X_MSG_COUNT => X_MSG_COUNT
654 ,X_MSG_DATA => X_MSG_DATA
655 ,X_RETURN_STATUS => X_RETURN_STATUS);
656
657 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
658 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
659 P_API_NAME => L_API_NAME
660 ,P_PKG_NAME => G_PKG_NAME
661 ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
662 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
663 ,X_MSG_COUNT => X_MSG_COUNT
664 ,X_MSG_DATA => X_MSG_DATA
665 ,X_RETURN_STATUS => X_RETURN_STATUS);
666
667 WHEN OTHERS THEN
668 JTF_PLSQL_API.HANDLE_EXCEPTIONS(
669 P_API_NAME => L_API_NAME
670 ,P_PKG_NAME => G_PKG_NAME
671 ,P_EXCEPTION_LEVEL => JTF_PLSQL_API.G_EXC_OTHERS
672 ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
673 ,X_MSG_COUNT => X_MSG_COUNT
674 ,X_MSG_DATA => X_MSG_DATA
675 ,X_RETURN_STATUS => X_RETURN_STATUS);
676 End Get_packlist_headers;
677
678
679 End CSP_Packlist_Headers_PUB;