Routine: APCLAL4P

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

Name	Comments	DBIA/ICR reference
PER(N,D)	;return % of n/d
TOT()	;
RES	;
AGE	;
C	;
PRINT	;EP - called from xbdbque
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DONE	;
DATE	;
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.
PTOT()	;
DT(D)	;EP
A
PRVV	;
D	;
ENDL()	;
N	;
H	;
DESPRV	;
PRVSC	;
HEADER	;EP
CLINIC	;
R	;
T	;
END()	;
P	;
SS	;
LIST	;EP - called from xbdbque
MH	;
COM(X,X2,X3)	;
CD	;
HEADER1	;
GENDER	;

Name	Field # of Occurrence
COMMA^%DTC	COM+1
$$AGE^AUPNPAT	LIST+48
$$HRN^AUPNPAT	LIST+15, LIST+48, H+1, T+1
^DIR	HEADER+2, EOP+7
$$VAL^XBDIQ1	LIST+22, LIST+27, LIST+31, LIST+32, LIST+33, LIST+34, LIST+36
$$FMTE^XLFDT	DATE+10, HEADER1+2, HEADER1+4
$$STRIP^XLFSTR	PER+4, 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 Patients in TEMPLATE:",?40,$J($$COM(APCRPTOT,0),8) Line Location: PRINT1+6
Function Call: WRITE	Prompt: !!," Total Number of Patients screened",?40,$J($$COM(APCRTOT,0),8),?55,$$PER(APCRTOT,APCRPTOT) Line Location: PRINT1+8
Function Call: WRITE	Prompt: !!?46,"#",?53,"% of patients",$S(APCRTALP:" screened",1:"") Line Location: PRINT1+10
Function Call: WRITE	Prompt: ! Line Location: RES+6
Function Call: WRITE	Prompt: !," By Result",! Line Location: RES+7
Function Call: WRITE	Prompt: !?Y,APCRX,?40,$J($$COM($G(APCRRES(APCRX)),0),8),?55,$$PER(APCRRES(APCRX),APCRTOT) Line Location: RES+9
Function Call: WRITE	Prompt: ! Line Location: GENDER+6
Function Call: WRITE	Prompt: !," By Gender",! Line Location: GENDER+7
Function Call: WRITE	Prompt: !?Y,APCRX,?40,$J($$COM($G(APCRRES(APCRX)),0),8),?55,$$PER(APCRRES(APCRX),APCRTOT) Line Location: GENDER+10
Function Call: WRITE	Prompt: ! Line Location: AGE+6
Function Call: WRITE	Prompt: !," By Age",! Line Location: AGE+7
Function Call: WRITE	Prompt: !?Y,APCRX," yrs",?40,$J($$COM($G(APCRRES(APCRX)),0),8),?55,$$PER(APCRRES(APCRX),APCRTOT) Line Location: AGE+10
Function Call: WRITE	Prompt: ! Line Location: PRVSC+6
Function Call: WRITE	Prompt: !," By Provider who screened",! Line Location: PRVSC+7
Function Call: WRITE	Prompt: !?Y,APCRX,?40,$J($$COM($G(APCRRES(APCRX)),0),8),?55,$$PER(APCRRES(APCRX),APCRTOT) Line Location: PRVSC+10
Function Call: WRITE	Prompt: ! Line Location: PRVV+5
Function Call: WRITE	Prompt: !," By Primary Provider of Visit",! Line Location: PRVV+6
Function Call: WRITE	Prompt: !?Y,APCRX,?40,$J($$COM($G(APCRRES(APCRX)),0),8),?55,$$PER(APCRRES(APCRX),APCRTOT) Line Location: PRVV+9
Function Call: WRITE	Prompt: ! Line Location: DESPRV+5
Function Call: WRITE	Prompt: !," By Designated Primary Care Provider",! Line Location: DESPRV+6
Function Call: WRITE	Prompt: !?Y,APCRX,?40,$J($$COM($G(APCRRES(APCRX)),0),8),?55,$$PER(APCRRES(APCRX),APCRTOT) Line Location: DESPRV+9
Function Call: WRITE	Prompt: ! Line Location: MH+5
Function Call: WRITE	Prompt: !," By Designated Mental Health Provider",! Line Location: MH+6
Function Call: WRITE	Prompt: !?Y,APCRX,?40,$J($$COM($G(APCRRES(APCRX)),0),8),?55,$$PER(APCRRES(APCRX),APCRTOT) Line Location: MH+9
Function Call: WRITE	Prompt: ! Line Location: SS+5
Function Call: WRITE	Prompt: !," By Designated Social Services Provider",! Line Location: SS+6
Function Call: WRITE	Prompt: !?Y,APCRX,?40,$J($$COM($G(APCRRES(APCRX)),0),8),?55,$$PER(APCRRES(APCRX),APCRTOT) Line Location: SS+9
Function Call: WRITE	Prompt: ! Line Location: CD+5
Function Call: WRITE	Prompt: !," By Designated A/SA Provider",! Line Location: CD+6
Function Call: WRITE	Prompt: !?Y,APCRX,?40,$J($$COM($G(APCRRES(APCRX)),0),8),?55,$$PER(APCRRES(APCRX),APCRTOT) Line Location: CD+9
Function Call: WRITE	Prompt: ! Line Location: CLINIC+6
Function Call: WRITE	Prompt: !," By Clinic",! Line Location: CLINIC+7
Function Call: WRITE	Prompt: !?Y,APCRX,?40,$J($$COM($G(APCRRES(APCRX)),0),8),?55,$$PER(APCRRES(APCRX),APCRTOT) Line Location: CLINIC+10
Function Call: WRITE	Prompt: ! Line Location: DATE+6
Function Call: WRITE	Prompt: !," By Date",! Line Location: DATE+7
Function Call: WRITE	Prompt: !?Y,$$FMTE^XLFDT(APCRX),?40,$J($$COM($G(^TMP($J,APCRX)),0),8),?55,$$PER(^TMP($J,APCRX),APCRTOT) Line Location: DATE+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 PATIENT TALLY"_$S(APCRLIST:" AND PATIENT LISTING",1:"")_" *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+8
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+9
Function Call: WRITE	Prompt: !?35,"DATE",!,"PATIENT NAME",?22,"HRN",?29,"AGE",?35,"SCREENED",?55,"CLINIC" Line Location: HEADER1+10
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+11
Function Call: WRITE	Prompt: !?46,"#",?53,"% of patients" Line Location: HEADER1+12
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Function Call: WRITE	Prompt: !?3,"Comment: ",$P(APCRY,U,12) Line Location: LIST+17
Function Call: WRITE	Prompt: !?3,"DXs: " Line Location: LIST+19
Function Call: WRITE	Prompt: ?8,$$VAL^XBDIQ1(9000010.07,APCRX,.01),?17,$E($$VAL^XBDIQ1(9000010.07,APCRX,.04),1,60) Line Location: LIST+22
Function Call: WRITE	Prompt: !?3,"DXs: " Line Location: LIST+24
Function Call: WRITE	Prompt: ?8,$$VAL^XBDIQ1(9002011.01,APCRX,.01),?17,$E($$VAL^XBDIQ1(9002011.01,APCRX,.04),1,60) Line Location: LIST+27
Function Call: WRITE	Prompt: ! Line Location: LIST+30
Function Call: WRITE	Prompt: ?31,$S(APCRX="DESIGNATED PRIMARY PROVIDER":"PRIMARY CARE",1:APCRX),": ",APCRX(APCRX) Line Location: LIST+42
Routine Call	DIR Line Location: HEADER+2 EOP+7

Name	Line Occurrences (* Changed, ! Killed)
^AMHRPRO("AD"	LIST+23, LIST+25
^AUPNVPOV("AD"	LIST+18, LIST+20
^BDPRECN("C"	LIST+35
^DIBT(	HEADER1+7, LIST+45, PTOT+3
^DIC(4 - [#4]	LOC+1
^DPT - [#2]	LIST+15, LIST+48, N+1
^TMP($J	PRINT1+33!, DATE+3!, DATE+5, DATE+8, DATE+10!, DONE+1!, LIST+4!, LIST+9, LIST+11, LIST+12 , LIST+14
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("APCLAL4"	PRINT1+3, RES+3, RES+4, GENDER+3, GENDER+4, AGE+3, AGE+4, PRVSC+3, PRVSC+4, PRVV+2 , PRVV+3, DESPRV+2, DESPRV+3, MH+2, MH+3, SS+2, SS+3, CD+2, CD+3, CLINIC+3 , CLINIC+4, DATE+3, DATE+4, TOT+3, DONE+2!, LIST+6, LIST+46

Name	Line Occurrences
$$COM	PRINT1+6, PRINT1+8, RES+9, GENDER+10, AGE+10, PRVSC+10, PRVV+9, DESPRV+9, MH+9, SS+9 , CD+9, CLINIC+10, DATE+10
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7, HEADER1+8, HEADER1+9
$$DT	LIST+15
$$END	PRINT1+12, PRINT1+14, PRINT1+16, PRINT1+18, PRINT1+20, PRINT1+22, PRINT1+24, PRINT1+26, PRINT1+28, PRINT1+30 , PRINT1+32, GENDER+9, AGE+9, PRVSC+9, PRVV+8, DESPRV+8, MH+8, SS+8, CD+8, CLINIC+9 , DATE+9, LIST+40, LIST+47
$$ENDL	LIST+13
$$PER	PRINT1+8, RES+9, GENDER+10, AGE+10, PRVSC+10, PRVV+9, DESPRV+9, MH+9, SS+9, CD+9 , CLINIC+10, DATE+10
$$PTOT	PRINT1+5
$$TOT	PRINT1+7
@(	LIST+7
AGE	PRINT1+15
CD	PRINT1+31
CLINIC	PRINT1+23
DATE	PRINT1+25
DESPRV	PRINT1+21
DONE	PRINT+2, PRINT1+3
EOP	DONE+3
GENDER	PRINT1+13
HEADER	PRINT1+3, PRINT1+4, END+2, ENDL+2, LIST+3, LIST+44
HEADER1	HEADER+1
LIST	PRINT1+34
MH	PRINT1+27
PRINT1	PRINT+1
PRVSC	PRINT1+17
PRVV	PRINT1+19
RES	PRINT1+11
SS	PRINT1+29

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
>> A	LIST+36*
>> APCLEXBH	HEADER1+5
>> APCRBD	HEADER1+4
>> APCRC	LIST+19, LIST+21, LIST+22, LIST+24, LIST+26, LIST+27, LIST+39, LIST+41, LIST+42
>> APCRDP	LIST+30
>> APCRED	HEADER1+4
>> APCREXPC	HEADER1+6
>> APCRH	PRINT1+3, RES+3, RES+4, GENDER+3, GENDER+4, AGE+3, AGE+4, PRVSC+3, PRVSC+4, PRVV+2 , PRVV+3, DESPRV+2, DESPRV+3, MH+2, MH+3, SS+2, SS+3, CD+2, CD+3, CLINIC+3 , CLINIC+4, DATE+3, DATE+4, TOT+3, DONE+2, LIST+6, LIST+46
>> APCRJ	PRINT1+3, RES+3, RES+4, GENDER+3, GENDER+4, AGE+3, AGE+4, PRVSC+3, PRVSC+4, PRVV+2 , PRVV+3, DESPRV+2, DESPRV+3, MH+2, MH+3, SS+2, SS+3, CD+2, CD+3, CLINIC+3 , CLINIC+4, DATE+3, DATE+4, TOT+3, DONE+2, LIST+6, LIST+46
>> APCRLIST	PRINT1+34, HEADER1+3
APCRLSTP	PRINT1+2!, HEADER1+8, HEADER1+9, HEADER1+10, HEADER1+12, LIST+2*
>> APCRPG	PRINT1+1, HEADER+1, HEADER1+1, HEADER1+2, LIST+1*
>> APCRPTOT	PRINT1+5*, PRINT1+6, PRINT1+8
APCRQUIT	PRINT1+1!, RES+8, GENDER+8, AGE+8, PRVSC+8, PRVV+7, DESPRV+7, MH+7, SS+7, CD+7 , CLINIC+8, DATE+8, END+3, ENDL+3, HEADER+2*, LIST+1!, LIST+11, LIST+12, LIST+20, LIST+25 , LIST+39, LIST+45
APCRRES	RES+3!, GENDER+3!, AGE+3!, PRVSC+3!, PRVV+2!, DESPRV+2!, MH+2!, SS+2!, CD+2!, CLINIC+3!
APCRRES(	RES+5, RES+8, RES+9!, GENDER+5, GENDER+8, GENDER+10!, AGE+5, AGE+8, AGE+10!, PRVSC+5 , PRVSC+8, PRVSC+10!, PRVV+4, PRVV+7, PRVV+9!, DESPRV+4, DESPRV+7, DESPRV+9!, MH+4, MH+7 , MH+9!, SS+4, SS+7, SS+9!, CD+4, CD+7, CD+9!, CLINIC+5, CLINIC+8, CLINIC+10!
>> APCRSCRD	HEADER1+8, HEADER1+9, LIST+2, LIST+43
>> APCRSEAT	HEADER1+7, LIST+45, PTOT+3
>> APCRSORT	LIST+7
>> APCRSORV	LIST+8, LIST+9, LIST+11, LIST+12, LIST+14, H+1, N+1, P+1, R+1, D+1* , A, G+1, C+1, T+3
>> APCRTALL(1	RES+1
>> APCRTALL(10	CD+1
>> APCRTALL(11	DESPRV+1
>> APCRTALL(2	GENDER+1
>> APCRTALL(3	AGE+1
>> APCRTALL(4	PRVSC+1
>> APCRTALL(5	CLINIC+1
>> APCRTALL(6	DATE+1
>> APCRTALL(7	PRVV+1
>> APCRTALL(8	MH+1
>> APCRTALL(9	SS+1
>> APCRTALP	PRINT1+2, PRINT1+9, PRINT1+10
>> APCRTOT	PRINT1+7*, PRINT1+8, RES+9, GENDER+10, AGE+10, PRVSC+10, PRVV+9, DESPRV+9, MH+9, SS+9 , CD+9, CLINIC+10, DATE+10
>> APCRV	LIST+18, LIST+20, LIST+23, LIST+25
APCRX	RES+8, RES+9, GENDER+8, GENDER+10, AGE+8, AGE+10, PRVSC+8, PRVSC+10, PRVV+7, PRVV+9 , DESPRV+7, DESPRV+9, MH+7, MH+9, SS+7, SS+9, CD+7, CD+9, CLINIC+8, CLINIC+10 , DATE+8, DATE+10, LIST+20, LIST+22, LIST+25, LIST+27, LIST+31!, LIST+37, LIST+39, LIST+42
APCRX(	LIST+36*, LIST+39, LIST+42
APCRX("CHEMIC	AL DEPENDENCY" , LIST+33*
APCRX("DESIGN	ATED PRIMARY PROVIDER" , LIST+34*
APCRX("MENTAL	HEALTH" , LIST+31*
APCRX("SOCIAL	SERVICES" , LIST+32*
>> APCRXX	LIST+35*, LIST+36
>> APCRY	RES+4, RES+5, GENDER+4, GENDER+5, AGE+4, AGE+5, PRVSC+4, PRVSC+5, PRVV+3, PRVV+4 , DESPRV+3, DESPRV+4, MH+3, MH+4, SS+3, SS+4, CD+3, CD+4, CLINIC+4, CLINIC+5 , DATE+4, DATE+5, LIST+6, LIST+9, LIST+14*, LIST+15, LIST+16, LIST+17, LIST+18, LIST+23 , LIST+28, LIST+29, P+1, R+1, D+1, A, G+1, C+1
C	TOT+1~, TOT+2, TOT+3, TOT+4, PTOT+1~, PTOT+2, PTOT+3, PTOT+4
D	PER~, PER+1, PER+3, DT~, DT+1, DT+2
>> DFN	LIST+6, LIST+9, LIST+12, LIST+14, LIST+15, LIST+31, LIST+32, LIST+33, LIST+34, LIST+35 , LIST+45*, LIST+46, LIST+48, H+1, N+1, T+1
DFOUT	EOP+5!
DIR	HEADER+2!, EOP+4~
DIR("A"	EOP+7*
DIR(0	HEADER+2, EOP+7
DIRUT	EOP+5!
DLOUT	EOP+5!
DT	HEADER1+2, LIST+48
DTOUT	HEADER+2, EOP+5!
DUOUT	EOP+5!
DUZ	HEADER1+2, USR+1
DUZ(2	LOC+1, LIST+15, LIST+48, H+1, T+1
IO	HEADER+2, EOP+2
IO("S"	EOP+3
IO(0	HEADER+2, EOP+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	END+1, ENDL+1
IOST	HEADER+2, EOP+1
>> IOT	EOP+3
N	PER~, PER+3
>> R	RES+5, GENDER+5, AGE+5, PRVSC+5, PRVV+4, DESPRV+4, MH+4, SS+4, CD+4, CLINIC+5 , DATE+5*
U	RES+5, GENDER+5, AGE+5, PRVSC+5, PRVV+4, DESPRV+4, MH+4, SS+4, CD+4, CLINIC+5 , DATE+5, HEADER1+2, HEADER1+7, USR+1, LOC+1, LIST+15, LIST+16, LIST+17, LIST+18, LIST+23 , LIST+28, LIST+29, LIST+48, N+1, P+1, R+1, D+1, A, G+1, C+1
X	RES+3, RES+4, GENDER+3, GENDER+4, AGE+3, AGE+4, PRVSC+3, PRVSC+4, PRVV+2, PRVV+3 , DESPRV+2, DESPRV+3, MH+2, MH+3, SS+2, SS+3, CD+2, CD+3, CLINIC+3, CLINIC+4 , DATE+3, DATE+4, COM~, COM+2, TOT+1~, TOT+3, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7 , HEADER1+8, HEADER1+9, CTR~, CTR+1, LIST+31, LIST+32, LIST+33, LIST+34, PTOT+1~, PTOT+3*
X2	COM~
X3	COM~
Y	RES+9, GENDER+10, AGE+10, PRVSC+10, PRVV+9, DESPRV+9, MH+9, SS+9, CD+9, CLINIC+10 , DATE+10*, HEADER+2, CTR~, CTR+1
Z	PER+2~, PER+3*, PER+4
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLAL4P

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: