Routine: APCLCH2P

Package	Total	Call Graph
Patient Care Component Reports	2	INPT^APCLCH2S DONE^APCLOSUT
DRG Grouper	1	$$ICDDX^ICDEX
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLCH2S

Entry Points

Name	Comments	DBIA/ICR reference
ODX	;
HEAD	;EP
OL	;
HEAD1	;
PRN	;
OLCAT	;
ODXCAT	;
START	;
WODX	;write outpatient diagnoses/pov's
WOCAT	;write outpatient diagnoses/pov's
DONE	;
ODXSUB	;
PRINT	;
OTCAT	;
OT	;
OS	;
OSCAT	;

External References

Name	Field # of Occurrence
INPT^APCLCH2S	WOCAT+7
DONE^APCLOSUT	DONE+1
^DIR	HEAD+2
$$ICDDX^ICDEX	OL+4, OS+4, OT+4
$$FMTE^XLFDT	HEAD1+2, HEAD1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT" Line Location: START+3
Function Call: WRITE	Prompt: ?3,$E($P(APCLL(APCLI),U),1,20),?25,"(",$P(APCLL(APCLI),U,3),")",?35,$J($P(APCLL(APCLI),U,2),6) Line Location: WODX+4
Function Call: WRITE	Prompt: ?46,$E($P(APCLS(APCLI),U),1,20),?68,"(",$P(APCLS(APCLI),U,3),")",?78,$J($P(APCLS(APCLI),U,2),6) Line Location: WODX+5
Function Call: WRITE	Prompt: ?89,$E($P(APCLT(APCLI),U),1,20),?111,"(",$P(APCLT(APCLI),U,3),")",?121,$J($P(APCLT(APCLI),U,2),6) Line Location: WODX+6
Function Call: WRITE	Prompt: !!! Line Location: ODXCAT+3
Function Call: WRITE	Prompt: ?3,$E($P(APCLL(APCLI),U),1,30),?35,$J($P(APCLL(APCLI),U,2),6) Line Location: WOCAT+4
Function Call: WRITE	Prompt: ?46,$E($P(APCLS(APCLI),U),1,30),?78,$J($P(APCLS(APCLI),U,2),6) Line Location: WOCAT+5
Function Call: WRITE	Prompt: ?89,$E($P(APCLT(APCLI),U),1,30),?121,$J($P(APCLT(APCLI),U,2),6) Line Location: WOCAT+6
Function Call: WRITE	Prompt: !,?(132-$L(X)/2),X,! Line Location: ODXSUB+1
Function Call: WRITE	Prompt: !?8,$P(^DIC(4,APCLLFAC,0),U),?51,$P(^DIC(4,APCLSFAC,0),U),?94,$P(^DIC(4,APCLTFAC,0),U),! Line Location: ODXSUB+2
Function Call: WRITE	Prompt: !?3,"DIAGNOSIS/POV (ICD CODES)",?46,"DIAGNOSIS/POV (ICD CODES)",?89,"DIAGNOSIS/POV (ICD CODES)",!?3,"-------------",?46,"------------",?89,"------------" Line Location: ODXSUB+3
Function Call: WRITE	Prompt: !?3,"DIAGNOSTIC CATEGORY",?46,"DIAGNOSTIC CATEGORY",?89,"DIAGNOSTIC CATEGORY",!?3,"-------------------",?46,"-------------------",?89,"-------------------" Line Location: ODXSUB+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?61,$$FMTE^XLFDT(DT),?110,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?40,"*** DIAGNOSES TALLY BY COMMUNITY/FACILITY ***",! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?50,$$FMTE^XLFDT(APCLBD)," to ",$$FMTE^XLFDT(APCLED),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?(132-($L($P(^AUTTCOM(APCLCOM,0),U))+12)/2),"COMMUNITY: ",$P(^AUTTCOM(APCLCOM,0),U),! Line Location: HEAD1+5
Routine Call	DIR Line Location: HEAD+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTCOM - [#9999999.05]	PRN+1, HEAD1+5
^DIC(4 - [#4]	ODXSUB+2
^ICM - [#80.3]	OLCAT+3, OSCAT+3, OTCAT+3
^VA(200 - [#200]	HEAD1+2
^XTMP("APCLCH2"	START+3, DONE+2!, PRN+1, OL+1, OL+2, OL+4, OS+1, OS+2, OS+4, OT+1 , OT+2, OT+4, OLCAT+1, OLCAT+2, OLCAT+3, OSCAT+1, OSCAT+2, OSCAT+3, OTCAT+1, OTCAT+2 , OTCAT+3

Label References

Name	Line Occurrences
DONE	START+3
HEAD	PRINT+1, WODX+2, ODXCAT+2, WOCAT+2
HEAD1	HEAD+1
ODXSUB	ODX+2, WODX+2, ODXCAT+3, WOCAT+2
PRINT	PRN+1
PRN	START+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLBD	HEAD1+4
>> APCLBTH	START+3, DONE+2, PRN+1, OL+1, OL+2, OL+4, OS+1, OS+2, OS+4, OT+1 , OT+2, OT+4, OLCAT+1, OLCAT+2, OLCAT+3, OSCAT+1, OSCAT+2, OSCAT+3, OTCAT+1, OTCAT+2 , OTCAT+3
>> APCLCOM	PRN+1*, OL+1, OL+2, OL+4, OS+1, OS+2, OS+4, OT+1, OT+2, OT+4 , OLCAT+1, OLCAT+2, OLCAT+3, OSCAT+1, OSCAT+2, OSCAT+3, OTCAT+1, OTCAT+2, OTCAT+3, HEAD1+5
>> APCLED	HEAD1+4
>> APCLI	WODX+1, WODX+4, WODX+5, WODX+6, WOCAT+1, WOCAT+4, WOCAT+5, WOCAT+6
>> APCLJOB	START+3, DONE+2, PRN+1, OL+1, OL+2, OL+4, OS+1, OS+2, OS+4, OT+1 , OT+2, OT+4, OLCAT+1, OLCAT+2, OLCAT+3, OSCAT+1, OSCAT+2, OSCAT+3, OTCAT+1, OTCAT+2 , OTCAT+3
APCLL	OL+1!, OLCAT+1!
APCLL(	OL+4, WODX+4, OLCAT+3, WOCAT+4
>> APCLLFAC	PRN+1*, OL+1, OL+2, OL+4, OLCAT+1, OLCAT+2, OLCAT+3, ODXSUB+2
>> APCLPG	START+2, HEAD+1, HEAD1+1, HEAD1+2
APCLQUIT	START+1!, PRN+1, PRINT+1, WODX+1, WODX+2, ODXCAT+2, WOCAT+1, WOCAT+2, HEAD+2*
APCLS	OS+1!, OSCAT+1!
APCLS(	OS+4, WODX+5, OSCAT+3, WOCAT+5
>> APCLSFAC	PRN+1*, OS+1, OS+2, OS+4, OSCAT+1, OSCAT+2, OSCAT+3, ODXSUB+2
APCLT	OT+1!, OTCAT+1!
APCLT(	OT+4, WODX+6, OTCAT+3, WOCAT+6
>> APCLTFAC	PRN+1*, OT+1, OT+2, OT+4, OTCAT+1, OTCAT+2, OTCAT+3, ODXSUB+2
>> APCLTYPE	ODX+1, ODXCAT+1, ODXCAT+3*, ODXSUB+1, ODXSUB+3, ODXSUB+4
>> APCLX	OL+1, OL+2, OL+4, OS+1, OS+2, OS+4, OT+1, OT+2, OT+4, OLCAT+1 , OLCAT+2, OLCAT+3, OSCAT+1, OSCAT+2, OSCAT+3, OTCAT+1, OTCAT+2, OTCAT+3
>> APCLY	OL+2, OL+4, OS+2, OS+4, OT+2, OT+4, OLCAT+2, OLCAT+3, OSCAT+2, OSCAT+3 , OTCAT+2, OTCAT+3
>> C	OL+1, OL+4, OL+5, OS+1, OS+4, OS+5, OT+1, OT+4, OT+5, OLCAT+1* , OLCAT+3, OLCAT+4, OSCAT+1, OSCAT+3, OSCAT+4, OTCAT+1, OTCAT+3*, OTCAT+4
DIR	HEAD+2!
DIR(0	HEAD+2*
DT	HEAD1+2
>> DTOUT	HEAD+2
DUZ	HEAD1+2
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1
IOSL	WODX+2, ODXCAT+2, WOCAT+2
IOST	HEAD+2
>> M	OL+5, OS+5, OT+5, WODX+1, OLCAT+4, OSCAT+4, OTCAT+4, WOCAT+1
U	PRN+1, OL+4, OS+4, OT+4, WODX+4, WODX+5, WODX+6, OLCAT+3, OSCAT+3, OTCAT+3 , WOCAT+4, WOCAT+5, WOCAT+6, ODXSUB+2, HEAD1+2, HEAD1+5
>> X	ODXSUB+1*
>> Y	HEAD+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCH2P

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: