Routine: APCLAL3P

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$STRIP^XLFSTR
VA Fileman	2	COMMA^%DTC ^DIR
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
DT(D)	;EP
TOT()	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
PRINT	;EP - called from xbdbque
PRINT1	;
G	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
COVPAGE	;EP
PTOT()	;
A
C	;
PAUSE	;
D	;
ENDL()	;
SHOW	;
H	;
N	;
P	;
R	;
T	;
END()	;
HEADER	;EP
LIST	;EP - called from xbdbque
COM(X,X2,X3)	;
HEADER1	;

External References

Name	Field # of Occurrence
COMMA^%DTC	COM+1
$$HRN^AUPNPAT	LIST+16, H+1, T+1
^DIR	HEADER+2, EOP+7, PAUSE+3
$$VAL^XBDIQ1	LIST+23, LIST+28
$$FMTE^XLFDT	HEADER1+2, HEADER1+4, SHOW+1
$$STRIP^XLFSTR	COM+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No data to report.",! Line Location: PRINT1+3
Function Call: WRITE	Prompt: !," Total Number of Visits with Screening",?40,$J($$COM(APCRTOT,0),8) Line Location: PRINT1+9
Function Call: WRITE	Prompt: !," Total Number of Patients Screened",?40,$J($$COM(APCRPTOT,0),8) Line Location: PRINT1+10
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCRPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("* ALCOHOL SCREENING VISIT LISTING FOR SELECTED PATIENTS *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: !?35,"DATE",!,"PATIENT NAME",?22,"HRN",?29,"AGE",?35,"SCREENED",?55,"CLINIC" Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+6
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Function Call: WRITE	Prompt: !?3,"Comment: ",$P(APCRY,U,12) Line Location: LIST+18
Function Call: WRITE	Prompt: !?3,"DXs: " Line Location: LIST+20
Function Call: WRITE	Prompt: ?8,$$VAL^XBDIQ1(9000010.07,APCRX,.01),?17,$E($$VAL^XBDIQ1(9000010.07,APCRX,.04),1,60) Line Location: LIST+23
Function Call: WRITE	Prompt: !?3,"DXs: " Line Location: LIST+25
Function Call: WRITE	Prompt: ?8,$$VAL^XBDIQ1(9002011.01,APCRX,.01),?17,$E($$VAL^XBDIQ1(9002011.01,APCRX,.04),1,60) Line Location: LIST+28
Function Call: WRITE	Prompt: !,$$CTR("******** ALCOHOL SCREENING FOR SELECTED PATIENTS ********",80) Line Location: COVPAGE+2
Function Call: WRITE	Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U) Line Location: COVPAGE+3
Function Call: WRITE	Prompt: !!,"The following report contains an ALCOHOL screening report based on the",!,"following criteria:" Line Location: COVPAGE+4
Function Call: WRITE	Prompt: !!?6,"Patient must have had a screening between ",$$FMTE^XLFDT(APCRBD)," and ",$$FMTE^XLFDT(APCRED),! Line Location: SHOW+1
Function Call: WRITE	Prompt: !?6,"Gender: ",$S(APCRSEX="F":"FEMALES ONLY",APCRSEX="M":"MALES ONLY",APCRSEX="U":"UNKNOWN",APCRSEX="MFU":"ALL GENDERS",1:"") Line Location: SHOW+3
Function Call: WRITE	Prompt: !?6,"Age of Patients included: ",$P(APCRAGET,"-")," to ",$P(APCRAGET,"-",2) Line Location: SHOW+4
Function Call: WRITE	Prompt: !?6,"All Ages included" Line Location: SHOW+5
Function Call: WRITE	Prompt: !?6,"Patients must have had a screening during the time period with one of ",!?6,"the following screening results:" Line Location: SHOW+6
Function Call: WRITE	Prompt: ?8,"NEGATIVE" Line Location: SHOW+8
Function Call: WRITE	Prompt: " ","POSITIVE" Line Location: SHOW+9
Function Call: WRITE	Prompt: " ","REFUSED" Line Location: SHOW+10
Function Call: WRITE	Prompt: " ","UNABLE TO SCREEN" Line Location: SHOW+11
Function Call: WRITE	Prompt: !?8,"SCREENINGS WITH NO RECORDED RESULT" Line Location: SHOW+12
Function Call: WRITE	Prompt: !,"Screenings done in the following clinics are included:" Line Location: SHOW+13
Function Call: WRITE	Prompt: !?10,$P(^DIC(40.7,X,0),U)," ("_$P(^DIC(40.7,X,0),U,2)_")" Line Location: SHOW+14
Function Call: WRITE	Prompt: !,"Screenings done in ALL clinics included" Line Location: SHOW+15
Function Call: WRITE	Prompt: !,"Behavioral Health Clinics excluded." Line Location: SHOW+16
Function Call: WRITE	Prompt: !,"Only patients whose Designated Mental Health Provider",!?6,$P(^VA(200,APCRDESP,0),U)," are included" Line Location: SHOW+17
Function Call: WRITE	Prompt: !,"Only patients whose Designated Social Services Provider",!?6,$P(^VA(200,APCRSSP,0),U)," are included" Line Location: SHOW+18
Function Call: WRITE	Prompt: !,"Only patients whose Designated ASA/CD Provider",!?6,$P(^VA(200,APCRCDP,0),U)," are included" Line Location: SHOW+19
Function Call: WRITE	Prompt: !,"Only patients who had a visit on which a screeening was done",!?6,"but the primary provider on the visit was UNKNOWN are included." Line Location: SHOW+20
Function Call: WRITE	Prompt: !,"Only patients who had a visit on which a screeening was done",!?6,"but the screening provider on the visit was UNKNOWN are included." Line Location: SHOW+21
Function Call: WRITE	Prompt: !,"Visits to any Primary Provider are included" Line Location: SHOW+22
Function Call: WRITE	Prompt: !,"Visits on which any provider did the screening are included" Line Location: SHOW+23
Function Call: WRITE	Prompt: !,"Only screenings on which ",$P(^VA(200,APCRPROV,0),U)," was the primary provider",!?6,"on the visit are included" Line Location: SHOW+24
Function Call: WRITE	Prompt: !,"Only screenings on which ",$P(^VA(200,APCRSPRV,0),U)," was the primary provider",!?6,"on the visit are included" Line Location: SHOW+25
Routine Call	DIR Line Location: HEADER+2 EOP+7 PAUSE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHRPRO("AD"	LIST+24, LIST+26
^AUPNVPOV("AD"	LIST+19, LIST+21
^DIC(4 - [#4]	LOC+1
^DIC(40.7 - [#40.7]	SHOW+14
^DPT - [#2]	LIST+16, N+1
^TMP($J	DONE+1!, LIST+4!, LIST+10*, LIST+12, LIST+13, LIST+15
^VA(200 - [#200]	HEADER1+2, USR+1, COVPAGE+3, SHOW+17, SHOW+18, SHOW+19, SHOW+24, SHOW+25
^XTMP("APCLAL3"	PRINT1+3, PTOT+3, TOT+3, DONE+2!, LIST+6

Label References

Name	Line Occurrences
$$COM	PRINT1+9, PRINT1+10
$$CTR	HEADER1+3, HEADER1+4, COVPAGE+2
$$DT	LIST+16
$$END	PRINT1+5
$$ENDL	LIST+14
$$PTOT	PRINT1+8
@(	LIST+8
COVPAGE	PRINT1+4
DONE	PRINT+2, PRINT1+3
EOP	DONE+3
HEADER	PRINT1+3, PRINT1+6, END+2, ENDL+2, LIST+3
HEADER1	HEADER+1
LIST	PRINT1+11
PAUSE	SHOW+26
PRINT1	PRINT+1

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	T+1, T+2, T+3
>> APCLEXBH	SHOW+15, SHOW+16
>> APCRAGET	SHOW+4, SHOW+5
>> APCRBD	HEADER1+4, SHOW+1
>> APCRC	LIST+20, LIST+22, LIST+23, LIST+25, LIST+27, LIST+28
>> APCRCDP	SHOW+19
>> APCRCLNT	SHOW+13, SHOW+15
>> APCRCLNT(	SHOW+14
>> APCRCNT	PRINT1+7
>> APCRDESP	SHOW+17
>> APCRED	HEADER1+4, SHOW+1
>> APCRH	PRINT1+3, PTOT+3, TOT+3, DONE+2, LIST+6
>> APCRJ	PRINT1+3, PTOT+3, TOT+3, DONE+2, LIST+6
APCRLSTP	PRINT1+2!, LIST+2*
>> APCRPG	PRINT1+1, HEADER+1, HEADER1+1, HEADER1+2, LIST+1*
>> APCRPPUN	SHOW+20
>> APCRPROV	SHOW+22, SHOW+24
>> APCRPTOT	PRINT1+8*, PRINT1+10
APCRQUIT	PRINT1+1!, END+3, ENDL+3, HEADER+2, LIST+1!, LIST+12, LIST+13, LIST+21, LIST+26, PAUSE+4
>> APCRREST(	SHOW+7
>> APCRSEX	SHOW+3
>> APCRSORT	LIST+8
>> APCRSORV	LIST+9, LIST+10, LIST+12, LIST+13, LIST+15, H+1, N+1, P+1, R+1, D+1* , A, G+1, C+1, T+3
>> APCRSPRV	SHOW+23, SHOW+25
>> APCRSPUN	SHOW+21
>> APCRSSP	SHOW+18
>> APCRTOT	PRINT1+7*, PRINT1+9
>> APCRV	LIST+19, LIST+21, LIST+24, LIST+26
>> APCRX	LIST+6, LIST+7, LIST+10, LIST+21, LIST+23, LIST+26*, LIST+28
>> APCRY	LIST+6, LIST+10, LIST+15, LIST+16, LIST+17, LIST+18, LIST+19, LIST+24, LIST+29, LIST+30 , P+1, R+1, D+1, A, G+1, C+1
C	PTOT+1~, PTOT+2, PTOT+3, PTOT+4, TOT+1~, TOT+2, TOT+3, TOT+4
D	DT~, DT+1, DT+2
DA	PAUSE+3!
>> DFN	LIST+7, LIST+13, LIST+15, LIST+16, H+1, N+1, T+1
DFOUT	EOP+5!
DIR	HEADER+2!, EOP+4~, PAUSE+3!
DIR("A"	EOP+7, PAUSE+3
DIR(0	HEADER+2, EOP+7, PAUSE+3*
DIRUT	EOP+5!, PAUSE+4
DLOUT	EOP+5!
DT	HEADER1+2
DTOUT	HEADER+2, EOP+5!
DUOUT	EOP+5!
DUZ	HEADER1+2, USR+1, COVPAGE+3
DUZ(2	LOC+1, LIST+16, H+1, T+1
IO	HEADER+2, EOP+2, PAUSE+2
IO("S"	EOP+3
IO(0	HEADER+2, EOP+2, PAUSE+2
IOF	HEADER1+1, COVPAGE+1, PAUSE+5
IOM	CTR+1
IOSL	END+1, ENDL+1
IOST	HEADER+2, EOP+1, PAUSE+1
>> IOT	EOP+3
U	HEADER1+2, USR+1, LOC+1, LIST+16, LIST+17, LIST+18, LIST+19, LIST+24, LIST+29, LIST+30 , N+1, P+1, R+1, D+1, A, G+1, C+1, COVPAGE+3, SHOW+14, SHOW+17 , SHOW+18, SHOW+19, SHOW+24, SHOW+25
X	COM~, COM+2, PTOT+1~, PTOT+3, TOT+1~, TOT+3, HEADER1+4, CTR~, CTR+1, SHOW+7 , SHOW+8, SHOW+9, SHOW+10, SHOW+11, SHOW+12, SHOW+14*
X2	COM~
X3	COM~
Y	HEADER+2, CTR~, CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLAL3P

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: