MAGVD007.m

MAGVD007 ;WOIFO/DAC,MLH - Get images by accession number ; 30 Jan 2012 04:04 PM

 ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 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.                     |

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

 ;;

 Q

 ;

 ;+++++  Get Images by Accession Number

 ; 

 ; Input Parameters

 ; ================

 ; ACCNUM - Accession Number

 ;

 ; Return Values

 ; =============

 ; OUT - status`status message

 ;       a status of 0 indicates success, a negative integer indicates an error occurred 

 ; 

 ; MAGARR(1..n,"IMAGES")

 ; MAGARR(1..n,"MAGDFN")  - Patient DFN

 ; MAGARR(1..n,"MAGD1")   - Radiology DT

 ; MAGARR(1..n,"MAGD2")   - Radiology P

 ;

GIBYACC(OUT,ACCNUM,MAGARR)  ; Get Images by Accession Number

 N SSEP,ANY,I

 N P,REQ,IARRAY,MAGD0,MAGD1,MAGD2,PROC ; Needed for function call ACCIEN^MAGVD006

 S SSEP=$$STATSEP^MAGVRS41

 I $G(ACCNUM)="" S OUT=-1_SSEP_"No accession number provided" Q

 S OUT=0

 K ^TMP("MAG",$J,"QR")

 K MAGARR

 S REQ("0008,0050",ACCNUM)=ACCNUM

 D ACCNUM^MAGDQR07(.REQ,"0008,0050",ACCNUM,.ANY)

 S P=""

 S I=0

 F  S P=$O(^TMP("MAG",$J,"QR",6,P)) Q:P=""  D

 . K IARRAY

 . S (MAGD0,MAGD1,MAGD2)=0

 . D ACCIEN^MAGVD006(P,.REQ,.IARRAY,.MAGD0,.MAGD1,.MAGD2,.PROC)

 . I $O(IARRAY(""))="" Q

 . S I=I+1

 . M MAGARR(I,"IMAGES")=IARRAY

 . S MAGARR(I,"MAGDFN")=$G(MAGD0)

 . S MAGARR(I,"MAGD1")=$G(MAGD1)

 . S MAGARR(I,"MAGD2")=$G(MAGD2)

 . S MAGARR(I,"PROC")=$G(PROC)

 . Q

 K ^TMP("MAG",$J,"QR")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MAGVD007   2380     printed  Apr 09, 2024@21:01:02                                                                                                                                                                                                    Page 2

MAGVD007  ;WOIFO/DAC,MLH - Get images by accession number ; 30 Jan 2012 04:04 PM

 +1       ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 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       QUIT 

 +18      ;

 +19      ;+++++  Get Images by Accession Number

 +20      ; 

 +21      ; Input Parameters

 +22      ; ================

 +23      ; ACCNUM - Accession Number

 +24      ;

 +25      ; Return Values

 +26      ; =============

 +27      ; OUT - status`status message

 +28      ;       a status of 0 indicates success, a negative integer indicates an error occurred 

 +29      ; 

 +30      ; MAGARR(1..n,"IMAGES")

 +31      ; MAGARR(1..n,"MAGDFN")  - Patient DFN

 +32      ; MAGARR(1..n,"MAGD1")   - Radiology DT

 +33      ; MAGARR(1..n,"MAGD2")   - Radiology P

 +34      ;

GIBYACC(OUT,ACCNUM,MAGARR) ; Get Images by Accession Number

 +1        NEW SSEP,ANY,I

 +2       ; Needed for function call ACCIEN^MAGVD006

           NEW P,REQ,IARRAY,MAGD0,MAGD1,MAGD2,PROC

 +3        SET SSEP=$$STATSEP^MAGVRS41

 +4        IF $GET(ACCNUM)=""

               SET OUT=-1_SSEP_"No accession number provided"

               QUIT 

 +5        SET OUT=0

 +6        KILL ^TMP("MAG",$JOB,"QR")

 +7        KILL MAGARR

 +8        SET REQ("0008,0050",ACCNUM)=ACCNUM

 +9        DO ACCNUM^MAGDQR07(.REQ,"0008,0050",ACCNUM,.ANY)

 +10       SET P=""

 +11       SET I=0

 +12       FOR 

               SET P=$ORDER(^TMP("MAG",$JOB,"QR",6,P))

               if P=""

                   QUIT 

               Begin DoDot:1

 +13               KILL IARRAY

 +14               SET (MAGD0,MAGD1,MAGD2)=0

 +15               DO ACCIEN^MAGVD006(P,.REQ,.IARRAY,.MAGD0,.MAGD1,.MAGD2,.PROC)

 +16               IF $ORDER(IARRAY(""))=""

                       QUIT 

 +17               SET I=I+1

 +18               MERGE MAGARR(I,"IMAGES")=IARRAY

 +19               SET MAGARR(I,"MAGDFN")=$GET(MAGD0)

 +20               SET MAGARR(I,"MAGD1")=$GET(MAGD1)

 +21               SET MAGARR(I,"MAGD2")=$GET(MAGD2)

 +22               SET MAGARR(I,"PROC")=$GET(PROC)

 +23               QUIT 

               End DoDot:1

 +24       KILL ^TMP("MAG",$JOB,"QR")

 +25       QUIT