20: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
21:
22: PROCEDURE Create_Claim_Lines_Int(
23: p_api_version_number IN NUMBER,
24: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
25: p_commit IN VARCHAR2 := FND_API.G_FALSE,
26:
27: x_return_status OUT NOCOPY VARCHAR2,
28: x_msg_count OUT NOCOPY NUMBER,
21:
22: PROCEDURE Create_Claim_Lines_Int(
23: p_api_version_number IN NUMBER,
24: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
25: p_commit IN VARCHAR2 := FND_API.G_FALSE,
26:
27: x_return_status OUT NOCOPY VARCHAR2,
28: x_msg_count OUT NOCOPY NUMBER,
29: x_msg_data OUT NOCOPY VARCHAR2,
40: -- Standard Start of API savepoint
41: SAVEPOINT CREATE_Claim_Lines_Int_PUB;
42:
43: -- Standard call to check for call compatibility.
44: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
45: p_api_version_number,
46: l_api_name,
47: G_PKG_NAME)
48: THEN
45: p_api_version_number,
46: l_api_name,
47: G_PKG_NAME)
48: THEN
49: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50: END IF;
51:
52: -- Initialize message list if p_init_msg_list is set to TRUE.
53: IF FND_API.to_Boolean( p_init_msg_list )
49: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50: END IF;
51:
52: -- Initialize message list if p_init_msg_list is set to TRUE.
53: IF FND_API.to_Boolean( p_init_msg_list )
54: THEN
55: FND_MSG_PUB.initialize;
56: END IF;
57:
61: END IF;
62:
63:
64: -- Initialize API return status to SUCCESS
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
66:
67: --
68: -- API body
69: --
70: -- Calling Private package: Create_Claim_Lines_Int
71: -- Hint: Primary key needs to be returned
72: OZF_Claim_Lines_Int_PVT.Create_Claim_Lines_Int(
73: p_api_version_number => 1.0,
74: p_init_msg_list => FND_API.G_FALSE,
75: p_commit => FND_API.G_FALSE,
76: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
77: x_return_status => x_return_status,
78: x_msg_count => x_msg_count,
71: -- Hint: Primary key needs to be returned
72: OZF_Claim_Lines_Int_PVT.Create_Claim_Lines_Int(
73: p_api_version_number => 1.0,
74: p_init_msg_list => FND_API.G_FALSE,
75: p_commit => FND_API.G_FALSE,
76: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
77: x_return_status => x_return_status,
78: x_msg_count => x_msg_count,
79: x_msg_data => x_msg_data,
72: OZF_Claim_Lines_Int_PVT.Create_Claim_Lines_Int(
73: p_api_version_number => 1.0,
74: p_init_msg_list => FND_API.G_FALSE,
75: p_commit => FND_API.G_FALSE,
76: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
77: x_return_status => x_return_status,
78: x_msg_count => x_msg_count,
79: x_msg_data => x_msg_data,
80: p_claim_lines_int_rec => l_pvt_claim_lines_int_rec,
81: x_interface_claim_line_id => x_interface_claim_line_id);
82:
83:
84: -- Check return status from the above procedure call
85: IF x_return_status = FND_API.G_RET_STS_ERROR then
86: RAISE FND_API.G_EXC_ERROR;
87: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
82:
83:
84: -- Check return status from the above procedure call
85: IF x_return_status = FND_API.G_RET_STS_ERROR then
86: RAISE FND_API.G_EXC_ERROR;
87: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
90: --
83:
84: -- Check return status from the above procedure call
85: IF x_return_status = FND_API.G_RET_STS_ERROR then
86: RAISE FND_API.G_EXC_ERROR;
87: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
90: --
91: -- End of API body.
84: -- Check return status from the above procedure call
85: IF x_return_status = FND_API.G_RET_STS_ERROR then
86: RAISE FND_API.G_EXC_ERROR;
87: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
90: --
91: -- End of API body.
92: --
91: -- End of API body.
92: --
93:
94: -- Standard check for p_commit
95: IF FND_API.to_Boolean( p_commit )
96: THEN
97: COMMIT WORK;
98: END IF;
99:
110: );
111: EXCEPTION
112:
113: WHEN OZF_Utility_PVT.resource_locked THEN
114: x_return_status := FND_API.g_ret_sts_error;
115: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
116:
117: WHEN FND_API.G_EXC_ERROR THEN
118: ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
113: WHEN OZF_Utility_PVT.resource_locked THEN
114: x_return_status := FND_API.g_ret_sts_error;
115: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
116:
117: WHEN FND_API.G_EXC_ERROR THEN
118: ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: -- Standard call to get message count and if count=1, get the message
121: FND_MSG_PUB.Count_And_Get (
115: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
116:
117: WHEN FND_API.G_EXC_ERROR THEN
118: ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: -- Standard call to get message count and if count=1, get the message
121: FND_MSG_PUB.Count_And_Get (
122: p_encoded => FND_API.G_FALSE,
123: p_count => x_msg_count,
118: ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: -- Standard call to get message count and if count=1, get the message
121: FND_MSG_PUB.Count_And_Get (
122: p_encoded => FND_API.G_FALSE,
123: p_count => x_msg_count,
124: p_data => x_msg_data
125: );
126:
123: p_count => x_msg_count,
124: p_data => x_msg_data
125: );
126:
127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128: ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130: -- Standard call to get message count and if count=1, get the message
131: FND_MSG_PUB.Count_And_Get (
125: );
126:
127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128: ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130: -- Standard call to get message count and if count=1, get the message
131: FND_MSG_PUB.Count_And_Get (
132: p_encoded => FND_API.G_FALSE,
133: p_count => x_msg_count,
128: ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130: -- Standard call to get message count and if count=1, get the message
131: FND_MSG_PUB.Count_And_Get (
132: p_encoded => FND_API.G_FALSE,
133: p_count => x_msg_count,
134: p_data => x_msg_data
135: );
136:
135: );
136:
137: WHEN OTHERS THEN
138: ROLLBACK TO CREATE_Claim_Lines_Int_PUB;
139: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
141: THEN
142: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
143: END IF;
142: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
143: END IF;
144: -- Standard call to get message count and if count=1, get the message
145: FND_MSG_PUB.Count_And_Get (
146: p_encoded => FND_API.G_FALSE,
147: p_count => x_msg_count,
148: p_data => x_msg_data
149: );
150: End Create_Claim_Lines_Int;
151:
152:
153: PROCEDURE Update_Claim_Lines_Int(
154: p_api_version_number IN NUMBER,
155: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
157:
158: x_return_status OUT NOCOPY VARCHAR2,
159: x_msg_count OUT NOCOPY NUMBER,
152:
153: PROCEDURE Update_Claim_Lines_Int(
154: p_api_version_number IN NUMBER,
155: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
157:
158: x_return_status OUT NOCOPY VARCHAR2,
159: x_msg_count OUT NOCOPY NUMBER,
160: x_msg_data OUT NOCOPY VARCHAR2,
172: -- Standard Start of API savepoint
173: SAVEPOINT UPDATE_Claim_Lines_Int_PUB;
174:
175: -- Standard call to check for call compatibility.
176: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
177: p_api_version_number,
178: l_api_name,
179: G_PKG_NAME)
180: THEN
177: p_api_version_number,
178: l_api_name,
179: G_PKG_NAME)
180: THEN
181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182: END IF;
183:
184: -- Initialize message list if p_init_msg_list is set to TRUE.
185: IF FND_API.to_Boolean( p_init_msg_list )
181: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
182: END IF;
183:
184: -- Initialize message list if p_init_msg_list is set to TRUE.
185: IF FND_API.to_Boolean( p_init_msg_list )
186: THEN
187: FND_MSG_PUB.initialize;
188: END IF;
189:
193: END IF;
194:
195:
196: -- Initialize API return status to SUCCESS
197: x_return_status := FND_API.G_RET_STS_SUCCESS;
198:
199: --
200: -- API body
201: --
200: -- API body
201: --
202: OZF_Claim_Lines_Int_PVT.Update_Claim_Lines_Int(
203: p_api_version_number => 1.0,
204: p_init_msg_list => FND_API.G_FALSE,
205: p_commit => p_commit,
206: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
207: x_return_status => x_return_status,
208: x_msg_count => x_msg_count,
202: OZF_Claim_Lines_Int_PVT.Update_Claim_Lines_Int(
203: p_api_version_number => 1.0,
204: p_init_msg_list => FND_API.G_FALSE,
205: p_commit => p_commit,
206: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
207: x_return_status => x_return_status,
208: x_msg_count => x_msg_count,
209: x_msg_data => x_msg_data,
210: p_claim_lines_int_rec => l_pvt_claim_lines_int_rec,
211: x_object_version_number => l_object_version_number );
212:
213:
214: -- Check return status from the above procedure call
215: IF x_return_status = FND_API.G_RET_STS_ERROR then
216: RAISE FND_API.G_EXC_ERROR;
217: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
212:
213:
214: -- Check return status from the above procedure call
215: IF x_return_status = FND_API.G_RET_STS_ERROR then
216: RAISE FND_API.G_EXC_ERROR;
217: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220: --
213:
214: -- Check return status from the above procedure call
215: IF x_return_status = FND_API.G_RET_STS_ERROR then
216: RAISE FND_API.G_EXC_ERROR;
217: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220: --
221: -- End of API body
214: -- Check return status from the above procedure call
215: IF x_return_status = FND_API.G_RET_STS_ERROR then
216: RAISE FND_API.G_EXC_ERROR;
217: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220: --
221: -- End of API body
222: --
221: -- End of API body
222: --
223:
224: -- Standard check for p_commit
225: IF FND_API.to_Boolean( p_commit )
226: THEN
227: COMMIT WORK;
228: END IF;
229:
240: );
241: EXCEPTION
242:
243: WHEN OZF_Utility_PVT.resource_locked THEN
244: x_return_status := FND_API.g_ret_sts_error;
245: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
246:
247: WHEN FND_API.G_EXC_ERROR THEN
248: ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
243: WHEN OZF_Utility_PVT.resource_locked THEN
244: x_return_status := FND_API.g_ret_sts_error;
245: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
246:
247: WHEN FND_API.G_EXC_ERROR THEN
248: ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: -- Standard call to get message count and if count=1, get the message
251: FND_MSG_PUB.Count_And_Get (
245: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
246:
247: WHEN FND_API.G_EXC_ERROR THEN
248: ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: -- Standard call to get message count and if count=1, get the message
251: FND_MSG_PUB.Count_And_Get (
252: p_encoded => FND_API.G_FALSE,
253: p_count => x_msg_count,
248: ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: -- Standard call to get message count and if count=1, get the message
251: FND_MSG_PUB.Count_And_Get (
252: p_encoded => FND_API.G_FALSE,
253: p_count => x_msg_count,
254: p_data => x_msg_data
255: );
256:
253: p_count => x_msg_count,
254: p_data => x_msg_data
255: );
256:
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258: ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260: -- Standard call to get message count and if count=1, get the message
261: FND_MSG_PUB.Count_And_Get (
255: );
256:
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258: ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260: -- Standard call to get message count and if count=1, get the message
261: FND_MSG_PUB.Count_And_Get (
262: p_encoded => FND_API.G_FALSE,
263: p_count => x_msg_count,
258: ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260: -- Standard call to get message count and if count=1, get the message
261: FND_MSG_PUB.Count_And_Get (
262: p_encoded => FND_API.G_FALSE,
263: p_count => x_msg_count,
264: p_data => x_msg_data
265: );
266:
265: );
266:
267: WHEN OTHERS THEN
268: ROLLBACK TO UPDATE_Claim_Lines_Int_PUB;
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
271: THEN
272: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
273: END IF;
272: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
273: END IF;
274: -- Standard call to get message count and if count=1, get the message
275: FND_MSG_PUB.Count_And_Get (
276: p_encoded => FND_API.G_FALSE,
277: p_count => x_msg_count,
278: p_data => x_msg_data
279: );
280: End Update_Claim_Lines_Int;
281:
282:
283: PROCEDURE Delete_Claim_Lines_Int(
284: p_api_version_number IN NUMBER,
285: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
286: p_commit IN VARCHAR2 := FND_API.G_FALSE,
287: x_return_status OUT NOCOPY VARCHAR2,
288: x_msg_count OUT NOCOPY NUMBER,
289: x_msg_data OUT NOCOPY VARCHAR2,
282:
283: PROCEDURE Delete_Claim_Lines_Int(
284: p_api_version_number IN NUMBER,
285: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
286: p_commit IN VARCHAR2 := FND_API.G_FALSE,
287: x_return_status OUT NOCOPY VARCHAR2,
288: x_msg_count OUT NOCOPY NUMBER,
289: x_msg_data OUT NOCOPY VARCHAR2,
290: p_interface_claim_line_id IN NUMBER,
301: -- Standard Start of API savepoint
302: SAVEPOINT DELETE_Claim_Lines_Int_PUB;
303:
304: -- Standard call to check for call compatibility.
305: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
306: p_api_version_number,
307: l_api_name,
308: G_PKG_NAME)
309: THEN
306: p_api_version_number,
307: l_api_name,
308: G_PKG_NAME)
309: THEN
310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
311: END IF;
312:
313: -- Initialize message list if p_init_msg_list is set to TRUE.
314: IF FND_API.to_Boolean( p_init_msg_list )
310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
311: END IF;
312:
313: -- Initialize message list if p_init_msg_list is set to TRUE.
314: IF FND_API.to_Boolean( p_init_msg_list )
315: THEN
316: FND_MSG_PUB.initialize;
317: END IF;
318:
322: END IF;
323:
324:
325: -- Initialize API return status to SUCCESS
326: x_return_status := FND_API.G_RET_STS_SUCCESS;
327:
328: --
329: -- API body
330: --
329: -- API body
330: --
331: OZF_Claim_Lines_Int_PVT.Delete_Claim_Lines_Int(
332: p_api_version_number => 1.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: x_return_status => x_return_status,
337: x_msg_count => x_msg_count,
331: OZF_Claim_Lines_Int_PVT.Delete_Claim_Lines_Int(
332: p_api_version_number => 1.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: x_return_status => x_return_status,
337: x_msg_count => x_msg_count,
338: x_msg_data => x_msg_data,
339: p_interface_claim_line_id => l_interface_claim_line_id,
340: p_object_version_number => l_object_version_number );
341:
342:
343: -- Check return status from the above procedure call
344: IF x_return_status = FND_API.G_RET_STS_ERROR then
345: RAISE FND_API.G_EXC_ERROR;
346: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
341:
342:
343: -- Check return status from the above procedure call
344: IF x_return_status = FND_API.G_RET_STS_ERROR then
345: RAISE FND_API.G_EXC_ERROR;
346: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
349: --
342:
343: -- Check return status from the above procedure call
344: IF x_return_status = FND_API.G_RET_STS_ERROR then
345: RAISE FND_API.G_EXC_ERROR;
346: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
349: --
350: -- End of API body
343: -- Check return status from the above procedure call
344: IF x_return_status = FND_API.G_RET_STS_ERROR then
345: RAISE FND_API.G_EXC_ERROR;
346: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
349: --
350: -- End of API body
351: --
350: -- End of API body
351: --
352:
353: -- Standard check for p_commit
354: IF FND_API.to_Boolean( p_commit )
355: THEN
356: COMMIT WORK;
357: END IF;
358:
369: );
370: EXCEPTION
371:
372: WHEN OZF_Utility_PVT.resource_locked THEN
373: x_return_status := FND_API.g_ret_sts_error;
374: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
375:
376: WHEN FND_API.G_EXC_ERROR THEN
377: ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
372: WHEN OZF_Utility_PVT.resource_locked THEN
373: x_return_status := FND_API.g_ret_sts_error;
374: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
375:
376: WHEN FND_API.G_EXC_ERROR THEN
377: ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: -- Standard call to get message count and if count=1, get the message
380: FND_MSG_PUB.Count_And_Get (
374: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
375:
376: WHEN FND_API.G_EXC_ERROR THEN
377: ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: -- Standard call to get message count and if count=1, get the message
380: FND_MSG_PUB.Count_And_Get (
381: p_encoded => FND_API.G_FALSE,
382: p_count => x_msg_count,
377: ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
378: x_return_status := FND_API.G_RET_STS_ERROR;
379: -- Standard call to get message count and if count=1, get the message
380: FND_MSG_PUB.Count_And_Get (
381: p_encoded => FND_API.G_FALSE,
382: p_count => x_msg_count,
383: p_data => x_msg_data
384: );
385:
382: p_count => x_msg_count,
383: p_data => x_msg_data
384: );
385:
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387: ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
389: -- Standard call to get message count and if count=1, get the message
390: FND_MSG_PUB.Count_And_Get (
384: );
385:
386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
387: ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
389: -- Standard call to get message count and if count=1, get the message
390: FND_MSG_PUB.Count_And_Get (
391: p_encoded => FND_API.G_FALSE,
392: p_count => x_msg_count,
387: ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
389: -- Standard call to get message count and if count=1, get the message
390: FND_MSG_PUB.Count_And_Get (
391: p_encoded => FND_API.G_FALSE,
392: p_count => x_msg_count,
393: p_data => x_msg_data
394: );
395:
394: );
395:
396: WHEN OTHERS THEN
397: ROLLBACK TO DELETE_Claim_Lines_Int_PUB;
398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
400: THEN
401: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
402: END IF;
401: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
402: END IF;
403: -- Standard call to get message count and if count=1, get the message
404: FND_MSG_PUB.Count_And_Get (
405: p_encoded => FND_API.G_FALSE,
406: p_count => x_msg_count,
407: p_data => x_msg_data
408: );
409: End Delete_Claim_Lines_Int;
410:
411:
412: PROCEDURE Lock_Claim_Lines_Int(
413: p_api_version_number IN NUMBER,
414: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
415: x_return_status OUT NOCOPY VARCHAR2,
416: x_msg_count OUT NOCOPY NUMBER,
417: x_msg_data OUT NOCOPY VARCHAR2,
418:
426: l_pvt_claim_lines_int_rec OZF_Claim_Lines_Int_PVT.claim_lines_int_rec_type;
427: BEGIN
428:
429: -- Standard call to check for call compatibility.
430: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
431: p_api_version_number,
432: l_api_name,
433: G_PKG_NAME)
434: THEN
431: p_api_version_number,
432: l_api_name,
433: G_PKG_NAME)
434: THEN
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437:
438: -- Initialize message list if p_init_msg_list is set to TRUE.
439: IF FND_API.to_Boolean( p_init_msg_list )
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437:
438: -- Initialize message list if p_init_msg_list is set to TRUE.
439: IF FND_API.to_Boolean( p_init_msg_list )
440: THEN
441: FND_MSG_PUB.initialize;
442: END IF;
443:
447: END IF;
448:
449:
450: -- Initialize API return status to SUCCESS
451: x_return_status := FND_API.G_RET_STS_SUCCESS;
452:
453: --
454: -- API body
455: --
456: -- Calling Private package: Create_Claim_Lines_Int
457: -- Hint: Primary key needs to be returned
458: OZF_Claim_Lines_Int_PVT.Lock_Claim_Lines_Int(
459: p_api_version_number => 1.0,
460: p_init_msg_list => FND_API.G_FALSE,
461: x_return_status => x_return_status,
462: x_msg_count => x_msg_count,
463: x_msg_data => x_msg_data,
464: p_interface_claim_line_id => p_interface_claim_line_id,
465: p_object_version => p_object_version);
466:
467:
468: -- Check return status from the above procedure call
469: IF x_return_status = FND_API.G_RET_STS_ERROR then
470: RAISE FND_API.G_EXC_ERROR;
471: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
473: END IF;
466:
467:
468: -- Check return status from the above procedure call
469: IF x_return_status = FND_API.G_RET_STS_ERROR then
470: RAISE FND_API.G_EXC_ERROR;
471: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
473: END IF;
474: --
467:
468: -- Check return status from the above procedure call
469: IF x_return_status = FND_API.G_RET_STS_ERROR then
470: RAISE FND_API.G_EXC_ERROR;
471: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
473: END IF;
474: --
475: -- End of API body.
468: -- Check return status from the above procedure call
469: IF x_return_status = FND_API.G_RET_STS_ERROR then
470: RAISE FND_API.G_EXC_ERROR;
471: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
473: END IF;
474: --
475: -- End of API body.
476: --
482:
483: EXCEPTION
484:
485: WHEN OZF_Utility_PVT.resource_locked THEN
486: x_return_status := FND_API.g_ret_sts_error;
487: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
488:
489: WHEN FND_API.G_EXC_ERROR THEN
490: ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
485: WHEN OZF_Utility_PVT.resource_locked THEN
486: x_return_status := FND_API.g_ret_sts_error;
487: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
488:
489: WHEN FND_API.G_EXC_ERROR THEN
490: ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: -- Standard call to get message count and if count=1, get the message
493: FND_MSG_PUB.Count_And_Get (
487: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
488:
489: WHEN FND_API.G_EXC_ERROR THEN
490: ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: -- Standard call to get message count and if count=1, get the message
493: FND_MSG_PUB.Count_And_Get (
494: p_encoded => FND_API.G_FALSE,
495: p_count => x_msg_count,
490: ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: -- Standard call to get message count and if count=1, get the message
493: FND_MSG_PUB.Count_And_Get (
494: p_encoded => FND_API.G_FALSE,
495: p_count => x_msg_count,
496: p_data => x_msg_data
497: );
498:
495: p_count => x_msg_count,
496: p_data => x_msg_data
497: );
498:
499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500: ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: -- Standard call to get message count and if count=1, get the message
503: FND_MSG_PUB.Count_And_Get (
497: );
498:
499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500: ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: -- Standard call to get message count and if count=1, get the message
503: FND_MSG_PUB.Count_And_Get (
504: p_encoded => FND_API.G_FALSE,
505: p_count => x_msg_count,
500: ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: -- Standard call to get message count and if count=1, get the message
503: FND_MSG_PUB.Count_And_Get (
504: p_encoded => FND_API.G_FALSE,
505: p_count => x_msg_count,
506: p_data => x_msg_data
507: );
508:
507: );
508:
509: WHEN OTHERS THEN
510: ROLLBACK TO LOCK_Claim_Lines_Int_PUB;
511: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
513: THEN
514: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
515: END IF;
514: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
515: END IF;
516: -- Standard call to get message count and if count=1, get the message
517: FND_MSG_PUB.Count_And_Get (
518: p_encoded => FND_API.G_FALSE,
519: p_count => x_msg_count,
520: p_data => x_msg_data
521: );
522: End Lock_Claim_Lines_Int;