4: PROCEDURE Create_Mr
5: (
6: -- default IN params
7: p_api_version IN NUMBER,
8: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
9: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
11: p_default IN VARCHAR2 :=FND_API.G_FALSE,
12: p_module_type IN VARCHAR2 :=NULL,
5: (
6: -- default IN params
7: p_api_version IN NUMBER,
8: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
9: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
11: p_default IN VARCHAR2 :=FND_API.G_FALSE,
12: p_module_type IN VARCHAR2 :=NULL,
13: -- default OUT params
6: -- default IN params
7: p_api_version IN NUMBER,
8: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
9: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
11: p_default IN VARCHAR2 :=FND_API.G_FALSE,
12: p_module_type IN VARCHAR2 :=NULL,
13: -- default OUT params
14: x_return_status OUT NOCOPY VARCHAR2,
7: p_api_version IN NUMBER,
8: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
9: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
10: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
11: p_default IN VARCHAR2 :=FND_API.G_FALSE,
12: p_module_type IN VARCHAR2 :=NULL,
13: -- default OUT params
14: x_return_status OUT NOCOPY VARCHAR2,
15: x_msg_count OUT NOCOPY NUMBER,
35: -- Standard start of API savepoint
36: SAVEPOINT Create_Mr_SP;
37:
38: -- Standard call to check for call compatibility
39: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
40: THEN
41: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
42: END IF;
43:
37:
38: -- Standard call to check for call compatibility
39: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
40: THEN
41: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
42: END IF;
43:
44: -- Initialize message, depending on p_init_msg_list flag
45: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
41: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
42: END IF;
43:
44: -- Initialize message, depending on p_init_msg_list flag
45: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
46: FND_MSG_PUB.Initialize;
47: END IF;
48:
49: -- Initialize API return status to success
46: FND_MSG_PUB.Initialize;
47: END IF;
48:
49: -- Initialize API return status to success
50: x_return_status := FND_API.G_RET_STS_SUCCESS;
51:
52: -- Log API entry point
53: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
54: THEN
65: THEN
66: AHL_FMP_MR_HEADER_PVT.CREATE_MR_HEADER
67: (
68: p_api_version => 1.0,
69: p_init_msg_list => FND_API.G_FALSE,
70: p_commit => FND_API.G_FALSE,
71: p_validation_level => p_validation_level,
72: p_default => p_default,
73: p_module_type => p_module_type,
66: AHL_FMP_MR_HEADER_PVT.CREATE_MR_HEADER
67: (
68: p_api_version => 1.0,
69: p_init_msg_list => FND_API.G_FALSE,
70: p_commit => FND_API.G_FALSE,
71: p_validation_level => p_validation_level,
72: p_default => p_default,
73: p_module_type => p_module_type,
74: x_return_status => x_return_status,
77: p_x_mr_header_rec => p_x_mr_header_rec
78: );
79:
80: x_msg_count := FND_MSG_PUB.count_msg;
81: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
82: THEN
83: RAISE FND_API.G_EXC_ERROR;
84: END IF;
85:
79:
80: x_msg_count := FND_MSG_PUB.count_msg;
81: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
82: THEN
83: RAISE FND_API.G_EXC_ERROR;
84: END IF;
85:
86: IF (p_x_mr_header_rec.mr_header_id IS NULL)
87: THEN
94: 'After AHL_FMP_MR_HEADER_PVT.CREATE_MR_HEADER, mr_header_id is NULL'
95: );
96: END IF;
97:
98: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
99: END IF;
100:
101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
102: THEN
119: 'Invalid DML Operation specified'
120: );
121: END IF;
122:
123: RAISE FND_API.G_EXC_ERROR;
124: END IF;
125:
126: IF p_x_mr_doc_tbl.COUNT > 0
127: THEN
136:
137: AHL_FMP_MR_DOC_ASSO_PVT.Process_Doc_Association
138: (
139: p_api_version => 1.0,
140: p_init_msg_list => FND_API.G_FALSE,
141: p_commit => FND_API.G_FALSE,
142: p_validation_level => p_validation_level,
143: p_default => p_default,
144: p_module_type => p_module_type,
137: AHL_FMP_MR_DOC_ASSO_PVT.Process_Doc_Association
138: (
139: p_api_version => 1.0,
140: p_init_msg_list => FND_API.G_FALSE,
141: p_commit => FND_API.G_FALSE,
142: p_validation_level => p_validation_level,
143: p_default => p_default,
144: p_module_type => p_module_type,
145: x_return_status => x_return_status,
148: p_x_association_tbl => p_x_mr_doc_tbl
149: );
150:
151: x_msg_count := FND_MSG_PUB.count_msg;
152: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
153: THEN
154: RAISE FND_API.G_EXC_ERROR;
155: END IF;
156:
150:
151: x_msg_count := FND_MSG_PUB.count_msg;
152: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
153: THEN
154: RAISE FND_API.G_EXC_ERROR;
155: END IF;
156:
157: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
158: THEN
177:
178: AHL_FMP_MR_ROUTE_PVT.PROCESS_MR_ROUTE
179: (
180: p_api_version => 1.0,
181: p_init_msg_list => FND_API.G_FALSE,
182: p_commit => FND_API.G_FALSE,
183: p_validation_level => p_validation_level,
184: p_default => p_default,
185: p_module_type => p_module_type,
178: AHL_FMP_MR_ROUTE_PVT.PROCESS_MR_ROUTE
179: (
180: p_api_version => 1.0,
181: p_init_msg_list => FND_API.G_FALSE,
182: p_commit => FND_API.G_FALSE,
183: p_validation_level => p_validation_level,
184: p_default => p_default,
185: p_module_type => p_module_type,
186: x_return_status => x_return_status,
189: p_x_mr_route_tbl => p_x_mr_route_tbl
190: );
191:
192: x_msg_count := FND_MSG_PUB.count_msg;
193: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
194: THEN
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197:
191:
192: x_msg_count := FND_MSG_PUB.count_msg;
193: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
194: THEN
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197:
198: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
199: THEN
216:
217: AHL_FMP_MR_VISIT_TYPES_PVT.PROCESS_MR_VISIT_TYPES
218: (
219: p_api_version => 1.0,
220: p_init_msg_list => FND_API.G_FALSE,
221: p_commit => FND_API.G_FALSE,
222: p_validation_level => p_validation_level,
223: p_default => p_default,
224: p_module_type => p_module_type,
217: AHL_FMP_MR_VISIT_TYPES_PVT.PROCESS_MR_VISIT_TYPES
218: (
219: p_api_version => 1.0,
220: p_init_msg_list => FND_API.G_FALSE,
221: p_commit => FND_API.G_FALSE,
222: p_validation_level => p_validation_level,
223: p_default => p_default,
224: p_module_type => p_module_type,
225: x_return_status => x_return_status,
228: p_x_mr_visit_type_tbl => p_x_mr_visit_type_tbl
229: );
230:
231: x_msg_count := FND_MSG_PUB.count_msg;
232: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
233: THEN
234: RAISE FND_API.G_EXC_ERROR;
235: END IF;
236:
230:
231: x_msg_count := FND_MSG_PUB.count_msg;
232: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
233: THEN
234: RAISE FND_API.G_EXC_ERROR;
235: END IF;
236:
237: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
238: THEN
254:
255: AHL_FMP_MR_EFFECTIVITY_PVT.process_effectivity
256: (
257: p_api_version => 1.0,
258: p_init_msg_list => FND_API.G_FALSE,
259: p_commit => FND_API.G_FALSE,
260: p_validation_level => p_validation_level,
261: p_default => p_default,
262: p_module_type => p_module_type,
255: AHL_FMP_MR_EFFECTIVITY_PVT.process_effectivity
256: (
257: p_api_version => 1.0,
258: p_init_msg_list => FND_API.G_FALSE,
259: p_commit => FND_API.G_FALSE,
260: p_validation_level => p_validation_level,
261: p_default => p_default,
262: p_module_type => p_module_type,
263: x_return_status => x_return_status,
268: p_super_user => p_x_mr_header_rec.superuser_role
269: );
270:
271: x_msg_count := FND_MSG_PUB.count_msg;
272: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
273: THEN
274: RAISE FND_API.G_EXC_ERROR;
275: END IF;
276:
270:
271: x_msg_count := FND_MSG_PUB.count_msg;
272: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
273: THEN
274: RAISE FND_API.G_EXC_ERROR;
275: END IF;
276:
277: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
278: THEN
297:
298: AHL_FMP_MR_RELATION_PVT.PROCESS_MR_RELATION
299: (
300: p_api_version => 1.0,
301: p_init_msg_list => FND_API.G_FALSE,
302: p_commit => FND_API.G_FALSE,
303: p_validation_level => p_validation_level,
304: p_default => p_default,
305: p_module_type => p_module_type,
298: AHL_FMP_MR_RELATION_PVT.PROCESS_MR_RELATION
299: (
300: p_api_version => 1.0,
301: p_init_msg_list => FND_API.G_FALSE,
302: p_commit => FND_API.G_FALSE,
303: p_validation_level => p_validation_level,
304: p_default => p_default,
305: p_module_type => p_module_type,
306: x_return_status => x_return_status,
309: p_x_mr_relation_tbl => p_x_mr_relation_tbl
310: );
311:
312: x_msg_count := FND_MSG_PUB.count_msg;
313: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
314: THEN
315: RAISE FND_API.G_EXC_ERROR;
316: END IF;
317:
311:
312: x_msg_count := FND_MSG_PUB.count_msg;
313: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
314: THEN
315: RAISE FND_API.G_EXC_ERROR;
316: END IF;
317:
318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
319: THEN
342: -- Check Error Message stack.
343: x_msg_count := FND_MSG_PUB.count_msg;
344: IF x_msg_count > 0
345: THEN
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
348:
349: -- Commit, depending on p_commit flag
350: IF FND_API.TO_BOOLEAN(p_commit) THEN
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
348:
349: -- Commit, depending on p_commit flag
350: IF FND_API.TO_BOOLEAN(p_commit) THEN
351: COMMIT WORK;
352: END IF;
353:
354: -- Standard call to get message count and if count is 1, get message info
355: FND_MSG_PUB.count_and_get
356: (
357: p_count => x_msg_count,
358: p_data => x_msg_data,
359: p_encoded => FND_API.G_FALSE
360: );
361:
362: EXCEPTION
363: WHEN FND_API.G_EXC_ERROR THEN
359: p_encoded => FND_API.G_FALSE
360: );
361:
362: EXCEPTION
363: WHEN FND_API.G_EXC_ERROR THEN
364: x_return_status := FND_API.G_RET_STS_ERROR;
365: Rollback to Create_Mr_SP;
366: FND_MSG_PUB.count_and_get
367: (
360: );
361:
362: EXCEPTION
363: WHEN FND_API.G_EXC_ERROR THEN
364: x_return_status := FND_API.G_RET_STS_ERROR;
365: Rollback to Create_Mr_SP;
366: FND_MSG_PUB.count_and_get
367: (
368: p_count => x_msg_count,
366: FND_MSG_PUB.count_and_get
367: (
368: p_count => x_msg_count,
369: p_data => x_msg_data,
370: p_encoded => FND_API.G_FALSE
371: );
372:
373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
369: p_data => x_msg_data,
370: p_encoded => FND_API.G_FALSE
371: );
372:
373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
375: Rollback to Create_Mr_SP;
376: FND_MSG_PUB.count_and_get
377: (
370: p_encoded => FND_API.G_FALSE
371: );
372:
373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
375: Rollback to Create_Mr_SP;
376: FND_MSG_PUB.count_and_get
377: (
378: p_count => x_msg_count,
376: FND_MSG_PUB.count_and_get
377: (
378: p_count => x_msg_count,
379: p_data => x_msg_data,
380: p_encoded => FND_API.G_FALSE
381: );
382:
383: WHEN OTHERS THEN
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
380: p_encoded => FND_API.G_FALSE
381: );
382:
383: WHEN OTHERS THEN
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: Rollback to Create_Mr_SP;
386: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
387: THEN
388: FND_MSG_PUB.add_exc_msg
395: FND_MSG_PUB.count_and_get
396: (
397: p_count => x_msg_count,
398: p_data => x_msg_data,
399: p_encoded => FND_API.G_FALSE
400: );
401:
402: END Create_Mr;
403:
404: PROCEDURE Modify_Mr
405: (
406: -- default IN params
407: p_api_version IN NUMBER,
408: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
409: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
410: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
411: p_default IN VARCHAR2 :=FND_API.G_FALSE,
412: p_module_type IN VARCHAR2 :=NULL,
405: (
406: -- default IN params
407: p_api_version IN NUMBER,
408: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
409: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
410: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
411: p_default IN VARCHAR2 :=FND_API.G_FALSE,
412: p_module_type IN VARCHAR2 :=NULL,
413: -- default OUT params
406: -- default IN params
407: p_api_version IN NUMBER,
408: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
409: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
410: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
411: p_default IN VARCHAR2 :=FND_API.G_FALSE,
412: p_module_type IN VARCHAR2 :=NULL,
413: -- default OUT params
414: x_return_status OUT NOCOPY VARCHAR2,
407: p_api_version IN NUMBER,
408: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
409: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
410: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
411: p_default IN VARCHAR2 :=FND_API.G_FALSE,
412: p_module_type IN VARCHAR2 :=NULL,
413: -- default OUT params
414: x_return_status OUT NOCOPY VARCHAR2,
415: x_msg_count OUT NOCOPY NUMBER,
437: -- Standard start of API savepoint
438: SAVEPOINT Modify_Mr_SP;
439:
440: -- Standard call to check for call compatibility
441: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
442: THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: END IF;
445:
439:
440: -- Standard call to check for call compatibility
441: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
442: THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: END IF;
445:
446: -- Initialize message, depending on p_init_msg_list flag
447: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
444: END IF;
445:
446: -- Initialize message, depending on p_init_msg_list flag
447: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
448: FND_MSG_PUB.Initialize;
449: END IF;
450:
451: -- Initialize API return status to success
448: FND_MSG_PUB.Initialize;
449: END IF;
450:
451: -- Initialize API return status to success
452: x_return_status := FND_API.G_RET_STS_SUCCESS;
453:
454: -- Log API entry point
455: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
456: THEN
473: x_return_status => x_return_status
474: );
475:
476: x_msg_count := FND_MSG_PUB.count_msg;
477: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
478: THEN
479: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
480: THEN
481: fnd_log.string
484: L_DEBUG_MODULE||'.end',
485: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
486: );
487: END IF;
488: RAISE FND_API.G_EXC_ERROR;
489: END IF;
490: END IF;
491:
492: IF l_mr_header_rec.DML_OPERATION = 'U'
493: THEN
494: AHL_FMP_MR_HEADER_PVT.UPDATE_MR_HEADER
495: (
496: p_api_version => 1.0,
497: p_init_msg_list => FND_API.G_FALSE,
498: p_commit => FND_API.G_FALSE,
499: p_validation_level => p_validation_level,
500: p_default => p_default,
501: p_module_type => p_module_type,
494: AHL_FMP_MR_HEADER_PVT.UPDATE_MR_HEADER
495: (
496: p_api_version => 1.0,
497: p_init_msg_list => FND_API.G_FALSE,
498: p_commit => FND_API.G_FALSE,
499: p_validation_level => p_validation_level,
500: p_default => p_default,
501: p_module_type => p_module_type,
502: x_return_status => x_return_status,
505: p_x_mr_header_rec => l_mr_header_rec
506: );
507:
508: x_msg_count := FND_MSG_PUB.count_msg;
509: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
510: THEN
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513:
507:
508: x_msg_count := FND_MSG_PUB.count_msg;
509: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
510: THEN
511: RAISE FND_API.G_EXC_ERROR;
512: END IF;
513:
514: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
515: THEN
533: 'Invalid DML Operation specified'
534: );
535: END IF;
536:
537: RAISE FND_API.G_EXC_ERROR;
538: END IF;
539:
540: IF p_x_mr_doc_tbl.COUNT > 0
541: THEN
549:
550: AHL_FMP_MR_DOC_ASSO_PVT.Process_Doc_Association
551: (
552: p_api_version => 1.0,
553: p_init_msg_list => FND_API.G_FALSE,
554: p_commit => FND_API.G_FALSE,
555: p_validation_level => p_validation_level,
556: p_default => p_default,
557: p_module_type => p_module_type,
550: AHL_FMP_MR_DOC_ASSO_PVT.Process_Doc_Association
551: (
552: p_api_version => 1.0,
553: p_init_msg_list => FND_API.G_FALSE,
554: p_commit => FND_API.G_FALSE,
555: p_validation_level => p_validation_level,
556: p_default => p_default,
557: p_module_type => p_module_type,
558: x_return_status => x_return_status,
561: p_x_association_tbl => p_x_mr_doc_tbl
562: );
563:
564: x_msg_count := FND_MSG_PUB.count_msg;
565: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
566: THEN
567: RAISE FND_API.G_EXC_ERROR;
568: END IF;
569:
563:
564: x_msg_count := FND_MSG_PUB.count_msg;
565: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
566: THEN
567: RAISE FND_API.G_EXC_ERROR;
568: END IF;
569:
570: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
571: THEN
589:
590: AHL_FMP_MR_ROUTE_PVT.PROCESS_MR_ROUTE
591: (
592: p_api_version => 1.0,
593: p_init_msg_list => FND_API.G_FALSE,
594: p_commit => FND_API.G_FALSE,
595: p_validation_level => p_validation_level,
596: p_default => p_default,
597: p_module_type => p_module_type,
590: AHL_FMP_MR_ROUTE_PVT.PROCESS_MR_ROUTE
591: (
592: p_api_version => 1.0,
593: p_init_msg_list => FND_API.G_FALSE,
594: p_commit => FND_API.G_FALSE,
595: p_validation_level => p_validation_level,
596: p_default => p_default,
597: p_module_type => p_module_type,
598: x_return_status => x_return_status,
601: p_x_mr_route_tbl => p_x_mr_route_tbl
602: );
603:
604: x_msg_count := FND_MSG_PUB.count_msg;
605: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
606: THEN
607: RAISE FND_API.G_EXC_ERROR;
608: END IF;
609:
603:
604: x_msg_count := FND_MSG_PUB.count_msg;
605: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
606: THEN
607: RAISE FND_API.G_EXC_ERROR;
608: END IF;
609:
610: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
611: THEN
627:
628: AHL_FMP_MR_VISIT_TYPES_PVT.PROCESS_MR_VISIT_TYPES
629: (
630: p_api_version => 1.0,
631: p_init_msg_list => FND_API.G_FALSE,
632: p_commit => FND_API.G_FALSE,
633: p_validation_level => p_validation_level,
634: p_default => p_default,
635: p_module_type => p_module_type,
628: AHL_FMP_MR_VISIT_TYPES_PVT.PROCESS_MR_VISIT_TYPES
629: (
630: p_api_version => 1.0,
631: p_init_msg_list => FND_API.G_FALSE,
632: p_commit => FND_API.G_FALSE,
633: p_validation_level => p_validation_level,
634: p_default => p_default,
635: p_module_type => p_module_type,
636: x_return_status => x_return_status,
639: p_x_mr_visit_type_tbl => p_x_mr_visit_type_tbl
640: );
641:
642: x_msg_count := FND_MSG_PUB.count_msg;
643: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
644: THEN
645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
647:
641:
642: x_msg_count := FND_MSG_PUB.count_msg;
643: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
644: THEN
645: RAISE FND_API.G_EXC_ERROR;
646: END IF;
647:
648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
649: THEN
660: THEN
661: AHL_FMP_MR_EFFECTIVITY_PVT.process_effectivity
662: (
663: p_api_version => 1.0,
664: p_init_msg_list => FND_API.G_FALSE,
665: p_commit => FND_API.G_FALSE,
666: p_validation_level => p_validation_level,
667: p_default => p_default,
668: p_module_type => p_module_type,
661: AHL_FMP_MR_EFFECTIVITY_PVT.process_effectivity
662: (
663: p_api_version => 1.0,
664: p_init_msg_list => FND_API.G_FALSE,
665: p_commit => FND_API.G_FALSE,
666: p_validation_level => p_validation_level,
667: p_default => p_default,
668: p_module_type => p_module_type,
669: x_return_status => x_return_status,
674: p_super_user => l_mr_header_rec.superuser_role
675: );
676:
677: x_msg_count := FND_MSG_PUB.count_msg;
678: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
679: THEN
680: RAISE FND_API.G_EXC_ERROR;
681: END IF;
682:
676:
677: x_msg_count := FND_MSG_PUB.count_msg;
678: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
679: THEN
680: RAISE FND_API.G_EXC_ERROR;
681: END IF;
682:
683: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
684: THEN
702:
703: AHL_FMP_MR_RELATION_PVT.PROCESS_MR_RELATION
704: (
705: p_api_version => 1.0,
706: p_init_msg_list => FND_API.G_FALSE,
707: p_commit => FND_API.G_FALSE,
708: p_validation_level => p_validation_level,
709: p_default => p_default,
710: p_module_type => p_module_type,
703: AHL_FMP_MR_RELATION_PVT.PROCESS_MR_RELATION
704: (
705: p_api_version => 1.0,
706: p_init_msg_list => FND_API.G_FALSE,
707: p_commit => FND_API.G_FALSE,
708: p_validation_level => p_validation_level,
709: p_default => p_default,
710: p_module_type => p_module_type,
711: x_return_status => x_return_status,
714: p_x_mr_relation_tbl => p_x_mr_relation_tbl
715: );
716:
717: x_msg_count := FND_MSG_PUB.count_msg;
718: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
719: THEN
720: RAISE FND_API.G_EXC_ERROR;
721: END IF;
722:
716:
717: x_msg_count := FND_MSG_PUB.count_msg;
718: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
719: THEN
720: RAISE FND_API.G_EXC_ERROR;
721: END IF;
722:
723: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
724: THEN
747: -- Check Error Message stack.
748: x_msg_count := FND_MSG_PUB.count_msg;
749: IF x_msg_count > 0
750: THEN
751: RAISE FND_API.G_EXC_ERROR;
752: END IF;
753:
754: -- Commit, depending on p_commit flag
755: IF FND_API.TO_BOOLEAN(p_commit) THEN
751: RAISE FND_API.G_EXC_ERROR;
752: END IF;
753:
754: -- Commit, depending on p_commit flag
755: IF FND_API.TO_BOOLEAN(p_commit) THEN
756: COMMIT WORK;
757: END IF;
758:
759: -- Standard call to get message count and if count is 1, get message info
760: FND_MSG_PUB.count_and_get
761: (
762: p_count => x_msg_count,
763: p_data => x_msg_data,
764: p_encoded => FND_API.G_FALSE
765: );
766:
767: EXCEPTION
768: WHEN FND_API.G_EXC_ERROR THEN
764: p_encoded => FND_API.G_FALSE
765: );
766:
767: EXCEPTION
768: WHEN FND_API.G_EXC_ERROR THEN
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: Rollback to Modify_Mr_SP;
771: FND_MSG_PUB.count_and_get
772: (
765: );
766:
767: EXCEPTION
768: WHEN FND_API.G_EXC_ERROR THEN
769: x_return_status := FND_API.G_RET_STS_ERROR;
770: Rollback to Modify_Mr_SP;
771: FND_MSG_PUB.count_and_get
772: (
773: p_count => x_msg_count,
771: FND_MSG_PUB.count_and_get
772: (
773: p_count => x_msg_count,
774: p_data => x_msg_data,
775: p_encoded => FND_API.G_FALSE
776: );
777:
778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
774: p_data => x_msg_data,
775: p_encoded => FND_API.G_FALSE
776: );
777:
778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: Rollback to Modify_Mr_SP;
781: FND_MSG_PUB.count_and_get
782: (
775: p_encoded => FND_API.G_FALSE
776: );
777:
778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
779: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
780: Rollback to Modify_Mr_SP;
781: FND_MSG_PUB.count_and_get
782: (
783: p_count => x_msg_count,
781: FND_MSG_PUB.count_and_get
782: (
783: p_count => x_msg_count,
784: p_data => x_msg_data,
785: p_encoded => FND_API.G_FALSE
786: );
787:
788: WHEN OTHERS THEN
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
785: p_encoded => FND_API.G_FALSE
786: );
787:
788: WHEN OTHERS THEN
789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
790: Rollback to Modify_Mr_SP;
791: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
792: THEN
793: FND_MSG_PUB.add_exc_msg
800: FND_MSG_PUB.count_and_get
801: (
802: p_count => x_msg_count,
803: p_data => x_msg_data,
804: p_encoded => FND_API.G_FALSE
805: );
806:
807: END Modify_Mr;
808:
809: PROCEDURE Delete_Mr
810: (
811: -- standard IN params
812: p_api_version IN NUMBER,
813: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
814: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
815: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
816: p_default IN VARCHAR2 :=FND_API.G_FALSE,
817: p_module_type IN VARCHAR2 :=NULL,
810: (
811: -- standard IN params
812: p_api_version IN NUMBER,
813: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
814: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
815: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
816: p_default IN VARCHAR2 :=FND_API.G_FALSE,
817: p_module_type IN VARCHAR2 :=NULL,
818: -- standard OUT params
811: -- standard IN params
812: p_api_version IN NUMBER,
813: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
814: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
815: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
816: p_default IN VARCHAR2 :=FND_API.G_FALSE,
817: p_module_type IN VARCHAR2 :=NULL,
818: -- standard OUT params
819: x_return_status OUT NOCOPY VARCHAR2,
812: p_api_version IN NUMBER,
813: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
814: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
815: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
816: p_default IN VARCHAR2 :=FND_API.G_FALSE,
817: p_module_type IN VARCHAR2 :=NULL,
818: -- standard OUT params
819: x_return_status OUT NOCOPY VARCHAR2,
820: x_msg_count OUT NOCOPY NUMBER,
840: -- Standard start of API savepoint
841: SAVEPOINT Delete_Mr_SP;
842:
843: -- Standard call to check for call compatibility
844: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
845: THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
842:
843: -- Standard call to check for call compatibility
844: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
845: THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
849: -- Initialize message, depending on p_init_msg_list flag
850: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847: END IF;
848:
849: -- Initialize message, depending on p_init_msg_list flag
850: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
851: FND_MSG_PUB.Initialize;
852: END IF;
853:
854: -- Initialize API return status to success
851: FND_MSG_PUB.Initialize;
852: END IF;
853:
854: -- Initialize API return status to success
855: x_return_status := FND_API.G_RET_STS_SUCCESS;
856:
857: -- Log API entry point
858: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
859: THEN
876: x_return_status => x_return_status
877: );
878:
879: x_msg_count := FND_MSG_PUB.count_msg;
880: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
881: THEN
882: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
883: THEN
884: fnd_log.string
887: L_DEBUG_MODULE||'.end',
888: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
889: );
890: END IF;
891: RAISE FND_API.G_EXC_ERROR;
892: END IF;
893: END IF;
894:
895: AHL_FMP_MR_HEADER_PVT.DELETE_MR_HEADER
894:
895: AHL_FMP_MR_HEADER_PVT.DELETE_MR_HEADER
896: (
897: p_api_version => 1.0,
898: p_init_msg_list => FND_API.G_FALSE,
899: p_commit => FND_API.G_FALSE,
900: p_validation_level => p_validation_level,
901: p_default => p_default,
902: p_module_type => p_module_type,
895: AHL_FMP_MR_HEADER_PVT.DELETE_MR_HEADER
896: (
897: p_api_version => 1.0,
898: p_init_msg_list => FND_API.G_FALSE,
899: p_commit => FND_API.G_FALSE,
900: p_validation_level => p_validation_level,
901: p_default => p_default,
902: p_module_type => p_module_type,
903: x_return_status => x_return_status,
907: p_OBJECT_VERSION_NUMBER => p_mr_object_version
908: );
909:
910: x_msg_count := FND_MSG_PUB.count_msg;
911: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
912: THEN
913: RAISE FND_API.G_EXC_ERROR;
914: END IF;
915:
909:
910: x_msg_count := FND_MSG_PUB.count_msg;
911: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
912: THEN
913: RAISE FND_API.G_EXC_ERROR;
914: END IF;
915:
916: -- API body ends here
917:
929: -- Check Error Message stack.
930: x_msg_count := FND_MSG_PUB.count_msg;
931: IF x_msg_count > 0
932: THEN
933: RAISE FND_API.G_EXC_ERROR;
934: END IF;
935:
936: -- Commit, depending on p_commit flag
937: IF FND_API.TO_BOOLEAN(p_commit) THEN
933: RAISE FND_API.G_EXC_ERROR;
934: END IF;
935:
936: -- Commit, depending on p_commit flag
937: IF FND_API.TO_BOOLEAN(p_commit) THEN
938: COMMIT WORK;
939: END IF;
940:
941: -- Standard call to get message count and if count is 1, get message info
942: FND_MSG_PUB.count_and_get
943: (
944: p_count => x_msg_count,
945: p_data => x_msg_data,
946: p_encoded => FND_API.G_FALSE
947: );
948:
949: EXCEPTION
950: WHEN FND_API.G_EXC_ERROR THEN
946: p_encoded => FND_API.G_FALSE
947: );
948:
949: EXCEPTION
950: WHEN FND_API.G_EXC_ERROR THEN
951: x_return_status := FND_API.G_RET_STS_ERROR;
952: Rollback to Delete_Mr_SP;
953: FND_MSG_PUB.count_and_get
954: (
947: );
948:
949: EXCEPTION
950: WHEN FND_API.G_EXC_ERROR THEN
951: x_return_status := FND_API.G_RET_STS_ERROR;
952: Rollback to Delete_Mr_SP;
953: FND_MSG_PUB.count_and_get
954: (
955: p_count => x_msg_count,
953: FND_MSG_PUB.count_and_get
954: (
955: p_count => x_msg_count,
956: p_data => x_msg_data,
957: p_encoded => FND_API.G_FALSE
958: );
959:
960: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
956: p_data => x_msg_data,
957: p_encoded => FND_API.G_FALSE
958: );
959:
960: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
962: Rollback to Delete_Mr_SP;
963: FND_MSG_PUB.count_and_get
964: (
957: p_encoded => FND_API.G_FALSE
958: );
959:
960: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
962: Rollback to Delete_Mr_SP;
963: FND_MSG_PUB.count_and_get
964: (
965: p_count => x_msg_count,
963: FND_MSG_PUB.count_and_get
964: (
965: p_count => x_msg_count,
966: p_data => x_msg_data,
967: p_encoded => FND_API.G_FALSE
968: );
969:
970: WHEN OTHERS THEN
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967: p_encoded => FND_API.G_FALSE
968: );
969:
970: WHEN OTHERS THEN
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
972: Rollback to Delete_Mr_SP;
973: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
974: THEN
975: FND_MSG_PUB.add_exc_msg
982: FND_MSG_PUB.count_and_get
983: (
984: p_count => x_msg_count,
985: p_data => x_msg_data,
986: p_encoded => FND_API.G_FALSE
987: );
988:
989: END Delete_Mr;
990:
991: PROCEDURE Create_Mr_Revision
992: (
993: -- standard IN params
994: p_api_version IN NUMBER,
995: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
996: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
997: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
998: p_default IN VARCHAR2 :=FND_API.G_FALSE,
999: p_module_type IN VARCHAR2 :=NULL,
992: (
993: -- standard IN params
994: p_api_version IN NUMBER,
995: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
996: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
997: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
998: p_default IN VARCHAR2 :=FND_API.G_FALSE,
999: p_module_type IN VARCHAR2 :=NULL,
1000: -- standard OUT params
993: -- standard IN params
994: p_api_version IN NUMBER,
995: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
996: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
997: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
998: p_default IN VARCHAR2 :=FND_API.G_FALSE,
999: p_module_type IN VARCHAR2 :=NULL,
1000: -- standard OUT params
1001: x_return_status OUT NOCOPY VARCHAR2,
994: p_api_version IN NUMBER,
995: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
996: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
997: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
998: p_default IN VARCHAR2 :=FND_API.G_FALSE,
999: p_module_type IN VARCHAR2 :=NULL,
1000: -- standard OUT params
1001: x_return_status OUT NOCOPY VARCHAR2,
1002: x_msg_count OUT NOCOPY NUMBER,
1023: -- Standard start of API savepoint
1024: SAVEPOINT Create_Mr_Revision_SP;
1025:
1026: -- Standard call to check for call compatibility
1027: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1028: THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: END IF;
1031:
1025:
1026: -- Standard call to check for call compatibility
1027: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1028: THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: END IF;
1031:
1032: -- Initialize message, depending on p_init_msg_list flag
1033: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1030: END IF;
1031:
1032: -- Initialize message, depending on p_init_msg_list flag
1033: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1034: FND_MSG_PUB.Initialize;
1035: END IF;
1036:
1037: -- Initialize API return status to success
1034: FND_MSG_PUB.Initialize;
1035: END IF;
1036:
1037: -- Initialize API return status to success
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1039:
1040: -- Log API entry point
1041: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1042: THEN
1059: x_return_status => x_return_status
1060: );
1061:
1062: x_msg_count := FND_MSG_PUB.count_msg;
1063: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1064: THEN
1065: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1066: THEN
1067: fnd_log.string
1070: L_DEBUG_MODULE||'.end',
1071: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
1072: );
1073: END IF;
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF;
1076: END IF;
1077:
1078: -- Need to check for object_version_number here...
1079:
1080: AHL_FMP_MR_REVISION_PVT.CREATE_MR_REVISION
1081: (
1082: p_api_version => 1.0,
1083: p_init_msg_list => FND_API.G_FALSE,
1084: p_commit => FND_API.G_FALSE,
1085: p_validation_level => p_validation_level,
1086: p_default => p_default,
1087: p_module_type => p_module_type,
1080: AHL_FMP_MR_REVISION_PVT.CREATE_MR_REVISION
1081: (
1082: p_api_version => 1.0,
1083: p_init_msg_list => FND_API.G_FALSE,
1084: p_commit => FND_API.G_FALSE,
1085: p_validation_level => p_validation_level,
1086: p_default => p_default,
1087: p_module_type => p_module_type,
1088: x_return_status => x_return_status,
1092: x_new_mr_header_id => x_new_mr_header_id
1093: );
1094:
1095: x_msg_count := FND_MSG_PUB.count_msg;
1096: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1097: THEN
1098: RAISE FND_API.G_EXC_ERROR;
1099: END IF;
1100:
1094:
1095: x_msg_count := FND_MSG_PUB.count_msg;
1096: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1097: THEN
1098: RAISE FND_API.G_EXC_ERROR;
1099: END IF;
1100:
1101: -- API body ends here
1102:
1114: -- Check Error Message stack.
1115: x_msg_count := FND_MSG_PUB.count_msg;
1116: IF x_msg_count > 0
1117: THEN
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1120:
1121: -- Commit, depending on p_commit flag
1122: IF FND_API.TO_BOOLEAN(p_commit) THEN
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1120:
1121: -- Commit, depending on p_commit flag
1122: IF FND_API.TO_BOOLEAN(p_commit) THEN
1123: COMMIT WORK;
1124: END IF;
1125:
1126: -- Standard call to get message count and if count is 1, get message info
1127: FND_MSG_PUB.count_and_get
1128: (
1129: p_count => x_msg_count,
1130: p_data => x_msg_data,
1131: p_encoded => FND_API.G_FALSE
1132: );
1133:
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1131: p_encoded => FND_API.G_FALSE
1132: );
1133:
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137: Rollback to Create_Mr_Revision_SP;
1138: FND_MSG_PUB.count_and_get
1139: (
1132: );
1133:
1134: EXCEPTION
1135: WHEN FND_API.G_EXC_ERROR THEN
1136: x_return_status := FND_API.G_RET_STS_ERROR;
1137: Rollback to Create_Mr_Revision_SP;
1138: FND_MSG_PUB.count_and_get
1139: (
1140: p_count => x_msg_count,
1138: FND_MSG_PUB.count_and_get
1139: (
1140: p_count => x_msg_count,
1141: p_data => x_msg_data,
1142: p_encoded => FND_API.G_FALSE
1143: );
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1141: p_data => x_msg_data,
1142: p_encoded => FND_API.G_FALSE
1143: );
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147: Rollback to Create_Mr_Revision_SP;
1148: FND_MSG_PUB.count_and_get
1149: (
1142: p_encoded => FND_API.G_FALSE
1143: );
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147: Rollback to Create_Mr_Revision_SP;
1148: FND_MSG_PUB.count_and_get
1149: (
1150: p_count => x_msg_count,
1148: FND_MSG_PUB.count_and_get
1149: (
1150: p_count => x_msg_count,
1151: p_data => x_msg_data,
1152: p_encoded => FND_API.G_FALSE
1153: );
1154:
1155: WHEN OTHERS THEN
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1152: p_encoded => FND_API.G_FALSE
1153: );
1154:
1155: WHEN OTHERS THEN
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: Rollback to Create_Mr_Revision_SP;
1158: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1159: THEN
1160: FND_MSG_PUB.add_exc_msg
1167: FND_MSG_PUB.count_and_get
1168: (
1169: p_count => x_msg_count,
1170: p_data => x_msg_data,
1171: p_encoded => FND_API.G_FALSE
1172: );
1173:
1174: END Create_Mr_Revision;
1175:
1176: PROCEDURE Initiate_Mr_Approval
1177: (
1178: -- standard IN params
1179: p_api_version IN NUMBER,
1180: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1181: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1182: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1183: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1184: p_module_type IN VARCHAR2 :=NULL,
1177: (
1178: -- standard IN params
1179: p_api_version IN NUMBER,
1180: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1181: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1182: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1183: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1184: p_module_type IN VARCHAR2 :=NULL,
1185: -- standard OUT params
1178: -- standard IN params
1179: p_api_version IN NUMBER,
1180: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1181: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1182: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1183: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1184: p_module_type IN VARCHAR2 :=NULL,
1185: -- standard OUT params
1186: x_return_status OUT NOCOPY VARCHAR2,
1179: p_api_version IN NUMBER,
1180: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1181: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1182: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1183: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1184: p_module_type IN VARCHAR2 :=NULL,
1185: -- standard OUT params
1186: x_return_status OUT NOCOPY VARCHAR2,
1187: x_msg_count OUT NOCOPY NUMBER,
1208: -- Standard start of API savepoint
1209: SAVEPOINT Initiate_Mr_Approval_SP;
1210:
1211: -- Standard call to check for call compatibility
1212: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1213: THEN
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215: END IF;
1216:
1210:
1211: -- Standard call to check for call compatibility
1212: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1213: THEN
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215: END IF;
1216:
1217: -- Initialize message, depending on p_init_msg_list flag
1218: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215: END IF;
1216:
1217: -- Initialize message, depending on p_init_msg_list flag
1218: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1219: FND_MSG_PUB.Initialize;
1220: END IF;
1221:
1222: -- Initialize API return status to success
1219: FND_MSG_PUB.Initialize;
1220: END IF;
1221:
1222: -- Initialize API return status to success
1223: x_return_status := FND_API.G_RET_STS_SUCCESS;
1224:
1225: -- Log API entry point
1226: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1227: THEN
1244: x_return_status => x_return_status
1245: );
1246:
1247: x_msg_count := FND_MSG_PUB.count_msg;
1248: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1249: THEN
1250: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1251: THEN
1252: fnd_log.string
1255: L_DEBUG_MODULE||'.end',
1256: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
1257: );
1258: END IF;
1259: RAISE FND_API.G_EXC_ERROR;
1260: END IF;
1261: END IF;
1262:
1263: AHL_FMP_MR_REVISION_PVT.INITIATE_MR_APPROVAL
1262:
1263: AHL_FMP_MR_REVISION_PVT.INITIATE_MR_APPROVAL
1264: (
1265: p_api_version => 1.0,
1266: p_init_msg_list => FND_API.G_FALSE,
1267: p_commit => FND_API.G_FALSE,
1268: p_validation_level => p_validation_level,
1269: p_default => p_default,
1270: p_module_type => p_module_type,
1263: AHL_FMP_MR_REVISION_PVT.INITIATE_MR_APPROVAL
1264: (
1265: p_api_version => 1.0,
1266: p_init_msg_list => FND_API.G_FALSE,
1267: p_commit => FND_API.G_FALSE,
1268: p_validation_level => p_validation_level,
1269: p_default => p_default,
1270: p_module_type => p_module_type,
1271: x_return_status => x_return_status,
1276: p_apprv_type => p_apprv_type
1277: );
1278:
1279: x_msg_count := FND_MSG_PUB.count_msg;
1280: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1281: THEN
1282: RAISE FND_API.G_EXC_ERROR;
1283: END IF;
1284:
1278:
1279: x_msg_count := FND_MSG_PUB.count_msg;
1280: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1281: THEN
1282: RAISE FND_API.G_EXC_ERROR;
1283: END IF;
1284:
1285: -- API body ends here
1286:
1298: -- Check Error Message stack.
1299: x_msg_count := FND_MSG_PUB.count_msg;
1300: IF x_msg_count > 0
1301: THEN
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1304:
1305: -- Commit, depending on p_commit flag
1306: IF FND_API.TO_BOOLEAN(p_commit) THEN
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1304:
1305: -- Commit, depending on p_commit flag
1306: IF FND_API.TO_BOOLEAN(p_commit) THEN
1307: COMMIT WORK;
1308: END IF;
1309:
1310: -- Standard call to get message count and if count is 1, get message info
1311: FND_MSG_PUB.count_and_get
1312: (
1313: p_count => x_msg_count,
1314: p_data => x_msg_data,
1315: p_encoded => FND_API.G_FALSE
1316: );
1317:
1318: EXCEPTION
1319: WHEN FND_API.G_EXC_ERROR THEN
1315: p_encoded => FND_API.G_FALSE
1316: );
1317:
1318: EXCEPTION
1319: WHEN FND_API.G_EXC_ERROR THEN
1320: x_return_status := FND_API.G_RET_STS_ERROR;
1321: Rollback to Initiate_Mr_Approval_SP;
1322: FND_MSG_PUB.count_and_get
1323: (
1316: );
1317:
1318: EXCEPTION
1319: WHEN FND_API.G_EXC_ERROR THEN
1320: x_return_status := FND_API.G_RET_STS_ERROR;
1321: Rollback to Initiate_Mr_Approval_SP;
1322: FND_MSG_PUB.count_and_get
1323: (
1324: p_count => x_msg_count,
1322: FND_MSG_PUB.count_and_get
1323: (
1324: p_count => x_msg_count,
1325: p_data => x_msg_data,
1326: p_encoded => FND_API.G_FALSE
1327: );
1328:
1329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1325: p_data => x_msg_data,
1326: p_encoded => FND_API.G_FALSE
1327: );
1328:
1329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1331: Rollback to Initiate_Mr_Approval_SP;
1332: FND_MSG_PUB.count_and_get
1333: (
1326: p_encoded => FND_API.G_FALSE
1327: );
1328:
1329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1331: Rollback to Initiate_Mr_Approval_SP;
1332: FND_MSG_PUB.count_and_get
1333: (
1334: p_count => x_msg_count,
1332: FND_MSG_PUB.count_and_get
1333: (
1334: p_count => x_msg_count,
1335: p_data => x_msg_data,
1336: p_encoded => FND_API.G_FALSE
1337: );
1338:
1339: WHEN OTHERS THEN
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1336: p_encoded => FND_API.G_FALSE
1337: );
1338:
1339: WHEN OTHERS THEN
1340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1341: Rollback to Initiate_Mr_Approval_SP;
1342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1343: THEN
1344: FND_MSG_PUB.add_exc_msg
1351: FND_MSG_PUB.count_and_get
1352: (
1353: p_count => x_msg_count,
1354: p_data => x_msg_data,
1355: p_encoded => FND_API.G_FALSE
1356: );
1357:
1358: END Initiate_Mr_Approval;
1359:
1360: PROCEDURE Process_Mr_Route_Seq
1361: (
1362: -- default IN params
1363: p_api_version IN NUMBER,
1364: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1365: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1366: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1367: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1368: p_module_type IN VARCHAR2 :=NULL,
1361: (
1362: -- default IN params
1363: p_api_version IN NUMBER,
1364: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1365: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1366: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1367: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1368: p_module_type IN VARCHAR2 :=NULL,
1369: -- default OUT params
1362: -- default IN params
1363: p_api_version IN NUMBER,
1364: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1365: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1366: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1367: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1368: p_module_type IN VARCHAR2 :=NULL,
1369: -- default OUT params
1370: x_return_status OUT NOCOPY VARCHAR2,
1363: p_api_version IN NUMBER,
1364: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1365: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1366: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1367: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1368: p_module_type IN VARCHAR2 :=NULL,
1369: -- default OUT params
1370: x_return_status OUT NOCOPY VARCHAR2,
1371: x_msg_count OUT NOCOPY NUMBER,
1386: -- Standard start of API savepoint
1387: SAVEPOINT Process_Mr_Route_Seq_SP;
1388:
1389: -- Standard call to check for call compatibility
1390: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1391: THEN
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393: END IF;
1394:
1388:
1389: -- Standard call to check for call compatibility
1390: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1391: THEN
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393: END IF;
1394:
1395: -- Initialize message, depending on p_init_msg_list flag
1396: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1393: END IF;
1394:
1395: -- Initialize message, depending on p_init_msg_list flag
1396: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1397: FND_MSG_PUB.Initialize;
1398: END IF;
1399:
1400: -- Initialize API return status to success
1397: FND_MSG_PUB.Initialize;
1398: END IF;
1399:
1400: -- Initialize API return status to success
1401: x_return_status := FND_API.G_RET_STS_SUCCESS;
1402:
1403: -- Log API entry point
1404: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1405: THEN
1416: THEN
1417: AHL_FMP_MR_ROUTE_SEQNCE_PVT.PROCESS_MR_ROUTE_SEQ
1418: (
1419: p_api_version => 1.0,
1420: p_init_msg_list => FND_API.G_FALSE,
1421: p_commit => FND_API.G_FALSE,
1422: p_validation_level => p_validation_level,
1423: p_default => p_default,
1424: p_module_type => p_module_type,
1417: AHL_FMP_MR_ROUTE_SEQNCE_PVT.PROCESS_MR_ROUTE_SEQ
1418: (
1419: p_api_version => 1.0,
1420: p_init_msg_list => FND_API.G_FALSE,
1421: p_commit => FND_API.G_FALSE,
1422: p_validation_level => p_validation_level,
1423: p_default => p_default,
1424: p_module_type => p_module_type,
1425: x_return_status => x_return_status,
1428: p_x_mr_route_seq_tbl => p_x_mr_route_seq_tbl
1429: );
1430:
1431: x_msg_count := FND_MSG_PUB.count_msg;
1432: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1433: THEN
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1436: END IF;
1430:
1431: x_msg_count := FND_MSG_PUB.count_msg;
1432: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1433: THEN
1434: RAISE FND_API.G_EXC_ERROR;
1435: END IF;
1436: END IF;
1437:
1438:
1452: -- Check Error Message stack.
1453: x_msg_count := FND_MSG_PUB.count_msg;
1454: IF x_msg_count > 0
1455: THEN
1456: RAISE FND_API.G_EXC_ERROR;
1457: END IF;
1458:
1459: -- Commit, depending on p_commit flag
1460: IF FND_API.TO_BOOLEAN(p_commit) THEN
1456: RAISE FND_API.G_EXC_ERROR;
1457: END IF;
1458:
1459: -- Commit, depending on p_commit flag
1460: IF FND_API.TO_BOOLEAN(p_commit) THEN
1461: COMMIT WORK;
1462: END IF;
1463:
1464: -- Standard call to get message count and if count is 1, get message info
1465: FND_MSG_PUB.count_and_get
1466: (
1467: p_count => x_msg_count,
1468: p_data => x_msg_data,
1469: p_encoded => FND_API.G_FALSE
1470: );
1471:
1472: EXCEPTION
1473: WHEN FND_API.G_EXC_ERROR THEN
1469: p_encoded => FND_API.G_FALSE
1470: );
1471:
1472: EXCEPTION
1473: WHEN FND_API.G_EXC_ERROR THEN
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: Rollback to Process_Mr_Route_Seq_SP;
1476: FND_MSG_PUB.count_and_get
1477: (
1470: );
1471:
1472: EXCEPTION
1473: WHEN FND_API.G_EXC_ERROR THEN
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: Rollback to Process_Mr_Route_Seq_SP;
1476: FND_MSG_PUB.count_and_get
1477: (
1478: p_count => x_msg_count,
1476: FND_MSG_PUB.count_and_get
1477: (
1478: p_count => x_msg_count,
1479: p_data => x_msg_data,
1480: p_encoded => FND_API.G_FALSE
1481: );
1482:
1483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1479: p_data => x_msg_data,
1480: p_encoded => FND_API.G_FALSE
1481: );
1482:
1483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1485: Rollback to Process_Mr_Route_Seq_SP;
1486: FND_MSG_PUB.count_and_get
1487: (
1480: p_encoded => FND_API.G_FALSE
1481: );
1482:
1483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1485: Rollback to Process_Mr_Route_Seq_SP;
1486: FND_MSG_PUB.count_and_get
1487: (
1488: p_count => x_msg_count,
1486: FND_MSG_PUB.count_and_get
1487: (
1488: p_count => x_msg_count,
1489: p_data => x_msg_data,
1490: p_encoded => FND_API.G_FALSE
1491: );
1492:
1493: WHEN OTHERS THEN
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1490: p_encoded => FND_API.G_FALSE
1491: );
1492:
1493: WHEN OTHERS THEN
1494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1495: Rollback to Process_Mr_Route_Seq_SP;
1496: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1497: THEN
1498: FND_MSG_PUB.add_exc_msg
1505: FND_MSG_PUB.count_and_get
1506: (
1507: p_count => x_msg_count,
1508: p_data => x_msg_data,
1509: p_encoded => FND_API.G_FALSE
1510: );
1511:
1512: END Process_Mr_Route_Seq;
1513:
1514: PROCEDURE Process_Mr_Effectivities
1515: (
1516: -- standard IN params
1517: p_api_version IN NUMBER,
1518: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1519: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1520: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1521: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1522: p_module_type IN VARCHAR2 :=NULL,
1515: (
1516: -- standard IN params
1517: p_api_version IN NUMBER,
1518: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1519: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1520: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1521: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1522: p_module_type IN VARCHAR2 :=NULL,
1523: -- standard OUT params
1516: -- standard IN params
1517: p_api_version IN NUMBER,
1518: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1519: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1520: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1521: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1522: p_module_type IN VARCHAR2 :=NULL,
1523: -- standard OUT params
1524: x_return_status OUT NOCOPY VARCHAR2,
1517: p_api_version IN NUMBER,
1518: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1519: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1520: p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
1521: p_default IN VARCHAR2 :=FND_API.G_FALSE,
1522: p_module_type IN VARCHAR2 :=NULL,
1523: -- standard OUT params
1524: x_return_status OUT NOCOPY VARCHAR2,
1525: x_msg_count OUT NOCOPY NUMBER,
1551: -- Standard start of API savepoint
1552: SAVEPOINT Process_Mr_Effectivities_SP;
1553:
1554: -- Standard call to check for call compatibility
1555: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1556: THEN
1557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1558: END IF;
1559:
1553:
1554: -- Standard call to check for call compatibility
1555: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
1556: THEN
1557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1558: END IF;
1559:
1560: -- Initialize message, depending on p_init_msg_list flag
1561: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1558: END IF;
1559:
1560: -- Initialize message, depending on p_init_msg_list flag
1561: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1562: FND_MSG_PUB.Initialize;
1563: END IF;
1564:
1565: -- Initialize API return status to success
1562: FND_MSG_PUB.Initialize;
1563: END IF;
1564:
1565: -- Initialize API return status to success
1566: x_return_status := FND_API.G_RET_STS_SUCCESS;
1567:
1568: -- Log API entry point
1569: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1570: THEN
1587: x_return_status => x_return_status
1588: );
1589:
1590: x_msg_count := FND_MSG_PUB.count_msg;
1591: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1592: THEN
1593: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1594: THEN
1595: fnd_log.string
1598: L_DEBUG_MODULE||'.end',
1599: 'AHL_FMP_COMMON_PVT.mr_title_version_to_id returned error'
1600: );
1601: END IF;
1602: RAISE FND_API.G_EXC_ERROR;
1603: END IF;
1604: END IF;
1605:
1606: IF (l_mr_effectivity_id IS NULL)
1613: x_return_status => x_return_status
1614: );
1615:
1616: x_msg_count := FND_MSG_PUB.count_msg;
1617: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1618: THEN
1619: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)
1620: THEN
1621: fnd_log.string
1624: L_DEBUG_MODULE||'.end',
1625: 'AHL_FMP_COMMON_PVT.Mr_Effectivity_Name_To_Id returned error'
1626: );
1627: END IF;
1628: RAISE FND_API.G_EXC_ERROR;
1629: END IF;
1630: END IF;
1631:
1632: IF p_x_mr_effectivity_detail_tbl.COUNT > 0
1633: THEN
1634: AHL_FMP_EFFECTIVITY_DTL_PVT.process_effectivity_detail
1635: (
1636: p_api_version => 1.0,
1637: p_init_msg_list => FND_API.G_FALSE,
1638: p_commit => FND_API.G_FALSE,
1639: p_validation_level => p_validation_level,
1640: p_default => p_default,
1641: p_module_type => p_module_type,
1634: AHL_FMP_EFFECTIVITY_DTL_PVT.process_effectivity_detail
1635: (
1636: p_api_version => 1.0,
1637: p_init_msg_list => FND_API.G_FALSE,
1638: p_commit => FND_API.G_FALSE,
1639: p_validation_level => p_validation_level,
1640: p_default => p_default,
1641: p_module_type => p_module_type,
1642: x_return_status => x_return_status,
1647: p_mr_effectivity_id => l_mr_effectivity_id
1648: );
1649:
1650: x_msg_count := FND_MSG_PUB.count_msg;
1651: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1652: THEN
1653: RAISE FND_API.G_EXC_ERROR;
1654: END IF;
1655: END IF;
1649:
1650: x_msg_count := FND_MSG_PUB.count_msg;
1651: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1652: THEN
1653: RAISE FND_API.G_EXC_ERROR;
1654: END IF;
1655: END IF;
1656:
1657: IF (p_x_mr_interval_tbl.COUNT > 0 OR
1654: END IF;
1655: END IF;
1656:
1657: IF (p_x_mr_interval_tbl.COUNT > 0 OR
1658: (p_x_mr_threshold_rec.threshold_date IS NOT NULL AND p_x_mr_threshold_rec.threshold_date <> FND_API.G_MISS_DATE) OR
1659: (p_x_mr_threshold_rec.program_duration IS NOT NULL AND p_x_mr_threshold_rec.program_duration <> FND_API.G_MISS_NUM ))
1660: THEN
1661: AHL_FMP_MR_INTERVAL_PVT.process_interval
1662: (
1655: END IF;
1656:
1657: IF (p_x_mr_interval_tbl.COUNT > 0 OR
1658: (p_x_mr_threshold_rec.threshold_date IS NOT NULL AND p_x_mr_threshold_rec.threshold_date <> FND_API.G_MISS_DATE) OR
1659: (p_x_mr_threshold_rec.program_duration IS NOT NULL AND p_x_mr_threshold_rec.program_duration <> FND_API.G_MISS_NUM ))
1660: THEN
1661: AHL_FMP_MR_INTERVAL_PVT.process_interval
1662: (
1663: p_api_version => 1.0,
1660: THEN
1661: AHL_FMP_MR_INTERVAL_PVT.process_interval
1662: (
1663: p_api_version => 1.0,
1664: p_init_msg_list => FND_API.G_FALSE,
1665: p_commit => FND_API.G_FALSE,
1666: p_validation_level => p_validation_level,
1667: p_default => p_default,
1668: p_module_type => p_module_type,
1661: AHL_FMP_MR_INTERVAL_PVT.process_interval
1662: (
1663: p_api_version => 1.0,
1664: p_init_msg_list => FND_API.G_FALSE,
1665: p_commit => FND_API.G_FALSE,
1666: p_validation_level => p_validation_level,
1667: p_default => p_default,
1668: p_module_type => p_module_type,
1669: x_return_status => x_return_status,
1676: );
1677: END IF;
1678:
1679: x_msg_count := FND_MSG_PUB.count_msg;
1680: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1681: THEN
1682: RAISE FND_API.G_EXC_ERROR;
1683: END IF;
1684:
1678:
1679: x_msg_count := FND_MSG_PUB.count_msg;
1680: IF x_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS
1681: THEN
1682: RAISE FND_API.G_EXC_ERROR;
1683: END IF;
1684:
1685: -- API body ends here
1686:
1698: -- Check Error Message stack.
1699: x_msg_count := FND_MSG_PUB.count_msg;
1700: IF x_msg_count > 0
1701: THEN
1702: RAISE FND_API.G_EXC_ERROR;
1703: END IF;
1704:
1705: -- Commit, depending on p_commit flag
1706: IF FND_API.TO_BOOLEAN(p_commit) THEN
1702: RAISE FND_API.G_EXC_ERROR;
1703: END IF;
1704:
1705: -- Commit, depending on p_commit flag
1706: IF FND_API.TO_BOOLEAN(p_commit) THEN
1707: COMMIT WORK;
1708: END IF;
1709:
1710: -- Standard call to get message count and if count is 1, get message info
1711: FND_MSG_PUB.count_and_get
1712: (
1713: p_count => x_msg_count,
1714: p_data => x_msg_data,
1715: p_encoded => FND_API.G_FALSE
1716: );
1717:
1718: EXCEPTION
1719: WHEN FND_API.G_EXC_ERROR THEN
1715: p_encoded => FND_API.G_FALSE
1716: );
1717:
1718: EXCEPTION
1719: WHEN FND_API.G_EXC_ERROR THEN
1720: x_return_status := FND_API.G_RET_STS_ERROR;
1721: Rollback to Process_Mr_Effectivities_SP;
1722: FND_MSG_PUB.count_and_get
1723: (
1716: );
1717:
1718: EXCEPTION
1719: WHEN FND_API.G_EXC_ERROR THEN
1720: x_return_status := FND_API.G_RET_STS_ERROR;
1721: Rollback to Process_Mr_Effectivities_SP;
1722: FND_MSG_PUB.count_and_get
1723: (
1724: p_count => x_msg_count,
1722: FND_MSG_PUB.count_and_get
1723: (
1724: p_count => x_msg_count,
1725: p_data => x_msg_data,
1726: p_encoded => FND_API.G_FALSE
1727: );
1728:
1729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: p_data => x_msg_data,
1726: p_encoded => FND_API.G_FALSE
1727: );
1728:
1729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1731: Rollback to Process_Mr_Effectivities_SP;
1732: FND_MSG_PUB.count_and_get
1733: (
1726: p_encoded => FND_API.G_FALSE
1727: );
1728:
1729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1731: Rollback to Process_Mr_Effectivities_SP;
1732: FND_MSG_PUB.count_and_get
1733: (
1734: p_count => x_msg_count,
1732: FND_MSG_PUB.count_and_get
1733: (
1734: p_count => x_msg_count,
1735: p_data => x_msg_data,
1736: p_encoded => FND_API.G_FALSE
1737: );
1738:
1739: WHEN OTHERS THEN
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1736: p_encoded => FND_API.G_FALSE
1737: );
1738:
1739: WHEN OTHERS THEN
1740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1741: Rollback to Process_Mr_Effectivities_SP;
1742: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1743: THEN
1744: FND_MSG_PUB.add_exc_msg
1751: FND_MSG_PUB.count_and_get
1752: (
1753: p_count => x_msg_count,
1754: p_data => x_msg_data,
1755: p_encoded => FND_API.G_FALSE
1756: );
1757:
1758: END Process_Mr_Effectivities;
1759: