Routine: AMHHS

Package	Total	Call Graph
Mental Health Social Services	3	PROB^AMHHS1 $$ALLOWCD^AMHLCD ($$ALLOWVI,$$PPINI)^AMHUTIL
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Patient Care Component	1	PRTTXT^APCHSUTL
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Patient Care Component	1	APCHS9

Entry Points

Name	Comments	DBIA/ICR reference
AXV	;trend and display last 7 AXIS V values
NOPOV	;
D(D)	;EP
GETSITE	;
HF	;
CASE	;output last 3 cases
MEAS	; ******************** MEASUREMENTS * ******* ; <SETUP>
CASEOUT	;display last 3 cases found
MEASDTYP	;
MEASX	;
COMMON	;
OUTPTX
DATE(D)	;
MEASDSP
HASPOV	;
ONEDATE
DSPVIS	;
MEASBH	;
MH	;EP called from health summary
IPV	;
PTED	;display all pt ed (last of each)
OUTPT	; ********** MH PROBLEM CODES AND DESIGNATED PROVIDER ; <SETUP>

External References

Name	Field # of Occurrence
PROB^AMHHS1	CASEOUT+28
$$ALLOWCD^AMHLCD	CASE+3
$$ALLOWVI^AMHUTIL	AXV+5, PTED+4, HF+4, IPV+4, ONEDATE+1
$$PPINI^AMHUTIL	COMMON+3
PRTTXT^APCHSUTL	HASPOV+6, COMMON+3
$$GET1^DIQ	HASPOV+6
$$VAL^XBDIQ1	CASEOUT+14, CASEOUT+17, CASEOUT+23, CASEOUT+26, PTED+9, PTED+11, PTED+12, PTED+13, HF+10, IPV+7 , IPV+8, IPV+9, IPV+10, DSPVIS+11, DSPVIS+14
$$FMTE^XLFDT	CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+20, PTED+9, HF+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?23,"Patient Flag: ",?38,$P(^AMHPATR(APCHSPAT,0),U,9),! Line Location: MH+3
Function Call: WRITE	Prompt: ?21,"Flag Narrative: ",?38,$P(^AMHPATR(APCHSPAT,0),U,11),! Line Location: MH+5
Function Call: WRITE	Prompt: ?2,"Designated Mental Health Provider: ",?38,$P(^VA(200,$P(^AMHPATR(APCHSPAT,0),U,2),0),U),! Line Location: MH+7
Function Call: WRITE	Prompt: "Designated Social Services Provider: ",?38,$P(^VA(200,$P(^AMHPATR(APCHSPAT,0),U,3),0),U),! Line Location: MH+9
Function Call: WRITE	Prompt: ?10,"CD Designated Provider: ",?38,$P(^VA(200,$P(^AMHPATR(APCHSPAT,0),U,4),0),U),! Line Location: MH+11
Function Call: WRITE	Prompt: ?10,"Other Designated Provider: ",?38,$P(^VA(200,$P(^AMHPATR(APCHSPAT,0),U,12),0),U),! Line Location: MH+13
Function Call: WRITE	Prompt: ?10,"Other (2) Designated Provider: ",?38,$P(^AMHPATR(APCHSPAT,0),U,13),! Line Location: MH+15
Function Call: WRITE	Prompt: !,"** Personal History of:",! Line Location: MH+19
Function Call: WRITE	Prompt: ?J,$$FMTE^XLFDT($P(^AMHPCASE(AMHL(I),0),U),"2E") Line Location: CASEOUT+5
Function Call: WRITE	Prompt: ?J,$$FMTE^XLFDT($P(^AMHPCASE(AMHL(I),0),U,4),"2E") Line Location: CASEOUT+8
Function Call: WRITE	Prompt: ?J,$$FMTE^XLFDT($P(^AMHPCASE(AMHL(I),0),U,5),"2E") Line Location: CASEOUT+11
Function Call: WRITE	Prompt: ?J,$$VAL^XBDIQ1(9002011.58,AMHL(I),.03) Line Location: CASEOUT+14
Function Call: WRITE	Prompt: ?J,$$VAL^XBDIQ1(9002011.58,AMHL(I),.06) Line Location: CASEOUT+17
Function Call: WRITE	Prompt: ?J,$$FMTE^XLFDT($P(^AMHPCASE(AMHL(I),0),U,12),"2E") Line Location: CASEOUT+20
Function Call: WRITE	Prompt: ?J,$$VAL^XBDIQ1(9002011.58,AMHL(I),.08) Line Location: CASEOUT+23
Function Call: WRITE	Prompt: ?J,$$VAL^XBDIQ1(9002011.58,AMHL(I),.09) Line Location: CASEOUT+26
Function Call: WRITE	Prompt: ?AMHJ,$$DATE($P(AMHAX5(AMHCNT),U)) Line Location: AXV+12
Function Call: WRITE	Prompt: ?AMHJ,$P(AMHAX5(AMHCNT),U,2) Line Location: AXV+13
Function Call: WRITE	Prompt: !,AMHS,X,AMHS,!! Line Location: OUTPT+2
Function Call: WRITE	Prompt: !,"No Behavioral Health Records on File.",! Line Location: OUTPT+3
Function Call: WRITE	Prompt: !,AMHS,X,AMHS,! Line Location: PTED+2
Function Call: WRITE	Prompt: !?3,"Goal: ",$$VAL^XBDIQ1(9002011.05,AMHSD(AMHSD,AMHSX),.09) Line Location: PTED+12
Function Call: WRITE	Prompt: !?3,"Status: ",$$VAL^XBDIQ1(9002011.05,AMHSD(AMHSD,AMHSX),.11) Line Location: PTED+13
Function Call: WRITE	Prompt: !?3,"Comment: ",$P(^AMHREDU(AMHSD(AMHSD,AMHSX),11),U) Line Location: PTED+14
Function Call: WRITE	Prompt: !!,AMHS,X,AMHS,! Line Location: HF+2
Function Call: WRITE	Prompt: !?3,"Level/Severity: ",$P(^AMHRHF(AMHSD(AMHSD,AMHSX),0),U,4) Line Location: HF+11
Function Call: WRITE	Prompt: !!,AMHS,X,AMHS,! Line Location: IPV+1
Function Call: WRITE	Prompt: !,"IPV/DV SCREENING",?24,$$D((9999999-$P(AMHSIVD,"."))),?62,$E($$VAL^XBDIQ1(9002011,AMHSX,1402),1,15) Line Location: IPV+7
Function Call: WRITE	Prompt: !,"ALCOHOL SCREENING",?24,$$D((9999999-$P(AMHSIVD,"."))),?33,$$VAL^XBDIQ1(9002011,AMHSX,1403),?62,$E($$VAL^XBDIQ1(9002011,AMHSX,1404),1,15) Line Location: IPV+8
Function Call: WRITE	Prompt: !,"DEPRESSION SCREENING ",?24,$$D((9999999-$P(AMHSIVD,"."))),?33,$$VAL^XBDIQ1(9002011,AMHSX,1405),?62,$E($$VAL^XBDIQ1(9002011,AMHSX,1406),1,15) Line Location: IPV+9
Function Call: WRITE	Prompt: !,"SUICIDE RISK ASSESSMENT",?24,$$D((9999999-$P(AMHSIVD,"."))),?33,$$VAL^XBDIQ1(9002011,AMHSX,1407),?62,$E($$VAL^XBDIQ1(9002011,AMHSX,1408),1,15) Line Location: IPV+10
Function Call: WRITE	Prompt: !?3,$P(^AMHREC(AMHSX,15),U) Line Location: IPV+11
Function Call: WRITE	Prompt: ?25,"Axis IV (Stress): ",$P(^AMHTAXIV($P(AMHSN,U,13),0),U,2)," - ",$P(^AMHTAXIV($P(AMHSN,U,13),0),U) Line Location: DSPVIS+5
Function Call: WRITE	Prompt: ! Condition for execution: $P(AMHSN,U,14)="" Line Location: DSPVIS+5
Function Call: WRITE	Prompt: ?35,$P(^AMHTAXIV(I,0),U)_" - "_$P(^AMHTAXIV(I,0),U,2),! Line Location: DSPVIS+9
Function Call: WRITE	Prompt: ! Line Location: DSPVIS+10
Function Call: WRITE	Prompt: ?27,"Inpatient Disp: ",$$VAL^XBDIQ1(9002011,AMHSVDF,.17),!?27,"Referred To: ",$P(AMHSN,U,18),! Line Location: DSPVIS+14
Function Call: WRITE	Prompt: AMHSDAT Line Location: COMMON+2
Function Call: WRITE	Prompt: ?9,AMHSFAC,?18,$$PPINI^AMHUTIL(AMHSVDF),?22,AMHTOC Line Location: COMMON+3
Function Call: WRITE	Prompt: !!,AMHS,X,AMHS,! Line Location: MEAS+4
Function Call: WRITE	Prompt: ! Line Location: MEASDTYP+3
Function Call: WRITE	Prompt: APCHSMT2 Condition for execution: APCHSNPG!(APCHSMT3]"") Line Location: MEASDSP+0
Function Call: WRITE	Prompt: ?5,APCHSDAT,?18,$P(^AMHRMSR(APCHSDFN,0),U,4),! Line Location: MEASDSP+0

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMHRPRO - [#9002011.01]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHPATR - [#9002011.55]	MH+3, MH+5, MH+7, MH+9, MH+11, MH+13, MH+15
^AMHPCASE - [#9002011.58]	CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26
^AMHPCASE("AA"	CASE+1, CASE+2
^AMHPPHX - [#9002011.52]	MH+21, MH+22
^AMHPPHX("AC"	MH+18, MH+20
^AMHPROB - [#9002012.2]	HASPOV+1, HASPOV+2
^AMHREC - [#9002011]	AXV+4, AXV+6, PTED+4, HF+4, IPV+7, IPV+8, IPV+9, IPV+10, ONEDATE+1, DSPVIS+7 , DSPVIS+9, DSPVIS+10, DSPVIS+11
^AMHREC("AE"	AXV+2, AXV+3, OUTPT+3, OUTPT+6, IPV+2, IPV+3, ONEDATE+1
^AMHREDU - [#9002011.05]	PTED+4, PTED+11, PTED+12, PTED+13, PTED+14
^AMHREDU("AC"	PTED+1, PTED+3
^AMHRHF - [#9002011.08]	HF+4, HF+11
^AMHRHF("AC"	HF+1, HF+3
^AMHRMSR - [#9002011.12]	MEASDSP
^AMHRMSR("AA"	MEAS+2, MEAS+5, MEASDTYP+2, MEASDSP
^AMHRPRO - [#9002011.01]	DSPVIS+3
^AMHRPRO("AD"	DSPVIS+2, DSPVIS+3
^AMHTAXIV - [#9002012.9]	DSPVIS+9
^AMHTPHF - [#9002012.7]	MH+22
^AMHTSET - [#9002012.1]	GETSITE+3
^AUTTEDT - [#9999999.09]	PTED+9
^AUTTHF - [#9999999.64]	HF+9
^AUTTLOC - [#9999999.06]	GETSITE+1
^AUTTMSR - [#9999999.07]	MEASDTYP+1
^DIC(4 - [#4]	GETSITE+2
^VA(200 - [#200]	MH+7, MH+9, MH+11, MH+13

Label References

Name	Line Occurrences
$$D	IPV+7, IPV+8, IPV+9, IPV+10
$$DATE	AXV+12
COMMON	NOPOV+2, HASPOV+5
DSPVIS	ONEDATE+1
GETSITE	ONEDATE+1
HASPOV	DSPVIS+3
HF	PTED+1
IPV	HF+1
MEAS	MEASBH+1
MEASDSP	MEASDTYP+2
MEASDTYP	MEAS+5
NOPOV	DSPVIS+2
ONEDATE	OUTPT+6

Naked Globals

Name	Field # of Occurrence
^(0	MEASDTYP+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHAX5	AXV+1!, AXV+9, OUTPTX!
AMHAX5(	AXV+6*, AXV+12, AXV+13
AMHCNT	AXV+1, AXV+2, AXV+6, AXV+12, AXV+13, OUTPTX!
AMHIVD	OUTPTX!
AMHJ	AXV+12, AXV+13, OUTPTX!
AMHL	CASE+1!, CASE+2*, CASE+3, CASE+5, CASEOUT+27!, OUTPTX!
AMHL(	CASE+5*, CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26
AMHL(1	CASEOUT+1
AMHPATH	MH+1~
AMHS	OUTPT+2, PTED+2, HF+2, IPV+1, OUTPTX!, OUTPTX+1!, MEAS+4*
AMHSCLI	OUTPTX+1!
AMHSD	PTED+5!, PTED+6, PTED+7, PTED+9, PTED+11, PTED+12, PTED+13, PTED+14, HF+5!, HF+6 , HF+7, HF+9, HF+10, HF+11, OUTPTX!
AMHSD(	PTED+5, PTED+6, PTED+7, PTED+9, PTED+11, PTED+12, PTED+13, PTED+14, HF+5, HF+6 , HF+7, HF+10, HF+11
AMHSDAT	MH+21, MH+22, OUTPT+6, OUTPTX!, OUTPTX+1!, ONEDATE, COMMON+2
AMHSDTU	OUTPT+6, OUTPTX!, OUTPTX+1!, ONEDATE, DSPVIS+1
AMHSFAC	OUTPTX+1!, OUTPTX+2!, GETSITE+1, GETSITE+2, COMMON+3
AMHSICD	OUTPTX+1!, NOPOV+1, HASPOV+2, HASPOV+4
AMHSICL	OUTPTX+1!
AMHSIVD	AXV+2, AXV+3, AXV+6, OUTPT+6, IPV+2*, IPV+3, IPV+7, IPV+8, IPV+9, IPV+10 , OUTPTX!, OUTPTX+1!, ONEDATE, ONEDATE+1
AMHSMTX	OUTPTX+1!
AMHSN	PTED+3!, HF+3!, OUTPTX!, OUTPTX+1!, ONEDATE+1*, GETSITE+1, GETSITE+2, GETSITE+3, DSPVIS+14
AMHSN(	PTED+4, PTED+5, HF+4, HF+5
AMHSNAB	OUTPTX+2!
AMHSNDT	OUTPTX+1!, ONEDATE, COMMON+1, COMMON+2*
AMHSNFL	OUTPTX+2!
AMHSNSH	OUTPTX+2!
AMHSOVT	OUTPTX+1!
AMHSPDN	OUTPTX+1!, DSPVIS+3*, HASPOV+6
AMHSPFN	OUTPTX+1!, ONEDATE, COMMON+2
AMHSPVD	OUTPT+5, OUTPT+6, OUTPTX!, OUTPTX+1!, ONEDATE
AMHSQ	OUTPTX+1!, ONEDATE+1, DSPVIS+3
AMHSR	OUTPTX+1!, DSPVIS+3*, HASPOV+1, HASPOV+2, HASPOV+6
AMHSVDF	OUTPTX+1!, ONEDATE+1*, DSPVIS+2, DSPVIS+3, DSPVIS+7, DSPVIS+9, DSPVIS+10, DSPVIS+11, DSPVIS+14, COMMON+3
AMHSVSC	OUTPTX+2!
AMHSX	MH+20, MH+21, MH+22, MH+24!, AXV+3, AXV+4, AXV+5, AXV+6, PTED+3, PTED+4 , PTED+7, PTED+9, PTED+11, PTED+12, PTED+13, PTED+14, HF+3, HF+4, HF+7, HF+9 , HF+10, HF+11, IPV+3*, IPV+4, IPV+7, IPV+8, IPV+9, IPV+10, OUTPTX!, OUTPTX+1!
AMHTOC	OUTPTX+1!, GETSITE+3*, COMMON+3
>> APCHSBRK	MH+2
>> APCHSCKP	MH+2, MH+4, MH+6, MH+8, MH+10, MH+12, MH+14, MH+16, MH+19, CASEOUT+2 , CASEOUT+6, CASEOUT+9, CASEOUT+12, CASEOUT+15, CASEOUT+18, CASEOUT+21, CASEOUT+24, AXV+10, OUTPT+2, OUTPT+3 , PTED+2, PTED+8, PTED+10, PTED+14, HF+2, HF+8, HF+11, IPV+1, IPV+6, DSPVIS+4 , DSPVIS+8, DSPVIS+13, HASPOV+7, COMMON+1, MEAS+4, MEASDTYP+3, MEASDSP
>> APCHSCVD	MH+21, ONEDATE, MEASDSP
APCHSDAT	MEASX+1!, MEASDSP*
APCHSDFN	MEASX+1!, MEASDTYP+2, MEASDSP
>> APCHSDLM	OUTPT+6, IPV+2
>> APCHSICL	HASPOV+4, HASPOV+6, COMMON+3*
>> APCHSIVD	MEASDTYP+2*, MEASDSP
APCHSMT	MEAS+5*, MEASX+1!, MEASDTYP+1, MEASDTYP+2, MEASDSP
APCHSMT2	MEASX+1!, MEASDTYP+1*, MEASDSP
APCHSMT3	MEASX+1!, MEASDTYP+1, MEASDTYP+3, MEASDSP
APCHSND2	MEAS+5, MEASX+1!, MEASDTYP+2
>> APCHSNDM	OUTPT+6*
>> APCHSNPG	MH+2, COMMON+1, MEASDSP
>> APCHSNRQ	NOPOV+1, HASPOV+1, HASPOV+3, HASPOV+4, HASPOV+6*
>> APCHSPAT	MH+3, MH+5, MH+7, MH+9, MH+11, MH+13, MH+15, MH+18, MH+20, CASE+1 , CASE+2, AXV+2, AXV+3, OUTPT+3, OUTPT+6, PTED+1, PTED+3, HF+1, HF+3, IPV+2 , IPV+3, ONEDATE+1, MEAS+2, MEAS+5, MEASDTYP+2, MEASDSP
>> APCHSQ	MEAS+5*
>> APCHSQIT	MH+2, MH+4, MH+6, MH+8, MH+10, MH+12, MH+14, MH+16, MH+19, CASEOUT+2 , CASEOUT+6, CASEOUT+9, CASEOUT+12, CASEOUT+15, CASEOUT+18, CASEOUT+21, CASEOUT+24, AXV+2, AXV+9, AXV+10 , OUTPT+2, OUTPT+3, OUTPT+6, PTED+2, PTED+3, PTED+6, PTED+7, PTED+8, PTED+10, PTED+14 , HF+2, HF+3, HF+6, HF+7, HF+8, HF+11, IPV+1, IPV+2, IPV+6, ONEDATE+1 , DSPVIS+4, DSPVIS+7, DSPVIS+8, DSPVIS+13, HASPOV+7, COMMON+1, MEAS+4, MEAS+5, MEASDTYP+3, MEASDSP
>> APCHSTXT	NOPOV+1, HASPOV+4, HASPOV+6*
C	CASE+1, CASE+2, CASE+4, CASE+5, CASEOUT+27!
D	CASE+1*, CASE+2, CASEOUT+27!, DATE~, DATE+1, DATE+2, D~, D+1, D+2
DUZ	CASE+3, AXV+5, PTED+4, HF+4, IPV+4, ONEDATE+1
>> I	CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26, DSPVIS+9*
>> J	CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26
K	CASEOUT+3*, CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26, CASEOUT+27!
L	CASEOUT+27!
U	MH+3, MH+5, MH+7, MH+9, MH+11, MH+13, MH+15, MH+21, MH+22, CASEOUT+5 , CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26, AXV+4, AXV+6, AXV+12 , AXV+13, PTED+4, PTED+5, PTED+9, PTED+11, PTED+12, PTED+13, PTED+14, HF+4, HF+5 , HF+9, HF+11, IPV+7, IPV+8, IPV+9, IPV+10, GETSITE+1, GETSITE+2, GETSITE+3, DSPVIS+7 , DSPVIS+9, DSPVIS+11, DSPVIS+14, HASPOV+1, HASPOV+2, HASPOV+6, MEASDTYP+1, MEASDSP
>> X	OUTPT+2, PTED+2, PTED+4, PTED+5, HF+2, HF+4, HF+5, IPV+1, HASPOV+3, MEAS+4
Y	MH+21, PTED+4, PTED+5, HF+4, HF+5, OUTPTX+2!, OUTPTX+3!, ONEDATE, DSPVIS+9, HASPOV+3 , MEASDSP*

Customize PDF page

Package: Mental Health Social Services

Routine: AMHHS

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: