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
72: fnd_log.string
73: (
74: fnd_log.level_procedure,
75: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Update_Planned_Materials',
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
72: fnd_log.string
73: (
74: fnd_log.level_procedure,
75: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Update_Planned_Materials',
76: 'At the start of PLSQL procedure'
70:
71: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
72: fnd_log.string
73: (
74: fnd_log.level_procedure,
75: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Update_Planned_Materials',
76: 'At the start of PLSQL procedure'
77: );
78: END IF;
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: (
91: fnd_log.level_statement,
92: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
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: (
91: fnd_log.level_statement,
92: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
93: 'Request for Update Material Number of Records : '|| l_planned_materials_tbl.COUNT
87: --
88: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
89: fnd_log.string
90: (
91: fnd_log.level_statement,
92: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
93: 'Request for Update Material Number of Records : '|| l_planned_materials_tbl.COUNT
94: );
95:
96: END IF;
97:
98: IF l_planned_materials_tbl.COUNT > 0 THEN
99: --
100: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
101: fnd_log.string
102: (
103: fnd_log.level_procedure,
104: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
97:
98: IF l_planned_materials_tbl.COUNT > 0 THEN
99: --
100: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
101: fnd_log.string
102: (
103: fnd_log.level_procedure,
104: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
105: 'Before calling ahl ltp reqst matrl pvt.Update Planned Materials'
99: --
100: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
101: fnd_log.string
102: (
103: fnd_log.level_procedure,
104: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
105: 'Before calling ahl ltp reqst matrl pvt.Update Planned Materials'
106: );
107:
117: x_msg_count => l_msg_count,
118: x_msg_data => l_msg_data);
119: END IF;
120:
121: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
122: fnd_log.string
123: (
124: fnd_log.level_procedure,
125: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
118: x_msg_data => l_msg_data);
119: END IF;
120:
121: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
122: fnd_log.string
123: (
124: fnd_log.level_procedure,
125: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
126: 'After calling ahl ltp reqst matrl pvt.Update Planned Materials, Return Status : '|| l_return_status
120:
121: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
122: fnd_log.string
123: (
124: fnd_log.level_procedure,
125: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
126: 'After calling ahl ltp reqst matrl pvt.Update Planned Materials, Return Status : '|| l_return_status
127: );
128: END IF;
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
143: fnd_log.string
144: (
145: fnd_log.level_procedure,
146: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Update Planned Materials.end',
139: COMMIT WORK;
140: END IF;
141:
142: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
143: fnd_log.string
144: (
145: fnd_log.level_procedure,
146: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Update Planned Materials.end',
147: 'At the end of PLSQL procedure'
141:
142: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
143: fnd_log.string
144: (
145: fnd_log.level_procedure,
146: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Update Planned Materials.end',
147: 'At the end of PLSQL procedure'
148: );
149: END IF;
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
238: (
239: fnd_log.level_procedure,
240: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials',
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
238: (
239: fnd_log.level_procedure,
240: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials',
241: 'At the start of PLSQL procedure'
235:
236: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
237: fnd_log.string
238: (
239: fnd_log.level_procedure,
240: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials',
241: 'At the start of PLSQL procedure'
242: );
243: END IF;
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: (
256: fnd_log.level_statement,
257: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
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: (
256: fnd_log.level_statement,
257: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
258: 'Visit ID : '|| p_visit_id
252: --
253: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
254: fnd_log.string
255: (
256: fnd_log.level_statement,
257: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
258: 'Visit ID : '|| p_visit_id
259: );
260:
259: );
260:
261: END IF;
262:
263: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
264: fnd_log.string
265: (
266: fnd_log.level_procedure,
267: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
260:
261: END IF;
262:
263: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
264: fnd_log.string
265: (
266: fnd_log.level_procedure,
267: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
268: 'Before calling ahl ltp reqst matrl pvt.Process_Planned_Materials'
262:
263: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
264: fnd_log.string
265: (
266: fnd_log.level_procedure,
267: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
268: 'Before calling ahl ltp reqst matrl pvt.Process_Planned_Materials'
269: );
270:
286: x_return_status => l_return_status,
287: x_msg_count => l_msg_count,
288: x_msg_data => l_msg_data);
289:
290: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
291: fnd_log.string
292: (
293: fnd_log.level_procedure,
294: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
287: x_msg_count => l_msg_count,
288: x_msg_data => l_msg_data);
289:
290: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
291: fnd_log.string
292: (
293: fnd_log.level_procedure,
294: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
295: 'After calling ahl ltp reqst matrl pvt.Process_Planned_Materials, Return Status : '|| l_return_status
289:
290: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
291: fnd_log.string
292: (
293: fnd_log.level_procedure,
294: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API',
295: 'After calling ahl ltp reqst matrl pvt.Process_Planned_Materials, Return Status : '|| l_return_status
296: );
297: END IF;
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
312: fnd_log.string
313: (
314: fnd_log.level_procedure,
315: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials.end',
308: COMMIT WORK;
309: END IF;
310:
311: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
312: fnd_log.string
313: (
314: fnd_log.level_procedure,
315: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials.end',
316: 'At the end of PLSQL procedure'
310:
311: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
312: fnd_log.string
313: (
314: fnd_log.level_procedure,
315: 'ahl.plsql.AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials.end',
316: 'At the end of PLSQL procedure'
317: );
318: END IF;