Routine: SDROUT1

Package	Total	Call Graph
Scheduling	3	(FUT,GO,HED2,TM)^SDROUT0 (HD,HED,SCCOND)^SDROUT2 (DT,DTS)^SDUTL
VA Fileman	3	^%DT NOW^%DTC ^DIC
Registration	2	(CLOSE,ZIS)^DGUTQ $$SITE^VASITE

Package	Total	Caller Graph
IHS Changes To Scheduling	9	ASDAIU1 ASDCR ASDHS ASDHS1 ASDI ASDM ASDROUT0 BSDROUT BSDROUT1
Scheduling	3	SDAMWI1 SDROUT SDROUT0
Clinical Scheduling for Windows	2	BSDX42 BSDX43
Automated Information Collection System	1	IBDFN3

Entry Points

Name	Comments	DBIA/ICR reference
END1
NOCA
ALL
EN
END
HELP
REP
OSET	;
AO
SIN1
EN1	; -- main entry point ; required input: as defined in VAR above ; optional input: ; SDPARMS("START") := start date for appts ; ("DO NOT CLOSE") := [1 or 0] if 1 then device will stay open	ICR #405 Status: Retired Usage: Controlled Subscription
SC
GOT
DQ
SIN
NOAP
LIN2

External References

Name	Field # of Occurrence
^%DT	REP
NOW^%DTC	END1
CLOSE^DGUTQ	END+4
ZIS^DGUTQ	EN+1
^DIC	SIN
FUT^SDROUT0	NOCA
GO^SDROUT0	EN1+12
HED2^SDROUT0	NOAP
TM^SDROUT0	LIN2
HD^SDROUT2	NOCA, NOAP
HED^SDROUT2	NOCA, NOAP
SCCOND^SDROUT2	NOCA, NOAP
DT^SDUTL	SIN+1
DTS^SDUTL	LIN2, EN1+6, EN1+10, NOAP+1, GOT
$$SITE^VASITE	END1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,Y,?11,$J(X,8),?20,$S(SDI=3:"LAB",SDI=4:"XRAY",1:"EKG") Line Location: LIN2+0
Function Call: WRITE	Prompt: !,"PATIENT NOT FOUND" Line Location: SIN+0
Function Call: WRITE	Prompt: !!! Line Location: NOCA+0
Function Call: WRITE	Prompt: !,@IOF Line Location: NOCA+0
Function Call: WRITE	Prompt: !!! Line Location: NOAP+0
Function Call: WRITE	Prompt: !!,"DATE PRINTED : ",Y,!,"DATE REPRINTED: ",PRDATE Line Location: NOAP+1
Function Call: WRITE	Prompt: !!,"DATE PRINTED: ",PRDATE Line Location: NOAP+2
Function Call: WRITE	Prompt: !,@IOF Line Location: NOAP+3
Function Call: WRITE	Prompt: !!?2,"***FACILITY: ",$S($D(^DG(40.8,+DIV,0)):$P(^(0),"^",1),1:$P($$SITE^VASITE,U,2)),?48," PRINTED: " Line Location: END1+0
Function Call: WRITE	Prompt: Y Line Location: END1+0
Function Call: WRITE	Prompt: !!!?25,"ROUTING SLIPS PRINTED FOR ",!?32 Line Location: END1+1
Function Call: WRITE	Prompt: Y,!!!!?20,"TOTAL NUMBER OF ROUTING SLIPS PRINTED: ",SDCNT Line Location: END1+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ALL+0
Function Call: WRITE	Prompt: !,"ENTER ",$S(ORDER=1:"TERMINAL DIGIT",ORDER=2:"CLINIC NAME",ORDER=3:"PHYSICAL LOCATION",1:"PATIENT NAME")," TO BEGIN REPRINT FROM: " Line Location: ALL+0
Function Call: WRITE	Prompt: !,*7,"MUST BE 4 NUMERICS" Line Location: ALL+2
Function Call: WRITE	Prompt: !!,"THE REPRINT WILL BEGIN PRINTING AT THE ",$S(ORDER=1:"TERMINAL DIGIT",ORDER=2:"CLINIC NAME",ORDER=3:"PHYSICAL LOCATION",1:"PATIENT NAME")," YOU SPECIFY",! Line Location: HELP+0
Function Call: WRITE	Prompt: "TERMINAL DIGITS MUST BE ENTERED IN TERMINAL DIGIT ORDER",!,"I.E., LAST TWO DIGITS OF SSN PRECEDING THE SIXTH AND SEVENTH DIGITS",! Line Location: HELP+1
Routine Call	DIC Line Location: SIN

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	END1, END1+1
^DG(40.8 - [#40.8]	END1
^DIC(8 - [#8]	SC, SC+1
^DPT - [#2]	AO, LIN2, EN1+6, EN1+8, EN1+9, EN1+11, GOT, SC
^SC - [#44]	SC+1
^UTILITY($J	OSET+1, OSET+2, OSET+3, EN1+6!, GOT

Label References

Name	Line Occurrences
ALL	REP, ALL, ALL+2
AO	GOT
EN1	DQ
END	SIN, EN+1, NOCA, NOAP+3
END1	END
GOT	EN1+11
HELP	ALL
NOAP	EN1+8
NOCA	EN1+9, EN1+12
OSET	AO
SC	GOT
SIN	SIN

Naked Globals

Name	Field # of Occurrence
^(	EN1+11, SC+1
^(0	AO, LIN2, EN1+11, SC, SC+1, END1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+2!, END1
%DT	END+2!, REP*
%DT("A"	REP*!
%I	END+2!
A	END+3!
ADDR	END+2!
ALL	END+2!
APDATE	EN1+6, EN1+10, GOT*, END+2!
C	END+3!
DFN	AO, OSET+1, OSET+2, OSET+3, SIN+1*, EN1+6, EN1+8, EN1+9, EN1+11, GOT , SC, SC+1, END+2!
DGMT	END+2!
>> DGPGM	EN*
DIC	SIN*, END+2!
DIC(0	SIN*
DIV	END+2!, END1
DT	SIN+1, EN1+6, EN1+7, EN1+10
DTIME	ALL
G	END+2!
GDATE	AO, AO+1, OSET+1, OSET+2, OSET+3, EN1+6, EN1+11, GOT, SC+1, END+2!
H	END+2!
HGDT	AO*, AO+1!
I	END+2!
IO	EN1+6
IOF	NOCA, NOAP+3
IOSL	LIN2
J	LIN2, EN1+6*, END+2!
K	END+2!
L	END+2!
LL	END+2!
M	LIN2, LIN2+1, SC+1*, END+2!
NAME	OSET+1, EN1+6, GOT, END+2!
NDATE	EN1+9*, END+2!
ORD	END+2!
ORDER	OSET+1, OSET+2, SIN1, EN1+6, END+2!, ALL, ALL+2, HELP
P	EN1+6*, END+2!
POP	EN+1, END+2!, REP, ALL+1
PRDATE	EN1+6*, NOAP+1, NOAP+2, END+2!
SC	AO, AO+1, OSET+1, OSET+2, OSET+3, GOT*, SC+1, END+3!
SCN	END+3!
SD	END+3!
SDA	EN1+11!, EN1+12, GOT*, END+3!
SDATE	EN1+7*, EN1+9, EN1+11, GOT, END+3!, END1+1
SDCNT	SIN1*, END, END+3!, END1+1
SDEF	END+3!
SDHSC	AO*, AO+1!
SDI	AO, LIN2, LIN2+1!, END+3!
SDI1	END+3!
SDIQ	SIN, EN1+6*, END+3!
SDM	LIN2*, LIN2+1!, END+3!
>> SDPARMS("DO N	OT CLOSE" , END+1, END+4
>> SDPARMS("START"	EN1+7
SDREP	EN1+6, NOAP+1, END+3!, REP
SDSCCOND	NOCA, NOAP, END+3!
SDSP	END+3!
SDSTART	EN1+6, NOAP+1, END+3!, REP+1, ALL+3*
SDTD	END+3!
SDVA	END+3!
SDX	EN1+6*, NOAP+1, END+3!, REP
SDX1	END+3!
SSN	END+3!
SZ	END+3!
TDO	OSET+2, END+3!
U	END1
V	GOT, SC, SC+1, END+3!
VAR	EN*, END+3!
X	LIN2, SIN, END+3!, ALL, ALL+1, ALL+2, ALL+3
X1	END+3!
Y	LIN2, SIN, SIN+1, EN1+6, EN1+10, NOAP+1, GOT, END+3!, END1, END1+1* , REP, REP+1
ZIP	END+3!
>> ZTREQ	DQ*
ZX	END+3!

Customize PDF page

Package: Scheduling

Routine: SDROUT1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: