Routine: SDCLAS0

Information

SDCLAS0 ;ALB/TMP - Clinic Assignment List Select and Extract ; 22 MAR 1985

Package	Total	Caller Graph
Scheduling	1	SDCLAS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do you want the report for active patients only" Line Location: SELECT+0
Function Call: WRITE	Prompt: !,"Respond (Y)es for a report of only patients with future appointments",!,"Respond (N)o for a report which also includes patients who are enrolled,",!," but have no future appointments" Line Location: SELECT+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: SELECT1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL1A+0
Function Call: WRITE	Prompt: !!,"Enter C to select and sort by clinic or S to sort and select by a stop code" Line Location: H1+0
Function Call: WRITE	Prompt: !!,"Valid responses:",!,?5,"A clinic name or abbreviation",!,?5,"A range of clinics separated by two dashes",!,?10,"(example: GEN MED--GEN MEDZ will report all clinics whose names start GEN MED)" Line Location: H2+0
Function Call: WRITE	Prompt: !,?5,"'ALL' to report all clinics",!,?5,"Hit return when done selecting clinics" Line Location: H2+1
Function Call: WRITE	Prompt: !!,"Enter a stop code or 'All' for all stop codes" Line Location: H3+0
Routine Call	DIC Line Location: LOOK LOOK1

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EXT+1, AEB, AEB2, T2
^DPT("AEB1"	AEB, AEB1
^SC - [#44]	EXT+2, S1
^SC("B"	SPLIT+1, SPLIT+2
^UTILITY($J	EXT+2, EXT+3, EXT+4, AEB, AEB1, T2+1

Name	Field # of Occurrence
^(	AEB
^(0	EXT+1, AEB2

Name	Field # of Occurrence
>> %	SELECT*, SELECT+1, SELECT+2
>> A	AEB*, AEB1
>> A1	AEB*, AEB1, AEB2, T2
>> A2	AEB1*, AEB2, T2
>> A3	AEB1*, AEB2, T2
>> DFN	EXT+1, EXT+2, T2*, T2+1
>> DIC	LOOK1*
>> DIC("S"	LOOK!, SEL1A!
>> DIC(0	LOOK1*
DTIME	SELECT1, SEL1, SEL1A
>> I	EXT+1*
II	SPLIT+2, SPLIT+3!, S1, S1+1!
SD01	SPLIT*, SPLIT+1, SPLIT+2, SPLIT+3!, S1, S1+1!
SD02	SPLIT*, SPLIT+2, SPLIT+3!, S1, S1+1!
SDACT	EXT+2, EXT+3, EXT+4, EXT+5!, AEB, AEB2
>> SDELIG	T2+1
>> SDENR	EXT+2, AEB, AEB2
>> SDFAST	SELECT+2*
SDI	SPLIT+2*, SPLIT+3!
>> SDIFN	SEL1+2, SEL1+3, SEL1A, LOOK1, EXT+1, EXT+2, EXT+3, EXT+4, AEB, AEB1
>> SDLAST	EXT, EXT+1, EXT+2
>> SDMT	T2+1
>> SDNEXT	EXT, EXT+1, EXT+2
>> SDSAV	SELECT1, SEL1, SEL1+2, SEL1+3, SEL1+4, LOOK*
>> SDSRT	SELECT1*
>> SDTS	EXT+1, AEB, AEB2
>> SDZ	SPLIT
>> SDZ(	SPLIT+1, SPLIT+2, S1*
>> SDZIP	T2+1
U	EXT*, EXT+1, EXT+2
X	SELECT1, SEL1, SEL1+1, SEL1+2, SEL1+3, SEL1+4, SEL1A, OUT, AEB2, SPLIT+1* , SPLIT+2*, SPLIT+3!
Y	LOOK, LOOK1, EXT+5!
Y(0	EXT+2, T2*, T2+1
Y(1	EXT+2, T2*