Routine: BSDROUT

Package	Total	Call Graph
IHS Changes To Scheduling	6	START^BSDROUT FIND^BSDROUT0 PRINT^BSDROUT1 (CRLOOP,CRSET)^BSDROUT2 ($$DIV,$$DIVNM,CLINIC)^BSDU ($$CI,$$SCIEN)^BSDU2
Scheduling	4	QUE^SDLTP (CHECK,END)^SDROUT END^SDROUT1 DTS^SDUTL
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
IHS Changes To ADT	2	($$READ,MSG,ZIS)^BDGF ($$HRCN,$$HRCND,$$HRCNT)^BDGF2
Registration	2	ZIS^DGUTQ REFRESH^VALM
IHS VA Utilities	1	^XBFMK
Kernel	1	$$FMADD^XLFDT
Patient Care Component	1	EN2^APCHPWHG

Package	Total	Caller Graph
Clinical Scheduling for Windows	2	BSDX07 BSDX25
IHS Changes To Scheduling	2	BSDAPP BSDROUT
IHS Pharmacy Auto Refill System	2	BEXRX BEXRX7
Scheduling	2	SDAMWI1 SDROUT
Emergency Room	1	AMERVSIT
IHS Emergency Dept Dashboard	1	BEDDPRT

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; ask user for sort choice
START	;EP; entry point when printing routing slip batch ; IHS modified version of START^SDROUT
DEVICE	; ask print device
RSCI(EVENT,DFN,DATE)	;EP; called by BSDAM RS AT CHECKIN protocol;IHS/OIT/LJF 02/16/2006 PATCH 1005 ; which is called by BSDAM APPOINTMENT EVENTS protocol ; Used at sites with so many no-shows that charts are not pulled until patients arrive
SELTYP()	;
RANGE2	;
WISD(DFN,SDATE,BSDMODE,BSDDEV,BSDNHS)	;PEP; print routing slip for walkin/same day appt ; called by SDAMWI1 for walkins; BSDMODE="WI" ; called by ONE^BSDROUT for single patient rs; BSDMODE="" ; called by APPT for same day appt; BSDMODE="SD" ; called by BSDAPP for chart requests for today ; called by RS protocol with BSDNHS=1 so no health summary will print;PATCH 1003
R3HELP	;EP; user help for Sort question
SINGLE	;EP; queued entry point for single routing slips ; called by WISD subroutine
ONE	;EP; called by SDROUT to print one patient's routing slip
DATE	; ask appt date to process
CLINIC	; ask clinic selection if sort 2 or 3
HELPA	;EP; called as help for "Want Chart Requested?" question
ASK	;EP; called by SDROUT to ask rest of the questions
HELPB	;EP; called as help for "Print Appt Letter?" question
TERM(PAT)	; returns chart # in terminal digit format
REPRINT	; ask if this is a reprint
PWH(EVENT,DFN,DATE)	;EP; called by BSDAM PWH AT CHECKIN protocol;cmi/flag/maw 10/19/2009 PATCH 1011
RANGE(TYPE)	; ask to print a small batch
APPT(EVENT,DFN,DATE)	;EP; called by BSDAM APPT SLIP protocol ; which is called by BSDAM APPOINTMENT EVENTS protocol ; which is called by EVT^SDAMEVT via MAKE^SDAMEVT via ^SDM1A ; from making appointment

External References

Name	Field # of Occurrence
EN2^APCHPWHG	PWH+1, PWH+19
$$READ^BDGF	SORT+1, DATE+1, REPRINT+2, REPRINT+8, RANGE+4, RANGE2+1, ONE+1, APPT+22, APPT+23, APPT+29 , APPT+43, PWH+16, RSCI+18, RSCI+19
MSG^BDGF	RANGE+7, RANGE2+4, R3HELP+1, R3HELP+2, R3HELP+3, R3HELP+4, R3HELP+5, R3HELP+6, R3HELP+7, APPT+44 , APPT+49
ZIS^BDGF	WISD+27
$$HRCN^BDGF2	TERM+2
$$HRCND^BDGF2	TERM+5
$$HRCNT^BDGF2	TERM+3
START^BSDROUT	DEVICE+5
FIND^BSDROUT0	START+14, SINGLE+12
PRINT^BSDROUT1	START+16, SINGLE+24
CRLOOP^BSDROUT2	START+15
CRSET^BSDROUT2	SINGLE+19
$$DIV^BSDU	DEVICE+3, WISD+17, WISD+29, APPT+24, APPT+27, APPT+36, PWH+15, RSCI+9, RSCI+15, RSCI+21 , TERM+4
$$DIVNM^BSDU	CLINIC+4
CLINIC^BSDU	CLINIC+5
$$CI^BSDU2	PWH+13, RSCI+11
$$SCIEN^BSDU2	PWH+13, RSCI+11
ZIS^DGUTQ	DEVICE+4, WISD+31
^DIC	SELTYP+9
$$GET1^DIQ	DEVICE+3, WISD+29, SINGLE+22, APPT+24, APPT+27, APPT+36, APPT+37, APPT+42, APPT+43, APPT+44 , APPT+47, APPT+54, RSCI+9, RSCI+21, TERM+4
^DIR	WISD+11
QUE^SDLTP	APPT+56
CHECK^SDROUT	START+11
END^SDROUT	ASK+3, ONE+1
END^SDROUT1	DEVICE+4, WISD+31
DTS^SDUTL	START+4
REFRESH^VALM	PWH+20
^XBFMK	SELTYP+3
$$FMADD^XLFDT	APPT+53

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Since this is a same day appointment, do you need the paper" Line Location: HELPA+1
Function Call: WRITE	Prompt: !,"chart pulled? Answer YES to have the routing slip print in" Line Location: HELPA+2
Function Call: WRITE	Prompt: !,"medical records." Line Location: HELPA+3
Function Call: WRITE	Prompt: !,"Answer YES to print a reminder letter for this appointment." Line Location: HELPB+1
Routine Call	DIC Line Location: SELTYP+9
Routine Call	DIR Line Location: WISD+11
Routine Call	VALM Line Location: PWH+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^VA(407.5 - [#407.5]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^APCHPWHT - [#9001026]	Classic Fileman Calls
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	SELTYP+5
^APCHPWHT - [#9001026]	SELTYP+6
^BSDPAR - [#9009020.2]	APPT+22, APPT+23, RSCI+18, RSCI+19
^BSDPAR("B"	APPT+20, RSCI+17
^DISV(	SELTYP+6
^DPT - [#2]	SINGLE+8, SINGLE+9, APPT+16, APPT+21, APPT+40, PWH+12, RSCI+10
^SC - [#44]	START+13, START+14, SINGLE+10
^SC("AIHSCR"	SINGLE+16, SINGLE+18
^TMP("SDAMIDX"	WISD+12
^TMP("SDRS"	START+2!, SINGLE+2!, SINGLE+22*
^TMP("SDRS1"	START+3!
^VA(407.5 - [#407.5]	APPT+48

Label References

Name	Line Occurrences
$$SELTYP	PWH+17
$$TERM	SINGLE+22
@(	ASK+3
DEVICE	ASK+4
RANGE	REPRINT+6, REPRINT+9, RANGE+7
RANGE2	RANGE2+4
SINGLE	WISD+32
WISD	ONE+2, APPT+24, RSCI+21

Naked Globals

Name	Field # of Occurrence
^(	START+14
^("^APCHPWHT("	SELTYP+6
^(0	START+14, SELTYP+5, SELTYP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS("A"	WISD+31*
>> APDATE	START+4*
BDGDEV	DEVICE+3!, WISD+29, WISD+30!
BSDDEV	WISD~, WISD+27
BSDGD	START+6~, START+12, START+13, START+14
BSDI	ASK+1~, ASK+3*
BSDL	START+6~, START+14*
>> BSDMK	APPT+6
BSDMOD2	SINGLE+3~, SINGLE+6*, SINGLE+13
BSDMODE	WISD~, WISD+28, SINGLE+6, SINGLE+12, SINGLE+13
BSDNHS	WISD~
>> BSDNO	APPT+14
BSDPAR	APPT+19~, APPT+20, APPT+22, RSCI+16~, RSCI+17, RSCI+19
BSDPWH	PWH+8~, PWH+17*, PWH+18, PWH+19
BSDPWHT	SELTYP+2~, SELTYP+11*, SELTYP+12
BSDQ	ASK+1~, ASK+2, ASK+3, ASK+4, SORT+2, DATE+2, CLINIC+5, REPRINT+3, REPRINT+8, RANGE+5* , RANGE2+2*
BSDSC	START+6~, START+11*, START+13, START+14
>> BSDSCIND	START+8, START+10, START+11
BSDT	SINGLE+3~, SINGLE+7, SINGLE+8, SINGLE+9, SINGLE+10, SINGLE+12, SINGLE+17, SINGLE+18, SINGLE+19
BSDX	RANGE+1~, RANGE+2*, RANGE+3, RANGE+4, RANGE2+1
CLN	SINGLE+3~, SINGLE+9, SINGLE+10, SINGLE+12, SINGLE+16, SINGLE+18, SINGLE+19
DATE	APPT~, APPT+16, APPT+21, APPT+24, APPT+40, PWH~, PWH+2*, PWH+12, PWH+13, RSCI~ , RSCI+10, RSCI+11, RSCI+21
DEV	WISD+16~, WISD+28*, WISD+29
DFN	WISD~, WISD+9, WISD+12, WISD+13, ONE+1, ONE+2, SINGLE+8, SINGLE+9, SINGLE+10, SINGLE+16 , SINGLE+18, SINGLE+19, SINGLE+22, APPT~, APPT+16, APPT+21, APPT+24, APPT+40, APPT+54, PWH~ , PWH+12, PWH+13, PWH+19, RSCI~, RSCI+10, RSCI+11, RSCI+21
DGPGM	DEVICE+2, WISD+16~, WISD+26
>> DGQUIET	WISD+27, WISD+30
DIADD	SELTYP+1!
DIC	SELTYP+4!*, SELTYP+9!
DIC("A"	SELTYP+4*
DIC("B"	SELTYP+8*
DIC(0	SELTYP+4*
>> DIR(0	WISD+10*
DIV	CLINIC+3, CLINIC+4, WISD+17, APPT+22, APPT+23, APPT+32~, APPT+36, APPT+37, APPT+42, PWH+15* , RSCI+15*, RSCI+18, RSCI+19
DLAYGO	SELTYP+1!
DT	START+4, ONE+2, APPT+53, PWH+2
DUZ	SELTYP+6
DUZ(2	SELTYP+5, TERM+2
EVENT	APPT~, APPT+15, PWH~, PWH+10, PWH+12, PWH+13, RSCI~, RSCI+8
HELP	RANGE+1~, RANGE+3*, RANGE+4
IEN	SINGLE+3~, SINGLE+10*, SINGLE+11, SINGLE+12
IO	START+2, SINGLE+2
IOST	APPT+13, PWH+9, RSCI+7
L0	APPT+33~, APPT+35*
L2	APPT+32~, APPT+35*
N	TERM+1~, TERM+2*, TERM+3, TERM+5
>> ORDER	SORT+1, SORT+2, CLINIC+2, REPRINT+5, REPRINT+9, RANGE+2, RANGE+7, RANGE2+4, START+14, START+16 , WISD+17, SINGLE+12, SINGLE+19, SINGLE+24
PAT	TERM~, TERM+2
POP	DEVICE+4, WISD+16~, WISD+31
>> PRDATE	START+4*
S1	APPT+33~, APPT+54*
SC	START+6~, START+11*
SDAMEVT	APPT+11~, PWH+8~, RSCI+6~
SDAT	PWH+8~, RSCI+6~
SDATA	APPT+11~, PWH+8~, RSCI+6~
SDATE	DATE+1*, DATE+2, START+4, START+12, START+13, START+16, WISD~, SINGLE+7, SINGLE+8, SINGLE+17 , SINGLE+24
SDBD	APPT+32~, APPT+53*
SDC	APPT+12~, PWH+8~, RSCI+6~
SDCL	APPT+11~, PWH+13, RSCI+11
SDCONC	APPT+32~, APPT+35*
SDDA	APPT+11~, PWH+8~, RSCI+6~
SDDAT	APPT+34~
SDED	APPT+32~, APPT+53*
SDFORM	APPT+32~, APPT+36*
SDI	PWH+8~, RSCI+6~
SDLET	APPT+32~, APPT+41, APPT+43, APPT+44, APPT+47, APPT+48, APPT+49, APPT+53
SDLT	APPT+32~, APPT+35*
SDLT1	APPT+32~, APPT+53*
SDMODE	APPT+9, APPT+11~, PWH+6, PWH+8~, RSCI+4, RSCI+6~
>> SDREP	REPRINT+2, REPRINT+3, REPRINT+4, WISD+17
>> SDSTART	REPRINT+8, RANGE+4, RANGE+5, RANGE+6, RANGE+7, WISD+17
>> SDSTOP	RANGE2+1, RANGE2+2, RANGE2+3, RANGE2+4
SDT	APPT+11~
SDTIME	APPT+32~, APPT+53*
SDV1	APPT+32~, APPT+36*
>> SDX	REPRINT+1, REPRINT+8, WISD+17*
T	TERM+1~, TERM+3, TERM+5, TERM+6
TYPE	RANGE~, RANGE+3, RANGE+4, RANGE+7
U	SORT+2, REPRINT+3, RANGE+5, RANGE2+2, START+14, WISD+12, SINGLE+10, APPT+16, APPT+21, APPT+22 , APPT+23, PWH+12, SELTYP+5, SELTYP+6, RSCI+10, RSCI+18, RSCI+19
>> VALMBCK	PWH+20*
>> VALMBG	WISD+10
>> VALMLST	WISD+10
VALMY	PWH+8~, RSCI+6~
VAR	DEVICE+1, WISD+16~, WISD+22
VAR1	WISD+16~, WISD+23*, WISD+27
>> VAUTC	CLINIC+2*, START+7
VAUTD	CLINIC+3, CLINIC+4, APPT+33~, APPT+37*
VAUTD(	CLINIC+4, APPT+37
VAUTN	APPT+33~, APPT+54*
VAUTN(	APPT+54*
X	APPT+32~, APPT+40, APPT+43, APPT+47, SELTYP+5, SELTYP+6, SELTYP+7, SELTYP+8
>> Y	START+4, WISD+12, SELTYP+6, SELTYP+10, SELTYP+11

Marked Items

Name	Field # of Occurrence
$T(EN2^APCHPWHG	PWH+1

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDROUT

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items