[Home] [Help]
8:
9: G_USER_ID CONSTANT NUMBER := TO_NUMBER(FND_GLOBAL.USER_ID);
10: G_LOGIN_ID CONSTANT NUMBER := TO_NUMBER(FND_GLOBAL.LOGIN_ID);
11:
12: -- FND Logging Constants
13: G_DEBUG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_DEBUG_PROC CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: G_DEBUG_STMT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
16: G_DEBUG_UEXP CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9: G_USER_ID CONSTANT NUMBER := TO_NUMBER(FND_GLOBAL.USER_ID);
10: G_LOGIN_ID CONSTANT NUMBER := TO_NUMBER(FND_GLOBAL.LOGIN_ID);
11:
12: -- FND Logging Constants
13: G_DEBUG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_DEBUG_PROC CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: G_DEBUG_STMT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
16: G_DEBUG_UEXP CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_DEBUG_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: G_LOGIN_ID CONSTANT NUMBER := TO_NUMBER(FND_GLOBAL.LOGIN_ID);
11:
12: -- FND Logging Constants
13: G_DEBUG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_DEBUG_PROC CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: G_DEBUG_STMT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
16: G_DEBUG_UEXP CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_DEBUG_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18:
11:
12: -- FND Logging Constants
13: G_DEBUG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_DEBUG_PROC CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: G_DEBUG_STMT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
16: G_DEBUG_UEXP CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_DEBUG_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18:
19: -------------------
12: -- FND Logging Constants
13: G_DEBUG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_DEBUG_PROC CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: G_DEBUG_STMT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
16: G_DEBUG_UEXP CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_DEBUG_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18:
19: -------------------
20: -- Spec Procedure Signatures --
13: G_DEBUG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_DEBUG_PROC CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: G_DEBUG_STMT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
16: G_DEBUG_UEXP CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: G_DEBUG_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
18:
19: -------------------
20: -- Spec Procedure Signatures --
21: -------------------
126: BEGIN
127:
128: -- Log API entry point
129: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)THEN
130: fnd_log.string
131: (
132: G_DEBUG_PROC,
133: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
134: 'At the start of PLSQL procedure'
158: RAISE FND_API.G_EXC_ERROR;
159: END IF;
160:
161: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL ) THEN
162: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' After Calling AHL_UTIL_PKG.Get_Appln_Usage successfully' );
163: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' l_appln_code: ' || l_appln_code);
164: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' l_return_status: ' || l_return_status);
165: END IF;
166:
159: END IF;
160:
161: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL ) THEN
162: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' After Calling AHL_UTIL_PKG.Get_Appln_Usage successfully' );
163: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' l_appln_code: ' || l_appln_code);
164: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' l_return_status: ' || l_return_status);
165: END IF;
166:
167:
160:
161: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL ) THEN
162: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' After Calling AHL_UTIL_PKG.Get_Appln_Usage successfully' );
163: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' l_appln_code: ' || l_appln_code);
164: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' l_return_status: ' || l_return_status);
165: END IF;
166:
167:
168: IF (p_init_msg_list = FND_API.G_TRUE) THEN
180: FND_MESSAGE.SET_NAME('AHL', 'AHL_COM_INVALID_PROCEDURE_CALL');
181: FND_MESSAGE.SET_TOKEN('PROCEDURE', l_api_name);
182: FND_MSG_PUB.ADD;
183: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL )THEN
184: fnd_log.string
185: (
186: G_DEBUG_ERROR,
187: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
188: 'Invalid Procedure Call'
199: FND_MESSAGE.SET_NAME('AHL', 'AHL_UA_MR_NOT_FOUND');
200: FND_MSG_PUB.ADD;
201: CLOSE check_mr_exists;
202: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL )THEN
203: fnd_log.string
204: (
205: G_DEBUG_ERROR,
206: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
207: 'MR is not found'
219: FND_MESSAGE.SET_NAME('AHL', 'AHL_UMP_INVALID_CSI_INSTANCE'); --message reused
220: FND_MSG_PUB.ADD;
221: CLOSE check_instance_exists;
222: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL )THEN
223: fnd_log.string
224: (
225: G_DEBUG_ERROR,
226: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
227: 'Instance Number is invalid'
236: x_return_status := FND_API.G_RET_STS_ERROR;
237: FND_MESSAGE.set_name('AHL', 'AHL_COM_APPL_USG_MODE_INVALID');
238: FND_MSG_PUB.add;
239: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL)THEN
240: fnd_log.string
241: (
242: G_DEBUG_ERROR,
243: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
244: 'Application Usage Mode is not defined or is invalid'
269: RAISE FND_API.G_EXC_ERROR;
270: END IF;
271:
272: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
273: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , 'AFTER Calling AHL_FMP_COMMON_PVT.Populate_Appl_MRs to populate AHL_APPLICABLE_MRS');
274: END IF;
275:
276: --loop not need as only one record.The Top Group MR is returned.
277: OPEN Get_all_appl_mrs ( p_mr_header_id , p_instance_id );
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308:
309: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
310: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , 'AFTER Calling AHL_FMP_PVT.GET_APPLICABLE_MRS to validate MR-Instance applicability' );
311: END IF;
312:
313: l_mr_applicable_flag := false;
314: IF (l_applicable_mr_tbl.COUNT > 0) THEN
424: RAISE FND_API.G_EXC_ERROR;
425: END IF;
426:
427: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
428: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' AFTER Calling AHL_UMP_UTIL_PKG.process_Group_MR_Instance to populate AHL_APPLICABLE_MR_RELNS' );
429: END IF;
430:
431:
432: -- create Unit Effectivities from Related MRs also
431:
432: -- create Unit Effectivities from Related MRs also
433:
434: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
435: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' BEFORE Calling AHL_UNIT_EFFECTIVITIES_PKG.Insert_Row for Related MRs from AHL_APPLICABLE_MR_RELNS' );
436: END IF;
437:
438: FOR l_appl_mrs_relns IN Get_Appl_Mr_Relns
439: LOOP
516:
517: END LOOP;
518:
519: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
520: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' AFTER Calling AHL_UNIT_EFFECTIVITIES_PKG.Insert_Row for Related MRs from AHL_APPLICABLE_MR_RELNS' );
521: END IF;
522:
523: -- to update the AHL_UE_RELATIONSHIPS table with the Unit Effectivity Relationships
524:
572: );
573: END LOOP;
574:
575: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
576: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' AFTER Calling AHL_UE_RELATIONSHIPS_PKG.INSERT_ROW for Related MRs from AHL_APPLICABLE_MR_RELNS' );
577: END IF;
578: END IF;
579:
580:
583:
584: -- Log API exit point
585: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)
586: THEN
587: fnd_log.string
588: (
589: G_DEBUG_PROC,
590: L_DEBUG_MODULE||'.end',
591: 'At the end of PLSQL procedure'
604: WHEN FND_API.G_EXC_ERROR THEN
605: Rollback to sp_create_unit_effectivity;
606: x_return_status := FND_API.G_RET_STS_ERROR;
607: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL)THEN
608: fnd_log.string
609: (
610: G_DEBUG_ERROR,
611: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
612: 'Expected error'
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623: Rollback to sp_create_unit_effectivity;
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
625: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL)THEN
626: fnd_log.string
627: (
628: G_DEBUG_ERROR,
629: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
630: 'Unexpected error'
649: p_error_text => SUBSTR(SQLERRM,1,240)
650: );
651: END IF;
652: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL)THEN
653: fnd_log.string
654: (
655: G_DEBUG_ERROR,
656: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
657: 'Other errors'
734:
735: -- Log API entry point
736: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)
737: THEN
738: fnd_log.string
739: (
740: G_DEBUG_PROC,
741: L_DEBUG_MODULE||'.begin',
742: 'At the start of PLSQL procedure'
773: END IF;
774: CLOSE GetOrigUeId;
775:
776: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
777: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' AFTER finding the originator UE id '|| l_originator_ue_id );
778: END IF;
779:
780:
781: -- if the ue id to be deleted is not found
797: AND l_object_type = 'SR')THEN
798: FND_MESSAGE.SET_NAME('AHL', 'AHL_UA_UE_CANNOT_DELETE');
799: FND_MSG_PUB.ADD;
800: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL)THEN
801: fnd_log.string
802: (
803: G_DEBUG_ERROR,
804: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
805: 'Cannot delete UE'
832: ELSE
833: FND_MESSAGE.SET_NAME('AHL', 'AHL_UA_UE_CANNOT_DELETE');
834: FND_MSG_PUB.ADD;
835: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL)THEN
836: fnd_log.string
837: (
838: G_DEBUG_ERROR,
839: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
840: 'Cannot delete UE'
846:
847: END LOOP;
848:
849: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
850: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' AFTER deleting all related UE s and their relationships');
851: END IF;
852:
853:
854: -- deletes the top node UE id
855:
856: AHL_UNIT_EFFECTIVITIES_PKG.DELETE_ROW(l_originator_ue_id);
857:
858: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
859: FND_LOG.STRING(G_DEBUG_STMT, L_DEBUG_MODULE , ' AFTER deleting the originator UE ');
860: END IF;
861: -- API body ends here
862:
863: -- Log API exit point
862:
863: -- Log API exit point
864: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)
865: THEN
866: fnd_log.string
867: (
868: G_DEBUG_PROC,
869: L_DEBUG_MODULE||'.end',
870: 'At the end of PLSQL procedure'
890: WHEN FND_API.G_EXC_ERROR THEN
891: Rollback to sp_delete_unit_effectivity;
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL)THEN
894: fnd_log.string
895: (
896: G_DEBUG_ERROR,
897: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
898: 'Expected error'
908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
909: Rollback to sp_delete_unit_effectivity;
910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
911: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL)THEN
912: fnd_log.string
913: (
914: G_DEBUG_ERROR,
915: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
916: 'Unexpected error'
935: p_error_text => SUBSTR(SQLERRM,1,240)
936: );
937: END IF;
938: IF (G_DEBUG_ERROR >= G_DEBUG_LEVEL)THEN
939: fnd_log.string
940: (
941: G_DEBUG_ERROR,
942: 'ahl.plsql.'||g_pkg_name||'.'||l_api_name||'.begin',
943: 'Other errors'