Routine: SDCLAV1

Package	Total	Call Graph
Scheduling	2	(A1,INAC,PG)^SDCLAV NM^SDCLAV0
VA Fileman	2	(,DW,NOW,YX)^%DTC ^DIK
IHS Changes To ADT	1	$$TIME^BDGF
Kernel	1	($$DOW,$$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
Scheduling	1	SDCLAV0

Entry Points

External References

Name	Field # of Occurrence
^%DTC	DIFF
DW^%DTC	WR+1
NOW^%DTC	HDR
YX^%DTC	CHKDT+6
$$TIME^BDGF	W1+9
^DIK	W1+6
A1^SDCLAV	WR2+2
INAC^SDCLAV	A
PG^SDCLAV	HDR, WARN+1, 3+2
NM^SDCLAV0	SDPT1+1, X1+2
$$DOW^XLFDT	DOW
$$FMADD^XLFDT	LEAP+4
$$FMTE^XLFDT	DT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"THIS CLINIC DOES NOT HAVE APPT. LENGTH" Line Location: S+0
Function Call: WRITE	Prompt: !," DATE",?SDI+SDI-1,"\|" Line Location: T1+1
Function Call: WRITE	Prompt: $J("\|",SDI+SDI) Line Location: T1+3
Function Call: WRITE	Prompt: !!,"No appointments scheduled" Line Location: WR+2
Function Call: WRITE	Prompt: @IOF Line Location: WR2+1
Function Call: WRITE	Prompt: @IOF,!?52,Y Line Location: HDR+0
Function Call: WRITE	Prompt: !?30,$P(^DG(40.8,D,0),"^") Line Location: HDR+1
Function Call: WRITE	Prompt: !?30,SDV,!?30,SDM," ",($E(SDZ,1,3)+1700) Line Location: HDR+2
Function Call: WRITE	Prompt: !!,?30,SDV,!,?30,$P(SDM1,"^",+$E(SDZ2,4,5))," ",($E(SDZ2,1,3)+1700) Line Location: HDR1+0
Function Call: WRITE	Prompt: D1 Line Location: W+1
Function Call: WRITE	Prompt: X,?20,X4,?51,X6 Line Location: W1+9
Function Call: WRITE	Prompt: ?61,"("_M1_") MINUTES" Line Location: W1+9
Function Call: WRITE	Prompt: ?61,"("_M1_") MINUTES" Line Location: W1+9
Function Call: WRITE	Prompt: X,?20,X4,?51,X6 Line Location: W1+10
Function Call: WRITE	Prompt: ?61,"("_M1_") MINUTES" Line Location: W1+10
Function Call: WRITE	Prompt: ?61,"("_M1_") MINUTES" Line Location: W1+10
Function Call: WRITE	Prompt: X,?23,X4,?51,X6 Line Location: W2+2
Function Call: WRITE	Prompt: ?61,"("_M1_") MINUTES" Line Location: W2+2
Function Call: WRITE	Prompt: ?61,"("_M1_") MINUTES" Line Location: W2+2
Function Call: WRITE	Prompt: @IOF,! Line Location: WARN+1
Function Call: WRITE	Prompt: !!,"*************************************************************************" Line Location: WARN+3
Function Call: WRITE	Prompt: !,"* WARNING: There is a data inconsistency or data corruption problem *" Line Location: WARN+4
Function Call: WRITE	Prompt: !,"* with one or more of the above appointments. These appointments will *" Line Location: WARN+5
Function Call: WRITE	Prompt: !,"* have WARNING displayed to the left of the time. Corrective action *" Line Location: WARN+6
Function Call: WRITE	Prompt: !,"* needs to be taken. Please cancel any of the appointments above, which *" Line Location: WARN+7
Function Call: WRITE	Prompt: !,"* have the WARNING display. If any of them are valid appointments, they *" Line Location: WARN+8
Function Call: WRITE	Prompt: !,"* will have to be re-entered via Appointment Management. *" Line Location: WARN+9
Function Call: WRITE	Prompt: !,"**************************************************************************" Line Location: WARN+10
Function Call: WRITE	Prompt: ! Line Location: 3+0
Function Call: READ	Prompt: "PRESS RETURN TO CONTINUE OR ^ TO QUIT " Formatting: !! Timeout: DTIME Variable: SDU Line Location: 3+1
Function Call: WRITE	Prompt: @IOF,! Line Location: 3+2
Function Call: WRITE	Prompt: !!!,"FOR CLINIC AVAILABILITY PATTERNS:" Line Location: A+0
Function Call: WRITE	Prompt: !!?4,"0-9 and j-z",?15," --denote available slots where j=10,k=11...z=26",!?12,"A-W",?15," --denote overbooks with A being the first slot to be overbooked",!?18,"and B being the second for that same time, etc." Line Location: A+1
Function Call: WRITE	Prompt: !?6,"*,$,!,@,#",?15," --denote overbooks or appts. that fall outside of a clinic's",!?18,"regular hours" Line Location: A+2
Function Call: WRITE	Prompt: ! Line Location: TAB+0
Function Call: WRITE	Prompt: !,?1,X1,?11,Y1 Line Location: DAT+0
Function Call: WRITE	Prompt: !,$E(^SC(+SC,"ST",X,1),1,80) Line Location: WW+5
Function Call: WRITE	Prompt: !?36 Line Location: WM+0
Function Call: WRITE	Prompt: $$FMTE^XLFDT(Y) Line Location: DT+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WR+1, HDR
^DD("FUNC" - [#.5]	W1+1
^DG(40.8 - [#40.8]	HDR+1
^DG(43 - [#43]	S1, HDR+1
^HOLIDAY - [#40.5]	WW+1, WW+5
^SC - [#44]	S1, S, S+2, MON, SDPT1+1, TIME+4, TIME+5, T1+1, X1+2, WW+1 , WW+2, WW+5, H, CHKDT+9, CHKDT+10, CHKDT+13, CHKDT+14, CHKDT+18
^UTILITY($J	S2+1, S1+1*, WR+1, WR1, W, W1+2, W1+4, MIN, DAT

Label References

Name	Line Occurrences
$$CHKDT	WW+1
$$LEAP	X1+1
3	LOOP, SS+1, SDPT1, WR2+1, W1+9, W2+2, WARN+11, A, WW+6
A	LOOP, SS+1
DAT	WR2+1, W1+9, W2+2, WARN+2
DAY	WW+2
DOW	X1+3
H	WW+1
HDR	S, S+1, LOOP+2, SDPT1, WW+6
HDR1	WR+1, WR+2, WR2+1, W1+9, W2+2, WARN+2
L	WW+1, WW+5
LOOP	LOOP+2
MIN	W1+9, W2+2
MON	LOOP
MSG	LOOP+1, LOOP+3
S	S2+1
SDM	S, S+1, LOOP, LOOP+2
SDPT1	MON
T1	TIME+4
TAB	W1+9, W2+2
TIME	S+1, LOOP+2, SDPT1
W	W1+9, W2+2
W1	WR1
W2	W1+2
WARN	MSG+1
WM	WW+5
WR	LOOP, SS+1
WR1	WR+1
WR2	WR+3
WW	L+1, H
X1	LOOP
YCNT	SDPT1+2, 3, TAB, DAT, WW+5, WM

Naked Globals

Name	Field # of Occurrence
^(	WW+1, H
^("GL"	HDR+1
^("SL"	TIME+4
^(0	WW+2, H
^(1	WW+2, WW+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HDR
%H	CHKDT+4~, CHKDT+5*
>> C	WR, WR+1, WR1, W, W1+1, W1+2, W1+4, W1+5, W1+9, MIN , DAT
>> D	S2+1, S1, S1+1, WR+1, WR1, HDR+1, W, W1+2, W1+4, MIN , DAT, CHKDT+2, CHKDT+10, CHKDT+17, CHKDT+19, CHKDT+22
>> D1	W*, W+1
>> D8	W*
DA	W1+5*, W1+7!
DA(1	W1+5*, W1+6
DA(2	W1+5*, W1+6
DIK	W1+6*, W1+7!
DTIME	3+1
I1	S2~
IOF	WR2+1, HDR, WARN+1, 3+2
IOSL	SDPT1, W1+9, W2+2, 3, 3+2, A, WW+6
IOST	LOOP, SS+1, SDPT1, HDR, WARN+1, 3, 3+2
J	T1+1!
J(	T1+1*, WW+1
>> M1	W1+9, W2+2, MIN*
N1	W1+4*, W1+7!
>> P	S2+1*
POP	S+3~, LOOP+1, LOOP+3, W2+1, WARN+12*
RET	CHKDT+1~, CHKDT+21, CHKDT+25, CHKDT+26
>> S8	WR+1*
SC	S2~, S+2*, WW+1, WW+2, WW+5, H, CHKDT+2, CHKDT+9, CHKDT+10, CHKDT+13 , CHKDT+14, CHKDT+17, CHKDT+18, CHKDT+19, CHKDT+22
>> SD	S1*
>> SD0	S+1, LOOP, WR, WR+1*, WR+2, WR+3
>> SD5	S1, SS, WR+1
>> SDAP	SDPT1+1, X1+2
>> SDAP1	W1+4*, W1+5
SDAV	S2~, WW+5*
SDAYCHK	CHKDT+4~, CHKDT+12, CHKDT+13, CHKDT+19
SDAYCNT	CHKDT+4~, CHKDT+7, CHKDT+10, CHKDT+13
SDAYI	CHKDT+4~, CHKDT+8*, CHKDT+9, CHKDT+10
SDAYNAM	CHKDT+4~, CHKDT+14*, CHKDT+15
SDAYNUM	CHKDT+4~, CHKDT+15*, CHKDT+16, CHKDT+17, CHKDT+18, CHKDT+19
>> SDBD	S2+1, S+1, S+2, HDR1
>> SDC	S2+1, S1, S1+1, S, S+2, MON, SDPT1+1, TIME+4, TIME+5, T1+1 , W1+4, W1+5, X1+2
>> SDC1	WR, WR+1
SDDD	S2~, X1+3, WW+1, L, DIFF*, CHKDT+21
>> SDED	S+1, LOOP+2, HDR1, X1+1
SDEOM	LEAP~, LEAP+2, LEAP+4, LEAP+5
SDFA	CHKDT+1~, CHKDT+22, CHKDT+23, CHKDT+24, CHKDT+25
SDFMTDAY	CHKDT+4~, CHKDT+6*, CHKDT+10
SDFRST	S2~
SDFRST(	CHKDT+2, CHKDT+10, CHKDT+17, CHKDT+19, CHKDT+22
>> SDI	TIME+4, TIME+5, T1, T1+1, T1+3
SDLEAP	LEAP+3~, LEAP+4*, LEAP+5
>> SDM	HDR+2, SDM*
>> SDM1	HDR1, SDM*
SDMED	S2~, S+1, WR+1, X1+2
>> SDNM	S1*, S1+1
>> SDPT	MON*, SDPT1+1
>> SDRE	DIFF
SDSOH	S+2~*, WW+1
SDST	CHKDT+4~, CHKDT+12, CHKDT+13, CHKDT+14, CHKDT+19
>> SDT	TIME+4, TIME+5, T1
>> SDU	3+1*
>> SDUP	S2+1, LOOP, LOOP+2, SS, SS+1, SDPT1, SDPT1+1, WR+1, WR+2, WR1 , W1+9, W2+2, 3+1*, 3+2, A, X1+2, WW+6
>> SDUT	W*
>> SDV	S2+1*, WR+1, WR1, HDR+2, HDR1, W, W1+2, W1+4, MIN, DAT
>> SDZ	S+1, S+2, LOOP, LOOP+2, SS, MON, SDPT1+1, WR+3, HDR+2, SDM
>> SDZ1	LOOP, SS
>> SDZ2	S2+1, S+1, LOOP+2, WR, WR+3, HDR1*
SI	S2~, S+2*, WW+2
SL	S2~, S+2*
SM	S2~, S+2, WW+5, WM
SS	S2~, WW+1*
STARTDAY	S2~, S+2*
>> T	W1+9, W2+2, TAB*
U	S+2, TIME+4, TIME+5, W1+4, X1, WW+2, H
X	S+2~, LOOP+2, WR~, WR+1, HDR~, W1+1, W1+2, W1+9, W2+2, 3~* , A~, TAB, X1, X1+2, WW+1, WW+2, WW+5, L, L+1, WM , DOW, DIFF, H, CHKDT+4~, CHKDT+6, CHKDT+25
>> X1	WR, WR1, W1+9, W2+2, DAT, X1, X1+1, X1+2, L+1, DIFF*
>> X2	WR1, DIFF
>> X4	WR1*, W, W1+2, W1+3, W1+4, W1+9, W2+2, MIN
>> X5	S2+1*
>> X6	WR1*, W, W1+2, W1+4, W1+9, W2+2, MIN
>> X9	WR+1*, W1+9, W2+2
Y	WR+1, HDR, X1+3, WW+1, WW+2, WM, DT, DOW, CHKDT+1~, CHKDT+21 , CHKDT+22
>> Y1	WR+1*, W1+9, W2+2, DAT
>> Y2	WR+1*
>> Y3	WR, WR+1, W1+9, W2+2*
YCNT	S2~, SDPT1, T1+2, HDR, HDR+2, HDR1, W1+9, W2+2, 3+2, A , A+2, WW+6, YCNT*
>> Z	SDPT1+1*
>> Z5	TIME+4, TIME+5
>> Z6	T1*
>> Z7	T1+1*
>> Z8	T1+3*

Customize PDF page

Package: Scheduling

Routine: SDCLAV1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
HDR
MIN
S2
S1
WW	;
WR
CHKDT()	;
SDPT1
MSG	;Added SD/517
DIFF
DT
DOW
LEAP(SDEOM)	;Check for leap year, adjust if indicated
HDR1
DAT
3
WR2	;Added SD/517
TAB
WR1
X1
WM
MON
A
H
L
T1
WARN	;added SD/517
S
W
SS
YCNT
DAY	;;^SUN^MON^TUES^WEDNES^THURS^FRI^SATUR
W2	;added SD/517
W1	;added next 2 lines and changed 3rd line SD/517
TIME	;SD/533 $Select defaults to 8 when Z5=0, so a Midnight to 8am clinic
SDM
LOOP