Routine: APCLIPCT

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIR
IHS VA Utilities	1	^XBDBQUE

Entry Points

Name	Comments	DBIA/ICR reference
SUF
ZIS	;
SBT	;subtotal by tribe?
F	;
ED
VL
INIT	;
SBC	;subtotal by community
START	;
S
QUIT
PCTEOJ
IND	;
SD	;

External References

Name	Field # of Occurrence
^%DT	SD+3, ED
^DIC	F+1, S+1
^DIR	SUF, VL, IND+1, SBT+2, SBC+1
^XBDBQUE	ZIS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: S+0
Function Call: WRITE	Prompt: ! Line Location: S+1
Function Call: WRITE	Prompt: ! Line Location: IND+1
Function Call: WRITE	Prompt: ! Line Location: SD+1
Function Call: WRITE	Prompt: ! Line Location: SD+3
Function Call: WRITE	Prompt: ! Line Location: ED+0
Function Call: WRITE	Prompt: !!,"Ending Date cannot be before Starting Date! Please reenter.",! Line Location: ED+3
Function Call: WRITE	Prompt: ! Line Location: SBT+2
Function Call: WRITE	Prompt: ! Line Location: SBC+1
Function Call: WRITE	Prompt: !!!,"THIS REPORT WILL SEARCH THE ENTIRE PATIENT AND VISIT FILES!",!!,"IT IS STRONGLY RECOMMENDED THAT YOU QUEUE THIS REPORT FOR A TIME WHEN THE",!,"SYSTEM IS NOT IN HEAVY USE!",! Line Location: SBC+4
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",! Line Location: INIT+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"Report Type Missing!!",! Line Location: INIT+2
Function Call: WRITE	Prompt: !!,"This Option will search the Patient file for all patients registered",!,"at the Service Unit or the facility that you select.",! Line Location: INIT+4
Function Call: WRITE	Prompt: "A Report will result which will give the following counts:",! Line Location: INIT+5
Function Call: WRITE	Prompt: ?5,"- All Living Patients registered at the facility or SU selected",! Line Location: INIT+6
Function Call: WRITE	Prompt: ?5,"- All Patients seen in the INPATIENT Visit Date Range specified",! Line Location: INIT+7
Function Call: WRITE	Prompt: ?5,"- Total number of INPATIENT Visits by these patients",! Line Location: INIT+8
Function Call: WRITE	Prompt: ?5,"- Total number of APC Visits by these patients",! Line Location: INIT+9
Function Call: WRITE	Prompt: ?5,"- Total number of Primary Care Provider Visits by these patients",! Line Location: INIT+10
Function Call: WRITE	Prompt: "The report will be sorted by ",$S(APCLSORT="C":"COMMUNITY OF RESIDENCE",APCLSORT="T":"TRIBE OF MEMBERSHIP",1:"SERVICE UNIT OF RESIDENCE"),".",!! Line Location: INIT+11
Routine Call	DIC Line Location: F+1 S+1
Routine Call	DIR Line Location: SUF VL IND+1 SBT+2 SBC+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTTSU - [#9999999.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	F+3, S
^AUTTSU - [#9999999.22]	S
^DD("DD"	SD+2, SD+5, ED+2

Label References

Name	Line Occurrences
IND	VL+3, S+2, SD+4
INIT	START+1
QUIT	START+2, SUF+1, F+1, S+3, ZIS+3
S	SUF+3
SBC	SBT+1
SD	ED+1, ED+3, SBT+3, SBC+2
SUF	VL+1, IND+2
ZIS	SBT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	SD+3*, ED!, PCTEOJ!
%DT("A"	SD+3, ED
APCL	PCTEOJ+1!
APCL1	PCTEOJ+2!
APCL2	PCTEOJ+2!
APCL3	PCTEOJ+1!
APCL4	PCTEOJ+1!
APCL5	PCTEOJ+1!
APCL80D	PCTEOJ+1!
APCLACT	PCTEOJ+2!
APCLACTT	PCTEOJ+2!
APCLAP	PCTEOJ+2!
APCLAPC	PCTEOJ+2!
APCLAPCT	PCTEOJ+2!
APCLBT	PCTEOJ+3!
APCLCLIN	PCTEOJ+3!
APCLCNT	PCTEOJ+1!
APCLCNTT	PCTEOJ+2!
APCLCOMM	PCTEOJ+1!
APCLCOMN	PCTEOJ+2!, PCTEOJ+3!
APCLDFN	PCTEOJ+1!
>> APCLDIC("B"	S*, PCTEOJ+1!
APCLDICB	S*, S+2, PCTEOJ+1!
APCLDISC	PCTEOJ+2!
APCLDTP	SD+2*, PCTEOJ+2!
APCLED	ED+2*, ED+3, PCTEOJ+1!
APCLEDY	ED+2*, PCTEOJ+1!
APCLFS	SUF+2*, PCTEOJ+1!
APCLFYB	PCTEOJ+1!
APCLFYE	PCTEOJ+1!
APCLGOT1	PCTEOJ+1!
APCLGOTA	PCTEOJ+2!
APCLGOTB	PCTEOJ+2!
APCLHRN	PCTEOJ+1!
APCLI	PCTEOJ+3!
APCLIND	IND+1, IND+3, PCTEOJ+3!
APCLJ	PCTEOJ+1!
APCLJOB	PCTEOJ+3!
APCLLOCC	PCTEOJ+2!
APCLMAJ	PCTEOJ+3!
APCLMIN	PCTEOJ+3!
APCLP	PCTEOJ+3!
APCLPAR	PCTEOJ+2!
APCLPCP	PCTEOJ+2!
APCLPCPT	PCTEOJ+2!
APCLPG	PCTEOJ+1!
APCLPPOV	PCTEOJ+3!
APCLQUIT	START+2, PCTEOJ+2!, INIT+1, INIT+2
APCLSBT	PCTEOJ+2!
APCLSD	SD+5*, ED+3, PCTEOJ+1!
APCLSDY	SD+5*, PCTEOJ+1!
APCLSKIP	PCTEOJ+2!
APCLSORT	SBT+1, PCTEOJ+3!, INIT+2, INIT+11
APCLSU	F+2, F+3, S+2, S+4*, PCTEOJ+1!
APCLSUB	SBT+2, SBT+4, SBC+1, SBC+3, PCTEOJ+3!
APCLSUF	SUF, F+3, S+2, S+4, PCTEOJ+3!
APCLSUN	PCTEOJ+3!
APCLSUP	PCTEOJ+2!
APCLSUR	PCTEOJ+3!
APCLSVJ	PCTEOJ+1!
APCLT	PCTEOJ+3!
APCLT1	PCTEOJ+1!
APCLT2	PCTEOJ+1!
APCLT3	PCTEOJ+1!
APCLT4	PCTEOJ+1!
APCLT5	PCTEOJ+1!
APCLTRI	PCTEOJ+1!
APCLTRIC	PCTEOJ+1!
APCLV	PCTEOJ+2!
APCLVAR	PCTEOJ+3!
APCLVAR1	PCTEOJ+3!
APCLVAR2	PCTEOJ+3!
APCLVCNT	PCTEOJ+2!
APCLVCTT	PCTEOJ+2!
APCLVD	PCTEOJ+2!
APCLVDFN	PCTEOJ+2!
APCLVFL	SUF, VL+2, PCTEOJ+1!, PCTEOJ+3!
APCLVLOC	PCTEOJ+3!
APCLVREC	PCTEOJ+3!
APCLY	PCTEOJ+2!
DA	F+1!
DIC	F+1!, S+1, PCTEOJ!
DIC("A"	F+1, S
DIC(0	F+1, S+1
DIR	SUF!, VL!, IND+1!, SBT+2!, SBC+1!
DIR("?"	IND+1, SBT+2, SBC+1*
DIR("A"	SUF, VL, IND+1, SBT+2, SBC+1*
DIR("B"	VL*
DIR(0	SUF, VL, IND+1, SBT+2, SBC+1*
DIRUT	SUF+1, VL*, VL+1, IND+2, SBT+3, SBC+2, PCTEOJ!
DT	SD+2
>> DUOUT	VL
DUZ(2	S, INIT+1
H	PCTEOJ!
I	PCTEOJ!
IO("Q"	PCTEOJ!
IOF	INIT+3
J	PCTEOJ!
JK	PCTEOJ!
K	PCTEOJ!
M	PCTEOJ!
POP	PCTEOJ!
S	PCTEOJ!
TS	PCTEOJ!
U	F+3, S
X	S+2, PCTEOJ!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	SUF+2, SUF+3, F+1, F+2, VL+2, S+3, S+4, IND+3, SD+2*, SD+4 , SD+5, ED+1, ED+2, SBT+4, SBC+3, PCTEOJ!
ZTIO	PCTEOJ!
ZTQUEUED	PCTEOJ!
ZTSK	PCTEOJ!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLIPCT

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: