213: l_counter NUMBER:=0;
214: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
215: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.TRANSLATE_VALUE_ID';
216: BEGIN
217: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
218: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
219: END IF;
220: x_return_status:=FND_API.G_RET_STS_SUCCESS;
221: IF p_x_appr_deptshift_rec.ORGANIZATION_NAME IS NULL OR p_x_appr_deptshift_rec.ORGANIZATION_NAME=FND_API.G_MISS_CHAR
214: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
215: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.TRANSLATE_VALUE_ID';
216: BEGIN
217: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
218: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
219: END IF;
220: x_return_status:=FND_API.G_RET_STS_SUCCESS;
221: IF p_x_appr_deptshift_rec.ORGANIZATION_NAME IS NULL OR p_x_appr_deptshift_rec.ORGANIZATION_NAME=FND_API.G_MISS_CHAR
222: THEN
336: CLOSE get_bom_workdays;
337: END IF;
338:
339: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
340: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_appr_deptshift_rec.ORGANIZATION_ID = ' || p_x_appr_deptshift_rec.ORGANIZATION_ID ||
342: ', p_x_appr_deptshift_rec.SUBINVENTORY = ' || p_x_appr_deptshift_rec.SUBINVENTORY ||
343: ', p_x_appr_deptshift_rec.INV_LOCATOR_ID = ' || p_x_appr_deptshift_rec.INV_LOCATOR_ID ||
344: ', p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = ' || p_x_appr_deptshift_rec.LOCATOR_SEGMENTS);
337: END IF;
338:
339: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
340: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_appr_deptshift_rec.ORGANIZATION_ID = ' || p_x_appr_deptshift_rec.ORGANIZATION_ID ||
342: ', p_x_appr_deptshift_rec.SUBINVENTORY = ' || p_x_appr_deptshift_rec.SUBINVENTORY ||
343: ', p_x_appr_deptshift_rec.INV_LOCATOR_ID = ' || p_x_appr_deptshift_rec.INV_LOCATOR_ID ||
344: ', p_x_appr_deptshift_rec.LOCATOR_SEGMENTS = ' || p_x_appr_deptshift_rec.LOCATOR_SEGMENTS);
345: END IF;
366: p_x_appr_deptshift_rec.INV_LOCATOR_ID := 0;
367: END IF;
368: CLOSE get_inv_loc_id;
369: END IF;
370: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_appr_deptshift_rec.INV_LOCATOR_ID = ' || p_x_appr_deptshift_rec.INV_LOCATOR_ID);
372: END IF;
373:
374: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
367: END IF;
368: CLOSE get_inv_loc_id;
369: END IF;
370: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_appr_deptshift_rec.INV_LOCATOR_ID = ' || p_x_appr_deptshift_rec.INV_LOCATOR_ID);
372: END IF;
373:
374: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
370: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_appr_deptshift_rec.INV_LOCATOR_ID = ' || p_x_appr_deptshift_rec.INV_LOCATOR_ID);
372: END IF;
373:
374: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
376: END IF;
377: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
378:
371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_appr_deptshift_rec.INV_LOCATOR_ID = ' || p_x_appr_deptshift_rec.INV_LOCATOR_ID);
372: END IF;
373:
374: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
375: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
376: END IF;
377: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
378:
379: EXCEPTION
435: l_status_id NUMBER;
436: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
437:
438: BEGIN
439: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
440: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
441: END IF;
442: x_return_status:=FND_API.G_RET_STS_SUCCESS;
443:
436: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
437:
438: BEGIN
439: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
440: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
441: END IF;
442: x_return_status:=FND_API.G_RET_STS_SUCCESS;
443:
444: IF p_appr_deptshift_rec.DML_OPERATION='C' or p_appr_deptshift_rec.DML_OPERATION='U' THEN
441: END IF;
442: x_return_status:=FND_API.G_RET_STS_SUCCESS;
443:
444: IF p_appr_deptshift_rec.DML_OPERATION='C' or p_appr_deptshift_rec.DML_OPERATION='U' THEN
445: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
446: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
447: 'ORGANIZATION_NAME = ' || p_appr_deptshift_rec.ORGANIZATION_NAME ||
448: ', DEPT_DESCRIPTION = ' || p_appr_deptshift_rec.DEPT_DESCRIPTION ||
449: ', CALENDAR_DESCRIPTION = ' || p_appr_deptshift_rec.CALENDAR_DESCRIPTION ||
442: x_return_status:=FND_API.G_RET_STS_SUCCESS;
443:
444: IF p_appr_deptshift_rec.DML_OPERATION='C' or p_appr_deptshift_rec.DML_OPERATION='U' THEN
445: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
446: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
447: 'ORGANIZATION_NAME = ' || p_appr_deptshift_rec.ORGANIZATION_NAME ||
448: ', DEPT_DESCRIPTION = ' || p_appr_deptshift_rec.DEPT_DESCRIPTION ||
449: ', CALENDAR_DESCRIPTION = ' || p_appr_deptshift_rec.CALENDAR_DESCRIPTION ||
450: ', SHIFT_NUM = ' || p_appr_deptshift_rec.SHIFT_NUM ||
484: END IF;
485:
486: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
487: IF p_appr_deptshift_rec.DML_OPERATION='C' or p_appr_deptshift_rec.DML_OPERATION='U' THEN
488: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
489: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_appr_deptshift_rec.ORGANIZATION_ID = ' || p_appr_deptshift_rec.ORGANIZATION_ID ||
490: ',p_appr_deptshift_rec.SUBINVENTORY = ' || p_appr_deptshift_rec.SUBINVENTORY ||
491: ',p_appr_deptshift_rec.INV_LOCATOR_ID = ' || p_appr_deptshift_rec.INV_LOCATOR_ID ||
492: ',p_appr_deptshift_rec.LOCATOR_SEGMENTS = ' || p_appr_deptshift_rec.LOCATOR_SEGMENTS);
485:
486: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
487: IF p_appr_deptshift_rec.DML_OPERATION='C' or p_appr_deptshift_rec.DML_OPERATION='U' THEN
488: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
489: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_appr_deptshift_rec.ORGANIZATION_ID = ' || p_appr_deptshift_rec.ORGANIZATION_ID ||
490: ',p_appr_deptshift_rec.SUBINVENTORY = ' || p_appr_deptshift_rec.SUBINVENTORY ||
491: ',p_appr_deptshift_rec.INV_LOCATOR_ID = ' || p_appr_deptshift_rec.INV_LOCATOR_ID ||
492: ',p_appr_deptshift_rec.LOCATOR_SEGMENTS = ' || p_appr_deptshift_rec.LOCATOR_SEGMENTS);
493: END IF;
535: CLOSE validate_inv_loc_id;
536: END IF;
537: END IF; -- DML_OPERATION='C'
538:
539: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
540: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
541: END IF;
542: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
543:
536: END IF;
537: END IF; -- DML_OPERATION='C'
538:
539: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
540: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
541: END IF;
542: -- End Changes by rbhavsar on Nov 27, 2007 for ER 5854712
543:
544: EXCEPTION
595: l_check_flag VARCHAR2(1):='Y';
596: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
597: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.CREATE_APPR_DEPT_SHIFTS';
598: BEGIN
599: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
600: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
601: END IF;
602:
603: SAVEPOINT CREATE_APPR_DEPT_SHIFTS;
596: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
597: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.CREATE_APPR_DEPT_SHIFTS';
598: BEGIN
599: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
600: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
601: END IF;
602:
603: SAVEPOINT CREATE_APPR_DEPT_SHIFTS;
604:
627: l_appr_deptshift_rec.INV_LOCATOR_ID := NULL;
628: END IF;
629:
630: -- Debug info.
631: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
632: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call TRANSLATE_VALUE_ID');
633: END IF;
634:
635: TRANSLATE_VALUE_ID
628: END IF;
629:
630: -- Debug info.
631: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
632: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call TRANSLATE_VALUE_ID');
633: END IF;
634:
635: TRANSLATE_VALUE_ID
636: (
638: x_msg_count =>l_msg_count,
639: x_msg_data =>l_msg_data,
640: p_x_appr_deptshift_rec =>l_appr_deptshift_rec
641: );
642: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
643: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from TRANSLATE_VALUE_ID. x_return_status = ' || x_return_status);
644: END IF;
645: l_msg_count := FND_MSG_PUB.count_msg;
646: IF l_msg_count > 0
639: x_msg_data =>l_msg_data,
640: p_x_appr_deptshift_rec =>l_appr_deptshift_rec
641: );
642: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
643: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from TRANSLATE_VALUE_ID. x_return_status = ' || x_return_status);
644: END IF;
645: l_msg_count := FND_MSG_PUB.count_msg;
646: IF l_msg_count > 0
647: THEN
668: x_msg_count =>l_msg_count,
669: x_msg_data =>l_msg_data,
670: p_appr_deptshift_rec =>l_appr_deptshift_rec);
671: END IF;
672: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
673: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from VALIDATE_APPR_DEPT_SHIFT. x_return_status = ' || x_return_status);
674: END IF;
675:
676: l_msg_count := FND_MSG_PUB.count_msg;
669: x_msg_data =>l_msg_data,
670: p_appr_deptshift_rec =>l_appr_deptshift_rec);
671: END IF;
672: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
673: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from VALIDATE_APPR_DEPT_SHIFT. x_return_status = ' || x_return_status);
674: END IF;
675:
676: l_msg_count := FND_MSG_PUB.count_msg;
677:
682: RAISE FND_API.G_EXC_ERROR;
683: END IF;
684:
685: -- insert process goes here
686: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
687: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to insert into table.');
688: END IF;
689: IF l_appr_deptshift_rec.DML_OPERATION='C'
690: THEN
683: END IF;
684:
685: -- insert process goes here
686: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
687: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to insert into table.');
688: END IF;
689: IF l_appr_deptshift_rec.DML_OPERATION='C'
690: THEN
691: Select AHL_DEPARTMENT_SHIFTS_S.nextval into
772: returning l_DEPARTMENT_SHIFTS_ID into p_x_appr_deptshift_rec.AHL_DEPARTMENT_SHIFTS_ID;
773:
774: --p_x_appr_deptshift_rec.AHL_DEPARTMENT_SHIFTS_ID := l_DEPARTMENT_SHIFTS_ID;
775:
776: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
777: THEN
778: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
779: ' AHL_DEPARTMENT_SHIFTS_ID = ' || p_x_appr_deptshift_rec.AHL_DEPARTMENT_SHIFTS_ID ||
780: ' OBJECT_VERSION_NUMBER = ' || p_x_appr_deptshift_rec.OBJECT_VERSION_NUMBER ||
774: --p_x_appr_deptshift_rec.AHL_DEPARTMENT_SHIFTS_ID := l_DEPARTMENT_SHIFTS_ID;
775:
776: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
777: THEN
778: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
779: ' AHL_DEPARTMENT_SHIFTS_ID = ' || p_x_appr_deptshift_rec.AHL_DEPARTMENT_SHIFTS_ID ||
780: ' OBJECT_VERSION_NUMBER = ' || p_x_appr_deptshift_rec.OBJECT_VERSION_NUMBER ||
781: ' DEPARTMENT_ID = ' || p_x_appr_deptshift_rec.DEPARTMENT_ID ||
782: ' CALENDAR_CODE = ' || p_x_appr_deptshift_rec.CALENDAR_CODE ||
789:
790: IF FND_API.TO_BOOLEAN(p_commit) THEN
791: COMMIT;
792: END IF;
793: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
794: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
795: END IF;
796:
797: EXCEPTION
790: IF FND_API.TO_BOOLEAN(p_commit) THEN
791: COMMIT;
792: END IF;
793: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
794: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
795: END IF;
796:
797: EXCEPTION
798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
852: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
853: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.DELETE_APPR_DEPT_SHIFTS';
854:
855: BEGIN
856: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
857: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
858: END IF;
859:
860: SAVEPOINT DELETE_DEPT_SHIFTS;
853: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.DELETE_APPR_DEPT_SHIFTS';
854:
855: BEGIN
856: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
857: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
858: END IF;
859:
860: SAVEPOINT DELETE_DEPT_SHIFTS;
861:
924:
925: IF FND_API.TO_BOOLEAN(p_commit) THEN
926: COMMIT;
927: END IF;
928: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
930: END IF;
931:
932: EXCEPTION
925: IF FND_API.TO_BOOLEAN(p_commit) THEN
926: COMMIT;
927: END IF;
928: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
929: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
930: END IF;
931:
932: EXCEPTION
933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
986: l_check_flag VARCHAR2(1):='Y';
987: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
988: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.CREATE_APPR_DEPT_SHIFTS';
989: BEGIN
990: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
991: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
992: END IF;
993:
994: SAVEPOINT EDIT_APPR_DEPT_SHIFTS;
987: -- Added by rbhavsar on Nov 27, 2007 for ER 5854712
988: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.CREATE_APPR_DEPT_SHIFTS';
989: BEGIN
990: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
991: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure.');
992: END IF;
993:
994: SAVEPOINT EDIT_APPR_DEPT_SHIFTS;
995:
1018: l_appr_deptshift_rec.INV_LOCATOR_ID := NULL;
1019: END IF;
1020:
1021: -- Debug info.
1022: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1023: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call TRANSLATE_VALUE_ID');
1024: END IF;
1025:
1026: TRANSLATE_VALUE_ID
1019: END IF;
1020:
1021: -- Debug info.
1022: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1023: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call TRANSLATE_VALUE_ID');
1024: END IF;
1025:
1026: TRANSLATE_VALUE_ID
1027: (
1029: x_msg_count =>l_msg_count,
1030: x_msg_data =>l_msg_data,
1031: p_x_appr_deptshift_rec =>l_appr_deptshift_rec
1032: );
1033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1034: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from TRANSLATE_VALUE_ID. x_return_status = ' || x_return_status);
1035: END IF;
1036: l_msg_count := FND_MSG_PUB.count_msg;
1037: IF l_msg_count > 0
1030: x_msg_data =>l_msg_data,
1031: p_x_appr_deptshift_rec =>l_appr_deptshift_rec
1032: );
1033: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1034: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from TRANSLATE_VALUE_ID. x_return_status = ' || x_return_status);
1035: END IF;
1036: l_msg_count := FND_MSG_PUB.count_msg;
1037: IF l_msg_count > 0
1038: THEN
1059: x_msg_count =>l_msg_count,
1060: x_msg_data =>l_msg_data,
1061: p_appr_deptshift_rec =>l_appr_deptshift_rec);
1062: END IF;
1063: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1064: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from VALIDATE_APPR_DEPT_SHIFT. x_return_status = ' || x_return_status);
1065: END IF;
1066:
1067: l_msg_count := FND_MSG_PUB.count_msg;
1060: x_msg_data =>l_msg_data,
1061: p_appr_deptshift_rec =>l_appr_deptshift_rec);
1062: END IF;
1063: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1064: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Returned from VALIDATE_APPR_DEPT_SHIFT. x_return_status = ' || x_return_status);
1065: END IF;
1066:
1067: l_msg_count := FND_MSG_PUB.count_msg;
1068:
1073: RAISE FND_API.G_EXC_ERROR;
1074: END IF;
1075:
1076: -- insert process goes here
1077: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1078: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to insert into table.');
1079: END IF;
1080: IF l_appr_deptshift_rec.DML_OPERATION = 'U'
1081: THEN
1074: END IF;
1075:
1076: -- insert process goes here
1077: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1078: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to insert into table.');
1079: END IF;
1080: IF l_appr_deptshift_rec.DML_OPERATION = 'U'
1081: THEN
1082: /*Select AHL_DEPARTMENT_SHIFTS_S.nextval into
1135:
1136: IF FND_API.TO_BOOLEAN(p_commit) THEN
1137: COMMIT;
1138: END IF;
1139: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1140: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1141: END IF;
1142:
1143: EXCEPTION
1136: IF FND_API.TO_BOOLEAN(p_commit) THEN
1137: COMMIT;
1138: END IF;
1139: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1140: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1141: END IF;
1142:
1143: EXCEPTION
1144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN