--- a
+++ b/RadETL/R/imageNo_ImageTable.R
@@ -0,0 +1,24 @@
+#' 'imageNo'
+#'
+#' imageNo function will indicate order of DICOM images in specific radiologyOccurrenceId, and radiologyPhaseConceptId
+#'
+#'
+#' @param DICOMList you can put it like this and then run the function : DICOMList<-DICOMHeaderList(DICOMFolderPath)
+#' @import dplyr
+#' @importFrom magrittr "%>%"
+#'
+#'
+#' @return A list indicating order of DICOM images in specific radiologyOccurrenceId, and radiologyPhaseConceptId
+#' @examples
+#' DICOMList<-DICOMHeaderList(DICOMFolderPath)
+#' imageNo(DICOMList)
+#' @export
+
+imageNo<-function(DICOMList){
+    imageNo<-cbind(imageId(DICOMList),radiologyOccurrenceId(DICOMList), radiologyPhaseConceptId(DICOMList))
+    imageNo<-imageNo%>%dplyr::group_by(radiologyOccurrenceId, radiologyPhaseConceptId)%>%dplyr::mutate(imageNo=row_number())
+    imageNo<-imageNo%>%dplyr::group_by(radiologyOccurrenceId, radiologyPhaseConceptId)%>%dplyr::mutate(phaseTotalNo=n())
+    imageNo<-imageNo[, c(1, 4, 5)]
+    return(imageNo)
+}
+