Routine: MAGDSTA7

MAGDSTA7 ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Mar 04, 2022@13:42:59

 ;;3.0;IMAGING;**231,305**;Mar 19, 2002;Build 3

 ;; 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.                     |

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

;;

 ; Supported IA #2056 reference $$GET1^DIQ function call

 ; Supported IA #2056 reference GETS^DIQ subroutine call

 ; Supported IA #10103 reference $$FMTE^XLFDT function call

 ; Controlled IA #4110 to read REQUEST/CONSULTATION file (#123)

 ; Controlled IA #3461 to read TIU EXTERNAL DATA LINK (#8825.91)

 ; Look for images for partially resulted or completed studies.

MAIN() ; The main loop for the program for consults and procedures

 ; Input Variables

 ; SCANMODE ;-- "PATIENT", "DATE", or "NUMBER"

 ; DIRECTION ;- 1="ASCENDING" or 0="DESCENDING"

 ; BATCHSIZE ;- number of consult & procedure requests to process on this run

 ; BEGDATE ;--- begin date for search

 ; ENDDATE ;-- end date for search

 ; QRSCP ;----- default query/retrieve provider

 ; HOURS ;----- 24 character string of Y's and N's indicating active times

 N GMRCIEN,RUNTIME,STOP,X

 D HEADER^MAGDSTAA(0)

 ; STOP: -1=error, 0=run completed, 1=run stopped

 S STOP=$$CONLKUP()

 Q STOP

CONLKUP() ; Find the next study to retrieve

 N STOP

 I SCANMODE="PATIENT" D

 . S STOP=$$PATIENT()

. Q

 E  I SCANMODE="DATE" D

 . S STOP=$$DATE()

. Q

 E  I SCANMODE="NUMBER" D

 . S STOP=$$NUMBER()

. Q

 E  D

 . W !!,"*** Illegal SCAN MODE: """,SCANMODE,""""

 . S STOP=-1

. Q

 Q STOP

PATIENT() ; use "AD" cross-reference to find studies for a single patient

 ; ^GMR(123,"AD",DFN,GMRCDATE,GMRCIEN)=""

 N DATEBEG,DATESTOP,DONE,GMRCDATE,STOP

 S STOP=0 ; set to stop the q/r process

 D SETDATES(.DATEBEG,.DATESTOP,BEGDATE,ENDDATE,DIRECTION)

 S GMRCDATE=DATEBEG,DONE=0

 ; reverse date, opposite sort order

 F  S GMRCDATE=$O(^GMR(123,"AD",DFN,GMRCDATE),-DIRECTION) Q:'GMRCDATE  Q:DONE  Q:STOP  D

 . I DIRECTION=1 S DONE=GMRCDATE<DATESTOP Q:DONE

 . E  S DONE=GMRCDATE>DATESTOP Q:DONE

 . S GMRCIEN=""

 . F  S GMRCIEN=$O(^GMR(123,"AD",DFN,GMRCDATE,GMRCIEN),DIRECTION) Q:'GMRCIEN  Q:STOP  D

 . . ; does this consult get images?

 . . I $$CHECK^MAGDSTA6(GMRCIEN)'=1 Q  ; nope

 . . S STOP=$$CONLKUP1(GMRCIEN)

 . . Q

. Q

 Q STOP

DATE() ; use "AE" cross-reference to find completed studies

 ; ^GMR(123,"AE",SERVICE,STATUS,GMRCDATE,GMRCIEN)=""

 ; only look for COMPLETED studies and PARTIAL RESULTS

 N DATEBEG,DATESTOP,DONE,GMRCDATE,STATUS,STOP

 S STOP=0 ; set to stop the q/r process

 D SETDATES(.DATEBEG,.DATESTOP,BEGDATE,ENDDATE,DIRECTION)

 S SERVICE="" F  S SERVICE=$O(CONSULTSERVICES(SERVICE)) Q:SERVICE=""  Q:STOP  D

 . F STATUS=2,9 D  ; STATUS=2 for COMPLETE, STATUS=9 for PARTIAL RESULTS

 . . W !!,CONSULTSERVICES(SERVICE)," -- "

 . . W $S(STATUS=2:"COMPLETE",STATUS=9:"PARTIAL RESULTS",1:"Unknown Status "_STATUS)

 . . S GMRCDATE=DATEBEG,DONE=0

 . . ; reverse date, opposite sort order

 . . F  S GMRCDATE=$O(^GMR(123,"AE",SERVICE,STATUS,GMRCDATE),-DIRECTION) Q:'GMRCDATE  Q:DONE  Q:STOP  D

 . . . I DIRECTION=1 S DONE=GMRCDATE<DATESTOP Q:DONE

 . . . E  S DONE=GMRCDATE>DATESTOP Q:DONE

 . . . S GMRCIEN=""

 . . . F  S GMRCIEN=$O(^GMR(123,"AE",SERVICE,STATUS,GMRCDATE,GMRCIEN),DIRECTION) Q:'GMRCIEN  Q:STOP  D

 . . . . ; does this consult get images?

 . . . . I $$CHECK^MAGDSTA6(GMRCIEN)'=1 Q  ; nope

 . . . . S STOP=$$CONLKUP1(GMRCIEN)

 . . . . Q

 . . . Q

 . . Q

. Q

 Q STOP

NUMBER() ; use GMRCIEN to find completed studies

 ; ^GMR(123,GMRC)=<consult record>

 N BATCHSIZE,GMRCIEN,STOP,STUDYCNT

 S STOP=0 ; set to stop the q/r process

 S STUDYCNT=0

 S BATCHSIZE=$G(^TMP("MAG",$J,"BATCH Q/R","BATCH SIZE"))

 S GMRCIEN=$G(^TMP("MAG",$J,"BATCH Q/R","REPORT/STUDY IEN"))

 S GMRCIEN=GMRCIEN-DIRECTION ; Massage value for $O

 F  S GMRCIEN=$O(^GMR(123,GMRCIEN),DIRECTION) Q:'GMRCIEN  Q:STUDYCNT>=BATCHSIZE  Q:STOP  D

 . ; does this consult get images?

 . I $$CHECK^MAGDSTA6(GMRCIEN)'=1 Q  ; nope

 . S STUDYCNT=STUDYCNT+1

 . S STOP=$$CONLKUP1(GMRCIEN)

. Q

 Q STOP

CONLKUP1(GMRCIEN) ; check consult

 N ACNUMB,DFN,EXAMDATE,I,ORDERINGFACILITY,MAGIENLIST

 S ORDERINGFACILITY=$$GET1^DIQ(123,GMRCIEN,.05,"I")

 I $$CHECKDIV^MAGDSTAB()="Y",ORDERINGFACILITY'=DIVISION Q 0  ; not this division

 S ACNUMB=$$GMRCACN^MAGDFCNV(GMRCIEN) ; legacy or site-specific

 S EXAMDATE=$$GET1^DIQ(123,GMRCIEN,.01,"I")

 S DFN=$$GET1^DIQ(123,GMRCIEN,.02,"I")

 I $$CONSULT(GMRCIEN,.MAGIENLIST)<0 Q 0

 Q $$LOOKUP^MAGDSTAA(DFN,EXAMDATE,GMRCIEN,ACNUMB,.MAGIENLIST)

CONSULT(GMRCIEN,MAGIENLIST) ; return a list of MAG Group IENs

 ; A consult may have multiple TIU notes and a TIU note may have multiple image groups.

 ; A consult may also have images associated in the DICOM TEMP LIST file (#2006.5839).

 N ERROR,GROUPIEN,I,MAG20065839,TIULIST,X

 S ERROR=$$CONSULT1(GMRCIEN,.TIULIST)

 I ERROR<0 Q ERROR

 ; a TIU note may have multiple image groups - get the list

 F I=1:1:TIULIST(0) D

 . D T892591(TIULIST(I),.MAGIENLIST)

. Q

 S MAG20065839=""

 F  S MAG20065839=$O(^MAG(2006.5839,"C",123,GMRCIEN,MAG20065839)) Q:MAG20065839=""  D

 . S X=$G(^MAG(2006.5839,MAG20065839,0))

 . S GROUPIEN=$P(X,"^",3)

 . S MAGIENLIST(GROUPIEN)=""

. Q

Q 0

CONSULT1(GMRCIEN,TIULIST) ; return a list of TIU IENs

 ; a consult may have multiple TIU notes - get the list

 N A,I,SS2,TIUIEN

 K TIULIST ; initialize list of TIU IENs

 S TIULIST(0)=0

 D GETS^DIQ(123,GMRCIEN,"**","I","A")

 I '$D(A) S OUT(1)="-1,Error in CONSULT1 with file #123 GMRCIEN Lookup" Q

 S I=0,SS2="",I=0 F  S SS2=$O(A(123.03,SS2)) Q:SS2=""  D

 . S TIUIEN=A(123.03,SS2,.01,"I")

 . I $P(TIUIEN,";",2)="TIU(8925," D

 . . S I=I+1,TIULIST(0)=I

 . . S TIULIST(I)=$P(TIUIEN,";",1)

 . . Q

. Q

Q 0

T892591(TIUIEN,MAGIENLIST) ;

 N GROUPIEN,TIU892591

 S TIU892591=""

 F  S TIU892591=$O(^TIU(8925.91,"B",TIUIEN,TIU892591)) Q:'TIU892591  D

 . S GROUPIEN=$$GET1^DIQ(8925.91,TIU892591,.02,"I")

 . S MAGIENLIST(GROUPIEN)=""

. Q

SETDATES(DATEBEG,DATESTOP,BEGDATE,ENDDATE,DIRECTION) ; get date range

 ; get the beginning and ending dates for the FOR loop

 ; these are in GMRC reverse date format

 ; they are also DIRECTION specific

 I DIRECTION=1 D  ; ascending direction

  . S DATEBEG=$$GMRCDATE(BEGDATE)

  . S DATESTOP=$$GMRCDATE(ENDDATE)

. Q

 E  D  ; descending direction

 . S DATEBEG=$$GMRCDATE(ENDDATE)

 . S DATESTOP=$$GMRCDATE(BEGDATE)

. Q

GMRCDATE(GMRCDATE) ; convert a GMRC date to a FM date and vice versa

 Q 9999999-GMRCDATE ; unlike radiology which uses 9999999.9999

HEADER(CONTINUE) ;

 I CONTINUE D CONTINUE^MAGDSTQ(0)

 W @IOF," Patient",?12,"   Accession   ",?30,"  Date",?40,"Images",?51,"Group #",?60,"VistA",?68,"PACS",?75,"Need"

 W !,"---------",?12,"----------------",?30,"--------",?40,"------",?51,"-------",?60,"-----",?68,"----",?75,"----"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGDSTA7   7800     printed  Feb 18, 2025@23:28:11                                                                                                                                                                                                    Page 2

MAGDSTA7  ;WOIFO/PMK - Q/R Retrieve of DICOM images from PACS to VistA ; Mar 04, 2022@13:42:59

 +1       ;;3.0;IMAGING;**231,305**;Mar 19, 2002;Build 3

 +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      ; Supported IA #2056 reference $$GET1^DIQ function call

 +19      ; Supported IA #2056 reference GETS^DIQ subroutine call

 +20      ; Supported IA #10103 reference $$FMTE^XLFDT function call

 +21      ; Controlled IA #4110 to read REQUEST/CONSULTATION file (#123)

 +22      ; Controlled IA #3461 to read TIU EXTERNAL DATA LINK (#8825.91)

 +23      ;

 +24       QUIT

 +25      ;

 +26      ; Look for images for partially resulted or completed studies.

 +27      ;

MAIN()    ; The main loop for the program for consults and procedures

 +1       ; Input Variables

 +2       ; SCANMODE ;-- "PATIENT", "DATE", or "NUMBER"

 +3       ; DIRECTION ;- 1="ASCENDING" or 0="DESCENDING"

 +4       ; BATCHSIZE ;- number of consult & procedure requests to process on this run

 +5       ; BEGDATE ;--- begin date for search

 +6       ; ENDDATE ;-- end date for search

 +7       ; QRSCP ;----- default query/retrieve provider

 +8       ; HOURS ;----- 24 character string of Y's and N's indicating active times

 +9       ;

 +10       NEW GMRCIEN,RUNTIME,STOP,X

 +11      ;

 +12       DO HEADER^MAGDSTAA(0)

 +13      ;

 +14      ; STOP: -1=error, 0=run completed, 1=run stopped

 +15       SET STOP=$$CONLKUP()

 +16       QUIT STOP

 +17      ;

CONLKUP() ; Find the next study to retrieve

 +1        NEW STOP

 +2        IF SCANMODE="PATIENT"

               Begin DoDot:1

 +3                SET STOP=$$PATIENT()

 +4                QUIT

               End DoDot:1

 +5       IF '$TEST

               IF SCANMODE="DATE"

                   Begin DoDot:1

 +6                    SET STOP=$$DATE()

 +7                    QUIT

                   End DoDot:1

 +8       IF '$TEST

               IF SCANMODE="NUMBER"

                   Begin DoDot:1

 +9                    SET STOP=$$NUMBER()

 +10                   QUIT

                   End DoDot:1

 +11      IF '$TEST

               Begin DoDot:1

 +12               WRITE !!,"*** Illegal SCAN MODE: """,SCANMODE,""""

 +13               SET STOP=-1

 +14               QUIT

               End DoDot:1

 +15       QUIT STOP

 +16      ;

PATIENT() ; use "AD" cross-reference to find studies for a single patient

 +1       ; ^GMR(123,"AD",DFN,GMRCDATE,GMRCIEN)=""

 +2        NEW DATEBEG,DATESTOP,DONE,GMRCDATE,STOP

 +3       ; set to stop the q/r process

           SET STOP=0

 +4        DO SETDATES(.DATEBEG,.DATESTOP,BEGDATE,ENDDATE,DIRECTION)

 +5        SET GMRCDATE=DATEBEG

           SET DONE=0

 +6       ; reverse date, opposite sort order

 +7        FOR

               SET GMRCDATE=$ORDER(^GMR(123,"AD",DFN,GMRCDATE),-DIRECTION)

               if 'GMRCDATE

                   QUIT

               if DONE

                   QUIT

               if STOP

                   QUIT

               Begin DoDot:1

 +8                IF DIRECTION=1

                       SET DONE=GMRCDATE<DATESTOP

                       if DONE

                           QUIT

 +9               IF '$TEST

                       SET DONE=GMRCDATE>DATESTOP

                       if DONE

                           QUIT

 +10               SET GMRCIEN=""

 +11               FOR

                       SET GMRCIEN=$ORDER(^GMR(123,"AD",DFN,GMRCDATE,GMRCIEN),DIRECTION)

                       if 'GMRCIEN

                           QUIT

                       if STOP

                           QUIT

                       Begin DoDot:2

 +12      ; does this consult get images?

 +13      ; nope

                           IF $$CHECK^MAGDSTA6(GMRCIEN)'=1

                               QUIT

 +14                       SET STOP=$$CONLKUP1(GMRCIEN)

 +15                       QUIT

                       End DoDot:2

 +16               QUIT

               End DoDot:1

 +17       QUIT STOP

 +18      ;

DATE()    ; use "AE" cross-reference to find completed studies

 +1       ; ^GMR(123,"AE",SERVICE,STATUS,GMRCDATE,GMRCIEN)=""

 +2       ; only look for COMPLETED studies and PARTIAL RESULTS

 +3        NEW DATEBEG,DATESTOP,DONE,GMRCDATE,STATUS,STOP

 +4       ; set to stop the q/r process

           SET STOP=0

 +5        DO SETDATES(.DATEBEG,.DATESTOP,BEGDATE,ENDDATE,DIRECTION)

 +6        SET SERVICE=""

FOR

               SET SERVICE=$ORDER(CONSULTSERVICES(SERVICE))

               if SERVICE=""

                   QUIT

               if STOP

                   QUIT

               Begin DoDot:1

 +7       ; STATUS=2 for COMPLETE, STATUS=9 for PARTIAL RESULTS

                   FOR STATUS=2,9

                       Begin DoDot:2

 +8                        WRITE !!,CONSULTSERVICES(SERVICE)," -- "

 +9                        WRITE $SELECT(STATUS=2:"COMPLETE",STATUS=9:"PARTIAL RESULTS",1:"Unknown Status "_STATUS)

 +10                       SET GMRCDATE=DATEBEG

                           SET DONE=0

 +11      ; reverse date, opposite sort order

 +12                       FOR

                               SET GMRCDATE=$ORDER(^GMR(123,"AE",SERVICE,STATUS,GMRCDATE),-DIRECTION)

                               if 'GMRCDATE

                                   QUIT

                               if DONE

                                   QUIT

                               if STOP

                                   QUIT

                               Begin DoDot:3

 +13                               IF DIRECTION=1

                                       SET DONE=GMRCDATE<DATESTOP

                                       if DONE

                                           QUIT

 +14                              IF '$TEST

                                       SET DONE=GMRCDATE>DATESTOP

                                       if DONE

                                           QUIT

 +15                               SET GMRCIEN=""

 +16                               FOR

                                       SET GMRCIEN=$ORDER(^GMR(123,"AE",SERVICE,STATUS,GMRCDATE,GMRCIEN),DIRECTION)

                                       if 'GMRCIEN

                                           QUIT

                                       if STOP

                                           QUIT

                                       Begin DoDot:4

 +17      ; does this consult get images?

 +18      ; nope

                                           IF $$CHECK^MAGDSTA6(GMRCIEN)'=1

                                               QUIT

 +19                                       SET STOP=$$CONLKUP1(GMRCIEN)

 +20                                       QUIT

                                       End DoDot:4

 +21                               QUIT

                               End DoDot:3

 +22                       QUIT

                       End DoDot:2

 +23               QUIT

               End DoDot:1

 +24       QUIT STOP

 +25      ;

NUMBER()  ; use GMRCIEN to find completed studies

 +1       ; ^GMR(123,GMRC)=<consult record>

 +2        NEW BATCHSIZE,GMRCIEN,STOP,STUDYCNT

 +3       ; set to stop the q/r process

           SET STOP=0

 +4        SET STUDYCNT=0

 +5        SET BATCHSIZE=$GET(^TMP("MAG",$JOB,"BATCH Q/R","BATCH SIZE"))

 +6        SET GMRCIEN=$GET(^TMP("MAG",$JOB,"BATCH Q/R","REPORT/STUDY IEN"))

 +7       ; Massage value for $O

           SET GMRCIEN=GMRCIEN-DIRECTION

 +8        FOR

               SET GMRCIEN=$ORDER(^GMR(123,GMRCIEN),DIRECTION)

               if 'GMRCIEN

                   QUIT

               if STUDYCNT>=BATCHSIZE

                   QUIT

               if STOP

                   QUIT

               Begin DoDot:1

 +9       ; does this consult get images?

 +10      ; nope

                   IF $$CHECK^MAGDSTA6(GMRCIEN)'=1

                       QUIT

 +11               SET STUDYCNT=STUDYCNT+1

 +12               SET STOP=$$CONLKUP1(GMRCIEN)

 +13               QUIT

               End DoDot:1

 +14       QUIT STOP

 +15      ;

CONLKUP1(GMRCIEN) ; check consult

 +1        NEW ACNUMB,DFN,EXAMDATE,I,ORDERINGFACILITY,MAGIENLIST

 +2       ;

 +3        SET ORDERINGFACILITY=$$GET1^DIQ(123,GMRCIEN,.05,"I")

 +4       ; not this division

           IF $$CHECKDIV^MAGDSTAB()="Y"

               IF ORDERINGFACILITY'=DIVISION

                   QUIT 0

 +5       ;

 +6       ; legacy or site-specific

           SET ACNUMB=$$GMRCACN^MAGDFCNV(GMRCIEN)

 +7        SET EXAMDATE=$$GET1^DIQ(123,GMRCIEN,.01,"I")

 +8        SET DFN=$$GET1^DIQ(123,GMRCIEN,.02,"I")

 +9        IF $$CONSULT(GMRCIEN,.MAGIENLIST)<0

               QUIT 0

 +10       QUIT $$LOOKUP^MAGDSTAA(DFN,EXAMDATE,GMRCIEN,ACNUMB,.MAGIENLIST)

 +11      ;

CONSULT(GMRCIEN,MAGIENLIST) ; return a list of MAG Group IENs

 +1       ; A consult may have multiple TIU notes and a TIU note may have multiple image groups.

 +2       ; A consult may also have images associated in the DICOM TEMP LIST file (#2006.5839).

 +3        NEW ERROR,GROUPIEN,I,MAG20065839,TIULIST,X

 +4        SET ERROR=$$CONSULT1(GMRCIEN,.TIULIST)

 +5        IF ERROR<0

               QUIT ERROR

 +6       ; a TIU note may have multiple image groups - get the list

 +7        FOR I=1:1:TIULIST(0)

               Begin DoDot:1

 +8                DO T892591(TIULIST(I),.MAGIENLIST)

 +9                QUIT

               End DoDot:1

 +10       SET MAG20065839=""

 +11       FOR

               SET MAG20065839=$ORDER(^MAG(2006.5839,"C",123,GMRCIEN,MAG20065839))

               if MAG20065839=""

                   QUIT

               Begin DoDot:1

 +12               SET X=$GET(^MAG(2006.5839,MAG20065839,0))

 +13               SET GROUPIEN=$PIECE(X,"^",3)

 +14               SET MAGIENLIST(GROUPIEN)=""

 +15               QUIT

               End DoDot:1

 +16       QUIT 0

 +17      ;

CONSULT1(GMRCIEN,TIULIST) ; return a list of TIU IENs

 +1       ; a consult may have multiple TIU notes - get the list

 +2        NEW A,I,SS2,TIUIEN

 +3       ; initialize list of TIU IENs

           KILL TIULIST

 +4        SET TIULIST(0)=0

 +5        DO GETS^DIQ(123,GMRCIEN,"**","I","A")

 +6        IF '$DATA(A)

               SET OUT(1)="-1,Error in CONSULT1 with file #123 GMRCIEN Lookup"

               QUIT

 +7        SET I=0

           SET SS2=""

           SET I=0

FOR

               SET SS2=$ORDER(A(123.03,SS2))

               if SS2=""

                   QUIT

               Begin DoDot:1

 +8                SET TIUIEN=A(123.03,SS2,.01,"I")

 +9                IF $PIECE(TIUIEN,";",2)="TIU(8925,"

                       Begin DoDot:2

 +10                       SET I=I+1

                           SET TIULIST(0)=I

 +11                       SET TIULIST(I)=$PIECE(TIUIEN,";",1)

 +12                       QUIT

                       End DoDot:2

 +13               QUIT

               End DoDot:1

 +14       QUIT 0

 +15      ;

T892591(TIUIEN,MAGIENLIST) ;

 +1        NEW GROUPIEN,TIU892591

 +2        SET TIU892591=""

 +3        FOR

               SET TIU892591=$ORDER(^TIU(8925.91,"B",TIUIEN,TIU892591))

               if 'TIU892591

                   QUIT

               Begin DoDot:1

 +4                SET GROUPIEN=$$GET1^DIQ(8925.91,TIU892591,.02,"I")

 +5                SET MAGIENLIST(GROUPIEN)=""

 +6                QUIT

               End DoDot:1

 +7        QUIT

 +8       ;

SETDATES(DATEBEG,DATESTOP,BEGDATE,ENDDATE,DIRECTION) ; get date range

 +1       ; get the beginning and ending dates for the FOR loop

 +2       ; these are in GMRC reverse date format

 +3       ; they are also DIRECTION specific

 +4       ; ascending direction

           IF DIRECTION=1

               Begin DoDot:1

 +5                SET DATEBEG=$$GMRCDATE(BEGDATE)

 +6                SET DATESTOP=$$GMRCDATE(ENDDATE)

 +7                QUIT

               End DoDot:1

 +8       ; descending direction

          IF '$TEST

               Begin DoDot:1

 +9                SET DATEBEG=$$GMRCDATE(ENDDATE)

 +10               SET DATESTOP=$$GMRCDATE(BEGDATE)

 +11               QUIT

               End DoDot:1

 +12       QUIT

 +13      ;

GMRCDATE(GMRCDATE) ; convert a GMRC date to a FM date and vice versa

 +1       ; unlike radiology which uses 9999999.9999

           QUIT 9999999-GMRCDATE

 +2       ;

HEADER(CONTINUE) ;

 +1        IF CONTINUE

               DO CONTINUE^MAGDSTQ(0)

 +2        WRITE @IOF," Patient",?12,"   Accession   ",?30,"  Date",?40,"Images",?51,"Group #",?60,"VistA",?68,"PACS",?75,"Need"

 +3        WRITE !,"---------",?12,"----------------",?30,"--------",?40,"------",?51,"-------",?60,"-----",?68,"----",?75,"----"

 +4        QUIT

MAGDSTA7.m