Routine: SDES2UTIL1

Information

SDES2UTIL1 ;ALB/MGD/TJB/MGD,TJB,BLB,JDJ - SDES2 UTILITIES Continued ;OCT 23, 2025

Name	Comments	DBIA/ICR reference
VALBOOLEAN(SDERRORS,SDBOOLEAN,SDREQUIRED,SDERRORTEXT)	; ; SDERRORS = Array to hold any logged errors ; SDBOOLEAN = Boolean input array element to validate ; SDREQUIRED = 1:Required, 0:Optional, Defaults to 0 ; SDERRORTEXT = Additional text to append to error message. This is normally the name of the input parameter element.
GETRES(SDCL,INACT)
GETGAF(DFN)	;
ETHNLIST(ETHNICITY,DFN)	;get ethnicity list
RACELIST(RACELST,DFN)	;get list of race information for given patient
HRN(DFN)	;Health Record Number
FLAGS(DFN,FNUM)	;get PRF flags
FLST(PRFLIST,FNUM)
CREATEAVAIL(RETURN,SDCLINIC,DATES,TIMES,SLOTS,INDEFINITEUNTIL,SDEAS)	;INICSET2(.POP,SDIEN,.FDA,.SDCLINIC,.PROVIDER,.DIAGNOSIS,.SPECIALINSTRUCT,.PRIVLIAGEDUSER)
VALIDATE	;
GETAPPT	;Check if there are any open appts for this date
CHECKDURATION(T1,T2,SLT)	;Ensure the appointment lengths align with the time segment
CREATE(DA,STARTDAY,SLT,DOW)	;
G3	;
G3A
G4
G4A
G5	;
CKSI1
DEL1
D
R
EN1	;
DAYSINFUTURE(CLINICIEN,STARTDATE)	;
1
11
OVR	;
APPCK	;Are there appointments for this time?
APPERR	;
DELERR	;
CHK1
CHK2	;
OB	;
TX	;
ERRLOG(ERNUM,OPTIONALTXT)	;
BUILDER	;Convert data to JSON

Name	Line Occurrences
Function Call: WRITE	Prompt: D&A Line Location: R+1
Function Call: WRITE	Prompt: *7,!,"THERE ARE ALREADY APPOINTMENTS PENDING ON THIS DATE",!,"ARE YOU SURE YOU WANT TO CHANGE THE EXISTING AVAILABILITY" Line Location: APPERR+2
Function Call: WRITE	Prompt: !,"IF YOU SAY YES, THE EXISTING APPOINTMENTS MAY BECOME OVERBOOKS WHEN THE NEW AVAILABILITY IS APPLIED",!,"ANSWER YES OR NO" Line Location: APPERR+3
Function Call: WRITE	Prompt: !,"... " Line Location: DELERR+2
Function Call: WRITE	Prompt: " HAS PENDING APPTS - DELETE AVAILABILITY NOT ALLOWED" Line Location: DELERR+2