Routine: APCLOS

Package	Total	Call Graph
VA Fileman	4	(,DD)^%DT C^%DTC ^DIC ^DIR
Patient Care Component Reports	3	^APCLFY (EOJ,XTMP)^APCLOSUT DEMOCHK^APCLUTL
IHS VA Utilities	1	^XBDBQUE
Kernel	1	$$FMTE^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
SUF	;
ZIS	;
DX1	;
SELTYP
ED	;get ending date
S	;
SU
1	;
START	;
3	;date range
2	;
EOJ	;ENTRY POINT
EXCL1	;which ones to exclude
O	;
DEMO	;
ERRM
MFY	;MONTH OR FYTODATE
EXCL	;
T	;taxonomy - call qman interface

External References

Name	Field # of Occurrence
^%DT	1+1, 2+19
DD^%DT	ED+1, DEMO+3, DEMO+4
C^%DTC	2+22
PEP^AMQQGTX0	DX1+2, T+3
^APCLFY	2+2
EOJ^APCLOSUT	EOJ+1
XTMP^APCLOSUT	SUF+1
DEMOCHK^APCLUTL	DEMO+1
^DIC	SELTYP+1, SU+1, DX1+1, O+1, T+2
^DIR	SUF+3, MFY+2, BD+1, ED+1, EXCL+7
^XBDBQUE	DEMO+7
$$FMTE^XLFDT	2+7, 2+8, 2+12, 2+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",! Line Location: START+1
Function Call: WRITE	Prompt: !,"******** PCC OPERATIONS SUMMARY REPORT ********",! Line Location: START+3
Function Call: WRITE	Prompt: !!,"This report displays data for a single month or for FY-to-Date for a specific",!,"facility or for the entire SU if all data for the SU is processed on this",!,"computer." Line Location: START+4
Function Call: WRITE	Prompt: !!,"When selecting the period for which the report is to be run, consider whether",!,"or not all data has been entered for that period.",!! Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: SU+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"No facilities selected.",! Line Location: SUF+8
Function Call: WRITE	Prompt: !!!,"Only patients who have charts at the facilities you selected will be included",!,"in this report. Also, only visits to these locations will be counted in the ",!,"visit sections.",! Line Location: SUF+9
Function Call: WRITE	Prompt: !! Line Location: MFY+1
Function Call: WRITE	Prompt: !! Line Location: MFY+2
Function Call: WRITE	Prompt: !!?6,"Current FISCAL Year date range: ",APCL("FY PRINTABLE BDATE")," - ",APCL("FY TODAY") Line Location: 2+6
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: 2+7
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: 2+8
Function Call: WRITE	Prompt: !!?6,"FISCAL Year date range: ",APCL("FY PRINTABLE BDATE")," - ",APCL("FY PRINTABLE EDATE") Line Location: 2+9
Function Call: WRITE	Prompt: ! Line Location: 2+13
Function Call: WRITE	Prompt: ! Line Location: 2+19
Function Call: WRITE	Prompt: !!,"As-of Date cannot be prior to Fiscal Beginning Date!",! Line Location: 2+21
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"Because you have chosen an operations summary type that contains the ambulatory",!,"section, you have the option of excluding certain ICD diagnoses from the",!,"list of top ten diagnoses for ambulatory visits.",! Line Location: EXCL+3
Function Call: WRITE	Prompt: !,"For example, to eliminate Pharmacy refill diagnoses, you need to exclude",!,"ICD-9 code V68.1 and ICD-10 code Z76.0 from this report." Line Location: EXCL+4
Function Call: WRITE	Prompt: !,"Enter the diagnoses to be excluded.",! Line Location: EXCL1+3
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: DX1+1
Function Call: WRITE	Prompt: !!!,"THIS REPORT WILL SEARCH THE ENTIRE PATIENT FILE!",!!,"IT IS STRONGLY RECOMMENDED THAT YOU QUEUE THIS REPORT FOR A TIME WHEN THE",!,"SYSTEM IS NOT IN HEAVY USE!",! Line Location: DEMO+5
Function Call: WRITE	Prompt: ! Line Location: O+1
Function Call: WRITE	Prompt: !!,"Gathering up all the facilities..." Line Location: S+1
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: T+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"ALL locations is NOT an option with this report",! Line Location: T+5
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Must be a valid Month/Year. Enter only a Month and a Year!",! Line Location: ERRM+0
Routine Call	DIC Line Location: SELTYP+1 SU+1 DX1+1 O+1 T+2
Routine Call	DIR Line Location: SUF+3 MFY+2 BD+1 ED+1 EXCL+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLOSC("B"	SELTYP+4
^APCLOST - [#9001003.1]	SELTYP+4
^AUTTLOC - [#9999999.06]	SU, S+2
^AUTTSU - [#9999999.22]	SU, SU+5, SUF+2
^XTMP("APCLSU"	SUF+1!, SUF+8, O+2, S+2, T+5!, T+6*

Label References

Name	Line Occurrences
1	1+3, 1+4
2	MFY+5, 2+7
3	MFY+6
@(	SUF+6
BD	ED+2
EOJ	SELTYP+1, SU+2, SUF+4, DX1+1
ERRM	1+3, 1+4
EXCL	1+8, 2+23, DX1+3
MFY	1+1, 1+2, 2+5, 2+20, 2+21, BD+2, EXCL+8, DEMO+2
SUF	SU+3, SU+4, SUF+7, SUF+8, MFY+3
T	T+5
ZIS	EXCL+1, EXCL1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	1+1, 1+7!, 2+16!, 2+19
%DT("A"	1+1, 2+19
%DT("B"	2+16*
%DT(0	1+1, 2+19
>> APCL("FY BEG	DATE" , 2+7, 2+8, 2+10, 2+12, 2+21
>> APCL("FY END	DATE" , 2+8, 2+16
>> APCL("FY"	2+5
>> APCL("FYEND F	LAG" , 2+1*
>> APCLAMBS	SELTYP+4*, EXCL+1
>> APCLBTH	START+6*, SUF+1, SUF+8, O+2, S+2, T+5, T+6
>> APCLDEMO	DEMO+1, DEMO+2
>> APCLDTP	DEMO+3*
APCLDXT	EXCL+2!, EXCL1+1!, DX1+3, DX1+4!
APCLDXT("*"	DX1+4
APCLEXCL	EXCL+2!, EXCL+6, EXCL+9, EXCL1+2
>> APCLFYB	1+6, 2+10, BD+3*, ED+1
>> APCLFYBY	2+12*
>> APCLFYE	1+6, 2+22, ED+3*, DEMO+4
>> APCLFYEY	DEMO+4*
>> APCLJOB	START+6*, SUF+1, SUF+8, O+2, S+2, T+5, T+6
APCLLOC	SUF+1*, T+1!, T+4, T+5!, T+7!
APCLLOC(	T+6
APCLLOC("*"	T+5
>> APCLLOCT	SUF+5*, SUF+6
>> APCLMFY	MFY+4*
>> APCLMON	1+5*
APCLQUIT	SUF+1!, SUF+7, O+1, T+2, T+4*
>> APCLRPT	SELTYP+2*, SELTYP+4
>> APCLSU	SU+3, SU+5, SUF+2, S+2
>> APCLSUF	SU+3, SU+5
>> B	SU*, SU+3
DA	SUF+3!, EXCL+7!, DX1+1!, O+1!, T+2!
DIC	SELTYP!, SU+1!, DX1+1!, O+1!, T+2*!
DIC("A"	SELTYP, SU, O+1*
DIC("S"	DX1+1, T+2
DIC(0	SELTYP, SU+1, DX1+1, O+1, T+2*
DIR	SUF+2!, SUF+3!, MFY+2!, BD+1!, ED+1!, EXCL+7!
DIR("A"	SUF+3, MFY+2, BD+1, ED+1, EXCL+7*
DIR("B"	SUF+3, EXCL+7
DIR(0	SUF+2, MFY+2, BD+1, ED+1, EXCL+7*
>> DIRUT	SUF+4, MFY+3, BD+1, BD+2, ED+1, ED+2, EXCL+8
DT	2+7, 2+8, 2+16, DEMO+3
>> DTOUT	1+1
>> DUOUT	BD+1, ED+1
DUZ(2	START+1, SU
IOF	START+2
>> S	SU*
U	SELTYP+4, SU, SU+5, SUF+2, S+2
X	SELTYP+4, SU+2, SU+3, 1+2, 1+7!, DX1+1, S+2, T+2, T+6*
>> X1	2+22*
>> X2	2+22*
>> XBNS	DEMO+6*
>> XBRC	DEMO+6*
>> XBRP	DEMO+6*
>> XBRX	DEMO+6*
Y	SELTYP+1, SELTYP+2, SELTYP+4, SU+4, SU+5, SUF+5, MFY+4, MFY+5, MFY+6, 1+3 , 1+4, 1+5, 1+6, 1+7!, 2+20, 2+21, 2+22, BD+3, ED+1, ED+3 , EXCL+9, DX1+1, DX1+2, DEMO+3, DEMO+4, O+1, O+2, T+2, T+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLOS

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: