Routine: APCLAP1P

Information

APCLAP1P ; IHS/CMI/LAB - print apc report ;

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !?61,"-------",! Line Location: START+9
Function Call: WRITE	Prompt: ?52,"Total:",?60,$J(APCLTOT,8),! Line Location: START+10
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: APCL80S,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: "",?3,$P(^DIC(4,APCLSITE,0),U),?58,APCLDT,?72,"Page ",APCLPG,?78,"",! Line Location: HEAD1+3
Function Call: WRITE	Prompt: "",?78,"",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: "",?((80-APCLLENG)/2),"NUMBER OF APC VISITS BY ",APCLTITL,?78,"",! Line Location: HEAD1+6
Function Call: WRITE	Prompt: "",?((80-APCLLENG)/2),"LOCATION OF VISITS: ",APCLLOCT,?78,"",! Line Location: HEAD1+9
Function Call: WRITE	Prompt: "",?18,"REPORT DATE: ",APCLBDD," TO ",APCLEDD,?78,"",! Line Location: HEAD1+10
Function Call: WRITE	Prompt: APCL80S,! Line Location: HEAD1+11
Function Call: WRITE	Prompt: !! Line Location: HEAD1+12
Function Call: WRITE	Prompt: ?5,APCLHD1,?35,APCLHD2,?60,"# VISITS",! Line Location: HEAD1+13
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HEAD1+3
^XTMP("APCLAP1"	START+6, DONE+2!, P+1, P+5, P+6

Name	Field # of Occurrence
>> APCL80S	START+1*, HEAD1+2, HEAD1+11
>> APCLBD	START+3
>> APCLBDD	START+3*, HEAD1+10
>> APCLBTH	START+6, DONE+2, P+1, P+5, P+6
>> APCLDT	START+2*, HEAD1+3
>> APCLED	START+3
>> APCLEDD	START+3*, HEAD1+10
>> APCLHD1	HEAD1+13
>> APCLHD2	HEAD1+13
>> APCLJOB	START+6, DONE+2, P+1, P+5, P+6
>> APCLLENG	HEAD1+5, HEAD1+6, HEAD1+8, HEAD1+9
>> APCLLOC	HEAD1+7
>> APCLLOCT	HEAD1+7*, HEAD1+8, HEAD1+9
>> APCLPG	START+4, HEAD, HEAD1+1, HEAD1+3
>> APCLPRNT	P+4*, P+5
>> APCLPROC	P+4
APCLQUIT	START+5!, START+6, START+7, START+8, P+1, P+2, HEAD+1*
>> APCLSITE	HEAD1+3
>> APCLSORT	START+5, START+6, P+1, P+4, P+5, P+6
>> APCLSRT2	P+1*, P+5, P+6
>> APCLTITL	HEAD1+5, HEAD1+6
>> APCLTOT	START+4, START+10, P+6
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	START+2
>> DTOUT	HEAD+1
>> I	START+6*
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+8, P+2
IOST	HEAD+1
U	HEAD1+3
>> Y	START+3, P+4, HEAD+1