Routine: BSDROUT

Call Graph

Call Graph Total: 20

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

Package

Total

Caller Graph

Clinical Scheduling for Windows

BSDX07 BSDX25

IHS Changes To Scheduling

BSDAPP BSDROUT

IHS Pharmacy Auto Refill System

BEXRX BEXRX7

Scheduling

SDAMWI1 SDROUT

Emergency Room

AMERVSIT

IHS Emergency Dept Dashboard

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

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

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

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

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