Routine: APCL2A

Package	Total	Call Graph
Patient Care Component Reports	2	^APCLFY DEMOCHK^APCLUTL
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	^XBDBQUE
Kernel	1	$$FMTE^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
OLOC	;one location
ZIS	;
ERR
F	;
DEMO	;
SLOC	;taxonomy of locations
START	;
EOJ
FY
FAC	;
INFORM	;

External References

Name	Field # of Occurrence
PEP^AMQQGTX0	SLOC+2
^APCLFY	FY
DEMOCHK^APCLUTL	DEMO+1
^DIC	OLOC+1, SLOC+1
^DIR	FAC+6
^XBDBQUE	ZIS+2
$$FMTE^XLFDT	FY+6, FY+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?6,"Current FISCAL Year date range: ",APCL("FY PRINTABLE BDATE")," - ",APCL("FY TODAY") Line Location: FY+4
Function Call: WRITE	Prompt: !!?6,"FISCAL Year date range: ",APCL("FY PRINTABLE BDATE")," - ",APCL("FY PRINTABLE EDATE") Line Location: FY+5
Function Call: WRITE	Prompt: $C(7),$C(7),!!?6,"You have selected a FY with a beginning date that is in the future!!",!,?6,$$FMTE^XLFDT(APCL("FY BEG DATE"))," Select again!",! Line Location: FY+6
Function Call: WRITE	Prompt: !!?6,"FISCAL Year date range: ",$$FMTE^XLFDT(APCL("FY BEG DATE"))," - ",$S(APCL("FY END DATE")>DT:$$FMTE^XLFDT(DT),1:$$FMTE^XLFDT(APCL("FY END DATE"))) Line Location: FY+7
Function Call: WRITE	Prompt: ! Line Location: FY+11
Function Call: WRITE	Prompt: !!,"Your provider class file does not contain the 1A workload reportable flags.",!,"This report cannot be run accurately until AUM Patch 6 is installed.",!! Line Location: F+1
Function Call: WRITE	Prompt: !!,$G(IORVON)_"Please enter which FACILITY visits will be included in the list."_$G(IORVOFF),! Line Location: FAC+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"THIS REPORT MUST 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: FAC+11
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: !,"******** PCC/APC REPORT 1A ********",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"This report will print Year to Date Ambulatory Visit Counts for the Facility",!,"and Fiscal Year that you select. The counts by month are for date of" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"service. This report will resemble, but not duplicate exactly, the",!,"APC 1A report produced at the IHS Data Warehouse in Albuquerque.",!! Line Location: INFORM+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: SLOC+1
Function Call: WRITE	Prompt: !!,"** all locations cannot be selected **",! Line Location: SLOC+4
Routine Call	DIC Line Location: OLOC+1 SLOC+1
Routine Call	DIR Line Location: FAC+6

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

>>	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!
APCL	EOJ+1!
APCL("FY BEG	DATE" , FY+6, FY+7, FY+8
APCL("FY END	DATE" , FY+7, FY+9
APCL("FY WORK	ING DT" , FY+10
APCL("FY"	FY+3
APCL1	EOJ!
APCL132	EOJ+1!
APCL2	EOJ!
APCLAP	EOJ!
APCLAREA	EOJ+1!
APCLAREC	EOJ+1!
APCLBT	EOJ!
APCLCLIN	EOJ!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDISC	EOJ!
APCLDISN	EOJ+1!
APCLDPTR	EOJ!
APCLDT	EOJ+1!
APCLFY	FY+8*, EOJ!
APCLFYD	EOJ!
APCLFYE	FY+9*, EOJ+1!
APCLGRAN	EOJ+1!
APCLJ	EOJ+1!
APCLJOB	EOJ!
APCLLOC	EOJ!, EOJ+1!
APCLLOCC	EOJ+1!
APCLLOCP	EOJ+1!
APCLLOCS	FAC+4!, SLOC+3, SLOC+4!
APCLLOCS(	OLOC+3*
APCLLOCS("*"	SLOC+4
>> APCLLOCT	FAC+3, FAC+8, FAC+9
APCLMOL	EOJ!
APCLMON	EOJ+1!
APCLMOS	EOJ!
APCLP	EOJ+1!
APCLPDC	EOJ+1!
APCLPG	EOJ+1!
APCLPPOV	EOJ!
APCLPRIM	EOJ+1!
APCLPRIT	EOJ+1!
APCLQ	FAC+1!, FAC+10, OLOC+2, SLOC+1, SLOC+3*
APCLQUIT	EOJ+1!
APCLSD	FY+10*, EOJ!
APCLSKIP	EOJ!
APCLSU	EOJ+1!
APCLSUC	EOJ+1!
APCLT	EOJ+1!
APCLTAB	EOJ+1!
APCLVDFN	EOJ!
APCLVLOC	EOJ!
APCLVREC	EOJ!
APCLX	EOJ!
DA	FAC+6!, SLOC+1!
DFN	EOJ+1!
DIC	OLOC+1!, SLOC+1!
DIC("A"	OLOC+1*
DIC("S"	SLOC+1*
DIC(0	OLOC+1, SLOC+1
DIR	FAC+6!
DIR("A"	FAC+5, FAC+6
DIR("B"	FAC+5, FAC+6
DIR(0	FAC+5*
>> DIRUT	FAC+7
DT	FY+6, FY+7
DTOUT	START+2!, FY+3, EOJ+2!
DUOUT	START+2!, EOJ+2!
H	EOJ+2!
IO("Q"	EOJ+2!
IOF	INFORM+1
>> IORVOFF	FAC+2
>> IORVON	FAC+2
M	EOJ+2!
POP	EOJ+2!
S	EOJ+2!
TS	EOJ+2!
X	EOJ+2!, SLOC+1*
X1	EOJ+2!
X2	EOJ+2!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	FAC+8, EOJ+2!, OLOC+2, OLOC+3, SLOC+1, SLOC+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCL2A

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:

Name	Line Occurrences
@(	FAC+9
EOJ	FY+3, ZIS+3
FAC	FAC+10
FY	FY+6, FAC+7, DEMO+2
INFORM	START+1
SLOC	SLOC+4