Routine: SDLTP

Package	Total	Call Graph
Registration	3	(CLOSE,ZIS)^DGUTQ KVA^VADPT PATIENT^VAUTOMA
Scheduling	2	(NCLINIC,NCOUNT)^SDAL0 DATE^SDUTL
VA Fileman	2	^DIC YN^DICN
IHS Changes To Scheduling	1	$$INACTMSG^BSDU
IHS Patient	1	KILL^AUPNPAT

Package

Total

Call Graph

Registration

(CLOSE,ZIS)^DGUTQ KVA^VADPT PATIENT^VAUTOMA

Scheduling

(NCLINIC,NCOUNT)^SDAL0 DATE^SDUTL

VA Fileman

^DIC YN^DICN

IHS Changes To Scheduling

$$INACTMSG^BSDU

IHS Patient

KILL^AUPNPAT

Package	Total	Caller Graph
Scheduling	3	SD IHS PR LETTERS SDOUTPUT SDPRLETTERS
IHS Changes To Scheduling	1	BSDROUT

Package

Total

Caller Graph

Scheduling

SD IHS PR LETTERS SDOUTPUT SDPRLETTERS

IHS Changes To Scheduling

BSDROUT

Entry Points

Name	Field # of Occurrence
KILL^AUPNPAT	EXIT+1
$$INACTMSG^BSDU	EXASK
CLOSE^DGUTQ	EXIT+2
ZIS^DGUTQ	QUE+2
^DIC	R, R2, HELP, EXASK+1
YN^DICN	R1, EX, IND
NCLINIC^SDAL0	L0+3
NCOUNT^SDAL0	L0+2
DATE^SDUTL	DATE+3
KVA^VADPT	EXIT+1
PATIENT^VAUTOMA	PAT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: to Line Location: SDLTP+4
Function Call: READ	Prompt: ! Timeout: '% Variable: "PRINT LETTER ASSIGNED TO THE CLINIC(S)" S %=1 D YN^DICN G Line Location: R1+0
Function Call: READ	Timeout: %Y="^"!($D(DTOUT)) Variable: I VAUTC D EX G Line Location: L0+3
Function Call: WRITE	Prompt: !,"LETTER TYPE MUST EXIST IN LETTERS TYPE FILE!" Line Location: HELP+0
Function Call: WRITE	Prompt: !,"If you want to print another letter for the selected clinic(s), you must answer",!,"""N"""_" and select another letter of the appropriate type. If you do this, that ",!,"letter will print for (ALL) the selected clinic(s)." Line Location: HELP1+0
Function Call: READ	Prompt: "Enter 'P' for individual PATIENT letters or 'C' for letters by CLINIC: P// " Formatting: ! Timeout: DTIME Variable: S1 Line Location: PC+0
Function Call: WRITE	Prompt: "??" Line Location: PC+0
Function Call: WRITE	Prompt: !,"Entering 'P' will allow you to select PATIENT(S) and entering a 'C' will allow",!,"you to select CLINIC(S)." Line Location: HELP2+0
Function Call: WRITE	Prompt: !,"RESPOND YES OR NO" Line Location: EX+0
Function Call: WRITE	Prompt: !,*7,"THIS CLINIC HAS ALREADY BEEN SELECTED!" Line Location: EXASK+1
Function Call: WRITE	Prompt: !,*7,"NO MORE THAN TEN CLINICS ALLOWED TO BE EXCLUDED" Line Location: MAX+0
Function Call: WRITE	Prompt: !!,"If the clinic was cancelled for any length of time respond 'Y'.",!,"If individual appointments were cancelled without cancelling the clinic respond 'N'",! Line Location: HLP3+0
Function Call: WRITE	Prompt: !,"CLINIC CANCELLATION LETTERS will be selectable with 'C' response.",! Line Location: HLP3+1
Routine Call	DIC Line Location: R R2 HELP EXASK+1

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIV, DIV+1
^DG(43 - [#43]	DIV
^TMP($J	EXIT+2!
^UTILITY("SDLT"	EXIT+2!
^UTILITY($J	EXIT+2!

Name	Line Occurrences
@(	DIV, QUE+3
DATE	L0+1
DIV	R1
EX	L0+3, EX
EXASK	EXASK+1, EXASK+2
EXIT	R, R1, R2, DATE+3, QUE+2
HELP1	R1
HELP2	PC
HLP3	IND
IND	L0, IND
PAT	L0+1
PC	L0+1, PC
R	DIV, L0, L0+1, L0+2, L0+3, HELP
R1	HELP1

Name	Field # of Occurrence
^("GL"	DIV
^("LTR"	DIV+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	R1, L0, EXIT!, EX, EX+1, IND*, IND+1
%Y	L0+3, EXIT!
A2	EXIT!
BEGDATE	EXIT!
C	EXIT!
DA	R!
DGPGM	QUE*, EXIT!
DGVAR	QUE, QUE+1, EXIT!
DIC	R!, R2!, DIV!, EXIT!, HELP, EXASK+1*
DIC("A"	R, EXASK+1!
DIC("S"	R, R2, HELP!, EXASK+1*!
DIC("W"	EXASK*
DIC(0	R, R2, DIV, EXASK+1
DIV	EXIT!
DIW	EXIT!
DIWF	EXIT!
DIWL	EXIT!
DIWR	EXIT!
DIWT	EXIT!
DTIME	PC
>> DTOUT	L0, L0+3
ENDATE	EXIT!
ENDDATE	EXIT!
IO	QUE+3
L	EXIT!
L0	R*, R2, DIV, L0, L0+1, L0+2, DATE+2, DATE+3, EXIT!
L2	DATE+3*, QUE, QUE+1, QUE+3, EXIT!
LL	EXIT!
POP	DATE+3, QUE+2, EXIT!
S1	L0+1, QUE+1, EXIT!, PC*
SC	EXIT!
SD9	R, L0+1, DATE+3, EXIT!, IND, IND+1*
SDADD	EXIT!
SDARRAY	EXIT!
SDBD	DATE+3, EXIT!
SDC	EXIT!
SDCL	EXIT!
SDCNT	EXIT!, EX, EXASK+2
SDCONC	L0+2*, EXIT!
SDD	EXIT!
SDDAT	EXIT!
SDED	DATE+3*, EXIT!
SDFORM	DIV+1*, EXIT!
SDHX	EXIT!
SDIV	EXIT!
SDLET	R1, R2, DIV, EXIT!
SDLT	R*, EXIT!
SDLT1	DIV*, EXIT!
SDMDT	EXIT!
SDT0	EXIT!
SDT00	DATE+2*, EXIT+1!
SDTADB	EXIT!
SDTADE	EXIT!
SDTIME	DIV+1*, EXIT!
SDV	EXIT!
SDV1	DIV*, DIV+1, EXIT!
SDVAUTC	QUE+1, EXIT+2!, EX+1!
SDVAUTC(	EXASK+1, EXASK+2*
SDX	EXIT!
SDX1	EXIT+2!
U	L0+2
VAUTC	L0+3, QUE, EXIT+2!
VAUTD	DIV+1*, EXIT+2!
VAUTD(	DIV+1*
VAUTN	QUE, EXIT+2!
>> VAUTNALL	QUE, PAT*
VAUTNI	L0+1, EXIT+2!, PAT
W	EXIT+2!
X	R2!, DIV!, L0+3, DATE+3, EXIT+2!, EXASK+1
XX	EXIT+2!
Y	R, R2!, DIV!, L0+1, L0+3, EXIT+2!, EXASK+1, EXASK+2
Y(0	R
Z0	EXIT+2!
Z5	EXIT+2!

Customize PDF page

Package: Scheduling

Routine: SDLTP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: