MAG3 CPRS TIU NOTE

To VistA Imaging Issues

MAG3 CPRS TIU NOTE

Returns a list of all images for a TIU document

NUMBER: 1015 NAME: MAG3 CPRS TIU NOTE TAG: IMAGES ROUTINE: MAGGNTI RETURN VALUE TYPE: ARRAY AVAILABILITY: RESTRICTED DESCRIPTION: Returns a list of all images for a TIU document for a TIU document INPUT PARAMETER: TIUDA PARAMETER TYPE: LITERAL MAXIMUM DATA LENGTH: 30 REQUIRED: YES SEQUENCE NUMBER: 1 DESCRIPTION: Internal entry number of document i.e. ^TIU(8925,TIUDA  RETURN PARAMETER DESCRIPTION:    Array of "^" delimited Image information in the format :    $P(1^2^3) IEN^Image FullPath and name^Abstract FullPath and Name    $P(4)   SHORT DESCRIPTION field    $P(5)   PROCEDURE/ EXAM DATE/TIME field    $P(6)   OBJECT TYPE    $P(7)   PROCEDURE field    $P(8)   Procedure Date in Display format    $P(9)   PARENT DATA FILE image pointer    $P(10)   the ABSTYPE :  'M' magnetic 'W' worm  'O' offline    $P(11)   Image accessibility   'A' accessable  or  'O' offline    $p(12^13) Dicom Series number and Dicom Image Number    $p(14)   Count of images in the group, or 1 if a single image

Comments 9/20/05 -- K. Toppenberg

in the Results array, it appears that the first entry is a header as follows Results(0) = header Results(1) = entry Results(2) = entry ...

Header Format: Array of "^" delimited Image information in the format : $P(1)  0 = error; otherwise X (number of images) $P(2)  "x Images for selected TIU NOTE"  (or whatever file) $P(3)  IEN  (from TIU Note, or whatever file) $P(4)  SHORT DESCRIPTION field -- Patient Name + Note Name + DateTime $P(5)  Number of images (?)

Entry Format (NOTICE: this is different than official info from Fileman, given above) Array of "^" delimited Image information in the format : $P(1)  "B2" <-- I don't know significance, but it is hard coded in. $P(2)  IEN $P(3)  Image FullPath and name $P(4)  Abstract FullPath and Name $P(5)  SHORT DESCRIPTION field $P(6)  PROCEDURE/ EXAM DATE/TIME field $P(7)  OBJECT TYPE $P(8)  PROCEDURE field $P(9)  Procedure Date in Display format $P(10)  PARENT DATA FILE image pointer $P(11)  the ABSTYPE :  'M' magnetic 'W' worm  'O' offline $P(12)  Image accessibility   'A' accessable  or  'O' offline $p(13^14) Dicom Series number and Dicom Image Number $p(15)  Count of images in the group, or 1 if a single image

9-15-05 Information about the RPC Call: MAG3 CPRS TIU NOTE -- Returns a list of all images for a TIU document -->IMAGES^MAGGNTI(.result,TIUIEN) calls GETILST^TIUSRVPL(.MAGARR,TIUDA) to get a list of all documents for document --> This gets list from "ADI" index in file 8925.91 (TIU EXTERNAL DATA LINK) for each image in list, checks ^MAG(2005.1,MAGIEN, (file 2005.1 = IMAGE AUDIT) to see if deleted.       checks ^MAG(2005,MAGIEN     (file 2005 = IMAGE) to see if it exists. checks if field PATIENT (field #5) in file IMAGE to see if proper link to patient checks if field PARENT GLOBAL ROOT D0 (field #17) in IMAGE file to see if proper link to document should = TIUIEN checks INFO^MAGGTII //Get info for an Image File entry -->FINDFILE^MAGFILEB ; The call to FINDFILE returns: ; MAGFILE1=LA100066.ABS  filename ;         if no Network Location pointer or INVALID Pointer ;         then MAGFILE1=-1~NO NETWORK LOCATION POINTER ;         or -1~INVALID NETWORK LOCATION POINTER ; MAGFILE1(.01)=KIRIN,B  202524404 image desc ; MAGJBOL=   desc of Offline server ; MAGOFFLN=   if JB is offline ; MAGPREF=C:\TEMP\LA\10\00\ path ; MAGTYPE=MAG   MAG or WORM