Routine: APCHPMH

Name	Comments	DBIA/ICR reference
EN	;
EHR
ZIS	;
HEAD1	;
BROWSE	;
EOJ	;
S1	;
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	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("* Print Patient Wellness 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 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	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)
^APCHPWHT("B"	EHR+1
^DIC(4 - [#4]	LOC+1
^TMP("APCH"	OUTPUT+1!
^TMP("APCHPHS"	S1+1, S1+2, EOJ+2!
^TMP($J	W+4, W+6, EOJ+3!
^VA(200 - [#200]	W+3, HEAD1+2, USR+1

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

Name	Field # of Occurrence
%	S+3~, S+8, S+9, S1+1*, S1+2, EOJ+8!
>> APCHOPT	ZIS+3*
>> APCHPWHT	EHR+1*, EHR+2
APCHQUIT	W+2!, W+4, W+5, W+8, HEADER+1*
>> APCHSCVD	OUTPUT*
APCHSEGN	EN+1~
>> APCHSPAT	OUTPUT+2*
>> APCHSQIT	W+8*
APCHSTYP	EN+1~
>> APCHX	W+4*, W+6
AUPNDAYS	EOJ+7!
AUPNDOB	EOJ+7!
AUPNDOD	EOJ+7!
AUPNPAT	EOJ+7!
AUPNSEX	EOJ+7!
B	EOJ+8!
BIDLLID	EOJ+6!
BIDLLPRO	EOJ+6!
BIDLLRUN	EOJ+6!
BIRESULT	EOJ+6!
BISITE	EOJ+6!
C	S~, S+7, EOJ+8!
DA	ZIS+1!
>> DFN	EN+6*, EHR+2, OUTPUT+2, OUTPUT+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
>> DTOUT	HEADER+1
DUZ	W+3, HEAD1+2, USR+1
DUZ(2	LOC+1
E	EOJ+8!
F	S~, S+1, S+5, EOJ+8!
H	EOJ+8!
IO	HEADER+1
IO(0	HEADER+1
IOF	EN+2, HEAD1+1
IOM	CTR+1
IOSL	W+5
IOST	HEADER+1
J	EOJ+8!
L	S+7*, EOJ+8!
N	EOJ+8!
P	EOJ+8!
ST	EOJ+8!
ST0	EOJ+8!
T	S~, S+2, S+7, S+8, S+9, EOJ+8!
U	S1+1, W+3, HEAD1+2, USR+1, LOC+1
W	EOJ+8!
X	S+3~, S+5, S+6, S+8, S+9, S1+2, EOJ+8!, CTR~, CTR+1
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+5*
>> XBRC	ZIS+5, BROWSE+2
>> XBRP	ZIS+5, BROWSE+1
>> XBRX	ZIS+5, BROWSE+2
Y	EN+5, EN+6, ZIS+3, ZIS+4, S~, S+6, S+7, S+9, EOJ+8!, HEADER+1 , CTR~, CTR+1

Information