Routine: BSDROUT0

Information

BSDROUT0 ; IHS/ANMC/LJF - ROUTING SLIPS CALC ; [ 08/20/2004 11:57 AM ]

Source Information

Source file <BSDROUT0.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
IHS Changes To ADT	1	($$HRCN,$$HRCND,$$HRCNT)^BDGF2
IHS Changes To Scheduling	1	($$DIVC,$$FAC,$$PRIN)^BSDU
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
IHS Changes To Scheduling	3	BSDROUT BSDROUT1 BSDROUT2
Clinical Scheduling for Windows	1	BSDX42
Scheduling	1	SDROUT

Entry Points

Name	Comments	DBIA/ICR reference
PCO(P,D,C,T,S,F)	; -- sort by principal clinic
FIND(CLN,APPT,APPN,ORDER,BSDMODE)	;EP; -- set up ^tmp sort for patient's appt ; called by START^BSDROUT and SINGLE^BSDROUT ; assumes SD variables SDX,SDSTART,SDREP,SDATE are set ; CLN=clinic ien, APPT=appt date/time, APPN=appt ien in ^SC ; ORDER=1 means sort by terminal digit (or chart # per site param) ; ORDER=2 means sort by clinic; ORDER=3 means sort by principal clinic ; ORDER=4 means sort by name; ORDER="" means single routing slip ; BSDMODE="WI" for walkins, "SD" for same day, "" for all others ; BSDMODE="CR" used for chart requests in routine BSDROUT
FIRST(DFN,DATE)
PRTOK(P,D,TERM)	; -- check to see if rs should be printed for patient ; remove cancelled appts from list
NMO(P,D,C,T,S,F)	; -- sort by name
CLO(P,D,C,T,S,F)	; -- sort by clinic
STOPS(P,D,C,T,ORDER)	; checks for xray, lab or ekg stops
TDO(P,D,C,T,S,F)	; -- sort by terminal digit

External References

Name	Field # of Occurrence
$$HRCN^BDGF2	FIND+14
$$HRCND^BDGF2	FIND+17
$$HRCNT^BDGF2	FIND+15
$$DIVC^BSDU	FIND+16
$$FAC^BSDU	FIND+14
$$PRIN^BSDU	PCO+2
$$GET1^DIQ	FIND+16, CLO+1, PCO+3, NMO+1, PRTOK+13, PRTOK+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	STOPS+2, STOPS+3, PRTOK+2, PRTOK+10, PRTOK+17, FIRST+5, FIRST+6
^SC - [#44]	FIND+13
^TMP("SDRS"	TDO+1, TDO+2, CLO+7, CLO+11, PCO+7, PCO+10, NMO+2, NMO+3
^TMP("SDRS1"	CLO+8, PCO+8

Label References

Name	Line Occurrences
$$FIRST	FIND+21
$$PRTOK	FIND+19
CLO	FIND+25, STOPS+5
NMO	FIND+27, STOPS+7
PCO	FIND+26, STOPS+6
STOPS	FIND+23
TDO	FIND+24, STOPS+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	STOPS+1~, STOPS+3*, STOPS+4, STOPS+5, STOPS+6, STOPS+7
APPN	FIND~, FIND+13
APPT	FIND~, FIND+13, FIND+19, FIND+21, FIND+23, FIND+24, FIND+25, FIND+26, FIND+27
BSDGD	FIND+12~
BSDL	FIND+12~
BSDMODE	FIND~, TDO+2, CLO+11, PCO+10, NMO+3
BSDSC	FIND+12~
C	TDO~, TDO+2, CLO~, CLO+1, CLO+11, PCO~, PCO+2, PCO+3, PCO+10, NMO~ , NMO+3, STOPS~, STOPS+4, STOPS+5, STOPS+6, STOPS+7
CLN	FIND~, FIND+13, FIND+14, FIND+16, FIND+23, FIND+24, FIND+25, FIND+26, FIND+27
D	TDO~, TDO+2, CLO~, CLO+8, CLO+11, PCO~, PCO+8, PCO+10, NMO~, NMO+3 , STOPS~, STOPS+2, STOPS+3, PRTOK~, PRTOK+2, PRTOK+10, PRTOK+17
DATE	FIRST~, FIRST+4, FIRST+5, FIRST+7
DFN	FIND+11~, FIND+13*, FIND+14, FIND+19, FIND+21, FIND+23, FIND+24, FIND+25, FIND+26, FIND+27 , FIRST~, FIRST+5, FIRST+6
F	TDO~, TDO+1, CLO~, CLO+7, PCO~, PCO+7, NMO~, NMO+2
FIRST	FIND+11~, FIND+21*, FIND+24, FIND+25, FIND+26, FIND+27
HRCN	FIND+11~, FIND+14*, FIND+15, FIND+17
I	STOPS+1~, STOPS+2*, STOPS+3
N	CLO+1~, CLO+2, CLO+3, CLO+7, CLO+8, CLO+11, NMO+1~, NMO+2, NMO+3
ORDER	FIND~, FIND+23, FIND+24, FIND+25, FIND+26, STOPS~, STOPS+4, STOPS+5, STOPS+6, PRTOK+11 , PRTOK+12, PRTOK+13, PRTOK+14, FIRST+2
P	TDO~, TDO+1, TDO+2, CLO~, CLO+7, CLO+8, CLO+11, PCO~, PCO+7, PCO+8 , PCO+10, NMO~, NMO+1, NMO+2, NMO+3, STOPS~, STOPS+2, STOPS+3, STOPS+4, STOPS+5 , STOPS+6, STOPS+7, PRTOK~, PRTOK+2, PRTOK+10, PRTOK+13, PRTOK+14, PRTOK+17
PRINC	PCO+2~, PCO+3, PCO+4, PCO+5, PCO+7, PCO+8, PCO+10
S	TDO~, TDO+2, CLO~, CLO+11, PCO~, PCO+10, NMO~, NMO+3
>> SDREP	PRTOK+9, PRTOK+17
>> SDSTART	CLO+2, PCO+4, PRTOK+4, PRTOK+11, PRTOK+13, PRTOK+17
>> SDSTOP	CLO+3, PCO+5, PRTOK+12, PRTOK+14
>> SDX	CLO+2, CLO+3, PCO+4, PCO+5, PRTOK+4, PRTOK+10, PRTOK+17
STOP	STOPS+1~, STOPS+3*, STOPS+4, STOPS+5, STOPS+6, STOPS+7
T	TDO~, TDO+1, TDO+2, CLO~, CLO+11, PCO~, PCO+10, NMO~, NMO+2, NMO+3 , STOPS~, STOPS+4, STOPS+5, STOPS+6, STOPS+7
TERM	FIND+11~, FIND+15, FIND+17, FIND+19, FIND+23, FIND+24, FIND+25, FIND+26, FIND+27, PRTOK~ , PRTOK+11, PRTOK+12
U	FIND+13, TDO+2, CLO+11, PCO+10, NMO+3, STOPS+2, STOPS+3, PRTOK+2, PRTOK+10, PRTOK+17 , FIRST+6
X	PRTOK+9~, PRTOK+10, PRTOK+11, PRTOK+12, PRTOK+13, PRTOK+14, FIRST+3~, FIRST+4, FIRST+5, FIRST+6 , FIRST+7
Y	FIRST+3~, FIRST+5, FIRST+7*, FIRST+8

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDROUT0

Call Graph Total: 3

Caller Graph Total: 5