Routine: BPCBHDSP

Information

BPCBHDSP ; IHS/OIT/MJL - behavioral health display for GUI ; [ 11/14/2007 10:40 AM ]

Source Information

Source file <BPCBHDSP.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
IHS VA Utilities	2	^XBKSET GUIR^XBLM
Mental Health Social Services	2	EP2^AMHLEFP2 EN^AMHVDSG1
Text Integration Utility	2	$$CANDO^TIULP EXTRACT^TIULQ
Kernel	1	^%ZTLOAD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Patient Chart	1	BPC15E

Entry Points

Name	Comments	DBIA/ICR reference
TESTREC	;
INTAKE(BGUARRAY,BPCIEN)	;EP called to return an INTAKE form in an array
ENCFORM(AMHARRY,AMHR,AMHEFT)	;EP called to get encounter form in array
TSK	;
SUICDSP(BGUARRAY,BPCIEN)	;EP CALL FROM REMOTE PROC: BPCBH SUICIDE FORM DSP
TIUN(BGUARRAY,BPCIEN)	;EP called to return TIU notes in an array
S1	;
TSKITKF	; Task Intake Form
RECDISP(AMHARRY,AMHR)	;EP - called to display one BH record
TESTSUIC	;
TESTENC	;
ENSFDSP	;
S(Y,F,C,T)	;set up array
KILL	;

External References

Name	Field # of Occurrence
^%ZTLOAD	ENSFDSP+11, INTAKE+8
EP2^AMHLEFP2	ENCFORM+10
EN^AMHVDSG1	RECDISP+6
$$CANDO^TIULP	TIUN+8
EXTRACT^TIULQ	TIUN+12
^XBKSET	ENSFDSP+7, TSK+1, TSKITKF+1, INTAKE+6
GUIR^XBLM	TSK+3, TSKITKF+3

Used in RPC

RPC Name	Call Tags
BPCBH RECORD DISPLAY	RECDISP
BPCBH ENCOUNTER FORM	ENCFORM
BPCBH SUICIDE FORM DSP	SUICDSP
BPCBH INTAKE FORM	INTAKE
BPCBH TIU NOTES	TIUN

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMHREC - [#9002011]	TIUN+1, TIUN+7
^TMP("AMHOENPS"	TIUN+10, TIUN+13, TIUN+14!
^TMP("AMHS"	ENCFORM+7!, ENCFORM+11, ENCFORM+12!, S1+1, S1+2*
^TMP("AMHVDSG"	RECDISP+5!, RECDISP+7!, RECDISP+8
^XTMP("BPCIF"	TSKITKF+4*, INTAKE+4!
^XTMP("BPCIFRUN"	TSKITKF+2, TSKITKF+5, INTAKE+5*, INTAKE+9
^XTMP("BPCSF"	ENSFDSP+5!, TSK+4*
^XTMP("BPCSFRUN"	ENSFDSP+6, ENSFDSP+12, TSK+2, TSK+5*

Label References

Name	Line Occurrences
ENCFORM	TESTENC+1
KILL	ENSFDSP+13, INTAKE+10
RECDISP	TESTREC+1
S	TIUN+5, TIUN+8, TIUN+15, TIUN+16, TIUN+17, TIUN+18, TIUN+19, TIUN+21, TIUN+22
S1	S+5, S+7, S+10
SUICDSP	TESTSUIC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	S+1~, S+8, S+9, S1+1*, S1+2
AMHAR	TIUN+6!
AMHARRY	ENCFORM~, ENCFORM+6, RECDISP~, RECDISP+4, RECDISP+6
>> AMHDOC	TIUN+7*, TIUN+8, TIUN+12, TIUN+13
AMHEFT	ENCFORM~, ENCFORM+8*, ENCFORM+9
AMHERR	TIUN+6!, TIUN+12
>> AMHGBL	TIUN+10*, TIUN+11, TIUN+12
>> AMHHLF	TIUN+10*
>> AMHPG	INTAKE+7*
AMHR	ENCFORM~, ENCFORM+10, RECDISP~, RECDISP+6, TIUN+3*, TIUN+7
AMHSF	ENSFDSP+4*, KILL+1!
AMHTIU	TIUN+6!, TIUN+8!, TIUN+13*, TIUN+24!
AMHTIU(	TIUN+15, TIUN+17
AMHTIU("TEXT"	TIUN+19
AMHTIU(1202	TIUN+16
AMHTIU(1205	TIUN+18
AMHTIU(1501	TIUN+20, TIUN+22
AMHTIU(1502	TIUN+17
AMHTIU(1503	TIUN+21
>> AMHX	TIUN+19*
BGUARRAY	SUICDSP~, ENSFDSP+3, INTAKE~, INTAKE+3, TIUN~, TIUN+2*, TIUN+4
BPCCTR	KILL+1!, ENCFORM+11~, ENCFORM+12, RECDISP+7~, RECDISP+8
BPCGUI	ENSFDSP+1, KILL+1!, INTAKE+1
BPCIEN	SUICDSP~, ENSFDSP+4, INTAKE~, INTAKE+7, TIUN~, TIUN+1, TIUN+3
C	S~, S+7
>> DFN	INTAKE+7*
DIC	KILL+1!
DUZ	TIUN+8
F	S~, S+2, S+5
>> I	ENSFDSP+12, INTAKE+9
IOM	TIUN+10
JOB	ENSFDSP+1, ENSFDSP+5, ENSFDSP+6, TSK+2, TSK+4, TSK+5, TSKITKF+2, TSKITKF+4, TSKITKF+5, KILL+1! , INTAKE+1, INTAKE+4, INTAKE+5
>> L	S+7*
>> RETVAL	TESTREC+1, TESTENC+1, TESTSUIC+1
T	S~, S+3, S+7, S+8, S+9
U	TIUN+1, TIUN+7, S1+1
X	KILL+1!, ENCFORM+11~, RECDISP+3~, RECDISP+6!, RECDISP+7, TIUN+5, TIUN+8, S+5, S+6, S+8* , S+9*, S1+2
>> XWBWRAP	ENSFDSP+1, INTAKE+1
Y	KILL+1!, S~, S+6, S+7, S+9
ZTDESC	ENSFDSP+11, KILL+1!, INTAKE+8
ZTDTH	ENSFDSP+11, KILL+1!, INTAKE+8
ZTIO	ENSFDSP+2, ENSFDSP+11, KILL+1!, INTAKE+2, INTAKE+8
>> ZTQUEUED	ENSFDSP+2, INTAKE+2
ZTRTN	ENSFDSP+11, KILL+1!, INTAKE+8
ZTSAVE	KILL+1!
ZTSAVE("AMHPG"	INTAKE+8*
ZTSAVE("AMHSF"	ENSFDSP+11*
ZTSAVE("DFN"	INTAKE+8*
ZTSAVE("JOB"	ENSFDSP+11, INTAKE+8

Customize PDF page

Package: Patient Chart

Routine: BPCBHDSP

Call Graph Total: 7

Caller Graph Total: 1