88:
89: l_mr_rec mr_details_csr_type%rowtype;
90:
91: BEGIN
92: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
93: fnd_log.string
94: (
95: fnd_log.level_procedure,
96: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
89: l_mr_rec mr_details_csr_type%rowtype;
90:
91: BEGIN
92: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
93: fnd_log.string
94: (
95: fnd_log.level_procedure,
96: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
97: 'At the start of PLSQL procedure'
91: BEGIN
92: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
93: fnd_log.string
94: (
95: fnd_log.level_procedure,
96: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
97: 'At the start of PLSQL procedure'
98: );
99: END IF;
122: IF g_appln_usage is null
123: THEN
124: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
125: FND_MSG_PUB.ADD;
126: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
127: fnd_log.string
128: (
129: fnd_log.level_error,
130: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
123: THEN
124: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
125: FND_MSG_PUB.ADD;
126: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
127: fnd_log.string
128: (
129: fnd_log.level_error,
130: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
131: 'Error -- Application usage code is null'
125: FND_MSG_PUB.ADD;
126: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
127: fnd_log.string
128: (
129: fnd_log.level_error,
130: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
131: 'Error -- Application usage code is null'
132: );
133: END IF;
133: END IF;
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136:
137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
138: fnd_log.string
139: (
140: fnd_log.level_statement,
141: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136:
137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
138: fnd_log.string
139: (
140: fnd_log.level_statement,
141: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
142: 'Before doing value to id conversion.....'
136:
137: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
138: fnd_log.string
139: (
140: fnd_log.level_statement,
141: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
142: 'Before doing value to id conversion.....'
143: );
144: END IF;
154: p_lookup_meaning => p_x_association_tbl(i).object_type_desc,
155: p_x_lookup_code => p_x_association_tbl(i).object_type_code
156: );
157: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
158: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
159: fnd_log.string
160: (
161: fnd_log.level_statement,
162: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
155: p_x_lookup_code => p_x_association_tbl(i).object_type_code
156: );
157: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
158: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
159: fnd_log.string
160: (
161: fnd_log.level_statement,
162: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
163: 'Error -- Invalid lookup specified'
157: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
158: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
159: fnd_log.string
160: (
161: fnd_log.level_statement,
162: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
163: 'Error -- Invalid lookup specified'
164: );
165: END IF;
174: x_mr_header_id => p_x_association_tbl(i).mr_header_id,
175: x_return_status => x_return_status
176: );
177: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
178: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
179: fnd_log.string
180: (
181: fnd_log.level_error,
182: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
175: x_return_status => x_return_status
176: );
177: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
178: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
179: fnd_log.string
180: (
181: fnd_log.level_error,
182: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
183: 'Invalid MR Title, Version Number provided'
177: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
178: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
179: fnd_log.string
180: (
181: fnd_log.level_error,
182: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
183: 'Invalid MR Title, Version Number provided'
184: );
185: END IF;
198: IF mr_details_csr_type%NOTFOUND
199: THEN
200: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_EDIT_STATUS_INVALID');
201: FND_MSG_PUB.ADD;
202: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
203: fnd_log.string
204: (
205: fnd_log.level_error,
206: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
199: THEN
200: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_EDIT_STATUS_INVALID');
201: FND_MSG_PUB.ADD;
202: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
203: fnd_log.string
204: (
205: fnd_log.level_error,
206: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
207: 'Invalid MR Info..'
201: FND_MSG_PUB.ADD;
202: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
203: fnd_log.string
204: (
205: fnd_log.level_error,
206: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
207: 'Invalid MR Info..'
208: );
209: END IF;
215: IF l_mr_rec.type_code='PROGRAM'
216: THEN
217: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TYPE_CODE_PROGRAM');
218: FND_MSG_PUB.ADD;
219: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
220: fnd_log.string
221: (
222: fnd_log.level_error,
223: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
216: THEN
217: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TYPE_CODE_PROGRAM');
218: FND_MSG_PUB.ADD;
219: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
220: fnd_log.string
221: (
222: fnd_log.level_error,
223: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
224: 'Application usage code PM is invalid for MR with program type'||
218: FND_MSG_PUB.ADD;
219: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
220: fnd_log.string
221: (
222: fnd_log.level_error,
223: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
224: 'Application usage code PM is invalid for MR with program type'||
225: l_mr_rec.type_code
226: );
234:
235: END LOOP;
236: END IF;
237:
238: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
239: fnd_log.string
240: (
241: fnd_log.level_statement,
242: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
235: END LOOP;
236: END IF;
237:
238: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
239: fnd_log.string
240: (
241: fnd_log.level_statement,
242: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
243: 'Before copying mr table of records into doc table of records'
237:
238: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
239: fnd_log.string
240: (
241: fnd_log.level_statement,
242: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
243: 'Before copying mr table of records into doc table of records'
244: );
245: END IF;
249: p_x_association_tbl => p_x_association_tbl,
250: p_x_doc_assos_tbl => l_x_doc_assos_tbl
251: );
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: p_x_doc_assos_tbl => l_x_doc_assos_tbl
251: );
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: 'Before calling AHL_DI_ASSO_DOC_GEN_PUB.PROCESS_ASSOCIATION..'
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: 'Before calling AHL_DI_ASSO_DOC_GEN_PUB.PROCESS_ASSOCIATION..'
259: );
260: END IF;
274: x_msg_data => x_msg_data ,
275: p_x_association_tbl => l_x_doc_assos_tbl
276: ) ;
277:
278: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
279: fnd_log.string
280: (
281: fnd_log.level_statement,
282: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
275: p_x_association_tbl => l_x_doc_assos_tbl
276: ) ;
277:
278: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
279: fnd_log.string
280: (
281: fnd_log.level_statement,
282: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
283: 'After calling AHL_DI_ASSO_DOC_GEN_PUB.PROCESS_ASSOCIATION'
277:
278: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
279: fnd_log.string
280: (
281: fnd_log.level_statement,
282: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
283: 'After calling AHL_DI_ASSO_DOC_GEN_PUB.PROCESS_ASSOCIATION'
284: );
285: END IF;
285: END IF;
286:
287: -- If any severe error occurs, then, abort API.
288: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
289: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
290: fnd_log.string
291: (
292: fnd_log.level_statement,
293: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
286:
287: -- If any severe error occurs, then, abort API.
288: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
289: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
290: fnd_log.string
291: (
292: fnd_log.level_statement,
293: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
294: 'Invalid MR Title, Version Number provided'
288: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
289: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
290: fnd_log.string
291: (
292: fnd_log.level_statement,
293: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
294: 'Invalid MR Title, Version Number provided'
295: );
296: END IF;
295: );
296: END IF;
297: RAISE FND_API.G_EXC_ERROR;
298: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
299: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
300: fnd_log.string
301: (
302: fnd_log.level_statement,
303: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
296: END IF;
297: RAISE FND_API.G_EXC_ERROR;
298: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
299: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
300: fnd_log.string
301: (
302: fnd_log.level_statement,
303: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
304: 'Invalid MR Title, Version Number provided'
298: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
299: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
300: fnd_log.string
301: (
302: fnd_log.level_statement,
303: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
304: 'Invalid MR Title, Version Number provided'
305: );
306: END IF;
312: THEN
313: COMMIT;
314: END IF;
315:
316: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
317: fnd_log.string
318: (
319: fnd_log.level_procedure,
320: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.end',
313: COMMIT;
314: END IF;
315:
316: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
317: fnd_log.string
318: (
319: fnd_log.level_procedure,
320: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.end',
321: 'At the end of PLSQL procedure'
315:
316: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
317: fnd_log.string
318: (
319: fnd_log.level_procedure,
320: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.end',
321: 'At the end of PLSQL procedure'
322: );
323: END IF;
328: Rollback to process_association_pvt;
329: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
330: p_data => x_msg_data,
331: p_encoded => fnd_api.g_false);
332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
333: fnd_log.string
334: (
335: fnd_log.level_statement,
336: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
329: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
330: p_data => x_msg_data,
331: p_encoded => fnd_api.g_false);
332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
333: fnd_log.string
334: (
335: fnd_log.level_statement,
336: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
337: 'FND_API.G_EXC_ERROR!!'
331: p_encoded => fnd_api.g_false);
332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
333: fnd_log.string
334: (
335: fnd_log.level_statement,
336: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
337: 'FND_API.G_EXC_ERROR!!'
338: );
339: END IF;
344: Rollback to process_association_pvt;
345: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
346: p_data => x_msg_data,
347: p_encoded => fnd_api.g_false);
348: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
349: fnd_log.string
350: (
351: fnd_log.level_statement,
352: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
345: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
346: p_data => x_msg_data,
347: p_encoded => fnd_api.g_false);
348: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
349: fnd_log.string
350: (
351: fnd_log.level_statement,
352: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
353: 'FND_API.G_EXC_UNEXPECTED_ERROR!!'
347: p_encoded => fnd_api.g_false);
348: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
349: fnd_log.string
350: (
351: fnd_log.level_statement,
352: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
353: 'FND_API.G_EXC_UNEXPECTED_ERROR!!'
354: );
355: END IF;
364: END IF;
365: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
366: p_data => x_msg_data,
367: p_encoded => fnd_api.g_false);
368: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
369: fnd_log.string
370: (
371: fnd_log.level_statement,
372: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
365: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
366: p_data => x_msg_data,
367: p_encoded => fnd_api.g_false);
368: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
369: fnd_log.string
370: (
371: fnd_log.level_statement,
372: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
373: 'Un expected error(other errors)!!'
367: p_encoded => fnd_api.g_false);
368: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
369: fnd_log.string
370: (
371: fnd_log.level_statement,
372: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||':',
373: 'Un expected error(other errors)!!'
374: );
375: END IF;