Routine: SDESCREATEAPPT44

Information

SDESCREATEAPPT44 ;ALB/BLB,DJS,BLB,TJB - SDES CREATE APPOINTMENT ;Jun 17, 2024

Name	Comments	DBIA/ICR reference
VALIDATE(ERRORS,ARY44)	;
APPTIN44EXISTS(DFN,CLINIC,DATE)	;
CREATE(ARRAY44001FDA,ARRAY44003FDA,NEWIEN44001,IENS44,ARY44)	;
CLEANUP44(ARY44,NEWIEN44,SDREQTYPE)	;
DECREMENTAVAIL1(CLINICIEN,APPTSTARTTIME,APPTLENGTH)	;
DECREMENTAVAIL2(CLINICIEN,APPTSTARTTIME,APPTLENGTH)	;decrement availability by one when creating appointment
AVUPDT(SDECSCD,SDECSTART,SDECLEN)	;