Routine: SDROUT

Package	Total	Call Graph
Scheduling	5	$$LINE^SDAMO ROUT^SDDIV (GO,GOT)^SDROUT0 (END,REP,SIN1)^SDROUT1 (DIV,DT,DTS)^SDUTL
Registration	3	IN^DGHELP ZIS^DGUTQ FIRST^VAUTOMA
VA FileMan	3	^%DT YN^DICN ^DIR

Package	Total	Caller Graph
Scheduling	2	SDOUTPUT SDROUT

Entry Points

Name	Comments	DBIA/ICR reference
R1
R2
R22
R4
RPL
A5
START
CHECK
QQ
END
CLINIC(SDIV,VAUTC)	;
CLINIC1()	; -- get clinic data ; input: VAUTD := divisions selected ; output: VAUTC := clinic selected (VAUTC=1 for all) ; return: was selection made [ 1\|yes 0\|no]
CLINICQ
CLINIC2(SDCL)	; -- generic screen for hos. loc. entries ; input: SDCL := ifn of HOSPITAL LOCATION file ; returned := [ 0 \| do not use entry ; 1 \| use entry ]
PLVAL()	; Physical Location Validation.
HELP

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "WANT (A)LL ROUTING SHEETS OR (O)NLY ADD-ONS: ONLY ADD-ONS// " Variable: X Timeout: DTIME Line Location: R2+0
Function Call: WRITE	Prompt: X Line Location: R2+0
Function Call: WRITE	Prompt: !?12,"CHOOSE FROM:",!?12,"O - To only see add-ons",!?9,"or A - To see all routing sheets" Line Location: R2+1
Function Call: WRITE	Prompt: !,"Not an exact match!" Line Location: RPL+7
Function Call: WRITE	Prompt: !,"RESPOND YES OR NO" Line Location: QQ+0
Function Call: WRITE	Prompt: !!,$$LINE^SDAMO("Clinic Selection") Line Location: CLINIC1+5
Function Call: WRITE	Prompt: !?12,"CHOOSE FROM:",!?12,"T - To see routing slips sorted in terminal digit order",!?12,"N - To see routing slips sorted in alphabetical order by name",!?12,"C - To see routing slips printed by clinic " Line Location: HELP+0
Routine Call	DIR Line Location: R22 RPL+4

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CLINIC+3
^SC - [#44]	START+2, CHECK, CLINIC2+5, PLVAL+4, PLVAL+5
^UTILITY($J	START!

Name	Field # of Occurrence
>> %	R1, R1+1, R2+1, A5, A5+1
>> %DT	RPL+10*
>> %DT("A"	RPL+10*!
%I	END!
ALL	END!
>> APDATE	START+1*
C	END!
>> DGPGM	A5+5*
>> DIC	CLINIC1+11*
>> DIC("S"	CLINIC1+10*
DIR	R22+2!, RPL+8!
DIR("?"	R22, RPL+1
DIR("??"	RPL+2*
DIR("A"	R22, RPL+3
DIR("B"	R22, RPL+4
DIR(0	R22, RPL+3
DIROUT	R22+1, R22+2!, RPL+5, RPL+8!
DIRUT	R22+1, R22+2!, RPL+5, RPL+8!
DIV	SDROUT+3*, A5+2, A5+3, CHECK, END!, CLINIC+1~
DT	RPL+10, START+1
DTIME	R2
DTOUT	R22+1, R22+2!, RPL+5, RPL+8!
>> GDATE	START+2*
I	END!
IO	START
>> K	START+2*
>> L	START+2*
ORD	END!
ORDER	R22, R4, RPL, RPL+5, RPL+6, RPL+7, RPL+8, A5+2, A5+3, CHECK+1 , END!, CLINIC+1~
>> POP	A5+1*, A5+6
>> PRDATE	START+1*
RMSEL	END!
>> SC	START+2*, CHECK, CHECK+1
SDATE	RPL+10*, START+1, START+2, CHECK, CLINIC+1~
SDCL	CLINIC2~, CLINIC2+5
SDCLIN	PLVAL+1~, PLVAL+4*, PLVAL+5
SDEF	END!
SDIQ	SDROUT+3*, END!, CLINIC+1~
SDIV	CLINIC~, CLINIC+2, CLINIC+3
SDMATCH	SDROUT+2~, PLVAL+2, PLVAL+3, PLVAL+4, PLVAL+6*, PLVAL+7
SDPLOC	PLVAL+1~, PLVAL+5*, PLVAL+6
SDPLSRT	SDROUT+2~, RPL+6*, PLVAL+3, PLVAL+6
SDREP	SDROUT+3*, A5+2, A5+3, CHECK+1, END!, CLINIC+1~
SDSP	R1+1*, END!
SDSTART	SDROUT+3*, END!, CLINIC+1~
SDX	SDROUT+3, R2+2, END!, CLINIC+1~
U	START+2, CLINIC+3
V	END!
>> VAR	A5+4*
VAUTC	SDROUT+2~, A5+2, A5+3, CHECK+1, END!, CLINIC~, CLINIC1+14!, CLINICQ
VAUTC(	CHECK+1
VAUTD	CLINIC+1~, CLINIC+2, CLINIC+3
VAUTD(	CLINIC+3*
>> VAUTNI	CLINIC1+11*
>> VAUTSTR	CLINIC1+11*
>> VAUTVB	CLINIC1+11*
X	R2, R2+2, R22+2, R4, RPL+6, END!, CLINIC2+5~*, CLINIC2+6
Y	SDROUT+3, R22+1, R22+2, RPL+5, RPL+10, START+1*, END!, CLINIC1+14
>> Z	R2+1*