Routine: APCLWL1

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

Package

Total

Call Graph

VA Fileman

DD^%DT C^%DTC ^DIC ^DIR

IHS VA Utilities

^XBDBQUE

Patient Care Component Reports

DEMOCHK^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
BD	;Get beginning date
LOC	;Enter facility
CLIN1	;
ERR
START	;Start of routine
DOC	;See INFORM section for documentation notes for this routine
AGE	;Age Screening
PROV	;Provider Screening
AGER	;Age Screening
INFORM	;
GETDATES	;This section gets BEGINNING and ENDING dates:
XIT	;
PROV1	;Provider Screening
ED	;Get ending date
CLIN	;Select Clinic(s)
DEMO	;
ZIS	;

Name	Field # of Occurrence
DD^%DT	ED+2
C^%DTC	ED+6
DEMOCHK^APCLUTL	DEMO+1
^DIC	LOC+1, CLIN1+1, PROV1+2
^DIR	BD+1, ED+2, CLIN+1, AGE+4, AGER+2, PROV+2
^XBDBQUE	DEMO+5

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: !," ***** TALLY OF DAILY VISITS BY 24-HOUR TIME FRAMES *****" Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"- This report will generate an hourly visit count, by clinic,",!," for a date range that you specify.",! Line Location: INFORM+3
Function Call: WRITE	Prompt: "- ALL visits in the database will be included in the tabulation with",!," the exception of the following: " Line Location: INFORM+4
Function Call: WRITE	Prompt: !," VISIT TYPES: Contract, VA",!," VISIT SERVICE CATEGORIES: Chart Review, In-Hospital, Ancillary,",!?31,"Hospitalizations, Events, Telecommunications",! Line Location: INFORM+5
Function Call: WRITE	Prompt: "- Visits MUST have a Primary Provider and Purpose of Visit.",! Line Location: INFORM+6
Function Call: WRITE	Prompt: "- The report will be totaled by hourly time frames.",! Line Location: INFORM+7
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: AGE+2
Function Call: WRITE	Prompt: ! Line Location: AGER+1
Function Call: WRITE	Prompt: !!,"No age range entered." Line Location: AGER+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. e.g. 0-5, 0-99, 5-20." Line Location: AGER+4
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: DEMO+3
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Routine Call	DIC Line Location: LOC+1 CLIN1+1 PROV1+2
Routine Call	DIR Line Location: BD+1 ED+2 CLIN+1 AGE+4 AGER+2 PROV+2

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(9000010.06	PROV1+2
^DIC(4 - [#4]	LOC+1

Name	Line Occurrences
AGE	CLIN+3, AGER+3
AGER	AGER+4
BD	ED+4, LOC+1, CLIN+2, PROV+3
CLIN	CLIN1+1, AGE+5
PROV	AGE+6, PROV1+2, DEMO+2
XIT	BD+3, DEMO+6
ZIS	PROV+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCL1	XIT+2!
APCL132S	XIT+1!
APCL2	XIT+2!
APCLAGE	AGE+1!
APCLAGET	AGE+1!, AGER+5*, XIT+1!
APCLBD	BD+4*, ED+1, ED+2, ED+5, ED+6, XIT+1!
APCLBDD	XIT+1!
APCLBT	XIT+2!
APCLCLIN	XIT+2!
APCLCLN	CLIN+3, CLIN1+2, XIT+1!
APCLCLNT	XIT+1!
APCLDATE	XIT+2!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDOW	XIT+2!
APCLDT	XIT+1!
APCLED	ED+5*, XIT+1!
APCLEDD	XIT+1!
APCLET	XIT+1!
APCLFILE	XIT+2!
APCLGTOT	XIT+1!
APCLJOB	XIT+2!
APCLLENG	XIT+2!
APCLLOC	LOC+2*, XIT+2!
APCLLOCT	XIT+2!
APCLODAT	XIT+1!
APCLPG	XIT+1!
APCLPROV	PROV+4, PROV1+3, XIT+2!
APCLQUIT	XIT+2!
APCLSD	ED+6*, XIT+1!
APCLSITE	START+1!, START+2*, XIT+1!
APCLSRT2	XIT+1!
APCLTAB	XIT+1!
APCLTIME	XIT+1!
APCLVDFN	XIT+2!
APCLVLOC	XIT+2!
APCLVREC	XIT+2!
DA	LOC+1!, CLIN1+1!, PROV1+2!, XIT+3!
DIC	LOC+1!, CLIN1+1!, PROV1+2*!, XIT+3!
DIC("A"	LOC+1, CLIN1+1, PROV1+2*
DIC("B"	LOC+1*
DIC(0	LOC+1, CLIN1+1, PROV1+2*
DIG	XIT+3!
DIH	XIT+3!
DIR	BD+2!, ED+3!, CLIN+1!, AGE+4!, PROV+2!, XIT+3!
DIR("?"	CLIN+1, AGE+3, PROV+2*
DIR("A"	BD+1, ED+1, CLIN+1, AGE+2, AGER+2, PROV+2
DIR("B"	CLIN+1, AGE+2, PROV+2*
DIR(0	BD+1, ED+1, CLIN+1, AGE+2, AGER+2, PROV+2
DIRUT	BD+2, BD+3, ED+3, ED+4, CLIN+2, AGE+5, PROV+3, XIT+3!
DIU	XIT+3!
DIV	XIT+3!
>> DUOUT	BD+2, ED+3
DUZ(2	START+1, START+2, LOC+1
IOF	INFORM+1
U	LOC+1, PROV1+2
X	ED+6, XIT+3!
X1	ED+5, ED+6, XIT+3!
X2	ED+5, ED+6, XIT+3!
XBNS	DEMO+4*, XIT+3!
XBRC	DEMO+4*, XIT+3!
XBRP	DEMO+4*, XIT+3!
XBRX	DEMO+4*, XIT+3!
Y	BD+4, ED+2*, ED+5, LOC+1, LOC+2, CLIN+3, CLIN1+1, CLIN1+2, AGE+6, AGER+3 , AGER+4, AGER+5, PROV+4, PROV1+2, PROV1+3, XIT+3!
ZTSK	XIT+3!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLWL1

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: