MAGGRADPTR (948)    REMOTE PROCEDURE (8994)

Files the image pointer into the Radiology package and the Radiology
pointers into the Imaging package.

• XDUZ
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   30
  REQUIRED:   YES
  SEQUENCE NUMBER:   1
  DESCRIPTION:   

  Not being used anymore, kept for backward compatibility.
  DUZ of user.   
  

• MAGIEN
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   30
  REQUIRED:   YES
  SEQUENCE NUMBER:   2
  DESCRIPTION:   

  Internal entry number of Image File entry  ^MAG(2005,
  

• DATA
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   255
  REQUIRED:   YES
  SEQUENCE NUMBER:   3
  DESCRIPTION:   

  First "^" piece is MAGIEN, The IMAGE File Internal number.  ^MAG(2005,
  Initialize the variables so when we need to call any Rad Procedure, we
  have what we need.
  Next  "^" pieces are the same RAD DATA that was sent in the 
   RPC Call MAGGRADLIST, as the return Array.
      RADFN_"^"_RADTI_"^"_RACNI_"^"_RANME_"^"_RASSN_"^"
     _RADATE_"^"_RADTE_"^"_RACN_"^"_RAPRC_"^"_RARPT_"^"_RAST
  The same DATA that the RAD procedure RAPTLU saved in ^TMP($J,"RAEX",RACNT)
   
  We saved the variables that the RAD Routine RAPTLU set up when creating
  the list of Rad Exams for the patient. We send it back as input here,
  

If successful,   '1^message'
If unsuccessful, '0^message'