Routine: SDB1

Information

SDB1 ;ALB/GRR,BWF,BLB - SET UP A CLINIC ;MAY 22, 2023

Source file <SDB1.m>

Name	Comments	DBIA/ICR reference
B1
SETX
X
SM
I
X2
DEL1
D
R
EN1
DAYSINFUTURE(CLINICIEN,STARTDATE)	;
1
11
OVR
APPCK
APPERR
DELERR
CHK1
CHK2
OB
HLPD
TX

Name	Line Occurrences
Function Call: WRITE	Prompt: !,7,7,"DELETE " Line Location: DEL1+0
Function Call: WRITE	Prompt: $P("SUN^MON^TUES^WEDNES^THURS^FRI^SATUR",U,DOW+1),"DAYS " Line Location: D+1
Function Call: WRITE	Prompt: "UNTIL " Line Location: D+3
Function Call: WRITE	Prompt: " UNTIL " Line Location: D+5
Function Call: WRITE	Prompt: "INDEFINITELY" Line Location: D+6
Function Call: WRITE	Prompt: !,"REPLY YES (Y) OR NO (N)" Line Location: R+0
Function Call: WRITE	Prompt: !,"REPLY YES (Y) OR NO (N)" Line Location: 11+0
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+0
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+1
Function Call: WRITE	Prompt: !,"... " Line Location: DELERR+0
Function Call: WRITE	Prompt: " HAS PENDING APPTS - DELETE AVAILABILITY NOT ALLOWED" Line Location: DELERR+0
Function Call: WRITE	Prompt: !,"ENTER THE DATE THIS CLINIC BECOMES AVAILABLE TO SEE PATIENTS" Line Location: HLPD+0
Function Call: WRITE	Prompt: !,"THE DATE ENTERED WILL BE THE FIRST DATE THAT APPOINTMENTS CAN",!,"BE MADE FOR THIS CLINIC" Line Location: HLPD+1

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