VEJDWPB GET SCHED APPTS (1088)    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
  

• VECLIN
  PARAMETER TYPE:   LIST
  REQUIRED:   NO
  SEQUENCE NUMBER:   2
  DESCRIPTION:   

  VECLIN is a local array which contains a list of clinics to be used to 
  screen appointment list.  Only those appointments in these clinics will 
  be returned.
     VECLIN - optional - passed by reference
     VECLIN(#) = clinic name or ien
  

• SCODE
  PARAMETER TYPE:   LIST
  REQUIRED:   NO
  SEQUENCE NUMBER:   3
  DESCRIPTION:   

  This is a list of 3-digit stop codes used to screen appointments 
  returned.  Only those clinic locations whose stop code is in this list 
  will be returned.
   
     SCODE - optional - passed by reference
     SCODE(#) = 3-digit stop code (lookup on C xref)
  

• VEDIV
  PARAMETER TYPE:   LIST
  REQUIRED:   NO
  SEQUENCE NUMBER:   4
  DESCRIPTION:   

  This is a list of divisions to be used to screen appointments.  Only 
  appointments in clinics for divisions in this list will be returned.
   
      VEDIV - optional - passed by reference
      VEDIV(#) = division name or ien
  

Data passed to broker via the global ^TMP("VEJD",$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)