Routine: BSDX42

Package	Total	Call Graph
IHS Changes To Scheduling	4	FIND^BSDROUT0 PRINT^BSDROUT1 CRSET^BSDROUT2 $$DIV^BSDU
IHS VA Utilities	4	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
Kernel	3	^%ZIS ^%ZISC $$FMTE^XLFDT
IHS Changes To ADT	2	($$READ,ZIS)^BDGF ($$HRCN,$$HRCND,$$HRCNT)^BDGF2
Scheduling	2	END^SDROUT END^SDROUT1
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Designated Provider	1	ALLDP^BDPAPI
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT

Package	Total	Caller Graph
Clinical Scheduling for Windows	2	BSDX25 BSDX43

Entry Points

Name	Comments	DBIA/ICR reference
WISD(DFN,SDATE,BSDMODE,BSDDEV,BSDNHS,EMSG)	;PEP; print routing slip for walkin/same day appt ; .EMSG = returned error message if error
EP1(APCHSDFN,APCHPWHT,APCHPRTH)	;PEP - PASS DFN get back array of patient wellness handout
EOJ	;
S1	;
DPCP(P)	;EP
SINGLE	;EP; queued entry point for single routing slips ; called by WISD subroutine
SETARRAY	;set up array containing pwh
PRINT	;
EP(APCHSDFN)	;PEP - PASS DFN get back array of patient care summary
WISDW(DFN,SDATE,EMSG)	;PEP; print Wellness handout ; .EMSG = returned error message if error
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
ONE	;EP; called by SDROUT to print one patient's routing slip
ZIS	;
S(Y,F,C,T)	;EP - set up array
HEADER	;
W	;write out array
HEAD1	;
USR()	;EP - Return name of current user from ^VA(200.
TERM(PAT)	; returns chart # in terminal digit format
COMPS	;
EXIT	;
OUTPUT	;

External References

Name	Field # of Occurrence
^%ZIS	WISDW+12, WISD+21
^%ZISC	W+10
$$AGE^AUPNPAT	COMPS+1
$$HRN^AUPNPAT	SETARRAY+6
$$READ^BDGF	ONE+1
ZIS^BDGF	WISD+17
$$HRCN^BDGF2	TERM+2
$$HRCND^BDGF2	TERM+5
$$HRCNT^BDGF2	TERM+3
ALLDP^BDPAPI	DPCP+2
FIND^BSDROUT0	SINGLE+12
PRINT^BSDROUT1	SINGLE+26
CRSET^BSDROUT2	SINGLE+19
$$DIV^BSDU	WISDW+6, WISDW+10, WISD+7, WISD+19, TERM+4
$$GET1^DIQ	WISDW+10, WISD+19, SINGLE+24, TERM+4
^DIR	HEADER+1
END^SDROUT	ONE+1
END^SDROUT1	WISDW+12, WISD+21
^XBDBQUE	ZIS+5
$$VAL^XBDIQ1	SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+14
$$VALI^XBDIQ1	SETARRAY+8
^XBFMK	EXIT+2
EN^XBVK	EXIT+1, EOJ+4, EOJ+5
$$FMTE^XLFDT	W+3, HEAD1+2, SETARRAY+3, SETARRAY+4, COMPS+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"******** Patient Wellness Handout ****** ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" ********" Line Location: W+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"******** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" ********",!! Line Location: HEAD1+2
Routine Call	DIR Line Location: HEADER+1
Routine Call	%ZIS Line Location: WISDW+12 WISD+21

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	SETARRAY+6, SETARRAY+17
^APCHPWHC - [#9001025]	COMPS+5, COMPS+6
^APCHPWHT - [#9001026]	COMPS+2, COMPS+3
^APCHPWHT("B"	EP+3, EP1+6
^AUPNPAT - [#9000001]	DPCP+4
^AUTTLOC - [#9999999.06]	SETARRAY+8, SETARRAY+14
^DIC(4 - [#4]	LOC+1, SETARRAY+6, SETARRAY+17
^DIC(5 - [#5]	SETARRAY+8
^DPT - [#2]	SETARRAY+6, SINGLE+8, SINGLE+9
^SC - [#44]	SINGLE+10
^SC("AIHSCR"	SINGLE+16, SINGLE+18
^TMP("APCH"	OUTPUT+3!
^TMP("APCHPHS"	EOJ+2!
^TMP("BSDX42"	SINGLE+21!, SINGLE+22, SINGLE+24
^TMP("SDRS"	SINGLE+2!, SINGLE+22
^TMP($J	W+4, W+6, EOJ+3!, EP1+4!, EP1+5, S1+1, S1+2*
^VA(200 - [#200]	W+3, HEAD1+2, USR+1, SETARRAY+4, SETARRAY+12, COMPS+8

Label References

Name	Line Occurrences
$$DPCP	SETARRAY+10
$$TERM	SINGLE+24
@(	COMPS+7
EOJ	W+9
EP	OUTPUT+4
EP1	EP+4
EXIT	ZIS+2, ZIS+6
HEADER	W+5
PRINT	WISDW+13
S	SETARRAY+3, SETARRAY+4, SETARRAY+6, SETARRAY+8, SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+17, SETARRAY+18, COMPS+1 , COMPS+8
S1	S+5, S+7, S+10
SETARRAY	EP1+8
SINGLE	WISD+22
WISD	ONE+2

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+8!, S+3~, S+8, S+9, S1+1*, S1+2
>> APCHOPT	ZIS+3*
APCHPRTH	EP1~, SETARRAY+3
APCHPRV	SETARRAY+2~, SETARRAY+10*, SETARRAY+11, SETARRAY+12, SETARRAY+13
APCHPWHT	EP+3, EP+4, EP1~, EP1+6, EP1+7, COMPS+2, COMPS+3
APCHQUIT	W+2!, W+4, W+5, W+8, HEADER+1*
APCHSCMI	SETARRAY+2~, COMPS+6*, COMPS+7
APCHSCMP	SETARRAY+2~, COMPS+3*, COMPS+4, COMPS+5, COMPS+6
>> APCHSCVD	OUTPUT+2*
APCHSDFN	EP~, EP+4, EP1~, SETARRAY+6, SETARRAY+7, SETARRAY+9, SETARRAY+10, SETARRAY+14, COMPS+1
APCHSO	SETARRAY+2~
>> APCHSORD	COMPS+2*, COMPS+3
>> APCHSQIT	W+8*
>> APCHX	W+4*, W+6
AUPNDAYS	EOJ+7!
AUPNDOB	EOJ+7!
AUPNDOD	EOJ+7!
AUPNPAT	EOJ+7!
AUPNSEX	EOJ+7!
B	EOJ+8!
BDGDEV	WISDW+10, WISDW+11!, WISDW+12, WISD+19, WISD+20!, WISD+21
BIDLLID	EOJ+6!
BIDLLPRO	EOJ+6!
BIDLLRUN	EOJ+6!
BIRESULT	EOJ+6!
BISITE	EOJ+6!
BSDDEV	WISD~, WISD+17
BSDMOD2	SINGLE+3~, SINGLE+6*, SINGLE+13
BSDMODE	WISDW+11, WISD~, WISD+18, WISD+20, SINGLE+6, SINGLE+12, SINGLE+13
BSDNHS	WISD~
BSDT	SINGLE+3~, SINGLE+7, SINGLE+8, SINGLE+9, SINGLE+10, SINGLE+12, SINGLE+17, SINGLE+18, SINGLE+19
C	EOJ+8!, S~, S+7
CLN	SINGLE+3~, SINGLE+9, SINGLE+10, SINGLE+12, SINGLE+16, SINGLE+18, SINGLE+19
DEV	WISDW+5~, WISDW+9, WISDW+10, WISD+6~, WISD+18, WISD+19
DFN	ZIS+1, WISDW~, WISDW+3, OUTPUT+4, WISD~, WISD+3, ONE+1*, ONE+2, SINGLE+8, SINGLE+9 , SINGLE+10, SINGLE+16, SINGLE+18, SINGLE+19, SINGLE+24
DGPGM	WISDW+5~, WISDW+8, WISD+6~, WISD+16
DIR	HEADER+1!
DIR(0	HEADER+1*
>> DIRUT	ZIS+2
>> DIV	WISDW+6, WISD+7
DT	W+3, HEAD1+2, SETARRAY+3, SETARRAY+4, COMPS+8, ONE+2
>> DTOUT	HEADER+1
DUZ	W+3, HEAD1+2, USR+1, SETARRAY+4, COMPS+8
DUZ(2	LOC+1, SETARRAY+6, SETARRAY+8, SETARRAY+14, SETARRAY+17, TERM+2
E	EOJ+8!
EMSG	WISDW~, WISDW+11, WISD~, WISD+20
F	EOJ+8!, S~, S+1, S+5
H	EOJ+8!
IEN	SINGLE+3~, SINGLE+10*, SINGLE+11, SINGLE+12
IO	OUTPUT+1, HEADER+1, SINGLE+2
IO(0	HEADER+1
IOF	HEAD1+1
IOM	CTR+1
>> IOP	WISDW+12, WISD+21
IOSL	W+5
IOST	HEADER+1
J	EOJ+8!
L	EOJ+8!, S+7*
N	EOJ+8!, TERM+1~, TERM+2*, TERM+3, TERM+5
>> ORDER	WISDW+6, WISD+7, SINGLE+12, SINGLE+19, SINGLE+26
P	EOJ+8!, DPCP~, DPCP+2, DPCP+4
PAT	TERM~, TERM+2
POP	WISDW+5~, WISDW+12, WISD+6~, WISD+21
R	DPCP+1~, DPCP+2, DPCP+4, DPCP+5, DPCP+6
R("DESIGNATED	PRIMARY PROVIDER" , DPCP+3
SDATE	WISDW~, WISD~, SINGLE+7, SINGLE+8, SINGLE+17, SINGLE+26
>> SDREP	WISDW+6, WISD+7
>> SDSTART	WISDW+6, WISD+7
>> SDX	WISDW+6, WISD+7
ST	EOJ+8!
ST0	EOJ+8!
T	EOJ+8!, S~, S+2, S+7, S+8, S+9, TERM+1~, TERM+3, TERM+5, TERM+6
U	W+3, HEAD1+2, USR+1, LOC+1, SETARRAY+4, SETARRAY+6, SETARRAY+8, SETARRAY+12, SETARRAY+14, SETARRAY+17 , COMPS+3, COMPS+6, COMPS+7, COMPS+8, DPCP+3, DPCP+4, S1+1, SINGLE+10
VAR	WISDW+5~, WISD+6~, WISD+12*
VAR1	WISDW+5~, WISD+6~, WISD+13*, WISD+17
W	EOJ+8!
X	EOJ+8!, CTR~, CTR+1, SETARRAY+2~, SETARRAY+3, SETARRAY+4, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9 , SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+17, SETARRAY+18, COMPS+8, S+3~, S+5, S+6, S+8 , S+9*, S1+2
>> XBNS	ZIS+4*
>> XBRC	ZIS+4*
>> XBRP	ZIS+4*
>> XBRX	ZIS+4*
Y	ZIS+1*, ZIS+3, EOJ+8!, HEADER+1, CTR~, CTR+1, S~, S+6, S+7, S+9

Customize PDF page

Package: Clinical Scheduling for Windows

Routine: BSDX42

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: