--- a
+++ b/RadETL/R/radiologyOccurrenceId_ImageTable.R
@@ -0,0 +1,27 @@
+#' 'radiologyOccurrenceId'
+#'
+#' radiologyOccurrenceId function will read StudyInstanceUID metadata of all DICOM files read by DICOMHeaderList function
+#'
+#'
+#' @param DICOMList you can put it like this and then run the function : DICOMList<-DICOMHeaderList(DICOMFolderPath)
+#' @import digest
+#' @import dplyr
+#' @importFrom magrittr "%>%"
+#'
+#'
+#' @return A list containing anonymized StudyInstanceUID of DICOM
+#' @examples
+#' DICOMList<-DICOMHeaderList(DICOMFolderPath)
+#' radiologyOccurrenceId(DICOMList)
+#' @export
+
+radiologyOccurrenceId<-function(DICOMList){
+    radiologyOccurrenceId<-lapply(DICOMList, function(x){
+        radiologyOccurrenceId<-as.character(data.frame(x[[1]] %>% dplyr::filter(name=='StudyInstanceUID') %>% dplyr::select(value))[c(1),])
+        if(radiologyOccurrenceId=="character(0)" | radiologyOccurrenceId=="" | radiologyOccurrenceId=="integer(0)" | is.na(radiologyOccurrenceId)==T){
+            radiologyOccurrenceId='NA'
+        }
+        return(radiologyOccurrenceId)})
+    radiologyOccurrenceId<-as.data.frame(do.call(rbind, radiologyOccurrenceId))
+    colnames(radiologyOccurrenceId)<-'radiologyOccurrenceId'
+    return(radiologyOccurrenceId)}