Routine: APCLAL3

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
VA Fileman	3	^DIC MIX^DIC1 ^DIR
Patient Care Component Reports	2	^APCLSTMP PAUSE^APCLVL01
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

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

External References

Name	Field # of Occurrence
PEP^AMQQGTX0	CLINIC1+2
^APCLSTMP	TEMP+6
PAUSE^APCLVL01	INFORM+25, INFORM+29
^DIC	CLINIC1+1
MIX^DIC1	PRV1+1, SCRPRV1+1, DESPRV1+1, SSPRV1+1, CDPRV1+1
^DIR	DATES+3, DATES+5, EXCL+4, SEX+2, AGE+4, AGER+2, RESULT+13, CLINIC+2, PRIMPRV+4, PRVSCR+4 , DESPRV+3, SSPRV+3, CDPRV+3, TEMP+3, LIST1+5, DP+3, EOP+7
^XBDBQUE	ZIS+2
^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: !,$$CTR($$LOC()) Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,$$CTR("LISTING OF PATIENTS RECEIVING ALCOHOL SCREENING, INCLUDING REFUSALS",80) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will tally and optionally list all patients who have had " Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"ALCOHOL screening or a refusal documented in the time frame specified by " Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"the user. Alcohol Screening is defined as any of the following documented:" Line Location: INFORM+6
Function Call: WRITE	Prompt: !?5,"- Alcohol Screening Exam (Exam code 35)" Line Location: INFORM+7
Function Call: WRITE	Prompt: !?5,"- Measurements: AUDC, AUDT, CRFT" Line Location: INFORM+8
Function Call: WRITE	Prompt: !?5,"- Health Factor with Alcohol/Drug Category (CAGE)" Line Location: INFORM+9
Function Call: WRITE	Prompt: !?5,"- Diagnoses V79.1 (there are no ICD10 codes), 29.1 (Behavioral Hlth Code)" Line Location: INFORM+10
Function Call: WRITE	Prompt: !?5,"- Education Topics: AOD-SCR, CD-SCR" Line Location: INFORM+11
Function Call: WRITE	Prompt: !?5,"- CPT Codes: 99408, 99409, G0396, G0397, H0049" Line Location: INFORM+12
Function Call: WRITE	Prompt: !?5,"- refusal of exam code 35" Line Location: INFORM+13
Function Call: WRITE	Prompt: !,"This report will tally the patients by age, gender, screening exam result," Line Location: INFORM+14
Function Call: WRITE	Prompt: !,"provider (either exam provider, if available, or primary provider on the " Line Location: INFORM+15
Function Call: WRITE	Prompt: !,"visit), clinic, date of screening, designated PCP, MH Provider, SS Provider" Line Location: INFORM+16
Function Call: WRITE	Prompt: !,"and A/SA Provider." Line Location: INFORM+17
Function Call: WRITE	Prompt: !," Notes: " Line Location: INFORM+18
Function Call: WRITE	Prompt: !?10,"- the last screening/refusal for each patient is used. If a patient" Line Location: INFORM+19
Function Call: WRITE	Prompt: !?10," was screened more than once in the time period, only the latest" Line Location: INFORM+20
Function Call: WRITE	Prompt: !?10," is used in this report." Line Location: INFORM+21
Function Call: WRITE	Prompt: !?10,"- this report will optionally, look at both PCC and the Behavioral" Line Location: INFORM+22
Function Call: WRITE	Prompt: !?10," Health databases for evidence of screening/refusal" Line Location: INFORM+23
Function Call: WRITE	Prompt: !?10,"- this is a tally of Patients, not visits or screenings" Line Location: INFORM+24
Function Call: WRITE	Prompt: !!,"You will be able to choose the patients by age, gender, clinic, primary" Line Location: INFORM+26
Function Call: WRITE	Prompt: !,"provider or result of the screening." Line Location: INFORM+27
Function Call: WRITE	Prompt: ! Line Location: INFORM+28
Function Call: WRITE	Prompt: !!,"Exam code 35 is missing from the EXAM table. Cannot run report.",! Line Location: INFORM+32
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: !!,"Would you like to include screenings recorded in the Behavioral Clinics" Line Location: EXCL+2
Function Call: WRITE	Prompt: !,"Mental Health (14); DEPRESSION and Substance Abuse (43), Medical Social" Line Location: EXCL+3
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: !,"Positive enter 2 to get all patients who have had a screening result of" Line Location: RESULT+5
Function Call: WRITE	Prompt: !,"Positive or Refused, 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) Positive" Line Location: RESULT+8
Function Call: WRITE	Prompt: !?3,"3) Refused" Line Location: RESULT+9
Function Call: WRITE	Prompt: !?3,"4) Unable to Screen" Line Location: RESULT+10
Function Call: WRITE	Prompt: !?3,"5) Screenings done with no result entered" Line Location: RESULT+11
Function Call: WRITE	Prompt: ! Line Location: RESULT+12
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: !!,"Would you like to limit the list to just patients who have" Line Location: SSPRV+2
Function Call: WRITE	Prompt: !!,"Would you like to limit the list to just patients who have" Line Location: CDPRV+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
Routine Call	DIR Line Location: DATES+3 DATES+5 EXCL+4 SEX+2 AGE+4 AGER+2 RESULT+13 CLINIC+2 PRIMPRV+4 PRVSCR+4 DESPRV+3 SSPRV+3 CDPRV+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
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$CTR	INFORM+1, INFORM+2, INFORM+3
$$LOC	INFORM+2
$$USR	INFORM+1
AGE	AGER+3, RESULT+14, RESULT+15
AGER	AGER+4
CDPRV	SSPRV+5, CDPRV1+2
CLINIC	CLINIC1+3
DATES	DATES+7, EXCL+5
DESPRV	PRVSCR+7, PRVSCR+8, DESPRV1+2, SSPRV+4, TEMP+4
EXCL	SEX+3
LIST1	DP+4
PRIMPRV	CLINIC+4, PRV1+3, DESPRV+4, LIST1+6
PRVSCR	PRIMPRV+7, PRIMPRV+8, SCRPRV1+2
RESULT	AGE+6, CLINIC+3
SEX	AGE+5
SSPRV	DESPRV+5, SSPRV1+2, CDPRV+4
TEMP	CDPRV+5, TEMP+6
XIT	INFORM+30, INFORM+32, CLINIC1+1, PRIMPRV+5, PRVSCR+5, ZIS+3
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+17*
>> APCLEXBH	EXCL+1, EXCL+6
APCRAGE	AGE+1!
APCRAGET	AGE+1!, AGER+5*
APCRBD	DATES!, DATES+3*, DATES+7
>> APCRCDP	CDPRV+1, CDPRV+5, CDPRV1+3*
APCRCLNT	CLINIC+1!, CLINIC1+3, CLINIC1+4!
APCRCLNT("*"	CLINIC1+4
>> APCRDESP	DESPRV+1, DESPRV+5, DESPRV1+3*
>> APCRDISC	PRIMPRV+1*
>> APCRDP	DP+1, DP+5
APCRED	DATES!, DATES+5*, DATES+7
>> APCREXC	INFORM+31*, INFORM+32
>> APCREXPC	EXCL+7*
>> APCRPPUN	PRIMPRV+1, PRIMPRV+8
APCRPROV	PRIMPRV+1!, PRIMPRV+7!, PRV1+4*
>> APCRPSRT	PRIMPRV+1, PRIMPRV+6
APCRREST	RESULT+1!, RESULT+16*
APCRREST(	RESULT+17*
>> APCRSEX	SEX+1, SEX+4, SEX+5*
>> APCRSORT	LIST1+1, LIST1+7
APCRSPRV	PRVSCR+1!, PRVSCR+7!, SCRPRV1+3*
>> APCRSPUN	PRVSCR+1, PRVSCR+8
>> APCRSSP	SSPRV+1, SSPRV+5, SSPRV1+3*
>> APCRSSRT	PRVSCR+1, PRVSCR+6
>> APCRSTMP	TEMP+1*, TEMP+6
>> APCRTMPL	TEMP+1, TEMP+5, TEMP+6
>> C	RESULT+17*
D	PRV1+1!, SCRPRV1+1!, DESPRV1+1!, SSPRV1+1!, CDPRV1+1*!
DA	EXCL+4!, SEX+2!, RESULT+13!, CLINIC1+1!, DESPRV+3!, SSPRV+3!, CDPRV+3!, LIST1+5!, DP+3!
DFOUT	EOP+5!
DIC	CLINIC1+1!, PRV1+1!, SCRPRV1+1!, DESPRV1+1!, SSPRV1+1!, CDPRV1+1!
DIC("A"	PRV1+1, SCRPRV1+1, DESPRV1+1, SSPRV1+1, CDPRV1+1*
DIC("S"	CLINIC1+1*
DIC(0	CLINIC1+1, PRV1+1, SCRPRV1+1, DESPRV1+1, SSPRV1+1, CDPRV1+1
DIR	DATES+2!, DATES+4!, EXCL+4!, SEX+2!, AGE+4!, RESULT+13!, CLINIC+2!, PRIMPRV+4!, PRVSCR+4!, DESPRV+3! , SSPRV+3!, CDPRV+3!, TEMP+3!, LIST1+5!, DP+3!, EOP+4~
DIR("?"	AGE+3, PRIMPRV+4, PRVSCR+4*
DIR("A"	DATES+2, DATES+4, EXCL+4, SEX+2, AGE+2, AGER+2, RESULT+13, CLINIC+2, PRIMPRV+3, PRVSCR+3 , DESPRV+3, SSPRV+3, CDPRV+3, TEMP+2, LIST1+4, DP+3, EOP+7*
DIR("B"	EXCL+4, SEX+2, AGE+2, RESULT+13, CLINIC+2, DESPRV+3, SSPRV+3, CDPRV+3, TEMP+2, LIST1+4 , DP+3*
DIR(0	DATES+2, DATES+4, EXCL+4, SEX+2, AGE+2, AGER+2, RESULT+13, CLINIC+2, PRIMPRV+2, PRVSCR+2 , DESPRV+3, SSPRV+3, CDPRV+3, TEMP+2, LIST1+3, DP+3, EOP+7*
DIRUT	EXCL+5, SEX+3, AGE+5, RESULT+14, CLINIC+2*, CLINIC+3, PRIMPRV+5, PRVSCR+5, DESPRV+4, SSPRV+4 , CDPRV+4, TEMP+4, LIST1+6, DP+4, EOP+5!
DLOUT	EOP+5!
DTOUT	PRV1+3, SCRPRV1+2, DESPRV1+2, SSPRV1+2, CDPRV1+2, EOP+5!
DUOUT	CLINIC+2, EOP+5!
DUZ	USR+1
DUZ(2	LOC+1
>> I	RESULT+17*
IO	EOP+2
IO("S"	EOP+3
IO(0	EOP+2
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+3
U	PRV1+1, USR+1, LOC+1
X	CLINIC1+1*, CTR~, CTR+1
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	DATES+3, DATES+5, EXCL+6, SEX+4, AGE+6, AGER+3, AGER+4, AGER+5, RESULT+15, RESULT+16 , RESULT+17, CLINIC+4, CLINIC1+1, CLINIC1+2, PRIMPRV+6, PRIMPRV+7, PRIMPRV+8, PRV1+3, PRV1+4, PRVSCR+6 , PRVSCR+7, PRVSCR+8, SCRPRV1+2, SCRPRV1+3, DESPRV+5, DESPRV1+2, DESPRV1+3, SSPRV+5, SSPRV1+2, SSPRV1+3 , CDPRV+5, CDPRV1+2, CDPRV1+3, TEMP+5, LIST1+7, DP+5, CTR~, CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLAL3

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: