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

Call Graph

Scheduling

(FUT,GO,HED2,TM)^SDROUT0 (HD,HED,SCCOND)^SDROUT2 (DT,DTS)^SDUTL

VA Fileman

^%DT NOW^%DTC ^DIC

Registration

(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

Package

Total

Caller Graph

IHS Changes To Scheduling

ASDAIU1 ASDCR ASDHS ASDHS1 ASDI ASDM ASDROUT0 BSDROUT
BSDROUT1

Scheduling

SDAMWI1 SDROUT SDROUT0

Clinical Scheduling for Windows

BSDX42 BSDX43

Automated Information Collection System

IBDFN3

Entry Points

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

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

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

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

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:

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