Routine: APCLCV

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	1	^XBDBQUE
PCC Medical Query	1	PEP^AMQQGTX0
Patient Care Component Reports	1	DEMOCHK^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
ZIS	;
ERR
F	;
ED	;get ending date
CLINIC1	;Get Multiple Clinics in Search
START	;
CLINIC	;
EOJ
YEAR	;Calendar Year Default
INFORM	;
DEMO	;

External References

Name	Field # of Occurrence
DD^%DT	ED+5
C^%DTC	ED+5
PEP^AMQQGTX0	CLINIC1+4
DEMOCHK^APCLUTL	DEMO+1
^DIC	F+6, CLINIC1+3
^DIR	BD+1, ED+1, F+2, CLINIC+3
^XBDBQUE	DEMO+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"This report will be run for ",APCLBDD," to ",APCLEDD,".",! Line Location: ED+8
Function Call: WRITE	Prompt: !! Line Location: CLINIC+1
Function Call: WRITE	Prompt: "OPPS - QMAN NOT CURRENT - QUITTING" Line Location: CLINIC1+3
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Must be a valid Year. Enter a year only!!" Line Location: ERR+0
Function Call: WRITE	Prompt: !,?10,"******** INDIAN/ALASKA NATIVE VISIT COUNTSS ********",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"This report will print Visit Counts for the Facility and Clinic and",!,"Time Frame that you select. Visit Counts are summarized according to" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"Indian/Alaska Native and All Other Beneficiaries.",! Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"Each Classification is Sub-Totaled by the following: " Line Location: INFORM+4
Function Call: WRITE	Prompt: "(1) New Patient's 1st",!,"(2) Established Patient's 1st and (3) All additional Patient's Visits.",! Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"NOTE: Calendar Year Reports must be inclusive & begin with the 1st Day of the",!,?7,"the desired Calendar Year.",! Line Location: INFORM+6
Routine Call	DIC Line Location: F+6 CLINIC1+3
Routine Call	DIR Line Location: BD+1 ED+1 F+2 CLINIC+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Label References

Name	Line Occurrences
BD	ED+2, ED+3
CLINIC	F+5, CLINIC1+5, CLINIC1+8, DEMO+2
EOJ	BD+2, CLINIC1+3, DEMO+5
F	F+6, CLINIC+4
INFORM	START+1
YEAR	ED+6, F+3
ZIS	CLINIC+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+2!
%DT	EOJ+2!
%H	EOJ+2!
%T	EOJ+2!
%W	EOJ+2!
%Y	EOJ+2!
APCL1	EOJ!
APCL132	EOJ+1!
APCL1N	EOJ!
APCL2	EOJ!
APCL2N	EOJ!
APCL3N	EOJ!
APCL4N	EOJ!
APCLAP	EOJ!
APCLAREA	EOJ+1!
APCLAREC	EOJ+1!
APCLBD	BD+3*, ED+1, ED+5, EOJ+3!
APCLBDD	ED+5*, ED+8, EOJ+3!
APCLBT	EOJ!
APCLCL	CLINIC+2*, EOJ+3!
APCLCLAS	EOJ+3!
APCLCLIN	CLINIC+2*, EOJ+3!
APCLCLNT	CLINIC1+1!, CLINIC1+5, CLINIC1+6!, EOJ+3!
APCLCLNT("*"	CLINIC1+6
APCLCLP	EOJ+3!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDISC	EOJ!
APCLDISN	EOJ+1!
APCLDPTR	EOJ!
APCLDT	EOJ+1!
APCLDTE	EOJ+3!
APCLED	ED+4*, ED+5, EOJ+3!
APCLEDD	ED+5*, ED+8, EOJ+3!
APCLET	EOJ+3!
APCLFAC	EOJ+3!
APCLFY	EOJ!
APCLFYD	EOJ!
APCLFYE	EOJ+1!
APCLGN	EOJ!
APCLGRAN	EOJ+1!
APCLJ	EOJ+1!
APCLJOB	EOJ!
APCLLOC	F+1, F+7, EOJ!, EOJ+1!, EOJ+3!
APCLLOCC	EOJ+1!
APCLLOCP	EOJ+1!, EOJ+3!
APCLMOL	EOJ!
APCLMON	EOJ+1!
APCLMOS	EOJ!
APCLP	EOJ+1!
APCLPG	EOJ+1!
APCLPPOV	EOJ!
APCLPRIM	EOJ+1!
APCLPRIT	EOJ+1!
APCLQUIT	EOJ+1!
APCLSD	ED+5*, EOJ!
APCLSDD	EOJ!
APCLSKIP	EOJ!
APCLSU	EOJ+1!
APCLSUC	EOJ+1!
APCLT	EOJ+1!
APCLTAB	EOJ+1!
APCLTRIB	EOJ!
APCLVDFN	EOJ!
APCLVFL	F+4*, F+5, EOJ+3!
APCLVIEN	EOJ+3!
APCLVLOC	EOJ!
APCLVREC	EOJ!
APCLX	EOJ!
APCLYEAR	YEAR+1*, BD+1, EOJ+3!
DA	F+6!, CLINIC1+3!
DFN	EOJ+1!
DIC	F+6!, CLINIC1+3!
DIC("A"	F+6*
DIC("S"	CLINIC1+3*
DIC(0	F+6, CLINIC1+3
DIR	BD+1!, ED+1!, F+2!, CLINIC+3!
DIR("A"	BD+1, ED+1, F+2, CLINIC+3
DIR("B"	BD+1, F+2, CLINIC+3*
DIR(0	BD+1, ED+1, F+2, CLINIC+3
>> DIRUT	BD+1, BD+2, ED+1, ED+2, ED+6, F+2, F+3, CLINIC+3, CLINIC+4
DT	YEAR+1
DTOUT	START+2!, EOJ+2!
DUOUT	START+2!, BD+1, ED+1, F+2, CLINIC+3, EOJ+2!
H	EOJ+2!
IO("Q"	EOJ+2!
IOF	INFORM+1
M	EOJ+2!
POP	EOJ+2!
S	EOJ+2!
TS	EOJ+2!
X	BD+1!, ED+1!, ED+5, CLINIC1+3*, EOJ+2!
X1	ED+5*, EOJ+2!
X2	ED+5*, EOJ+2!
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	BD+1!, BD+3, ED+1!, ED+3, ED+4, ED+5*, F+4, F+6, F+7, CLINIC+5 , CLINIC1+3, CLINIC1+4, CLINIC1+8, EOJ+2!
ZTQUEUED	EOJ+2!
ZTSK	EOJ+2!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCV

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: