Routine: BSDROUT1

Package	Total	Call Graph
IHS Changes To Scheduling	5	(AIU,APRO,HS,MP)^BSDFORM $$FIRST^BSDROUT0 (HED,STATUS)^BSDROUT2 ($$CONF,$$DIV)^BSDU $$OI^BSDU2
Kernel	3	^%ZIS ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
Scheduling	3	TM^SDROUT0 END^SDROUT1 DTS^SDUTL
VA Fileman	2	^DIE $$GET1^DIQ
IHS Changes To ADT	1	($$DEAD,$$DOD,$$HRCN)^BDGF2
Registration	1	ADD^VADPT

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

Entry Points

Name	Comments	DBIA/ICR reference
FUTURE(DFN)	; -- print future appts
DIV()	; -- returns division ien
PRINT(ORDER,SDATE)	;EP; called to print routing slips ; called by SDROUT0 ; assumes the following variables are set: SDSTART,SDSTOP,SDX,SDREP,DIV ; loop by sort criteria and get patient
PRTDT(P,D,C,MODE)	; -- called to set date routing slip printed
RSHED(DFN)	; -- routing slip heading
APPT(DFN,DATE,CLN)	; -- print individual appointments
FORMAT()	; -- returns format used - short, long or duplicate
CURHED	; -- print current appt heading
APPTCNT(A,B,C)	; -- count how many appts patient has for date
CHKDV(SDEV)	;-- lets check to see if the original device got closed and if so reopen it
ONE(DFN,SDATE,FORM)	; -- returns 1 if at least one clinic for pat wants form
FUTHED	; -- print future appt heading
PRTCR(PAT,DATE,CLN)	; -- set date/time chart request printed
HS(DFN,SDATE)	; -- health summary
MORERS()	; -- returns 1 if want >1 rs
MP(DFN,SDATE)	; -- med profile
PRINTED	; add date printed, requested by and increment count of rs printed
AIU(DFN,SDATE)	; -- insurance update
OTHER(DFN)	; -- calls other forms
APPTC(DFN,TERM,DATE)
APRO(DFN,SDATE)	; -- action profiles (one for each appt where needed)
RS(SORT,TERM,DFN,FIRST)	; -- print rs ; quit if not first appt that day when sorting by clinic

External References

Name	Field # of Occurrence
^%ZIS	CHKDV+3
$$DEAD^BDGF2	RSHED+14
$$DOD^BDGF2	RSHED+14
$$HRCN^BDGF2	RSHED+9
AIU^BSDFORM	AIU+1
APRO^BSDFORM	APRO+6
HS^BSDFORM	HS+3
MP^BSDFORM	MP+3
$$FIRST^BSDROUT0	RS+8, RS+9
HED^BSDROUT2	RSHED+1
STATUS^BSDROUT2	RSHED+22
$$CONF^BSDU	RSHED+6
$$DIV^BSDU	DIV+1
$$OI^BSDU2	APPT+23
^DIE	PRTDT+7, PRTCR+6
$$GET1^DIQ	APPT+15, APPT+20, APPT+21, APPT+32, FUTURE+22, FUTURE+23, PRINTED+6, RSHED+5, RSHED+9, RSHED+11 , OTHER+1, APRO+5, ONE+5, ONE+7, ONE+14, ONE+16, MORERS+1, FORMAT+1
TM^SDROUT0	APPT+3, FUTURE+17, FUTURE+21
END^SDROUT1	PRINT+19
DTS^SDUTL	FUTURE+17, FUTURE+21
ADD^VADPT	RSHED+19
$$FMTE^XLFDT	APPT+32, PRINTED+2, PRINTED+3, PRINTED+5, RSHED+12
$$NOW^XLFDT	PRINTED+5
$$REPEAT^XLFSTR	RS+29, FUTHED+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RS+27
Function Call: WRITE	Prompt: ! Line Location: RS+28
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: RS+29
Function Call: WRITE	Prompt: !,$J(X,8) Line Location: APPT+3
Function Call: WRITE	Prompt: !,$J("****",7) Line Location: APPT+4
Function Call: WRITE	Prompt: !,"CR-"_$E(DATE,4,5)_"/"_$E(DATE,6,7)_"-"_($E(DATE,1,3)+1700) Line Location: APPT+8
Function Call: WRITE	Prompt: ?9,$P(CLN,U,3) Line Location: APPT+12
Function Call: WRITE	Prompt: ?13,$E(X,1,25) Line Location: APPT+16
Function Call: WRITE	Prompt: !?11 Line Location: APPT+18
Function Call: WRITE	Prompt: ?40 Line Location: APPT+19
Function Call: WRITE	Prompt: $$GET1^DIQ(44,+CLN,10) Line Location: APPT+20
Function Call: WRITE	Prompt: !?13,X Line Location: APPT+23
Function Call: WRITE	Prompt: !?COL,$P(Y,U,3) Line Location: APPT+31
Function Call: WRITE	Prompt: !?COL,"Requested at "_$$FMTE^XLFDT($E(+Y,1,12))_" by "_$$GET1^DIQ(200,+$P(Y,U,2),.01)_" x"_$$GET1^DIQ(200,+$P(Y,U,2),.132) Line Location: APPT+32
Function Call: WRITE	Prompt: !,Y,?13,$J(X,8) Line Location: FUTURE+17
Function Call: WRITE	Prompt: ?22,$S(BSDI=3:"LAB",BSDI=4:"XRAY",1:"EKG")," Stop" Line Location: FUTURE+18
Function Call: WRITE	Prompt: !,Y,?13,$J(X,8) Line Location: FUTURE+21
Function Call: WRITE	Prompt: ?21,$$GET1^DIQ(44,+BSDY,.01) Line Location: FUTURE+22
Function Call: WRITE	Prompt: ?55,$$GET1^DIQ(44,+BSDY,10) Line Location: FUTURE+23
Function Call: WRITE	Prompt: !!,"DATE ORIGINALLY PRINTED : ",$$FMTE^XLFDT(SDSTART) Line Location: PRINTED+2
Function Call: WRITE	Prompt: !,"DATE REPRINTED: ",$$FMTE^XLFDT(DT) Line Location: PRINTED+3
Function Call: WRITE	Prompt: !!,"DATE PRINTED: ",$$FMTE^XLFDT($$NOW^XLFDT) Line Location: PRINTED+5
Function Call: WRITE	Prompt: !,"Requested by: ",$$GET1^DIQ(200,$G(DUZ),.01) Line Location: PRINTED+6
Function Call: WRITE	Prompt: !!?9,"CURRENT APPOINTMENTS" Line Location: CURHED+1
Function Call: WRITE	Prompt: !?3,"TIME",?13,"CLINIC" Line Location: CURHED+2
Function Call: WRITE	Prompt: ?40,"LOCATION",?68,"PHONE" Line Location: CURHED+3
Function Call: WRITE	Prompt: !!,?9,"FUTURE APPOINTMENTS",!,$$REPEAT^XLFSTR("=",79) Line Location: FUTHED+1
Function Call: WRITE	Prompt: !," DATE",?13,"TIME",?21,"CLINIC",?55,"LOCATION",! Line Location: FUTHED+2
Function Call: WRITE	Prompt: @IOF Line Location: RSHED+2
Function Call: WRITE	Prompt: ! Line Location: RSHED+3
Function Call: WRITE	Prompt: @IOF Line Location: RSHED+4
Function Call: WRITE	Prompt: !,"FACILITY: ",$$GET1^DIQ(40.8,$$DIV,.01) Line Location: RSHED+5
Function Call: WRITE	Prompt: ?40,"",$E($$CONF^BSDU,1,25),"" Line Location: RSHED+6
Function Call: WRITE	Prompt: !,"PAGE ",BSDPG,?10,"OUTPATIENT ROUTING SLIP" Line Location: RSHED+7
Function Call: WRITE	Prompt: !!,$$GET1^DIQ(2,DFN,.01),?30,"HRCN: ",$$HRCN^BDGF2(DFN,+$G(DUZ(2))) Line Location: RSHED+9
Function Call: WRITE	Prompt: !?5,"DOB: ",$$GET1^DIQ(2,DFN,.03) Line Location: RSHED+11
Function Call: WRITE	Prompt: ?44,"APPT DT: ",$$FMTE^XLFDT(SDATE,5) Line Location: RSHED+12
Function Call: WRITE	Prompt: !?10,"** PATIENT DIED ON ",$$DOD^BDGF2(DFN)," **" Line Location: RSHED+14
Function Call: WRITE	Prompt: !,VAPA(4),", ",$P(VAPA(5),U,2)," ",VAPA(6) Line Location: RSHED+20
Routine Call	DIE Line Location: PRTDT+7 PRTCR+6
Routine Call	%ZIS Line Location: CHKDV+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^BSDSC - [#9009017.2]	GET1^DIQ
^BSDPAR - [#9009020.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PRTDT+3, PRTDT+4, PRTDT+6, FUTURE+3, FUTURE+8, FUTURE+10, APRO+3, APRO+4, ONE+3, ONE+4
^SC - [#44]	APPT+26, APPT+27, APPT+28, PRTCR+2, PRTCR+3
^SC("AIHSCR"	ONE+12, ONE+13
^TMP("SDRS"	PRINT+6, PRINT+7, PRINT+8, RS+4, RS+5, RS+8, RS+9, RS+14, RS+15, APPTC+5 , OTHER+5, APPTCNT+2, APPTCNT+3
^TMP("SDRS1"	APPTC+3, APPTC+4

Label References

Name	Line Occurrences
$$APPTCNT	PRINT+14
$$CHKDV	OTHER+9
$$DIV	RSHED+5, OTHER+1, MORERS+1, FORMAT+1
$$FORMAT	PRINT+10, RS+22, RS+25, APPT+18, APPT+21, APPT+30, CURHED+2, RSHED+1, RSHED+3, RSHED+18
$$MORERS	PRINT+14, RS+8, RS+9
$$ONE	HS+2, MP+2, AIU+1
AIU	OTHER+11
APPT	RS+20, APPTC+6
APPTC	RS+18
APRO	OTHER+10
CURHED	RS+13, APPT+1
FUTHED	FUTURE+5, FUTURE+9, FUTURE+15
FUTURE	RS+22
HS	OTHER+7
MP	OTHER+8
OTHER	PRINT+16
PRINTED	RS+23
PRTCR	PRTDT+2
PRTDT	RS+18, RS+21
RS	PRINT+11, PRINT+14, RS+30
RSHED	RS+12, APPT+1, FUTURE+4, FUTURE+9, FUTURE+15

Naked Globals

Name	Field # of Occurrence
^(0	APRO+4, ONE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	APPTCNT~, APPTCNT+2, APPTCNT+3
APDT	APPTC+1~, APPTC+2, APPTC+3, APPTC+4, APPTC+5, APPTC+6
ARRAY	APPTC+1~
B	APPTCNT~, APPTCNT+2, APPTCNT+3
BDGSDEV	PRINT+18!, OTHER+9
BSDI	PRINT+4~, PRINT+14, FUTURE+1~, FUTURE+14, FUTURE+16, FUTURE+18
>> BSDNHS	OTHER+2
BSDPG	RS+11~, RSHED+7*, RSHED+16
BSDRX	MP+1~, MP+2*, MP+3
BSDX	FUTURE+1~, FUTURE+8, FUTURE+10, FUTURE+21, APRO+1~, APRO+2, APRO+3*, APRO+4
BSDY	FUTURE+1~, FUTURE+10*, FUTURE+11, FUTURE+14, FUTURE+16, FUTURE+22, FUTURE+23
C	PRTDT~, PRTDT+2, ONE+1~, ONE+4, ONE+5, ONE+7, ONE+12, ONE+13, ONE+14, ONE+16 , APPTCNT~, APPTCNT+2, APPTCNT+3
CLN	RS+11~, RS+15, RS+18, RS+20, RS+21, APPTC+1~, APPTC+5, APPTC+6, APPT~, APPT+3 , APPT+6, APPT+12, APPT+14, APPT+15, APPT+17, APPT+20, APPT+21, APPT+23, APPT+26, APPT+27 , APPT+28, PRTCR~, PRTCR+2, PRTCR+3, PRTCR+4, PRTCR+5, APRO+1~, APRO+4*, APRO+5, APRO+6
CNT	PRINT+4~, PRINT+14, APPTCNT+1~, APPTCNT+4*, APPTCNT+5
COL	APPT+30~*, APPT+31, APPT+32
D	PRTDT~, PRTDT+2, PRTDT+3, PRTDT+4, PRTDT+5, PRTDT+6
DA	PRTDT+1~, PRTDT+5, PRTCR+1~, PRTCR+5
DA(1	PRTDT+5, PRTCR+5
DA(2	PRTCR+5*
DATE	RS+11~, RS+13, RS+14, RS+15, RS+18*, RS+20, RS+21, APPTC~, APPTC+2, APPT~ , APPT+3, APPT+8, APPT+23, APPT+26, APPT+27, APPT+28, PRTCR~, PRTCR+2, PRTCR+3, PRTCR+4 , PRTCR+5
DFN	PRINT+4~, PRINT+8*, PRINT+11, PRINT+14, PRINT+16, RS~, RS+4, RS+5, RS+8, RS+9 , RS+12, RS+14, RS+15, RS+18, RS+20, RS+21, RS+22, RS+30, APPTC~, APPTC+3 , APPTC+4, APPTC+5, APPTC+6, APPT~, APPT+1, APPT+23, APPT+27, FUTURE~, FUTURE+3, FUTURE+4 , FUTURE+8, FUTURE+9, FUTURE+10, FUTURE+15, RSHED~, RSHED+9, RSHED+11, RSHED+14, RSHED+22, OTHER~ , OTHER+5, OTHER+7, OTHER+8, OTHER+10, OTHER+11, HS~, HS+2, HS+3, MP~, MP+2 , MP+3, APRO~, APRO+3, APRO+4, APRO+6, AIU~, AIU+1, ONE~, ONE+3, ONE+4 , ONE+12, ONE+13
DIE	PRTDT+1~, PRTDT+5, PRTCR+1~, PRTCR+4
>> DIV	AIU+1
DR	PRTDT+1~, PRTDT+6, PRTCR+1~, PRTCR+5
DT	PRINTED+3
DUZ	PRINTED+6
DUZ(2	RSHED+9
FIRST	RS~, RS+4, RS+5, RS+30
FORM	ONE~, ONE+5, ONE+6, ONE+7, ONE+14, ONE+15, ONE+16
I	RSHED+19~*
IEN	PRTCR+1~, PRTCR+2*, PRTCR+3, PRTCR+5
IO	OTHER+9*, CHKDV+1, CHKDV+2, CHKDV+4
IOF	RSHED+4
IOM	RS+29
>> IOP	CHKDV+3*
IOSL	RS+28, APPT+1, FUTURE+4, FUTURE+9, FUTURE+15
MODE	PRTDT~, PRTDT+2
ORDER	PRINT~, RS+4, RS+5, RS+8, RS+9, RS+18, OTHER+5
P	PRTDT~, PRTDT+2, PRTDT+3, PRTDT+4, PRTDT+5, PRTDT+6
PAT	PRTCR~, PRTCR+3
SDATE	PRINT~, FUTURE+3, FUTURE+8, RSHED+12, OTHER+7, OTHER+8, OTHER+10, OTHER+11, HS~, HS+2 , MP~, MP+2, APRO~, APRO+2, APRO+3, APRO+6, AIU~, AIU+1, ONE~, ONE+2 , ONE+3, ONE+13
SDCNT	PRINT+4~, PRINT+17!, PRINTED+4, PRINTED+7, RSHED+4
SDEV	CHKDV~, CHKDV+1, CHKDV+2, CHKDV+3
>> SDREP	PRINTED+1
>> SDSTART	PRINTED+2
SDSTOP	PRINT+19!
>> SDX	PRINTED+1
SECOND	PRINT+4~, PRINT+10, RS+25, RS+26, RSHED+3
SORT	PRINT+4~, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+11, PRINT+14, RS~, RS+4, RS+5 , RS+8, RS+9, RS+14, RS+15, RS+30, APPTC+1~, APPTC+4*, APPTC+5, OTHER+5
TERM	PRINT+4~, PRINT+7*, PRINT+8, PRINT+11, PRINT+14, RS~, RS+8, RS+9, RS+14, RS+15 , RS+18, RS+30, APPTC~, APPTC+5
U	RS+18, RS+21, APPT+3, APPT+6, APPT+12, APPT+14, APPT+17, APPT+31, APPT+32, PRTDT+4 , PRTDT+6, FUTURE+11, FUTURE+14, FUTURE+16, RSHED+20, HS+3, MP+3, APRO+4, ONE+4, ONE+6 , ONE+7, ONE+15, ONE+16, APPTCNT+3
VAPA	RSHED+19~
VAPA(	RSHED+19
VAPA(4	RSHED+20
VAPA(5	RSHED+20
VAPA(6	RSHED+20
X	APPT+2~, APPT+3, APPT+14, APPT+15, APPT+16, APPT+23, APPT+26, APPT+27, APPT+28, PRTCR+1~ , FUTURE+1~, FUTURE+16, FUTURE+17, FUTURE+21, ONE+1~, ONE+2, ONE+3, ONE+4, APPTCNT+1~, APPTCNT+2* , APPTCNT+3
Y	APPT+2~, APPT+28, APPT+31, APPT+32, FUTURE+1~, FUTURE+16, FUTURE+17, FUTURE+21, HS+1~, HS+2 , HS+3, APRO+1~, APRO+5, ONE+1~, ONE+2, ONE+3, ONE+6, ONE+7, ONE+8, ONE+11 , ONE+12, ONE+15, ONE+16, ONE+17, ONE+18
Z	ONE+1~, ONE+5, ONE+6, ONE+14, ONE+15

Customize PDF page

Package: IHS Changes To Scheduling

Routine: BSDROUT1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: