#' '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)
}