Routine: APCLADX

Package	Total	Call Graph
VA Fileman	3	DD^%DT C^%DTC ^DIR
Patient Care Component Reports	2	^APCLADX0 DEMOCHK^APCLUTL
IHS VA Utilities	1	^XBDBQUE

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
BIN
SET
RUN	;
SETBIN	;
FILT	;
POV	;
ED	;get ending date
AGE	;
LIST	;
EXIT	;
GETDATES	;
GC	;
DEMO	;
CLOSE
ZIS	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
^APCLADX0	FILT+9
DEMOCHK^APCLUTL	DEMO+1
^DIR	BD+1, ED+1, FILT+6, POV+3, BIN+2, AGE+2, GC+1
^XBDBQUE	DEMO+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?15,"*** FREQUENCY OF DIAGNOSES BY AGE REPORT ***",!! Line Location: APCLADX+2
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"When I search the database, I can ""screen"" POVs according to any one of the",!,"following attributes:" Line Location: FILT+3
Function Call: WRITE	Prompt: !?15,"PATIENT SEX",!?15,"FACILITY OF ENCOUNTER",!?15,"PRIMARY PROVIDER",!?15,"CLINIC TYPE" Line Location: FILT+4
Function Call: WRITE	Prompt: !?15,"SERVICE CATEGORY (Hospitalizations, Ambulatory, Chart Reviews",!?33," Nursing Home, etc.)",!?15,"VISIT TYPE (IHS, Contract, Tribal, 638, Other, VA)",! Line Location: FILT+5
Function Call: WRITE	Prompt: !,"The Age Groups to be used are currently defined as:",! Line Location: BIN+1
Function Call: WRITE	Prompt: ! Line Location: RUN+1
Function Call: WRITE	Prompt: $C(7) Line Location: AGE+7
Function Call: WRITE	Prompt: !,"Make sure the age is higher the beginning age of the previous group.",! Line Location: AGE+7
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: GC+5
Function Call: WRITE	Prompt: !,$P(X,"-")," - ",$P(X,"-",2) Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: LIST+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"THIS REPORT SHOULD BE PRINTED ON 132 COLUMN PAPER OR ON A PRINTER THAT IS",!,"SET UP FOR CONDENSED PRINT!!!",!,"IF YOU DO NOT HAVE SUCH A PRINTER AVAILABLE - SEE YOUR SITE MANAGER.",! Line Location: DEMO+3
Routine Call	DIR Line Location: BD+1 ED+1 FILT+6 POV+3 BIN+2 AGE+2 GC+1

Label References

Name	Line Occurrences
AGE	RUN+1
BD	ED+2
BIN	RUN+1, RUN+2
CLOSE	RUN+2, GC+5
ED	FILT+7
EXIT	APCLADX+3, BD+2, DEMO+2, DEMO+6
FILT	FILT+10, FILT+11, POV+4
LIST	BIN+1, RUN+3
POV	FILT+8, BIN+3
RUN	AGE+7
SET	AGE+6
SETBIN	BIN
ZIS	BIN+4, RUN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LIST+1*, LIST+2, EXIT+1!
A	EXIT+1!
APCL132	EXIT+3!
APCLA	RUN+1, AGE+6, SET, GC+4, EXIT+3!
APCLALL	POV+1!, POV+5*, EXIT+2!
APCLBD	BD+3*, ED+1, ED+4, EXIT+1!
APCLBDD	EXIT+3!
APCLBIN	GC+4, LIST+1, SETBIN+1, EXIT+3!
APCLBT	EXIT+4!
APCLC	EXIT+1!
APCLCATP	EXIT+1!
APCLCLN	FILT+2!, EXIT+1!
APCLCLNP	EXIT+1!
APCLCODE	EXIT+3!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDOB	EXIT+3!
APCLDOB1	FILT+2!
APCLDOB2	FILT+2!
APCLDOBS	EXIT+3!
APCLED	ED+3*, EXIT+1!
APCLEDD	EXIT+3!
APCLF2	EXIT+3!
APCLFAC	FILT+2!, EXIT+1!
APCLFACP	EXIT+3!
APCLFOUN	EXIT+3!
APCLGRAN	EXIT+4!
APCLJOB	EXIT+1!
APCLLINO	EXIT+2!
APCLLOCP	EXIT+1!
APCLNARR	EXIT+1!
APCLNN	EXIT+3!
APCLODAT	EXIT+3!
APCLPG	EXIT+3!
APCLPOV	EXIT+2!
APCLPOVN	EXIT+2!
APCLPREC	EXIT+1!
APCLPRIM	POV+1!, POV+6*, EXIT+2!
APCLPROV	FILT+2!, EXIT+2!
APCLPRVP	EXIT+3!
APCLQUIT	FILT+1, FILT+11, RUN+1!, RUN+2, AGE+3, GC+2, EXIT+2!
APCLSC	FILT+2!, EXIT+1!
APCLSCP	FILT+2!, EXIT+2!
APCLSD	ED+4*, EXIT+1!
APCLSEX	FILT+2!, EXIT+1!
APCLSEXP	EXIT+3!
APCLTAB	EXIT+3!
APCLTOT	EXIT+2!
APCLTYPE	FILT+2!, EXIT+1!
APCLTYPP	FILT+2!, EXIT+2!
APCLV	EXIT+2!
APCLVDFN	EXIT+3!
APCLVSIT	EXIT+2!
APCLVTOT	EXIT+2!
>> APCLX	RUN+1, AGE+1, AGE+4, AGE+6, SET, SET+1, SET+2, GC+3*, GC+4
>> APCLY	RUN+1, AGE+2, SET+1, SET+2, CLOSE, GC+4
APCLZ	EXIT+3!
B	EXIT+1!
C	EXIT+1!
DIC	EXIT+1!
DIR	BD+1!, ED+1!, FILT+6!, POV+3!, BIN+2!, AGE+2!, GC+1!, EXIT+1!
DIR("?"	FILT+6, POV+3
DIR("A"	BD+1, ED+1, FILT+6, POV+2, BIN+2, AGE+2, GC+1*
DIR("B"	FILT+6*
DIR(0	BD+1, ED+1, FILT+6, POV+2, BIN+2, AGE+2, GC+1*
>> DIRUT	BD+1, BD+2, ED+1, ED+2, FILT+6, FILT+7, FILT+10, POV+4, BIN+3, AGE+2 , GC+1*
>> DTOUT	AGE+3, GC+2
>> DUOUT	BD+1, ED+1, FILT+6, AGE+2, AGE+3, GC+1, GC+2
E	EXIT+1!
F	EXIT+1!
G	EXIT+1!
I	LIST+2*, EXIT+2!
J	EXIT+1!
K	EXIT+1!
L	EXIT+2!
M	EXIT+1!
S	EXIT+1!
X	ED+4, LIST+2*, EXIT+1!
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	DEMO+4*
>> XBRC	DEMO+4*
>> XBRP	DEMO+4*
>> XBRX	DEMO+4*
Y	BD+3, ED+1*, ED+3, FILT+8, POV+5, POV+6, BIN+4, AGE+4, AGE+5, GC+3 , EXIT+1!
Z	EXIT+1!
ZTQUEUED	EXIT+1!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLADX

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: