Routine: APCL1HP

Information

APCL1HP ; IHS/CMI/LAB - print report 2A ;

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	DONE^APCLOSUT

Name	Comments	DBIA/ICR reference
HEAD
HEAD1	;
P	;
START2
START	;
DONE	;
MONTOT	;set up month totals for all discharges

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO VISITS FOR THIS FISCAL YEAR",! Line Location: START2+2
Function Call: WRITE	Prompt: !!," T O T A L",?29,$J(APCLGRAN,6) Line Location: START2+6
Function Call: WRITE	Prompt: ?APCLTAB,$J(APCLMON,6) Line Location: START2+7
Function Call: WRITE	Prompt: ! Line Location: START2+8
Function Call: WRITE	Prompt: !,APCLLOCN,?29,$J(APCLT,6) Line Location: P+4
Function Call: WRITE	Prompt: ?APCLTAB,$J(APCLMON,6) Line Location: P+5
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: APCL132,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?25,"NUMBER OF HOSPITAL DISCHARGES BY MONTH OF DISCHARGE FISCAL YEAR",APCLFYD Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"AREA: ",APCLAREC," ",APCLAREA,?105,APCLDT,?120,"Page ",APCLPG Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,APCL132,! Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,"HOSPITAL NAME",?30,"YR-TO",! Line Location: HEAD1+6
Function Call: WRITE	Prompt: ?30,"DATE" Line Location: HEAD1+7
Function Call: WRITE	Prompt: ?APCLTAB,$P(APCLMOL,",",APCLX) Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,APCL132 Line Location: HEAD1+9
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUTTAREA - [#9999999.21]	START+5, START+6
^DIC(4 - [#4]	P+3
^XTMP("APCL1H"	START2+3, START2+7, DONE+2!, P+2, P+5, MONTOT+1

Name	Field # of Occurrence
^(	START2+7, P+5, MONTOT+1*

Name	Field # of Occurrence
>> APCL132	START+2*, HEAD1+2, HEAD1+5, HEAD1+9
>> APCLAREA	START+5, START+6, HEAD1+4
>> APCLAREC	START+5, START+6, HEAD1+4
>> APCLBT	START2+3, START2+7, DONE+2, P+2, P+5, MONTOT+1
>> APCLDT	START+1, START+4, HEAD1+4
>> APCLFYD	START+4*, HEAD1+3
>> APCLFYE	START+4
>> APCLGRAN	START2+2, START2+6
>> APCLJ	START2+7, P+5, MONTOT+1
>> APCLJOB	START2+3, START2+7, DONE+2, P+2, P+5, MONTOT+1
>> APCLLOC	START2, START2+3, P+2, P+3, P+5
>> APCLLOCN	P+3*, P+4
>> APCLMOL	START+3*, HEAD1+8
>> APCLMON	START2+7, P+5, MONTOT+1
>> APCLPG	START2, HEAD, HEAD1+1, HEAD1+4
APCLQUIT	START2+1!, START2+3, START2+4, START2+5, P+1, HEAD+1*
>> APCLT	P+2*, P+4
>> APCLTAB	START2+7, P+5, HEAD1+8*
>> APCLX	HEAD1+8*
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	START+1, START+4
>> DTOUT	HEAD+1
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START2+5, P+1
IOST	HEAD+1
U	START+6, P+3
>> Y	START+4*, HEAD+1