Routine: AMHRDV3P

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

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
$$HRN^AUPNPAT	LIST+16, H+1, T+1
^DIR	HEADER+2, EOP+7, PAUSE+3
$$VAL^XBDIQ1	LIST+22, LIST+27
$$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(AMHRTOT,0),8) Line Location: PRINT1+9
Function Call: WRITE	Prompt: !," Total Number of Patients Screened",?40,$J($$COM(AMHRPTOT,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 ",AMHRPG,! 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+4
Function Call: WRITE	Prompt: !?35,"DATE",!,"PATIENT NAME",?22,"HRN",?29,"AGE",?35,"SCREENED",?44,"RESULT",?61,"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(AMHRY,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,AMHRS,.01),?17,$E($$VAL^XBDIQ1(9000010.07,AMHRS,.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,AMHRS,.01),?17,$E($$VAL^XBDIQ1(9002011.01,AMHRS,.04),1,60) Line Location: LIST+27
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(AMHRBD)," and ",$$FMTE^XLFDT(AMHRED),! Line Location: SHOW+1
Function Call: WRITE	Prompt: !?6,"Gender: ",$S(AMHRSEX="F":"FEMALES ONLY",AMHRSEX="M":"MALES ONLY",AMHRSEX="MF":"Both MALES and FEMALES",1:"") Line Location: SHOW+3
Function Call: WRITE	Prompt: !?6,"Age of Patients included: ",$P(AMHRAGET,"-")," to ",$P(AMHRAGET,"-",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: " ","REFERRAL NEEDED" Line Location: SHOW+14
Function Call: WRITE	Prompt: !?8,"SCREENINGS WITH NO RECORDED RESULT" Line Location: SHOW+15
Function Call: WRITE	Prompt: !,"Screenings done in the following clinics are included:" Line Location: SHOW+16
Function Call: WRITE	Prompt: !?10,$P(^DIC(40.7,X,0),U)," ("_$P(^DIC(40.7,X,0),U,2)_")" Line Location: SHOW+17
Function Call: WRITE	Prompt: !,"Screenings done in ALL clinics included" Line Location: SHOW+18
Function Call: WRITE	Prompt: !,"PCC Clinics excluded." Line Location: SHOW+19
Function Call: WRITE	Prompt: !,"Only patients whose Designated Mental Health Provider",!?6,$P(^VA(200,AMHRDESP,0),U)," are included" Line Location: SHOW+20
Function Call: WRITE	Prompt: !,"Only patients whose Designated Social Services Provider",!?6,$P(^VA(200,AMHRSSP,0),U)," are included" Line Location: SHOW+21
Function Call: WRITE	Prompt: !,"Only patients whose Designated ASA/CD Provider",!?6,$P(^VA(200,AMHRCDP,0),U)," are included" Line Location: SHOW+22
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+23
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+24
Function Call: WRITE	Prompt: !,"Visits to any Primary Provider are included" Line Location: SHOW+25
Function Call: WRITE	Prompt: !,"Visits on which any provider did the screening are included" Line Location: SHOW+26
Function Call: WRITE	Prompt: !,"Only screenings on which ",$P(^VA(200,AMHRPROV,0),U)," was the primary provider",!?6,"on the visit are included" Line Location: SHOW+27
Function Call: WRITE	Prompt: !,"Only screenings on which ",$P(^VA(200,AMHRSPRV,0),U)," was the primary provider",!?6,"on the visit are included" Line Location: SHOW+28
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
^DIC(4 - [#4]	LOC+1
^DIC(40.7 - [#40.7]	SHOW+17
^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+20, SHOW+21, SHOW+22, SHOW+27, SHOW+28
^XTMP("AMHRDV3"	PRINT1+3, PTOT+3, TOT+3, DONE+2!, LIST+6

Name	Line Occurrences
$$COM	PRINT1+9, PRINT1+10
$$CTR	HEADER1+3, HEADER1+4
$$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+29
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
>> AMHRAGET	SHOW+4, SHOW+5
>> AMHRBD	HEADER1+4, SHOW+1
>> AMHRC	LIST+19, LIST+21, LIST+22, LIST+24, LIST+26, LIST+27
>> AMHRCDP	SHOW+22
>> AMHRCLNT	SHOW+16, SHOW+18
>> AMHRCLNT(	SHOW+17
>> AMHRCNT	PRINT1+7
>> AMHRDESP	SHOW+20
>> AMHRED	HEADER1+4, SHOW+1
>> AMHREXPC	SHOW+18, SHOW+19
>> AMHRH	PRINT1+3, PTOT+3, TOT+3, DONE+2, LIST+6
>> AMHRJ	PRINT1+3, PTOT+3, TOT+3, DONE+2, LIST+6
AMHRLSTP	PRINT1+2!, LIST+2*
>> AMHRPG	PRINT1+1, HEADER+1, HEADER1+1, HEADER1+2, LIST+1*
>> AMHRPPUN	SHOW+23
>> AMHRPROV	SHOW+25, SHOW+27
>> AMHRPTOT	PRINT1+8*, PRINT1+10
AMHRQUIT	PRINT1+1!, END+3, ENDL+3, HEADER+2, LIST+1!, LIST+12, LIST+13, LIST+20, LIST+25, PAUSE+4
>> AMHRREST(	SHOW+7
>> AMHRS	LIST+20, LIST+22, LIST+25, LIST+27
>> AMHRSEX	SHOW+3
>> AMHRSORT	LIST+8
>> AMHRSORV	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
>> AMHRSPRV	SHOW+26, SHOW+28
>> AMHRSPUN	SHOW+24
>> AMHRSSP	SHOW+21
>> AMHRTOT	PRINT1+7*, PRINT1+9
>> AMHRV	LIST+18, LIST+20, LIST+23, LIST+25
>> AMHRX	LIST+6, LIST+10, LIST+13, LIST+15
>> AMHRY	LIST+6, LIST+7, LIST+10, 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	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, 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+7, LIST+15, LIST+16, LIST+17, LIST+18, LIST+23, LIST+28 , LIST+29, N+1, P+1, R+1, D+1, A, G+1, C+1, COVPAGE+3, SHOW+17 , SHOW+20, SHOW+21, SHOW+22, SHOW+27, SHOW+28
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+13, SHOW+14, SHOW+15, SHOW+17*
X2	COM~
X3	COM~
Y	HEADER+2, CTR~, CTR+1
>> ZTQUEUED	EOP+3

Customize PDF page

Package: Mental Health Social Services

Routine: AMHRDV3P

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: