MAGDSTQ5.m

MAGDSTQ5 ;WOIFO/PMK - Study Tracker - Patient Level Query/Retrieve Display; Jul 23, 2020@07:39:54

 ;;3.0;IMAGING;**231**;Mar 19, 2002;Build 9;Aug 30, 2013

 ;; Per VHA Directive 2004-038, this routine should not be modified.

 ;; +---------------------------------------------------------------+

 ;; | Property of the US Government.                                |

 ;; | No permission to copy or redistribute this software is given. |

 ;; | Use of unreleased versions of this software requires the user |

 ;; | to execute a written test agreement with the VistA Imaging    |

 ;; | Development Office of the Department of Veterans Affairs,     |

 ;; | telephone (301) 734-0100.                                     |

 ;; | The Food and Drug Administration classifies this software as  |

 ;; | a medical device.  As such, it may not be changed in any way. |

 ;; | Modifications to this software may result in an adulterated   |

 ;; | medical device under 21CFR820, the use of which is considered |

 ;; | to be a violation of US Federal Statutes.                     |

 ;; +---------------------------------------------------------------+

 ;;

 ; 

 ; Notice: This routine is on both VistA and the DICOM Gateway

 ;

 ;

 Q

 ;

DISPLAY ;

 ; the values of the following four status is important

 N INCORRECT S INCORRECT=-1 ; incorrect selection

 N NOTSELECTED S NOTSELECTED=-2 ; proposed selection not selected

 N CARET S CARET=-3 ; caret (^) indicator

 ;

 N JPATIENT,JSTUDY,JSERIES,JIMAGE ; IENs

 N SETKEYS S SETKEYS=0 ; query keys are set for the next operation

 N HIT ; flag indicated that a patient, study, series, image(s) were selected

 N REPEAT ; loop control

 N RETURN

 ;

 I $D(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"MESSAGE","MSG",0)) D  Q

 . ; display the message, decrement QRSTACK and quit

 . N I

 . F I=1:1:^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"MESSAGE","MSG",0) W !,^(I)

 . D CONTINUE^MAGDSTQ

 . D POP^MAGDSTQ0(.QRSTACK) ; remove the last q/r key entry from the stack

 . Q

 ;

 S HIT=0,REPEAT=1

 F  D  Q:'REPEAT

 . S RETURN=$$DISPLAY1()

 . I HIT S REPEAT=0 Q

 . ; check for going back - RETURN should be 0 for QRSTACK=1

 . I 'RETURN S X="YES" ; ignore prompt

 . E  D  ; do prompt

 . . W !!,"Nothing selected -- Exit display of query results?"

 . . R "  y// ",X:DTIME E  S X="^"

 . . Q

 . I X="" S X="y" W X

 . I "Yy"[$E(X) D

 . . S REPEAT=0

 . . D POP^MAGDSTQ0(.QRSTACK) ; remove the last q/r key entry from the stack

 . . Q

 . Q

 Q

 ;

DISPLAY1() ; select the patient

 N N,REPEAT,RETURN1,RETURN2

 S N=$G(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"PATIENT"),0)

 I N=0 Q 0 ; no patient data

 ;

 S REPEAT=1

 F  D  Q:'REPEAT

 . I N=1,$G(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"STUDY",1),0) D

 . . S JPATIENT=1

 . . S RETURN1=0

 . . Q

 . E  D  Q:'REPEAT  ; N>1

 . . S RETURN1=$$MULTIPLE("PATIENT",N)

 . . I RETURN1=INCORRECT Q

 . . I RETURN1>0 S HIT=1 ; patient selected

 . . I RETURN1'=0 S REPEAT=0 Q

 . . Q

 . S RETURN2=$$DISPLAY2()

 . I HIT S REPEAT=0

 . I RETURN2=NOTSELECTED,N=1 S REPEAT=0,RETURN1=NOTSELECTED

 . Q

 Q RETURN1

 ;

DISPLAY2() ; select the study

 N N,REPEAT,RETURN1,RETURN2

 I '$D(JPATIENT) Q 0 ; no patient selected

 S N=$G(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"STUDY",JPATIENT),0)

 I N=0 Q 0 ; no study data

 ;

 S REPEAT=1

 F  D  Q:'REPEAT

 . I N=1,$G(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"SERIES",JPATIENT,1),0) D

 . . S JSTUDY=1

 . . S RETURN1=0

 . . Q

 . E  D  Q:'REPEAT  ; N>1

 . . S RETURN1=$$MULTIPLE("STUDY",N)

 . . I RETURN1=INCORRECT Q

 . . I RETURN1>0 S HIT=1 ; study selected

 . . I RETURN1'=0 S REPEAT=0 Q

 . . Q

 . S RETURN2=$$DISPLAY3()

 . I HIT S REPEAT=0

 . I RETURN2=NOTSELECTED,N=1 S REPEAT=0,RETURN1=NOTSELECTED

 . Q

 Q RETURN1

 ;

DISPLAY3() ; select the series

 N N,REPEAT,RETURN1,RETURN2

 I '$D(JSTUDY) Q 0 ; no study selected

 S N=$G(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"SERIES",JPATIENT,JSTUDY),0)

 I N=0 Q 0 ; no series data

 ;

 S REPEAT=1

 F  D  Q:'REPEAT

 . I N=1,$G(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"IMAGE",JPATIENT,JSTUDY,1),0) D

 . . S JSERIES=1

 . . S RETURN1=0

 . . Q

 . E  D  Q:'REPEAT  ; N>1

 . . S RETURN1=$$MULTIPLE("SERIES",N)

 . . I RETURN1=INCORRECT Q

 . . I RETURN1>0 S HIT=1 ; series selected

 . . I RETURN1'=0 S REPEAT=0 Q

 . . Q

 . S RETURN2=$$DISPLAY4()

 . I HIT S REPEAT=0

 . I RETURN2=NOTSELECTED,N=1 S REPEAT=0,RETURN1=NOTSELECTED

 . Q

 Q RETURN1

 ; 

DISPLAY4() ; select the image

 N N,REPEAT,RETURN1

 I '$D(JSERIES) Q 0 ; no series selected

 S N=$G(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"IMAGE",JPATIENT,JSTUDY,JSERIES),0)

 I N=0 Q 0 ; no image data

 ;

 S REPEAT=1

 F  D  Q:'REPEAT

 . S RETURN1=$$MULTIPLE("IMAGE",N)

 . I RETURN1=INCORRECT Q

 . I RETURN1>0 S HIT=1 ; image selected

 . I RETURN1'=0 S REPEAT=0 Q

 . Q

 Q RETURN1

 ;

 ;

 ;

MULTIPLE(LEVEL,N) ; display information for multiple entries

 N DONE,IBEGIN,IEND,INCREMENT,PROMPT,SELECT

 S DONE=0

 ;

 I N=1 D

 . S SELECT=$$SINGLE(LEVEL,1)

 . I SELECT=INCORRECT S SELECT=NOTSELECTED

 . Q

 E  D  ; multiple matches, select one

 . S IBEGIN=1 F  D MULTI Q:DONE  D  Q:DONE

 . . S IBEGIN=IBEGIN+INCREMENT

 . . I IBEGIN>N S SELECT=NOTSELECTED,DONE=1

 . . Q

 . Q

 Q SELECT

 ;

MULTI ; display one set of information

 N FIRSTLINE,FINISHED,I,OLDMODALITY,RETURN

 S FINISHED=0 F  D  Q:FINISHED

 . I IBEGIN=1 D

 . . D MULTITOP

 . . S FIRSTLINE=0

 . . Q

 . E  D

 . . W @IOF

 . . S FIRSTLINE=1

 . . Q

 . ;

 . S INCREMENT=(IOSL-4)-$Y

 . I INCREMENT<5 S INCREMENT=22

 . S IEND=IBEGIN+INCREMENT-1 I IEND>N S IEND=N

 . F I=IBEGIN:1:IEND D MULTIONE

 . W !!,"Enter 1-",IEND," to see the ",PROMPT(1)," details"

 . I IEND<N W ", <Enter> to see more ",PROMPT(2)

 . R ": ",I:DTIME E  D MULTIEND S FINISHED=1 Q

 . I I="" S SELECT=NOTSELECTED S FINISHED=1 Q

 . I I["^" D MULTIEND S FINISHED=1 Q

 . I I?1N.N,I'<1,I'>IEND S SELECT=$$SINGLE(LEVEL,I) S DONE=1,FINISHED=1 Q

 . R " ???",X:DTIME E  D MULTIEND S FINISHED=1 Q

 . Q

 Q

 ;

MULTIEND ; set loop end variables

 S DONE=1,I="",SELECT=NOTSELECTED

 Q

 ;

MULTITOP ; display the MULTI header

 I LEVEL="PATIENT" D

 . W @IOF,?4,"Identifier ",?17,"Patient Name",?60,"Birth Date",?75,"Sex"

 . W !?4,"-----------",?17,"------------",?60,"----------",?75,"---"

 . S PROMPT(1)="patient",PROMPT(2)="patients"

 . S (JPATIENT,JSTUDY,JSERIES)=""

 . Q

 E  I LEVEL="STUDY" D

 . D HEADER

 . S RETURN=$$PATIENT^MAGDSTQ6() ; ignore RETURN

 . W !!?4,"Accession Number",?22,"Study Date",?34,"Description"

 . W !?4,"----------------",?22,"----------",?34,"-----------"

 . S PROMPT(1)="study",PROMPT(2)="studies"

 . S (JSTUDY,JSERIES)=""

 . Q

 E  I LEVEL="SERIES" D

 . D HEADER

 . S RETURN=$$STUDY^MAGDSTQ6() ; ignore RETURN

 . S PROMPT(1)="series",PROMPT(2)="series"

 . Q

 E  D  ; image (composite SOP object)

 . D HEADER

 . S RETURN=$$SERIES^MAGDSTQ6() ; ignore RETURN

 . S PROMPT(1)="image",PROMPT(2)="images"

 . Q

 Q

 ;

MULTIONE ; display one line of data for each patient, study, series, or image

 N VAR

 S VAR=""

 W:'FIRSTLINE !

 I LEVEL="SERIES" D

 . N MODALITY

 . S MODALITY=^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"SERIES",JPATIENT,JSTUDY,I,"MODALITY")

 . I MODALITY=$G(OLDMODALITY) Q

 . W "Modality: ",MODALITY,!

 . S OLDMODALITY=MODALITY

 . Q

 W $J(I,3),")",?5 S FIRSTLINE=0

 I LEVEL="PATIENT" D

 . F  S VAR=$O(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"PATIENT",I,VAR)) Q:VAR=""  N @VAR S @VAR=^(VAR)

 . W PID,?17,$E($$NAME^MAGDSTQ6(PNAME),1,40),?60,$$DATE^MAGDSTQ6(DOB,"SHORT"),?76,SEX

 . Q

 E  I LEVEL="STUDY" D

 . F  S VAR=$O(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"STUDY",JPATIENT,I,VAR)) Q:VAR=""  N @VAR S @VAR=^(VAR)

 . W ACNUMB

 . W ?22,$$DATE^MAGDSTQ6(STUDYDATE,"SHORT")

 . W ?34,$E(DESCRIPTION,1,80-34) ; output to end of 80 character line

 . Q

 E  I LEVEL="SERIES" D

 . F  S VAR=$O(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"SERIES",JPATIENT,JSTUDY,I,VAR)) Q:VAR=""  N @VAR S @VAR=^(VAR)

 . I $G(SERIESDESC)'="",SERIESDESC'="<unknown>" W SERIESDESC

 . E  W "Series UID: ",SERIESUID

 . Q

 E  I LEVEL="IMAGE" D

 . F  S VAR=$O(^XTMP(MAGXTMP,HOSTNAME,$J,QRSTACK,"IMAGE",JPATIENT,JSTUDY,JSERIES,I,VAR)) Q:VAR=""  N @VAR S @VAR=^(VAR)

 . W "SOP Instance UID: ",SOPUID

 . Q

 Q

 ;

SINGLE(LEVEL,I) ; display detailed information for one entity

 N RETURN,X

 D HEADER

 I LEVEL="PATIENT" D

 . S JPATIENT=I,RETURN=$$PATIENT^MAGDSTQ6()

 . Q

 E  I LEVEL="STUDY" D

 . S JSTUDY=I,RETURN=$$STUDY^MAGDSTQ6()

 . Q

 E  I LEVEL="SERIES" D

 . S JSERIES=I,RETURN=$$SERIES^MAGDSTQ6()

 . Q

 E  D

 . S JIMAGE=I,RETURN=$$IMAGE^MAGDSTQ6()

 . Q

 Q RETURN

 ;

HEADER ; display the header

 N I,J,X

 S X=$S(OPTION="QR":"QUERY/RETRIEVE",1:"QUERY")_" RESULTS"

 S J=80-$L(X)/2

 W @IOF,?J,X

 W !,?J F I=1:1:$L(X) W "-"

 W !

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MAGDSTQ5   8750     printed  Mar 13, 2025@21:06:55                                                                                                                                                                                                    Page 2

MAGDSTQ5  ;WOIFO/PMK - Study Tracker - Patient Level Query/Retrieve Display; Jul 23, 2020@07:39:54

 +1       ;;3.0;IMAGING;**231**;Mar 19, 2002;Build 9;Aug 30, 2013

 +2       ;; Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;; +---------------------------------------------------------------+

 +4       ;; | Property of the US Government.                                |

 +5       ;; | No permission to copy or redistribute this software is given. |

 +6       ;; | Use of unreleased versions of this software requires the user |

 +7       ;; | to execute a written test agreement with the VistA Imaging    |

 +8       ;; | Development Office of the Department of Veterans Affairs,     |

 +9       ;; | telephone (301) 734-0100.                                     |

 +10      ;; | The Food and Drug Administration classifies this software as  |

 +11      ;; | a medical device.  As such, it may not be changed in any way. |

 +12      ;; | Modifications to this software may result in an adulterated   |

 +13      ;; | medical device under 21CFR820, the use of which is considered |

 +14      ;; | to be a violation of US Federal Statutes.                     |

 +15      ;; +---------------------------------------------------------------+

 +16      ;;

 +17      ; 

 +18      ; Notice: This routine is on both VistA and the DICOM Gateway

 +19      ;

 +20      ;

 +21       QUIT 

 +22      ;

DISPLAY   ;

 +1       ; the values of the following four status is important

 +2       ; incorrect selection

           NEW INCORRECT

           SET INCORRECT=-1

 +3       ; proposed selection not selected

           NEW NOTSELECTED

           SET NOTSELECTED=-2

 +4       ; caret (^) indicator

           NEW CARET

           SET CARET=-3

 +5       ;

 +6       ; IENs

           NEW JPATIENT,JSTUDY,JSERIES,JIMAGE

 +7       ; query keys are set for the next operation

           NEW SETKEYS

           SET SETKEYS=0

 +8       ; flag indicated that a patient, study, series, image(s) were selected

           NEW HIT

 +9       ; loop control

           NEW REPEAT

 +10       NEW RETURN

 +11      ;

 +12       IF $DATA(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"MESSAGE","MSG",0))

               Begin DoDot:1

 +13      ; display the message, decrement QRSTACK and quit

 +14               NEW I

 +15               FOR I=1:1:^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"MESSAGE","MSG",0)

                       WRITE !,^(I)

 +16               DO CONTINUE^MAGDSTQ

 +17      ; remove the last q/r key entry from the stack

                   DO POP^MAGDSTQ0(.QRSTACK)

 +18               QUIT 

               End DoDot:1

               QUIT 

 +19      ;

 +20       SET HIT=0

           SET REPEAT=1

 +21       FOR 

               Begin DoDot:1

 +22               SET RETURN=$$DISPLAY1()

 +23               IF HIT

                       SET REPEAT=0

                       QUIT 

 +24      ; check for going back - RETURN should be 0 for QRSTACK=1

 +25      ; ignore prompt

                   IF 'RETURN

                       SET X="YES"

 +26      ; do prompt

                  IF '$TEST

                       Begin DoDot:2

 +27                       WRITE !!,"Nothing selected -- Exit display of query results?"

 +28                       READ "  y// ",X:DTIME

                          IF '$TEST

                               SET X="^"

 +29                       QUIT 

                       End DoDot:2

 +30               IF X=""

                       SET X="y"

                       WRITE X

 +31               IF "Yy"[$EXTRACT(X)

                       Begin DoDot:2

 +32                       SET REPEAT=0

 +33      ; remove the last q/r key entry from the stack

                           DO POP^MAGDSTQ0(.QRSTACK)

 +34                       QUIT 

                       End DoDot:2

 +35               QUIT 

               End DoDot:1

               if 'REPEAT

                   QUIT 

 +36       QUIT 

 +37      ;

DISPLAY1() ; select the patient

 +1        NEW N,REPEAT,RETURN1,RETURN2

 +2        SET N=$GET(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"PATIENT"),0)

 +3       ; no patient data

           IF N=0

               QUIT 0

 +4       ;

 +5        SET REPEAT=1

 +6        FOR 

               Begin DoDot:1

 +7                IF N=1

                       IF $GET(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"STUDY",1),0)

                           Begin DoDot:2

 +8                            SET JPATIENT=1

 +9                            SET RETURN1=0

 +10                           QUIT 

                           End DoDot:2

 +11      ; N>1

                  IF '$TEST

                       Begin DoDot:2

 +12                       SET RETURN1=$$MULTIPLE("PATIENT",N)

 +13                       IF RETURN1=INCORRECT

                               QUIT 

 +14      ; patient selected

                           IF RETURN1>0

                               SET HIT=1

 +15                       IF RETURN1'=0

                               SET REPEAT=0

                               QUIT 

 +16                       QUIT 

                       End DoDot:2

                       if 'REPEAT

                           QUIT 

 +17               SET RETURN2=$$DISPLAY2()

 +18               IF HIT

                       SET REPEAT=0

 +19               IF RETURN2=NOTSELECTED

                       IF N=1

                           SET REPEAT=0

                           SET RETURN1=NOTSELECTED

 +20               QUIT 

               End DoDot:1

               if 'REPEAT

                   QUIT 

 +21       QUIT RETURN1

 +22      ;

DISPLAY2() ; select the study

 +1        NEW N,REPEAT,RETURN1,RETURN2

 +2       ; no patient selected

           IF '$DATA(JPATIENT)

               QUIT 0

 +3        SET N=$GET(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"STUDY",JPATIENT),0)

 +4       ; no study data

           IF N=0

               QUIT 0

 +5       ;

 +6        SET REPEAT=1

 +7        FOR 

               Begin DoDot:1

 +8                IF N=1

                       IF $GET(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"SERIES",JPATIENT,1),0)

                           Begin DoDot:2

 +9                            SET JSTUDY=1

 +10                           SET RETURN1=0

 +11                           QUIT 

                           End DoDot:2

 +12      ; N>1

                  IF '$TEST

                       Begin DoDot:2

 +13                       SET RETURN1=$$MULTIPLE("STUDY",N)

 +14                       IF RETURN1=INCORRECT

                               QUIT 

 +15      ; study selected

                           IF RETURN1>0

                               SET HIT=1

 +16                       IF RETURN1'=0

                               SET REPEAT=0

                               QUIT 

 +17                       QUIT 

                       End DoDot:2

                       if 'REPEAT

                           QUIT 

 +18               SET RETURN2=$$DISPLAY3()

 +19               IF HIT

                       SET REPEAT=0

 +20               IF RETURN2=NOTSELECTED

                       IF N=1

                           SET REPEAT=0

                           SET RETURN1=NOTSELECTED

 +21               QUIT 

               End DoDot:1

               if 'REPEAT

                   QUIT 

 +22       QUIT RETURN1

 +23      ;

DISPLAY3() ; select the series

 +1        NEW N,REPEAT,RETURN1,RETURN2

 +2       ; no study selected

           IF '$DATA(JSTUDY)

               QUIT 0

 +3        SET N=$GET(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"SERIES",JPATIENT,JSTUDY),0)

 +4       ; no series data

           IF N=0

               QUIT 0

 +5       ;

 +6        SET REPEAT=1

 +7        FOR 

               Begin DoDot:1

 +8                IF N=1

                       IF $GET(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"IMAGE",JPATIENT,JSTUDY,1),0)

                           Begin DoDot:2

 +9                            SET JSERIES=1

 +10                           SET RETURN1=0

 +11                           QUIT 

                           End DoDot:2

 +12      ; N>1

                  IF '$TEST

                       Begin DoDot:2

 +13                       SET RETURN1=$$MULTIPLE("SERIES",N)

 +14                       IF RETURN1=INCORRECT

                               QUIT 

 +15      ; series selected

                           IF RETURN1>0

                               SET HIT=1

 +16                       IF RETURN1'=0

                               SET REPEAT=0

                               QUIT 

 +17                       QUIT 

                       End DoDot:2

                       if 'REPEAT

                           QUIT 

 +18               SET RETURN2=$$DISPLAY4()

 +19               IF HIT

                       SET REPEAT=0

 +20               IF RETURN2=NOTSELECTED

                       IF N=1

                           SET REPEAT=0

                           SET RETURN1=NOTSELECTED

 +21               QUIT 

               End DoDot:1

               if 'REPEAT

                   QUIT 

 +22       QUIT RETURN1

 +23      ; 

DISPLAY4() ; select the image

 +1        NEW N,REPEAT,RETURN1

 +2       ; no series selected

           IF '$DATA(JSERIES)

               QUIT 0

 +3        SET N=$GET(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"IMAGE",JPATIENT,JSTUDY,JSERIES),0)

 +4       ; no image data

           IF N=0

               QUIT 0

 +5       ;

 +6        SET REPEAT=1

 +7        FOR 

               Begin DoDot:1

 +8                SET RETURN1=$$MULTIPLE("IMAGE",N)

 +9                IF RETURN1=INCORRECT

                       QUIT 

 +10      ; image selected

                   IF RETURN1>0

                       SET HIT=1

 +11               IF RETURN1'=0

                       SET REPEAT=0

                       QUIT 

 +12               QUIT 

               End DoDot:1

               if 'REPEAT

                   QUIT 

 +13       QUIT RETURN1

 +14      ;

 +15      ;

 +16      ;

MULTIPLE(LEVEL,N) ; display information for multiple entries

 +1        NEW DONE,IBEGIN,IEND,INCREMENT,PROMPT,SELECT

 +2        SET DONE=0

 +3       ;

 +4        IF N=1

               Begin DoDot:1

 +5                SET SELECT=$$SINGLE(LEVEL,1)

 +6                IF SELECT=INCORRECT

                       SET SELECT=NOTSELECTED

 +7                QUIT 

               End DoDot:1

 +8       ; multiple matches, select one

          IF '$TEST

               Begin DoDot:1

 +9                SET IBEGIN=1

                   FOR 

                       DO MULTI

                       if DONE

                           QUIT 

                       Begin DoDot:2

 +10                       SET IBEGIN=IBEGIN+INCREMENT

 +11                       IF IBEGIN>N

                               SET SELECT=NOTSELECTED

                               SET DONE=1

 +12                       QUIT 

                       End DoDot:2

                       if DONE

                           QUIT 

 +13               QUIT 

               End DoDot:1

 +14       QUIT SELECT

 +15      ;

MULTI     ; display one set of information

 +1        NEW FIRSTLINE,FINISHED,I,OLDMODALITY,RETURN

 +2        SET FINISHED=0

           FOR 

               Begin DoDot:1

 +3                IF IBEGIN=1

                       Begin DoDot:2

 +4                        DO MULTITOP

 +5                        SET FIRSTLINE=0

 +6                        QUIT 

                       End DoDot:2

 +7               IF '$TEST

                       Begin DoDot:2

 +8                        WRITE @IOF

 +9                        SET FIRSTLINE=1

 +10                       QUIT 

                       End DoDot:2

 +11      ;

 +12               SET INCREMENT=(IOSL-4)-$Y

 +13               IF INCREMENT<5

                       SET INCREMENT=22

 +14               SET IEND=IBEGIN+INCREMENT-1

                   IF IEND>N

                       SET IEND=N

 +15               FOR I=IBEGIN:1:IEND

                       DO MULTIONE

 +16               WRITE !!,"Enter 1-",IEND," to see the ",PROMPT(1)," details"

 +17               IF IEND<N

                       WRITE ", <Enter> to see more ",PROMPT(2)

 +18               READ ": ",I:DTIME

                  IF '$TEST

                       DO MULTIEND

                       SET FINISHED=1

                       QUIT 

 +19               IF I=""

                       SET SELECT=NOTSELECTED

                       SET FINISHED=1

                       QUIT 

 +20               IF I["^"

                       DO MULTIEND

                       SET FINISHED=1

                       QUIT 

 +21               IF I?1N.N

                       IF I'<1

                           IF I'>IEND

                               SET SELECT=$$SINGLE(LEVEL,I)

                               SET DONE=1

                               SET FINISHED=1

                               QUIT 

 +22               READ " ???",X:DTIME

                  IF '$TEST

                       DO MULTIEND

                       SET FINISHED=1

                       QUIT 

 +23               QUIT 

               End DoDot:1

               if FINISHED

                   QUIT 

 +24       QUIT 

 +25      ;

MULTIEND  ; set loop end variables

 +1        SET DONE=1

           SET I=""

           SET SELECT=NOTSELECTED

 +2        QUIT 

 +3       ;

MULTITOP  ; display the MULTI header

 +1        IF LEVEL="PATIENT"

               Begin DoDot:1

 +2                WRITE @IOF,?4,"Identifier ",?17,"Patient Name",?60,"Birth Date",?75,"Sex"

 +3                WRITE !?4,"-----------",?17,"------------",?60,"----------",?75,"---"

 +4                SET PROMPT(1)="patient"

                   SET PROMPT(2)="patients"

 +5                SET (JPATIENT,JSTUDY,JSERIES)=""

 +6                QUIT 

               End DoDot:1

 +7       IF '$TEST

               IF LEVEL="STUDY"

                   Begin DoDot:1

 +8                    DO HEADER

 +9       ; ignore RETURN

                       SET RETURN=$$PATIENT^MAGDSTQ6()

 +10                   WRITE !!?4,"Accession Number",?22,"Study Date",?34,"Description"

 +11                   WRITE !?4,"----------------",?22,"----------",?34,"-----------"

 +12                   SET PROMPT(1)="study"

                       SET PROMPT(2)="studies"

 +13                   SET (JSTUDY,JSERIES)=""

 +14                   QUIT 

                   End DoDot:1

 +15      IF '$TEST

               IF LEVEL="SERIES"

                   Begin DoDot:1

 +16                   DO HEADER

 +17      ; ignore RETURN

                       SET RETURN=$$STUDY^MAGDSTQ6()

 +18                   SET PROMPT(1)="series"

                       SET PROMPT(2)="series"

 +19                   QUIT 

                   End DoDot:1

 +20      ; image (composite SOP object)

          IF '$TEST

               Begin DoDot:1

 +21               DO HEADER

 +22      ; ignore RETURN

                   SET RETURN=$$SERIES^MAGDSTQ6()

 +23               SET PROMPT(1)="image"

                   SET PROMPT(2)="images"

 +24               QUIT 

               End DoDot:1

 +25       QUIT 

 +26      ;

MULTIONE  ; display one line of data for each patient, study, series, or image

 +1        NEW VAR

 +2        SET VAR=""

 +3        if 'FIRSTLINE

               WRITE !

 +4        IF LEVEL="SERIES"

               Begin DoDot:1

 +5                NEW MODALITY

 +6                SET MODALITY=^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"SERIES",JPATIENT,JSTUDY,I,"MODALITY")

 +7                IF MODALITY=$GET(OLDMODALITY)

                       QUIT 

 +8                WRITE "Modality: ",MODALITY,!

 +9                SET OLDMODALITY=MODALITY

 +10               QUIT 

               End DoDot:1

 +11       WRITE $JUSTIFY(I,3),")",?5

           SET FIRSTLINE=0

 +12       IF LEVEL="PATIENT"

               Begin DoDot:1

 +13               FOR 

                       SET VAR=$ORDER(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"PATIENT",I,VAR))

                       if VAR=""

                           QUIT 

                       NEW @VAR

                       SET @VAR=^(VAR)

 +14               WRITE PID,?17,$EXTRACT($$NAME^MAGDSTQ6(PNAME),1,40),?60,$$DATE^MAGDSTQ6(DOB,"SHORT"),?76,SEX

 +15               QUIT 

               End DoDot:1

 +16      IF '$TEST

               IF LEVEL="STUDY"

                   Begin DoDot:1

 +17                   FOR 

                           SET VAR=$ORDER(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"STUDY",JPATIENT,I,VAR))

                           if VAR=""

                               QUIT 

                           NEW @VAR

                           SET @VAR=^(VAR)

 +18                   WRITE ACNUMB

 +19                   WRITE ?22,$$DATE^MAGDSTQ6(STUDYDATE,"SHORT")

 +20      ; output to end of 80 character line

                       WRITE ?34,$EXTRACT(DESCRIPTION,1,80-34)

 +21                   QUIT 

                   End DoDot:1

 +22      IF '$TEST

               IF LEVEL="SERIES"

                   Begin DoDot:1

 +23                   FOR 

                           SET VAR=$ORDER(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"SERIES",JPATIENT,JSTUDY,I,VAR))

                           if VAR=""

                               QUIT 

                           NEW @VAR

                           SET @VAR=^(VAR)

 +24                   IF $GET(SERIESDESC)'=""

                           IF SERIESDESC'="<unknown>"

                               WRITE SERIESDESC

 +25                  IF '$TEST

                           WRITE "Series UID: ",SERIESUID

 +26                   QUIT 

                   End DoDot:1

 +27      IF '$TEST

               IF LEVEL="IMAGE"

                   Begin DoDot:1

 +28                   FOR 

                           SET VAR=$ORDER(^XTMP(MAGXTMP,HOSTNAME,$JOB,QRSTACK,"IMAGE",JPATIENT,JSTUDY,JSERIES,I,VAR))

                           if VAR=""

                               QUIT 

                           NEW @VAR

                           SET @VAR=^(VAR)

 +29                   WRITE "SOP Instance UID: ",SOPUID

 +30                   QUIT 

                   End DoDot:1

 +31       QUIT 

 +32      ;

SINGLE(LEVEL,I) ; display detailed information for one entity

 +1        NEW RETURN,X

 +2        DO HEADER

 +3        IF LEVEL="PATIENT"

               Begin DoDot:1

 +4                SET JPATIENT=I

                   SET RETURN=$$PATIENT^MAGDSTQ6()

 +5                QUIT 

               End DoDot:1

 +6       IF '$TEST

               IF LEVEL="STUDY"

                   Begin DoDot:1

 +7                    SET JSTUDY=I

                       SET RETURN=$$STUDY^MAGDSTQ6()

 +8                    QUIT 

                   End DoDot:1

 +9       IF '$TEST

               IF LEVEL="SERIES"