DSIC GET SCHED APPTS (1597)    REMOTE PROCEDURE (8994)

This will invoke SDA^VADPT.  It returns those appointments which were kept
and all open future appointments depending upon the date range.

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

  DATA = DFN ^ BEG ^ END ^ ALOC ^ FLG where
   FLG = optional
         0 - return all kept appts from BEG to today
         1 - return future appts only
         2 - return appts from 0 & 1
   
  Date range takes precedence over FLG.  So if you send BEG=DT-1,FLG=1 you
  will get no appointments since BEG not greater than NOW
   
   DFN = required - pointer to patient file (#2)
   BEG = optional - FM date/time - return all scheduled appointments
         greater than BEG
   END = optional - FM date/time - return all scheduled appointments
         up to END
  ALOC = optional - name of location (file 44) or pointer to file 44
         If present, then only appointments for that clinic returned
  

• SCR
  PARAMETER TYPE:   LIST
  MAXIMUM DATA LENGTH:   100
  REQUIRED:   NO
  SEQUENCE NUMBER:   2
  DESCRIPTION:   

  SCR - optional - added 7/3/2002 - sgm
        passed by reference
        format:  SCR(subscript) = code ^ value   where
                 code = C for hospital location #44
                        D for medical center division #40.8
                        S for 3-digit stop code from file 40.7 (not ien)
                 value = for codes C,D - any unique lookup value or ien
                         for code S - 3-digit stop code (not ien to 40.7)
  

Data passed to broker via the global ^TMP("DSIC",$J,"APT",#)
Error messages:
array(1) = "-1^Invalid patient DFN" if bad patient pointer
array(1) =" -1^No appointments found"
 
Returns array(#) = p1^p2^p3^p4 in reverse chronological order.
 
p1 :== external appointment date/time
p2 :== external clinic name
p3 :== appointment date/time - fileman format
p4 :== pointer to Hospital Location file (44)