MAGNTRAI ;WOIFO/NST - List images for Reports ; 16 Jan 2018 3:59 PM
Source file <MAGNTRAI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IMAGEL(MAGRY,DATA,IMGLESS) | ;RPC [MAGN CPRS IMAGE LIST]
|
|
| IMAGEC(MAGZRY,DATA,IMGLESS,RARPT) | ;A copy from MAGGTRAI
; Call to list Images for a Rad Exam that was selected from CPRS ; and Imaging Window was notified via windows messaging ; INPUT : DATA is in format of Windows message received from CPRS ; example 'RPT^CPRS^29027^RA^i79029185.9998-1' |
|
| GETSTUDY(MAGZRY,RARPT,IMGLESS) | ; Private call. From other points in this routine, when RARPT is defined
; RARPT -- Radiology report IEN ; and returns a list in MAGZRY(1..n). ; We'll make a tmp list of just the image IEN's ; splitting groups into individual image entries. ; If more than 1 Image group points to this report, we ; will prefix the Image Description with (G1), (G2) etc ; We call GROUP^MAGGTIG to get the images for the group, this call ; sorts the images in Dicom Series, Dicom Image number order. |
|
| APPENDRA(OUT,MAGNCNT,MAGNCXT,MAGZRY,RARPT) | ||
| INSFIMG(DATA,MAGNCNT,OUT) | ; Append First Image Info I
|
|
| APPEND2(OUT,MAGNCNT,MAGNCXT,MAGZRY,MAGNTIU) | ||
| STDINFO(IMGIEN) | ; Get study info
; IMGIEN -- Image IEN |
| RPC Name | Call Tags |
|---|---|
| MAGN CPRS IMAGE LIST | IMAGEL |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^MAG(2005 - [#2005] | EXTERNAL^DILFD |
