Routine: APCLADXP

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

Entry Points

Name	Comments	DBIA/ICR reference
START	;
AGE	;
DONE
HEAD
HEAD1	;

External References

Name	Field # of Occurrence
DD^%DT	START+2
DONE^APCLOSUT	DONE
^DIR	HEAD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"TOTAL:" Line Location: START+8
Function Call: WRITE	Prompt: ?J,$J(K,6) Line Location: START+8
Function Call: WRITE	Prompt: ?J,$J(APCLGRAN,6) Line Location: START+9
Function Call: WRITE	Prompt: !,APCLCODE Line Location: AGE+2
Function Call: WRITE	Prompt: ?10,$E(APCLNARR,1,25) Line Location: AGE+2
Function Call: WRITE	Prompt: ?J,$J(K,6) Line Location: AGE+3
Function Call: WRITE	Prompt: ?J,$J(^XTMP("APCLADX",APCLJOB,APCLBT,"TOTAL","CODE",APCLCODE,APCLNARR),6) Line Location: AGE+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),"^",2),?(132-$L(X)/2),X,?120,"Page ",APCLPG,! Line Location: HEAD1+4
Function Call: WRITE	Prompt: ?54,"Diagnoses by Age Report",! Line Location: HEAD1+5
Function Call: WRITE	Prompt: ?5,"Visit Dates: ",APCLBDD," to ",APCLEDD,?52,"Type of Visit: ",$S($D(APCLTYPP):APCLTYPP,1:"ALL"),?90,"Service Category: ",$S($D(APCLSCP):APCLSCP,1:"ALL"),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: ?5,"Location of Encounter: ",$S($D(APCLLOCP):$E(APCLLOCP,1,20),1:"ALL"),?52,"Clinic: ",$S($D(APCLCLNP):APCLCLNP,1:"ALL"),?90,"Sex of Patient: ",$S($D(APCLSEXP):APCLSEXP,1:"BOTH"),! Line Location: HEAD1+7
Function Call: WRITE	Prompt: ?5,"Primary Provider: ",$S($D(APCLPRVP):APCLPRVP,1:"ALL"),?52,"Purpose of Visits: ",$S($D(APCLPRIM):"Primary Only",1:"Primary and Seconday POV's"),!!?61,"AGE GROUPS" Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,"ICD Code",?15,"ICD Narrative" Line Location: HEAD1+9
Function Call: WRITE	Prompt: ?J,K Line Location: HEAD1+9
Function Call: WRITE	Prompt: ?J,"TOTAL" Line Location: HEAD1+10
Function Call: WRITE	Prompt: !,APCL132 Line Location: HEAD1+11
Routine Call	DIR Line Location: HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HEAD1+3
^VA(200 - [#200]	HEAD1+4
^XTMP("APCLADX"	START+5, START+8, DONE+1!, AGE+2, AGE+3, AGE+4

Label References

Name	Line Occurrences
AGE	START+5
DONE	START+6, START+7
HEAD	START+3, START+7, AGE+1
HEAD1	HEAD

Naked Globals

Name	Field # of Occurrence
^(	START+8, AGE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL132	START+1*, HEAD1+11
>> APCLBD	START+2
>> APCLBDD	START+2*, HEAD1+6
>> APCLBIN	START+8, AGE+3, HEAD1+9
>> APCLBT	START+5, START+8, DONE+1, AGE+2, AGE+3, AGE+4
>> APCLCLNP	HEAD1+7
>> APCLCODE	START+3, START+5, AGE+2, AGE+3, AGE+4
>> APCLED	START+2
>> APCLEDD	START+2*, HEAD1+6
>> APCLGRAN	START+9
>> APCLJOB	START+5, START+8, DONE+1, AGE+2, AGE+3, AGE+4
>> APCLLOCP	HEAD1+7
>> APCLNARR	AGE+2*, AGE+3, AGE+4
>> APCLPG	START+3, HEAD, HEAD1+1, HEAD1+4
>> APCLPRIM	HEAD1+8
>> APCLPRVP	HEAD1+8
APCLQUIT	START+4!, START+5, START+6, START+7, AGE+1, HEAD+1*
>> APCLSCP	HEAD1+6
>> APCLSEXP	HEAD1+7
>> APCLTYPP	HEAD1+6
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ	HEAD1+4
DUZ(2	HEAD1+3
I	START+8, AGE+3~, HEAD1+9~*
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+7, AGE+1
IOST	HEAD+1
J	START+8, START+9, AGE+3~, AGE+4, HEAD1+9~*, HEAD1+10
K	START+8, AGE+3~, HEAD1+9~*
>> X	HEAD1+3*, HEAD1+4
>> Y	START+2*, HEAD+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLADXP

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: