Routine: SCRPW72

Information

SCRPW72 ;BP-CIOFO/KEITH,ESW - Clinic appointment availability extract (cont.) ; 5/23/03 12:16pm

Package	Total	Call Graph
Scheduling	9	END^SCRPW50 (EXXM,TXXM)^SCRPW70 ($$CLINIC,$$CPAIR,$$DIV,ARRINI,INIT)^SCRPW71 (PRT,XMTX)^SCRPW73 EXIT^SCRPW74 NAVA^SCRPW75 HINI^SCRPW76 FOOT^SCRPW77 $$GETOE^SDOE
VA FileMan	4	^%DTC ^DIC WAIT^DICD ^DIR
Kernel	2	$$S^%ZTLOAD $$HTE^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: 2

Package	Total	Caller Graph
Scheduling	2	SCRPW70 SCRPW74

Entry Points

Name	Comments	DBIA/ICR reference
START	;Gather data for printed report
ORD	;Build list to order clinic output
OE(SDBDT,SDEDT,MAX,SDEX)	;Count clinic workload
ARRSET(SDCP,SC,SDI)	;Set daily counts into array
DIV(SDIV)	;Evaluate division
CA(SORT)	;Evaluate list of clinics for selected patient
CL	;Evaluate list of clinics
CP	;Evaluate list of credit pairs
CNAME(SC)	;Massage clinic name
SORT(SDSORT)	;Gather sort values for detailed report
SCL	;Select clinics for detail
SCP	;Get credit pairs for detail
VCP(Y)	;Validate credit pair
STOP	;Check for stop task request
ADDL(SDZ)	;Format additional data
EXTRACT	;Gather data for extract
TIME(SDBEG,SDEND)	;Calculate length of run time

External References

Name	Field # of Occurrence
^%DTC	START+11, OE+23, EXTRACT+6
$$S^%ZTLOAD	STOP+1
^DIC	SCL+4
WAIT^DICD	START+2
^DIR	SCP+8
END^SCRPW50	START+26
EXXM^SCRPW70	EXTRACT+35, EXTRACT+38
TXXM^SCRPW70	EXTRACT+21
$$CLINIC^SCRPW71	START+20, CA+13, CL+6, CP+6, EXTRACT+14
$$CPAIR^SCRPW71	OE+15, CA+9, CP+4
$$DIV^SCRPW71	OE+19, CA+8, CL+8
ARRINI^SCRPW71	OE+20
INIT^SCRPW71	START+10, EXTRACT+4
PRT^SCRPW73	START+28, EXTRACT+35, EXTRACT+38
XMTX^SCRPW73	EXTRACT+27, EXTRACT+28, EXTRACT+29, EXTRACT+30, EXTRACT+31, EXTRACT+32, EXTRACT+33, EXTRACT+34
EXIT^SCRPW74	START+13, START+21, START+24, START+29, EXTRACT+39
NAVA^SCRPW75	START+23, EXTRACT+18
HINI^SCRPW76	START+5, EXTRACT+7
FOOT^SCRPW77	START+5, EXTRACT+7
$$GETOE^SDOE	OE+10
$$HTE^XLFDT	EXTRACT+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SCL+3
Function Call: WRITE	Prompt: ! Line Location: SCP+7
Function Call: WRITE	Prompt: " Invalid credit pair!" Line Location: SCP+10
Routine Call	DIC Line Location: SCL+4
Routine Call	DIR Line Location: SCP+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	VCP+4, VCP+6
^DPT - [#2]	OE+12, CA+4, CA+6
^SC - [#44]	START+17, START+19, ORD+4, OE+14, CA+6, CL+4, CP+2, CP+3, CNAME+3, EXTRACT+13
^SCE("B"	OE+7, OE+8
^TMP(	START+9!
^TMP("SD"	START+6!, START+22, ORD+1, ORD+2, ORD+3, OE+20, OE+21, OE+22, ARRSET+6, ARRSET+9* , CL+9*, EXTRACT+5!, EXTRACT+17
^TMP("SDIP"	CA+12*
^TMP("SDIPLST"	CA+12*
^TMP("SDORD"	CA+12*
^TMP("SDPAT"	CA+2
^TMP("SDPLIST"	START+7!, CL+5, CP+5
^TMP("SDS"	START+6!, ORD+5*, EXTRACT+5!
^TMP("SDTMP"	START+6!, EXTRACT+5!
^TMP("SDTOT"	START+6!
^TMP("SDXM"	EXTRACT+5!, EXTRACT+21!, EXTRACT+37!

Label References

Name	Line Occurrences
$$DIV	START+19, OE+13, CA+6, CL+4, CP+3
$$TIME	EXTRACT+24
$$VCP	SCP+10
@(	START+16, SORT+9
ARRSET	OE+24
CA	START+15
OE	START+12, EXTRACT+10
ORD	START+25, EXTRACT+21
STOP	START+18, OE+9, CA+5, CL+3

Naked Globals

Name	Field # of Occurrence
^(	CA+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CC	START+9~*
DFN	OE+5~, OE+11, OE+12, CA+1~, CA+2, CA+4, CA+6, CA+12
DIC	SCL+1~, SCL+2*
DIC("A"	SCL+2*
DIC("S"	SCL+2*
DIC(0	SCL+2*
DIR	SCP+1~
DIR("?"	SCP+3, SCP+4, SCP+5, SCP+6
DIR("A"	SCP+2*
DIR(0	SCP+2*
DT	START+4, EXTRACT+4
>> DTOUT	SCL+4, SCP+8
>> DUOUT	SCL+4, SCP+8
IOM	START+3, EXTRACT+2
IOST	START+2, START+26
MAX	START+1~, START+11, START+12, START+20, OE~, OE+20, CA+13, CL+6, CP+6, EXTRACT+2~ , EXTRACT+6, EXTRACT+10, EXTRACT+14
SC	START+1~, START+17, START+19, START+20, ORD+3, ORD+4, ORD+5, OE+13, OE+14, OE+20 , OE+22, OE+24, ARRSET~, ARRSET+6, ARRSET+9, CA+6, CA+12, CA+13, CL+4, CL+5 , CL+6, CP+1~, CP+2, CP+3, CP+5, CP+6, CNAME~, CNAME+3, EXTRACT+1~, EXTRACT+13 , EXTRACT+14
SC0	START+19, OE+14, OE+15, OE+17, OE+19, CA+1~, CA+6, CA+7, CA+8, CA+9 , CA+11, CL+1~, CL+4, CL+8, CP+1~, CP+3, CP+4, EXTRACT+13
SCNA	START+1~, ORD+4*, ORD+5, EXTRACT+1~
SDAY	OE+5~, OE+23*, OE+24
SDBDT	START+4, START+11, START+12, START+20, START+23, OE~, OE+6, OE+23, CA+3, CA+13 , CL+6, CP+6, EXTRACT+6, EXTRACT+10, EXTRACT+14, EXTRACT+18
SDBEG	EXTRACT+1~, EXTRACT+4, EXTRACT+24, EXTRACT+25, EXTRACT+30, TIME~, TIME+5, TIME+6*
SDCCP	CP+1~, CP+4
SDCNAM	CA+1~, CL+1~, CL+2*, CL+4, CL+9
>> SDCOL	START+10, EXTRACT+4
SDCP	START+1~, ORD+2*, ORD+3, ORD+5, OE+5~, OE+15, OE+18, OE+20, OE+21, OE+22 , OE+24, ARRSET~, ARRSET+6, ARRSET+9, CA+1~, CA+9, CA+10, CA+12, EXTRACT+1~
SDCT	OE+5~, OE+6, OE+9
>> SDDIV	DIV+1
>> SDDIV(	DIV+1
SDDT	CA+3~, CA+4, CA+6
SDEDT	START+11, START+12, START+20, START+23, OE~, OE+7, CA+4, CA+13, CL+6, CP+6 , EXTRACT+6, EXTRACT+10, EXTRACT+14, EXTRACT+18
SDEND	EXTRACT+1~, EXTRACT+24, EXTRACT+25, EXTRACT+31, TIME~, TIME+5*, TIME+6
SDEX	START+23, OE~, OE+16
SDEXDT	EXTRACT+2~, EXTRACT+4*
SDFMT	START+14, START+17, START+20, OE+23, CA+13, CL+6, CP+6, EXTRACT+1~, EXTRACT+4, EXTRACT+14 , EXTRACT+24
>> SDFMTS	START+14, START+17
SDFOOT	START+1~, START+5, EXTRACT+1~, EXTRACT+7
SDI	START+1~, START+3, START+18, ARRSET~, ARRSET+5, CA+1, CA+5, CL+1, CL+3, ADDL+3~ , ADDL+4, EXTRACT+1~, EXTRACT+3, EXTRACT+34, EXTRACT+36, EXTRACT+38
SDIOM	START+1~, START+3, START+4, START+10, EXTRACT+1~, EXTRACT+2*
SDIV	ORD+1, ORD+2, ORD+3, OE+19, OE+20, OE+21, OE+22, ARRSET+6, ARRSET+9, DIV~ , DIV+1, CA+1~, CA+8, CA+12, CL+1~, CL+8, CL+9
>> SDJN	CA+2
>> SDMD	START+22, EXTRACT+17
SDOE	OE+5~, OE+8*, OE+10
SDOE0	OE+5~, OE+10*, OE+11, OE+13
SDOUT	START+1~, START+3, START+12, START+13, START+17, START+18, START+21, START+24, START+27, ORD+1 , ORD+2, ORD+3, OE+7, OE+8, OE+9, CA+5, CL+2, CL+3, CP+2, SCL+1 , SCL+3, SCL+4, SCP+1, SCP+7, SCP+8, STOP+1, EXTRACT+1~, EXTRACT+4*
SDP	ARRSET+4~, ARRSET+5*, ARRSET+6, ARRSET+9
>> SDPAGE	START+28*
SDPAST	START+1~, START+4*, START+10, START+12, START+20, START+23, OE+20, CA+13, CL+6, CP+6 , EXTRACT+10, EXTRACT+14, EXTRACT+18, EXTRACT+26, EXTRACT+36
>> SDPAT	CA+2
>> SDPBDT	EXTRACT+29
>> SDPEDT	EXTRACT+29
SDPNAME	CA+1~, CA+2*, CA+12
SDQUIT	OE+5~, OE+6, OE+16, OE+17, OE+18, SCL+1~, SCL+3, SCL+5, SCP+1~, SCP+7 , SCP+9
>> SDREPORT	START+27*, START+28
>> SDREPORT(	START+27, START+28, EXTRACT+3*
>> SDREPORT(4	START+7, CL+5, CP+5
>> SDREPORT(5	START+8, START+12, START+15, CA+12
SDS	ARRSET+4~, ARRSET+5*, ARRSET+6, ARRSET+9
SDSORT	START+15, START+16, OE+16, OE+17, OE+18, SORT~, SORT+7, SORT+8, SORT+9
SDSORT(	OE+17, OE+18, CL+2, CL+4, CP+4, SCL+6, SCP+11
SDSX	SORT+7~*, SORT+9
SDT	OE+5~, OE+6, OE+7, OE+8, OE+23
SDTIME	EXTRACT+1~, EXTRACT+24*, EXTRACT+32
SDX	START+20, ARRSET+4~, ARRSET+6, ARRSET+7, ARRSET+8, ARRSET+9, CA+13, CL+6, CL+7, CL+9 , CP+6, CNAME+1~, CNAME+3, CNAME+5, CNAME+7, CNAME+8, ADDL+3~, ADDL+4, ADDL+5, EXTRACT+1~ , EXTRACT+14, EXTRACT+27
SDXM	START+1~, EXTRACT+1~, EXTRACT+27, EXTRACT+35, EXTRACT+37, EXTRACT+38
SDY	EXTRACT+1~, EXTRACT+26*, EXTRACT+27
SDZ	ADDL~, ADDL+4
SORT	CA~, CA+10, CA+11
SORT(	CA+10, CA+11
U	START+19, ORD+4, OE+10, OE+11, OE+12, OE+13, OE+14, OE+15, OE+17, OE+21 , OE+22, ARRSET+6, ARRSET+9, CA+2, CA+6, CA+7, CA+11, CA+12, CL+4, CL+7 , CL+9, CP+3, CNAME+3, SCL+6, ADDL+4
X	START+1~, START+11, OE+23, SCL+5, SCP+9, EXTRACT+2~, EXTRACT+6, TIME+4~, TIME+6, TIME+7
X1	START+1~, START+11, OE+23, EXTRACT+2~, EXTRACT+6*
X2	START+1~, START+11, OE+23, EXTRACT+2~, EXTRACT+6*
XX	CA+1~, CA+2*
Y	SCL+6, SCP+10, SCP+11, VCP~, VCP+3, VCP+4, VCP+5, VCP+6, TIME+4~
Y("D"	TIME+6, TIME+8, TIME+12
Y("H"	TIME+7, TIME+9, TIME+12
Y("M"	TIME+7, TIME+10, TIME+12
Y("S"	TIME+7, TIME+11, TIME+12
>> ZTQUEUED	STOP+1
>> ZTSK	EXTRACT+33
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling