Routine: SDES2APPTUTIL

Information

SDES2APPTUTIL ;ALB/BLB,TJB/ANU/BLB/LAB,BLB,LAB,BWF - SDES2 CREATE APPOINTMENT UTILITIES ;OCT 23,2024

Name	Comments	DBIA/ICR reference
APPTREQ(SDCONTEXT,APPOINTMENT,APPTIEN,APPTMSG)	; called only on create of appointment
RECALL(RECALLRETURN,SDCONTEXT,RECALL,REQUESTIEN)	;
CONSULT(APPOINTMENT,APPTIEN44,USERID)	;
REQSET(REQUESTIEN,USERID,ACTION,CANCELLEDBY,NOTE,STARTDATETIME,CLINICIEN,DFN)	;
UPDATECONSULTPID(CONSULTIEN,PID,DFN,USERIEN)	;
CONSPIDCHECK(SDRIEN1,SDDDT)	;
ENCOUNTERS(APPOINTMENT,ENCOUNTER)	;
MAKE(DFN,STARTDATETIME,CLINICIEN)	;
GETRESOURCE(ERRORS,APPOINTMENT,CLINICIEN)	;
GETPROVIDER(APPOINTMENT,CLINICIEN,PROVIDER,REQUESTTYPE,REQUESTIEN)	;
MRTCCHILD(PID,REQUESTIEN,APPTIEN,PARENT)	;
STOREREQUESTCOMM(REQUESTIEN)	;
STORENOTE(APPTIEN,NOTE,APPTNOTES)	;
REQUESTTYPE(ERRORS,APPOINTMENTS,REQUESTTYPE,REQUESTIEN,DFN)	;
GETAPPTTYPE(ERRORS,APPOINTMENT,TYPE,TYPENAME)	;
APPTIN44EXISTS(DFN,CLINIC,DATE)	;
APPTINDIFFTZ(DFN,DATETIME)	;
DELETECANRECORD(DFN,DATETIME,CLINICIEN)	;
DELETERECORD(ARRAYDELETE)	;
ORDERCHECKLOCK(ERRORS,REQTYPE,DFN)	;
GETPID(APPOINTMENT,PID,REQUESTTYPE,REQUESTIEN)	;
DECREMENTAVAIL1(CLINICIEN,APPTSTARTTIME,APPTLENGTH)	;
DECREMENTAVAIL2(CLINICIEN,APPTSTARTTIME,APPTLENGTH)	;decrement availability by one when creating appointment