Routine: APCLCP9P

Package	Total	Call Graph
VA Fileman	3	DD^%DT NOW^%DTC ^DIR
Patient Care Component Reports	2	$$CTR^APCLCP1P DONE^APCLOSUT
DRG Grouper	1	$$ICDDX^ICDEX

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E($P($$ICDDX^ICDEX(APCLCODE),U,4),1,26),?42,$J($S($D(^XTMP("APCLCP9",APCLJOB,APCLBT,APCLSUF,APCLCODE,"TOTAL")):^("TOTAL"),1:0),7) Line Location: P+3
Function Call: WRITE	Prompt: !,$E($P(@G@(0),U,APCLPIEC),1,26),?42,$J($S($D(^XTMP("APCLCP9",APCLJOB,APCLBT,APCLSUF,APCLCODE,"TOTAL")):^("TOTAL"),1:0),7) Line Location: P+4
Function Call: WRITE	Prompt: ?(80-(15+APCLLENG)/2),"SERVICE UNIT: ",$P(^AUTTSU(APCLSUF,0),U),! Line Location: SUBHEAD+3
Function Call: WRITE	Prompt: !,"PRIMARY DX",?38,"TOTAL PATIENT CONTACTS" Line Location: SUBHEAD+4
Function Call: WRITE	Prompt: !,APCL80S,! Line Location: SUBHEAD+5
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD1+2
Function Call: WRITE	Prompt: APCLDT,?72,"Page ",APCLPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?(80-(46+APCLLENG)/2),"TOP TEN PRIMARY DX REPORT BY SERVICE UNIT ",$P(^APCLACTG(APCLACTG,0),U)," STAFF",! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?18,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,! Line Location: HEAD1+6
Function Call: WRITE	Prompt: $$CTR^APCLCP1P(X),! Line Location: HEAD1+9
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^APCLACTG - [#9001003.6]	HEAD1+4, HEAD1+5
^AUTTSU - [#9999999.22]	SUBHEAD+2, SUBHEAD+3
^DIC(40.7 - [#40.7]	HEAD1+8
^XTMP("APCLCP9"	START+7, DONE+2!, NUM+1, P+3, P+4

Name	Field # of Occurrence
^("TOTAL"	P+3, P+4

Name	Field # of Occurrence
>> APCL80S	START+1*, SUBHEAD+5
>> APCLACTG	HEAD1+4, HEAD1+5
>> APCLBD	START+3
>> APCLBDD	START+3*, HEAD1+6
>> APCLBT	START+7, DONE+2, NUM+1, P+3, P+4
>> APCLCLN	HEAD1+7, HEAD1+8
>> APCLCLN(	HEAD1+8
>> APCLCNT	START+4, START+7, P+5
>> APCLCODE	NUM+1*, P+2, P+3, P+4
>> APCLDT	START+2*, HEAD1+3
>> APCLED	START+3
>> APCLEDD	START+3*, HEAD1+6
>> APCLGLOB	P+2, P+3
>> APCLJOB	START+7, DONE+2, NUM+1, P+3, P+4
>> APCLLENG	SUBHEAD+2, SUBHEAD+3, HEAD1+4, HEAD1+5
>> APCLNUM	START+4, START+7, NUM+1
>> APCLPG	START+4, HEAD, HEAD1+1, HEAD1+3
>> APCLPIEC	P+4
APCLQUIT	START+5!, START+7, P+1, SUBHEAD+1, HEAD+1*
>> APCLSU	SUBHEAD+2
>> APCLSUF	START+7, NUM+1, P+3, P+4, SUBHEAD+3
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
>> G	P+2*, P+4
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	P+1
IOST	HEAD+1
U	P+3, P+4, SUBHEAD+2, SUBHEAD+3, HEAD1+4, HEAD1+5, HEAD1+8
>> X	START+2, HEAD1+7, HEAD1+8, HEAD1+9
>> Y	START+2, START+3, HEAD+1, HEAD1+8*