Routine: SDN

Call Graph Total: 24

Package	Total	Call Graph
Scheduling	10	$$STATUS^SDAM1 ($$FIND,$$INP)^SDAM2 ($$HANDLE,BEFORE,NOSHOW)^SDAMEVT NOSHOW^SDCNSLT NSLET1^SDDIV $$CHK^SDM1A (END,START)^SDN0 NS^SDN2 DIS^SDNDIS DIV^SDUTL
VA Fileman	6	^%DT NOW^%DTC ^DIC YN^DICN $$GET1^DIQ ^DIR
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$UP^XLFSTR
Registration	3	LO^DGUTL $$BADADR^DGUTL3 $$FTIME^VALM1
IHS Changes To ADT	1	$$READ^BDGF

Package

Total

Call Graph

$$STATUS^SDAM1 ($$FIND,$$INP)^SDAM2 ($$HANDLE,BEFORE,NOSHOW)^SDAMEVT NOSHOW^SDCNSLT NSLET1^SDDIV $$CHK^SDM1A (END,START)^SDN0 NS^SDN2
DIS^SDNDIS DIV^SDUTL

VA Fileman

^%DT NOW^%DTC ^DIC YN^DICN $$GET1^DIQ ^DIR

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$UP^XLFSTR

Registration

LO^DGUTL $$BADADR^DGUTL3 $$FTIME^VALM1

IHS Changes To ADT

$$READ^BDGF

Package	Total	Caller Graph
Scheduling	3	SD IHS NO-SHOWS SDAMN SDNOSHOW
IHS View Patient Record	1	BVPSD

Package

Total

Caller Graph

Scheduling

SD IHS NO-SHOWS SDAMN SDNOSHOW

IHS View Patient Record

BVPSD

Entry Points

External References

Name	Field # of Occurrence
^%DT	7
NOW^%DTC	SDN+9
^%ZIS	AOR+4
^%ZISC	AOR+8
^%ZTLOAD	AOR+7
$$READ^BDGF	RD2+3
LO^DGUTL	SDN+9
$$BADADR^DGUTL3	ASKL+3
^DIC	71+1, 72+2, RD1+2
YN^DICN	ALNS, ASKA, ASKL+1
$$GET1^DIQ	RD2+3
^DIR	ASKL+7
$$STATUS^SDAM1	EN1+9, ALNS+8, SDMLT+4
$$FIND^SDAM2	EN1+3, ALNS+4
$$INP^SDAM2	ALNS+6
$$HANDLE^SDAMEVT	EN1+3, ALNS+4
BEFORE^SDAMEVT	EN1+4, ALNS+5
NOSHOW^SDAMEVT	EVT+2
NOSHOW^SDCNSLT	EVT+5
NSLET1^SDDIV	SDN+11
$$CHK^SDM1A	ALNS+8
END^SDN0	SDN+11, 73+1, ASKL+8, AOR, AOR+4, AOR+5, AOR+8
START^SDN0	AOR+8
NS^SDN2	EN1+1
DIS^SDNDIS	ASKL+8, AOR, AOR+1
DIV^SDUTL	SDN+11
$$FTIME^VALM1	SDMLT+5
$$UP^XLFSTR	RD1+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "NO-SHOWS FOR WHAT DATE: " Formatting: !! Timeout: DTIME Variable: X Line Location: 7+0
Function Call: WRITE	Prompt: ! Line Location: 71+0
Function Call: WRITE	Prompt: W Condition for execution: $P(^DPT(+DFN,"S",I,0),U,2)'["A" !,*7," ALREADY RECORDED AS NO-SHOW..." W " WANT TO ERASE" D YN^DICN I '% Line Location: ALNS+0
Function Call: WRITE	Prompt: !,"RESPOND YES OR NO" Line Location: ALNS+0
Function Call: WRITE	Prompt: "...NO LONGER A NO-SHOW!" Line Location: ALNS+3
Function Call: WRITE	Prompt: !,"RESPOND YES (Y) OR NO (N)" Line Location: ASKA+0
Function Call: WRITE	Prompt: !,"RESPOND YES (Y) OR NO (N)" Line Location: ASKL+0
Function Call: WRITE	Prompt: !,"RESPOND YES (Y) OR NO (N)" Line Location: ASKL+1
Function Call: WRITE	Prompt: 7,!,"* THIS PATIENT HAS BEEN FLAGGED WITH A BAD ADDRESS INDICATOR, NO LETTER" Line Location: ASKL+4
Function Call: WRITE	Prompt: !,"WILL BE PRINTED." Line Location: ASKL+5
Function Call: READ	Prompt: "FOR CLINIC: ALL// " Formatting: !! Timeout: DTIME Variable: X Line Location: RD1+1
Function Call: WRITE	Prompt: !,?3,"ENTER A CLINIC NAME, OR 'ALL' FOR ALL CLINICS" Line Location: RD1+1
Function Call: WRITE	Prompt: !,$P(^SC(C,0),"^")_SDMSG Line Location: RD2+0
Function Call: WRITE	Prompt: !,$P(^SC(C,0),"^")_SDMSG Line Location: RD2+1
Function Call: WRITE	Prompt: @IOF Line Location: AOR+5
Function Call: WRITE	Prompt: @IOF Line Location: AOR+8
Function Call: READ	Prompt: "SELECT APPOINTMENT: " Formatting: !! Timeout: DTIME Variable: SDCT Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Please enter one number to indicate which appointment." Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Routine Call	DIC Line Location: 71+1 72+2 RD1+2
Routine Call	DIR Line Location: ASKL+7
Routine Call	%ZIS Line Location: AOR+4

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^VA(407.5 - [#407.5]	GET1^DIQ
^SC - [#44]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	SDN+11
^DPT - [#2]	EN1+1, EN1+6, EN1+9, EN1+11, ALNS, ALNS+2, ALNS+7, ALNS+8*, CK1, SDMLT+4
^SC - [#44]	RD2, RD2+1, RD2+2, EVT+4
^UTILITY($J	SDN+9!, EN1+8, ALNS+10!

Name	Line Occurrences
7	7
71	72+2
72	72+2, EN1+1, EN1+2, ALNS+2, ALNS+11
73	71+1
ALNS	ALNS
AOR	RD1+1
ASK	ASK
ASKA	73+1, ASKA
ASKL	ASKL+1
CK1	CK1+2
EVT	EN1+10, ALNS+9
NSLTR	AOR+5, AOR+8
RD1	RD1+1, RD1+2
RD2	RD1
SDMLT	72+2

Name	Field # of Occurrence
^(	EN1+8*
^("LTR"	RD2+1, RD2+2
^(0	EN1+6, ALNS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	SDN+9, ALNS, ALNS+2, ALNS+3, ASKA, ASKA+1, ASKA+2, ASKL+1*, ASKL+2
>> %DT	7*
>> %DT(0	7*
>> %ZIS	AOR+4*
>> ALS	ASKL+2, ASKL+3, ASKL+6, ASKL+8, ASKL+9, RD2, RD2+1, RD2+4*, AOR, NSLTR , NSLTR+1
>> ANS	ASKA+1*, ASKL+8, AOR, NSLTR
>> AUTO	EVT+5
BSDALS	ASKL+9~*, RD2+3
>> BSDLET	RD2+3*, RD2+4
C	RD1+1!, RD2, RD2+1, RD2+2, AOR
CN	EVT+1~, EVT+4*, EVT+5
CNPAT	EVT+1~, EVT+4*, EVT+5
CNSTLNK	EVT+1~, EVT+4*, EVT+5
>> DATEND	ASKA+1*
>> DFN	72+2*, EN1+1, EN1+3, EN1+4, EN1+6, EN1+8, EN1+9, EN1+11, ALNS, ALNS+2 , ALNS+4, ALNS+5, ALNS+6, ALNS+8, ASKL+3, SDMLT+4, EVT+2, EVT+4
DIC	SDN+11, 71!, 72, RD1+1!, RD1+2
DIC("A"	71*, 71+1!
DIC("S"	71, 71+1!, 72, 72+2!, RD1+2*!
DIC(0	SDN+11, 71, 72, RD1+2
>> DIR(0	ASKL+7*!
>> DIV	SDN+11
DT	SDN+11, 7
DTIME	7, RD1+1, ASK
>> DTOUT	ASKA, ASKA+1, ASKL+1, ASKL+2
DUZ	EN1+6
I	72+2, EN1+1, EN1+3, EN1+4, EN1+5, EN1+6, EN1+8, EN1+9, EN1+11, ALNS , ALNS+2, ALNS+4, ALNS+5, ALNS+6, CK1, CK1+1, EVT+1~
IO	AOR+5, AOR+8
IO("Q"	AOR+4!, AOR+5
IO(0	AOR+5, AOR+8
IOF	AOR+5, AOR+8
NSDA	NSLTR!, NSLTR+1!, EVT+5
NSDIE	NSLTR!, NSLTR+1!, EVT+5
>> POP	CK1, CK1+1, AOR+4
>> SC	71, 71+1, EN1+3, EN1+4, EN1+8, EN1+9, ALNS+4, ALNS+5, ALNS+8, ALNS+10 , RD1, SDMLT+4, EVT+2, EVT+4, EVT+5
SD1	71+1, 72, 72+1, CK1*, EVT+1~
SD2	71+1*, CK1, CK1+1, EVT+1~
SDATA	SDN+8~, EN1+4, EN1+10!, ALNS+5, ALNS+9!, EVT+2
SDCNT	SDMLT+1~, SDMLT+2*, SDMLT+6, ASK
SDCP	SDN+9!
SDCT	72+2, SDMLT+2, SDMLT+3, SDMLT+4, SDMLT+5, SDMLT+6, ASK, EVT+1~
SDDA	EN1+3~, EN1+4, EN1+9, ALNS+4~, ALNS+5, ALNS+8, EVT+2
>> SDDT	SDN+11*
SDDTM	EN1+4, EN1+5, ALNS+5, ALNS+6, ALNS+7, ALNS+8, ALNS+10!, EVT+2, EVT+4, EVT+5
>> SDED	ASKA+1*
SDINP	ALNS+6*, ALNS+7, ALNS+8, ALNS+10!, EVT+1~
>> SDLET	ASKL+1, RD2+2, RD2+3
SDLT	SDN+9!, SDN+11*!
>> SDLT1	SDN+9*
SDMSG	71+1*, RD2, RD2+1, EVT+1~
>> SDNSACT	72, ASKA+2*, ASKL+3, RD1
SDNSHDL	EN1+3~, EN1+4, ALNS+4~, ALNS+5, EVT+2
SDSTAT	EN1+1, EN1+2, EN1+8, SDMLT+1~, SDMLT+4, SDMLT+5, ASK, EVT+1~
SDT	7, 71+1, 72, 72+1!, ASKA+1, EVT+1~
SDT(	72+2, SDMLT+3, SDMLT+4, SDMLT+5, ASK
SDTIME	SDN+9, EN1+6, ALNS+2, EVT+1~
>> SDV1	SDN+11*
SDYES	7, EN1+7, ALNS+2*, 73+1, EVT+1~
SM	7+2*, 72, CK1, EVT+1~
SM1	7+4*, 72+2, EVT+1~
U	SDN+9*, 7, EN1+1, EN1+6, EN1+11, ALNS, ALNS+2, ALNS+7, ALNS+8, CK1 , ASK, EVT+4
>> X	7, 72+2, ALNS+6, RD1+1*
Y	SDN+11, 7, 71+1, 72+2, ALNS+6, ALNS+7, ALNS+10, CK1, RD1, RD1+2 , RD2, EVT+1~
>> ZTRTN	AOR+6*
ZTS	AOR+6*, AOR+7!
>> ZTSAVE(	AOR+6*

Customize PDF page

Package: Scheduling

Routine: SDN

Information

Source Information

Call Graph

Call Graph Total: 24

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
NSLTR
RD1
7
RD2
SDMLT	;
ASKA
EN1	; -- entry pt for protocol action
73	;
72
71
ASKL	;S %=1,DTOUT=0,SDLET="" W !,"WANT LETTERS PRINTED NOW" D YN^DICN I '% W !,"RESPOND YES (Y) OR NO (N)" G ASKL ;IHS/ANMC/LJF 12/13/2000
ASK
CK1
EVT	; -- separate tag if need to NEW vars
ALNS
AOR