DSIC TIU LIST SPECIAL DOCS (1956)    REMOTE PROCEDURE (8994)

There are certain TIU documents which are in special classes.  These 
documents are linked to other VistA files.  The TIU Document file has a 
Fileman Variable Pointer linking that document to the owning file.  
Surgical Notes and Clinical Procedure notes are of this type.  This RPC 
will return a list of TIU notes assoicated with a specific variable 
pointer.

• DSICVP
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   30
  REQUIRED:   NO
  SEQUENCE NUMBER:   1
  DESCRIPTION:   

  This is a Fileman Variable Pointer value to be used for looking up 
  documents associated with it.  This parameter is optional.  However, if 
  this parameter is not passed, then then REC parameter will be required.
  

• SEQ
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   1
  REQUIRED:   NO
  SEQUENCE NUMBER:   2
  DESCRIPTION:   

  This optional single character flag indicates the date order for the list 
  of documents to return.
    D - return list in descending order, i.e., newest note first
    A - return list in ascending order, i.e., oldest note first
  

• REC
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   20
  REQUIRED:   NO
  SEQUENCE NUMBER:   3
  DESCRIPTION:   

  This parameter is optional.  However, if the DSICVP parameter is not 
  passed, then this parameter must be passed.  This parameter allows the 
  GUI to get a list of documents without having to pass the explicit 
  Fileman Variable Pointer syntax.  The format of REC is code^ien.
   
  The following are the only allowed codes:
    S - get documents associated with surgery case # from file 130
   
  Example:  S^234 - get all TIU notes associated with surgical case# 234
  

DSIC - return array - passed by reference
           p7 = Signature Status
           p8 = Visit Date/Time
           p9 = Discharge Date/time
          p10 = Variable Pointer to Request (e.g., Consult)
          p11 = # of Associated Images
          p12 = Subject
          p13 = Has Children
          p14 = IEN of Parent Document
          On error in input, return @DSIC@(1) = -1^message
       DSIC = $NA(^TMP("TIULIST",$J))       
       @DSIC@(#) = p1^p2^...^p14  where
           p1 = IFN
           p2 = title
           p3 = Reference date.time (int;ext)
           p4 = Patient Name (LAST i/Last 4)
           p5 = Author (int;ext)
           p6 = Hospital Location