Routine: SDB1

Information

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

Source Information

Source file <SDB1.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Scheduling	6	OVR^SDAUT1 G1^SDB SDRES^SDECUTL2 DOW^SDM0 SEND^SDTMPHLC DTS^SDUTL
VA FileMan	5	C^%DTC WAIT^DICD YN^DICN DT^DIO2 ($$GET1,DT)^DIQ
Kernel	1	($$FMADD,$$FMDIFF)^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Scheduling	5	SDAUT1 SDB SDB0 SDEC12 SDESCLNSETAVAIL

Entry Points

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

External References

Name	Field # of Occurrence
C^%DTC	X2+1, D+4, OVR+1, CHK2+2
WAIT^DICD	EN1+4
YN^DICN	R, 11, APPERR
DT^DIO2	D+3, D+5, 11
$$GET1^DIQ	DAYSINFUTURE+3
DT^DIQ	DELERR
OVR^SDAUT1	EN1+4
G1^SDB	EN1, EN1+4, 11+3, OVR, OVR+1, HLPD+1
SDRES^SDECUTL2	11+2
DOW^SDM0	D+3, D+4, CHK2+2
SEND^SDTMPHLC	X+2, I+4
DTS^SDUTL	CHK2+3
$$FMADD^XLFDT	DAYSINFUTURE+4
$$FMDIFF^XLFDT	DAYSINFUTURE+8

Interaction Calls

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HOLIDAY - [#40.5]	11
^HOLIDAY("B"	DAYSINFUTURE+5
^SC - [#44]	SETX, X, X+1, X+2!, X+4, I+1, I+2, I+3, I+4, I+5 , I+6!, D+2, D+3, EN1+1!, EN1+2, EN1+3, 11+5, APPCK, OB*, OB+1! , TX
^TMP("SDAVAIL"	X*

Label References

Name	Line Occurrences
$$DAYSINFUTURE	EN1+4
1	EN1, OVR, OVR+1
11	11
APPCK	1, 11+4
APPERR	11+4, APPERR+1
B1	EN1+4, 11+5
CHK1	EN1+1
CHK2	11, OVR, OVR+1
DELERR	1
I	I+3
OB	I+2
OVR	1, 11, 11+3, 11+4
R	D+3, D+5, R
SM	X+1
TX	EN1+1, EN1+2, EN1+3
X	X2+2
X2	X+3, X+4

Naked Globals

Name	Field # of Occurrence
^(	X+2, I+1, EN1+1, EN1+2*
^("SL"	SETX, D+2
^(0	I+4, I+6, EN1+1, EN1+2, EN1+3, 11+5, TX*
^(1	X, I+4*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	R, EN1, 11, 11+1, 11+3, 11+4, APPERR*, APPERR+1
>> A	APPCK*
CLINICIEN	DAYSINFUTURE~, DAYSINFUTURE+3
>> CNT	EN1+4
>> CTR	D+1, CHK2+3
>> D	EN1, 11, 11+5, OVR, OVR+1, APPCK, DELERR, CHK2, CHK2+1, CHK2+2
>> D0	D, D+3, D+4, D+5, EN1, EN1+1, EN1+2, EN1+4
>> DA	SETX, X, X+1, X+2, X+4, I+1, I+2, I+3, I+4, I+5 , I+6, D+2, D+3, EN1+1, EN1+2, EN1+3, EN1+4, 11+2, 11+5, APPCK , OB, OB+1, TX
>> DH	SM, DEL1, D+1, EN1+3
>> DO	X, X+1, DEL1, D+3, D+5, D+6, EN1+3, 11+5*
>> DOW	SM, D+1, D+3, D+4, EN1+1, EN1+2, EN1+3, CHK2+2, TX
>> DR	B1, X+1, X+2, X+3, X+4, I, I+1, I+2, I+3, OB , OB+1
DT	X+1
FUTUREBOOKDATE	DAYSINFUTURE+1~, DAYSINFUTURE+4*, DAYSINFUTURE+7
FUTUREBOOKINGNUM	DAYSINFUTURE+1~, DAYSINFUTURE+3*, DAYSINFUTURE+4, DAYSINFUTURE+7
HOLIDAYFILEDATE	DAYSINFUTURE+1~, DAYSINFUTURE+5*, DAYSINFUTURE+7, DAYSINFUTURE+8
HSI	B1+1~, SETX*, I+2
>> I	I, I+2, D+4, CHK2+2
>> MAX	EN1+4*
OK	D+1, D+4, D+5, R!
>> POP	EN1+1, 1, 11, 11+4, OVR, OVR+1, APPCK, CHK1+1, CHK2+1, CHK2+2 , CHK2+3
>> S	I, I+2, I+3
>> SB	B1*, I
>> SC	EN1+4*
>> SD	EN1+4
>> SDA1	APPCK*
>> SDCAN	I+5*, I+6
SDCNT	I+5~, I+6*
>> SDEL	DEL1*, 1
SDIN	D, D+4, 11, OVR, OVR+1, CHK1, CHK1+1, CHK2!, CHK2+1, CHK2+2 , CHK2+3
>> SDONE	B1*
>> SDPAT	SM*, I+4
>> SDRE	D, D+4, CHK2, CHK2+1, CHK2+2
>> SDRE1	D, D+4, CHK2+3
>> SDREACT	11+5*
>> SDREB	11+4*
>> SDSAV	X+1, X+4, SM*
SDSI	B1+1~, SETX*, I+2
SDSL	B1+1~, SETX, I+2
SDSLOT	OB*!, OB+1!
SDSOH	B1+1~, SETX, D+2, 11
>> SDSTRTDT	EN1+4*
SDX	B1+1~, SETX*
>> SDZQ	EN1+4
SI	B1+1~, SETX*, SM, I
SL	B1+1~, SETX*, I+2
>> SM	SM, I, I+3*, I+4
>> ST	I+2*, OB
STARTDATE	DAYSINFUTURE~, DAYSINFUTURE+4, DAYSINFUTURE+8
STARTDAY	B1, B1+1~, SETX*
>> STR	B1*, I+2, OB
U	SETX, SM, I+1, I+2, I+6, D+1
>> X	X, X+1, X+2, X+3, X+4, SM, I+3, I+4, I+5, X2* , X2+1, DEL1, D+1, D+3, D+4, D+5, EN1+1, EN1+4, 11+5, OVR+1 , CHK2+2*
>> X1	X2+1, D+4, OVR+1, CHK2+2
>> X2	X2+1, D+4, OVR+1, CHK2+2
>> Y	I+1, I+2, D+3, D+4, D+5, EN1+1, EN1+2, 11, DELERR, CHK1+1 , CHK2+2, CHK2+3*, OB, OB+1
>> Y1	CHK2+3*

Customize PDF page

Package: Scheduling