Routine: APCLDV3P

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$STRIP^XLFSTR
Patient Care Component Reports	2	$$START1^APCLDF (COMMHDR,LOCHDR)^APCLDV1P
VA Fileman	2	COMMA^%DTC ^DIR
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

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	;

Name	Field # of Occurrence
COMMA^%DTC	COM+1
$$START1^APCLDF	LIST+29
COMMHDR^APCLDV1P	HEADER1+4
LOCHDR^APCLDV1P	HEADER1+4
$$HRN^AUPNPAT	LIST+16, H+1, T+1
^DIR	HEADER+2, EOP+7, PAUSE+3
$$VAL^XBDIQ1	LIST+22, LIST+27, LIST+34, LIST+38, LIST+39, LIST+40, LIST+41, LIST+43
$$FMTE^XLFDT	HEADER1+2, HEADER1+5, LIST+29, 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(APCLTOT,0),8) Line Location: PRINT1+9
Function Call: WRITE	Prompt: !," Total Number of Patients Screened",?40,$J($$COM(APCLPTOT,0),8) Line Location: PRINT1+10
Function Call: WRITE	Prompt: !!,"Search template ",$P(^DIBT(APCLSTMP,0),U)," has been created.",! Line Location: PRINT1+14
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 ",APCLPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("* IPV SCREENING VISIT LISTING FOR SELECTED PATIENTS *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: !?35,"DATE",!,"PATIENT NAME",?22,"HRN",?29,"AGE",?35,"SCREENED",?44,"RESULT",?61,"CLINIC" Line Location: HEADER1+6
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+7
Function Call: WRITE	Prompt: ! Line Location: EOP+6
Function Call: WRITE	Prompt: !?3,"Comment: ",$P(APCLY,U,4) Line Location: LIST+17
Function Call: WRITE	Prompt: !?3,"DXs: " Line Location: LIST+19
Function Call: WRITE	Prompt: ?8,$$VAL^XBDIQ1(9000010.07,APCLS,.01),?17,$E($$VAL^XBDIQ1(9000010.07,APCLS,.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,APCLS,.01),?17,$E($$VAL^XBDIQ1(9002011.01,APCLS,.04),1,60) Line Location: LIST+27
Function Call: WRITE	Prompt: !?3,"DXs: " Line Location: LIST+31
Function Call: WRITE	Prompt: ?8,$$VAL^XBDIQ1(9000010.07,APCLS,.01),?17,$E($$VAL^XBDIQ1(9000010.07,APCLS,.04),1,60) Line Location: LIST+34
Function Call: WRITE	Prompt: ! Line Location: LIST+37
Function Call: WRITE	Prompt: ?31,$S(APCLZ="DESIGNATED PRIMARY PROVIDER":"PRIMARY CARE",1:APCLZ),": ",APCLZ(APCLZ) Line Location: LIST+49
Function Call: WRITE	Prompt: !?20,"******** IPV/DV SCREENING FOR SELECTED PATIENTS ********" 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 IPV/DV 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(APCLBD)," and ",$$FMTE^XLFDT(APCLED),! Line Location: SHOW+1
Function Call: WRITE	Prompt: !?6,"Gender: ",$S(APCLSEX="F":"FEMALES ONLY",APCLSEX="M":"MALES ONLY",APCLSEX="U":"UNKNOWN",APCLSEX="MFU":"ALL GENDERS",1:"") Line Location: SHOW+3
Function Call: WRITE	Prompt: !?6,"Age of Patients included: ",$P(APCLAGET,"-")," to ",$P(APCLAGET,"-",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: " ","PRESENT" Line Location: SHOW+9
Function Call: WRITE	Prompt: " ","PAST" Line Location: SHOW+10
Function Call: WRITE	Prompt: " ","PRESENT AND PAST" Line Location: SHOW+11
Function Call: WRITE	Prompt: " ","REFUSED" Line Location: SHOW+12
Function Call: WRITE	Prompt: " ","UNABLE TO SCREEN" Line Location: SHOW+13
Function Call: WRITE	Prompt: !?8,"SCREENINGS WITH NO RECORDED RESULT" Line Location: SHOW+14
Function Call: WRITE	Prompt: !,"Screenings done in the following clinics are included:" Line Location: SHOW+15
Function Call: WRITE	Prompt: !?10,$P(^DIC(40.7,X,0),U)," ("_$P(^DIC(40.7,X,0),U,2)_")" Line Location: SHOW+16
Function Call: WRITE	Prompt: !,"Screenings done in ALL clinics included" Line Location: SHOW+17
Function Call: WRITE	Prompt: !,"Behavioral Health Clinics excluded, all other clinics included." Line Location: SHOW+18
Function Call: WRITE	Prompt: !,"Only patients whose Designated Primary Care Provider is ",!?6,$P(^VA(200,APCLDESP,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,APCLPROV,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,APCLSPRV,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

Name	Line Occurrences (* Changed, ! Killed)
^AMHRPRO("AD"	LIST+23, LIST+25
^AUPNVPOV("AD"	LIST+18, LIST+20, LIST+32
^BDPRECN("C"	LIST+42
^DIBT(	PRINT1+13*, PRINT1+14
^DIC(4 - [#4]	LOC+1
^DIC(40.7 - [#40.7]	SHOW+16
^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+19, SHOW+24, SHOW+25
^XTMP("APCLDV3"	PRINT1+3, PRINT1+13, PTOT+3, TOT+3, DONE+2!, LIST+6

Name	Line Occurrences
$$COM	PRINT1+9, PRINT1+10
$$CTR	HEADER1+3, HEADER1+5
$$DT	LIST+16
$$END	PRINT1+5, LIST+47
$$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

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+29, LIST+43
>> APCLAGET	SHOW+4, SHOW+5
>> APCLBD	HEADER1+5, SHOW+1
>> APCLC	LIST+19, LIST+21, LIST+22, LIST+24, LIST+26, LIST+27, LIST+31, LIST+33, LIST+34, LIST+46* , LIST+48*, LIST+49
>> APCLCLNT	SHOW+15, SHOW+17
>> APCLCLNT(	SHOW+16
>> APCLCNT	PRINT1+7
>> APCLD	LIST+28*, LIST+29
>> APCLDESP	SHOW+19
>> APCLDP	LIST+37
>> APCLED	HEADER1+5, SHOW+1
>> APCLEXBH	SHOW+17, SHOW+18
>> APCLH	PRINT1+3, PRINT1+13, PTOT+3, TOT+3, DONE+2, LIST+6
>> APCLJ	PRINT1+3, PRINT1+13, PTOT+3, TOT+3, DONE+2, LIST+6
APCLLSTP	PRINT1+2!, LIST+2*
>> APCLPG	PRINT1+1, HEADER+1, HEADER1+1, HEADER1+2, LIST+1*
>> APCLPPUN	SHOW+20
>> APCLPROV	SHOW+22, SHOW+24
>> APCLPTOT	PRINT1+8*, PRINT1+10
APCLQUIT	PRINT1+1!, END+3, ENDL+3, HEADER+2, LIST+1!, LIST+12, LIST+13, LIST+20, LIST+25, LIST+32 , LIST+46, PAUSE+4
>> APCLREST(	SHOW+7
>> APCLS	LIST+20, LIST+22, LIST+25, LIST+27, LIST+32*, LIST+34
>> APCLSEX	SHOW+3
>> APCLSORT	LIST+8
>> APCLSORV	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
>> APCLSPRV	SHOW+23, SHOW+25
>> APCLSPUN	SHOW+21
>> APCLSTMP	PRINT1+13, PRINT1+14
>> APCLTMPL	PRINT1+11
>> APCLTOT	PRINT1+7*, PRINT1+9
APCLV	LIST+18, LIST+20, LIST+23, LIST+25, LIST+29!, LIST+30*, LIST+32
APCLV(	LIST+30
>> APCLV1	LIST+30*
>> APCLX	LIST+6, LIST+10, LIST+13, LIST+15
>> APCLXX	LIST+42*, LIST+43
>> APCLY	LIST+6, LIST+7, LIST+10, LIST+15, LIST+16, LIST+17, LIST+18, LIST+23, LIST+28, LIST+35 , LIST+36, P+1, R+1, D+1, A, G+1, C+1
APCLZ	LIST+38!, LIST+44, LIST+46*, LIST+49
APCLZ(	LIST+43*, LIST+46, LIST+49
APCLZ("CHEMIC	AL DEPENDENCY" , LIST+40*
APCLZ("DESIGN	ATED PRIMARY PROVIDER" , LIST+41*
APCLZ("MENTAL	HEALTH" , LIST+38*
APCLZ("SOCIAL	SERVICES" , LIST+39*
>> B	LIST+29*
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+15, LIST+16, LIST+29, LIST+38, LIST+39, LIST+40, LIST+41, LIST+42, 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
>> E	LIST+29*
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	PRINT1+14, HEADER1+2, USR+1, LOC+1, LIST+7, LIST+15, LIST+16, LIST+17, LIST+18, LIST+23 , LIST+28, LIST+30, LIST+35, LIST+36, N+1, P+1, R+1, D+1, A, G+1 , C+1, COVPAGE+3, SHOW+16, SHOW+19, SHOW+24, SHOW+25
X	PRINT1+13, COM~, COM+2, PTOT+1~, PTOT+3, TOT+1~, TOT+3, HEADER1+5, CTR~, CTR+1 , LIST+38, LIST+39, LIST+40, LIST+41, SHOW+7, SHOW+8, SHOW+9, SHOW+10, SHOW+11, SHOW+12 , SHOW+13, SHOW+14, SHOW+16
X2	COM~
X3	COM~
Y	HEADER+2, CTR~, CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLDV3P

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: