Routine: SCRPW71

Package	Total	Call Graph
Kernel	1	$$DOW^XLFDT
Registration	1	$$SITE^VASITE
VA Fileman	1	(C,H)^%DTC

Package	Total	Caller Graph
Scheduling	4	SCRPW63 SCRPW72 SCRPW77 SDM0

Entry Points

Name	Comments	DBIA/ICR reference
ARRSET(SDCP,SC,SDI,SDSL,SDCAP)	;Set daily counts into array
DIV(SC0)	;Get facility division name and number
W1
H
CLINIC(SC,SDFMT,SDSTRTDT,MAXDT,MAX,SDPAST)	;Evaluate a clinic
CPAIR(SC0,SDCP)	;Validate primary stop code, get credit pair
ACTC(SC,SDSTRTDT,MAXDT)	;Determine if clinic is active during date range
L
EN1
INIT	;Initialize array for counting patterns
PCT(SDPATT)	;Pattern count
CCNT(SC,MAX,SDCP,SDFMT,SDSTRTDT,SDIV,SDPAST)	;Count clinic availability and capacity
W
SPAT(SC,SDSTRTDT,ENDATE,SDS)	;Set patterns into ^TMP (modified clone of OVR^SDAUT1)
PCNT(X)	;Count open slots in a pattern
X1
WM
ACTIVE(X,SDIN,SDRE)	;Determine if the clinic is active on a given date
ARRINI(SDCP,SC,MAX,SDPAST)	;Initialize array for counts

External References

Name	Field # of Occurrence
C^%DTC	CLINIC+12, X1+1, L, CCNT+21, CCNT+23
H^%DTC	CCNT+32
$$SITE^VASITE	DIV+3, DIV+4
$$DOW^XLFDT	EN1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	CPAIR+4, CPAIR+6, CPAIR+8
^HOLIDAY - [#40.5]	W+2
^SC - [#44]	CLINIC+9, CLINIC+12, ACTC+6, SPAT+10, SPAT+12, SPAT+13, EN1, EN1+2, EN1+4, EN1+5 , W+1, W+2, W+3, CCNT+31, CCNT+32, CCNT+33
^TMP(	SPAT+8!, EN1+5, W+1, W+3, H
^TMP("SD"	CCNT+17, CCNT+19, CCNT+36, CCNT+37, CCNT+38, CCNT+39, CCNT+41, CCNT+42, ARRINI+8, ARRINI+9 , ARRINI+10, ARRINI+13, ARRSET+8, ARRSET+12*
^TMP("SDTMP"	CCNT+18, CCNT+25

Label References

Name	Line Occurrences
$$ACTC	CLINIC+13
$$ACTIVE	X1+1
$$CCNT	CLINIC+16
$$CPAIR	CLINIC+11
$$DIV	CLINIC+14
$$PCT	CCNT+27, CCNT+31, CCNT+33
ARRINI	CCNT+19
ARRSET	CCNT+35
H	W+2
L	W+2
SPAT	CLINIC+15
W	L
W1	W+1, H
WM	EN1+1, W1
X1	X1+1, L

Naked Globals

Name	Field # of Occurrence
^(	H

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	CLINIC+8~, ACTC+5~, CCNT+29~
%T	CCNT+29~
%Y	CCNT+29~, CCNT+32
CT	PCNT+3~, PCNT+4, PCNT+6, PCNT+7
D	SPAT+9~, EN1+1, EN1+4, EN1+5, W+2, L*
DAY	SPAT+9~, SPAT+11*, W+3
DT	CLINIC+12
ENDATE	SPAT~, EN1+4, X1, L
I	SPAT+9~, EN1+1, INIT+3, PCT+3~, PCT+5, PCNT+3~, PCNT+6
J	SPAT+9~, EN1+2!, EN1+3
J(	EN1+2*, W+2
MAX	CLINIC~, CLINIC+16, CCNT~, CCNT+19, CCNT+22, ARRINI~, ARRINI+10, ARRINI+11
MAXDT	CLINIC~, CLINIC+12*, CLINIC+13, CLINIC+15, ACTC~, ACTC+8
SC	CLINIC~, CLINIC+9, CLINIC+12, CLINIC+13, CLINIC+15, CLINIC+16, ACTC~, ACTC+6, SPAT~, SPAT+10 , SPAT+12, SPAT+13, EN1, EN1+2, EN1+4, EN1+5, W+1, W+2, W+3, H , CCNT~, CCNT+17, CCNT+19, CCNT+25, CCNT+31, CCNT+32, CCNT+33, CCNT+35, CCNT+38, CCNT+39 , CCNT+42, ARRINI~, ARRINI+9, ARRINI+10, ARRINI+13, ARRSET~, ARRSET+8, ARRSET+12
SC0	CLINIC+8~, CLINIC+9*, CLINIC+10, CLINIC+11, CLINIC+14, DIV~, DIV+2, CPAIR~, CPAIR+4, CPAIR+6 , CPAIR+8
SD	INIT+1!, INIT+2*, INIT+3
SD(	INIT+3*, PCT+5, PCNT+6
SDCAP	CCNT+20~, CCNT+23, CCNT+30, CCNT+31, CCNT+33, CCNT+35, ARRSET~, ARRSET+10
SDCP	CLINIC+8~, CLINIC+11, CLINIC+16, CPAIR~, CPAIR+4, CPAIR+6, CPAIR+7, CPAIR+8*, CCNT~, CCNT+17 , CCNT+19, CCNT+35, CCNT+36, CCNT+37, CCNT+38, CCNT+39, CCNT+41, CCNT+42, ARRINI~, ARRINI+8 , ARRINI+9, ARRINI+10, ARRINI+13, ARRSET~, ARRSET+8, ARRSET+12
SDDAY	CCNT+20~, CCNT+23*, CCNT+25, CCNT+31, CCNT+32
SDDW	CCNT+29~, CCNT+32*, CCNT+33
SDFMT	CLINIC~, CLINIC+16, CCNT~, CCNT+35, ARRINI+9
SDI	INIT+1~, CCNT+20~, CCNT+22, CCNT+23, CCNT+35, ARRINI+5~, ARRINI+7, ARRINI+10, ARRINI+11, ARRINI+12 , ARRSET~, ARRSET+7
SDIN	ACTC+5~, ACTC+6, ACTC+7, SPAT+9~, SPAT+10, SPAT+14*, X1+1, ACTIVE~, ACTIVE+5
SDIV	CLINIC+8~, CLINIC+14, CLINIC+16, DIV+2~, DIV+3, CCNT~, CCNT+17, CCNT+19, CCNT+36, CCNT+37 , CCNT+38, CCNT+39, CCNT+41, CCNT+42, ARRINI+8, ARRINI+9, ARRINI+10, ARRINI+13, ARRSET+8, ARRSET+12
SDMPDT	CCNT+29~, CCNT+32*, CCNT+33
SDP	ARRINI+5~, ARRINI+12, ARRINI+13, ARRSET+6~, ARRSET+7, ARRSET+8, ARRSET+12
SDPAST	CLINIC~, CLINIC+16, CCNT~, CCNT+19, CCNT+40, ARRINI~, ARRINI+6, ARRINI+7, ARRSET+11
SDPATT	CCNT+20~, CCNT+25, CCNT+26, CCNT+27, CCNT+31, CCNT+33, PCT~, PCT+2, PCT+4, PCT+5
SDRE	ACTC+5~, ACTC+6, ACTC+8, SPAT+9~, SPAT+10, X1+1, ACTIVE~, ACTIVE+5
SDS	SPAT~, SPAT+8, EN1+5, W+1, W+3, H, ARRINI+5~, ARRINI+12, ARRINI+13, ARRSET+6~ , ARRSET+7*, ARRSET+8, ARRSET+12
SDSL	CCNT+20~, CCNT+23, CCNT+27, CCNT+35, ARRSET~, ARRSET+9
SDSOH	SPAT+9~, SPAT+13*, W+2
SDSSC	CPAIR+5~, CPAIR+8*
SDSTRTDT	CLINIC~, CLINIC+13, CLINIC+15, CLINIC+16, ACTC~, ACTC+7, SPAT~, SPAT+14, EN1+4, CCNT~ , CCNT+21
SDTCAP	CCNT+20~, CCNT+22, CCNT+31, CCNT+33*, CCNT+37, CCNT+39, CCNT+43
SDTOE	CCNT+16~, CCNT+17*, CCNT+18, CCNT+43
SDTSL	CCNT+20~, CCNT+22, CCNT+27, CCNT+36, CCNT+38, CCNT+43
SDX	ARRINI+5~, ARRINI+7, ARRINI+8, ARRINI+9, ARRSET+6~, ARRSET+8, ARRSET+9, ARRSET+10, ARRSET+11*, ARRSET+12
SDY	CCNT+20~, CCNT+21, CCNT+23, ARRINI+5~, ARRINI+6, ARRINI+13
SI	SPAT+9~, SPAT+12*, W+3
SM	SPAT+9~, EN1+1, W1, WM
SS	SPAT+9~, W+2*, W+3
U	CLINIC+9, CLINIC+10, CLINIC+12, CLINIC+16, DIV+2, DIV+3, DIV+4, CPAIR+4, CPAIR+6, CPAIR+8 , ACTC+6, SPAT+10, SPAT+12, W+3, H, CCNT+17, CCNT+36, CCNT+37, CCNT+38, CCNT+39 , CCNT+41, CCNT+42, CCNT+43, ARRINI+7, ARRINI+13, ARRSET+8, ARRSET+12
X	CLINIC+8~, CLINIC+12, ACTC+5~, SPAT+9~, SPAT+14, EN1, EN1+1, EN1+5, X1, X1+1 , W, W+1, W+2, W+3, W1, L, H, WM, ACTIVE~, ACTIVE+5 , CCNT+21, CCNT+23, CCNT+29~, CCNT+32, PCT+3~, PCT+5, PCT+6, PCNT~, PCNT+4, PCNT+5* , PCNT+6
X1	CLINIC+8~, CLINIC+12, ACTC+5~, SPAT+9~, X1, X1+1, L, CCNT+21, CCNT+23*
X2	CLINIC+8~, CLINIC+12, ACTC+5~, SPAT+9~, X1+1, L, CCNT+21, CCNT+23*
Y	SPAT+9~, EN1+1, EN1+2, W+2*, W+3

Customize PDF page

Package: Scheduling

Routine: SCRPW71

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: