655: l_api_name CONSTANT VARCHAR2(30):= 'PROCESS_MR_VISIT_TYPES';
656: l_api_version NUMBER:=1.0;
657: l_mr_visit_type_ID NUMBER:=0;
658: BEGIN
659: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
660: fnd_log.string(fnd_log.level_procedure,
661: 'ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.process_mr_visit_types',
662: 'At the start of PLSQL procedure process_mr_visit_types');
663: END IF;
656: l_api_version NUMBER:=1.0;
657: l_mr_visit_type_ID NUMBER:=0;
658: BEGIN
659: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
660: fnd_log.string(fnd_log.level_procedure,
661: 'ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.process_mr_visit_types',
662: 'At the start of PLSQL procedure process_mr_visit_types');
663: END IF;
664:
683: x_return_status:=FND_API.G_RET_STS_SUCCESS;
684:
685: IF p_x_mr_visit_type_tbl.COUNT <1
686: THEN
687: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
688: THEN
689: fnd_log.string(fnd_log.level_statement,
690: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.process_mr_visit_types',
691: 'Nothing to process as p_x_mr_visit_type_tbl.COUNT is :'||p_x_mr_visit_type_tbl.COUNT);
685: IF p_x_mr_visit_type_tbl.COUNT <1
686: THEN
687: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
688: THEN
689: fnd_log.string(fnd_log.level_statement,
690: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.process_mr_visit_types',
691: 'Nothing to process as p_x_mr_visit_type_tbl.COUNT is :'||p_x_mr_visit_type_tbl.COUNT);
692: END IF;
693: --RETURN; -- NOTHING TO PROCESS
692: END IF;
693: --RETURN; -- NOTHING TO PROCESS
694: END IF;
695:
696: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
697: THEN
698: fnd_log.string(fnd_log.level_statement,
699: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.sort_records',
700: 'IF P_MODULE_TYPE IS JSP SET LOV IDS TO NULLIFY ');
694: END IF;
695:
696: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
697: THEN
698: fnd_log.string(fnd_log.level_statement,
699: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.sort_records',
700: 'IF P_MODULE_TYPE IS JSP SET LOV IDS TO NULLIFY ');
701: END IF;
702:
712: --p_x_mr_visit_type_tbl(i).mr_visit_type_code:=FND_API.G_MISS_CHAR;
713: END LOOP;
714: END IF;
715:
716: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
717: THEN
718: fnd_log.string(fnd_log.level_statement,
719: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.DEFAULT_MISSING_ATTRIBS',
720: 'Start of DEFAULT_MISSING_ATTRIBS');
714: END IF;
715:
716: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
717: THEN
718: fnd_log.string(fnd_log.level_statement,
719: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.DEFAULT_MISSING_ATTRIBS',
720: 'Start of DEFAULT_MISSING_ATTRIBS');
721: END IF;
722:
725: p_x_mr_visit_type_tbl =>p_x_mr_visit_type_tbl
726: );
727:
728:
729: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
730: THEN
731: fnd_log.string(fnd_log.level_statement,
732: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.DEFAULT_MISSING_ATTRIBS',
733: 'End of DEFAULT_MISSING_ATTRIBS');
727:
728:
729: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
730: THEN
731: fnd_log.string(fnd_log.level_statement,
732: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.DEFAULT_MISSING_ATTRIBS',
733: 'End of DEFAULT_MISSING_ATTRIBS');
734: END IF;
735:
732: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.DEFAULT_MISSING_ATTRIBS',
733: 'End of DEFAULT_MISSING_ATTRIBS');
734: END IF;
735:
736: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
737: THEN
738: fnd_log.string(fnd_log.level_statement,
739: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.sort_records',
740: 'Start of SORT_RECORDS');
734: END IF;
735:
736: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
737: THEN
738: fnd_log.string(fnd_log.level_statement,
739: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.sort_records',
740: 'Start of SORT_RECORDS');
741: END IF;
742:
741: END IF;
742:
743: SORT_RECORDS(p_x_mr_visit_type_tbl);
744:
745: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
746: THEN
747: fnd_log.string(fnd_log.level_statement,
748: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.sort_records',
749: 'End of SORT_RECORDS');
743: SORT_RECORDS(p_x_mr_visit_type_tbl);
744:
745: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
746: THEN
747: fnd_log.string(fnd_log.level_statement,
748: 'Ahl.plsql.AHL_FMP_MR_VISIT_TYPES_PVT.sort_records',
749: 'End of SORT_RECORDS');
750: END IF;
751:
754: LOOP
755:
756: IF p_x_mr_visit_type_tbl(i).DML_OPERATION<>'D'
757: THEN
758: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
759: THEN
760: fnd_log.string(fnd_log.level_statement,
761: 'Local procedure TRANS_VALUE_ID',
762: 'Start of TRANS_VALUE_ID');
756: IF p_x_mr_visit_type_tbl(i).DML_OPERATION<>'D'
757: THEN
758: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
759: THEN
760: fnd_log.string(fnd_log.level_statement,
761: 'Local procedure TRANS_VALUE_ID',
762: 'Start of TRANS_VALUE_ID');
763: END IF;
764:
766: (
767: p_x_mr_visit_type_rec =>p_x_mr_visit_type_tbl(i)
768: );
769:
770: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
771: THEN
772: fnd_log.string(fnd_log.level_statement,
773: 'Local procedure TRANS_VALUE_ID',
774: 'End of TRANS_VALUE_ID');
768: );
769:
770: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
771: THEN
772: fnd_log.string(fnd_log.level_statement,
773: 'Local procedure TRANS_VALUE_ID',
774: 'End of TRANS_VALUE_ID');
775: END IF;
776:
780:
781: x_msg_count := FND_MSG_PUB.count_msg;
782: IF x_msg_count > 0 THEN
783:
784: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
785: THEN
786: fnd_log.string(fnd_log.level_statement,
787: 'Local procedure TRANS_VALUE_ID',
788: 'End of TRANS_VALUE_ID');
782: IF x_msg_count > 0 THEN
783:
784: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
785: THEN
786: fnd_log.string(fnd_log.level_statement,
787: 'Local procedure TRANS_VALUE_ID',
788: 'End of TRANS_VALUE_ID');
789: END IF;
790: