Routine: APCLHCT

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIR
IHS VA Utilities	2	^XBDBQUE EN^XBVK
Patient Care Component Reports	1	DEMOCHK^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
ZIS	;
SBT	;subtotal by tribe?
F	;
ED
SBC	;subtotal by community
START	;
INIT	;
EOJ
DEMO	;
IND	;
SD	;

External References

Name	Field # of Occurrence
^%DT	SD+3, ED
DEMOCHK^APCLUTL	DEMO+1
^DIC	F+2
^DIR	IND+1, SBT+2, SBC+1
^XBDBQUE	DEMO+4
EN^XBVK	EOJ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"For which Hospital (Location of Encounter) should the report be run?",! Line Location: F+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),!!,"Report Type Missing!!",! Line Location: INIT+1
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+3
Function Call: WRITE	Prompt: "A Report will result which will give the following counts:",! Line Location: INIT+4
Function Call: WRITE	Prompt: ?5,"- The Number of ADULT/PEDIATRIC Discharges in the date range specified",! Line Location: INIT+6
Function Call: WRITE	Prompt: ?5,"- Total number of Inpatient Days by Adult/Peds",! Line Location: INIT+7
Function Call: WRITE	Prompt: ?5,"- The Number of NEWBORN discharges",! Line Location: INIT+8
Function Call: WRITE	Prompt: ?5,"- The number of NEWBORN Days",! Line Location: INIT+9
Function Call: WRITE	Prompt: ?5,"- The number of transfers in",! Line Location: INIT+10
Function Call: WRITE	Prompt: ?5,"- The number with MCR/MCD/PI on the date of admission",! Line Location: INIT+11
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+12
Routine Call	DIC Line Location: F+2
Routine Call	DIR Line Location: IND+1 SBT+2 SBC+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	SD+3*, ED!, EOJ!
%DT("A"	SD+3, ED
>> APCLDEMO	DEMO+1, DEMO+2
>> APCLDTP	SD+2*
>> APCLED	ED+2*, ED+3
>> APCLEDY	ED+2*
>> APCLEOJ	START+2
>> APCLIND	IND+1, IND+3
>> APCLLOC	F+3*
>> APCLQUIT	INIT+1*
>> APCLSD	SD+5*, ED+3
>> APCLSDY	SD+5*
>> APCLSORT	SBT+1, INIT+1, INIT+12
>> APCLSUB	SBT+2, SBT+4, SBC+1, SBC+3
DA	F+2!
DIC	F+2*!, EOJ!
DIC("A"	F+2*
DIC(0	F+2*
DIR	IND+1!, SBT+2!, SBC+1!
DIR("?"	IND+1, SBT+2, SBC+1*
DIR("A"	IND+1, SBT+2, SBC+1*
DIR(0	IND+1, SBT+2, SBC+1*
DIRUT	IND+2, SBT+3, SBC+2, EOJ!
DT	SD+2
H	EOJ!
I	EOJ!
IO("Q"	EOJ!
IOF	INIT+2
J	EOJ!
JK	EOJ!
K	EOJ!
M	EOJ!
POP	EOJ!
S	EOJ!
TS	EOJ!
X	EOJ!
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	F+2, F+3, IND+3, SD+2*, SD+4, SD+5, ED+1, ED+2, SBT+4, SBC+3 , EOJ!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLHCT

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
EOJ	START+2, F+2, DEMO+5
F	IND+2
IND	SD+4
INIT	START+1
SBC	SBT+1
SD	ED+1, ED+3, SBT+3, SBC+2, DEMO+2
ZIS	SBT+5