Routine: APCLCP8

Package	Total	Call Graph
VA Fileman	5	DD^%DT C^%DTC ^DIC EN^DIQ ^DIR
Patient Care Component Reports	2	(O,OC,T,TC)^APCLCP1 DEMOCHK^APCLUTL
IHS VA Utilities	1	^XBDBQUE

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
LOC	;get location
SETBIN	;
ERR
LIST	;
AGE	;
BIN
SET
DEMO	;
CLOSE
TC	;EP taxonomy
ZIS	;
ED	;get ending date
O	;EP one location
START	;
CLINIC	;
GC	;
T	;EP taxonomy
RUN	;
OC	;EP one location
GETDATES	;
XIT	;
GETGROUP	;

External References

Name	Field # of Occurrence
DD^%DT	START+3, ED+1
C^%DTC	ED+4
O^APCLCP1	LOC+6
OC^APCLCP1	CLINIC+6
T^APCLCP1	LOC+7
TC^APCLCP1	CLINIC+7
DEMOCHK^APCLUTL	DEMO+1
^DIC	GETGROUP+1, O+2, T+2, OC+2, TC+2
EN^DIQ	GETGROUP+5
^DIR	BD+1, ED+1, LOC+3, CLINIC+3, BIN+2, AGE+1, GC+1
^XBDBQUE	DEMO+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This report will present, for all visits on which staff members of",!,"discipline group that you select was a provider, time and patient services",!,"by age and sex.",! Line Location: START+2
Function Call: WRITE	Prompt: !,"Bye ... " Line Location: GETGROUP+2
Function Call: WRITE	Prompt: !!,"You have selected the ",$P(Y,U,2)," discipline group.",! Line Location: GETGROUP+4
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"The Age Groups to be used are currently defined as:",! Line Location: BIN+1
Function Call: WRITE	Prompt: ! Line Location: RUN+1
Function Call: WRITE	Prompt: $C(7) Line Location: AGE+6
Function Call: WRITE	Prompt: !,"Make sure the age is higher the beginning age of the previous group.",! Line Location: AGE+6
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: GC+5
Function Call: WRITE	Prompt: !,$P(X,":")," - ",$P(X,":",2) Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: LIST+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: GETGROUP+1 O+2 T+2 OC+2 TC+2
Routine Call	DIR Line Location: BD+1 ED+1 LOC+3 CLINIC+3 BIN+2 AGE+1 GC+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	T+4, TC+4

Label References

Name	Line Occurrences
AGE	RUN+1
BD	ED+2, LOC+4
BIN	CLINIC+5, RUN+1, RUN+2, DEMO+2
CLINIC	LOC+5, CLINIC+6, CLINIC+7
CLOSE	RUN+2, GC+5
GETDATES	BIN+3
GETGROUP	BD+2
LIST	BIN+1, RUN+3
LOC	LOC+6, LOC+7, CLINIC+4
RUN	AGE+6
SET	AGE+5
XIT	GETGROUP+2, DEMO+5
ZIS	BIN+4, RUN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LIST+1*, LIST+2, XIT+3!
APCL1	XIT+1!
APCL2	XIT+1!
APCL80S	XIT+1!
APCLA	RUN+1, AGE+5, SET, GC+4, XIT+2!
APCLACTG	GETGROUP+3*, XIT+2!
APCLAGE	XIT+2!
APCLAP	XIT+1!
APCLBD	BD+3*, ED+1, ED+4, XIT+1!
APCLBDD	XIT+1!
APCLBIN	BIN, GC+4, LIST+1, SETBIN+1*, XIT+2!
APCLBT	XIT+1!, XIT+2!
APCLCHN	XIT+2!
APCLCLN	CLINIC+1!, CLINIC+5!
APCLCLN(	OC+4, TC+4
>> APCLDEMO	DEMO+1, DEMO+2
APCLDISC	XIT+1!
APCLDOB	XIT+2!
APCLDOBS	XIT+2!
APCLDT	START+3*, XIT+1!
APCLED	ED+3*, XIT+1!
APCLEDD	XIT+1!
APCLFOUN	XIT+2!
APCLJOB	XIT+2!
APCLLENG	XIT+1!
APCLLOC	LOC+1!, LOC+5!, XIT+1!
APCLLOC(	O+4, T+4
APCLNN	XIT+2!
APCLODAT	XIT+1!
APCLPG	XIT+1!
APCLPRIM	XIT+1!
APCLQ	LOC+6, LOC+7, CLINIC+6, CLINIC+7, O+1!, O+3, T+1!, T+3, OC+1!, OC+3* , TC+1!, TC+3*
APCLQUIT	RUN+1!, RUN+2, AGE+2, GC+2, XIT+1!
APCLSD	ED+4*, XIT+1!
APCLSEX	XIT+2!
APCLSITE	XIT+1!
APCLSKIP	XIT+1!
APCLVACT	XIT+1!
APCLVDFN	XIT+1!
APCLVLOC	XIT+1!
APCLVREC	XIT+1!
APCLVTM	XIT+1!
APCLVTT	XIT+1!
APCLX	RUN+1, AGE+3, AGE+5, SET, SET+1, SET+2, GC+3, GC+4, XIT+1!
APCLY	RUN+1, AGE+1, SET+1, SET+2, CLOSE, GC+4, XIT+1!
APCLZ	XIT+2!
APLCFOUN	XIT+2!
DA	GETGROUP+5*!, LOC+3!, CLINIC+3!
DIC	GETGROUP+1!, GETGROUP+5!, O+2!, T+2!, OC+2!, TC+2!
DIC("A"	GETGROUP+1, O+2, T+2, OC+2, TC+2*
DIC("S"	T+2, TC+2
DIC(0	GETGROUP+1, O+2, T+2, OC+2, TC+2*
DIR	BD+1!, ED+1!, LOC+3!, CLINIC+3!, BIN+2!, AGE+1!, GC+1!, XIT+3!
DIR("A"	BD+1, ED+1, LOC+3, CLINIC+3, BIN+2, AGE+1, GC+1*
DIR("B"	LOC+3, CLINIC+3, BIN+2*
DIR(0	BD+1, ED+1, LOC+2, CLINIC+2, BIN+2, AGE+1, GC+1*
DIRUT	BD+1, BD+2, ED+1, ED+2, LOC+4, CLINIC+4, BIN+3, AGE+1, GC+1, XIT+3!
DLOUT	XIT+3!
DT	START+3
DTOUT	AGE+2, GC+2, XIT+3!
DUOUT	BD+1, ED+1, AGE+1, AGE+2, GC+1, GC+2, XIT+3!
H	XIT+3!
>> I	LIST+2*
IO("Q"	XIT+3!
IOF	START+1
M	XIT+3!
POP	XIT+3!
S	XIT+3!
T	XIT+3!
TS	XIT+3!
U	GETGROUP+4
X	ED+4, LIST+2, XIT+3!, T+4, TC+4*
X1	ED+4*, XIT+3!
X2	ED+4*, XIT+3!
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	START+3, GETGROUP+2, GETGROUP+3, GETGROUP+4, GETGROUP+5, BD+3, ED+1, ED+3, LOC+5, LOC+6 , LOC+7, CLINIC+5, CLINIC+6, CLINIC+7, BIN+4, AGE+3, AGE+4, GC+3, XIT+3!, O+3 , O+4, T+3, T+4, OC+3, OC+4, TC+3, TC+4
ZTQUEUED	XIT+3!
ZTSK	XIT+3!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCP8

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: