Routine: APCHGSUP

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
ZIS	;
HEAD1	;
HEADER	;
SUPP	;
EOJ	;
S1	;
GETPAT	;
S(Y,F,C,T)	;set up array
BROWSE	;
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 Health Summary Supplement *"),!! Line Location: EN+2
Function Call: WRITE	Prompt: ! Line Location: GETPAT+4
Function Call: WRITE	Prompt: !!,"Supplement will not be generated." Line Location: SUPP+5
Function Call: WRITE	Prompt: !!,"That supplement is not available with this option, you will need to",!,"display this supplement with a health summary.",! Line Location: SUPP+6
Function Call: WRITE	Prompt: ! Line Location: ZIS+1
Function Call: WRITE	Prompt: !,"******** CONFIDENTIAL PATIENT INFORMATION ["_$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: GETPAT+1 SUPP+2
Routine Call	DIR Line Location: ZIS+1 HEADER+1

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

Name	Line Occurrences (* Changed, ! Killed)
^APCHSUP - [#9001022]	SUPP+5, SUPP+6, OUTPUT+8
^DD("DD"	OUTPUT+2
^DD("FUNC" - [#.5]	OUTPUT+2
^DIC(4 - [#4]	LOC+1
^TMP("APCHS"	S1+1, S1+2, OUTPUT+7!, W+4, W+6, EOJ+2!
^VA(200 - [#200]	OUTPUT+4, 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, OUTPUT+2, EOJ+4!
>> APCHOPT	ZIS+3*
>> APCHPAGE	OUTPUT+6*
APCHQUIT	OUTPUT+5!, OUTPUT+6, W+2!, W+4, W+5, W+8, HEADER+1
>> APCHSCVD	OUTPUT+3*
>> APCHSDAT	OUTPUT+2*
>> APCHSDFN	GETPAT+3*
>> APCHSHDR	OUTPUT+4*
>> APCHSPAT	GETPAT+3*
>> APCHSQIT	W+8*
>> APCHSTIM	OUTPUT+2*, OUTPUT+4
>> APCHSUPI	SUPP+1, SUPP+4, SUPP+5, SUPP+6, OUTPUT+8
APCHSUPQ	SUPP+5, OUTPUT+1!, OUTPUT+9
>> APCHSUPT	SUPP+1, SUPP+4
>> APCHX	W+4*, W+6
B	EOJ+4!
C	S~, S+7, EOJ+4!
DA	ZIS+1!
>> DFN	GETPAT+3*
DIC	GETPAT+1!, SUPP+2!
DIC("A"	SUPP+2*
DIC("S"	SUPP+2*
DIC(0	GETPAT+1, SUPP+2
DIR	ZIS+1!, HEADER+1!
DIR("A"	ZIS+1*
DIR("B"	ZIS+1*
DIR(0	ZIS+1, HEADER+1
>> DIRUT	ZIS+2
DT	OUTPUT+2, OUTPUT+4, W+3, HEAD1+2
>> DTOUT	HEADER+1
DUZ	OUTPUT+4, W+3, HEAD1+2, USR+1
DUZ(2	LOC+1
E	EOJ+4!
F	S~, S+1, S+5, EOJ+4!
H	EOJ+4!
IO	HEADER+1
IO(0	HEADER+1
IOF	EN+1, W+1, HEAD1+1
IOM	OUTPUT+4, CTR+1
IOSL	W+5
IOST	HEADER+1
L	S+7*, EOJ+4!
N	EOJ+4!
P	EOJ+4!
T	S~, S+2, S+7, S+8, S+9, EOJ+4!
U	S1+1, OUTPUT+4, W+3, HEAD1+2, USR+1, LOC+1
W	EOJ+4!
X	S+3~, S+5, S+6, S+8, S+9, S1+2, OUTPUT+2, OUTPUT+4, EOJ+4!, 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	GETPAT+2, GETPAT+3, SUPP+3, SUPP+4, ZIS+3, ZIS+4, S~, S+6, S+7, S+9 , OUTPUT+2*, EOJ+4!, HEADER+1, CTR~, CTR+1