Routine: BSDLTP

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
IHS Changes To Scheduling	1	BSDWLE

Package

Total

Caller Graph

IHS Changes To Scheduling

BSDWLE

Entry Points

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: to Line Location: BSDLTP+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<0,DATE Variable: I "Pp"[S1 D PAT G R Line Location: L0+2
Function Call: READ	Timeout: %Y="^"!($D(DTOUT)) Variable: I VAUTC D EX G Line Location: L0+4
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+2
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+2

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

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

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
%DT	DATE+3~
%Y	L0+4, EXIT!
A2	EXIT!
BEGDATE	EXIT!
C	EXIT!
DA	R!
DGPGM	QUE*, EXIT!
DGVAR	QUE, QUE+1, EXIT!
DIC	R!, R2!, DIV!, EXIT!, HELP, EXASK+2*
DIC("A"	R, EXASK+2!
DIC("S"	R, R2, HELP!, EXASK+2*!
DIC("W"	EXASK+1*
DIC(0	R, R2, DIV, EXASK+2
DIV	EXIT!
DIW	EXIT!
DIWF	EXIT!
DIWL	EXIT!
DIWR	EXIT!
DIWT	EXIT!
DTIME	PC
>> DTOUT	L0, L0+4
ENDATE	EXIT!
ENDDATE	EXIT!
IO	QUE+3
L	EXIT!
L0	MAIN~, MAIN+1, R, R1+1, R2, DIV, L0, L0+1, L0+2, L0+3 , DATE+2, DATE+3, EXIT!
L2	DATE+3*, QUE, QUE+1, QUE+3, EXIT!
LL	EXIT!
POP	DATE+3, QUE+2, EXIT!
S1	L0+2, QUE+1, EXIT!, PC*
SC	EXIT!
SD9	R, L0+2, DATE+3, EXIT!, IND, IND+1*
SDADD	EXIT!
SDARRAY	EXIT!
SDBD	DATE+3, EXIT!
SDC	EXIT!
SDCL	EXIT!
SDCNT	EXIT!, EX, EXASK+3
SDCONC	L0+3*, 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+2, EXASK+3*
SDX	EXIT!
SDX1	EXIT+2!
U	L0+3
VAUTC	L0+4, QUE, EXIT+2!
VAUTD	DIV+1*, EXIT+2!
VAUTD(	DIV+1*
VAUTN	QUE, EXIT+2!
>> VAUTNALL	QUE, PAT*
VAUTNI	L0+2, EXIT+2!, PAT
W	EXIT+2!
X	R2!, DIV!, L0+4, DATE+3, EXIT+2!, EXASK+2
XX	EXIT+2!
Y	R, R2!, DIV!, L0+2, L0+4, EXIT+2!, EXASK+2, EXASK+3
Y(0	R
Z0	EXIT+2!
Z5	EXIT+2!

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDLTP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HELP2
PAT
R1
R2
MAX
EXASK	;
HLP3
PC
R
QUE
EX
L0
HELP1
DATE	;N %DT D DATE^SDUTL G:POP&('$D(SDBD)) EXIT G:POP&(X="^") EXIT S:'$D(SDED) SDED=SDBD S L2=$S(L0="C"&('SD9):"BEG1^SDC0",L0="N":"BC^SDN1",L0="P":"^SDL1",1:"^SDCNL")
EXIT
DIV
SEL	;-- select the entries on the list manager screen to print
IND
MAIN(L0)	;-- pass i letter type
HELP