27: -- Parameters :
28: --
29: -- Standard IN Parameters :
30: -- p_api_version IN NUMBER Required
31: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
32: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
33: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
34: -- Based on this flag, the API will set the default attributes.
35: -- p_module_type In VARCHAR2 Default NULL
28: --
29: -- Standard IN Parameters :
30: -- p_api_version IN NUMBER Required
31: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
32: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
33: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
34: -- Based on this flag, the API will set the default attributes.
35: -- p_module_type In VARCHAR2 Default NULL
36: -- This will be null.
29: -- Standard IN Parameters :
30: -- p_api_version IN NUMBER Required
31: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
32: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
33: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
34: -- Based on this flag, the API will set the default attributes.
35: -- p_module_type In VARCHAR2 Default NULL
36: -- This will be null.
37: -- Standard out Parameters :
44: --
45: --
46: PROCEDURE Update_Planned_Materials (
47: p_api_version IN NUMBER,
48: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
49: p_commit IN VARCHAR2 := FND_API.g_false,
50: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
51: p_module_type IN VARCHAR2 := 'JSP',
52: p_planned_Materials_tbl IN Planned_Materials_Tbl,
45: --
46: PROCEDURE Update_Planned_Materials (
47: p_api_version IN NUMBER,
48: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
49: p_commit IN VARCHAR2 := FND_API.g_false,
50: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
51: p_module_type IN VARCHAR2 := 'JSP',
52: p_planned_Materials_tbl IN Planned_Materials_Tbl,
53: x_return_status OUT NOCOPY VARCHAR2,
46: PROCEDURE Update_Planned_Materials (
47: p_api_version IN NUMBER,
48: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
49: p_commit IN VARCHAR2 := FND_API.g_false,
50: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
51: p_module_type IN VARCHAR2 := 'JSP',
52: p_planned_Materials_tbl IN Planned_Materials_Tbl,
53: x_return_status OUT NOCOPY VARCHAR2,
54: x_msg_count OUT NOCOPY NUMBER,
63: l_msg_data VARCHAR2(2000);
64: l_return_status VARCHAR2(1);
65: l_msg_count NUMBER;
66: --
67: l_commit VARCHAR2(10) := FND_API.g_false;
68: l_planned_materials_tbl planned_materials_tbl := p_planned_materials_tbl;
69: BEGIN
70:
71: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
78: END IF;
79: -- Standard start of API savepoint
80: SAVEPOINT Update_Planned_Materials;
81: -- Initialize message list if p_init_msg_list is set to TRUE
82: IF FND_API.To_Boolean( p_init_msg_list) THEN
83: FND_MSG_PUB.Initialize;
84: END IF;
85: -- Initialize API return status to success
86: x_return_status := FND_API.G_RET_STS_SUCCESS;
82: IF FND_API.To_Boolean( p_init_msg_list) THEN
83: FND_MSG_PUB.Initialize;
84: END IF;
85: -- Initialize API return status to success
86: x_return_status := FND_API.G_RET_STS_SUCCESS;
87: --
88: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
89: fnd_log.string
90: (
126: 'After calling ahl ltp reqst matrl pvt.Update Planned Materials, Return Status : '|| l_return_status
127: );
128: END IF;
129: -- Check Error Message stack.
130: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
131: l_msg_count := FND_MSG_PUB.count_msg;
132: IF l_msg_count > 0 THEN
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
129: -- Check Error Message stack.
130: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
131: l_msg_count := FND_MSG_PUB.count_msg;
132: IF l_msg_count > 0 THEN
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
135: END IF;
136:
137: -- Standard check of p_commit
134: END IF;
135: END IF;
136:
137: -- Standard check of p_commit
138: IF FND_API.TO_BOOLEAN(p_commit) THEN
139: COMMIT WORK;
140: END IF;
141:
142: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
147: 'At the end of PLSQL procedure'
148: );
149: END IF;
150: EXCEPTION
151: WHEN FND_API.G_EXC_ERROR THEN
152: x_return_status := FND_API.G_RET_STS_ERROR;
153: ROLLBACK TO Update_Planned_Materials;
154: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
155: p_data => x_msg_data,
148: );
149: END IF;
150: EXCEPTION
151: WHEN FND_API.G_EXC_ERROR THEN
152: x_return_status := FND_API.G_RET_STS_ERROR;
153: ROLLBACK TO Update_Planned_Materials;
154: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
155: p_data => x_msg_data,
156: p_encoded => fnd_api.g_false);
152: x_return_status := FND_API.G_RET_STS_ERROR;
153: ROLLBACK TO Update_Planned_Materials;
154: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
155: p_data => x_msg_data,
156: p_encoded => fnd_api.g_false);
157:
158:
159: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: p_data => x_msg_data,
156: p_encoded => fnd_api.g_false);
157:
158:
159: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: ROLLBACK TO Update_Planned_Materials;
162: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
163: p_data => x_msg_data,
156: p_encoded => fnd_api.g_false);
157:
158:
159: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: ROLLBACK TO Update_Planned_Materials;
162: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
163: p_data => x_msg_data,
164: p_encoded => fnd_api.g_false);
160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
161: ROLLBACK TO Update_Planned_Materials;
162: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
163: p_data => x_msg_data,
164: p_encoded => fnd_api.g_false);
165:
166:
167: WHEN OTHERS THEN
168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
164: p_encoded => fnd_api.g_false);
165:
166:
167: WHEN OTHERS THEN
168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
169: ROLLBACK TO Update_Planned_Materials;
170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
171: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
172: p_procedure_name => 'Update_Planned_Materials',
173: p_error_text => SUBSTR(SQLERRM,1,500));
174: END IF;
175: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
176: p_data => x_msg_data,
177: p_encoded => fnd_api.g_false);
178:
179: END Update_Planned_Materials;
180:
181: -- Start of Comments --
187: -- Parameters :
188: --
189: -- Standard IN Parameters :
190: -- p_api_version IN NUMBER Required
191: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
192: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
193: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
194: -- Based on this flag, the API will set the default attributes.
195: -- p_module_type In VARCHAR2 Default NULL
188: --
189: -- Standard IN Parameters :
190: -- p_api_version IN NUMBER Required
191: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
192: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
193: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
194: -- Based on this flag, the API will set the default attributes.
195: -- p_module_type In VARCHAR2 Default NULL
196: -- This will be null.
189: -- Standard IN Parameters :
190: -- p_api_version IN NUMBER Required
191: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
192: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
193: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
194: -- Based on this flag, the API will set the default attributes.
195: -- p_module_type In VARCHAR2 Default NULL
196: -- This will be null.
197: -- Standard out Parameters :
203: --
204: --
205: PROCEDURE Process_Planned_Materials (
206: p_api_version IN NUMBER,
207: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
208: p_commit IN VARCHAR2 := FND_API.g_false,
209: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
210: p_visit_id IN NUMBER,
211: p_visit_task_id IN NUMBER := NULL,
204: --
205: PROCEDURE Process_Planned_Materials (
206: p_api_version IN NUMBER,
207: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
208: p_commit IN VARCHAR2 := FND_API.g_false,
209: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
210: p_visit_id IN NUMBER,
211: p_visit_task_id IN NUMBER := NULL,
212: p_org_id IN NUMBER := NULL,
205: PROCEDURE Process_Planned_Materials (
206: p_api_version IN NUMBER,
207: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
208: p_commit IN VARCHAR2 := FND_API.g_false,
209: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
210: p_visit_id IN NUMBER,
211: p_visit_task_id IN NUMBER := NULL,
212: p_org_id IN NUMBER := NULL,
213: p_start_date IN DATE := NULL,
229: l_return_status VARCHAR2(1);
230: l_planned_order_flag VARCHAR2(10);
231: l_msg_count NUMBER;
232: --
233: l_commit VARCHAR2(10) := FND_API.g_false;
234: BEGIN
235:
236: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
237: fnd_log.string
243: END IF;
244: -- Standard start of API savepoint
245: SAVEPOINT Process_Planned_Materials;
246: -- Initialize message list if p_init_msg_list is set to TRUE
247: IF FND_API.To_Boolean( p_init_msg_list) THEN
248: FND_MSG_PUB.Initialize;
249: END IF;
250: -- Initialize API return status to success
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
247: IF FND_API.To_Boolean( p_init_msg_list) THEN
248: FND_MSG_PUB.Initialize;
249: END IF;
250: -- Initialize API return status to success
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
252: --
253: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
254: fnd_log.string
255: (
295: 'After calling ahl ltp reqst matrl pvt.Process_Planned_Materials, Return Status : '|| l_return_status
296: );
297: END IF;
298: -- Check Error Message stack.
299: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
300: l_msg_count := FND_MSG_PUB.count_msg;
301: IF l_msg_count > 0 THEN
302: RAISE FND_API.G_EXC_ERROR;
303: END IF;
298: -- Check Error Message stack.
299: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
300: l_msg_count := FND_MSG_PUB.count_msg;
301: IF l_msg_count > 0 THEN
302: RAISE FND_API.G_EXC_ERROR;
303: END IF;
304: END IF;
305:
306: -- Standard check of p_commit
303: END IF;
304: END IF;
305:
306: -- Standard check of p_commit
307: IF FND_API.TO_BOOLEAN(p_commit) THEN
308: COMMIT WORK;
309: END IF;
310:
311: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
316: 'At the end of PLSQL procedure'
317: );
318: END IF;
319: EXCEPTION
320: WHEN FND_API.G_EXC_ERROR THEN
321: x_return_status := FND_API.G_RET_STS_ERROR;
322: ROLLBACK TO Process_Planned_Materials;
323: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
324: p_data => x_msg_data,
317: );
318: END IF;
319: EXCEPTION
320: WHEN FND_API.G_EXC_ERROR THEN
321: x_return_status := FND_API.G_RET_STS_ERROR;
322: ROLLBACK TO Process_Planned_Materials;
323: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
324: p_data => x_msg_data,
325: p_encoded => fnd_api.g_false);
321: x_return_status := FND_API.G_RET_STS_ERROR;
322: ROLLBACK TO Process_Planned_Materials;
323: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
324: p_data => x_msg_data,
325: p_encoded => fnd_api.g_false);
326:
327:
328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
324: p_data => x_msg_data,
325: p_encoded => fnd_api.g_false);
326:
327:
328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
330: ROLLBACK TO Process_Planned_Materials;
331: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
332: p_data => x_msg_data,
325: p_encoded => fnd_api.g_false);
326:
327:
328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
330: ROLLBACK TO Process_Planned_Materials;
331: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
332: p_data => x_msg_data,
333: p_encoded => fnd_api.g_false);
329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
330: ROLLBACK TO Process_Planned_Materials;
331: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
332: p_data => x_msg_data,
333: p_encoded => fnd_api.g_false);
334:
335:
336: WHEN OTHERS THEN
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
333: p_encoded => fnd_api.g_false);
334:
335:
336: WHEN OTHERS THEN
337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
338: ROLLBACK TO Process_Planned_Materials;
339: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
340: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
341: p_procedure_name => 'Process_Planned_Materials',
342: p_error_text => SUBSTR(SQLERRM,1,500));
343: END IF;
344: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
345: p_data => x_msg_data,
346: p_encoded => fnd_api.g_false);
347: END Process_Planned_Materials;
348:
349: END AHL_LTP_REQST_MATRL_PUB;