Routine: SDESCLNSETAVAIL

Information

SDESCLNSETAVAIL ;ALB/TAW,KML,MGD,LAB,BLB,TJB - SET CLINIC AVAILABILITY ;JUN 03, 2024

Name	Comments	DBIA/ICR reference
SETCLINAVAIL(RETURN,SDCLINIC,DATES,TIMES,SLOTS,SDEAS)	;INICSET2(.POP,SDIEN,.FDA,.SDCLINIC,.PROVIDER,.DIAGNOSIS,.SPECIALINSTRUCT,.PRIVLIAGEDUSER) ; Input: ; SDCLIN - [REQ] Name or IEN from file 44 ; DATES - [opt] String of dates in ISO8601 or FM format separated by a ; ; TIMES - [opt] String of time frames in military format separated by a ; ; ex: 0700-1030;1030-1400 ; SLOTS - [REQ] String of integers separated by a ; ; The number of TIMES and SLOTS must match ; SDEAS - [Optional] - Enterprise Appointment Scheduling (EAS) Tracking Number
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

FileNo	Call Tags
^SC - [#44]	GET1^DIQ, GETS^DIQ