MAGDQR21 ;WOIFO/EDM,NST,MLH,JSL,SAF,BT,ZEB - RPCs for Query/Retrieve SetUp ; 07 DEC,2023@1:22 PM
Source file <MAGDQR21.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GET(OUT,DEST,GATEWAY) | ; RPC = MAG GET DICOM DEST
|
|
SET(OUT,DATA,DEST,GATEWAY) | ; RPC = MAG SET DICOM DEST
|
|
TMPOUT(NAME) | ; Return name of the temp
|
|
STUDY2(OUT,GROUPS,REQDFN,IMGLESS,FLAGS) | ; RPC = MAG DOD GET STUDIES IEN
; CR, 5-28-09 ; IMGLESS is a new flag to speed up queries: if=1 (true), just get study-level ; data, if null or zero get everything. This new flag is optional. ; BT, 01-06-12 ; FLAGS is "" - Exclude Deleted records (default) ; "D" - Include Deleted records ; "S" - Include Series Description for DICOM Q/R ; |
|
CNVGRP(GROUPS) | ; Add top level GROUPS value to GROUPS array
; GROUPS=10, GROUPS(1)=11, GROUPS(2)=12 becomes GROUPS(1)=11, GROUPS(2)=12, GROUPS(3)=10 |
|
GETSTUDY(GROUPS,STUDY,INCDEL) | ; Read IENS in GROUPS and sort into STUDY by UID,IEN
|
|
SRTUID(IEN,STUDY) | ; Sort group by UID, IEN
|
|
SRTUID2(IEN,STUDY) | ; Sort group by UID, IEN (include Deleted Images)
|
|
GENOUT(STUDY,REQDFN,IMGLESS,INCDEL,INCSERD) | ; Generate output in ^TMP based on STUDY array
|
|
STUDY(UID,IEN,REQDFN,IMGLESS,INCDEL,INCSERD) | ; Generate output in ^TMP based on parameters
|
|
GETGPUID(UID,STUDY,INCDEL) | ; Given UID, populate STUDY array with Image IEN
|
|
GETGPIEN(IEN,STUDY,INCDEL) | ; Add IEN into STUDY (include deleted images)
|
|
GETPAT(STUDY,PAT,PATCOUNT,TOTIMAGES,TDCMIMG,REQDFN,INCDEL) | ; Get Total Images count and fill Patient array based on STUDY
|
|
ISGRP(D0,INCDEL) | ; return 1 if D0 is a group IEN, 0 otherwise
|
|
GETGPIM(D0,REQDFN,PATCOUNT) | ; return total images in the group and PATCOUNT array for patient validation
|
|
GETGPDIM(D0,REQDFN,PATCOUNT) | ; return total images in the group and PATCOUNT array for patient validation
|
|
VALPAT(UID,PAT,PATCOUNT,REQDFN) | ; Validate - should only have one patient
|
|
WRTIEN(UID,I0,TOTIMAGES,TDCMIMG,REQDFN) | ; Output STUDY UID and IEN line
|
|
INTEGDFN(I0,REQDFN,INCDEL) | ; check integrity of study record
|
|
WRTMOD(STUMO) | ; Output STUDY_MODALITY line
|
|
ONEGROUP(GROUP) | ; Get the first IMAGE_IEN for this group in IMAGE file (#2005)
; or IMAGE AUDIT file (#2005.1) |
|
WRTOUT(S) | ; Write a new line
|
|
APDOUT(S) | ; Append to last line
|
|
CPTCODE(MAGIEN) | ; Returns CPT code by IEN (image pointer) in IMAGE file (#2005)
; or IMAGE AUDIT file (#2005.1) ; MAGIEN = IEN in IMAGE file (#2005) or IMAGE AUDIT file (#2005.1) |
|
GETSITE1(MAGIEN) | ; Returns STATION NUMBER where the image is stored
; MAGIEN = IEN in IMAGE file (#2005) |
|
GETSNUM(MAGPLC) | ; Returns STATION NUMBER by Image Site Parameters IEN
; MAGPLC - IEN in IMAGING SITE PARAMETERS file (#2006.1) |
RPC Name | Call Tags |
---|---|
MAG DOD GET STUDIES IEN | STUDY2 |
MAG DOD GET STUDIES UID | STUDY1 |