Routine: BHSBH

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
Health Summary Components	2	PROB^BHSBH1 PRTTXT^BHSUTL
IHS Standard Terminology	1	$$DESC^BSTSAPI
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Mental Health Social Services	1	$$PPINI^AMHUTIL

Package	Total	Caller Graph
Health Summary Components	1	BHSHS2

Entry Points

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

External References

Name	Field # of Occurrence
$$PPINI^AMHUTIL	COMMON+3
PROB^BHSBH1	CASEOUT+28
PRTTXT^BHSUTL	HASPOV+18, COMMON+3
$$DESC^BSTSAPI	HASPOV+15
REGDT4^GMTSU	MH+21, ONEDATE
CKP^GMTSUP	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+9, OUTPT+2, OUTPT+3 , PTED+2, PTED+8, DSPVIS+4, DSPVIS+8, DSPVIS+13, HASPOV+19, COMMON+1
$$VAL^XBDIQ1	CASEOUT+14, CASEOUT+17, CASEOUT+23, CASEOUT+26, PTED+9, DSPVIS+14
$$FMTE^XLFDT	CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+20, PTED+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?23,"Patient Flag: ",?38,$P(^AMHPATR(BHSPAT,0),U,9),! Line Location: MH+3
Function Call: WRITE	Prompt: ?21,"Flag Narrative: ",?38,$P(^AMHPATR(BHSPAT,0),U,11),! Line Location: MH+5
Function Call: WRITE	Prompt: ?2,"Designated Mental Health Provider: ",?38,$P(^VA(200,$P(^AMHPATR(BHSPAT,0),U,2),0),U),! Line Location: MH+7
Function Call: WRITE	Prompt: "Designated Social Services Provider: ",?38,$P(^VA(200,$P(^AMHPATR(BHSPAT,0),U,3),0),U),! Line Location: MH+9
Function Call: WRITE	Prompt: ?10,"CD Designated Provider: ",?38,$P(^VA(200,$P(^AMHPATR(BHSPAT,0),U,4),0),U),! Line Location: MH+11
Function Call: WRITE	Prompt: ?10,"Other Designated Provider: ",?38,$P(^VA(200,$P(^AMHPATR(BHSPAT,0),U,12),0),U),! Line Location: MH+13
Function Call: WRITE	Prompt: ?10,"Other (2) Designated Provider: ",?38,$P(^VA(200,$P(^AMHPATR(BHSPAT,0),U,13),0),U),! 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+11
Function Call: WRITE	Prompt: ?AMHJ,$P(AMHAX5(AMHCNT),U,2) Line Location: AXV+12
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: ?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

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+6, HASPOV+7
^AMHREC - [#9002011]	AXV+4, AXV+5, PTED+4, ONEDATE+1, DSPVIS+7, DSPVIS+9, DSPVIS+10, DSPVIS+11
^AMHREC("AE"	AXV+2, AXV+3, OUTPT+3, OUTPT+6, ONEDATE+1
^AMHREDU - [#9002011.05]	PTED+4
^AMHREDU("AC"	PTED+1, PTED+3
^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
^AUTNPOV - [#9999999.27]	HASPOV+11
^AUTTEDT - [#9999999.09]	PTED+9
^AUTTLOC - [#9999999.06]	GETSITE+1
^DIC(4 - [#4]	GETSITE+2
^VA(200 - [#200]	MH+7, MH+9, MH+11, MH+13, MH+15

Label References

Name	Line Occurrences
$$DATE	AXV+11
COMMON	NOPOV+2, HASPOV+10
DSPVIS	ONEDATE+1
GETSITE	ONEDATE+1
HASPOV	DSPVIS+3
NOPOV	DSPVIS+2
ONEDATE	OUTPT+6
OUTPTX	PTED+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMHAX5	AXV+1!, AXV+8, OUTPTX!
AMHAX5(	AXV+5*, AXV+11, AXV+12
AMHCNT	AXV+1, AXV+2, AXV+5, AXV+11, AXV+12, OUTPTX!
AMHIVD	OUTPTX!
AMHJ	AXV+11, AXV+12, OUTPTX!
AMHL	CASE+1!, CASE+2*, CASE+4, CASEOUT+27!, OUTPTX!
AMHL(	CASE+4*, 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, OUTPTX!, OUTPTX+1!
AMHSCLI	OUTPTX+1!
AMHSD	PTED+5!, PTED+6*, PTED+7, PTED+9, OUTPTX!
AMHSD(	PTED+5*, PTED+6, PTED+7, PTED+9
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+7, HASPOV+9
AMHSICL	OUTPTX+1!
AMHSIVD	AXV+2, AXV+3, AXV+5, OUTPT+6, OUTPTX!, OUTPTX+1!, ONEDATE, ONEDATE+1
AMHSMTX	OUTPTX+1!
AMHSN	PTED+3!, OUTPTX!, OUTPTX+1!, ONEDATE+1*, GETSITE+1, GETSITE+2, GETSITE+3, DSPVIS+14
AMHSN(	PTED+4*, PTED+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*
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+2, HASPOV+11, HASPOV+18
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, PTED+3, PTED+4, PTED+7 , PTED+9, OUTPTX!, OUTPTX+1!
AMHTOC	OUTPTX+1!, GETSITE+3*, COMMON+3
BHSICL	OUTPTX+2!, HASPOV+9, HASPOV+18, COMMON+3*
BHSNRQ	OUTPTX+2!, NOPOV+1, HASPOV+6, HASPOV+8, HASPOV+9, HASPOV+18*
>> BHSPAT	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, ONEDATE+1
BHSTXT	OUTPTX+2!, NOPOV+1, HASPOV+9, HASPOV+18*
C	CASE+1, CASE+2, CASE+3, CASE+4, CASEOUT+27!
CHK	HASPOV+1~, HASPOV+11, HASPOV+13, HASPOV+14, HASPOV+16, HASPOV+17*, HASPOV+18
CODE	HASPOV+1~, HASPOV+2*, HASPOV+3, HASPOV+5
CODEIEN	HASPOV+1~, HASPOV+5*, HASPOV+6, HASPOV+7
D	CASE+1*, CASE+2, CASEOUT+27!, DATE~, DATE+1, DATE+2
DESCT	HASPOV+1~, HASPOV+15*, HASPOV+16
FIRST	HASPOV+1~, HASPOV+14*, HASPOV+17
>> GMTSDLM	OUTPT+6
>> GMTSNDM	OUTPT+6*
>> GMTSNPG	COMMON+1
>> GMTSQIT	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+8, AXV+9 , OUTPT+2, OUTPT+3, OUTPT+6, PTED+2, PTED+3, PTED+6, PTED+7, PTED+8, ONEDATE+1, DSPVIS+4 , DSPVIS+7, DSPVIS+8, DSPVIS+13, HASPOV+19, COMMON+1
I	CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26, OUTPTX+2!, DSPVIS+9*
IOM	OUTPT+2, PTED+2
J	CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26, OUTPTX+2!
K	CASEOUT+3*, CASEOUT+5, CASEOUT+8, CASEOUT+11, CASEOUT+14, CASEOUT+17, CASEOUT+20, CASEOUT+23, CASEOUT+26, CASEOUT+27!
L	CASEOUT+27!
SEC	HASPOV+1~, HASPOV+14*, HASPOV+15
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+5, AXV+11 , AXV+12, PTED+4, PTED+5, PTED+9, GETSITE+1, GETSITE+2, GETSITE+3, DSPVIS+7, DSPVIS+9, DSPVIS+11 , DSPVIS+14, HASPOV+2, HASPOV+6, HASPOV+7, HASPOV+11, HASPOV+16, HASPOV+18
X	MH+21, OUTPT+2, PTED+2, PTED+4, PTED+5, OUTPTX+2!, ONEDATE, HASPOV+8*
Y	PTED+4, PTED+5, OUTPTX+2!, OUTPTX+3!, DSPVIS+9, HASPOV+8

Customize PDF page

Package: Health Summary Components

Routine: BHSBH

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: