Routine: APCHPRE

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
VA Fileman	2	^DIC ^DIR
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Patient Care Component	1	EP^APCHPRE1
Patient Care Component Reports	1	$$START1^APCLDF

Package

Total

Call Graph

IHS VA Utilities

^XBDBQUE ^XBFMK EN^XBVK

VA Fileman

^DIC ^DIR

Kernel

($$FMADD,$$FMTE)^XLFDT

Patient Care Component

EP^APCHPRE1

Patient Care Component Reports

$$START1^APCLDF

Package	Total	Caller Graph
Patient Care Component	1	APCHPAT

Package

Total

Caller Graph

Patient Care Component

APCHPAT

Entry Points

Name	Comments	DBIA/ICR reference
SDEP	;entry point from Scheduling Package with DFN defined
EN	;
ZIS	;
HEAD1	;
BROWSE	;
EOJ	;
S1	;
V2(P,EDATE)	;
S(Y,F,C,T)	;set up array
HEADER	;
USR()	;EP - Return name of current user from ^VA(200.
LOC()	;EP - Return location name from file 4 based on DUZ(2).
EXIT	;
W	;write out array
CTR(X,Y)	;EP - Center X in a field Y wide.
PRINT	;
OUTPUT

Name	Field # of Occurrence
EP^APCHPRE1	OUTPUT+3
$$START1^APCLDF	V2+5
^DIC	EN+4
^DIR	ZIS+1, HEADER+1
^XBDBQUE	ZIS+6, BROWSE+2, SDEP+8
^XBFMK	EXIT+2
EN^XBVK	EXIT+1
$$FMADD^XLFDT	V2+2
$$FMTE^XLFDT	W+3, HEAD1+2, SDEP+3, V2+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("* Print Patient Medical Handout *"),!! Line Location: EN+3
Function Call: WRITE	Prompt: ! Line Location: EN+7
Function Call: WRITE	Prompt: ! Line Location: ZIS+1
Function Call: WRITE	Prompt: !,"******** Patient Medical 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
Function Call: WRITE	Prompt: !!,"Do you wish to print a Patient Medical Handout to give to the patient?" Line Location: SDEP+5
Function Call: WRITE	Prompt: !,"If so, enter the device to print the handout on, otherwise enter a '^'." Line Location: SDEP+6
Routine Call	DIC Line Location: EN+4
Routine Call	DIR Line Location: ZIS+1 HEADER+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	SDEP+2
^ATXAX - [#9002226]	V2+16
^ATXAX("B"	V2+13
^AUPNVSIT - [#9000010]	V2+8, V2+9, V2+10, V2+11, V2+12, V2+14
^AUPNVSIT("AC"	V2+3
^DIC(4 - [#4]	LOC+1
^SD(409.66 - [#409.66]	SDEP+4
^TMP("APCH"	OUTPUT+1!
^TMP("APCHPHS"	S1+1, S1+2, W+4, W+6, EOJ+1!
^TMP($J	V2+4!, V2+6, V2+7
^VA(200 - [#200]	W+3, HEAD1+2, USR+1

Name	Line Occurrences
$$CTR	EN+3
$$V2	SDEP+3
BROWSE	ZIS+4
EOJ	W+9
EXIT	EN+5, ZIS+2, ZIS+4, ZIS+7
HEADER	W+5
S1	S+5, S+7, S+10

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	S+3~, S+8, S+9, S1+1*, S1+2, EOJ+6!
A	V2+1~, V2+5*
APCHBDAT	V2+1~, V2+2*, V2+5
APCHC	EOJ+5!
APCHCOLO	EOJ+3!
APCHI	EOJ+4!
APCHICTR	EOJ+4!
APCHIMDU	EOJ+4!
APCHIMM	EOJ+4!
APCHIMMN	EOJ+4!
APCHIMMT	EOJ+4!
APCHLBE	EOJ+3!
APCHLCOL	EOJ+3!
APCHLDRE	EOJ+4!
APCHLFGD	EOJ+3!
APCHLFGV	EOJ+3!
APCHLFOB	EOJ+3!
APCHLGLD	EOJ+3!
APCHLGLV	EOJ+3!
APCHLSIG	EOJ+3!
APCHMND	EOJ+4!
APCHMNV	EOJ+4!
APCHOPT	ZIS+3*, EOJ+5!
APCHPND	EOJ+4!
APCHPNV	EOJ+4!
APCHQUIT	W+2!, W+4, W+5, W+8, EOJ+2!, HEADER+1*
APCHSBEG	EOJ+2!
APCHSCRN	EOJ+3!
APCHSCVD	OUTPUT*, EOJ+5!
APCHSDFN	EOJ+2!
APCHSED	EOJ+2!
APCHSPAT	OUTPUT+2*, EOJ+2!
>> APCHSQIT	W+8*
APCHSTOB	EOJ+2!
APCHSUPI	EOJ+2!
APCHTOB	EOJ+2!
APCHTOBN	EOJ+2!
APCHX	W+4*, W+6, EOJ+2!
APCHY	EOJ+2!
B	EOJ+6!, V2+1~, V2+5*
C	S~, S+7, EOJ+6!, V2+1~, V2+14*, V2+15, V2+16
DA	ZIS+1!
>> DFN	EN+6*, OUTPUT+2, OUTPUT+3, SDEP+3
DIC	EN+4!*
DIC(0	EN+4*
DIR	ZIS+1!, HEADER+1!
DIR("A"	ZIS+1*
DIR("B"	ZIS+1*
DIR(0	ZIS+1, HEADER+1
>> DIRUT	ZIS+2
DT	W+3, HEAD1+2, SDEP+3, V2+2
>> DTOUT	HEADER+1
DUZ	W+3, HEAD1+2, USR+1
DUZ(2	LOC+1, SDEP+2, V2+12
E	EOJ+6!, V2+5*
EDATE	V2~, V2+5
F	S~, S+1, S+5, EOJ+6!
G	V2+1~, V2+7, V2+17, V2+19
H	EOJ+6!
IO	HEADER+1
IO(0	HEADER+1
IOF	EN+2, W+1, HEAD1+1
IOM	CTR+1
IOSL	W+5
IOST	HEADER+1
L	S+7*, EOJ+6!
N	EOJ+6!
P	EOJ+6!, V2~, V2+3, V2+5
>> SDAMEVT	SDEP+4
T	S~, S+2, S+7, S+8, S+9, EOJ+6!, V2+13*, V2+16
U	S1+1, W+3, HEAD1+2, USR+1, LOC+1, SDEP+2, SDEP+4, V2+7, V2+9, V2+10 , V2+11, V2+12, V2+14
V	V2+1~, V2+7*, V2+8, V2+9, V2+10, V2+11, V2+12, V2+14
W	EOJ+6!
X	S+3~, S+5, S+6, S+8, S+9, S1+2, EOJ+6!, CTR~, CTR+1, V2+1~ , V2+7*
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+5, SDEP+7
>> XBRC	ZIS+5, BROWSE+2, SDEP+7*
>> XBRP	ZIS+5, BROWSE+1, SDEP+7*
>> XBRX	ZIS+5, BROWSE+2, SDEP+7*
Y	EN+5, EN+6, ZIS+3, ZIS+4, S~, S+6, S+7, S+9, EOJ+6!, HEADER+1 , CTR~, CTR+1

Customize PDF page

Package: Patient Care Component

Routine: APCHPRE

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: