Routine: SCRPW3

Package	Total	Call Graph
Kernel	2	$$S^%ZTLOAD $$DOW^XLFDT
Registration	1	$$PRIM^VASITE
Scheduling	1	(FOOT,HDR)^SCRPW2
VA Fileman	1	(C,H)^%DTC

Package	Total	Caller Graph
Scheduling	1	SCRPW2

Entry Points

Name	Comments	DBIA/ICR reference
DIV()	;Check division
WM
STOP	;Check for stop task request
AC	;Evaluate all clinics
SET1(SDIV)
CLINE	;Print a clinic statistics line
ACT	;Count appointments, addl. variable appt. slots and no-shows
ACTIVE(X,SDIN,SDRE)	;Determine if the clinic is active on a given date
SET	;Set stats into ^TMP global
CTPAT(SDDAY)	;Count slots in availability pattern and master pattern
RS	;Evaluate a range of stop codes
A1
EN1
RC	;Evaluate a range of clinics
X1
CNT	;Evaluate a clinic
H
CG	;Evaluate by clinic group
L
CCPAT	;Count clinic patterns and patients
START	;Print statistics
SPAT(SC,SDSTRTDT,MAX,SDS)	;Set patterns into ^TMP (modified clone of OVR^SDAUT1)
W
F1
PLINE	;Print a provider statistics line
RC1
PCT(SDPATT)	;Pattern count
ADJUST	;SD*562 calculate clinic capacity for partially cancelled day
W1
SC	;Evaluate selected clinics

External References

Name	Field # of Occurrence
C^%DTC	SPAT+14, X1+1, L
H^%DTC	CTPAT+8
$$S^%ZTLOAD	STOP+1
FOOT^SCRPW2	START+2, START+4, START+7, CLINE+1, PLINE+1
HDR^SCRPW2	START+2, START+5, CLINE+1, PLINE+1
$$PRIM^VASITE	DIV+1
$$DOW^XLFDT	EN1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+2
Function Call: WRITE	Prompt: ?(22+(SDI*10)),"--------" Line Location: START+2
Function Call: WRITE	Prompt: ?112,"--------- ---------",!,"* CLINIC TOTALS *" Line Location: START+3
Function Call: WRITE	Prompt: !!,"* PROVIDER SUMMARY (based on clinic default provider definition) *" Line Location: START+5
Function Call: WRITE	Prompt: " (No ava. found)" Line Location: CLINE+1
Function Call: WRITE	Prompt: ?32,$J(SDAP,8),?42,$J(SDVSL,8),?52,$J(SDNS,8),?62,$J(SDNSVS,8),?72,$J(SDOB,8),?82,$J(SDOS,8),?92,$J((SDSL-SDAP-SDVSL),8) Line Location: F1+1
Function Call: WRITE	Prompt: ?102,$J(SDCAP,8),?112,$J($S(SDCAP=0:0,1:(SDAP+SDVSL*100)/SDCAP),8,2),"%" Line Location: F1+2
Function Call: WRITE	Prompt: ?123,$J($S(SDCAP=0:0,1:((SDAP+SDVSL-SDNS-SDNSVS)*100)/SDCAP),8,2),"%" Line Location: F1+3
Function Call: WRITE	Prompt: !!,SDPRN," (",SDPR,")" Line Location: PLINE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	RC1
^DPT - [#2]	ACT+5
^HOLIDAY - [#40.5]	W+2
^SC - [#44]	AC+1, A1, SC+1, RC+1, RC+2, RS+1, CG+1, CNT+1, CCPAT+2, CTPAT+6 , CTPAT+8, CTPAT+9, SET+1, SPAT+10, SPAT+12, SPAT+13, EN1, EN1+2, EN1+4, EN1+5 , W+1, W+2, W+3
^SC("ADPR"	SET+1
^SC("ASCRPW"	CG+1
^SC("B"	RC+2
^TMP(	CCPAT+1, CTPAT+3, SPAT+8!, EN1+5, W+1, W+3, H
^TMP("SCRPW"	START+1, START+4, START+6, SET1, SET1+1, SET1+2, CLINE+1, PLINE+1
^VA(200 - [#200]	SET+1

Label References

Name	Line Occurrences
$$ACTIVE	X1+1
$$DIV	AC+1, SC+1, RC+1, RC+2, RS+1, CG+1
$$PCT	CTPAT+5, CTPAT+6, CTPAT+9
A1	AC+1, SC+1, RC+1, RC+2, RS+1, CG+1
ACT	CCPAT+2
ADJUST	CTPAT+6, CTPAT+9
CCPAT	CNT+2
CLINE	START+1
CNT	AC+1, SC+1, RC+1, RC+2, RC1, CG+1
CTPAT	CCPAT+1
F1	START+4, CLINE+2, PLINE+1
H	W+2
L	W+2
PLINE	START+6
RC1	RS+1
SET	AC+1, SC+1, RC+1, RC+2, RC1, CG+1
SET1	SET+2
SPAT	CNT+2
STOP	AC+1, SC+1, RC+1, RC+2, RS+1, CG+1
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	CTPAT+7~
%T	CTPAT+7~
%Y	CTPAT+7~, CTPAT+8
CT	ADJUST+3, ADJUST+5, ADJUST+7, ADJUST+8!
D	SPAT+9~, EN1+1, EN1+4, EN1+5, W+2, L*
DAY	SPAT+9~, SPAT+11*, W+3
ENDATE	SPAT+9~, SPAT+14*, EN1+4, X1, L
I	PCT+2~, PCT+4, ADJUST+5, ADJUST+8!, SPAT+9~, EN1+1*
IOSL	START+2, CLINE+1, PLINE+1
J	SPAT+9~, EN1+2!, EN1+3
J(	EN1+2*, W+2
MAX	SPAT~, SPAT+14
SC	SPAT~, SPAT+10, SPAT+12, SPAT+13, EN1, EN1+2, EN1+4, EN1+5, W+1, W+2 , W+3, H
>> SD(	PCT+4
>> SDAC	AC+1, A1, SC+1, RC+1, RC+2, RS+1, CG+1*
>> SDAP	CNT+1, CNT+2, SET1, SET1+2, CLINE+2, F1, F1+1, F1+2, F1+3, ACT+4*
>> SDBCS	RS+1*, RC1
>> SDBDAY	A1, CNT+1, CNT+2, CCPAT+2
>> SDCAP	F1+2*, F1+3
>> SDCG	CG+1*
>> SDCL	START+1, AC+1, A1, SC+1, RC+1, RC+2, RS+1, CG+1*, CNT+1, CNT+2 , CCPAT+1, CCPAT+2, CTPAT+3, CTPAT+6, CTPAT+8, CTPAT+9, SET+1, SET1, CLINE+1
>> SDCL(	SC+1, RC+1, RS+1
>> SDCL(""	RC+1, RS+1
>> SDCL(0	CG+1
>> SDCL0	AC+1, A1, SC+1, RC+1, RC+2, RS+1, RC1, CG+1, SET1
>> SDCLI	A1*
>> SDCLN	START+1, RC+1, RC+2*, CLINE+1
>> SDCP0	CCPAT+2*, ACT+1, ACT+2, ACT+3, ACT+5
>> SDCSC	RC1*
>> SDCT	START+3, CLINE+1, F1, PLINE+1*
SDDAY	CNT+1, CCPAT+1, CCPAT+2*, CTPAT~, CTPAT+3, CTPAT+6, CTPAT+8, ACT+5
>> SDDIV	DIV+2
>> SDDIV(	DIV+2
SDDW	CTPAT+7~, CTPAT+8*, CTPAT+9
>> SDECL	RC+1*, RC+2
>> SDECS	RS+1*, RC1
>> SDEDAY	A1, CCPAT+1, CCPAT+2
>> SDF1	CNT+1, CTPAT+5, SET+1, SET1, ACT+4*
SDFLAG	CTPAT+2~, CTPAT+4, CTPAT+6, CTPAT+9
SDHLDPAT	CTPAT+2~, CTPAT+4, CTPAT+6, ADJUST+3
>> SDI	START+2, CCPAT+2
SDIN	SPAT+9~, SPAT+10, SPAT+14, X1+1, ACTIVE~, ACTIVE+5
SDIV	START+1, START+4, START+6, AC+1, SC+1, RC+1, RC+2, RS+1, CG+1, DIV+1* , DIV+2, SET+2, SET1~, SET1+1, SET1+2, CLINE+1, PLINE+1
>> SDLAP	CNT+1*, ACT+2
>> SDMAX	CNT+2
>> SDMD	SET+2
SDMPDT	CTPAT+7~, CTPAT+8*, CTPAT+9
>> SDNS	CNT+1, SET1, SET1+2, CLINE+2, F1, F1+1, F1+3, ACT+5*
>> SDNSVS	CNT+1, SET1, SET1+2, CLINE+2, F1, F1+1, F1+3, ACT+5*
>> SDOB	CNT+1, CNT+2, SET1, SET1+2, CLINE+2, F1*, F1+1
>> SDOS	CNT+1, CTPAT+5, SET1, SET1+2, CLINE+2, F1*, F1+1
>> SDOUT	START+1, START+2, START+5, START+6, START+7, STOP+1*, AC+1, SC+1, RC+1, RC+2 , RS+1, CG+1, CLINE+1, PLINE+1
>> SDPAS	ACT+5*
SDPATT	CTPAT+2~, CTPAT+3, CTPAT+4, CTPAT+5, CTPAT+6, CTPAT+9, PCT~, PCT+3, PCT+4, ADJUST+6* , ADJUST+7*
SDPCT	CTPAT+2~, CTPAT+9, SET1+1, SET1+2
>> SDPESL	ACT+2*, ACT+5
>> SDPLAP	ACT+2*
>> SDPR	START+6, SET+1, SET1+1, SET1+2, PLINE+1
>> SDPRN	START+6, SET+1, SET1+1, SET1+2, PLINE+1
SDRE	SPAT+9~, SPAT+10*, X1+1, ACTIVE~, ACTIVE+5
SDS	SPAT~, SPAT+8*, EN1+5, W+1, W+3, H
>> SDSL	CNT+1, CNT+2, CTPAT+6, CTPAT+9, SET1, SET1+2, CLINE+2, F1, F1+1, F1+2
SDSOH	SPAT+9~, SPAT+13*, W+2
SDSTRTDT	SPAT~, SPAT+14, EN1+4
>> SDSUB	CCPAT+1, CTPAT+3
>> SDTAP	START+3, CLINE+2*
>> SDTNS	START+3, CLINE+2*
>> SDTNSVS	START+3, CLINE+2*
>> SDTOB	START+3, CLINE+2*
>> SDTOS	START+3, CLINE+2*
>> SDTSL	START+3, CLINE+2*
>> SDTVSL	START+3, CLINE+2*
SDUP	ADJUST+3, ADJUST+4, ADJUST+5, ADJUST+8!
>> SDVSL	CNT+1, SET1, SET1+2, CLINE+2, F1, F1+1, F1+2, F1+3, ACT+2*
SI	SPAT+9~, SPAT+12*, W+3
SM	SPAT+9~, EN1+1, W1, WM
SS	SPAT+9~, W+2*, W+3
U	START+3, AC+1, A1, SC+1, RC+1, RC+2, RS+1, RC1, CG+1, CNT+1 , SET+1, SET1, SET1+2, F1, ACT+1, ACT+2, ACT+5, SPAT+10, SPAT+12, W+3 , H
X	CTPAT+7~, CTPAT+8, PCT+2~, PCT+4, PCT+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
X1	SPAT+9~, SPAT+14, X1, X1+1*, L
X2	SPAT+9~, SPAT+14, X1+1, L*
Y	SPAT+9~, EN1+1, EN1+2, W+2*, W+3
>> ZTQUEUED	STOP+1
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SCRPW3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: