MAGDQR20 ;WOIFO/EDM,NST,MLH,BT,JSL,ZEB - RPCs for Query/Retrieve SetUp ; 07 Dec 2023 1:21 PM
Source file <MAGDQR20.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WRTIMG(SERIESARRAY,D0,REQDFN,STUMO,INCDEL,INCSERD) | ; Retrieve Image info and output to IMAGE INFO line
|
|
| RTRVIMG(TMP,D0,REQDFN,INCDEL) | ; Retrieve info for either single or group image
|
|
| RTRVDIMG(MAGRY,MAGIEN) | ; Get Deleted images and output the info
|
|
| DIMGINF(MAGRY,IEN) | ; Retrieve Deleted images
|
|
| WRTMAGM(TMP,STUMO) | ; Save series to TMP
|
|
| GETSER(D0,SERIES,SERID,INCDEL) | ; Populate SERIES array for File 2005 and 2005.1
|
|
| GETRSER(D0,SERIES,SERID) | ; Populate SERIES array for File 2005
|
|
| GETDSER(D0,SERIES,SERID) | ; Populate SERIES array for File 2005.1
|
|
| GETDINUM(GRPIEN,CHLDIEN,SNUM,INUM) | ; Get DICOM Serial Number and Image Number for Child IEN from Audit Image
|
|
| WRTSER(D0,SERIESARRAY,SERIES,SNUM,SERID,REQDFN,INCSERD) | ; Output to TMP based on SERIES array
; refresh temp image index ; SERIES(UID _ DCOM SERIES NUM, DCOM IMAGE NUM, OBJECT GROUP)="" |
|
| SRTMAGTI(INUM,I0,REQDFN) | ; Save IMAGE_IEN and GROUP_IEN lines
; if dup study instance UID, purge image info and bail out ; unless pt is specified and this image is for that pt |
|
| WRSERUID(UID,D0,INCSERD) | ; Output SERIES_IEN line
|
|
| WASGNSER(SNUM,SERIESARRAY) | ; Output SERIES_NUMBER line
|
|
| TSTSER(SNUM,SERIESARRAY,SERIESNUM) | ; Validate SERIES NUMBER
|
| FileNo | Call Tags |
|---|---|
| ^MAG(2005 - [#2005] | GET1^DIQ |
