Routine: SDCLDOW

Package	Total	Caller Graph
Scheduling	3	SD IHS DAY OF WEEK SDCLINLIST SDOUTPUT

Entry Points

Name	Comments	DBIA/ICR reference
SET
END
PRT
START
SEEND
TOF	;W @IOF,!!,?2,"FACILITY: ",$P(^DG(40.8,+SDIV,0),"^",1),!,?2,"CLINIC LIST BY DAY OF WEEK AS OF " S Y=DT D DT^DIQ S SDPG=SDPG+1 W ?(IOM-10),"PAGE: ",SDPG ;IHS/ANMC/LJF 10/4/2000
CHECK

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"\|",NAME Line Location: PRT+1
Function Call: WRITE	Prompt: ?37,"\|" Line Location: PRT+1
Function Call: WRITE	Prompt: ?SDOS,"",DOW(M),"" Condition for execution: $D(DOW(M)) Line Location: PRT+1
Function Call: WRITE	Prompt: ?SDOS,"\|" Line Location: PRT+1
Function Call: WRITE	Prompt: ! Line Location: PRT+2
Function Call: WRITE	Prompt: LINE1 Line Location: PRT+2
Function Call: READ	Prompt: "Press return to continue or ""^"" to escape " Formatting: ! Timeout: DTIME Variable: CXEND Line Location: SEEND+0
Function Call: WRITE	Prompt: ?(IOM-10),"PAGE: ",SDPG Line Location: TOF+0
Function Call: WRITE	Prompt: @IOF,!,?2,"FACILITY: ",$P(^DG(40.8,+SDIV,0),"^",1),!,?2,"CLINIC LIST BY DAY OF WEEK AS OF " Line Location: TOF+1
Function Call: WRITE	Prompt: ?(IOM-10),"PAGE: ",SDPG Line Location: TOF+1
Function Call: WRITE	Prompt: !!,?3,"C = CLINIC CURRENTLY MEETS ON THIS DAY",!,?3,"F = CLINIC WILL MEET IN THE FUTURE ON THIS DAY",!! Line Location: TOF+2
Function Call: WRITE	Prompt: !,"CLINIC:",?37,"\| SUN \| MON \| TUE \| WED \| THU \| FRI \| SAT \|" Line Location: TOF+3
Function Call: WRITE	Prompt: !,I Line Location: TOF+4

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	SDCLDOW+10, TOF+1
^SC - [#44]	SET, SET+1, SET+2, SET+3, CHECK
^SC("B"	START+4, START+7

Name	Field # of Occurrence
^(	SET+2
^(1	SET+2, SET+3

Name	Field # of Occurrence
BSDQ	SDCLDOW+8!
>> CXEND	SEEND*
>> DIV	SDCLDOW+8, SDCLDOW+10, START+1, CHECK
DOW	END!, SET+1!, PRT+1, PRT+2
DOW(	SET+1, SET+2, SET+3*, PRT+1
DT	SDCLDOW+5, SET+1, SET+2, SET+3, TOF+1
DTIME	SDCLDOW+5*, SEEND
DUZ(2	SDCLDOW+10
END	START, START+4, END!, PRT, SEEND
I	END!, TOF+4*
IO	START
IOF	TOF+1
IOSL	PRT
IOST	PRT
L	END!, SET+1, SET+2
LINE1	START+1*, END!, PRT+2
M	END!, SET+2, SET+3, PRT+1*
NAME	END!, SET*, PRT+1
PGM	SDCLDOW+12*, END!
POP	SDCLDOW+14, END!
SC	START+5, START+7, END!, SET, SET+1, SET+2, SET+3, CHECK
SCN	START+3, START+4, START+6, START+7, END!
SDALL	END!
SDCL	END!
>> SDIV	START+1*, TOF+1
SDOS	END!, PRT+1*!
SDPG	START*, END!
>> VAR	SDCLDOW+12*
>> VAUTC	START+6
>> VAUTC(	START+6
X	END!, SET+1, SET+3
Y	END!, SET+1, SET+3, TOF+1*