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