Routine: APCLDV3

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
Patient Care Component Reports	3	@(^APCLDV1 ^APCLSTMP DEMOCHK^APCLUTL
VA Fileman	3	^DIC MIX^DIC1 ^DIR
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
DATES
DEMO	;
PRVSCR	;
LIST1	;
AGER	;Age Screening
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DP	;
PRV1	;
TEMP	;TEMPLATE OR LIST
CTR(X,Y)	;EP - Center X in a field Y wide.
SEX	;
INFORM	;
SCRPRV1	;
PRIMPRV	;
FAC	;
AGE	;Age Screening
ZIS	;
CLINIC1	;
DESPRV	;
CLINIC	;
COMM	;
RESULT	;result screenig
EXCL	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
DESPRV1	;
XIT	;

External References

Name	Field # of Occurrence
PEP^AMQQGTX0	CLINIC1+2
@(^APCLDV1	FAC+8, COMM+9
^APCLSTMP	TEMP+6
DEMOCHK^APCLUTL	DEMO+1
^DIC	CLINIC1+1, PRV1+2, SCRPRV1+2, DESPRV1+2
MIX^DIC1	PRV1+1, SCRPRV1+1, DESPRV1+1
^DIR	DATES+3, DATES+5, FAC+4, COMM+5, EXCL+5, SEX+2, AGE+4, AGER+2, RESULT+16, CLINIC+2 , PRIMPRV+4, PRVSCR+4, DESPRV+3, TEMP+3, LIST1+5, DP+3, EOP+7
^XBDBQUE	DEMO+4
^XBFMK	XIT+2
EN^XBVK	XIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+1
Function Call: WRITE	Prompt: !,$$LOC() Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,$$CTR("LISTING OF PATIENT'S RECEIVING IPV SCREENING,INCLUDING REFUSALS",80) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will list all patients you select who have had IPV screening " Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"(Exam code 34) or a refusal documented in a specified time frame." Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"You will select the patients based on age, gender, result, provider," Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"or clinic where the screeing was done." Line Location: INFORM+7
Function Call: WRITE	Prompt: !!,"NOTE: All screenings done in the time period for the patient's selected " Line Location: INFORM+8
Function Call: WRITE	Prompt: !,"will be displayed on the report." Line Location: INFORM+9
Function Call: WRITE	Prompt: ! Line Location: INFORM+10
Function Call: WRITE	Prompt: !!,"Exam code 34 is missing from the EXAM table. Cannot run report.",! Line Location: INFORM+13
Function Call: WRITE	Prompt: !,"Please enter the date range during which the screening was done.",!,"To get all screenings ever put in a long date range like 01/01/1980",!,"to the present date.",! Line Location: DATES+1
Function Call: WRITE	Prompt: ! Line Location: DATES+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATES+8
Function Call: WRITE	Prompt: !!,"You can just include patients living in certain communities",!,"or include all patients regardless of where they live." Line Location: COMM+3
Function Call: WRITE	Prompt: !!,"Would you like to include screenings done in the behavioral health clinics: " Line Location: EXCL+2
Function Call: WRITE	Prompt: !,"Mental Health (14); Alcohol and Substance Abuse (43); Medical" Line Location: EXCL+3
Function Call: WRITE	Prompt: !,"Social Services (48); Behavioral Health (C4) " Line Location: EXCL+4
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: !!,"You can limit the list to only patients who have had a screening" Line Location: RESULT+2
Function Call: WRITE	Prompt: !,"in the time period on which the result was any combination of the" Line Location: RESULT+3
Function Call: WRITE	Prompt: !,"following: (e.g. to get only those patients who have had a result of " Line Location: RESULT+4
Function Call: WRITE	Prompt: !,"Present enter 2 to get all patients who have had a screening result of" Line Location: RESULT+5
Function Call: WRITE	Prompt: !,"Past or Present, enter 2,3)",! Line Location: RESULT+6
Function Call: WRITE	Prompt: !?3,"1) Normal/Negative" Line Location: RESULT+7
Function Call: WRITE	Prompt: !?3,"2) Present" Line Location: RESULT+8
Function Call: WRITE	Prompt: !?3,"3) Past" Line Location: RESULT+9
Function Call: WRITE	Prompt: !?3,"4) Present and Past" Line Location: RESULT+10
Function Call: WRITE	Prompt: !?3,"5) Refused" Line Location: RESULT+11
Function Call: WRITE	Prompt: !?3,"6) Unable to Screen" Line Location: RESULT+12
Function Call: WRITE	Prompt: !?3,"7) Screenings done with no result entered" Line Location: RESULT+13
Function Call: WRITE	Prompt: ! Line Location: RESULT+14
Function Call: WRITE	Prompt: ! Line Location: RESULT+15
Function Call: WRITE	Prompt: ! Line Location: CLINIC+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CLINIC1+1
Function Call: WRITE	Prompt: !!,"Would you like to limit the list to just patients who have" Line Location: DESPRV+2
Function Call: WRITE	Prompt: ! Line Location: LIST1+2
Function Call: WRITE	Prompt: ! Line Location: DP+2
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Routine Call	DIC Line Location: CLINIC1+1 PRV1+2 SCRPRV1+2 DESPRV1+2
Routine Call	DIR Line Location: DATES+3 DATES+5 FAC+4 COMM+5 EXCL+5 SEX+2 AGE+4 AGER+2 RESULT+16 CLINIC+2 PRIMPRV+4 PRVSCR+4 DESPRV+3 TEMP+3 LIST1+5 DP+3 EOP+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DIC(6 - [#6]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTEXAM("C"	INFORM+12
^DD(9000010.06	PRV1+1, PRV1+2, SCRPRV1+1, SCRPRV1+2, DESPRV1+1, DESPRV1+2
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	INFORM+1, INFORM+3
$$LOC	INFORM+2
$$USR	INFORM+1
AGE	AGER+3, RESULT+17, RESULT+18
AGER	AGER+4
CLINIC	CLINIC1+3
COMM	FAC+7, COMM+10
DATES	DATES+7, FAC+5, EXCL+6
DESPRV	PRVSCR+7, PRVSCR+8, DESPRV1+3, TEMP+4
DP	DEMO+2
EXCL	COMM+8, SEX+3
FAC	FAC+9, COMM+6
LIST1	DP+4
PRIMPRV	CLINIC+4, PRV1+3, DESPRV+4, LIST1+6
PRVSCR	PRIMPRV+7, PRIMPRV+8, SCRPRV1+3
RESULT	AGE+6, CLINIC+3
SEX	AGE+5
TEMP	DESPRV+5, TEMP+6
XIT	INFORM+11, INFORM+13, CLINIC1+1, PRIMPRV+5, PRVSCR+5, DEMO+5
ZIS	TEMP+6

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	RESULT+20*
APCLAGE	AGE+1!
APCLAGET	AGE+1!, AGER+5*
APCLBD	DATES!, DATES+3*, DATES+7
APCLCLNT	CLINIC+1!, CLINIC1+3, CLINIC1+4!
APCLCLNT("*"	CLINIC1+4
>> APCLCOMT	COMM+2, COMM+7, COMM+8, COMM+9
>> APCLDEMO	DEMO+1, DEMO+2
>> APCLDESP	DESPRV+1, DESPRV+5, DESPRV1+4*
>> APCLDISC	PRIMPRV+1*
>> APCLDP	DP+1, DP+5
APCLED	DATES!, DATES+5*, DATES+7
>> APCLEXBH	EXCL+1, EXCL+7
>> APCLEXC	INFORM+12*, INFORM+13
>> APCLLOCT	FAC+2, FAC+6, FAC+7, FAC+8
>> APCLPPUN	PRIMPRV+1, PRIMPRV+8
APCLPROV	PRIMPRV+1!, PRIMPRV+7!, PRV1+4*
>> APCLPSRT	PRIMPRV+1, PRIMPRV+6
APCLQ	FAC+1!, FAC+9, COMM+1!, COMM+10
APCLREST	RESULT+1!, RESULT+19*
APCLREST(	RESULT+20*
>> APCLSEX	SEX+1, SEX+4, SEX+5*
>> APCLSORT	LIST1+1, LIST1+7
APCLSPRV	PRVSCR+1!, PRVSCR+7!, SCRPRV1+4*
>> APCLSPUN	PRVSCR+1, PRVSCR+8
>> APCLSSRT	PRVSCR+1, PRVSCR+6
>> APCLSTMP	TEMP+1*, TEMP+6
>> APCLTMPL	TEMP+1, TEMP+5, TEMP+6
>> C	RESULT+20*
D	PRV1+1!, SCRPRV1+1!, DESPRV1+1*!
DA	FAC+4!, COMM+5!, EXCL+5!, SEX+2!, RESULT+16!, CLINIC1+1!, DESPRV+3!, LIST1+5!, DP+3!
DFOUT	EOP+5!
DIC	CLINIC1+1!, PRV1+1!, PRV1+2!, SCRPRV1+1!, SCRPRV1+2!, DESPRV1+1!, DESPRV1+2*!
DIC("A"	PRV1+1, PRV1+2, SCRPRV1+1, SCRPRV1+2, DESPRV1+1, DESPRV1+2
DIC("S"	CLINIC1+1*
DIC(0	CLINIC1+1, PRV1+1, PRV1+2, SCRPRV1+1, SCRPRV1+2, DESPRV1+1, DESPRV1+2*
DIR	DATES+2!, DATES+4!, FAC+4!, COMM+5!, EXCL+5!, SEX+2!, AGE+4!, RESULT+16!, CLINIC+2!, PRIMPRV+4! , PRVSCR+4!, DESPRV+3!, TEMP+3!, LIST1+5!, DP+3!, EOP+4~
DIR("?"	AGE+3, PRIMPRV+4, PRVSCR+4*
DIR("A"	DATES+2, DATES+4, FAC+3, FAC+4, COMM+4, COMM+5, EXCL+5, SEX+2, AGE+2, AGER+2 , RESULT+16, CLINIC+2, PRIMPRV+3, PRVSCR+3, DESPRV+3, TEMP+2, LIST1+4, DP+3, EOP+7*
DIR("B"	FAC+3, FAC+4, COMM+4, COMM+5, EXCL+5, SEX+2, AGE+2, RESULT+16, CLINIC+2, DESPRV+3 , TEMP+2, LIST1+4, DP+3*
DIR(0	DATES+2, DATES+4, FAC+3, COMM+4, EXCL+5, SEX+2, AGE+2, AGER+2, RESULT+16, CLINIC+2 , PRIMPRV+2, PRVSCR+2, DESPRV+3, TEMP+2, LIST1+3, DP+3, EOP+7*
DIRUT	FAC+5, COMM+6, EXCL+6, SEX+3, AGE+5, RESULT+17, CLINIC+2*, CLINIC+3, PRIMPRV+5, PRVSCR+5 , DESPRV+4, TEMP+4, LIST1+6, DP+4, EOP+5!
DLOUT	EOP+5!
DTOUT	PRV1+3, SCRPRV1+3, DESPRV1+3, EOP+5!
DUOUT	CLINIC+2, EOP+5!
DUZ	USR+1
DUZ(2	LOC+1
>> I	RESULT+20*
IO	EOP+2
IO("S"	EOP+3
IO(0	EOP+2
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+3
U	PRV1+1, PRV1+2, SCRPRV1+1, SCRPRV1+2, DESPRV1+1, DESPRV1+2, USR+1, LOC+1
X	CLINIC1+1*, CTR~, CTR+1
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	DATES+3, DATES+5, FAC+6, COMM+7, EXCL+7, SEX+4, AGE+6, AGER+3, AGER+4, AGER+5 , RESULT+18, RESULT+19, RESULT+20, CLINIC+4, CLINIC1+1, CLINIC1+2, PRIMPRV+6, PRIMPRV+7, PRIMPRV+8, PRV1+3 , PRV1+4, PRVSCR+6, PRVSCR+7, PRVSCR+8, SCRPRV1+3, SCRPRV1+4, DESPRV+5, DESPRV1+3, DESPRV1+4, TEMP+5 , LIST1+7, DP+5, CTR~, CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLDV3

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

Naked Globals

Local Variables

Legend: