Routine: SDROUT

Information

SDROUT ;BSN/GRR - ROUTING SLIPS ; 26 APR 84 11:26 am

Source Information

Source file <SDROUT.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Scheduling	5	$$LINE^SDAMO ROUT^SDDIV GO^SDROUT0 (END,REP)^SDROUT1 (DIV,DT,DTS)^SDUTL
IHS Changes To Scheduling	4	(ASK,ONE)^BSDROUT FIND^BSDROUT0 PRINT^BSDROUT1 CRLOOP^BSDROUT2
VA Fileman	4	^%DT YN^DICN $$GET1^DIQ ^DIR
Registration	3	IN^DGHELP ZIS^DGUTQ FIRST^VAUTOMA

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Scheduling	3	SD IHS ROUTING SLIPS SDOUTPUT SDROUT
IHS Changes To Scheduling	2	ASDCR BSDROUT
Clinical Scheduling for Windows	1	BSDX42

Entry Points

External References

Name	Field # of Occurrence
^%DT	RPL+10
ASK^BSDROUT	R2+12
ONE^BSDROUT	R1+2
FIND^BSDROUT0	START+12
PRINT^BSDROUT1	START+14
CRLOOP^BSDROUT2	START+13
IN^DGHELP	R2+9
ZIS^DGUTQ	A5+6
YN^DICN	R1, A5
$$GET1^DIQ	R2+3
^DIR	R2+7, R22, RPL+4
$$LINE^SDAMO	CLINIC1+5
ROUT^SDDIV	SDROUT+14
GO^SDROUT0	START+17
END^SDROUT1	A5+6
REP^SDROUT1	A5+1
DIV^SDUTL	SDROUT+14
DT^SDUTL	RPL+10
DTS^SDUTL	START+3
FIRST^VAUTOMA	CLINIC1+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: X Line Location: R2+0
Function Call: WRITE	Prompt: X Line Location: R2+4
Function Call: WRITE	Prompt: !?12,"CHOOSE FROM:",!?12,"O - To only see add-ons",!?9,"or A - To see all routing sheets" Line Location: R2+9
Function Call: WRITE	Prompt: !,"Not an exact match!" Line Location: RPL+7
Function Call: WRITE	Prompt: !,"RESPOND YES OR NO" Line Location: QQ+0
Function Call: WRITE	Prompt: !!,$$LINE^SDAMO("Clinic Selection") Line Location: CLINIC1+5
Function Call: WRITE	Prompt: !?12,"CHOOSE FROM:",!?12,"T - To see routing slips sorted in terminal digit order",!?12,"N - To see routing slips sorted in alphabetical order by name",!?12,"C - To see routing slips printed by clinic " Line Location: HELP+0
Routine Call	DIR Line Location: R2+7 R22 RPL+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CLINIC+3
^SC - [#44]	START+9, START+11, START+12, CHECK+1, CLINIC2+5, PLVAL+4, PLVAL+5
^TMP("SDRS"	START+1!
^UTILITY($J	START+2!

Label References

Name	Line Occurrences
$$CLINIC	A5+2, A5+3
$$CLINIC1	CLINIC+4
$$PLVAL	RPL+7
A5	A5
CHECK	START+9
END	SDROUT+14, R1+2, R2+8, RPL+10, A5+2, A5+3
QQ	R1, A5
R1	R1
R2	R2+9, R22+1
RPL	RPL+7
START	A5+7

Naked Globals

Name	Field # of Occurrence
^(	START+12
^("I"	CHECK+1
^(0	START+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	R1, R1+2, R2+9, A5, A5+1
>> %DT	RPL+10*
>> %DT("A"	RPL+10*!
%I	END!
ALL	END!
>> APDATE	START+3*
BSDPROM	R2+2~
BSDRSDF	R2+2~, R2+3*, R2+6
C	END!
>> DGPGM	A5+5*
>> DIC	CLINIC1+11*
>> DIC("S"	CLINIC1+10*
DIR	R22+2!, RPL+8!
DIR("?"	R22, RPL+1
DIR("??"	RPL+2*
DIR("A"	R2+5, R22, RPL+3*
DIR("B"	R2+6, R22, RPL+4*
DIR(0	R2+5, R22, RPL+3*
DIROUT	R22+1, R22+2!, RPL+5, RPL+8!
DIRUT	R2+8, R22+1, R22+2!, RPL+5, RPL+8!
DIV	SDROUT+14*, R2+3, A5+2, A5+3, CHECK+1, END!, CLINIC+1~
DT	RPL+10, START+3
DTOUT	R22+1, R22+2!, RPL+5, RPL+8!
>> GDATE	START+10, START+11, START+12
I	END!
IO	START+2
>> L	START+12*
ORD	END!
ORDER	R22, R4, RPL, RPL+5, RPL+6, RPL+7, RPL+8, A5+2, A5+3, START+12 , START+14, CHECK+2, END!, CLINIC+1~
>> POP	A5+1*, A5+6
>> PRDATE	START+3*
RMSEL	END!
>> SC	START+9*, START+11, START+12, CHECK+1, CHECK+2
SDATE	RPL+10*, START+3, START+10, START+11, START+14, CHECK+1, CLINIC+1~
SDCL	CLINIC2~, CLINIC2+5
SDCLIN	PLVAL+1~, PLVAL+4*, PLVAL+5
SDEF	END!
SDIQ	SDROUT+14*, END!, CLINIC+1~
SDIV	CLINIC~, CLINIC+2, CLINIC+3
SDMATCH	SDROUT+12~, PLVAL+2, PLVAL+3, PLVAL+4, PLVAL+6*, PLVAL+7
SDPLOC	PLVAL+1~, PLVAL+5*, PLVAL+6
SDPLSRT	SDROUT+12~, RPL+6*, PLVAL+3, PLVAL+6
SDREP	SDROUT+14*, A5+2, A5+3, CHECK+2, END!, CLINIC+1~
SDSP	R1+2*, END!
SDSTART	SDROUT+14*, END!, CLINIC+1~
>> SDSTOP	SDROUT+13*
SDX	SDROUT+14, R2+10, END!, CLINIC+1~
U	START+12, CHECK+1, CLINIC+3
V	END!
>> VAR	A5+4*
VAUTC	SDROUT+12~, A5+2, A5+3, CHECK+2, END!, CLINIC~, CLINIC1+14!, CLINICQ
VAUTC(	CHECK+2
VAUTD	CLINIC+1~, CLINIC+2, CLINIC+3
VAUTD(	CLINIC+3*
>> VAUTNI	CLINIC1+11*
>> VAUTSTR	CLINIC1+11*
>> VAUTVB	CLINIC1+11*
X	R2+10, R22+2, R4, RPL+6, END!, CLINIC2+5~, CLINIC2+6
Y	SDROUT+14, R22+1, R22+2, RPL+5, RPL+10, START+3*, END!, CLINIC1+14
>> Z	R2+9*

Name	Comments	DBIA/ICR reference
R4
QQ
END
R1
R2	;R !,"WANT (A)LL ROUTING SHEETS OR (O)NLY ADD-ONS: ONLY ADD-ONS// ",X:DTIME G:X["^"!('$T) END I X="" S X="O" W X ;IHS/ANMC/LJF 12/06/2000
PLVAL()	; Physical Location Validation.
CLINIC2(SDCL)	; -- generic screen for hos. loc. entries ; input: SDCL := ifn of HOSPITAL LOCATION file ; returned := [ 0 \| do not use entry ; 1 \| use entry ]
CLINICQ
CLINIC1()	; -- get clinic data ; input: VAUTD := divisions selected ; output: VAUTC := clinic selected (VAUTC=1 for all) ; return: was selection made [ 1\|yes 0\|no]
R22
START	;EP; IHS/ANMC/LJF 11/15/2000 called by BSDROUT to return to VA code
A5
CLINIC(SDIV,VAUTC)	;
RPL
CHECK	;I $P(^SC(SC,0),"^",3)="C",$S(DIV="":1,$P(^SC(SC,0),"^",15)=DIV:1,1:0),$S('$D(^SC(SC,"I")):1,+^("I")=0:1,+^("I")>SDATE:1,+$P(^("I"),"^",2)'>SDATE&(+$P(^("I"),"^",2)):1,1:0)
HELP

Customize PDF page

Package: Scheduling

Routine: SDROUT

Call Graph Total: 16

Caller Graph Total: 6