24: ----------------------------------------------------------------------
25:
26: PROCEDURE Insert_HeaderLog(
27: p_api_version IN NUMBER
28: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
29: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
30: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
31: ,x_return_status OUT NOCOPY VARCHAR2
32: ,x_msg_count OUT NOCOPY NUMBER
25:
26: PROCEDURE Insert_HeaderLog(
27: p_api_version IN NUMBER
28: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
29: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
30: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
31: ,x_return_status OUT NOCOPY VARCHAR2
32: ,x_msg_count OUT NOCOPY NUMBER
33: ,x_msg_data OUT NOCOPY VARCHAR2
26: PROCEDURE Insert_HeaderLog(
27: p_api_version IN NUMBER
28: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
29: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
30: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
31: ,x_return_status OUT NOCOPY VARCHAR2
32: ,x_msg_count OUT NOCOPY NUMBER
33: ,x_msg_data OUT NOCOPY VARCHAR2
34: ,p_txn_hdr_rec IN dpp_cst_hdr_rec_type
46:
47: -- Standard begin of API savepoint
48: SAVEPOINT Insert_HeaderLog_PVT;
49: -- Standard call to check for call compatibility.
50: IF NOT FND_API.Compatible_API_Call ( l_api_version,
51: p_api_version,
52: l_api_name,
53: G_PKG_NAME)
54: THEN
51: p_api_version,
52: l_api_name,
53: G_PKG_NAME)
54: THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57: -- Initialize message list if p_init_msg_list is set to TRUE.
58: IF FND_API.to_Boolean( p_init_msg_list )
59: THEN
54: THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57: -- Initialize message list if p_init_msg_list is set to TRUE.
58: IF FND_API.to_Boolean( p_init_msg_list )
59: THEN
60: FND_MSG_PUB.initialize;
61: END IF;
62:
63:
64: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'start');
65:
66: -- Initialize API return status to sucess
67: x_return_status := FND_API.G_RET_STS_SUCCESS;
68:
69: --
70: -- API body
71: --
113:
114: END IF;
115:
116: -- Standard check for p_commit
117: IF FND_API.to_Boolean( p_commit )
118: THEN
119: COMMIT WORK;
120: END IF;
121:
128: );
129:
130: --Exception Handling
131: EXCEPTION
132: WHEN FND_API.G_EXC_ERROR THEN
133: ROLLBACK TO INSERT_HEADERLOG_PVT;
134: x_return_status := FND_API.G_RET_STS_ERROR;
135: -- Standard call to get message count and if count=1, get the message
136: FND_MSG_PUB.Count_And_Get (
130: --Exception Handling
131: EXCEPTION
132: WHEN FND_API.G_EXC_ERROR THEN
133: ROLLBACK TO INSERT_HEADERLOG_PVT;
134: x_return_status := FND_API.G_RET_STS_ERROR;
135: -- Standard call to get message count and if count=1, get the message
136: FND_MSG_PUB.Count_And_Get (
137: p_encoded => FND_API.G_FALSE,
138: p_count => x_msg_count,
133: ROLLBACK TO INSERT_HEADERLOG_PVT;
134: x_return_status := FND_API.G_RET_STS_ERROR;
135: -- Standard call to get message count and if count=1, get the message
136: FND_MSG_PUB.Count_And_Get (
137: p_encoded => FND_API.G_FALSE,
138: p_count => x_msg_count,
139: p_data => x_msg_data
140: );
141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
137: p_encoded => FND_API.G_FALSE,
138: p_count => x_msg_count,
139: p_data => x_msg_data
140: );
141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
142: ROLLBACK TO INSERT_HEADERLOG_PVT;
143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144: -- Standard call to get message count and if count=1, get the message
145: FND_MSG_PUB.Count_And_Get (
139: p_data => x_msg_data
140: );
141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
142: ROLLBACK TO INSERT_HEADERLOG_PVT;
143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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,
142: ROLLBACK TO INSERT_HEADERLOG_PVT;
143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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: WHEN OTHERS THEN
148: p_data => x_msg_data
149: );
150: WHEN OTHERS THEN
151: ROLLBACK TO INSERT_HEADERLOG_PVT;
152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
154: fnd_message.set_token('ROUTINE', 'DPP_LOG_PVT.Insert_HeaderLog');
155: fnd_message.set_token('ERRNO', sqlcode);
156: fnd_message.set_token('REASON', sqlerrm);
156: fnd_message.set_token('REASON', sqlerrm);
157: FND_MSG_PUB.ADD;
158: -- Standard call to get message count and if count=1, get the message
159: FND_MSG_PUB.Count_And_Get (
160: p_encoded => FND_API.G_FALSE,
161: p_count => x_msg_count,
162: p_data => x_msg_data
163: );
164:
165: END Insert_HeaderLog;
166:
167: PROCEDURE Insert_LinesLog(
168: p_api_version IN NUMBER
169: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
170: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
171: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
172: ,x_return_status OUT NOCOPY VARCHAR2
173: ,x_msg_count OUT NOCOPY NUMBER
166:
167: PROCEDURE Insert_LinesLog(
168: p_api_version IN NUMBER
169: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
170: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
171: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
172: ,x_return_status OUT NOCOPY VARCHAR2
173: ,x_msg_count OUT NOCOPY NUMBER
174: ,x_msg_data OUT NOCOPY VARCHAR2
167: PROCEDURE Insert_LinesLog(
168: p_api_version IN NUMBER
169: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
170: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
171: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
172: ,x_return_status OUT NOCOPY VARCHAR2
173: ,x_msg_count OUT NOCOPY NUMBER
174: ,x_msg_data OUT NOCOPY VARCHAR2
175: ,p_txn_lines_tbl IN dpp_txn_line_tbl_type
186:
187: -- Standard begin of API savepoint
188: SAVEPOINT Insert_LinesLog_PVT;
189: -- Standard call to check for call compatibility.
190: IF NOT FND_API.Compatible_API_Call ( l_api_version,
191: p_api_version,
192: l_api_name,
193: G_PKG_NAME)
194: THEN
191: p_api_version,
192: l_api_name,
193: G_PKG_NAME)
194: THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197: -- Initialize message list if p_init_msg_list is set to TRUE.
198: IF FND_API.to_Boolean( p_init_msg_list )
199: THEN
194: THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197: -- Initialize message list if p_init_msg_list is set to TRUE.
198: IF FND_API.to_Boolean( p_init_msg_list )
199: THEN
200: FND_MSG_PUB.initialize;
201: END IF;
202:
203:
204: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'start');
205:
206: -- Initialize API return status to sucess
207: x_return_status := FND_API.G_RET_STS_SUCCESS;
208:
209: --
210: -- API body
211: --
269:
270: END IF;
271:
272: -- Standard check for p_commit
273: IF FND_API.to_Boolean( p_commit )
274: THEN
275: COMMIT WORK;
276: END IF;
277:
287: EXCEPTION
288:
289: WHEN OTHERS THEN
290: ROLLBACK TO INSERT_LINESLOG_PVT;
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
293: fnd_message.set_token('ROUTINE', 'DPP_LOG_PVT.Insert_LinesLog');
294: fnd_message.set_token('ERRNO', sqlcode);
295: fnd_message.set_token('REASON', sqlerrm);
295: fnd_message.set_token('REASON', sqlerrm);
296: FND_MSG_PUB.ADD;
297: -- Standard call to get message count and if count=1, get the message
298: FND_MSG_PUB.Count_And_Get (
299: p_encoded => FND_API.G_FALSE,
300: p_count => x_msg_count,
301: p_data => x_msg_data
302: );
303: END Insert_LinesLog;
303: END Insert_LinesLog;
304:
305: PROCEDURE Insert_ClaimsLog(
306: p_api_version IN NUMBER
307: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
308: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
309: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
310: ,x_return_status OUT NOCOPY VARCHAR2
311: ,x_msg_count OUT NOCOPY NUMBER
304:
305: PROCEDURE Insert_ClaimsLog(
306: p_api_version IN NUMBER
307: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
308: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
309: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
310: ,x_return_status OUT NOCOPY VARCHAR2
311: ,x_msg_count OUT NOCOPY NUMBER
312: ,x_msg_data OUT NOCOPY VARCHAR2
305: PROCEDURE Insert_ClaimsLog(
306: p_api_version IN NUMBER
307: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
308: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
309: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
310: ,x_return_status OUT NOCOPY VARCHAR2
311: ,x_msg_count OUT NOCOPY NUMBER
312: ,x_msg_data OUT NOCOPY VARCHAR2
313: ,p_claim_lines_tbl IN dpp_claim_line_tbl_type
324:
325: -- Standard begin of API savepoint
326: SAVEPOINT Insert_ClaimsLog_PVT;
327: -- Standard call to check for call compatibility.
328: IF NOT FND_API.Compatible_API_Call ( l_api_version,
329: p_api_version,
330: l_api_name,
331: G_PKG_NAME)
332: THEN
329: p_api_version,
330: l_api_name,
331: G_PKG_NAME)
332: THEN
333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
334: END IF;
335: -- Initialize message list if p_init_msg_list is set to TRUE.
336: IF FND_API.to_Boolean( p_init_msg_list )
337: THEN
332: THEN
333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
334: END IF;
335: -- Initialize message list if p_init_msg_list is set to TRUE.
336: IF FND_API.to_Boolean( p_init_msg_list )
337: THEN
338: FND_MSG_PUB.initialize;
339: END IF;
340:
341:
342: DPP_UTILITY_PVT.DEBUG_MESSAGE( FND_LOG.LEVEL_PROCEDURE, 'dpp.plsql.' || L_FULL_NAME, 'Private API: ' || l_api_name || 'start');
343:
344: -- Initialize API return status to sucess
345: x_return_status := FND_API.G_RET_STS_SUCCESS;
346:
347: --
348: -- API body
349: --
401:
402: END IF;
403:
404: -- Standard check for p_commit
405: IF FND_API.to_Boolean( p_commit )
406: THEN
407: COMMIT WORK;
408: END IF;
409:
419: EXCEPTION
420:
421: WHEN OTHERS THEN
422: ROLLBACK TO INSERT_CLAIMSLOG_PVT;
423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
424: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
425: fnd_message.set_token('ROUTINE', 'DPP_LOG_PVT.Insert_ClaimsLog');
426: fnd_message.set_token('ERRNO', sqlcode);
427: fnd_message.set_token('REASON', sqlerrm);
427: fnd_message.set_token('REASON', sqlerrm);
428: FND_MSG_PUB.ADD;
429: -- Standard call to get message count and if count=1, get the message
430: FND_MSG_PUB.Count_And_Get (
431: p_encoded => FND_API.G_FALSE,
432: p_count => x_msg_count,
433: p_data => x_msg_data
434: );
435: END Insert_ClaimsLog;