; Given pattern, returns number of available slots.
; Check the pattern for available slots
; 0-9 and j-z = available slots where j=10, k=11...z=26
; $A(1)=49 $A(9)=57 $A("j")=106 $A("z")=122
YEAR
; Set-up 1 year dates
; This array is used for available appointments
OPENSLOT(SDRRIEN,SDRRST,SDRRND)
; Function returns the number of open (available)
; slots at the clinic during the time period.
; SDRRIEN - IEN of clinic in file #44
; SDRRST - (optional) start checking on this date (default=today)
; SDRRND - (optional) end of time period (default=last day of month)
DELAPPT(SDRRIEN,APPT,CLIN1)
; Record deleted from Recall List because of appointment.
DELSET(SDRRIEN,SDRRFDA)
;
DELUSER(SDRRIEN)
; Record deleted by a user.
DELETE
; This entry point is invoked by the new style xref A66201 on the .01 field of file 403.5